83 files changed, 46935 insertions, 45860 deletions

diff --git a/libX11/configure.ac b/libX11/configure.ac
index a39ab8d94..13d0188c7 100644
--- a/libX11/configure.ac
+++ b/libX11/configure.ac
@@ -1,486 +1,486 @@
-
-# Initialize Autoconf
-AC_PREREQ([2.60])
-AC_INIT([libX11], [1.4.3],
-        [https://bugs.freedesktop.org/enter_bug.cgi?product=xorg], [libX11])
-AC_CONFIG_SRCDIR([Makefile.am])
-AC_CONFIG_HEADERS([src/config.h include/X11/XlibConf.h])
-AC_CONFIG_MACRO_DIR([m4])
-AC_CANONICAL_BUILD
-AC_CANONICAL_HOST
-# Set common system defines for POSIX extensions, such as _GNU_SOURCE
-# Must be called before any macros that run the compiler (like AC_PROG_LIBTOOL)
-# to avoid autoconf errors.
-AC_USE_SYSTEM_EXTENSIONS
-
-# Initialize Automake
-AM_INIT_AUTOMAKE([foreign dist-bzip2])
-AM_MAINTAINER_MODE
-
-# Initialize libtool
-AC_PROG_LIBTOOL
-
-# Require xorg-macros minimum of 1.12 for DocBook external references
-m4_ifndef([XORG_MACROS_VERSION],
-          [m4_fatal([must install xorg-macros 1.12 or later before running autoconf/autogen])])
-XORG_MACROS_VERSION(1.12)
-XORG_DEFAULT_OPTIONS
-XORG_ENABLE_SPECS
-XORG_WITH_XMLTO(0.0.22)
-XORG_WITH_FOP([no])
-XORG_WITH_XSLTPROC
-XORG_CHECK_SGML_DOCTOOLS(1.7)
-XORG_PROG_RAWCPP
-
-# Required when PKG_CHECK_MODULES called within an if statement
-PKG_PROG_PKG_CONFIG
-
-if test x"$CC_FOR_BUILD" = x; then
-	if test x"$cross_compiling" = xyes; then
-	       AC_CHECK_PROGS(CC_FOR_BUILD, gcc cc)
-	else
-	       CC_FOR_BUILD="$CC"
-	fi
-fi
-AC_SUBST([CC_FOR_BUILD])
-
-if test x"$CPPFLAGS_FOR_BUILD" = x; then
-	if test ! x"$cross_compiling" = xyes; then
-		CPPFLAGS_FOR_BUILD=${CPPFLAGS}
-	fi
-fi
-AC_SUBST(CPPFLAGS_FOR_BUILD)
-
-if test x"$CFLAGS_FOR_BUILD" = x; then
-	if test ! x"$cross_compiling" = xyes; then
-		CFLAGS_FOR_BUILD=${CFLAGS}
-	fi
-fi
-AC_SUBST(CFLAGS_FOR_BUILD)
-
-if test x"$LDFLAGS_FOR_BUILD" = x; then
-	if test ! x"$cross_compiling" = xyes; then
-		LDFLAGS_FOR_BUILD=${LDFLAGS}
-	fi
-fi
-AC_SUBST(LDFLAGS_FOR_BUILD)
-
-# Find perl for "make check" tests in nls/Makefile.am
-AC_ARG_WITH(perl,
-	AS_HELP_STRING([--with-perl=<path>],
-			[path to perl interpreter for build-time tests]),
-	[PERL=$withval ; AC_MSG_CHECKING([perl]) ;
-	 AC_MSG_RESULT([(from --with-perl) $PERL])],
-	AC_CHECK_PROGS([PERL], [perl], [no]))
-AM_CONDITIONAL(HAVE_PERL, test x$PERL != xno)
-
-# Checks for pkg-config packages
-
-# Always required
-X11_REQUIRES='xproto >= 7.0.17 xextproto xtrans xcb >= 1.1.92'
-X11_EXTRA_DEPS="xcb >= 1.1.92"
-
-PKG_PROG_PKG_CONFIG()
-
-AC_SUBST(X11_EXTRA_DEPS)
-
-# Issue an error if xtrans.m4 was not found and XTRANS_CONNECTION_FLAGS macro
-# was not expanded, since libX11 with no transport types is rather useless.
-#
-# If you're seeing an error here, be sure you installed the lib/xtrans module
-# first and if it's not in the default location, that you set the ACLOCAL
-# environment variable to find it, such as:
-#	ACLOCAL="aclocal -I ${PREFIX}/share/aclocal"
-m4_pattern_forbid([^XTRANS_CONNECTION_FLAGS$])
-
-# Transport selection macro from xtrans.m4
-XTRANS_CONNECTION_FLAGS
-
-# Secure RPC detection macro from xtrans.m4
-XTRANS_SECURE_RPC_FLAGS
-
-# Preferred order to try transports for local connections
-AC_MSG_CHECKING([what order to try transports in for local connections])
-DEFAULT_LOCAL_TRANS=""
-case $host_os in
-	solaris*)
-		# On Solaris 2.6 through 9, named pipes (LOCAL_TRANS) were
-		# faster than Unix domain sockets, but on Solaris 10 & later,
-		# Unix domain sockets are faster now.
-		if test "$UNIXCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}UNIX_TRANS"
-		fi
-		if test "$LOCALCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS"
-		fi
-		if test "$TCPCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"
-		fi
-		;;
-	linux*)
-		# LOCAL_TRANS is used for abstract sockets.
-		if test "$UNIXCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS,UNIX_TRANS"
-		fi
-		if test "$TCPCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"
-		fi
-		;;
-	*)
-		if test "$LOCALCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS"
-		fi
-		if test "$UNIXCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}UNIX_TRANS"
-		fi
-		if test "$TCPCONN" = "yes" ; then
-			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then
-				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"
-			fi
-			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"
-		fi
-		;;
-esac
-
-AC_ARG_WITH(local-transport-order,
-	AS_HELP_STRING([--with-local-transport-order=LIST], [preference sorted list of transport types to try for local connections]),
-	[LOCAL_TRANSPORT_LIST=$withval],
-	[LOCAL_TRANSPORT_LIST=$DEFAULT_LOCAL_TRANS])
-AC_DEFINE_UNQUOTED([LOCAL_TRANSPORT_LIST], [$LOCAL_TRANSPORT_LIST],
-   [preference sorted list of transport types to try for local connections])
-AC_MSG_RESULT([$LOCAL_TRANSPORT_LIST])
-
-# Check for dlopen
-AC_MSG_CHECKING([if run-time linking is supported])
-AC_SEARCH_LIBS(dlopen,[dl svld])
-if test "x$ac_cv_search_dlopen" = xno; then
-	AC_SEARCH_LIBS(shl_load,[dld])
-	if test "x$ac_cv_search_shl_load" != xno; then
-		AC_DEFINE(HAVE_SHL_LOAD,1,
-			  [Use shl_load to load shared libraries])
-		AC_CHECK_HEADERS([dl.h])
-	fi
-else
-	AC_DEFINE(HAVE_DLOPEN,1,[Use dlopen to load shared libraries])
-	AC_CHECK_HEADERS([dlfcn.h])
-fi
-if test x$ac_cv_header_dlcfn_h -o x$ac_cv_header_dl_h; then
-	HAVE_LOADABLE_MODULES=yes
-else
-	HAVE_LOADABLE_MODULES=no
-fi
-AC_MSG_RESULT($HAVE_LOADABLE_MODULES)
-
-AC_MSG_CHECKING([if loadable i18n module support should be enabled])
-AC_ARG_ENABLE(loadable-i18n,
-	      AS_HELP_STRING([--enable-loadable-i18n],
-	       [Controls loadable i18n module support]),
-	       [XLIB_LOADABLE_I18N=$enableval],
-	       [XLIB_LOADABLE_I18N="no"])
-if test x$XLIB_LOADABLE_I18N = xyes; then
-	if test x$HAVE_LOADABLE_MODULES = xno; then
-		AC_MSG_ERROR([Loadable module support is required to enable loadable i18n module support])
-	fi
-	AC_DEFINE(USE_DYNAMIC_LC,1,
-		  [Split some i18n functions into loadable modules])
-	AC_SUBST(I18N_MODULE_LIBS,'${top_builddir}/src/libX11.la')
-fi
-AC_MSG_RESULT($XLIB_LOADABLE_I18N)
-
-AM_CONDITIONAL(XLIB_LOADABLE_I18N, test x$XLIB_LOADABLE_I18N = xyes)
-
-AC_MSG_CHECKING([if loadable Xcursor library support should be enabled])
-AC_ARG_ENABLE(loadable-xcursor,
-	      AS_HELP_STRING([--disable-loadable-xcursor],
-	       [Controls loadable xcursor library support]),
-	       [XLIB_LOADABLE_XCURSOR=$enableval],
-	       [XLIB_LOADABLE_XCURSOR=$HAVE_LOADABLE_MODULES])
-if test x$XLIB_LOADABLE_XCURSOR = xyes; then
-	AC_DEFINE(USE_DYNAMIC_XCURSOR,1,
-		  [Use the X cursor library to load cursors])
-fi
-AC_MSG_RESULT($XLIB_LOADABLE_XCURSOR)
-
-# Checks for header files.
-AC_CHECK_HEADERS([sys/select.h])
-
-# Checks for typedefs, structures, and compiler characteristics.
-
-# Checks for library functions.
-AC_CHECK_FUNCS([strtol])
-# Used in lcFile.c (see also --enable-xlocaledir settings below)
-XLOCALEDIR_IS_SAFE="no"
-AC_CHECK_FUNC([issetugid], [XLOCALEDIR_IS_SAFE="yes"]
-	AC_DEFINE(HASSETUGID,1,[Has issetugid() function]))
-AC_CHECK_FUNC([getresuid], [XLOCALEDIR_IS_SAFE="yes"]
-	AC_DEFINE(HASGETRESUID,1,[Has getresuid() & getresgid() functions]))
-# Used in Font.c
-AC_CHECK_FUNC([shmat], AC_DEFINE(HAS_SHM,1,[Has shm*() functions]))
-
-# Checks for system services
-# AC_PATH_XTRA
-
-# arch specific things
-WCHAR32="1"
-case $host_os in
-  os2*) os2="true" ; WCHAR32="0" ;;
-  *) ;;
-esac
-AC_SUBST(WCHAR32)
-
-AM_CONDITIONAL(OS2, test x$os2 = xtrue)
-
-AC_ARG_WITH(launchd, AS_HELP_STRING([--with-launchd], [Build with support for Apple's launchd (default: auto)]), [LAUNCHD=$withval], [LAUNCHD=auto])
-if test "x$LAUNCHD" = xauto; then
-	unset LAUNCHD
-	AC_CHECK_PROG(LAUNCHD, [launchd], [yes], [no], [$PATH$PATH_SEPARATOR/sbin])
-fi
-
-if test "x$LAUNCHD" = xyes ; then
-	AC_DEFINE(HAVE_LAUNCHD, 1, [launchd support available])
-	AC_DEFINE(TRANS_REOPEN, 1, [launchd support available])
-fi
-
-AC_ARG_ENABLE(xthreads,
-              AS_HELP_STRING([--disable-xthreads],
-                [Disable Xlib support for Multithreading]),
-              [xthreads=$enableval],[xthreads=yes])
-
-AC_CHECK_LIB(c, getpwuid_r, [mtsafeapi="yes"], [mtsafeapi="no"])
-
-case x$xthreads in
-xyes)
-	AC_DEFINE(XTHREADS,1,[Whether libX11 is compiled with thread support])
-	if test x$mtsafeapi = xyes
-	then
-	AC_DEFINE(XUSE_MTSAFE_API,1,[Whether libX11 needs to use MT safe API's])
-	fi
-	;;
-*)
-	;;
-esac
-
-AC_CHECK_LIB(c, pthread_self, [thrstubs="no"], [thrstubs="yes"])
-AM_CONDITIONAL(THRSTUBS, test x$thrstubs = xyes)
-
-# XXX incomplete, please fill this in
-if test x$xthreads = xyes ; then
-    case $host_os in
-    linux*|openbsd*|gnu*|k*bsd*-gnu)
-        XTHREADLIB=-lpthread ;;
-    netbsd*)
-	XTHREAD_CFLAGS="-D_POSIX_THREAD_SAFE_FUNCTIONS"
-	XTHREADLIB="-lpthread" ;;
-    freebsd*)
-        XTHREAD_CFLAGS="-D_THREAD_SAFE"
-        XTHREADLIB="-pthread" ;;
-    dragonfly*)
-        XTHREADLIB="-pthread" ;;
-    solaris*)
-	XTHREAD_CFLAGS="-D_REENTRANT -D_POSIX_PTHREAD_SEMANTICS" ;;
-    esac
-fi
-AC_SUBST(XTHREADLIB)
-AC_SUBST(XTHREAD_CFLAGS)
-
-AC_CHECK_FUNC(poll, [AC_DEFINE(USE_POLL, 1, [poll() function is available])], )
-
-#
-# Find keysymdef.h
-#
-AC_MSG_CHECKING([keysym definitions])
-KEYSYMDEFDIR=`$PKG_CONFIG --variable=includedir xproto`/X11
-FILES="keysymdef.h XF86keysym.h Sunkeysym.h DECkeysym.h HPkeysym.h"
-for i in $FILES; do
-    if test -f "$KEYSYMDEFDIR/$i"; then
-            KEYSYMDEFS="$KEYSYMDEFS $KEYSYMDEFDIR/$i"
-    elif test "x$i" = "xkeysymdef.h"; then
-	    AC_MSG_ERROR([Cannot find keysymdef.h])
-    fi
-done
-AC_MSG_RESULT([$KEYSYMDEFS])
-AC_SUBST(KEYSYMDEFS)
-
-AM_CONDITIONAL(UDC, test xfalse = xtrue)
-
-AC_ARG_ENABLE(xcms,
-              AS_HELP_STRING([--disable-xcms],
-                [Disable Xlib support for CMS *EXPERIMENTAL*]),
-              [XCMS=$enableval],[XCMS=yes])
-AM_CONDITIONAL(XCMS, [test x$XCMS = xyes ])
-if test x"$XCMS" = "xyes"; then
-	AC_DEFINE(XCMS,1,[Include support for XCMS])
-fi
-
-AC_ARG_ENABLE(xlocale,
-              AS_HELP_STRING([--disable-xlocale],
-                [Disable Xlib locale implementation *EXPERIMENTAL*]),
-              [XLOCALE=$enableval],[XLOCALE=yes])
-
-AM_CONDITIONAL(XLOCALE, [ test x$XLOCALE = xyes ])
-if test x"$XLOCALE" = "xyes"; then
-	AC_DEFINE(XLOCALE,1,[support for X Locales])
-fi
-
-# This disables XLOCALEDIR.  Set it if you're using BuildLoadableXlibI18n,
-# don't have either issetugid() or getresuid(), and you need to protect
-# clients that are setgid or setuid to an id other than 0.
-AC_MSG_CHECKING([if XLOCALEDIR support should be enabled])
-AC_ARG_ENABLE(xlocaledir,
-	      AS_HELP_STRING([--enable-xlocaledir],
-		[Enable XLOCALEDIR environment variable support]),
-	      [ENABLE_XLOCALEDIR=$enableval],[ENABLE_XLOCALEDIR=$XLOCALEDIR_IS_SAFE])
-if test "x$ENABLE_XLOCALEDIR" = "xno"; then
-	AC_DEFINE(NO_XLOCALEDIR,1,[Disable XLOCALEDIR environment variable])
-fi
-AC_MSG_RESULT($ENABLE_XLOCALEDIR)
-
-AC_ARG_ENABLE(xf86bigfont,
-	      AS_HELP_STRING([--disable-xf86bigfont],
-		[Disable XF86BigFont extension support]),
-	      [XF86BIGFONT=$enableval],[XF86BIGFONT="yes"])
-if test "x$XF86BIGFONT" = "xyes"; then
-    PKG_CHECK_MODULES(BIGFONT, [xf86bigfontproto >= 1.2.0],
-         AC_DEFINE(XF86BIGFONT,1,[Enable XF86BIGFONT extension]),XF86BIGFONT="no")
-fi
-
-AC_ARG_ENABLE(xkb,
-              AS_HELP_STRING([--disable-xkb],
-                [Disable XKB support *EXPERIMENTAL*]),
-              [XKB=$enableval],[XKB=yes])
-
-AM_CONDITIONAL(XKB, [ test x$XKB = xyes ])
-if test x"$XKB" = "xyes"; then
-   XKBPROTO_REQUIRES="kbproto"
-   X11_REQUIRES="${X11_REQUIRES} kbproto inputproto"
-   AC_DEFINE(XKB,1,[Use XKB])
-else
-   XKBPROTO_REQUIRES=""
-fi
-AC_SUBST(XKBPROTO_REQUIRES)
-
-AC_FUNC_MMAP()
-composecache_default=$ac_cv_func_mmap_fixed_mapped
-AC_CHECK_FUNC(nl_langinfo, , [composecache_default=no])
-AC_ARG_ENABLE(composecache,
-              AS_HELP_STRING([--disable-composecache],
-                [Disable compose table cache support]),
-              [COMPOSECACHE=$enableval],[COMPOSECACHE=$composecache_default])
-if test x"$COMPOSECACHE" = "xyes"; then
-	AC_DEFINE(COMPOSECACHE,1,[Include compose table cache support])
-fi
-
-# Allow checking code with lint, sparse, etc.
-XORG_WITH_LINT
-XORG_LINT_LIBRARY([X11])
-
-X11_DATADIR="${datadir}/X11"
-AX_DEFINE_DIR(X11_DATADIR, X11_DATADIR, [Location of libX11 data])
-AC_SUBST(X11_DATADIR)
-
-X11_LIBDIR="${libdir}/X11"
-AX_DEFINE_DIR(X11_LIBDIR, X11_LIBDIR, [Location of libX11 library data])
-AC_SUBST(X11_LIBDIR)
-
-PKG_CHECK_MODULES(X11, [$X11_REQUIRES])
-X11_CFLAGS="$X11_CFLAGS $XTHREAD_CFLAGS"
-
-#
-# Yes, it would be nice to put the locale data in
-# /usr/share, but the locale stuff includes loadable
-# libraries which must be located in the same directory
-# as the other locale data, so for now, everything lives
-# in ${libdir}
-#
-
-X11_LOCALEDATADIR="${X11_DATADIR}/locale"
-AX_DEFINE_DIR(XLOCALEDATADIR, X11_LOCALEDATADIR, [Location of libX11 locale data])
-AC_SUBST(X11_LOCALEDATADIR)
-
-AC_ARG_WITH(locale-lib-dir,	AS_HELP_STRING([--with-locale-lib-dir=DIR],
- [Directory where locale libraries files are installed (default: $libdir/X11/locale)]),
-				[ X11_LOCALELIBDIR="$withval" ],
-				[ X11_LOCALELIBDIR="${X11_LIBDIR}/locale" ])
-AX_DEFINE_DIR(XLOCALELIBDIR, X11_LOCALELIBDIR, [Location of libX11 locale libraries])
-AC_SUBST(X11_LOCALELIBDIR)
-
-X11_LOCALEDIR="${X11_LOCALEDATADIR}"
-AX_DEFINE_DIR(XLOCALEDIR, X11_LOCALEDIR, [Location of libX11 locale data])
-AC_SUBST(X11_LOCALEDIR)
-
-XKEYSYMDB="${X11_DATADIR}/XKeysymDB"
-AX_DEFINE_DIR(XKEYSYMDB, XKEYSYMDB, [Location of keysym database])
-
-XERRORDB="${X11_DATADIR}/XErrorDB"
-AX_DEFINE_DIR(XERRORDB, XERRORDB, [Location of error message database])
-
-XORG_CHECK_MALLOC_ZERO
-
-AC_CONFIG_FILES([Makefile
-		include/Makefile
-		man/Makefile
-		man/xkb/Makefile
-		src/Makefile
-		src/util/Makefile
-		src/xcms/Makefile
-		src/xlibi18n/Makefile
-		modules/Makefile
-		modules/im/Makefile
-		modules/im/ximcp/Makefile
-		modules/lc/Makefile
-		modules/lc/def/Makefile
-		modules/lc/gen/Makefile
-		modules/lc/Utf8/Makefile
-		modules/lc/xlocale/Makefile
-		modules/om/Makefile
-		modules/om/generic/Makefile
-		src/xkb/Makefile
-		nls/Makefile
-		specs/Makefile
-		specs/i18n/Makefile
-		specs/i18n/framework/Makefile
-		specs/i18n/localedb/Makefile
-		specs/i18n/trans/Makefile
-		specs/libX11/Makefile
-		specs/XIM/Makefile
-		specs/XKB/Makefile
-		x11.pc
-		x11-xcb.pc])
-AC_OUTPUT
-
-echo ""
-echo "X11 will be built with the following settings:"
-echo " Loadable i18n module support:            "$XLIB_LOADABLE_I18N
-echo " Loadable xcursor library support:        "$XLIB_LOADABLE_XCURSOR
-echo " Threading support:                       "$xthreads
-echo " Use Threads safe API:                    "$mtsafeapi
-echo " Threads stubs in libX11:                 "$thrstubs
-echo " XCMS:                                    "$XCMS
-echo " Internationalization support:            "$XLOCALE
-echo " XF86BigFont support:                     "$XF86BIGFONT
-echo " XKB support:                             "$XKB
-echo " XLOCALEDIR environment variable support: "$ENABLE_XLOCALEDIR
-echo " Compose table cache enabled:             "$COMPOSECACHE
-echo " Functional specs building enabled:       "$build_specs
-echo ""
+

+# Initialize Autoconf

+AC_PREREQ([2.60])

+AC_INIT([libX11], [1.4.3],

+        [https://bugs.freedesktop.org/enter_bug.cgi?product=xorg], [libX11])

+AC_CONFIG_SRCDIR([Makefile.am])

+AC_CONFIG_HEADERS([src/config.h include/X11/XlibConf.h])

+AC_CONFIG_MACRO_DIR([m4])

+AC_CANONICAL_BUILD

+AC_CANONICAL_HOST

+# Set common system defines for POSIX extensions, such as _GNU_SOURCE

+# Must be called before any macros that run the compiler (like AC_PROG_LIBTOOL)

+# to avoid autoconf errors.

+AC_USE_SYSTEM_EXTENSIONS

+

+# Initialize Automake

+AM_INIT_AUTOMAKE([foreign dist-bzip2])

+AM_MAINTAINER_MODE

+

+# Initialize libtool

+AC_PROG_LIBTOOL

+

+# Require xorg-macros minimum of 1.12 for DocBook external references

+m4_ifndef([XORG_MACROS_VERSION],

+          [m4_fatal([must install xorg-macros 1.12 or later before running autoconf/autogen])])

+XORG_MACROS_VERSION(1.12)

+XORG_DEFAULT_OPTIONS

+XORG_ENABLE_SPECS

+XORG_WITH_XMLTO(0.0.22)

+XORG_WITH_FOP([no])

+XORG_WITH_XSLTPROC

+XORG_CHECK_SGML_DOCTOOLS(1.7)

+XORG_PROG_RAWCPP

+

+# Required when PKG_CHECK_MODULES called within an if statement

+PKG_PROG_PKG_CONFIG

+

+if test x"$CC_FOR_BUILD" = x; then

+	if test x"$cross_compiling" = xyes; then

+	       AC_CHECK_PROGS(CC_FOR_BUILD, gcc cc)

+	else

+	       CC_FOR_BUILD="$CC"

+	fi

+fi

+AC_SUBST([CC_FOR_BUILD])

+

+if test x"$CPPFLAGS_FOR_BUILD" = x; then

+	if test ! x"$cross_compiling" = xyes; then

+		CPPFLAGS_FOR_BUILD=${CPPFLAGS}

+	fi

+fi

+AC_SUBST(CPPFLAGS_FOR_BUILD)

+

+if test x"$CFLAGS_FOR_BUILD" = x; then

+	if test ! x"$cross_compiling" = xyes; then

+		CFLAGS_FOR_BUILD=${CFLAGS}

+	fi

+fi

+AC_SUBST(CFLAGS_FOR_BUILD)

+

+if test x"$LDFLAGS_FOR_BUILD" = x; then

+	if test ! x"$cross_compiling" = xyes; then

+		LDFLAGS_FOR_BUILD=${LDFLAGS}

+	fi

+fi

+AC_SUBST(LDFLAGS_FOR_BUILD)

+

+# Find perl for "make check" tests in nls/Makefile.am

+AC_ARG_WITH(perl,

+	AS_HELP_STRING([--with-perl=<path>],

+			[path to perl interpreter for build-time tests]),

+	[PERL=$withval ; AC_MSG_CHECKING([perl]) ;

+	 AC_MSG_RESULT([(from --with-perl) $PERL])],

+	AC_CHECK_PROGS([PERL], [perl], [no]))

+AM_CONDITIONAL(HAVE_PERL, test x$PERL != xno)

+

+# Checks for pkg-config packages

+

+# Always required

+X11_REQUIRES='xproto >= 7.0.17 xextproto xtrans xcb >= 1.1.92'

+X11_EXTRA_DEPS="xcb >= 1.1.92"

+

+PKG_PROG_PKG_CONFIG()

+

+AC_SUBST(X11_EXTRA_DEPS)

+

+# Issue an error if xtrans.m4 was not found and XTRANS_CONNECTION_FLAGS macro

+# was not expanded, since libX11 with no transport types is rather useless.

+#

+# If you're seeing an error here, be sure you installed the lib/xtrans module

+# first and if it's not in the default location, that you set the ACLOCAL

+# environment variable to find it, such as:

+#	ACLOCAL="aclocal -I ${PREFIX}/share/aclocal"

+m4_pattern_forbid([^XTRANS_CONNECTION_FLAGS$])

+

+# Transport selection macro from xtrans.m4

+XTRANS_CONNECTION_FLAGS

+

+# Secure RPC detection macro from xtrans.m4

+XTRANS_SECURE_RPC_FLAGS

+

+# Preferred order to try transports for local connections

+AC_MSG_CHECKING([what order to try transports in for local connections])

+DEFAULT_LOCAL_TRANS=""

+case $host_os in

+	solaris*)

+		# On Solaris 2.6 through 9, named pipes (LOCAL_TRANS) were

+		# faster than Unix domain sockets, but on Solaris 10 & later,

+		# Unix domain sockets are faster now.

+		if test "$UNIXCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}UNIX_TRANS"

+		fi

+		if test "$LOCALCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS"

+		fi

+		if test "$TCPCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"

+		fi

+		;;

+	linux*)

+		# LOCAL_TRANS is used for abstract sockets.

+		if test "$UNIXCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS,UNIX_TRANS"

+		fi

+		if test "$TCPCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"

+		fi

+		;;

+	*)

+		if test "$LOCALCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}LOCAL_TRANS"

+		fi

+		if test "$UNIXCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}UNIX_TRANS"

+		fi

+		if test "$TCPCONN" = "yes" ; then

+			if test ! "x$DEFAULT_LOCAL_TRANS" = "x" ; then

+				DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS},"

+			fi

+			DEFAULT_LOCAL_TRANS="${DEFAULT_LOCAL_TRANS}TCP_TRANS"

+		fi

+		;;

+esac

+

+AC_ARG_WITH(local-transport-order,

+	AS_HELP_STRING([--with-local-transport-order=LIST], [preference sorted list of transport types to try for local connections]),

+	[LOCAL_TRANSPORT_LIST=$withval],

+	[LOCAL_TRANSPORT_LIST=$DEFAULT_LOCAL_TRANS])

+AC_DEFINE_UNQUOTED([LOCAL_TRANSPORT_LIST], [$LOCAL_TRANSPORT_LIST],

+   [preference sorted list of transport types to try for local connections])

+AC_MSG_RESULT([$LOCAL_TRANSPORT_LIST])

+

+# Check for dlopen

+AC_MSG_CHECKING([if run-time linking is supported])

+AC_SEARCH_LIBS(dlopen,[dl svld])

+if test "x$ac_cv_search_dlopen" = xno; then

+	AC_SEARCH_LIBS(shl_load,[dld])

+	if test "x$ac_cv_search_shl_load" != xno; then

+		AC_DEFINE(HAVE_SHL_LOAD,1,

+			  [Use shl_load to load shared libraries])

+		AC_CHECK_HEADERS([dl.h])

+	fi

+else

+	AC_DEFINE(HAVE_DLOPEN,1,[Use dlopen to load shared libraries])

+	AC_CHECK_HEADERS([dlfcn.h])

+fi

+if test x$ac_cv_header_dlcfn_h -o x$ac_cv_header_dl_h; then

+	HAVE_LOADABLE_MODULES=yes

+else

+	HAVE_LOADABLE_MODULES=no

+fi

+AC_MSG_RESULT($HAVE_LOADABLE_MODULES)

+

+AC_MSG_CHECKING([if loadable i18n module support should be enabled])

+AC_ARG_ENABLE(loadable-i18n,

+	      AS_HELP_STRING([--enable-loadable-i18n],

+	       [Controls loadable i18n module support]),

+	       [XLIB_LOADABLE_I18N=$enableval],

+	       [XLIB_LOADABLE_I18N="no"])

+if test x$XLIB_LOADABLE_I18N = xyes; then

+	if test x$HAVE_LOADABLE_MODULES = xno; then

+		AC_MSG_ERROR([Loadable module support is required to enable loadable i18n module support])

+	fi

+	AC_DEFINE(USE_DYNAMIC_LC,1,

+		  [Split some i18n functions into loadable modules])

+	AC_SUBST(I18N_MODULE_LIBS,'${top_builddir}/src/libX11.la')

+fi

+AC_MSG_RESULT($XLIB_LOADABLE_I18N)

+

+AM_CONDITIONAL(XLIB_LOADABLE_I18N, test x$XLIB_LOADABLE_I18N = xyes)

+

+AC_MSG_CHECKING([if loadable Xcursor library support should be enabled])

+AC_ARG_ENABLE(loadable-xcursor,

+	      AS_HELP_STRING([--disable-loadable-xcursor],

+	       [Controls loadable xcursor library support]),

+	       [XLIB_LOADABLE_XCURSOR=$enableval],

+	       [XLIB_LOADABLE_XCURSOR=$HAVE_LOADABLE_MODULES])

+if test x$XLIB_LOADABLE_XCURSOR = xyes; then

+	AC_DEFINE(USE_DYNAMIC_XCURSOR,1,

+		  [Use the X cursor library to load cursors])

+fi

+AC_MSG_RESULT($XLIB_LOADABLE_XCURSOR)

+

+# Checks for header files.

+AC_CHECK_HEADERS([sys/select.h])

+

+# Checks for typedefs, structures, and compiler characteristics.

+

+# Checks for library functions.

+AC_CHECK_FUNCS([strtol])

+# Used in lcFile.c (see also --enable-xlocaledir settings below)

+XLOCALEDIR_IS_SAFE="no"

+AC_CHECK_FUNC([issetugid], [XLOCALEDIR_IS_SAFE="yes"]

+	AC_DEFINE(HASSETUGID,1,[Has issetugid() function]))

+AC_CHECK_FUNC([getresuid], [XLOCALEDIR_IS_SAFE="yes"]

+	AC_DEFINE(HASGETRESUID,1,[Has getresuid() & getresgid() functions]))

+# Used in Font.c

+AC_CHECK_FUNC([shmat], AC_DEFINE(HAS_SHM,1,[Has shm*() functions]))

+

+# Checks for system services

+# AC_PATH_XTRA

+

+# arch specific things

+WCHAR32="1"

+case $host_os in

+  os2*) os2="true" ; WCHAR32="0" ;;

+  *) ;;

+esac

+AC_SUBST(WCHAR32)

+

+AM_CONDITIONAL(OS2, test x$os2 = xtrue)

+

+AC_ARG_WITH(launchd, AS_HELP_STRING([--with-launchd], [Build with support for Apple's launchd (default: auto)]), [LAUNCHD=$withval], [LAUNCHD=auto])

+if test "x$LAUNCHD" = xauto; then

+	unset LAUNCHD

+	AC_CHECK_PROG(LAUNCHD, [launchd], [yes], [no], [$PATH$PATH_SEPARATOR/sbin])

+fi

+

+if test "x$LAUNCHD" = xyes ; then

+	AC_DEFINE(HAVE_LAUNCHD, 1, [launchd support available])

+	AC_DEFINE(TRANS_REOPEN, 1, [launchd support available])

+fi

+

+AC_ARG_ENABLE(xthreads,

+              AS_HELP_STRING([--disable-xthreads],

+                [Disable Xlib support for Multithreading]),

+              [xthreads=$enableval],[xthreads=yes])

+

+AC_CHECK_LIB(c, getpwuid_r, [mtsafeapi="yes"], [mtsafeapi="no"])

+

+case x$xthreads in

+xyes)

+	AC_DEFINE(XTHREADS,1,[Whether libX11 is compiled with thread support])

+	if test x$mtsafeapi = xyes

+	then

+	AC_DEFINE(XUSE_MTSAFE_API,1,[Whether libX11 needs to use MT safe API's])

+	fi

+	;;

+*)

+	;;

+esac

+

+AC_CHECK_LIB(c, pthread_self, [thrstubs="no"], [thrstubs="yes"])

+AM_CONDITIONAL(THRSTUBS, test x$thrstubs = xyes)

+

+# XXX incomplete, please fill this in

+if test x$xthreads = xyes ; then

+    case $host_os in

+    linux*|openbsd*|gnu*|k*bsd*-gnu)

+        XTHREADLIB=-lpthread ;;

+    netbsd*)

+	XTHREAD_CFLAGS="-D_POSIX_THREAD_SAFE_FUNCTIONS"

+	XTHREADLIB="-lpthread" ;;

+    freebsd*)

+        XTHREAD_CFLAGS="-D_THREAD_SAFE"

+        XTHREADLIB="-pthread" ;;

+    dragonfly*)

+        XTHREADLIB="-pthread" ;;

+    solaris*)

+	XTHREAD_CFLAGS="-D_REENTRANT -D_POSIX_PTHREAD_SEMANTICS" ;;

+    esac

+fi

+AC_SUBST(XTHREADLIB)

+AC_SUBST(XTHREAD_CFLAGS)

+

+AC_CHECK_FUNC(poll, [AC_DEFINE(USE_POLL, 1, [poll() function is available])], )

+

+#

+# Find keysymdef.h

+#

+AC_MSG_CHECKING([keysym definitions])

+KEYSYMDEFDIR=`$PKG_CONFIG --variable=includedir xproto`/X11

+FILES="keysymdef.h XF86keysym.h Sunkeysym.h DECkeysym.h HPkeysym.h"

+for i in $FILES; do

+    if test -f "$KEYSYMDEFDIR/$i"; then

+            KEYSYMDEFS="$KEYSYMDEFS $KEYSYMDEFDIR/$i"

+    elif test "x$i" = "xkeysymdef.h"; then

+	    AC_MSG_ERROR([Cannot find keysymdef.h])

+    fi

+done

+AC_MSG_RESULT([$KEYSYMDEFS])

+AC_SUBST(KEYSYMDEFS)

+

+AM_CONDITIONAL(UDC, test xfalse = xtrue)

+

+AC_ARG_ENABLE(xcms,

+              AS_HELP_STRING([--disable-xcms],

+                [Disable Xlib support for CMS *EXPERIMENTAL*]),

+              [XCMS=$enableval],[XCMS=yes])

+AM_CONDITIONAL(XCMS, [test x$XCMS = xyes ])

+if test x"$XCMS" = "xyes"; then

+	AC_DEFINE(XCMS,1,[Include support for XCMS])

+fi

+

+AC_ARG_ENABLE(xlocale,

+              AS_HELP_STRING([--disable-xlocale],

+                [Disable Xlib locale implementation *EXPERIMENTAL*]),

+              [XLOCALE=$enableval],[XLOCALE=yes])

+

+AM_CONDITIONAL(XLOCALE, [ test x$XLOCALE = xyes ])

+if test x"$XLOCALE" = "xyes"; then

+	AC_DEFINE(XLOCALE,1,[support for X Locales])

+fi

+

+# This disables XLOCALEDIR.  Set it if you're using BuildLoadableXlibI18n,

+# don't have either issetugid() or getresuid(), and you need to protect

+# clients that are setgid or setuid to an id other than 0.

+AC_MSG_CHECKING([if XLOCALEDIR support should be enabled])

+AC_ARG_ENABLE(xlocaledir,

+	      AS_HELP_STRING([--enable-xlocaledir],

+		[Enable XLOCALEDIR environment variable support]),

+	      [ENABLE_XLOCALEDIR=$enableval],[ENABLE_XLOCALEDIR=$XLOCALEDIR_IS_SAFE])

+if test "x$ENABLE_XLOCALEDIR" = "xno"; then

+	AC_DEFINE(NO_XLOCALEDIR,1,[Disable XLOCALEDIR environment variable])

+fi

+AC_MSG_RESULT($ENABLE_XLOCALEDIR)

+

+AC_ARG_ENABLE(xf86bigfont,

+	      AS_HELP_STRING([--disable-xf86bigfont],

+		[Disable XF86BigFont extension support]),

+	      [XF86BIGFONT=$enableval],[XF86BIGFONT="yes"])

+if test "x$XF86BIGFONT" = "xyes"; then

+    PKG_CHECK_MODULES(BIGFONT, [xf86bigfontproto >= 1.2.0],

+         AC_DEFINE(XF86BIGFONT,1,[Enable XF86BIGFONT extension]),XF86BIGFONT="no")

+fi

+

+AC_ARG_ENABLE(xkb,

+              AS_HELP_STRING([--disable-xkb],

+                [Disable XKB support *EXPERIMENTAL*]),

+              [XKB=$enableval],[XKB=yes])

+

+AM_CONDITIONAL(XKB, [ test x$XKB = xyes ])

+if test x"$XKB" = "xyes"; then

+   XKBPROTO_REQUIRES="kbproto"

+   X11_REQUIRES="${X11_REQUIRES} kbproto inputproto"

+   AC_DEFINE(XKB,1,[Use XKB])

+else

+   XKBPROTO_REQUIRES=""

+fi

+AC_SUBST(XKBPROTO_REQUIRES)

+

+AC_FUNC_MMAP()

+composecache_default=$ac_cv_func_mmap_fixed_mapped

+AC_CHECK_FUNC(nl_langinfo, , [composecache_default=no])

+AC_ARG_ENABLE(composecache,

+              AS_HELP_STRING([--disable-composecache],

+                [Disable compose table cache support]),

+              [COMPOSECACHE=$enableval],[COMPOSECACHE=$composecache_default])

+if test x"$COMPOSECACHE" = "xyes"; then

+	AC_DEFINE(COMPOSECACHE,1,[Include compose table cache support])

+fi

+

+# Allow checking code with lint, sparse, etc.

+XORG_WITH_LINT

+XORG_LINT_LIBRARY([X11])

+

+X11_DATADIR="${datadir}/X11"

+AX_DEFINE_DIR(X11_DATADIR, X11_DATADIR, [Location of libX11 data])

+AC_SUBST(X11_DATADIR)

+

+X11_LIBDIR="${libdir}/X11"

+AX_DEFINE_DIR(X11_LIBDIR, X11_LIBDIR, [Location of libX11 library data])

+AC_SUBST(X11_LIBDIR)

+

+PKG_CHECK_MODULES(X11, [$X11_REQUIRES])

+X11_CFLAGS="$X11_CFLAGS $XTHREAD_CFLAGS"

+

+#

+# Yes, it would be nice to put the locale data in

+# /usr/share, but the locale stuff includes loadable

+# libraries which must be located in the same directory

+# as the other locale data, so for now, everything lives

+# in ${libdir}

+#

+

+X11_LOCALEDATADIR="${X11_DATADIR}/locale"

+AX_DEFINE_DIR(XLOCALEDATADIR, X11_LOCALEDATADIR, [Location of libX11 locale data])

+AC_SUBST(X11_LOCALEDATADIR)

+

+AC_ARG_WITH(locale-lib-dir,	AS_HELP_STRING([--with-locale-lib-dir=DIR],

+ [Directory where locale libraries files are installed (default: $libdir/X11/locale)]),

+				[ X11_LOCALELIBDIR="$withval" ],

+				[ X11_LOCALELIBDIR="${X11_LIBDIR}/locale" ])

+AX_DEFINE_DIR(XLOCALELIBDIR, X11_LOCALELIBDIR, [Location of libX11 locale libraries])

+AC_SUBST(X11_LOCALELIBDIR)

+

+X11_LOCALEDIR="${X11_LOCALEDATADIR}"

+AX_DEFINE_DIR(XLOCALEDIR, X11_LOCALEDIR, [Location of libX11 locale data])

+AC_SUBST(X11_LOCALEDIR)

+

+XKEYSYMDB="${X11_DATADIR}/XKeysymDB"

+AX_DEFINE_DIR(XKEYSYMDB, XKEYSYMDB, [Location of keysym database])

+

+XERRORDB="${X11_DATADIR}/XErrorDB"

+AX_DEFINE_DIR(XERRORDB, XERRORDB, [Location of error message database])

+

+XORG_CHECK_MALLOC_ZERO

+

+AC_CONFIG_FILES([Makefile

+		include/Makefile

+		man/Makefile

+		man/xkb/Makefile

+		src/Makefile

+		src/util/Makefile

+		src/xcms/Makefile

+		src/xlibi18n/Makefile

+		modules/Makefile

+		modules/im/Makefile

+		modules/im/ximcp/Makefile

+		modules/lc/Makefile

+		modules/lc/def/Makefile

+		modules/lc/gen/Makefile

+		modules/lc/Utf8/Makefile

+		modules/lc/xlocale/Makefile

+		modules/om/Makefile

+		modules/om/generic/Makefile

+		src/xkb/Makefile

+		nls/Makefile

+		specs/Makefile

+		specs/i18n/Makefile

+		specs/i18n/framework/Makefile

+		specs/i18n/localedb/Makefile

+		specs/i18n/trans/Makefile

+		specs/libX11/Makefile

+		specs/XIM/Makefile

+		specs/XKB/Makefile

+		x11.pc

+		x11-xcb.pc])

+AC_OUTPUT

+

+echo ""

+echo "X11 will be built with the following settings:"

+echo " Loadable i18n module support:            "$XLIB_LOADABLE_I18N

+echo " Loadable xcursor library support:        "$XLIB_LOADABLE_XCURSOR

+echo " Threading support:                       "$xthreads

+echo " Use Threads safe API:                    "$mtsafeapi

+echo " Threads stubs in libX11:                 "$thrstubs

+echo " XCMS:                                    "$XCMS

+echo " Internationalization support:            "$XLOCALE

+echo " XF86BigFont support:                     "$XF86BIGFONT

+echo " XKB support:                             "$XKB

+echo " XLOCALEDIR environment variable support: "$ENABLE_XLOCALEDIR

+echo " Compose table cache enabled:             "$COMPOSECACHE

+echo " Functional specs building enabled:       "$build_specs

+echo ""

diff --git a/libX11/cpprules.mak b/libX11/cpprules.mak
new file mode 100644
index 000000000..9f485ac0d
--- /dev/null
+++ b/libX11/cpprules.mak
@@ -0,0 +1,19 @@
+

+ifdef x11thislocaledir

+

+$(x11thislocaledir)\%: %.pre

+	cl /nologo /EP $< -DXCOMM\#\# > $@

+

+$(x11thislocaledir):

+	$(CREATEDIR)

+

+all: $(x11thislocaledir)

+endif

+

+$(eval $(locales:%=$(X11_LOCALEDATADIR)\%\XLC_LOCALE : %\XLC_LOCALE.pre$n	cl /nologo /EP $$< -DXCOMM\#\# > $$@$n))

+

+$(eval $(locales:%=$(X11_LOCALEDATADIR)\%\Compose : %\Compose.pre$n	cl /nologo /EP $$< -DXCOMM\#\# > $$@$n))

+

+$(eval $(locales:%=$(X11_LOCALEDATADIR)\%\XI18N_OBJS : $(X11_LOCALEDATADIR)\% %\XI18N_OBJS$n	copy %\XI18N_OBJS $$@$n))

+

+$(eval $(locales:%=$(X11_LOCALEDATADIR)\% :$n	mkdir $$@$n ))

diff --git a/libX11/docbook.am b/libX11/docbook.am
index 693708351..94602521b 100644
--- a/libX11/docbook.am
+++ b/libX11/docbook.am
@@ -1,97 +1,97 @@
-#
-# Generate output formats for a single DocBook/XML with/without chapters
-#
-# Variables set by the calling Makefile:
-# shelfdir: the location where the docs/specs are installed. Typically $(docdir)
-# docbook:  the main DocBook/XML file, no chapters, appendix or image files
-# chapters: all files pulled in by an XInclude statement and images.
-#
-
-#
-# This makefile is intended for Users Documentation and Functional Specifications.
-# Do not use for Developer Documentation which is not installed and does not require olink.
-# Refer to http://www.x.org/releases/X11R7.6/doc/xorg-docs/ReleaseNotes.html#id2584393
-# for an explanation on documents classification.
-#
-
-# DocBook/XML generated output formats to be installed
-shelf_DATA =
-
-# DocBook/XML file with chapters, appendix and images it includes
-dist_shelf_DATA = $(docbook) $(chapters)
-
-if HAVE_XMLTO
-#
-# Generate DocBook/XML output formats with or without stylesheets
-#
-
-# Stylesheets are available if the package xorg-sgml-doctools is installed
-if HAVE_STYLESHEETS
-
-# The location where all cross reference databases are installed
-sgmldbsdir = $(XORG_SGML_PATH)/X11/dbs
-masterdb = "$(sgmldbsdir)/masterdb$(suffix $@).xml"
-XMLTO_FLAGS =							\
-	--searchpath "$(XORG_SGML_PATH)/X11"			\
-	--stringparam target.database.document=$(masterdb)	\
-	--stringparam current.docid="$(<:.xml=)"		\
-	--stringparam collect.xref.targets="no"
-
-XMLTO_XHTML_FLAGS = \
-	-x $(STYLESHEET_SRCDIR)/xorg-xhtml.xsl \
-	--stringparam html.stylesheet=$(STYLESHEET_SRCDIR)/xorg.css
-
-XMLTO_FO_FLAGS = \
-	-x $(STYLESHEET_SRCDIR)/xorg-fo.xsl
-endif HAVE_STYLESHEETS
-
-shelf_DATA += $(docbook:.xml=.html)
-%.html: %.xml  $(chapters)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_XHTML_FLAGS) xhtml-nochunks $<
-
-if HAVE_FOP
-shelf_DATA += $(docbook:.xml=.pdf) $(docbook:.xml=.ps)
-%.pdf: %.xml $(chapters)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_FO_FLAGS) --with-fop pdf $<
-%.ps: %.xml $(chapters)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_FO_FLAGS) --with-fop ps $<
-endif HAVE_FOP
-
-if HAVE_XMLTO_TEXT
-shelf_DATA += $(docbook:.xml=.txt)
-%.txt: %.xml $(chapters)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_XHTML_FLAGS) txt $<
-endif HAVE_XMLTO_TEXT
-
-#
-# Generate documents cross-reference target databases
-#
-
-# This is only possible if the xorg-sgml-doctools package is installed
-if HAVE_STYLESHEETS
-if HAVE_XSLTPROC
-
-# DocBook/XML generated document cross-reference database
-sgmldbs_DATA = $(docbook:.xml=.html.db) $(docbook:.xml=.fo.db)
-
-# Generate DocBook/XML document cross-reference database
-# Flags for the XSL Transformation processor generating xref target databases
-XSLTPROC_FLAGS =					\
-	--path "$(XORG_SGML_PATH)/X11"			\
-	--stringparam targets.filename "$@"		\
-	--stringparam collect.xref.targets "only"	\
-	--nonet --xinclude
-
-%.html.db: %.xml  $(chapters)
-	$(AM_V_GEN)$(XSLTPROC) $(XSLTPROC_FLAGS) \
-	http://docbook.sourceforge.net/release/xsl/current/xhtml/docbook.xsl $<
-
-%.fo.db: %.xml $(chapters)
-	$(AM_V_GEN)$(XSLTPROC) $(XSLTPROC_FLAGS) \
-	http://docbook.sourceforge.net/release/xsl/current/fo/docbook.xsl $<
-
-endif HAVE_XSLTPROC
-endif HAVE_STYLESHEETS
-endif HAVE_XMLTO
-
-CLEANFILES = $(shelf_DATA) $(sgmldbs_DATA)
+#

+# Generate output formats for a single DocBook/XML with/without chapters

+#

+# Variables set by the calling Makefile:

+# shelfdir: the location where the docs/specs are installed. Typically $(docdir)

+# docbook:  the main DocBook/XML file, no chapters, appendix or image files

+# chapters: all files pulled in by an XInclude statement and images.

+#

+

+#

+# This makefile is intended for Users Documentation and Functional Specifications.

+# Do not use for Developer Documentation which is not installed and does not require olink.

+# Refer to http://www.x.org/releases/X11R7.6/doc/xorg-docs/ReleaseNotes.html#id2584393

+# for an explanation on documents classification.

+#

+

+# DocBook/XML generated output formats to be installed

+shelf_DATA =

+

+# DocBook/XML file with chapters, appendix and images it includes

+dist_shelf_DATA = $(docbook) $(chapters)

+

+if HAVE_XMLTO

+#

+# Generate DocBook/XML output formats with or without stylesheets

+#

+

+# Stylesheets are available if the package xorg-sgml-doctools is installed

+if HAVE_STYLESHEETS

+

+# The location where all cross reference databases are installed

+sgmldbsdir = $(XORG_SGML_PATH)/X11/dbs

+masterdb = "$(sgmldbsdir)/masterdb$(suffix $@).xml"

+XMLTO_FLAGS =							\

+	--searchpath "$(XORG_SGML_PATH)/X11"			\

+	--stringparam target.database.document=$(masterdb)	\

+	--stringparam current.docid="$(<:.xml=)"		\

+	--stringparam collect.xref.targets="no"

+

+XMLTO_XHTML_FLAGS = \

+	-x $(STYLESHEET_SRCDIR)/xorg-xhtml.xsl \

+	--stringparam html.stylesheet=$(STYLESHEET_SRCDIR)/xorg.css

+

+XMLTO_FO_FLAGS = \

+	-x $(STYLESHEET_SRCDIR)/xorg-fo.xsl

+endif HAVE_STYLESHEETS

+

+shelf_DATA += $(docbook:.xml=.html)

+%.html: %.xml  $(chapters)

+	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_XHTML_FLAGS) xhtml-nochunks $<

+

+if HAVE_FOP

+shelf_DATA += $(docbook:.xml=.pdf) $(docbook:.xml=.ps)

+%.pdf: %.xml $(chapters)

+	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_FO_FLAGS) --with-fop pdf $<

+%.ps: %.xml $(chapters)

+	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_FO_FLAGS) --with-fop ps $<

+endif HAVE_FOP

+

+if HAVE_XMLTO_TEXT

+shelf_DATA += $(docbook:.xml=.txt)

+%.txt: %.xml $(chapters)

+	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) $(XMLTO_XHTML_FLAGS) txt $<

+endif HAVE_XMLTO_TEXT

+

+#

+# Generate documents cross-reference target databases

+#

+

+# This is only possible if the xorg-sgml-doctools package is installed

+if HAVE_STYLESHEETS

+if HAVE_XSLTPROC

+

+# DocBook/XML generated document cross-reference database

+sgmldbs_DATA = $(docbook:.xml=.html.db) $(docbook:.xml=.fo.db)

+

+# Generate DocBook/XML document cross-reference database

+# Flags for the XSL Transformation processor generating xref target databases

+XSLTPROC_FLAGS =					\

+	--path "$(XORG_SGML_PATH)/X11"			\

+	--stringparam targets.filename "$@"		\

+	--stringparam collect.xref.targets "only"	\

+	--nonet --xinclude

+

+%.html.db: %.xml  $(chapters)

+	$(AM_V_GEN)$(XSLTPROC) $(XSLTPROC_FLAGS) \

+	http://docbook.sourceforge.net/release/xsl/current/xhtml/docbook.xsl $<

+

+%.fo.db: %.xml $(chapters)

+	$(AM_V_GEN)$(XSLTPROC) $(XSLTPROC_FLAGS) \

+	http://docbook.sourceforge.net/release/xsl/current/fo/docbook.xsl $<

+

+endif HAVE_XSLTPROC

+endif HAVE_STYLESHEETS

+endif HAVE_XMLTO

+

+CLEANFILES = $(shelf_DATA) $(sgmldbs_DATA)

diff --git a/libX11/include/X11/Xlib.h b/libX11/include/X11/Xlib.h
index 5c6c77077..b32390894 100644
--- a/libX11/include/X11/Xlib.h
+++ b/libX11/include/X11/Xlib.h
@@ -83,8 +83,8 @@ _Xmblen(
 
 typedef char *XPointer;
 
-#define Bool int
-#define Status int
+typedef int Bool;
+typedef int Status;
 #define True 1
 #define False 0
 
diff --git a/libX11/include/X11/Xlibint.h b/libX11/include/X11/Xlibint.h
index ce3d25fab..0a4f75df8 100644
--- a/libX11/include/X11/Xlibint.h
+++ b/libX11/include/X11/Xlibint.h
@@ -1,1402 +1,1402 @@
-
-/*
-
-Copyright 1984, 1985, 1987, 1989, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-#ifndef _X11_XLIBINT_H_
-#define _X11_XLIBINT_H_ 1
-
-/*
- *	Xlibint.h - Header definition and support file for the internal
- *	support routines used by the C subroutine interface
- *	library (Xlib) to the X Window System.
- *
- *	Warning, there be dragons here....
- */
-
-#include <X11/Xlib.h>
-#include <X11/Xproto.h>		/* to declare xEvent */
-#include <X11/XlibConf.h>	/* for configured options like XTHREADS */
-
-#ifdef WIN32
-#define _XFlush _XFlushIt
-#endif
-
-/*
- * If your BytesReadable correctly detects broken connections, then
- * you should NOT define XCONN_CHECK_FREQ.
- */
-#ifndef XCONN_CHECK_FREQ
-#define XCONN_CHECK_FREQ 256
-#endif
-
-struct _XGC
-{
-    XExtData *ext_data;	/* hook for extension to hang data */
-    GContext gid;	/* protocol ID for graphics context */
-    Bool rects;		/* boolean: TRUE if clipmask is list of rectangles */
-    Bool dashes;	/* boolean: TRUE if dash-list is really a list */
-    unsigned long dirty;/* cache dirty bits */
-    XGCValues values;	/* shadow structure of values */
-};
-
-struct _XDisplay
-{
-	XExtData *ext_data;	/* hook for extension to hang data */
-	struct _XFreeFuncs *free_funcs; /* internal free functions */
-	int fd;			/* Network socket. */
-	int conn_checker;         /* ugly thing used by _XEventsQueued */
-	int proto_major_version;/* maj. version of server's X protocol */
-	int proto_minor_version;/* minor version of server's X protocol */
-	char *vendor;		/* vendor of the server hardware */
-        XID resource_base;	/* resource ID base */
-	XID resource_mask;	/* resource ID mask bits */
-	XID resource_id;	/* allocator current ID */
-	int resource_shift;	/* allocator shift to correct bits */
-	XID (*resource_alloc)(	/* allocator function */
-		struct _XDisplay*
-		);
-	int byte_order;		/* screen byte order, LSBFirst, MSBFirst */
-	int bitmap_unit;	/* padding and data requirements */
-	int bitmap_pad;		/* padding requirements on bitmaps */
-	int bitmap_bit_order;	/* LeastSignificant or MostSignificant */
-	int nformats;		/* number of pixmap formats in list */
-	ScreenFormat *pixmap_format;	/* pixmap format list */
-	int vnumber;		/* Xlib's X protocol version number. */
-	int release;		/* release of the server */
-	struct _XSQEvent *head, *tail;	/* Input event queue. */
-	int qlen;		/* Length of input event queue */
-	unsigned long last_request_read; /* seq number of last event read */
-	unsigned long request;	/* sequence number of last request. */
-	char *last_req;		/* beginning of last request, or dummy */
-	char *buffer;		/* Output buffer starting address. */
-	char *bufptr;		/* Output buffer index pointer. */
-	char *bufmax;		/* Output buffer maximum+1 address. */
-	unsigned max_request_size; /* maximum number 32 bit words in request*/
-	struct _XrmHashBucketRec *db;
-	int (*synchandler)(	/* Synchronization handler */
-		struct _XDisplay*
-		);
-	char *display_name;	/* "host:display" string used on this connect*/
-	int default_screen;	/* default screen for operations */
-	int nscreens;		/* number of screens on this server*/
-	Screen *screens;	/* pointer to list of screens */
-	unsigned long motion_buffer;	/* size of motion buffer */
-	volatile unsigned long flags;	   /* internal connection flags */
-	int min_keycode;	/* minimum defined keycode */
-	int max_keycode;	/* maximum defined keycode */
-	KeySym *keysyms;	/* This server's keysyms */
-	XModifierKeymap *modifiermap;	/* This server's modifier keymap */
-	int keysyms_per_keycode;/* number of rows */
-	char *xdefaults;	/* contents of defaults from server */
-	char *scratch_buffer;	/* place to hang scratch buffer */
-	unsigned long scratch_length;	/* length of scratch buffer */
-	int ext_number;		/* extension number on this display */
-	struct _XExten *ext_procs; /* extensions initialized on this display */
-	/*
-	 * the following can be fixed size, as the protocol defines how
-	 * much address space is available.
-	 * While this could be done using the extension vector, there
-	 * may be MANY events processed, so a search through the extension
-	 * list to find the right procedure for each event might be
-	 * expensive if many extensions are being used.
-	 */
-	Bool (*event_vec[128])(	/* vector for wire to event */
-		Display *	/* dpy */,
-		XEvent *	/* re */,
-		xEvent *	/* event */
-		);
-	Status (*wire_vec[128])( /* vector for event to wire */
-		Display *	/* dpy */,
-		XEvent *	/* re */,
-		xEvent *	/* event */
-		);
-	KeySym lock_meaning;	   /* for XLookupString */
-	struct _XLockInfo *lock;   /* multi-thread state, display lock */
-	struct _XInternalAsync *async_handlers; /* for internal async */
-	unsigned long bigreq_size; /* max size of big requests */
-	struct _XLockPtrs *lock_fns; /* pointers to threads functions */
-	void (*idlist_alloc)(	   /* XID list allocator function */
-		Display *	/* dpy */,
-		XID *		/* ids */,
-		int		/* count */
-		);
-	/* things above this line should not move, for binary compatibility */
-	struct _XKeytrans *key_bindings; /* for XLookupString */
-	Font cursor_font;	   /* for XCreateFontCursor */
-	struct _XDisplayAtoms *atoms; /* for XInternAtom */
-	unsigned int mode_switch;  /* keyboard group modifiers */
-	unsigned int num_lock;  /* keyboard numlock modifiers */
-	struct _XContextDB *context_db; /* context database */
-	Bool (**error_vec)(	/* vector for wire to error */
-		Display     *	/* display */,
-		XErrorEvent *	/* he */,
-		xError      *	/* we */
-		);
-	/*
-	 * Xcms information
-	 */
-	struct {
-	   XPointer defaultCCCs;  /* pointer to an array of default XcmsCCC */
-	   XPointer clientCmaps;  /* pointer to linked list of XcmsCmapRec */
-	   XPointer perVisualIntensityMaps;
-				  /* linked list of XcmsIntensityMap */
-	} cms;
-	struct _XIMFilter *im_filters;
-	struct _XSQEvent *qfree; /* unallocated event queue elements */
-	unsigned long next_event_serial_num; /* inserted into next queue elt */
-	struct _XExten *flushes; /* Flush hooks */
-	struct _XConnectionInfo *im_fd_info; /* _XRegisterInternalConnection */
-	int im_fd_length;	/* number of im_fd_info */
-	struct _XConnWatchInfo *conn_watchers; /* XAddConnectionWatch */
-	int watcher_count;	/* number of conn_watchers */
-	XPointer filedes;	/* struct pollfd cache for _XWaitForReadable */
-	int (*savedsynchandler)( /* user synchandler when Xlib usurps */
-		Display *	/* dpy */
-		);
-	XID resource_max;	/* allocator max ID */
-	int xcmisc_opcode;	/* major opcode for XC-MISC */
-	struct _XkbInfoRec *xkb_info; /* XKB info */
-	struct _XtransConnInfo *trans_conn; /* transport connection object */
-	struct _X11XCBPrivate *xcb; /* XCB glue private data */
-
-	/* Generic event cookie handling */
-	unsigned int next_cookie; /* next event cookie */
-	/* vector for wire to generic event, index is (extension - 128) */
-	Bool (*generic_event_vec[128])(
-		Display *	/* dpy */,
-		XGenericEventCookie *	/* Xlib event */,
-		xEvent *	/* wire event */);
-	/* vector for event copy, index is (extension - 128) */
-	Bool (*generic_event_copy_vec[128])(
-		Display *	/* dpy */,
-		XGenericEventCookie *	/* in */,
-		XGenericEventCookie *   /* out*/);
-	void *cookiejar;  /* cookie events returned but not claimed */
-};
-
-#define XAllocIDs(dpy,ids,n) (*(dpy)->idlist_alloc)(dpy,ids,n)
-
-/*
- * define the following if you want the Data macro to be a procedure instead
- */
-#ifdef CRAY
-#define DataRoutineIsProcedure
-#endif /* CRAY */
-
-#ifndef _XEVENT_
-/*
- * _QEvent datatype for use in input queueing.
- */
-typedef struct _XSQEvent
-{
-    struct _XSQEvent *next;
-    XEvent event;
-    unsigned long qserial_num;	/* so multi-threaded code can find new ones */
-} _XQEvent;
-#endif
-
-#include <X11/Xproto.h>
-#ifdef __sgi
-#define _SGI_MP_SOURCE  /* turn this on to get MP safe errno */
-#endif
-#include <errno.h>
-#define _XBCOPYFUNC _Xbcopy
-#include <X11/Xfuncs.h>
-#include <X11/Xosdefs.h>
-
-/* Utek leaves kernel macros around in include files (bleah) */
-#ifdef dirty
-#undef dirty
-#endif
-
-#include <stdlib.h>
-#include <string.h>
-
-#include <X11/Xfuncproto.h>
-
-_XFUNCPROTOBEGIN
-
-/*
- * The following definitions can be used for locking requests in multi-threaded
- * address spaces.
- */
-#ifdef XTHREADS
-/* Author: Stephen Gildea, MIT X Consortium
- *
- * declarations for C Threads locking
- */
-
-typedef struct _LockInfoRec *LockInfoPtr;
-
-/* interfaces for locking.c */
-struct _XLockPtrs {
-    /* used by all, including extensions; do not move */
-    void (*lock_display)(
-		Display *dpy
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-		, char *file
-		, int line
-#endif
-	);
-    void (*unlock_display)(
-		Display *dpy
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-		, char *file
-		, int line
-#endif
-	);
-};
-
-#if defined(WIN32) && !defined(_XLIBINT_)
-#define _XCreateMutex_fn (*_XCreateMutex_fn_p)
-#define _XFreeMutex_fn (*_XFreeMutex_fn_p)
-#define _XLockMutex_fn (*_XLockMutex_fn_p)
-#define _XUnlockMutex_fn (*_XUnlockMutex_fn_p)
-#define _Xglobal_lock (*_Xglobal_lock_p)
-#endif
-
-/* in XlibInt.c */
-extern void (*_XCreateMutex_fn)(
-    LockInfoPtr /* lock */
-);
-extern void (*_XFreeMutex_fn)(
-    LockInfoPtr /* lock */
-);
-extern void (*_XLockMutex_fn)(
-    LockInfoPtr	/* lock */
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-);
-extern void (*_XUnlockMutex_fn)(
-    LockInfoPtr	/* lock */
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-);
-
-extern LockInfoPtr _Xglobal_lock;
-
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-#define LockDisplay(d)	     if ((d)->lock_fns) (*(d)->lock_fns->lock_display)((d),__FILE__,__LINE__)
-#define UnlockDisplay(d)     if ((d)->lock_fns) (*(d)->lock_fns->unlock_display)((d),__FILE__,__LINE__)
-#define _XLockMutex(lock)		if (_XLockMutex_fn) (*_XLockMutex_fn)(lock,__FILE__,__LINE__)
-#define _XUnlockMutex(lock)	if (_XUnlockMutex_fn) (*_XUnlockMutex_fn)(lock,__FILE__,__LINE__)
-#else
-/* used everywhere, so must be fast if not using threads */
-#define LockDisplay(d)	     if ((d)->lock_fns) (*(d)->lock_fns->lock_display)(d)
-#define UnlockDisplay(d)     if ((d)->lock_fns) (*(d)->lock_fns->unlock_display)(d)
-#define _XLockMutex(lock)		if (_XLockMutex_fn) (*_XLockMutex_fn)(lock)
-#define _XUnlockMutex(lock)	if (_XUnlockMutex_fn) (*_XUnlockMutex_fn)(lock)
-#endif
-#define _XCreateMutex(lock)	if (_XCreateMutex_fn) (*_XCreateMutex_fn)(lock);
-#define _XFreeMutex(lock)	if (_XFreeMutex_fn) (*_XFreeMutex_fn)(lock);
-
-#else /* XTHREADS */
-#define LockDisplay(dis)
-#define _XLockMutex(lock)
-#define _XUnlockMutex(lock)
-#define UnlockDisplay(dis)
-#define _XCreateMutex(lock)
-#define _XFreeMutex(lock)
-#endif
-
-#define Xfree(ptr) free((ptr))
-
-/*
- * Note that some machines do not return a valid pointer for malloc(0), in
- * which case we provide an alternate under the control of the
- * define MALLOC_0_RETURNS_NULL.  This is necessary because some
- * Xlib code expects malloc(0) to return a valid pointer to storage.
- */
-#if defined(MALLOC_0_RETURNS_NULL) || defined(__clang_analyzer__)
-
-# define Xmalloc(size) malloc(((size) == 0 ? 1 : (size)))
-# define Xrealloc(ptr, size) realloc((ptr), ((size) == 0 ? 1 : (size)))
-# define Xcalloc(nelem, elsize) calloc(((nelem) == 0 ? 1 : (nelem)), (elsize))
-
-#else
-
-# define Xmalloc(size) malloc((size))
-# define Xrealloc(ptr, size) realloc((ptr), (size))
-# define Xcalloc(nelem, elsize) calloc((nelem), (elsize))
-
-#endif
-
-#include <stddef.h>
-
-#define LOCKED 1
-#define UNLOCKED 0
-
-#ifndef BUFSIZE
-#define BUFSIZE 2048			/* X output buffer size. */
-#endif
-#ifndef PTSPERBATCH
-#define PTSPERBATCH 1024		/* point batching */
-#endif
-#ifndef WLNSPERBATCH
-#define WLNSPERBATCH 50			/* wide line batching */
-#endif
-#ifndef ZLNSPERBATCH
-#define ZLNSPERBATCH 1024		/* thin line batching */
-#endif
-#ifndef WRCTSPERBATCH
-#define WRCTSPERBATCH 10		/* wide line rectangle batching */
-#endif
-#ifndef ZRCTSPERBATCH
-#define ZRCTSPERBATCH 256		/* thin line rectangle batching */
-#endif
-#ifndef FRCTSPERBATCH
-#define FRCTSPERBATCH 256		/* filled rectangle batching */
-#endif
-#ifndef FARCSPERBATCH
-#define FARCSPERBATCH 256		/* filled arc batching */
-#endif
-#ifndef CURSORFONT
-#define CURSORFONT "cursor"		/* standard cursor fonts */
-#endif
-
-/*
- * Display flags
- */
-#define XlibDisplayIOError	(1L << 0)
-#define XlibDisplayClosing	(1L << 1)
-#define XlibDisplayNoXkb	(1L << 2)
-#define XlibDisplayPrivSync	(1L << 3)
-#define XlibDisplayProcConni	(1L << 4) /* in _XProcessInternalConnection */
-#define XlibDisplayReadEvents	(1L << 5) /* in _XReadEvents */
-#define XlibDisplayReply	(1L << 5) /* in _XReply */
-#define XlibDisplayWriting	(1L << 6) /* in _XFlushInt, _XSend */
-#define XlibDisplayDfltRMDB     (1L << 7) /* mark if RM db from XGetDefault */
-
-/*
- * X Protocol packetizing macros.
- */
-
-/*   Need to start requests on 64 bit word boundaries
- *   on a CRAY computer so add a NoOp (127) if needed.
- *   A character pointer on a CRAY computer will be non-zero
- *   after shifting right 61 bits of it is not pointing to
- *   a word boundary.
- */
-#ifdef WORD64
-#define WORD64ALIGN if ((long)dpy->bufptr >> 61) {\
-           dpy->last_req = dpy->bufptr;\
-           *(dpy->bufptr)   = X_NoOperation;\
-           *(dpy->bufptr+1) =  0;\
-           *(dpy->bufptr+2) =  0;\
-           *(dpy->bufptr+3) =  1;\
-             dpy->request++;\
-             dpy->bufptr += 4;\
-         }
-#else /* else does not require alignment on 64-bit boundaries */
-#define WORD64ALIGN
-#endif /* WORD64 */
-
-
-/*
- * GetReq - Get the next available X request packet in the buffer and
- * return it.
- *
- * "name" is the name of the request, e.g. CreatePixmap, OpenFont, etc.
- * "req" is the name of the request pointer.
- *
- */
-
-#if !defined(UNIXCPP) || defined(ANSICPP)
-#define GetReq(name, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(x##name##Req)) > dpy->bufmax)\
-		_XFlush(dpy);\
-	req = (x##name##Req *)(dpy->last_req = dpy->bufptr);\
-	req->reqType = X_##name;\
-	req->length = (SIZEOF(x##name##Req))>>2;\
-	dpy->bufptr += SIZEOF(x##name##Req);\
-	dpy->request++
-
-#else  /* non-ANSI C uses empty comment instead of "##" for token concatenation */
-#define GetReq(name, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(x/**/name/**/Req)) > dpy->bufmax)\
-		_XFlush(dpy);\
-	req = (x/**/name/**/Req *)(dpy->last_req = dpy->bufptr);\
-	req->reqType = X_/**/name;\
-	req->length = (SIZEOF(x/**/name/**/Req))>>2;\
-	dpy->bufptr += SIZEOF(x/**/name/**/Req);\
-	dpy->request++
-#endif
-
-/* GetReqExtra is the same as GetReq, but allocates "n" additional
-   bytes after the request. "n" must be a multiple of 4!  */
-
-#if !defined(UNIXCPP) || defined(ANSICPP)
-#define GetReqExtra(name, n, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(x##name##Req) + n) > dpy->bufmax)\
-		_XFlush(dpy);\
-	req = (x##name##Req *)(dpy->last_req = dpy->bufptr);\
-	req->reqType = X_##name;\
-	req->length = (SIZEOF(x##name##Req) + n)>>2;\
-	dpy->bufptr += SIZEOF(x##name##Req) + n;\
-	dpy->request++
-#else
-#define GetReqExtra(name, n, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(x/**/name/**/Req) + n) > dpy->bufmax)\
-		_XFlush(dpy);\
-	req = (x/**/name/**/Req *)(dpy->last_req = dpy->bufptr);\
-	req->reqType = X_/**/name;\
-	req->length = (SIZEOF(x/**/name/**/Req) + n)>>2;\
-	dpy->bufptr += SIZEOF(x/**/name/**/Req) + n;\
-	dpy->request++
-#endif
-
-
-/*
- * GetResReq is for those requests that have a resource ID
- * (Window, Pixmap, GContext, etc.) as their single argument.
- * "rid" is the name of the resource.
- */
-
-#if !defined(UNIXCPP) || defined(ANSICPP)
-#define GetResReq(name, rid, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(xResourceReq)) > dpy->bufmax)\
-	    _XFlush(dpy);\
-	req = (xResourceReq *) (dpy->last_req = dpy->bufptr);\
-	req->reqType = X_##name;\
-	req->length = 2;\
-	req->id = (rid);\
-	dpy->bufptr += SIZEOF(xResourceReq);\
-	dpy->request++
-#else
-#define GetResReq(name, rid, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(xResourceReq)) > dpy->bufmax)\
-	    _XFlush(dpy);\
-	req = (xResourceReq *) (dpy->last_req = dpy->bufptr);\
-	req->reqType = X_/**/name;\
-	req->length = 2;\
-	req->id = (rid);\
-	dpy->bufptr += SIZEOF(xResourceReq);\
-	dpy->request++
-#endif
-
-/*
- * GetEmptyReq is for those requests that have no arguments
- * at all.
- */
-#if !defined(UNIXCPP) || defined(ANSICPP)
-#define GetEmptyReq(name, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(xReq)) > dpy->bufmax)\
-	    _XFlush(dpy);\
-	req = (xReq *) (dpy->last_req = dpy->bufptr);\
-	req->reqType = X_##name;\
-	req->length = 1;\
-	dpy->bufptr += SIZEOF(xReq);\
-	dpy->request++
-#else
-#define GetEmptyReq(name, req) \
-        WORD64ALIGN\
-	if ((dpy->bufptr + SIZEOF(xReq)) > dpy->bufmax)\
-	    _XFlush(dpy);\
-	req = (xReq *) (dpy->last_req = dpy->bufptr);\
-	req->reqType = X_/**/name;\
-	req->length = 1;\
-	dpy->bufptr += SIZEOF(xReq);\
-	dpy->request++
-#endif
-
-#ifdef WORD64
-#define MakeBigReq(req,n) \
-    { \
-    char _BRdat[4]; \
-    unsigned long _BRlen = req->length - 1; \
-    req->length = 0; \
-    memcpy(_BRdat, ((char *)req) + (_BRlen << 2), 4); \
-    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \
-    memcpy(((char *)req) + 4, _BRdat, 4); \
-    Data32(dpy, (long *)&_BRdat, 4); \
-    }
-#else
-#ifdef LONG64
-#define MakeBigReq(req,n) \
-    { \
-    CARD64 _BRdat; \
-    CARD32 _BRlen = req->length - 1; \
-    req->length = 0; \
-    _BRdat = ((CARD32 *)req)[_BRlen]; \
-    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \
-    ((CARD32 *)req)[1] = _BRlen + n + 2; \
-    Data32(dpy, &_BRdat, 4); \
-    }
-#else
-#define MakeBigReq(req,n) \
-    { \
-    CARD32 _BRdat; \
-    CARD32 _BRlen = req->length - 1; \
-    req->length = 0; \
-    _BRdat = ((CARD32 *)req)[_BRlen]; \
-    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \
-    ((CARD32 *)req)[1] = _BRlen + n + 2; \
-    Data32(dpy, &_BRdat, 4); \
-    }
-#endif
-#endif
-
-#ifndef __clang_analyzer__
-#define SetReqLen(req,n,badlen) \
-    if ((req->length + n) > (unsigned)65535) { \
-	if (dpy->bigreq_size) { \
-	    MakeBigReq(req,n) \
-	} else { \
-	    n = badlen; \
-	    req->length += n; \
-	} \
-    } else \
-	req->length += n
-#else
-#define SetReqLen(req,n,badlen) \
-    req->length += n
-#endif
-
-#define SyncHandle() \
-	if (dpy->synchandler) (*dpy->synchandler)(dpy)
-
-extern void _XFlushGCCache(Display *dpy, GC gc);
-#define FlushGC(dpy, gc) \
-	if ((gc)->dirty) _XFlushGCCache((dpy), (gc))
-/*
- * Data - Place data in the buffer and pad the end to provide
- * 32 bit word alignment.  Transmit if the buffer fills.
- *
- * "dpy" is a pointer to a Display.
- * "data" is a pinter to a data buffer.
- * "len" is the length of the data buffer.
- */
-#ifndef DataRoutineIsProcedure
-#define Data(dpy, data, len) {\
-	if (dpy->bufptr + (len) <= dpy->bufmax) {\
-		memcpy(dpy->bufptr, data, (int)len);\
-		dpy->bufptr += ((len) + 3) & ~3;\
-	} else\
-		_XSend(dpy, data, len);\
-	}
-#endif /* DataRoutineIsProcedure */
-
-
-/* Allocate bytes from the buffer.  No padding is done, so if
- * the length is not a multiple of 4, the caller must be
- * careful to leave the buffer aligned after sending the
- * current request.
- *
- * "type" is the type of the pointer being assigned to.
- * "ptr" is the pointer being assigned to.
- * "n" is the number of bytes to allocate.
- *
- * Example:
- *    xTextElt *elt;
- *    BufAlloc (xTextElt *, elt, nbytes)
- */
-
-#define BufAlloc(type, ptr, n) \
-    if (dpy->bufptr + (n) > dpy->bufmax) \
-        _XFlush (dpy); \
-    ptr = (type) dpy->bufptr; \
-    memset(ptr, '\0', n); \
-    dpy->bufptr += (n);
-
-#ifdef WORD64
-#define Data16(dpy, data, len) _XData16(dpy, (short *)data, len)
-#define Data32(dpy, data, len) _XData32(dpy, (long *)data, len)
-#else
-#define Data16(dpy, data, len) Data((dpy), (char *)(data), (len))
-#define _XRead16Pad(dpy, data, len) _XReadPad((dpy), (char *)(data), (len))
-#define _XRead16(dpy, data, len) _XRead((dpy), (char *)(data), (len))
-#ifdef LONG64
-#define Data32(dpy, data, len) _XData32(dpy, (long *)data, len)
-extern int _XData32(
-	     Display *dpy,
-	     register long *data,
-	     unsigned len
-);
-extern void _XRead32(
-	     Display *dpy,
-	     register long *data,
-	     long len
-);
-#else
-#define Data32(dpy, data, len) Data((dpy), (char *)(data), (len))
-#define _XRead32(dpy, data, len) _XRead((dpy), (char *)(data), (len))
-#endif
-#endif /* not WORD64 */
-
-#define PackData16(dpy,data,len) Data16 (dpy, data, len)
-#define PackData32(dpy,data,len) Data32 (dpy, data, len)
-
-/* Xlib manual is bogus */
-#define PackData(dpy,data,len) PackData16 (dpy, data, len)
-
-#define min(a,b) (((a) < (b)) ? (a) : (b))
-#define max(a,b) (((a) > (b)) ? (a) : (b))
-
-#define CI_NONEXISTCHAR(cs) (((cs)->width == 0) && \
-			     (((cs)->rbearing|(cs)->lbearing| \
-			       (cs)->ascent|(cs)->descent) == 0))
-
-/*
- * CI_GET_CHAR_INFO_1D - return the charinfo struct for the indicated 8bit
- * character.  If the character is in the column and exists, then return the
- * appropriate metrics (note that fonts with common per-character metrics will
- * return min_bounds).  If none of these hold true, try again with the default
- * char.
- */
-#define CI_GET_CHAR_INFO_1D(fs,col,def,cs) \
-{ \
-    cs = def; \
-    if (col >= fs->min_char_or_byte2 && col <= fs->max_char_or_byte2) { \
-	if (fs->per_char == NULL) { \
-	    cs = &fs->min_bounds; \
-	} else { \
-	    cs = &fs->per_char[(col - fs->min_char_or_byte2)]; \
-	    if (CI_NONEXISTCHAR(cs)) cs = def; \
-	} \
-    } \
-}
-
-#define CI_GET_DEFAULT_INFO_1D(fs,cs) \
-  CI_GET_CHAR_INFO_1D (fs, fs->default_char, NULL, cs)
-
-
-
-/*
- * CI_GET_CHAR_INFO_2D - return the charinfo struct for the indicated row and
- * column.  This is used for fonts that have more than row zero.
- */
-#define CI_GET_CHAR_INFO_2D(fs,row,col,def,cs) \
-{ \
-    cs = def; \
-    if (row >= fs->min_byte1 && row <= fs->max_byte1 && \
-	col >= fs->min_char_or_byte2 && col <= fs->max_char_or_byte2) { \
-	if (fs->per_char == NULL) { \
-	    cs = &fs->min_bounds; \
-	} else { \
-	    cs = &fs->per_char[((row - fs->min_byte1) * \
-			        (fs->max_char_or_byte2 - \
-				 fs->min_char_or_byte2 + 1)) + \
-			       (col - fs->min_char_or_byte2)]; \
-	    if (CI_NONEXISTCHAR(cs)) cs = def; \
-        } \
-    } \
-}
-
-#define CI_GET_DEFAULT_INFO_2D(fs,cs) \
-{ \
-    unsigned int r = (fs->default_char >> 8); \
-    unsigned int c = (fs->default_char & 0xff); \
-    CI_GET_CHAR_INFO_2D (fs, r, c, NULL, cs); \
-}
-
-
-#ifdef MUSTCOPY
-
-/* for when 32-bit alignment is not good enough */
-#define OneDataCard32(dpy,dstaddr,srcvar) \
-  { dpy->bufptr -= 4; Data32 (dpy, (char *) &(srcvar), 4); }
-
-#else
-
-/* srcvar must be a variable for large architecture version */
-#define OneDataCard32(dpy,dstaddr,srcvar) \
-  { *(CARD32 *)(dstaddr) = (srcvar); }
-
-#endif /* MUSTCOPY */
-
-typedef struct _XInternalAsync {
-    struct _XInternalAsync *next;
-    /*
-     * handler arguments:
-     * rep is the generic reply that caused this handler
-     * to be invoked.  It must also be passed to _XGetAsyncReply.
-     * buf and len are opaque values that must be passed to
-     * _XGetAsyncReply or _XGetAsyncData.
-     * data is the closure stored in this struct.
-     * The handler returns True iff it handled this reply.
-     */
-    Bool (*handler)(
-		    Display*	/* dpy */,
-		    xReply*	/* rep */,
-		    char*	/* buf */,
-		    int		/* len */,
-		    XPointer	/* data */
-		    );
-    XPointer data;
-} _XAsyncHandler;
-
-typedef struct _XAsyncEState {
-    unsigned long min_sequence_number;
-    unsigned long max_sequence_number;
-    unsigned char error_code;
-    unsigned char major_opcode;
-    unsigned short minor_opcode;
-    unsigned char last_error_received;
-    int error_count;
-} _XAsyncErrorState;
-
-extern void _XDeqAsyncHandler(Display *dpy, _XAsyncHandler *handler);
-#define DeqAsyncHandler(dpy,handler) { \
-    if (dpy->async_handlers == (handler)) \
-	dpy->async_handlers = (handler)->next; \
-    else \
-	_XDeqAsyncHandler(dpy, handler); \
-    }
-
-typedef void (*FreeFuncType) (
-    Display*	/* display */
-);
-
-typedef int (*FreeModmapType) (
-    XModifierKeymap*	/* modmap */
-);
-
-/*
- * This structure is private to the library.
- */
-typedef struct _XFreeFuncs {
-    FreeFuncType atoms;		/* _XFreeAtomTable */
-    FreeModmapType modifiermap;	/* XFreeModifierMap */
-    FreeFuncType key_bindings;	/* _XFreeKeyBindings */
-    FreeFuncType context_db;	/* _XFreeContextDB */
-    FreeFuncType defaultCCCs;	/* _XcmsFreeDefaultCCCs */
-    FreeFuncType clientCmaps;	/* _XcmsFreeClientCmaps */
-    FreeFuncType intensityMaps;	/* _XcmsFreeIntensityMaps */
-    FreeFuncType im_filters;	/* _XFreeIMFilters */
-    FreeFuncType xkb;		/* _XkbFreeInfo */
-} _XFreeFuncRec;
-
-/* types for InitExt.c */
-typedef int (*CreateGCType) (
-    Display*	/* display */,
-    GC		/* gc */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*CopyGCType)(
-    Display*	/* display */,
-    GC		/* gc */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*FlushGCType) (
-    Display*	/* display */,
-    GC		/* gc */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*FreeGCType) (
-    Display*	/* display */,
-    GC		/* gc */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*CreateFontType) (
-    Display*	/* display */,
-    XFontStruct* /* fs */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*FreeFontType) (
-    Display*	/* display */,
-    XFontStruct* /* fs */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*CloseDisplayType) (
-    Display*	/* display */,
-    XExtCodes*	/* codes */
-);
-
-typedef int (*ErrorType) (
-    Display*	/* display */,
-    xError*	/* err */,
-    XExtCodes*	/* codes */,
-    int*	/* ret_code */
-);
-
-typedef char* (*ErrorStringType) (
-    Display*	/* display */,
-    int		/* code */,
-    XExtCodes*	/* codes */,
-    char*	/* buffer */,
-    int		/* nbytes */
-);
-
-typedef void (*PrintErrorType)(
-    Display*	/* display */,
-    XErrorEvent* /* ev */,
-    void*	/* fp */
-);
-
-typedef void (*BeforeFlushType)(
-    Display*	/* display */,
-    XExtCodes*	/* codes */,
-    _Xconst char* /* data */,
-    long	/* len */
-);
-
-/*
- * This structure is private to the library.
- */
-typedef struct _XExten {		/* private to extension mechanism */
-	struct _XExten *next;		/* next in list */
-	XExtCodes codes;		/* public information, all extension told */
-	CreateGCType create_GC;		/* routine to call when GC created */
-	CopyGCType copy_GC;		/* routine to call when GC copied */
-	FlushGCType flush_GC;		/* routine to call when GC flushed */
-	FreeGCType free_GC;		/* routine to call when GC freed */
-	CreateFontType create_Font;	/* routine to call when Font created */
-	FreeFontType free_Font;		/* routine to call when Font freed */
-	CloseDisplayType close_display;	/* routine to call when connection closed */
-	ErrorType error;		/* who to call when an error occurs */
-	ErrorStringType error_string;	/* routine to supply error string */
-	char *name;			/* name of this extension */
-	PrintErrorType error_values;	/* routine to supply error values */
-	BeforeFlushType before_flush;	/* routine to call when sending data */
-	struct _XExten *next_flush;	/* next in list of those with flushes */
-} _XExtension;
-
-/* extension hooks */
-
-#ifdef DataRoutineIsProcedure
-extern void Data(Display *dpy, char *data, long len);
-#endif
-extern int _XError(
-    Display*	/* dpy */,
-    xError*	/* rep */
-);
-extern int _XIOError(
-    Display*	/* dpy */
-) _X_NORETURN;
-extern int (*_XIOErrorFunction)(
-    Display*	/* dpy */
-);
-extern int (*_XErrorFunction)(
-    Display*		/* dpy */,
-    XErrorEvent*	/* error_event */
-);
-extern void _XEatData(
-    Display*		/* dpy */,
-    unsigned long	/* n */
-);
-extern char *_XAllocScratch(
-    Display*		/* dpy */,
-    unsigned long	/* nbytes */
-);
-extern char *_XAllocTemp(
-    Display*		/* dpy */,
-    unsigned long	/* nbytes */
-);
-extern void _XFreeTemp(
-    Display*		/* dpy */,
-    char*		/* buf */,
-    unsigned long	/* nbytes */
-);
-extern Visual *_XVIDtoVisual(
-    Display*	/* dpy */,
-    VisualID	/* id */
-);
-extern unsigned long _XSetLastRequestRead(
-    Display*		/* dpy */,
-    xGenericReply*	/* rep */
-);
-extern int _XGetHostname(
-    char*	/* buf */,
-    int		/* maxlen */
-);
-extern Screen *_XScreenOfWindow(
-    Display*	/* dpy */,
-    Window	/* w */
-);
-extern Bool _XAsyncErrorHandler(
-    Display*	/* dpy */,
-    xReply*	/* rep */,
-    char*	/* buf */,
-    int		/* len */,
-    XPointer	/* data */
-);
-extern char *_XGetAsyncReply(
-    Display*	/* dpy */,
-    char*	/* replbuf */,
-    xReply*	/* rep */,
-    char*	/* buf */,
-    int		/* len */,
-    int		/* extra */,
-    Bool	/* discard */
-);
-extern void _XGetAsyncData(
-    Display*	/* dpy */,
-    char *	/* data */,
-    char *	/* buf */,
-    int		/* len */,
-    int		/* skip */,
-    int		/* datalen */,
-    int		/* discardtotal */
-);
-extern void _XFlush(
-    Display*	/* dpy */
-);
-extern int _XEventsQueued(
-    Display*	/* dpy */,
-    int 	/* mode */
-);
-extern void _XReadEvents(
-    Display*	/* dpy */
-);
-extern int _XRead(
-    Display*	/* dpy */,
-    char*	/* data */,
-    long	/* size */
-);
-extern void _XReadPad(
-    Display*	/* dpy */,
-    char*	/* data */,
-    long	/* size */
-);
-extern void _XSend(
-    Display*		/* dpy */,
-    _Xconst char*	/* data */,
-    long		/* size */
-);
-extern Status _XReply(
-    Display*	/* dpy */,
-    xReply*	/* rep */,
-    int		/* extra */,
-    Bool	/* discard */
-);
-extern void _XEnq(
-    Display*	/* dpy */,
-    xEvent*	/* event */
-);
-extern void _XDeq(
-    Display*	/* dpy */,
-    _XQEvent*	/* prev */,
-    _XQEvent*	/* qelt */
-);
-
-extern Bool _XUnknownWireEvent(
-    Display*	/* dpy */,
-    XEvent*	/* re */,
-    xEvent*	/* event */
-);
-
-extern Bool _XUnknownWireEventCookie(
-    Display*	/* dpy */,
-    XGenericEventCookie*	/* re */,
-    xEvent*	/* event */
-);
-
-extern Bool _XUnknownCopyEventCookie(
-    Display*	/* dpy */,
-    XGenericEventCookie*	/* in */,
-    XGenericEventCookie*	/* out */
-);
-
-extern Status _XUnknownNativeEvent(
-    Display*	/* dpy */,
-    XEvent*	/* re */,
-    xEvent*	/* event */
-);
-
-extern Bool _XWireToEvent(Display *dpy, XEvent *re, xEvent *event);
-extern Bool _XDefaultWireError(Display *display, XErrorEvent *he, xError *we);
-extern Bool _XPollfdCacheInit(Display *dpy);
-extern void _XPollfdCacheAdd(Display *dpy, int fd);
-extern void _XPollfdCacheDel(Display *dpy, int fd);
-extern XID _XAllocID(Display *dpy);
-extern void _XAllocIDs(Display *dpy, XID *ids, int count);
-
-extern int _XFreeExtData(
-    XExtData*	/* extension */
-);
-
-extern int (*XESetCreateGC(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-	      GC			/* gc */,
-	      XExtCodes*		/* codes */
-	    )		/* proc */
-))(
-    Display*, GC, XExtCodes*
-);
-
-extern int (*XESetCopyGC(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              GC			/* gc */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, GC, XExtCodes*
-);
-
-extern int (*XESetFlushGC(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              GC			/* gc */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, GC, XExtCodes*
-);
-
-extern int (*XESetFreeGC(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              GC			/* gc */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, GC, XExtCodes*
-);
-
-extern int (*XESetCreateFont(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              XFontStruct*		/* fs */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, XFontStruct*, XExtCodes*
-);
-
-extern int (*XESetFreeFont(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              XFontStruct*		/* fs */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, XFontStruct*, XExtCodes*
-);
-
-extern int (*XESetCloseDisplay(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              XExtCodes*		/* codes */
-            )		/* proc */
-))(
-    Display*, XExtCodes*
-);
-
-extern int (*XESetError(
-    Display*		/* display */,
-    int			/* extension */,
-    int (*) (
-	      Display*			/* display */,
-              xError*			/* err */,
-              XExtCodes*		/* codes */,
-              int*			/* ret_code */
-            )		/* proc */
-))(
-    Display*, xError*, XExtCodes*, int*
-);
-
-extern char* (*XESetErrorString(
-    Display*		/* display */,
-    int			/* extension */,
-    char* (*) (
-	        Display*		/* display */,
-                int			/* code */,
-                XExtCodes*		/* codes */,
-                char*			/* buffer */,
-                int			/* nbytes */
-              )		/* proc */
-))(
-    Display*, int, XExtCodes*, char*, int
-);
-
-extern void (*XESetPrintErrorValues (
-    Display*		/* display */,
-    int			/* extension */,
-    void (*)(
-	      Display*			/* display */,
-	      XErrorEvent*		/* ev */,
-	      void*			/* fp */
-	     )		/* proc */
-))(
-    Display*, XErrorEvent*, void*
-);
-
-extern Bool (*XESetWireToEvent(
-    Display*		/* display */,
-    int			/* event_number */,
-    Bool (*) (
-	       Display*			/* display */,
-               XEvent*			/* re */,
-               xEvent*			/* event */
-             )		/* proc */
-))(
-    Display*, XEvent*, xEvent*
-);
-
-extern Bool (*XESetWireToEventCookie(
-    Display*		/* display */,
-    int			/* extension */,
-    Bool (*) (
-	       Display*			/* display */,
-               XGenericEventCookie*	/* re */,
-               xEvent*			/* event */
-             )		/* proc */
-))(
-    Display*, XGenericEventCookie*, xEvent*
-);
-
-extern Bool (*XESetCopyEventCookie(
-    Display*		/* display */,
-    int			/* extension */,
-    Bool (*) (
-	       Display*			/* display */,
-               XGenericEventCookie*	/* in */,
-               XGenericEventCookie*	/* out */
-             )		/* proc */
-))(
-    Display*, XGenericEventCookie*, XGenericEventCookie*
-);
-
-
-extern Status (*XESetEventToWire(
-    Display*		/* display */,
-    int			/* event_number */,
-    Status (*) (
-	      Display*			/* display */,
-              XEvent*			/* re */,
-              xEvent*			/* event */
-            )		/* proc */
-))(
-    Display*, XEvent*, xEvent*
-);
-
-extern Bool (*XESetWireToError(
-    Display*		/* display */,
-    int			/* error_number */,
-    Bool (*) (
-	       Display*			/* display */,
-	       XErrorEvent*		/* he */,
-	       xError*			/* we */
-            )		/* proc */
-))(
-    Display*, XErrorEvent*, xError*
-);
-
-extern void (*XESetBeforeFlush(
-    Display*		/* display */,
-    int			/* error_number */,
-    void (*) (
-	       Display*			/* display */,
-	       XExtCodes*		/* codes */,
-	       _Xconst char*		/* data */,
-	       long			/* len */
-            )		/* proc */
-))(
-    Display*, XExtCodes*, _Xconst char*, long
-);
-
-/* internal connections for IMs */
-
-typedef void (*_XInternalConnectionProc)(
-    Display*			/* dpy */,
-    int				/* fd */,
-    XPointer			/* call_data */
-);
-
-
-extern Status _XRegisterInternalConnection(
-    Display*			/* dpy */,
-    int				/* fd */,
-    _XInternalConnectionProc	/* callback */,
-    XPointer			/* call_data */
-);
-
-extern void _XUnregisterInternalConnection(
-    Display*			/* dpy */,
-    int				/* fd */
-);
-
-extern void _XProcessInternalConnection(
-    Display*			/* dpy */,
-    struct _XConnectionInfo*	/* conn_info */
-);
-
-/* Display structure has pointers to these */
-
-struct _XConnectionInfo {	/* info from _XRegisterInternalConnection */
-    int fd;
-    _XInternalConnectionProc read_callback;
-    XPointer call_data;
-    XPointer *watch_data;	/* set/used by XConnectionWatchProc */
-    struct _XConnectionInfo *next;
-};
-
-struct _XConnWatchInfo {	/* info from XAddConnectionWatch */
-    XConnectionWatchProc fn;
-    XPointer client_data;
-    struct _XConnWatchInfo *next;
-};
-
-#ifdef __UNIXOS2__
-extern char* __XOS2RedirRoot(
-    char*
-);
-#endif
-
-extern int _XTextHeight(
-    XFontStruct*	/* font_struct */,
-    _Xconst char*	/* string */,
-    int			/* count */
-);
-
-extern int _XTextHeight16(
-    XFontStruct*	/* font_struct */,
-    _Xconst XChar2b*	/* string */,
-    int			/* count */
-);
-
-#if defined(WIN32)
-
-extern int _XOpenFile(
-    _Xconst char*	/* path */,
-    int			/* flags */
-);
-
-extern int _XOpenFileMode(
-    _Xconst char*	/* path */,
-    int			/* flags */,
-    mode_t              /* mode */
-);
-
-extern void* _XFopenFile(
-    _Xconst char*	/* path */,
-    _Xconst char*	/* mode */
-);
-
-extern int _XAccessFile(
-    _Xconst char*	/* path */
-);
-#else
-#define _XOpenFile(path,flags) open(path,flags)
-#define _XOpenFileMode(path,flags,mode) open(path,flags,mode)
-#define _XFopenFile(path,mode) fopen(path,mode)
-#endif
-
-/* EvToWire.c */
-extern Status _XEventToWire(Display *dpy, XEvent *re, xEvent *event);
-
-extern int _XF86LoadQueryLocaleFont(
-    Display*		/* dpy */,
-    _Xconst char*	/* name*/,
-    XFontStruct**	/* xfp*/,
-    Font*		/* fidp */
-);
-
-extern void _XProcessWindowAttributes (
-    register Display *dpy,
-    xChangeWindowAttributesReq *req,
-    register unsigned long valuemask,
-    register XSetWindowAttributes *attributes);
-
-extern int _XDefaultError(
-        Display *dpy,
-        XErrorEvent *event);
-
-extern int _XDefaultIOError(
-        Display *dpy);
-
-extern void _XSetClipRectangles (
-    register Display *dpy,
-    GC gc,
-    int clip_x_origin, int clip_y_origin,
-    XRectangle *rectangles,
-    int n,
-    int ordering);
-
-Status _XGetWindowAttributes(
-    register Display *dpy,
-    Window w,
-    XWindowAttributes *attr);
-
-int _XPutBackEvent (
-    register Display *dpy,
-    register XEvent *event);
-
-extern Bool _XIsEventCookie(
-        Display *dpy,
-        XEvent *ev);
-
-extern void _XFreeEventCookies(
-        Display *dpy);
-
-extern void _XStoreEventCookie(
-        Display *dpy,
-        XEvent *ev);
-
-extern Bool _XFetchEventCookie(
-        Display *dpy,
-        XGenericEventCookie *ev);
-
-extern Bool _XCopyEventCookie(
-        Display *dpy,
-        XGenericEventCookie *in,
-        XGenericEventCookie *out);
-
-/* lcFile.c */
-
-extern void xlocaledir(
-    char *buf,
-    int buf_len
-);
-
-_XFUNCPROTOEND
-
-#endif /* _X11_XLIBINT_H_ */
+

+/*

+

+Copyright 1984, 1985, 1987, 1989, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+#ifndef _X11_XLIBINT_H_

+#define _X11_XLIBINT_H_ 1

+

+/*

+ *	Xlibint.h - Header definition and support file for the internal

+ *	support routines used by the C subroutine interface

+ *	library (Xlib) to the X Window System.

+ *

+ *	Warning, there be dragons here....

+ */

+

+#include <X11/Xlib.h>

+#include <X11/Xproto.h>		/* to declare xEvent */

+#include <X11/XlibConf.h>	/* for configured options like XTHREADS */

+

+#ifdef WIN32

+#define _XFlush _XFlushIt

+#endif

+

+/*

+ * If your BytesReadable correctly detects broken connections, then

+ * you should NOT define XCONN_CHECK_FREQ.

+ */

+#ifndef XCONN_CHECK_FREQ

+#define XCONN_CHECK_FREQ 256

+#endif

+

+struct _XGC

+{

+    XExtData *ext_data;	/* hook for extension to hang data */

+    GContext gid;	/* protocol ID for graphics context */

+    Bool rects;		/* boolean: TRUE if clipmask is list of rectangles */

+    Bool dashes;	/* boolean: TRUE if dash-list is really a list */

+    unsigned long dirty;/* cache dirty bits */

+    XGCValues values;	/* shadow structure of values */

+};

+

+struct _XDisplay

+{

+	XExtData *ext_data;	/* hook for extension to hang data */

+	struct _XFreeFuncs *free_funcs; /* internal free functions */

+	int fd;			/* Network socket. */

+	int conn_checker;         /* ugly thing used by _XEventsQueued */

+	int proto_major_version;/* maj. version of server's X protocol */

+	int proto_minor_version;/* minor version of server's X protocol */

+	char *vendor;		/* vendor of the server hardware */

+        XID resource_base;	/* resource ID base */

+	XID resource_mask;	/* resource ID mask bits */

+	XID resource_id;	/* allocator current ID */

+	int resource_shift;	/* allocator shift to correct bits */

+	XID (*resource_alloc)(	/* allocator function */

+		struct _XDisplay*

+		);

+	int byte_order;		/* screen byte order, LSBFirst, MSBFirst */

+	int bitmap_unit;	/* padding and data requirements */

+	int bitmap_pad;		/* padding requirements on bitmaps */

+	int bitmap_bit_order;	/* LeastSignificant or MostSignificant */

+	int nformats;		/* number of pixmap formats in list */

+	ScreenFormat *pixmap_format;	/* pixmap format list */

+	int vnumber;		/* Xlib's X protocol version number. */

+	int release;		/* release of the server */

+	struct _XSQEvent *head, *tail;	/* Input event queue. */

+	int qlen;		/* Length of input event queue */

+	unsigned long last_request_read; /* seq number of last event read */

+	unsigned long request;	/* sequence number of last request. */

+	char *last_req;		/* beginning of last request, or dummy */

+	char *buffer;		/* Output buffer starting address. */

+	char *bufptr;		/* Output buffer index pointer. */

+	char *bufmax;		/* Output buffer maximum+1 address. */

+	unsigned max_request_size; /* maximum number 32 bit words in request*/

+	struct _XrmHashBucketRec *db;

+	int (*synchandler)(	/* Synchronization handler */

+		struct _XDisplay*

+		);

+	char *display_name;	/* "host:display" string used on this connect*/

+	int default_screen;	/* default screen for operations */

+	int nscreens;		/* number of screens on this server*/

+	Screen *screens;	/* pointer to list of screens */

+	unsigned long motion_buffer;	/* size of motion buffer */

+	volatile unsigned long flags;	   /* internal connection flags */

+	int min_keycode;	/* minimum defined keycode */

+	int max_keycode;	/* maximum defined keycode */

+	KeySym *keysyms;	/* This server's keysyms */

+	XModifierKeymap *modifiermap;	/* This server's modifier keymap */

+	int keysyms_per_keycode;/* number of rows */

+	char *xdefaults;	/* contents of defaults from server */

+	char *scratch_buffer;	/* place to hang scratch buffer */

+	unsigned long scratch_length;	/* length of scratch buffer */

+	int ext_number;		/* extension number on this display */

+	struct _XExten *ext_procs; /* extensions initialized on this display */

+	/*

+	 * the following can be fixed size, as the protocol defines how

+	 * much address space is available.

+	 * While this could be done using the extension vector, there

+	 * may be MANY events processed, so a search through the extension

+	 * list to find the right procedure for each event might be

+	 * expensive if many extensions are being used.

+	 */

+	Bool (*event_vec[128])(	/* vector for wire to event */

+		Display *	/* dpy */,

+		XEvent *	/* re */,

+		xEvent *	/* event */

+		);

+	Status (*wire_vec[128])( /* vector for event to wire */

+		Display *	/* dpy */,

+		XEvent *	/* re */,

+		xEvent *	/* event */

+		);

+	KeySym lock_meaning;	   /* for XLookupString */

+	struct _XLockInfo *lock;   /* multi-thread state, display lock */

+	struct _XInternalAsync *async_handlers; /* for internal async */

+	unsigned long bigreq_size; /* max size of big requests */

+	struct _XLockPtrs *lock_fns; /* pointers to threads functions */

+	void (*idlist_alloc)(	   /* XID list allocator function */

+		Display *	/* dpy */,

+		XID *		/* ids */,

+		int		/* count */

+		);

+	/* things above this line should not move, for binary compatibility */

+	struct _XKeytrans *key_bindings; /* for XLookupString */

+	Font cursor_font;	   /* for XCreateFontCursor */

+	struct _XDisplayAtoms *atoms; /* for XInternAtom */

+	unsigned int mode_switch;  /* keyboard group modifiers */

+	unsigned int num_lock;  /* keyboard numlock modifiers */

+	struct _XContextDB *context_db; /* context database */

+	Bool (**error_vec)(	/* vector for wire to error */

+		Display     *	/* display */,

+		XErrorEvent *	/* he */,

+		xError      *	/* we */

+		);

+	/*

+	 * Xcms information

+	 */

+	struct {

+	   XPointer defaultCCCs;  /* pointer to an array of default XcmsCCC */

+	   XPointer clientCmaps;  /* pointer to linked list of XcmsCmapRec */

+	   XPointer perVisualIntensityMaps;

+				  /* linked list of XcmsIntensityMap */

+	} cms;

+	struct _XIMFilter *im_filters;

+	struct _XSQEvent *qfree; /* unallocated event queue elements */

+	unsigned long next_event_serial_num; /* inserted into next queue elt */

+	struct _XExten *flushes; /* Flush hooks */

+	struct _XConnectionInfo *im_fd_info; /* _XRegisterInternalConnection */

+	int im_fd_length;	/* number of im_fd_info */

+	struct _XConnWatchInfo *conn_watchers; /* XAddConnectionWatch */

+	int watcher_count;	/* number of conn_watchers */

+	XPointer filedes;	/* struct pollfd cache for _XWaitForReadable */

+	int (*savedsynchandler)( /* user synchandler when Xlib usurps */

+		Display *	/* dpy */

+		);

+	XID resource_max;	/* allocator max ID */

+	int xcmisc_opcode;	/* major opcode for XC-MISC */

+	struct _XkbInfoRec *xkb_info; /* XKB info */

+	struct _XtransConnInfo *trans_conn; /* transport connection object */

+	struct _X11XCBPrivate *xcb; /* XCB glue private data */

+

+	/* Generic event cookie handling */

+	unsigned int next_cookie; /* next event cookie */

+	/* vector for wire to generic event, index is (extension - 128) */

+	Bool (*generic_event_vec[128])(

+		Display *	/* dpy */,

+		XGenericEventCookie *	/* Xlib event */,

+		xEvent *	/* wire event */);

+	/* vector for event copy, index is (extension - 128) */

+	Bool (*generic_event_copy_vec[128])(

+		Display *	/* dpy */,

+		XGenericEventCookie *	/* in */,

+		XGenericEventCookie *   /* out*/);

+	void *cookiejar;  /* cookie events returned but not claimed */

+};

+

+#define XAllocIDs(dpy,ids,n) (*(dpy)->idlist_alloc)(dpy,ids,n)

+

+/*

+ * define the following if you want the Data macro to be a procedure instead

+ */

+#ifdef CRAY

+#define DataRoutineIsProcedure

+#endif /* CRAY */

+

+#ifndef _XEVENT_

+/*

+ * _QEvent datatype for use in input queueing.

+ */

+typedef struct _XSQEvent

+{

+    struct _XSQEvent *next;

+    XEvent event;

+    unsigned long qserial_num;	/* so multi-threaded code can find new ones */

+} _XQEvent;

+#endif

+

+#include <X11/Xproto.h>

+#ifdef __sgi

+#define _SGI_MP_SOURCE  /* turn this on to get MP safe errno */

+#endif

+#include <errno.h>

+#define _XBCOPYFUNC _Xbcopy

+#include <X11/Xfuncs.h>

+#include <X11/Xosdefs.h>

+

+/* Utek leaves kernel macros around in include files (bleah) */

+#ifdef dirty

+#undef dirty

+#endif

+

+#include <stdlib.h>

+#include <string.h>

+

+#include <X11/Xfuncproto.h>

+

+_XFUNCPROTOBEGIN

+

+/*

+ * The following definitions can be used for locking requests in multi-threaded

+ * address spaces.

+ */

+#ifdef XTHREADS

+/* Author: Stephen Gildea, MIT X Consortium

+ *

+ * declarations for C Threads locking

+ */

+

+typedef struct _LockInfoRec *LockInfoPtr;

+

+/* interfaces for locking.c */

+struct _XLockPtrs {

+    /* used by all, including extensions; do not move */

+    void (*lock_display)(

+		Display *dpy

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+		, char *file

+		, int line

+#endif

+	);

+    void (*unlock_display)(

+		Display *dpy

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+		, char *file

+		, int line

+#endif

+	);

+};

+

+#if defined(WIN32) && !defined(_XLIBINT_)

+#define _XCreateMutex_fn (*_XCreateMutex_fn_p)

+#define _XFreeMutex_fn (*_XFreeMutex_fn_p)

+#define _XLockMutex_fn (*_XLockMutex_fn_p)

+#define _XUnlockMutex_fn (*_XUnlockMutex_fn_p)

+#define _Xglobal_lock (*_Xglobal_lock_p)

+#endif

+

+/* in XlibInt.c */

+extern void (*_XCreateMutex_fn)(

+    LockInfoPtr /* lock */

+);

+extern void (*_XFreeMutex_fn)(

+    LockInfoPtr /* lock */

+);

+extern void (*_XLockMutex_fn)(

+    LockInfoPtr	/* lock */

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+);

+extern void (*_XUnlockMutex_fn)(

+    LockInfoPtr	/* lock */

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+);

+

+extern LockInfoPtr _Xglobal_lock;

+

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+#define LockDisplay(d)	     if ((d)->lock_fns) (*(d)->lock_fns->lock_display)((d),__FILE__,__LINE__)

+#define UnlockDisplay(d)     if ((d)->lock_fns) (*(d)->lock_fns->unlock_display)((d),__FILE__,__LINE__)

+#define _XLockMutex(lock)		if (_XLockMutex_fn) (*_XLockMutex_fn)(lock,__FILE__,__LINE__)

+#define _XUnlockMutex(lock)	if (_XUnlockMutex_fn) (*_XUnlockMutex_fn)(lock,__FILE__,__LINE__)

+#else

+/* used everywhere, so must be fast if not using threads */

+#define LockDisplay(d)	     if ((d)->lock_fns) (*(d)->lock_fns->lock_display)(d)

+#define UnlockDisplay(d)     if ((d)->lock_fns) (*(d)->lock_fns->unlock_display)(d)

+#define _XLockMutex(lock)		if (_XLockMutex_fn) (*_XLockMutex_fn)(lock)

+#define _XUnlockMutex(lock)	if (_XUnlockMutex_fn) (*_XUnlockMutex_fn)(lock)

+#endif

+#define _XCreateMutex(lock)	if (_XCreateMutex_fn) (*_XCreateMutex_fn)(lock);

+#define _XFreeMutex(lock)	if (_XFreeMutex_fn) (*_XFreeMutex_fn)(lock);

+

+#else /* XTHREADS */

+#define LockDisplay(dis)

+#define _XLockMutex(lock)

+#define _XUnlockMutex(lock)

+#define UnlockDisplay(dis)

+#define _XCreateMutex(lock)

+#define _XFreeMutex(lock)

+#endif

+

+#define Xfree(ptr) free((ptr))

+

+/*

+ * Note that some machines do not return a valid pointer for malloc(0), in

+ * which case we provide an alternate under the control of the

+ * define MALLOC_0_RETURNS_NULL.  This is necessary because some

+ * Xlib code expects malloc(0) to return a valid pointer to storage.

+ */

+#if defined(MALLOC_0_RETURNS_NULL) || defined(__clang_analyzer__)

+

+# define Xmalloc(size) malloc(((size) == 0 ? 1 : (size)))

+# define Xrealloc(ptr, size) realloc((ptr), ((size) == 0 ? 1 : (size)))

+# define Xcalloc(nelem, elsize) calloc(((nelem) == 0 ? 1 : (nelem)), (elsize))

+

+#else

+

+# define Xmalloc(size) malloc((size))

+# define Xrealloc(ptr, size) realloc((ptr), (size))

+# define Xcalloc(nelem, elsize) calloc((nelem), (elsize))

+

+#endif

+

+#include <stddef.h>

+

+#define LOCKED 1

+#define UNLOCKED 0

+

+#ifndef BUFSIZE

+#define BUFSIZE 2048			/* X output buffer size. */

+#endif

+#ifndef PTSPERBATCH

+#define PTSPERBATCH 1024		/* point batching */

+#endif

+#ifndef WLNSPERBATCH

+#define WLNSPERBATCH 50			/* wide line batching */

+#endif

+#ifndef ZLNSPERBATCH

+#define ZLNSPERBATCH 1024		/* thin line batching */

+#endif

+#ifndef WRCTSPERBATCH

+#define WRCTSPERBATCH 10		/* wide line rectangle batching */

+#endif

+#ifndef ZRCTSPERBATCH

+#define ZRCTSPERBATCH 256		/* thin line rectangle batching */

+#endif

+#ifndef FRCTSPERBATCH

+#define FRCTSPERBATCH 256		/* filled rectangle batching */

+#endif

+#ifndef FARCSPERBATCH

+#define FARCSPERBATCH 256		/* filled arc batching */

+#endif

+#ifndef CURSORFONT

+#define CURSORFONT "cursor"		/* standard cursor fonts */

+#endif

+

+/*

+ * Display flags

+ */

+#define XlibDisplayIOError	(1L << 0)

+#define XlibDisplayClosing	(1L << 1)

+#define XlibDisplayNoXkb	(1L << 2)

+#define XlibDisplayPrivSync	(1L << 3)

+#define XlibDisplayProcConni	(1L << 4) /* in _XProcessInternalConnection */

+#define XlibDisplayReadEvents	(1L << 5) /* in _XReadEvents */

+#define XlibDisplayReply	(1L << 5) /* in _XReply */

+#define XlibDisplayWriting	(1L << 6) /* in _XFlushInt, _XSend */

+#define XlibDisplayDfltRMDB     (1L << 7) /* mark if RM db from XGetDefault */

+

+/*

+ * X Protocol packetizing macros.

+ */

+

+/*   Need to start requests on 64 bit word boundaries

+ *   on a CRAY computer so add a NoOp (127) if needed.

+ *   A character pointer on a CRAY computer will be non-zero

+ *   after shifting right 61 bits of it is not pointing to

+ *   a word boundary.

+ */

+#ifdef WORD64

+#define WORD64ALIGN if ((long)dpy->bufptr >> 61) {\

+           dpy->last_req = dpy->bufptr;\

+           *(dpy->bufptr)   = X_NoOperation;\

+           *(dpy->bufptr+1) =  0;\

+           *(dpy->bufptr+2) =  0;\

+           *(dpy->bufptr+3) =  1;\

+             dpy->request++;\

+             dpy->bufptr += 4;\

+         }

+#else /* else does not require alignment on 64-bit boundaries */

+#define WORD64ALIGN

+#endif /* WORD64 */

+

+

+/*

+ * GetReq - Get the next available X request packet in the buffer and

+ * return it.

+ *

+ * "name" is the name of the request, e.g. CreatePixmap, OpenFont, etc.

+ * "req" is the name of the request pointer.

+ *

+ */

+

+#if !defined(UNIXCPP) || defined(ANSICPP)

+#define GetReq(name, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(x##name##Req)) > dpy->bufmax)\

+		_XFlush(dpy);\

+	req = (x##name##Req *)(dpy->last_req = dpy->bufptr);\

+	req->reqType = X_##name;\

+	req->length = (SIZEOF(x##name##Req))>>2;\

+	dpy->bufptr += SIZEOF(x##name##Req);\

+	dpy->request++

+

+#else  /* non-ANSI C uses empty comment instead of "##" for token concatenation */

+#define GetReq(name, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(x/**/name/**/Req)) > dpy->bufmax)\

+		_XFlush(dpy);\

+	req = (x/**/name/**/Req *)(dpy->last_req = dpy->bufptr);\

+	req->reqType = X_/**/name;\

+	req->length = (SIZEOF(x/**/name/**/Req))>>2;\

+	dpy->bufptr += SIZEOF(x/**/name/**/Req);\

+	dpy->request++

+#endif

+

+/* GetReqExtra is the same as GetReq, but allocates "n" additional

+   bytes after the request. "n" must be a multiple of 4!  */

+

+#if !defined(UNIXCPP) || defined(ANSICPP)

+#define GetReqExtra(name, n, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(x##name##Req) + n) > dpy->bufmax)\

+		_XFlush(dpy);\

+	req = (x##name##Req *)(dpy->last_req = dpy->bufptr);\

+	req->reqType = X_##name;\

+	req->length = (SIZEOF(x##name##Req) + n)>>2;\

+	dpy->bufptr += SIZEOF(x##name##Req) + n;\

+	dpy->request++

+#else

+#define GetReqExtra(name, n, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(x/**/name/**/Req) + n) > dpy->bufmax)\

+		_XFlush(dpy);\

+	req = (x/**/name/**/Req *)(dpy->last_req = dpy->bufptr);\

+	req->reqType = X_/**/name;\

+	req->length = (SIZEOF(x/**/name/**/Req) + n)>>2;\

+	dpy->bufptr += SIZEOF(x/**/name/**/Req) + n;\

+	dpy->request++

+#endif

+

+

+/*

+ * GetResReq is for those requests that have a resource ID

+ * (Window, Pixmap, GContext, etc.) as their single argument.

+ * "rid" is the name of the resource.

+ */

+

+#if !defined(UNIXCPP) || defined(ANSICPP)

+#define GetResReq(name, rid, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(xResourceReq)) > dpy->bufmax)\

+	    _XFlush(dpy);\

+	req = (xResourceReq *) (dpy->last_req = dpy->bufptr);\

+	req->reqType = X_##name;\

+	req->length = 2;\

+	req->id = (rid);\

+	dpy->bufptr += SIZEOF(xResourceReq);\

+	dpy->request++

+#else

+#define GetResReq(name, rid, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(xResourceReq)) > dpy->bufmax)\

+	    _XFlush(dpy);\

+	req = (xResourceReq *) (dpy->last_req = dpy->bufptr);\

+	req->reqType = X_/**/name;\

+	req->length = 2;\

+	req->id = (rid);\

+	dpy->bufptr += SIZEOF(xResourceReq);\

+	dpy->request++

+#endif

+

+/*

+ * GetEmptyReq is for those requests that have no arguments

+ * at all.

+ */

+#if !defined(UNIXCPP) || defined(ANSICPP)

+#define GetEmptyReq(name, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(xReq)) > dpy->bufmax)\

+	    _XFlush(dpy);\

+	req = (xReq *) (dpy->last_req = dpy->bufptr);\

+	req->reqType = X_##name;\

+	req->length = 1;\

+	dpy->bufptr += SIZEOF(xReq);\

+	dpy->request++

+#else

+#define GetEmptyReq(name, req) \

+        WORD64ALIGN\

+	if ((dpy->bufptr + SIZEOF(xReq)) > dpy->bufmax)\

+	    _XFlush(dpy);\

+	req = (xReq *) (dpy->last_req = dpy->bufptr);\

+	req->reqType = X_/**/name;\

+	req->length = 1;\

+	dpy->bufptr += SIZEOF(xReq);\

+	dpy->request++

+#endif

+

+#ifdef WORD64

+#define MakeBigReq(req,n) \

+    { \

+    char _BRdat[4]; \

+    unsigned long _BRlen = req->length - 1; \

+    req->length = 0; \

+    memcpy(_BRdat, ((char *)req) + (_BRlen << 2), 4); \

+    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \

+    memcpy(((char *)req) + 4, _BRdat, 4); \

+    Data32(dpy, (long *)&_BRdat, 4); \

+    }

+#else

+#ifdef LONG64

+#define MakeBigReq(req,n) \

+    { \

+    CARD64 _BRdat; \

+    CARD32 _BRlen = req->length - 1; \

+    req->length = 0; \

+    _BRdat = ((CARD32 *)req)[_BRlen]; \

+    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \

+    ((CARD32 *)req)[1] = _BRlen + n + 2; \

+    Data32(dpy, &_BRdat, 4); \

+    }

+#else

+#define MakeBigReq(req,n) \

+    { \

+    CARD32 _BRdat; \

+    CARD32 _BRlen = req->length - 1; \

+    req->length = 0; \

+    _BRdat = ((CARD32 *)req)[_BRlen]; \

+    memmove(((char *)req) + 8, ((char *)req) + 4, _BRlen << 2); \

+    ((CARD32 *)req)[1] = _BRlen + n + 2; \

+    Data32(dpy, &_BRdat, 4); \

+    }

+#endif

+#endif

+

+#ifndef __clang_analyzer__

+#define SetReqLen(req,n,badlen) \

+    if ((req->length + n) > (unsigned)65535) { \

+	if (dpy->bigreq_size) { \

+	    MakeBigReq(req,n) \

+	} else { \

+	    n = badlen; \

+	    req->length += n; \

+	} \

+    } else \

+	req->length += n

+#else

+#define SetReqLen(req,n,badlen) \

+    req->length += n

+#endif

+

+#define SyncHandle() \

+	if (dpy->synchandler) (*dpy->synchandler)(dpy)

+

+extern void _XFlushGCCache(Display *dpy, GC gc);

+#define FlushGC(dpy, gc) \

+	if ((gc)->dirty) _XFlushGCCache((dpy), (gc))

+/*

+ * Data - Place data in the buffer and pad the end to provide

+ * 32 bit word alignment.  Transmit if the buffer fills.

+ *

+ * "dpy" is a pointer to a Display.

+ * "data" is a pinter to a data buffer.

+ * "len" is the length of the data buffer.

+ */

+#ifndef DataRoutineIsProcedure

+#define Data(dpy, data, len) {\

+	if (dpy->bufptr + (len) <= dpy->bufmax) {\

+		memcpy(dpy->bufptr, data, (int)len);\

+		dpy->bufptr += ((len) + 3) & ~3;\

+	} else\

+		_XSend(dpy, data, len);\

+	}

+#endif /* DataRoutineIsProcedure */

+

+

+/* Allocate bytes from the buffer.  No padding is done, so if

+ * the length is not a multiple of 4, the caller must be

+ * careful to leave the buffer aligned after sending the

+ * current request.

+ *

+ * "type" is the type of the pointer being assigned to.

+ * "ptr" is the pointer being assigned to.

+ * "n" is the number of bytes to allocate.

+ *

+ * Example:

+ *    xTextElt *elt;

+ *    BufAlloc (xTextElt *, elt, nbytes)

+ */

+

+#define BufAlloc(type, ptr, n) \

+    if (dpy->bufptr + (n) > dpy->bufmax) \

+        _XFlush (dpy); \

+    ptr = (type) dpy->bufptr; \

+    memset(ptr, '\0', n); \

+    dpy->bufptr += (n);

+

+#ifdef WORD64

+#define Data16(dpy, data, len) _XData16(dpy, (short *)data, len)

+#define Data32(dpy, data, len) _XData32(dpy, (long *)data, len)

+#else

+#define Data16(dpy, data, len) Data((dpy), (char *)(data), (len))

+#define _XRead16Pad(dpy, data, len) _XReadPad((dpy), (char *)(data), (len))

+#define _XRead16(dpy, data, len) _XRead((dpy), (char *)(data), (len))

+#ifdef LONG64

+#define Data32(dpy, data, len) _XData32(dpy, (long *)data, len)

+extern int _XData32(

+	     Display *dpy,

+	     register long *data,

+	     unsigned len

+);

+extern void _XRead32(

+	     Display *dpy,

+	     register long *data,

+	     long len

+);

+#else

+#define Data32(dpy, data, len) Data((dpy), (char *)(data), (len))

+#define _XRead32(dpy, data, len) _XRead((dpy), (char *)(data), (len))

+#endif

+#endif /* not WORD64 */

+

+#define PackData16(dpy,data,len) Data16 (dpy, data, len)

+#define PackData32(dpy,data,len) Data32 (dpy, data, len)

+

+/* Xlib manual is bogus */

+#define PackData(dpy,data,len) PackData16 (dpy, data, len)

+

+#define min(a,b) (((a) < (b)) ? (a) : (b))

+#define max(a,b) (((a) > (b)) ? (a) : (b))

+

+#define CI_NONEXISTCHAR(cs) (((cs)->width == 0) && \

+			     (((cs)->rbearing|(cs)->lbearing| \

+			       (cs)->ascent|(cs)->descent) == 0))

+

+/*

+ * CI_GET_CHAR_INFO_1D - return the charinfo struct for the indicated 8bit

+ * character.  If the character is in the column and exists, then return the

+ * appropriate metrics (note that fonts with common per-character metrics will

+ * return min_bounds).  If none of these hold true, try again with the default

+ * char.

+ */

+#define CI_GET_CHAR_INFO_1D(fs,col,def,cs) \

+{ \

+    cs = def; \

+    if (col >= fs->min_char_or_byte2 && col <= fs->max_char_or_byte2) { \

+	if (fs->per_char == NULL) { \

+	    cs = &fs->min_bounds; \

+	} else { \

+	    cs = &fs->per_char[(col - fs->min_char_or_byte2)]; \

+	    if (CI_NONEXISTCHAR(cs)) cs = def; \

+	} \

+    } \

+}

+

+#define CI_GET_DEFAULT_INFO_1D(fs,cs) \

+  CI_GET_CHAR_INFO_1D (fs, fs->default_char, NULL, cs)

+

+

+

+/*

+ * CI_GET_CHAR_INFO_2D - return the charinfo struct for the indicated row and

+ * column.  This is used for fonts that have more than row zero.

+ */

+#define CI_GET_CHAR_INFO_2D(fs,row,col,def,cs) \

+{ \

+    cs = def; \

+    if (row >= fs->min_byte1 && row <= fs->max_byte1 && \

+	col >= fs->min_char_or_byte2 && col <= fs->max_char_or_byte2) { \

+	if (fs->per_char == NULL) { \

+	    cs = &fs->min_bounds; \

+	} else { \

+	    cs = &fs->per_char[((row - fs->min_byte1) * \

+			        (fs->max_char_or_byte2 - \

+				 fs->min_char_or_byte2 + 1)) + \

+			       (col - fs->min_char_or_byte2)]; \

+	    if (CI_NONEXISTCHAR(cs)) cs = def; \

+        } \

+    } \

+}

+

+#define CI_GET_DEFAULT_INFO_2D(fs,cs) \

+{ \

+    unsigned int r = (fs->default_char >> 8); \

+    unsigned int c = (fs->default_char & 0xff); \

+    CI_GET_CHAR_INFO_2D (fs, r, c, NULL, cs); \

+}

+

+

+#ifdef MUSTCOPY

+

+/* for when 32-bit alignment is not good enough */

+#define OneDataCard32(dpy,dstaddr,srcvar) \

+  { dpy->bufptr -= 4; Data32 (dpy, (char *) &(srcvar), 4); }

+

+#else

+

+/* srcvar must be a variable for large architecture version */

+#define OneDataCard32(dpy,dstaddr,srcvar) \

+  { *(CARD32 *)(dstaddr) = (srcvar); }

+

+#endif /* MUSTCOPY */

+

+typedef struct _XInternalAsync {

+    struct _XInternalAsync *next;

+    /*

+     * handler arguments:

+     * rep is the generic reply that caused this handler

+     * to be invoked.  It must also be passed to _XGetAsyncReply.

+     * buf and len are opaque values that must be passed to

+     * _XGetAsyncReply or _XGetAsyncData.

+     * data is the closure stored in this struct.

+     * The handler returns True iff it handled this reply.

+     */

+    Bool (*handler)(

+		    Display*	/* dpy */,

+		    xReply*	/* rep */,

+		    char*	/* buf */,

+		    int		/* len */,

+		    XPointer	/* data */

+		    );

+    XPointer data;

+} _XAsyncHandler;

+

+typedef struct _XAsyncEState {

+    unsigned long min_sequence_number;

+    unsigned long max_sequence_number;

+    unsigned char error_code;

+    unsigned char major_opcode;

+    unsigned short minor_opcode;

+    unsigned char last_error_received;

+    int error_count;

+} _XAsyncErrorState;

+

+extern void _XDeqAsyncHandler(Display *dpy, _XAsyncHandler *handler);

+#define DeqAsyncHandler(dpy,handler) { \

+    if (dpy->async_handlers == (handler)) \

+	dpy->async_handlers = (handler)->next; \

+    else \

+	_XDeqAsyncHandler(dpy, handler); \

+    }

+

+typedef void (*FreeFuncType) (

+    Display*	/* display */

+);

+

+typedef int (*FreeModmapType) (

+    XModifierKeymap*	/* modmap */

+);

+

+/*

+ * This structure is private to the library.

+ */

+typedef struct _XFreeFuncs {

+    FreeFuncType atoms;		/* _XFreeAtomTable */

+    FreeModmapType modifiermap;	/* XFreeModifierMap */

+    FreeFuncType key_bindings;	/* _XFreeKeyBindings */

+    FreeFuncType context_db;	/* _XFreeContextDB */

+    FreeFuncType defaultCCCs;	/* _XcmsFreeDefaultCCCs */

+    FreeFuncType clientCmaps;	/* _XcmsFreeClientCmaps */

+    FreeFuncType intensityMaps;	/* _XcmsFreeIntensityMaps */

+    FreeFuncType im_filters;	/* _XFreeIMFilters */

+    FreeFuncType xkb;		/* _XkbFreeInfo */

+} _XFreeFuncRec;

+

+/* types for InitExt.c */

+typedef int (*CreateGCType) (

+    Display*	/* display */,

+    GC		/* gc */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*CopyGCType)(

+    Display*	/* display */,

+    GC		/* gc */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*FlushGCType) (

+    Display*	/* display */,

+    GC		/* gc */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*FreeGCType) (

+    Display*	/* display */,

+    GC		/* gc */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*CreateFontType) (

+    Display*	/* display */,

+    XFontStruct* /* fs */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*FreeFontType) (

+    Display*	/* display */,

+    XFontStruct* /* fs */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*CloseDisplayType) (

+    Display*	/* display */,

+    XExtCodes*	/* codes */

+);

+

+typedef int (*ErrorType) (

+    Display*	/* display */,

+    xError*	/* err */,

+    XExtCodes*	/* codes */,

+    int*	/* ret_code */

+);

+

+typedef char* (*ErrorStringType) (

+    Display*	/* display */,

+    int		/* code */,

+    XExtCodes*	/* codes */,

+    char*	/* buffer */,

+    int		/* nbytes */

+);

+

+typedef void (*PrintErrorType)(

+    Display*	/* display */,

+    XErrorEvent* /* ev */,

+    void*	/* fp */

+);

+

+typedef void (*BeforeFlushType)(

+    Display*	/* display */,

+    XExtCodes*	/* codes */,

+    _Xconst char* /* data */,

+    long	/* len */

+);

+

+/*

+ * This structure is private to the library.

+ */

+typedef struct _XExten {		/* private to extension mechanism */

+	struct _XExten *next;		/* next in list */

+	XExtCodes codes;		/* public information, all extension told */

+	CreateGCType create_GC;		/* routine to call when GC created */

+	CopyGCType copy_GC;		/* routine to call when GC copied */

+	FlushGCType flush_GC;		/* routine to call when GC flushed */

+	FreeGCType free_GC;		/* routine to call when GC freed */

+	CreateFontType create_Font;	/* routine to call when Font created */

+	FreeFontType free_Font;		/* routine to call when Font freed */

+	CloseDisplayType close_display;	/* routine to call when connection closed */

+	ErrorType error;		/* who to call when an error occurs */

+	ErrorStringType error_string;	/* routine to supply error string */

+	char *name;			/* name of this extension */

+	PrintErrorType error_values;	/* routine to supply error values */

+	BeforeFlushType before_flush;	/* routine to call when sending data */

+	struct _XExten *next_flush;	/* next in list of those with flushes */

+} _XExtension;

+

+/* extension hooks */

+

+#ifdef DataRoutineIsProcedure

+extern void Data(Display *dpy, char *data, long len);

+#endif

+extern int _XError(

+    Display*	/* dpy */,

+    xError*	/* rep */

+);

+extern int _XIOError(

+    Display*	/* dpy */

+) _X_NORETURN;

+extern int (*_XIOErrorFunction)(

+    Display*	/* dpy */

+);

+extern int (*_XErrorFunction)(

+    Display*		/* dpy */,

+    XErrorEvent*	/* error_event */

+);

+extern void _XEatData(

+    Display*		/* dpy */,

+    unsigned long	/* n */

+);

+extern char *_XAllocScratch(

+    Display*		/* dpy */,

+    unsigned long	/* nbytes */

+);

+extern char *_XAllocTemp(

+    Display*		/* dpy */,

+    unsigned long	/* nbytes */

+);

+extern void _XFreeTemp(

+    Display*		/* dpy */,

+    char*		/* buf */,

+    unsigned long	/* nbytes */

+);

+extern Visual *_XVIDtoVisual(

+    Display*	/* dpy */,

+    VisualID	/* id */

+);

+extern unsigned long _XSetLastRequestRead(

+    Display*		/* dpy */,

+    xGenericReply*	/* rep */

+);

+extern int _XGetHostname(

+    char*	/* buf */,

+    int		/* maxlen */

+);

+extern Screen *_XScreenOfWindow(

+    Display*	/* dpy */,

+    Window	/* w */

+);

+extern Bool _XAsyncErrorHandler(

+    Display*	/* dpy */,

+    xReply*	/* rep */,

+    char*	/* buf */,

+    int		/* len */,

+    XPointer	/* data */

+);

+extern char *_XGetAsyncReply(

+    Display*	/* dpy */,

+    char*	/* replbuf */,

+    xReply*	/* rep */,

+    char*	/* buf */,

+    int		/* len */,

+    int		/* extra */,

+    Bool	/* discard */

+);

+extern void _XGetAsyncData(

+    Display*	/* dpy */,

+    char *	/* data */,

+    char *	/* buf */,

+    int		/* len */,

+    int		/* skip */,

+    int		/* datalen */,

+    int		/* discardtotal */

+);

+extern void _XFlush(

+    Display*	/* dpy */

+);

+extern int _XEventsQueued(

+    Display*	/* dpy */,

+    int 	/* mode */

+);

+extern void _XReadEvents(

+    Display*	/* dpy */

+);

+extern int _XRead(

+    Display*	/* dpy */,

+    char*	/* data */,

+    long	/* size */

+);

+extern void _XReadPad(

+    Display*	/* dpy */,

+    char*	/* data */,

+    long	/* size */

+);

+extern void _XSend(

+    Display*		/* dpy */,

+    _Xconst char*	/* data */,

+    long		/* size */

+);

+extern Status _XReply(

+    Display*	/* dpy */,

+    xReply*	/* rep */,

+    int		/* extra */,

+    Bool	/* discard */

+);

+extern void _XEnq(

+    Display*	/* dpy */,

+    xEvent*	/* event */

+);

+extern void _XDeq(

+    Display*	/* dpy */,

+    _XQEvent*	/* prev */,

+    _XQEvent*	/* qelt */

+);

+

+extern Bool _XUnknownWireEvent(

+    Display*	/* dpy */,

+    XEvent*	/* re */,

+    xEvent*	/* event */

+);

+

+extern Bool _XUnknownWireEventCookie(

+    Display*	/* dpy */,

+    XGenericEventCookie*	/* re */,

+    xEvent*	/* event */

+);

+

+extern Bool _XUnknownCopyEventCookie(

+    Display*	/* dpy */,

+    XGenericEventCookie*	/* in */,

+    XGenericEventCookie*	/* out */

+);

+

+extern Status _XUnknownNativeEvent(

+    Display*	/* dpy */,

+    XEvent*	/* re */,

+    xEvent*	/* event */

+);

+

+extern Bool _XWireToEvent(Display *dpy, XEvent *re, xEvent *event);

+extern Bool _XDefaultWireError(Display *display, XErrorEvent *he, xError *we);

+extern Bool _XPollfdCacheInit(Display *dpy);

+extern void _XPollfdCacheAdd(Display *dpy, int fd);

+extern void _XPollfdCacheDel(Display *dpy, int fd);

+extern XID _XAllocID(Display *dpy);

+extern void _XAllocIDs(Display *dpy, XID *ids, int count);

+

+extern int _XFreeExtData(

+    XExtData*	/* extension */

+);

+

+extern int (*XESetCreateGC(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+	      GC			/* gc */,

+	      XExtCodes*		/* codes */

+	    )		/* proc */

+))(

+    Display*, GC, XExtCodes*

+);

+

+extern int (*XESetCopyGC(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              GC			/* gc */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, GC, XExtCodes*

+);

+

+extern int (*XESetFlushGC(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              GC			/* gc */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, GC, XExtCodes*

+);

+

+extern int (*XESetFreeGC(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              GC			/* gc */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, GC, XExtCodes*

+);

+

+extern int (*XESetCreateFont(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              XFontStruct*		/* fs */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, XFontStruct*, XExtCodes*

+);

+

+extern int (*XESetFreeFont(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              XFontStruct*		/* fs */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, XFontStruct*, XExtCodes*

+);

+

+extern int (*XESetCloseDisplay(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              XExtCodes*		/* codes */

+            )		/* proc */

+))(

+    Display*, XExtCodes*

+);

+

+extern int (*XESetError(

+    Display*		/* display */,

+    int			/* extension */,

+    int (*) (

+	      Display*			/* display */,

+              xError*			/* err */,

+              XExtCodes*		/* codes */,

+              int*			/* ret_code */

+            )		/* proc */

+))(

+    Display*, xError*, XExtCodes*, int*

+);

+

+extern char* (*XESetErrorString(

+    Display*		/* display */,

+    int			/* extension */,

+    char* (*) (

+	        Display*		/* display */,

+                int			/* code */,

+                XExtCodes*		/* codes */,

+                char*			/* buffer */,

+                int			/* nbytes */

+              )		/* proc */

+))(

+    Display*, int, XExtCodes*, char*, int

+);

+

+extern void (*XESetPrintErrorValues (

+    Display*		/* display */,

+    int			/* extension */,

+    void (*)(

+	      Display*			/* display */,

+	      XErrorEvent*		/* ev */,

+	      void*			/* fp */

+	     )		/* proc */

+))(

+    Display*, XErrorEvent*, void*

+);

+

+extern Bool (*XESetWireToEvent(

+    Display*		/* display */,

+    int			/* event_number */,

+    Bool (*) (

+	       Display*			/* display */,

+               XEvent*			/* re */,

+               xEvent*			/* event */

+             )		/* proc */

+))(

+    Display*, XEvent*, xEvent*

+);

+

+extern Bool (*XESetWireToEventCookie(

+    Display*		/* display */,

+    int			/* extension */,

+    Bool (*) (

+	       Display*			/* display */,

+               XGenericEventCookie*	/* re */,

+               xEvent*			/* event */

+             )		/* proc */

+))(

+    Display*, XGenericEventCookie*, xEvent*

+);

+

+extern Bool (*XESetCopyEventCookie(

+    Display*		/* display */,

+    int			/* extension */,

+    Bool (*) (

+	       Display*			/* display */,

+               XGenericEventCookie*	/* in */,

+               XGenericEventCookie*	/* out */

+             )		/* proc */

+))(

+    Display*, XGenericEventCookie*, XGenericEventCookie*

+);

+

+

+extern Status (*XESetEventToWire(

+    Display*		/* display */,

+    int			/* event_number */,

+    Status (*) (

+	      Display*			/* display */,

+              XEvent*			/* re */,

+              xEvent*			/* event */

+            )		/* proc */

+))(

+    Display*, XEvent*, xEvent*

+);

+

+extern Bool (*XESetWireToError(

+    Display*		/* display */,

+    int			/* error_number */,

+    Bool (*) (

+	       Display*			/* display */,

+	       XErrorEvent*		/* he */,

+	       xError*			/* we */

+            )		/* proc */

+))(

+    Display*, XErrorEvent*, xError*

+);

+

+extern void (*XESetBeforeFlush(

+    Display*		/* display */,

+    int			/* error_number */,

+    void (*) (

+	       Display*			/* display */,

+	       XExtCodes*		/* codes */,

+	       _Xconst char*		/* data */,

+	       long			/* len */

+            )		/* proc */

+))(

+    Display*, XExtCodes*, _Xconst char*, long

+);

+

+/* internal connections for IMs */

+

+typedef void (*_XInternalConnectionProc)(

+    Display*			/* dpy */,

+    int				/* fd */,

+    XPointer			/* call_data */

+);

+

+

+extern Status _XRegisterInternalConnection(

+    Display*			/* dpy */,

+    int				/* fd */,

+    _XInternalConnectionProc	/* callback */,

+    XPointer			/* call_data */

+);

+

+extern void _XUnregisterInternalConnection(

+    Display*			/* dpy */,

+    int				/* fd */

+);

+

+extern void _XProcessInternalConnection(

+    Display*			/* dpy */,

+    struct _XConnectionInfo*	/* conn_info */

+);

+

+/* Display structure has pointers to these */

+

+struct _XConnectionInfo {	/* info from _XRegisterInternalConnection */

+    int fd;

+    _XInternalConnectionProc read_callback;

+    XPointer call_data;

+    XPointer *watch_data;	/* set/used by XConnectionWatchProc */

+    struct _XConnectionInfo *next;

+};

+

+struct _XConnWatchInfo {	/* info from XAddConnectionWatch */

+    XConnectionWatchProc fn;

+    XPointer client_data;

+    struct _XConnWatchInfo *next;

+};

+

+#ifdef __UNIXOS2__

+extern char* __XOS2RedirRoot(

+    char*

+);

+#endif

+

+extern int _XTextHeight(

+    XFontStruct*	/* font_struct */,

+    _Xconst char*	/* string */,

+    int			/* count */

+);

+

+extern int _XTextHeight16(

+    XFontStruct*	/* font_struct */,

+    _Xconst XChar2b*	/* string */,

+    int			/* count */

+);

+

+#if defined(WIN32)

+

+extern int _XOpenFile(

+    _Xconst char*	/* path */,

+    int			/* flags */

+);

+

+extern int _XOpenFileMode(

+    _Xconst char*	/* path */,

+    int			/* flags */,

+    mode_t              /* mode */

+);

+

+extern void* _XFopenFile(

+    _Xconst char*	/* path */,

+    _Xconst char*	/* mode */

+);

+

+extern int _XAccessFile(

+    _Xconst char*	/* path */

+);

+#else

+#define _XOpenFile(path,flags) open(path,flags)

+#define _XOpenFileMode(path,flags,mode) open(path,flags,mode)

+#define _XFopenFile(path,mode) fopen(path,mode)

+#endif

+

+/* EvToWire.c */

+extern Status _XEventToWire(Display *dpy, XEvent *re, xEvent *event);

+

+extern int _XF86LoadQueryLocaleFont(

+    Display*		/* dpy */,

+    _Xconst char*	/* name*/,

+    XFontStruct**	/* xfp*/,

+    Font*		/* fidp */

+);

+

+extern void _XProcessWindowAttributes (

+    register Display *dpy,

+    xChangeWindowAttributesReq *req,

+    register unsigned long valuemask,

+    register XSetWindowAttributes *attributes);

+

+extern int _XDefaultError(

+        Display *dpy,

+        XErrorEvent *event);

+

+extern int _XDefaultIOError(

+        Display *dpy);

+

+extern void _XSetClipRectangles (

+    register Display *dpy,

+    GC gc,

+    int clip_x_origin, int clip_y_origin,

+    XRectangle *rectangles,

+    int n,

+    int ordering);

+

+Status _XGetWindowAttributes(

+    register Display *dpy,

+    Window w,

+    XWindowAttributes *attr);

+

+int _XPutBackEvent (

+    register Display *dpy,

+    register XEvent *event);

+

+extern Bool _XIsEventCookie(

+        Display *dpy,

+        XEvent *ev);

+

+extern void _XFreeEventCookies(

+        Display *dpy);

+

+extern void _XStoreEventCookie(

+        Display *dpy,

+        XEvent *ev);

+

+extern Bool _XFetchEventCookie(

+        Display *dpy,

+        XGenericEventCookie *ev);

+

+extern Bool _XCopyEventCookie(

+        Display *dpy,

+        XGenericEventCookie *in,

+        XGenericEventCookie *out);

+

+/* lcFile.c */

+

+extern void xlocaledir(

+    char *buf,

+    int buf_len

+);

+

+_XFUNCPROTOEND

+

+#endif /* _X11_XLIBINT_H_ */

diff --git a/libX11/include/X11/Xregion.h b/libX11/include/X11/Xregion.h
index b441312dc..1ae16c487 100644
--- a/libX11/include/X11/Xregion.h
+++ b/libX11/include/X11/Xregion.h
@@ -58,8 +58,10 @@ typedef struct {
 

 #define TRUE 1

 #define FALSE 0

+#ifndef MAXSHORT

 #define MAXSHORT 32767

 #define MINSHORT -MAXSHORT

+#endif

 #ifndef MAX

 #define MAX(a,b) (((a) > (b)) ? (a) : (b))

 #endif

diff --git a/libX11/modules/im/ximcp/imCallbk.c b/libX11/modules/im/ximcp/imCallbk.c
index 6275bbf00..761021354 100644
--- a/libX11/modules/im/ximcp/imCallbk.c
+++ b/libX11/modules/im/ximcp/imCallbk.c
@@ -1,754 +1,754 @@
-/***********************************************************************
-Copyright 1993 by Digital Equipment Corporation, Maynard, Massachusetts,
-Copyright 1994 by FUJITSU LIMITED
-Copyright 1994 by Sony Corporation
-
-                        All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the names of Digital, FUJITSU
-LIMITED and Sony Corporation not be used in advertising or publicity
-pertaining to distribution of the software without specific, written
-prior permission.
-
-DIGITAL, FUJITSU LIMITED AND SONY CORPORATION DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL, FUJITSU LIMITED
-AND SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Hiroyuki Miyamoto  Digital Equipment Corporation
-                             miyamoto@jrd.dec.com
-  Modifier: Takashi Fujiwara FUJITSU LIMITED
-			     fujiwara@a80.tech.yk.fujitsu.co.jp
-	    Makoto Wakamatsu Sony Corporation
-		 	     makoto@sm.sony.co.jp
-
-***********************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-#include "XlcPubI.h"
-#ifdef X_LOCALE
-#define mblen(a,b)	_Xmblen(a,b)
-extern int _Xmblen ();
-#endif
-
-#define sz_CARD8                 1
-#define sz_INT8                  1
-#define sz_CARD16                2
-#define sz_INT16                 2
-#define sz_BITMASK16             sz_CARD16
-#define sz_CARD32                4
-#define sz_INT32                 4
-#define sz_BITMASK32             sz_CARD32
-#define sz_XIMID                 sizeof(XIMID)
-#define sz_XICID                 sizeof(XICID)
-#define sz_XIMATTRID             sizeof(XIMATTRID)
-#define sz_XICATTRID             sizeof(XICATTRID)
-#define sz_ximPacketHeader       (XIM_HEADER_SIZE + sz_XIMID + sz_XICID)
-#define sz_ximGeometry           0
-#define sz_ximStrConversion      (sz_CARD32 + sz_CARD32 + sz_CARD32 + sz_CARD32)
-#define sz_ximPreeditStart       0
-#define sz_ximPreeditStartReply  sz_INT32
-#define sz_ximPreeditCaret       (sz_INT32 + sz_CARD32 + sz_CARD32)
-#define sz_ximPreeditCaretReply  sz_CARD32
-#define sz_ximPreeditDone        0
-#define sz_ximStatusStart        0
-#define sz_ximStatusDone         0
-
-typedef enum {
-    XimCbSuccess,
-    XimCbNoCallback,
-    XimCbError,
-    XimCbQueued,
-    XimCbBadContextID,
-    XimCbBadOpcode
-} XimCbStatus;
-
-typedef XimCbStatus (*XimCb)(
-			     Xim, Xic, char*, int
-			     );
-
-#define PACKET_TO_MAJOROPCODE(p) (*(CARD8*)((CARD8*)(p)))
-#define PACKET_TO_MINOROPCODE(p) (*(CARD8*)((CARD8*)(p) + sz_CARD8))
-#define PACKET_TO_LENGTH(p) (*(CARD16*)((CARD8*)(p) + sz_CARD8 + sz_CARD8))
-#define PACKET_TO_IMID(p) (*(XIMID*)((CARD8*)(p) + XIM_HEADER_SIZE))
-#define PACKET_TO_ICID(p) (*(XICID*)((CARD8*)(p) + XIM_HEADER_SIZE + sz_XIMID))
-
-#define _XimWriteData(im,len,data) \
-    (im->private.proto.write((im),(len),(XPointer)(data)))
-#define _XimReadData(im,buf,buf_len,len) \
-    (im->private.proto.read((im),(XPointer)(buf),(buf_len),&(len)))
-#define _XimFlushData(im) im->private.proto.flush((im))
-
-Private XimCbStatus _XimGeometryCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimStrConversionCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimPreeditStartCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimPreeditDoneCallback(Xim, Xic, char*, int);
-Private void _free_memory_for_text(XIMText*);
-Private XimCbStatus _XimPreeditDrawCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimPreeditCaretCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimStatusStartCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimStatusDoneCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimStatusDrawCallback(Xim, Xic, char*, int);
-Private XimCbStatus _XimPreeditStateNotifyCallback(Xim, Xic, char *, int);
-
-#if defined(__STDC__) && ((defined(sun) && defined(SVR4)) || defined(WIN32))
-#define RConst /**/
-#else
-#define RConst const
-#endif
-
-/* NOTE:
- * the table below depends on the protocol number
- * defined in the IM Protocol document.
- */
-static RConst XimCb callback_table[] = {
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #000-009 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #010-019 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #020-029 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #030-039 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #040-049 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #050-059 */
-    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #060-069 */
-    _XimGeometryCallback,	/* #070 */
-    _XimStrConversionCallback,	/* #071 */
-    NULL,			/* #072 */
-    _XimPreeditStartCallback,	/* #073 */
-    NULL,			/* #074 */
-    _XimPreeditDrawCallback,	/* #075 */
-    _XimPreeditCaretCallback,	/* #076 */
-    NULL,			/* #077 */
-    _XimPreeditDoneCallback,	/* #078 */
-    _XimStatusStartCallback,	/* #079 */
-    _XimStatusDrawCallback,	/* #080 */
-    _XimStatusDoneCallback,	/* #081 */
-    _XimPreeditStateNotifyCallback	/* #082 */
-    };
-
-
-Private Bool
-_XimIsReadyForProcess(Xic ic)
-{
-    return(!ic->private.proto.waitCallback); /* check HM */
-}
-
-Private void
-_XimProcessPendingCallbacks(Xic ic)
-{
-    XimPendingCallback pcbq;
-
-    while (((pcbq = ic->private.proto.pend_cb_que) != (XimPendingCallback)NULL)
-	   && _XimIsReadyForProcess(ic)) {
-	(void) (*callback_table[pcbq->major_opcode])(pcbq->im,
-						     pcbq->ic,
-						     pcbq->proto,
-						     pcbq->proto_len);
-	ic->private.proto.pend_cb_que = pcbq->next;
-	Xfree(pcbq->proto);	/* free memory of XimPendingCallback */
-	Xfree(pcbq);
-    }
-}
-
-Private void
-_XimPutCbIntoQueue(Xic ic, XimPendingCallback call_data)
-{
-    XimPendingCallback pcbq = ic->private.proto.pend_cb_que;
-
-    /* Queuing is FIFO
-     */
-    while (pcbq != (XimPendingCallback)NULL) {
-	if (pcbq->next == (XimPendingCallback)NULL) {
-	    break;
-	}
-	pcbq = pcbq->next;
-    }
-    if (pcbq == (XimPendingCallback)NULL) {
-	ic->private.proto.pend_cb_que = call_data;
-    }
-    else {
-	pcbq->next = call_data;
-    }
-}
-
-Public Bool
-_XimCbDispatch(Xim xim,
-	       INT16 len,
-	       XPointer data,
-	       XPointer call_data)
-{
-    /* `data' points to the beginning of the packet defined in IM Protocol doc.
-     */
-    int major_opcode = PACKET_TO_MAJOROPCODE(data);
-    XIMID imid = PACKET_TO_IMID(data);
-    XICID icid = PACKET_TO_ICID(data);
-    Xim im = (Xim)call_data;	/* check HM */
-    Xic ic = _XimICOfXICID(im, icid);
-    char* proto;
-    int proto_len;
-
-    /* check validity of im/ic
-     */
-    if ((imid != im->private.proto.imid) || !ic) {
-	return False; /* status = XimCbBadContextID; */
-    }
-
-    /* process pending callbacks
-     */
-    _XimProcessPendingCallbacks(ic);
-
-    /* check if the protocol should be processed here
-     */
-    if (major_opcode > 82) {
-	return False; /* status = XimCbBadOpcode; */
-    }
-    if (!callback_table[major_opcode]) {
-	return False; /* status = XimCbBadOpcode; */
-    }
-
-    /* move the pointer ahead by the IM Protocol packet header size
-     */
-    proto = (char*)data + sz_ximPacketHeader;
-    proto_len = (int)len - sz_ximPacketHeader;
-
-    /* check if it can be processed right away
-     * and if no, queue the protocol, otherwise invoke a callback
-     */
-    if (!_XimIsReadyForProcess(ic)) {
-
-	/* queue the protocol
-	 */
-	XimPendingCallback pcb;
-	char *proto_buf = (proto_len > 0) ? (char*)Xmalloc(proto_len) : NULL;
-
-	pcb = (XimPendingCallback)Xmalloc(sizeof(XimPendingCallbackRec));
-	if (pcb && (proto_len <= 0 || proto_buf)) {
-	    if (proto_len > 0)
-		memcpy(proto_buf, proto, proto_len);
-
-	    pcb->major_opcode = major_opcode;
-	    pcb->im = im;
-	    pcb->ic = ic;
-	    pcb->proto = proto_buf;
-	    pcb->proto_len = proto_len;
-	    pcb->next = (XimPendingCallback)NULL; /* queue is FIFO */
-	    _XimPutCbIntoQueue(ic, pcb);
-	    /* status = XimCbQueued; */
-	} else {
-	    /* status = XimCbError; */
-	    Xfree(pcb);
-	    Xfree(proto_buf);
-	}
-    }
-    else {
-	/* invoke each callback according to the major opcode.
-	 * `proto' points to the next address of IM-ID and IC-ID.
-	 * `proto_len' specifies the packet length.
-	 */
-	(void) (*callback_table[major_opcode])(im, ic, proto, proto_len);
-    }
-    return True;
-}
-
-Private XimCbStatus
-_XimGeometryCallback(Xim im,
-		     Xic ic,
-		     char* proto,
-		     int len)
-{
-    XICCallback* cb = &ic->core.geometry_callback;
-
-    /* invoke the callack
-     */
-    if (cb && cb->callback) {
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimStrConversionCallback(Xim im,
-			  Xic ic,
-			  char* proto,
-			  int len)
-{
-    XICCallback* cb = &ic->core.string_conversion_callback; /* check HM */
-    XIMStringConversionCallbackStruct cbrec;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	int p = XIM_HEADER_SIZE;
-	cbrec.position = (XIMStringConversionPosition)
-	    *(CARD32*)&proto[p]; p += sz_CARD32;
-	cbrec.direction = (XIMCaretDirection)
-	    *(CARD32*)&proto[p]; p += sz_CARD32;
-	cbrec.operation = (XIMStringConversionOperation)
-	    *(CARD32*)&proto[p]; p += sz_CARD32;
-	cbrec.factor = (unsigned short)
-	    *(CARD32*)&proto[p];
-
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbrec);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	_XimError(im, ic,
-		  (CARD16)XIM_BadSomething,
-		  (INT16)len,
-		  (CARD16)XIM_STR_CONVERSION,
-		  (char*)proto); /* send XIM_ERROR */
-	return XimCbNoCallback;
-    }
-
-    /* send a reply
-     */
-    {
-	CARD8	*buf;
-	INT16	 buf_len;
-	int	 p, length_in_bytes, i;
-
-	/* Assumption:
-	 * `cbrec.text->length' means the string length in characters
-	 */
-	{
-	    length_in_bytes = (cbrec.text->encoding_is_wchar)?
-		sizeof(wchar_t) * cbrec.text->length: /* wchar */
-		strlen(cbrec.text->string.mbs);	/* mb */
-	    buf_len = XIM_HEADER_SIZE +
-		sz_CARD16 +
-		2 + length_in_bytes +
-		XIM_PAD(2 + length_in_bytes) +
-		2 + 2 + sz_CARD32 * cbrec.text->length;
-	    buf = (CARD8*)Xmalloc(buf_len);
-	}
-	_XimSetHeader((XPointer)buf, XIM_STR_CONVERSION_REPLY, 0, &buf_len);
-	buf_len -= XIM_HEADER_SIZE; /* added by _XimSetHeader (HACK) */
-	p = XIM_HEADER_SIZE;
-	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;
-	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;
-	*(CARD16*)&buf[p] = (CARD16)cbrec.text->length; p += sz_CARD16;
-	memcpy(&buf[p],&cbrec.text->string.mbs,length_in_bytes);
-	p += length_in_bytes;
-	*(CARD16*)&buf[p] = (CARD16)(sz_CARD32*cbrec.text->length);
-	p += XIM_PAD(2);
-	for (i = 0; i < (int)cbrec.text->length; i++) {
-	    *(CARD32*)&buf[p] = (CARD32)cbrec.text->feedback[i];
-	    p += sz_CARD32;
-	}
-
-	if (!(_XimWriteData(im, buf_len, buf))) {
-	    return XimCbError;
-	}
-	_XimFlushData(im);
-
-	Xfree(buf);
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimPreeditStartCallback(Xim im,
-			 Xic ic,
-			 char* proto,
-			 int len)
-{
-    XICCallback* cb = &ic->core.preedit_attr.start_callback;
-    int ret;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback){
-	ret = (*(cb->callback))((XIC)ic, cb->client_data, (XPointer)NULL);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	_XimError(im, ic,
-		  (CARD16)XIM_BadSomething,
-		  (INT16)len,
-		  (CARD16)XIM_PREEDIT_START,
-		  (char*)proto); /* send XIM_ERROR */
-	return XimCbNoCallback;
-    }
-
-    /* send a reply
-     */
-    {
-	CARD32 buf32[(sz_ximPacketHeader + sz_ximPreeditStartReply) / 4];
-	CARD8 *buf = (CARD8 *)buf32;
-	INT16 buf_len = sz_XIMID + sz_XICID + sz_ximPreeditStartReply;
-	int p;
-
-	_XimSetHeader((XPointer)buf, XIM_PREEDIT_START_REPLY, 0, &buf_len);
-	p = XIM_HEADER_SIZE;
-	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;
-	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;
-	*(INT32*)&buf[p]  = (INT32)ret;
-
-	if (!(_XimWriteData(im, buf_len, buf))) {
-	    return XimCbError;
-	}
-	_XimFlushData(im);
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimPreeditDoneCallback(Xim im,
-			Xic ic,
-			char* proto,
-			int len)
-{
-    XICCallback* cb = &ic->core.preedit_attr.done_callback;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private void
-_read_text_from_packet(Xim im,
-		       char* buf,
-		       XIMText** text_ptr)
-{
-    int status;
-    XIMText* text;
-    int tmp_len;
-    char* tmp_buf;
-    Status s = 0;
-
-    status = (int)*(BITMASK32*)buf; buf += sz_BITMASK32;
-
-    /* string part
-     */
-    if (status & 0x00000001) /* "no string" bit on */ {
-	buf += sz_CARD16;	/* skip "length of preedit string" */
-	buf += 2;		/* pad */
-	*text_ptr = (XIMText*)NULL;
-	return;
-    }
-
-    *text_ptr = text = (XIMText*)Xmalloc(sizeof(XIMText));
-    if (text == (XIMText*)NULL) return;
-
-	tmp_len = (int)*(CARD16*)buf;
-	buf += sz_CARD16;
-	if ((tmp_buf = (char*)Xmalloc(tmp_len + 1))) {
-	    memcpy(tmp_buf, buf, tmp_len);
-	    tmp_buf[tmp_len] = '\0';
-
-	    text->encoding_is_wchar = False;
-	    text->length = im->methods->ctstombs((XIM)im,
-					tmp_buf, tmp_len,
-					NULL, 0, &s); /* CT? HM */
-	    if (s != XLookupNone) {
-#ifndef NO_DEC_I18N_FIX
-                /* Allow for NULL-terminated */
-                if ((text->string.multi_byte =
-                    (char*)Xmalloc(text->length *
-                      XLC_PUBLIC(im->core.lcd,mb_cur_max) + 1))) {
-#else
-		if (text->string.multi_byte = (char*)Xmalloc(text->length+1)) {
-#endif
-			int tmp;
-#ifndef NO_DEC_I18N_FIX
-                        char *char_tmp;
-                        int char_len;
-#endif
-			tmp = im->methods->ctstombs((XIM)im,
-					   tmp_buf, tmp_len,
-#ifndef NO_DEC_I18N_FIX
-                                           text->string.multi_byte,
-                                           text->length * XLC_PUBLIC(im->core.lcd,mb_cur_max) + 1,
-#else
-					   text->string.multi_byte, text->length,
-#endif
-					   &s);
-			text->string.multi_byte[tmp] = '\0';
-#ifndef NO_DEC_I18N_FIX
-                        text->length = 0;
-                        char_tmp =  text->string.multi_byte;
-                        while (*char_tmp != '\0') {
-                              char_len = mblen(char_tmp, strlen(char_tmp));
-                              char_tmp = char_tmp + char_len;
-                              (text->length)++;
-                        }
-#endif
-		}
-	    }
-	    else {
-		text->length = 0;
-		text->string.multi_byte = NULL;
-	    }
-
-	    Xfree(tmp_buf);
-	}
-	buf += tmp_len;
-
-	buf += XIM_PAD(sz_CARD16 + tmp_len); /* pad */
-
-    /* feedback part
-     */
-    if (status & 0x00000002) /* "no feedback" bit on */ {
-	text->feedback = (XIMFeedback*)NULL;
-    }
-    else {
-	int i, j;
-
-	i = (int)*(CARD16*)buf; buf += sz_CARD16;
-	buf += sz_CARD16; /* skip `unused' */
-	text->feedback = (XIMFeedback*)Xmalloc(i*(sizeof(XIMFeedback)/sizeof(CARD32)));
-	j = 0;
-	while (i > 0) {
-	    text->feedback[j] = (XIMFeedback)*(CARD32*)buf;
-	    buf += sz_CARD32;
-	    i -= sz_CARD32;
-	    j++;
-	}
-	/*
-	 * text->length tells how long both the status string and
-	 * the feedback array are. If there's "no string" the
-	 * text->length was set to zero previously. See above.
-	 * But if there is feedback (i.e. not "no feedback") then
-	 * we need to convey the length of the feedback array.
-	 * It might have been better if the protocol sent two
-	 * different values, one for the length of the status
-	 * string and one for the length of the feedback array.
-	 */
-	if (status & 0x00000001) /* "no string" bit on */ {
-	    text->length = j;
-	}
-    }
-}
-
-Private void
-_free_memory_for_text(XIMText* text)
-{
-    if (text) {
-	if (text->string.multi_byte)
-	    Xfree(text->string.multi_byte);
-	if (text->feedback)
-	    Xfree(text->feedback);
-	Xfree(text);
-    }
-}
-
-Private XimCbStatus
-_XimPreeditDrawCallback(Xim im,
-			Xic ic,
-			char* proto,
-			int len)
-{
-    XICCallback* cb = &ic->core.preedit_attr.draw_callback;
-    XIMPreeditDrawCallbackStruct cbs;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	cbs.caret      = (int)*(INT32*)proto; proto += sz_INT32;
-	cbs.chg_first  = (int)*(INT32*)proto; proto += sz_INT32;
-	cbs.chg_length = (int)*(INT32*)proto; proto += sz_INT32;
-	_read_text_from_packet(im, proto, &cbs.text);
-
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);
-
-	_free_memory_for_text((XIMText*)cbs.text);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimPreeditCaretCallback(Xim im,
-			 Xic ic,
-			 char* proto,
-			 int len)
-{
-    XICCallback* cb = &ic->core.preedit_attr.caret_callback;
-    XIMPreeditCaretCallbackStruct cbs;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	cbs.position  = (int)*(INT32*)proto; proto += sz_INT32;
-	cbs.direction = (XIMCaretDirection)*(CARD32*)proto; proto += sz_CARD32;
-	cbs.style     = (XIMCaretStyle)*(CARD32*)proto; proto += sz_CARD32;
-
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	_XimError(im, ic,
-		  (CARD16)XIM_BadSomething,
-		  (INT16)len,
-		  (CARD16)XIM_PREEDIT_CARET,
-		  (char*)proto); /* send XIM_ERROR */
-	return XimCbNoCallback;
-    }
-
-    /* Send a reply
-     */
-    {
-	CARD8 buf[sz_ximPacketHeader + sz_ximPreeditCaretReply];
-	INT16 len = sz_XIMID + sz_XICID + sz_ximPreeditCaretReply;
-	int p;
-
-	_XimSetHeader((XPointer)buf, XIM_PREEDIT_CARET_REPLY, 0, &len);
-	p = XIM_HEADER_SIZE;
-	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;
-	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;
-	*(CARD32*)&buf[p] = (CARD32)cbs.position;
-
-	if (!(_XimWriteData(im, len, buf))) {
-	    return XimCbError;
-	}
-	_XimFlushData(im);
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimStatusStartCallback(Xim im,
-			Xic ic,
-			char* proto,
-			int len)
-{
-    XICCallback* cb = &ic->core.status_attr.start_callback;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimStatusDoneCallback(Xim im,
-		       Xic ic,
-		       char* proto,
-		       int len)
-{
-    XICCallback* cb = &ic->core.status_attr.done_callback;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimStatusDrawCallback(Xim im,
-		       Xic ic,
-		       char* proto,
-		       int len)
-{
-    XICCallback* cb = &ic->core.status_attr.draw_callback;
-    XIMStatusDrawCallbackStruct cbs;
-
-    /* invoke the callback
-     */
-    if (cb && cb->callback) {
-	cbs.type = (XIMStatusDataType)*(CARD32*)proto; proto += sz_CARD32;
-	if (cbs.type == XIMTextType) {
-	    _read_text_from_packet(im, proto, &cbs.data.text);
-	}
-	else if (cbs.type == XIMBitmapType) {
-	    cbs.data.bitmap = (Pixmap)*(CARD32*)proto;
-	}
-
-	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);
-
-	if (cbs.type == XIMTextType)
-	    _free_memory_for_text((XIMText *)cbs.data.text);
-    }
-    else {
-
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
-Private XimCbStatus
-_XimPreeditStateNotifyCallback( Xim im, Xic ic, char* proto, int len )
-{
-    XICCallback	*cb = &ic->core.preedit_attr.state_notify_callback;
-
-    /* invoke the callack
-     */
-    if( cb  &&  cb->callback ) {
-	XIMPreeditStateNotifyCallbackStruct cbrec;
-
-	cbrec.state = *(BITMASK32 *)proto;
-	(*cb->callback)( (XIC)ic, cb->client_data, (XPointer)&cbrec );
-    }
-    else {
-	/* no callback registered
-	 */
-	return XimCbNoCallback;
-    }
-
-    return XimCbSuccess;
-}
-
+/***********************************************************************

+Copyright 1993 by Digital Equipment Corporation, Maynard, Massachusetts,

+Copyright 1994 by FUJITSU LIMITED

+Copyright 1994 by Sony Corporation

+

+                        All Rights Reserved

+

+Permission to use, copy, modify, and distribute this software and its

+documentation for any purpose and without fee is hereby granted,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the names of Digital, FUJITSU

+LIMITED and Sony Corporation not be used in advertising or publicity

+pertaining to distribution of the software without specific, written

+prior permission.

+

+DIGITAL, FUJITSU LIMITED AND SONY CORPORATION DISCLAIMS ALL WARRANTIES

+WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF

+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL, FUJITSU LIMITED

+AND SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Hiroyuki Miyamoto  Digital Equipment Corporation

+                             miyamoto@jrd.dec.com

+  Modifier: Takashi Fujiwara FUJITSU LIMITED

+			     fujiwara@a80.tech.yk.fujitsu.co.jp

+	    Makoto Wakamatsu Sony Corporation

+		 	     makoto@sm.sony.co.jp

+

+***********************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+#include "XlcPubI.h"

+#ifdef X_LOCALE

+#define mblen(a,b)	_Xmblen(a,b)

+extern int _Xmblen ();

+#endif

+

+#define sz_CARD8                 1

+#define sz_INT8                  1

+#define sz_CARD16                2

+#define sz_INT16                 2

+#define sz_BITMASK16             sz_CARD16

+#define sz_CARD32                4

+#define sz_INT32                 4

+#define sz_BITMASK32             sz_CARD32

+#define sz_XIMID                 sizeof(XIMID)

+#define sz_XICID                 sizeof(XICID)

+#define sz_XIMATTRID             sizeof(XIMATTRID)

+#define sz_XICATTRID             sizeof(XICATTRID)

+#define sz_ximPacketHeader       (XIM_HEADER_SIZE + sz_XIMID + sz_XICID)

+#define sz_ximGeometry           0

+#define sz_ximStrConversion      (sz_CARD32 + sz_CARD32 + sz_CARD32 + sz_CARD32)

+#define sz_ximPreeditStart       0

+#define sz_ximPreeditStartReply  sz_INT32

+#define sz_ximPreeditCaret       (sz_INT32 + sz_CARD32 + sz_CARD32)

+#define sz_ximPreeditCaretReply  sz_CARD32

+#define sz_ximPreeditDone        0

+#define sz_ximStatusStart        0

+#define sz_ximStatusDone         0

+

+typedef enum {

+    XimCbSuccess,

+    XimCbNoCallback,

+    XimCbError,

+    XimCbQueued,

+    XimCbBadContextID,

+    XimCbBadOpcode

+} XimCbStatus;

+

+typedef XimCbStatus (*XimCb)(

+			     Xim, Xic, char*, int

+			     );

+

+#define PACKET_TO_MAJOROPCODE(p) (*(CARD8*)((CARD8*)(p)))

+#define PACKET_TO_MINOROPCODE(p) (*(CARD8*)((CARD8*)(p) + sz_CARD8))

+#define PACKET_TO_LENGTH(p) (*(CARD16*)((CARD8*)(p) + sz_CARD8 + sz_CARD8))

+#define PACKET_TO_IMID(p) (*(XIMID*)((CARD8*)(p) + XIM_HEADER_SIZE))

+#define PACKET_TO_ICID(p) (*(XICID*)((CARD8*)(p) + XIM_HEADER_SIZE + sz_XIMID))

+

+#define _XimWriteData(im,len,data) \

+    (im->private.proto.write((im),(len),(XPointer)(data)))

+#define _XimReadData(im,buf,buf_len,len) \

+    (im->private.proto.read((im),(XPointer)(buf),(buf_len),&(len)))

+#define _XimFlushData(im) im->private.proto.flush((im))

+

+Private XimCbStatus _XimGeometryCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimStrConversionCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimPreeditStartCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimPreeditDoneCallback(Xim, Xic, char*, int);

+Private void _free_memory_for_text(XIMText*);

+Private XimCbStatus _XimPreeditDrawCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimPreeditCaretCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimStatusStartCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimStatusDoneCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimStatusDrawCallback(Xim, Xic, char*, int);

+Private XimCbStatus _XimPreeditStateNotifyCallback(Xim, Xic, char *, int);

+

+#if defined(__STDC__) && ((defined(sun) && defined(SVR4)) || defined(WIN32))

+#define RConst /**/

+#else

+#define RConst const

+#endif

+

+/* NOTE:

+ * the table below depends on the protocol number

+ * defined in the IM Protocol document.

+ */

+static RConst XimCb callback_table[] = {

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #000-009 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #010-019 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #020-029 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #030-039 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #040-049 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #050-059 */

+    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, /* #060-069 */

+    _XimGeometryCallback,	/* #070 */

+    _XimStrConversionCallback,	/* #071 */

+    NULL,			/* #072 */

+    _XimPreeditStartCallback,	/* #073 */

+    NULL,			/* #074 */

+    _XimPreeditDrawCallback,	/* #075 */

+    _XimPreeditCaretCallback,	/* #076 */

+    NULL,			/* #077 */

+    _XimPreeditDoneCallback,	/* #078 */

+    _XimStatusStartCallback,	/* #079 */

+    _XimStatusDrawCallback,	/* #080 */

+    _XimStatusDoneCallback,	/* #081 */

+    _XimPreeditStateNotifyCallback	/* #082 */

+    };

+

+

+Private Bool

+_XimIsReadyForProcess(Xic ic)

+{

+    return(!ic->private.proto.waitCallback); /* check HM */

+}

+

+Private void

+_XimProcessPendingCallbacks(Xic ic)

+{

+    XimPendingCallback pcbq;

+

+    while (((pcbq = ic->private.proto.pend_cb_que) != (XimPendingCallback)NULL)

+	   && _XimIsReadyForProcess(ic)) {

+	(void) (*callback_table[pcbq->major_opcode])(pcbq->im,

+						     pcbq->ic,

+						     pcbq->proto,

+						     pcbq->proto_len);

+	ic->private.proto.pend_cb_que = pcbq->next;

+	Xfree(pcbq->proto);	/* free memory of XimPendingCallback */

+	Xfree(pcbq);

+    }

+}

+

+Private void

+_XimPutCbIntoQueue(Xic ic, XimPendingCallback call_data)

+{

+    XimPendingCallback pcbq = ic->private.proto.pend_cb_que;

+

+    /* Queuing is FIFO

+     */

+    while (pcbq != (XimPendingCallback)NULL) {

+	if (pcbq->next == (XimPendingCallback)NULL) {

+	    break;

+	}

+	pcbq = pcbq->next;

+    }

+    if (pcbq == (XimPendingCallback)NULL) {

+	ic->private.proto.pend_cb_que = call_data;

+    }

+    else {

+	pcbq->next = call_data;

+    }

+}

+

+Public Bool

+_XimCbDispatch(Xim xim,

+	       INT16 len,

+	       XPointer data,

+	       XPointer call_data)

+{

+    /* `data' points to the beginning of the packet defined in IM Protocol doc.

+     */

+    int major_opcode = PACKET_TO_MAJOROPCODE(data);

+    XIMID imid = PACKET_TO_IMID(data);

+    XICID icid = PACKET_TO_ICID(data);

+    Xim im = (Xim)call_data;	/* check HM */

+    Xic ic = _XimICOfXICID(im, icid);

+    char* proto;

+    int proto_len;

+

+    /* check validity of im/ic

+     */

+    if ((imid != im->private.proto.imid) || !ic) {

+	return False; /* status = XimCbBadContextID; */

+    }

+

+    /* process pending callbacks

+     */

+    _XimProcessPendingCallbacks(ic);

+

+    /* check if the protocol should be processed here

+     */

+    if (major_opcode > 82) {

+	return False; /* status = XimCbBadOpcode; */

+    }

+    if (!callback_table[major_opcode]) {

+	return False; /* status = XimCbBadOpcode; */

+    }

+

+    /* move the pointer ahead by the IM Protocol packet header size

+     */

+    proto = (char*)data + sz_ximPacketHeader;

+    proto_len = (int)len - sz_ximPacketHeader;

+

+    /* check if it can be processed right away

+     * and if no, queue the protocol, otherwise invoke a callback

+     */

+    if (!_XimIsReadyForProcess(ic)) {

+

+	/* queue the protocol

+	 */

+	XimPendingCallback pcb;

+	char *proto_buf = (proto_len > 0) ? (char*)Xmalloc(proto_len) : NULL;

+

+	pcb = (XimPendingCallback)Xmalloc(sizeof(XimPendingCallbackRec));

+	if (pcb && (proto_len <= 0 || proto_buf)) {

+	    if (proto_len > 0)

+		memcpy(proto_buf, proto, proto_len);

+

+	    pcb->major_opcode = major_opcode;

+	    pcb->im = im;

+	    pcb->ic = ic;

+	    pcb->proto = proto_buf;

+	    pcb->proto_len = proto_len;

+	    pcb->next = (XimPendingCallback)NULL; /* queue is FIFO */

+	    _XimPutCbIntoQueue(ic, pcb);

+	    /* status = XimCbQueued; */

+	} else {

+	    /* status = XimCbError; */

+	    Xfree(pcb);

+	    Xfree(proto_buf);

+	}

+    }

+    else {

+	/* invoke each callback according to the major opcode.

+	 * `proto' points to the next address of IM-ID and IC-ID.

+	 * `proto_len' specifies the packet length.

+	 */

+	(void) (*callback_table[major_opcode])(im, ic, proto, proto_len);

+    }

+    return True;

+}

+

+Private XimCbStatus

+_XimGeometryCallback(Xim im,

+		     Xic ic,

+		     char* proto,

+		     int len)

+{

+    XICCallback* cb = &ic->core.geometry_callback;

+

+    /* invoke the callack

+     */

+    if (cb && cb->callback) {

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimStrConversionCallback(Xim im,

+			  Xic ic,

+			  char* proto,

+			  int len)

+{

+    XICCallback* cb = &ic->core.string_conversion_callback; /* check HM */

+    XIMStringConversionCallbackStruct cbrec;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	int p = XIM_HEADER_SIZE;

+	cbrec.position = (XIMStringConversionPosition)

+	    *(CARD32*)&proto[p]; p += sz_CARD32;

+	cbrec.direction = (XIMCaretDirection)

+	    *(CARD32*)&proto[p]; p += sz_CARD32;

+	cbrec.operation = (XIMStringConversionOperation)

+	    *(CARD32*)&proto[p]; p += sz_CARD32;

+	cbrec.factor = (unsigned short)

+	    *(CARD32*)&proto[p];

+

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbrec);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	_XimError(im, ic,

+		  (CARD16)XIM_BadSomething,

+		  (INT16)len,

+		  (CARD16)XIM_STR_CONVERSION,

+		  (char*)proto); /* send XIM_ERROR */

+	return XimCbNoCallback;

+    }

+

+    /* send a reply

+     */

+    {

+	CARD8	*buf;

+	INT16	 buf_len;

+	int	 p, length_in_bytes, i;

+

+	/* Assumption:

+	 * `cbrec.text->length' means the string length in characters

+	 */

+	{

+	    length_in_bytes = (cbrec.text->encoding_is_wchar)?

+		sizeof(wchar_t) * cbrec.text->length: /* wchar */

+		strlen(cbrec.text->string.mbs);	/* mb */

+	    buf_len = XIM_HEADER_SIZE +

+		sz_CARD16 +

+		2 + length_in_bytes +

+		XIM_PAD(2 + length_in_bytes) +

+		2 + 2 + sz_CARD32 * cbrec.text->length;

+	    buf = (CARD8*)Xmalloc(buf_len);

+	}

+	_XimSetHeader((XPointer)buf, XIM_STR_CONVERSION_REPLY, 0, &buf_len);

+	buf_len -= XIM_HEADER_SIZE; /* added by _XimSetHeader (HACK) */

+	p = XIM_HEADER_SIZE;

+	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;

+	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;

+	*(CARD16*)&buf[p] = (CARD16)cbrec.text->length; p += sz_CARD16;

+	memcpy(&buf[p],&cbrec.text->string.mbs,length_in_bytes);

+	p += length_in_bytes;

+	*(CARD16*)&buf[p] = (CARD16)(sz_CARD32*cbrec.text->length);

+	p += XIM_PAD(2);

+	for (i = 0; i < (int)cbrec.text->length; i++) {

+	    *(CARD32*)&buf[p] = (CARD32)cbrec.text->feedback[i];

+	    p += sz_CARD32;

+	}

+

+	if (!(_XimWriteData(im, buf_len, buf))) {

+	    return XimCbError;

+	}

+	_XimFlushData(im);

+

+	Xfree(buf);

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimPreeditStartCallback(Xim im,

+			 Xic ic,

+			 char* proto,

+			 int len)

+{

+    XICCallback* cb = &ic->core.preedit_attr.start_callback;

+    int ret;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback){

+	ret = (*(cb->callback))((XIC)ic, cb->client_data, (XPointer)NULL);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	_XimError(im, ic,

+		  (CARD16)XIM_BadSomething,

+		  (INT16)len,

+		  (CARD16)XIM_PREEDIT_START,

+		  (char*)proto); /* send XIM_ERROR */

+	return XimCbNoCallback;

+    }

+

+    /* send a reply

+     */

+    {

+	CARD32 buf32[(sz_ximPacketHeader + sz_ximPreeditStartReply) / 4];

+	CARD8 *buf = (CARD8 *)buf32;

+	INT16 buf_len = sz_XIMID + sz_XICID + sz_ximPreeditStartReply;

+	int p;

+

+	_XimSetHeader((XPointer)buf, XIM_PREEDIT_START_REPLY, 0, &buf_len);

+	p = XIM_HEADER_SIZE;

+	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;

+	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;

+	*(INT32*)&buf[p]  = (INT32)ret;

+

+	if (!(_XimWriteData(im, buf_len, buf))) {

+	    return XimCbError;

+	}

+	_XimFlushData(im);

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimPreeditDoneCallback(Xim im,

+			Xic ic,

+			char* proto,

+			int len)

+{

+    XICCallback* cb = &ic->core.preedit_attr.done_callback;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private void

+_read_text_from_packet(Xim im,

+		       char* buf,

+		       XIMText** text_ptr)

+{

+    int status;

+    XIMText* text;

+    int tmp_len;

+    char* tmp_buf;

+    Status s = 0;

+

+    status = (int)*(BITMASK32*)buf; buf += sz_BITMASK32;

+

+    /* string part

+     */

+    if (status & 0x00000001) /* "no string" bit on */ {

+	buf += sz_CARD16;	/* skip "length of preedit string" */

+	buf += 2;		/* pad */

+	*text_ptr = (XIMText*)NULL;

+	return;

+    }

+

+    *text_ptr = text = (XIMText*)Xmalloc(sizeof(XIMText));

+    if (text == (XIMText*)NULL) return;

+

+	tmp_len = (int)*(CARD16*)buf;

+	buf += sz_CARD16;

+	if ((tmp_buf = (char*)Xmalloc(tmp_len + 1))) {

+	    memcpy(tmp_buf, buf, tmp_len);

+	    tmp_buf[tmp_len] = '\0';

+

+	    text->encoding_is_wchar = False;

+	    text->length = im->methods->ctstombs((XIM)im,

+					tmp_buf, tmp_len,

+					NULL, 0, &s); /* CT? HM */

+	    if (s != XLookupNone) {

+#ifndef NO_DEC_I18N_FIX

+                /* Allow for NULL-terminated */

+                if ((text->string.multi_byte =

+                    (char*)Xmalloc(text->length *

+                      XLC_PUBLIC(im->core.lcd,mb_cur_max) + 1))) {

+#else

+		if (text->string.multi_byte = (char*)Xmalloc(text->length+1)) {

+#endif

+			int tmp;

+#ifndef NO_DEC_I18N_FIX

+                        char *char_tmp;

+                        int char_len;

+#endif

+			tmp = im->methods->ctstombs((XIM)im,

+					   tmp_buf, tmp_len,

+#ifndef NO_DEC_I18N_FIX

+                                           text->string.multi_byte,

+                                           text->length * XLC_PUBLIC(im->core.lcd,mb_cur_max) + 1,

+#else

+					   text->string.multi_byte, text->length,

+#endif

+					   &s);

+			text->string.multi_byte[tmp] = '\0';

+#ifndef NO_DEC_I18N_FIX

+                        text->length = 0;

+                        char_tmp =  text->string.multi_byte;

+                        while (*char_tmp != '\0') {

+                              char_len = mblen(char_tmp, strlen(char_tmp));

+                              char_tmp = char_tmp + char_len;

+                              (text->length)++;

+                        }

+#endif

+		}

+	    }

+	    else {

+		text->length = 0;

+		text->string.multi_byte = NULL;

+	    }

+

+	    Xfree(tmp_buf);

+	}

+	buf += tmp_len;

+

+	buf += XIM_PAD(sz_CARD16 + tmp_len); /* pad */

+

+    /* feedback part

+     */

+    if (status & 0x00000002) /* "no feedback" bit on */ {

+	text->feedback = (XIMFeedback*)NULL;

+    }

+    else {

+	int i, j;

+

+	i = (int)*(CARD16*)buf; buf += sz_CARD16;

+	buf += sz_CARD16; /* skip `unused' */

+	text->feedback = (XIMFeedback*)Xmalloc(i*(sizeof(XIMFeedback)/sizeof(CARD32)));

+	j = 0;

+	while (i > 0) {

+	    text->feedback[j] = (XIMFeedback)*(CARD32*)buf;

+	    buf += sz_CARD32;

+	    i -= sz_CARD32;

+	    j++;

+	}

+	/*

+	 * text->length tells how long both the status string and

+	 * the feedback array are. If there's "no string" the

+	 * text->length was set to zero previously. See above.

+	 * But if there is feedback (i.e. not "no feedback") then

+	 * we need to convey the length of the feedback array.

+	 * It might have been better if the protocol sent two

+	 * different values, one for the length of the status

+	 * string and one for the length of the feedback array.

+	 */

+	if (status & 0x00000001) /* "no string" bit on */ {

+	    text->length = j;

+	}

+    }

+}

+

+Private void

+_free_memory_for_text(XIMText* text)

+{

+    if (text) {

+	if (text->string.multi_byte)

+	    Xfree(text->string.multi_byte);

+	if (text->feedback)

+	    Xfree(text->feedback);

+	Xfree(text);

+    }

+}

+

+Private XimCbStatus

+_XimPreeditDrawCallback(Xim im,

+			Xic ic,

+			char* proto,

+			int len)

+{

+    XICCallback* cb = &ic->core.preedit_attr.draw_callback;

+    XIMPreeditDrawCallbackStruct cbs;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	cbs.caret      = (int)*(INT32*)proto; proto += sz_INT32;

+	cbs.chg_first  = (int)*(INT32*)proto; proto += sz_INT32;

+	cbs.chg_length = (int)*(INT32*)proto; proto += sz_INT32;

+	_read_text_from_packet(im, proto, &cbs.text);

+

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);

+

+	_free_memory_for_text((XIMText*)cbs.text);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimPreeditCaretCallback(Xim im,

+			 Xic ic,

+			 char* proto,

+			 int len)

+{

+    XICCallback* cb = &ic->core.preedit_attr.caret_callback;

+    XIMPreeditCaretCallbackStruct cbs;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	cbs.position  = (int)*(INT32*)proto; proto += sz_INT32;

+	cbs.direction = (XIMCaretDirection)*(CARD32*)proto; proto += sz_CARD32;

+	cbs.style     = (XIMCaretStyle)*(CARD32*)proto; proto += sz_CARD32;

+

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	_XimError(im, ic,

+		  (CARD16)XIM_BadSomething,

+		  (INT16)len,

+		  (CARD16)XIM_PREEDIT_CARET,

+		  (char*)proto); /* send XIM_ERROR */

+	return XimCbNoCallback;

+    }

+

+    /* Send a reply

+     */

+    {

+	CARD8 buf[sz_ximPacketHeader + sz_ximPreeditCaretReply];

+	INT16 len = sz_XIMID + sz_XICID + sz_ximPreeditCaretReply;

+	int p;

+

+	_XimSetHeader((XPointer)buf, XIM_PREEDIT_CARET_REPLY, 0, &len);

+	p = XIM_HEADER_SIZE;

+	*(CARD16*)&buf[p] = (CARD16)im->private.proto.imid; p += sz_CARD16;

+	*(CARD16*)&buf[p] = (CARD16)ic->private.proto.icid; p += sz_CARD16;

+	*(CARD32*)&buf[p] = (CARD32)cbs.position;

+

+	if (!(_XimWriteData(im, len, buf))) {

+	    return XimCbError;

+	}

+	_XimFlushData(im);

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimStatusStartCallback(Xim im,

+			Xic ic,

+			char* proto,

+			int len)

+{

+    XICCallback* cb = &ic->core.status_attr.start_callback;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimStatusDoneCallback(Xim im,

+		       Xic ic,

+		       char* proto,

+		       int len)

+{

+    XICCallback* cb = &ic->core.status_attr.done_callback;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)NULL);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimStatusDrawCallback(Xim im,

+		       Xic ic,

+		       char* proto,

+		       int len)

+{

+    XICCallback* cb = &ic->core.status_attr.draw_callback;

+    XIMStatusDrawCallbackStruct cbs;

+

+    /* invoke the callback

+     */

+    if (cb && cb->callback) {

+	cbs.type = (XIMStatusDataType)*(CARD32*)proto; proto += sz_CARD32;

+	if (cbs.type == XIMTextType) {

+	    _read_text_from_packet(im, proto, &cbs.data.text);

+	}

+	else if (cbs.type == XIMBitmapType) {

+	    cbs.data.bitmap = (Pixmap)*(CARD32*)proto;

+	}

+

+	(*cb->callback)((XIC)ic, cb->client_data, (XPointer)&cbs);

+

+	if (cbs.type == XIMTextType)

+	    _free_memory_for_text((XIMText *)cbs.data.text);

+    }

+    else {

+

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

+Private XimCbStatus

+_XimPreeditStateNotifyCallback( Xim im, Xic ic, char* proto, int len )

+{

+    XICCallback	*cb = &ic->core.preedit_attr.state_notify_callback;

+

+    /* invoke the callack

+     */

+    if( cb  &&  cb->callback ) {

+	XIMPreeditStateNotifyCallbackStruct cbrec;

+

+	cbrec.state = *(BITMASK32 *)proto;

+	(*cb->callback)( (XIC)ic, cb->client_data, (XPointer)&cbrec );

+    }

+    else {

+	/* no callback registered

+	 */

+	return XimCbNoCallback;

+    }

+

+    return XimCbSuccess;

+}

+

diff --git a/libX11/modules/im/ximcp/imDefIc.c b/libX11/modules/im/ximcp/imDefIc.c
index a962c1b0f..cd3ed5854 100644
--- a/libX11/modules/im/ximcp/imDefIc.c
+++ b/libX11/modules/im/ximcp/imDefIc.c
@@ -1,1581 +1,1581 @@
-/*
- * Copyright 1991, 1992 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.
-          Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-
-Private Bool
-_XimCreateICCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-
-    if ((major_opcode == XIM_CREATE_IC_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid))
-	return True;
-    return False;
-}
-
-#ifdef XIM_CONNECTABLE
-Public Bool
-_XimReCreateIC(ic)
-    Xic			 ic;
-{
-    Xim			 im = (Xim)ic->core.im;
-    Xic			 save_ic;
-    XIMResourceList	 res;
-    unsigned int         num;
-    XIMStyle		 input_style = ic->core.input_style;
-    XimDefICValues	 ic_values;
-    INT16		 len;
-    CARD16		*buf_s;
-    char		*tmp;
-    CARD32		 tmp_buf32[BUFSIZE/4];
-    char		*tmp_buf = (char *)tmp_buf32;
-    char		*buf;
-    int			 buf_size;
-    char		*data;
-    int			 data_len;
-    int			 ret_len;
-    int			 total;
-    int			 idx;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply;
-    int			 ret_code;
-
-    if (!(save_ic = (Xic)Xmalloc(sizeof(XicRec))))
-	return False;
-    memcpy((char *)save_ic, (char *)ic, sizeof(XicRec));
-
-    ic->core.filter_events = im->private.proto.forward_event_mask;
-    ic->private.proto.forward_event_mask =
-				im->private.proto.forward_event_mask;
-    ic->private.proto.synchronous_event_mask =
-				im->private.proto.synchronous_event_mask;
-
-    num = im->core.ic_num_resources;
-    buf_size = sizeof(XIMResource) * num;
-    if (!(res = (XIMResourceList)Xmalloc(buf_size)))
-	goto ErrorOnReCreateIC;
-    (void)memcpy((char *)res, (char *)im->core.ic_resources, buf_size);
-    ic->private.proto.ic_resources     = res;
-    ic->private.proto.ic_num_resources = num;
-
-    num = im->private.proto.ic_num_inner_resources;
-    buf_size = sizeof(XIMResource) * num;
-    if (!(res = (XIMResourceList)Xmalloc(buf_size)))
-	goto ErrorOnReCreateIC;
-    (void)memcpy((char *)res,
-			(char *)im->private.proto.ic_inner_resources, buf_size);
-    ic->private.proto.ic_inner_resources     = res;
-    ic->private.proto.ic_num_inner_resources = num;
-
-    _XimSetICMode(ic->private.proto.ic_resources,
-			ic->private.proto.ic_num_resources, input_style);
-
-    _XimSetICMode(ic->private.proto.ic_inner_resources,
-			ic->private.proto.ic_num_inner_resources, input_style);
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    buf = tmp_buf;
-    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);
-    data_len = BUFSIZE - buf_size;
-    total = 0;
-    idx = 0;
-    for (;;) {
-	data = &buf[buf_size];
-	if (!_XimEncodeSavedICATTRIBUTE(ic, ic->private.proto.ic_resources,
-		ic->private.proto.ic_num_resources, &idx, data, data_len,
-		&ret_len, (XPointer)&ic_values, XIM_CREATEIC)) {
-	    if (buf != tmp_buf)
-		Xfree(buf);
-	    goto ErrorOnReCreateIC;
-	}
-
-	total += ret_len;
-	if (idx == -1) {
-	    break;
-	}
-
-	buf_size += ret_len;
-	if (buf == tmp_buf) {
-	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {
-		goto ErrorOnReCreateIC;
-	    }
-	    memcpy(tmp, buf, buf_size);
-	    buf = tmp;
-	} else {
-	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {
-		Xfree(buf);
-		goto ErrorOnReCreateIC;
-	    }
-	    buf = tmp;
-	}
-    }
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = (INT16)total;
-
-    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);
-    _XimSetHeader((XPointer)buf, XIM_CREATE_IC, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	if (buf != tmp_buf)
-	    Xfree(buf);
-	goto ErrorOnReCreateIC;
-    }
-    _XimFlush(im);
-    if (buf != tmp_buf)
-	Xfree(buf);
-    ic->private.proto.waitCallback = True;
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-						 _XimCreateICCheck, 0);
-    if (ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if (ret_code == XIM_OVERFLOW) {
-	if (len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = (int)len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, preply, buf_size,
-						 _XimCreateICCheck, 0);
-	    if (ret_code != XIM_TRUE) {
-		Xfree(preply);
-		ic->private.proto.waitCallback = False;
-		goto ErrorOnReCreateIC;
-	    }
-	}
-    } else {
-	ic->private.proto.waitCallback = False;
-	goto ErrorOnReCreateIC;
-    }
-    ic->private.proto.waitCallback = False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if (reply != preply)
-	    Xfree(preply);
-	goto ErrorOnReCreateIC;
-    }
-
-    ic->private.proto.icid = buf_s[1];		/* icid */
-    if (reply != preply)
-	Xfree(preply);
-
-    _XimRegisterFilter(ic);
-    MARK_IC_CONNECTED(ic);
-    if (save_ic->private.proto.ic_resources)
-	Xfree(save_ic->private.proto.ic_resources);
-    if (save_ic->private.proto.ic_inner_resources)
-	Xfree(save_ic->private.proto.ic_inner_resources);
-    Xfree(save_ic);
-    return True;
-
-ErrorOnReCreateIC:
-    memcpy((char *)ic, (char *)save_ic, sizeof(XicRec));
-    Xfree(save_ic);
-    return False;
-}
-
-Private char *
-_XimDelayModeGetICValues(ic, arg)
-    Xic			 ic;
-    XIMArg		*arg;
-{
-    XimDefICValues	 ic_values;
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    return  _XimGetICValueData(ic, (XPointer)&ic_values,
-				ic->private.proto.ic_resources,
-				ic->private.proto.ic_num_resources,
-				arg, XIM_GETICVALUES);
-}
-#endif /* XIM_CONNECTABLE */
-
-Private Bool
-_XimGetICValuesCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-
-    if ((major_opcode == XIM_GET_IC_VALUES_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-	return True;
-    return False;
-}
-
-Private char *
-_XimProtoGetICValues(
-    XIC			 xic,
-    XIMArg		*arg)
-{
-    Xic			 ic = (Xic)xic;
-    Xim			 im = (Xim)ic->core.im;
-    register XIMArg	*p;
-    register XIMArg	*pp;
-    register int	 n;
-    CARD8		*buf;
-    CARD16		*buf_s;
-    INT16		 len;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply = NULL;
-    int			 buf_size;
-    int			 ret_code;
-    char		*makeid_name;
-    char		*decode_name;
-    CARD16		*data = NULL;
-    INT16		 data_len = 0;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_IC_CONNECTED(ic))
-	return arg->name;
-#else
-    if (!IS_IC_CONNECTED(ic)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (_XimConnectServer(im)) {
-		if (!_XimReCreateIC(ic)) {
-		    _XimDelayModeSetAttr(im);
-	            return _XimDelayModeGetICValues(ic, arg);
-		}
-	    } else {
-	        return _XimDelayModeGetICValues(ic, arg);
-	    }
-        } else {
-	    return arg->name;
-        }
-    }
-#endif /* XIM_CONNECTABLE */
-
-    for (n = 0, p = arg; p && p->name; p++) {
-	n++;
-	if ((strcmp(p->name, XNPreeditAttributes) == 0)
-	 || (strcmp(p->name, XNStatusAttributes) == 0)) {
-	     n++;
-	     for (pp = (XIMArg *)p->value; pp && pp->name; pp++)
-	 	n++;
-	}
-    }
-
-    if (!n)
-	return (char *)NULL;
-
-    buf_size =  sizeof(CARD16) * n;
-    buf_size += XIM_HEADER_SIZE
-	     + sizeof(CARD16)
-	     + sizeof(CARD16)
-	     + sizeof(INT16)
-	     + XIM_PAD(2 + buf_size);
-
-    if (!(buf = (CARD8 *)Xmalloc(buf_size)))
-	return arg->name;
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-
-    makeid_name = _XimMakeICAttrIDList(ic, ic->private.proto.ic_resources,
-				ic->private.proto.ic_num_resources, arg,
-				&buf_s[3], &len, XIM_GETICVALUES);
-
-    if (len > 0) {
-	buf_s[0] = im->private.proto.imid;		/* imid */
-	buf_s[1] = ic->private.proto.icid;		/* icid */
-	buf_s[2] = len;				/* length of ic-attr-id */
-	len += sizeof(INT16);                       /* sizeof length of attr */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += sizeof(CARD16)			/* sizeof imid */
-	     + sizeof(CARD16);			/* sizeof icid */
-
-	_XimSetHeader((XPointer)buf, XIM_GET_IC_VALUES, 0, &len);
-	if (!(_XimWrite(im, len, (XPointer)buf))) {
-	    Xfree(buf);
-	    return arg->name;
-	}
-	_XimFlush(im);
-	Xfree(buf);
-	buf_size = BUFSIZE;
-	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-				 _XimGetICValuesCheck, (XPointer)ic);
-	if (ret_code == XIM_TRUE) {
-	    preply = reply;
-	} else if (ret_code == XIM_OVERFLOW) {
-	    if (len <= 0) {
-		preply = reply;
-	    } else {
-		buf_size = (int)len;
-		preply = (XPointer)Xmalloc(len);
-		ret_code = _XimRead(im, &len, preply, buf_size,
-				_XimGetICValuesCheck, (XPointer)ic);
-		if (ret_code != XIM_TRUE) {
-		    if (preply != reply)
-		        Xfree(preply);
-		    return arg->name;
-		}
-	    }
-	} else {
-	    return arg->name;
-	}
-	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-	if (*((CARD8 *)preply) == XIM_ERROR) {
-	    _XimProcError(im, 0, (XPointer)&buf_s[3]);
-	    if (reply != preply)
-		Xfree(preply);
-	    return arg->name;
-	}
-	data = &buf_s[4];
-	data_len = buf_s[2];
-    }
-    else if (len < 0) {
-	return arg->name;
-    }
-
-    decode_name = _XimDecodeICATTRIBUTE(ic, ic->private.proto.ic_resources,
-			ic->private.proto.ic_num_resources, data, data_len,
-			arg, XIM_GETICVALUES);
-    if (reply != preply)
-	Xfree(preply);
-
-    if (decode_name)
-	return decode_name;
-    else
-	return makeid_name;
-}
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimCheckNestQuarkList(quark_list, num_quark, quark, separator)
-    XrmQuark		*quark_list;
-    int			 num_quark;
-    XrmQuark		 quark;
-    XrmQuark		 separator;
-{
-    register int	 i;
-
-    for (i = 0; i < num_quark; i++) {
-	if (quark_list[i] == separator) {
-	    break;
-	}
-	if (quark_list[i] == quark) {
-	    return True;
-	}
-    }
-    return False;
-}
-
-Private Bool
-_XimCheckNestedQuarkList(quark_list, idx, num_quark, arg, separator)
-    XrmQuark		**quark_list;
-    int			  idx;
-    int			 *num_quark;
-    XIMArg		 *arg;
-    XrmQuark		  separator;
-{
-    XrmQuark		 *q_list = *quark_list;
-    int			  n_quark = *num_quark;
-    register XIMArg	 *p;
-    XrmQuark		  quark;
-    XrmQuark		 *tmp;
-    register int	  i;
-
-    for (p = arg; p && p->name; p++) {
-	quark = XrmStringToQuark(p->name);
-	if (_XimCheckNestQuarkList(&q_list[idx], n_quark - idx,
-							quark, separator)) {
-	    continue;
-	}
-	if (!(tmp = (XrmQuark *)Xmalloc((sizeof(XrmQuark) * (n_quark + 1))))) {
-	    *quark_list = q_list;
-	    *num_quark = n_quark;
-	    return False;
-	}
-	n_quark++;
-	for (i = 0; i < idx; i++) {
-	    tmp[i] = q_list[i];
-	}
-	tmp[i] = quark;
-	for (i = idx  + 1; i < n_quark; i++) {
-	    tmp[i] = q_list[i - 1];
-	}
-	q_list = tmp;
-    }
-    *quark_list = q_list;
-    *num_quark = n_quark;
-    return True;
-}
-
-Private Bool
-_XimCheckICQuarkList(quark_list, num_quark, quark, idx)
-    XrmQuark		*quark_list;
-    int			 num_quark;
-    XrmQuark		 quark;
-    int			*idx;
-{
-    register int	 i;
-
-    for (i = 0; i < num_quark; i++) {
-	if (quark_list[i] == quark) {
-	    *idx = i;
-	    return True;
-	}
-    }
-    return False;
-}
-
-Private Bool
-_XimSaveICValues(ic, arg)
-    Xic			 ic;
-    XIMArg		*arg;
-{
-    register XIMArg	*p;
-    register int	 n;
-    XrmQuark		*quark_list;
-    XrmQuark		*tmp;
-    XrmQuark		 quark;
-    int			 num_quark;
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-    XrmQuark		 separator;
-    int			 idx;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-    separator = XrmStringToQuark(XNSeparatorofNestedList);
-
-    if (quark_list = ic->private.proto.saved_icvalues) {
-	num_quark = ic->private.proto.num_saved_icvalues;
-	for (p = arg; p && p->name; p++) {
-	    quark = XrmStringToQuark(p->name);
-	    if ((quark == pre_quark) || (quark == sts_quark)) {
-	        if (!_XimCheckICQuarkList(quark_list, num_quark, quark, &idx)) {
-		    register XIMArg	*pp;
-		    int			 nn;
-		    XrmQuark		*q_list;
-
-		    for (pp = (XIMArg *)p->value, nn = 0;
-						pp && pp->name; pp++, nn++);
-	            if (!(tmp = (XrmQuark *)Xrealloc(quark_list,
-				(sizeof(XrmQuark) * (num_quark + nn + 2))))) {
-		        ic->private.proto.saved_icvalues = quark_list;
-		        ic->private.proto.num_saved_icvalues = num_quark;
-		        return False;
-	            }
-	            quark_list = tmp;
-		    q_list = &quark_list[num_quark];
-	            num_quark += nn + 2;
-		    *q_list++ = quark;
-		    for (pp = (XIMArg *)p->value;
-					pp && pp->name; pp++, quark_list++) {
-			*q_list = XrmStringToQuark(pp->name);
-		    }
-		    *q_list = separator;
-		} else {
-		    if (!_XimCheckNestedQuarkList(&quark_list, idx + 1,
-				&num_quark, (XIMArg *)p->value, separator)) {
-		        ic->private.proto.saved_icvalues = quark_list;
-		        ic->private.proto.num_saved_icvalues = num_quark;
-		        return False;
-		    }
-		}
-	    } else {
-	        if (_XimCheckICQuarkList(quark_list, num_quark, quark, &idx)) {
-		    continue;
-	        }
-	        if (!(tmp = (XrmQuark *)Xrealloc(quark_list,
-				(sizeof(XrmQuark) * (num_quark + 1))))) {
-		    ic->private.proto.saved_icvalues = quark_list;
-		    ic->private.proto.num_saved_icvalues = num_quark;
-		    return False;
-	        }
-	        quark_list = tmp;
-	        quark_list[num_quark] = quark;
-	        num_quark++;
-	    }
-	}
-	ic->private.proto.saved_icvalues = quark_list;
-	ic->private.proto.num_saved_icvalues = num_quark;
-	return True;
-    }
-
-    for (p = arg, n = 0; p && p->name; p++, n++) {
-	if ((!strcmp(p->name, XNPreeditAttributes))
-	 || (!strcmp(p->name, XNStatusAttributes))) {
-	    register XIMArg	*pp;
-	    int			 nn;
-
-	    for (pp = (XIMArg *)p->value, nn = 0; pp && pp->name; pp++, nn++);
-	    n += nn + 1;
-	}
-    }
-
-    if (!(quark_list = (XrmQuark *)Xmalloc(sizeof(XrmQuark) * n))) {
-	return False;
-    }
-
-    ic->private.proto.saved_icvalues = quark_list;
-    ic->private.proto.num_saved_icvalues = n;
-    for (p = arg; p && p->name; p++, quark_list++) {
-	*quark_list = XrmStringToQuark(p->name);
-	if ((*quark_list == pre_quark) || (*quark_list == sts_quark)) {
-	    register XIMArg	*pp;
-
-	    quark_list++;
-	    for (pp = (XIMArg *)p->value; pp && pp->name; pp++, quark_list++) {
-		*quark_list = XrmStringToQuark(pp->name);
-	    }
-	    *quark_list = separator;
-	}
-    }
-    return True;
-}
-
-Private char *
-_XimDelayModeSetICValues(ic, arg)
-    Xic			 ic;
-    XIMArg		*arg;
-{
-    XimDefICValues	 ic_values;
-    char		*name;
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    name = _XimSetICValueData(ic, (XPointer)&ic_values,
-			ic->private.proto.ic_resources,
-			ic->private.proto.ic_num_resources,
-			arg, XIM_SETICVALUES, False);
-    _XimSetCurrentICValues(ic, &ic_values);
-    return name;
-}
-#endif /* XIM_CONNECTABLE */
-
-Private Bool
-_XimSetICValuesCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-
-    if ((major_opcode == XIM_SET_IC_VALUES_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-	return True;
-    return False;
-}
-
-Private char *
-_XimProtoSetICValues(
-    XIC			 xic,
-    XIMArg		*arg)
-{
-    Xic			 ic = (Xic)xic;
-    Xim			 im = (Xim)ic->core.im;
-    XimDefICValues	 ic_values;
-    INT16		 len;
-    CARD16		*buf_s;
-    char		*tmp;
-    CARD32		 tmp_buf32[BUFSIZE/4];
-    char		*tmp_buf = (char *)tmp_buf32;
-    char		*buf;
-    int			 buf_size;
-    char		*data;
-    int			 data_len;
-    int			 ret_len;
-    int			 total;
-    XIMArg		*arg_ret;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply = NULL;
-    int			 ret_code;
-    BITMASK32		 flag = 0L;
-    char		*name;
-    char		*tmp_name = (arg) ? arg->name : NULL;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_IC_CONNECTED(ic))
-	return tmp_name;
-#else
-    if (!_XimSaveICValues(ic, arg))
-	return NULL;
-
-    if (!IS_IC_CONNECTED(ic)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (_XimConnectServer(im)) {
-	        if (!_XimReCreateIC(ic)) {
-		    _XimDelayModeSetAttr(im);
-	            return _XimDelayModeSetICValues(ic, arg);
-		}
-	    } else {
-	        return _XimDelayModeSetICValues(ic, arg);
-	    }
-        } else {
-	    return tmp_name;
-        }
-    }
-#endif /* XIM_CONNECTABLE */
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    buf = tmp_buf;
-    buf_size = XIM_HEADER_SIZE
-	+ sizeof(CARD16) + sizeof(CARD16) + sizeof(INT16) + sizeof(CARD16);
-    data_len = BUFSIZE - buf_size;
-    total = 0;
-    arg_ret = arg;
-    for (;;) {
-	data = &buf[buf_size];
-	if ((name = _XimEncodeICATTRIBUTE(ic, ic->private.proto.ic_resources,
-			ic->private.proto.ic_num_resources, arg, &arg_ret,
-			data, data_len, &ret_len, (XPointer)&ic_values,
-			&flag, XIM_SETICVALUES))) {
-	    break;
-	}
-
-	total += ret_len;
-	if (!(arg = arg_ret)) {
-	    break;
-	}
-
-	buf_size += ret_len;
-	if (buf == tmp_buf) {
-	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {
-		return tmp_name;
-	    }
-	    memcpy(tmp, buf, buf_size);
-	    buf = tmp;
-	} else {
-	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {
-		Xfree(buf);
-		return tmp_name;
-	    }
-	    buf = tmp;
-	}
-    }
-    _XimSetCurrentICValues(ic, &ic_values);
-
-    if (!total) {
-        return tmp_name;
-    }
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-
-#ifdef EXT_MOVE
-    if (_XimExtenMove(im, ic, flag, &buf_s[4], (INT16)total))
-	return name;
-#endif
-
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = ic->private.proto.icid;
-    buf_s[2] = (INT16)total;
-    buf_s[3] = 0;
-    len = (INT16)(sizeof(CARD16) + sizeof(CARD16)
-				+ sizeof(INT16) + sizeof(CARD16) + total);
-
-    _XimSetHeader((XPointer)buf, XIM_SET_IC_VALUES, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	if (buf != tmp_buf)
-	    Xfree(buf);
-	return tmp_name;
-    }
-    _XimFlush(im);
-    if (buf != tmp_buf)
-	Xfree(buf);
-    ic->private.proto.waitCallback = True;
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					_XimSetICValuesCheck, (XPointer)ic);
-    if (ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if (ret_code == XIM_OVERFLOW) {
-	buf_size = (int)len;
-	preply = (XPointer)Xmalloc(buf_size);
-	ret_code = _XimRead(im, &len, preply, buf_size,
-					_XimSetICValuesCheck, (XPointer)ic);
-	if (ret_code != XIM_TRUE) {
-	    Xfree(preply);
-	    ic->private.proto.waitCallback = False;
-	    return tmp_name;
-	}
-    } else {
-	ic->private.proto.waitCallback = False;
-	return tmp_name;
-    }
-    ic->private.proto.waitCallback = False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if (reply != preply)
-	    Xfree(preply);
-	return tmp_name;
-    }
-    if (reply != preply)
-	Xfree(preply);
-
-    return name;
-}
-
-Private Bool
-_XimDestroyICCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-    Bool	 ret = False;
-
-    if ((major_opcode == XIM_DESTROY_IC_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	ret = True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-    ret = False;
-    return ret;
-}
-
-Private void
-_XimProtoICFree(
-    Xic		 ic)
-{
-#ifdef XIM_CONNECTABLE
-    Xim		 im = (Xim)ic->core.im;
-#endif
-
-    if (ic->private.proto.preedit_font) {
-	Xfree(ic->private.proto.preedit_font);
-	ic->private.proto.preedit_font = NULL;
-    }
-    if (ic->private.proto.status_font) {
-	Xfree(ic->private.proto.status_font);
-	ic->private.proto.status_font = NULL;
-    }
-    if (ic->private.proto.commit_info) {
-	_XimFreeCommitInfo(ic);
-	ic->private.proto.commit_info = NULL;
-    }
-    if (ic->private.proto.ic_inner_resources) {
-	Xfree(ic->private.proto.ic_inner_resources);
-	ic->private.proto.ic_inner_resources = NULL;
-    }
-
-#ifdef XIM_CONNECTABLE
-    if (IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {
-	return;
-    }
-#endif /* XIM_CONNECTABLE */
-
-    if (ic->private.proto.saved_icvalues) {
-	Xfree(ic->private.proto.saved_icvalues);
-	ic->private.proto.saved_icvalues = NULL;
-    }
-    if (ic->private.proto.ic_resources) {
-	Xfree(ic->private.proto.ic_resources);
-	ic->private.proto.ic_resources = NULL;
-    }
-    if (ic->core.hotkey) {
-	Xfree(ic->core.hotkey);
-	ic->core.hotkey = NULL;
-    }
-
-    return;
-}
-
-Private void
-_XimProtoDestroyIC(
-    XIC		 xic)
-{
-    Xic		 ic = (Xic)xic;
-    Xim	 	 im = (Xim)ic->core.im;
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-
-    if (IS_SERVER_CONNECTED(im)) {
-	buf_s[0] = im->private.proto.imid;		/* imid */
-	buf_s[1] = ic->private.proto.icid;		/* icid */
-
-	len = sizeof(CARD16)			/* sizeof imid */
-	    + sizeof(CARD16);			/* sizeof icid */
-
-	_XimSetHeader((XPointer)buf, XIM_DESTROY_IC, 0, &len);
-	(void)_XimWrite(im, len, (XPointer)buf);
-	_XimFlush(im);
-	buf_size = BUFSIZE;
-	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					_XimDestroyICCheck, (XPointer)ic);
-	if (ret_code == XIM_OVERFLOW) {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    (void)_XimRead(im, &len, preply, buf_size,
-					_XimDestroyICCheck, (XPointer)ic);
-	    Xfree(preply);
-	}
-    }
-    UNMARK_IC_CONNECTED(ic);
-    _XimUnregisterFilter(ic);
-    _XimProtoICFree(ic);
-    return;
-}
-
-Private void
-_XimProtoSetFocus(
-    XIC		 xic)
-{
-    Xic		 ic = (Xic)xic;
-    Xim		 im = (Xim)ic->core.im;
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_IC_CONNECTED(ic))
-	return;
-#else
-    if (!IS_IC_CONNECTED(ic)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (_XimConnectServer(im)) {
-		if (!_XimReCreateIC(ic)) {
-		    _XimDelayModeSetAttr(im);
-		    return;
-		}
-	    } else {
-		return;
-	    }
-	} else {
-	    return;
-	}
-    }
-#endif /* XIM_CONNECTABLE */
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-
-    len = sizeof(CARD16)			/* sizeof imid */
-	+ sizeof(CARD16);			/* sizeof icid */
-
-    _XimSetHeader((XPointer)buf, XIM_SET_IC_FOCUS, 0, &len);
-    (void)_XimWrite(im, len, (XPointer)buf);
-    _XimFlush(im);
-
-    MARK_FOCUSED(ic);
-
-    _XimRegisterFilter(ic);
-    return;
-}
-
-Private void
-_XimProtoUnsetFocus(
-    XIC		 xic)
-{
-    Xic		 ic = (Xic)xic;
-    Xim		 im = (Xim)ic->core.im;
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_IC_CONNECTED(ic))
-	return;
-#else
-    if (!IS_IC_CONNECTED(ic)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (_XimConnectServer(im)) {
-		if (!_XimReCreateIC(ic)) {
-		    _XimDelayModeSetAttr(im);
-		    return;
-		}
-	    } else {
-		return;
-	    }
-	} else {
-	    return;
-	}
-    }
-#endif /* XIM_CONNECTABLE */
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-
-    len = sizeof(CARD16)			/* sizeof imid */
-	+ sizeof(CARD16);			/* sizeof icid */
-
-    _XimSetHeader((XPointer)buf, XIM_UNSET_IC_FOCUS, 0, &len);
-    (void)_XimWrite(im, len, (XPointer)buf);
-    _XimFlush(im);
-
-    UNMARK_FOCUSED(ic);
-
-    _XimUnregisterFilter(ic);
-    return;
-}
-
-Private Bool
-_XimResetICCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-
-    if ((major_opcode == XIM_RESET_IC_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-	return True;
-    return False;
-}
-
-Private char *
-_XimProtoReset(
-    XIC		 xic,
-    char *     (*retfunc) (Xim im, Xic ic, XPointer buf) )
-{
-    Xic		 ic = (Xic)xic;
-    Xim	 	 im = (Xim)ic->core.im;
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-    char	*commit;
-
-    if (!IS_IC_CONNECTED(ic))
-	return (char *)NULL;
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-
-    len = sizeof(CARD16)			/* sizeof imid */
-	+ sizeof(CARD16);			/* sizeof icid */
-
-    _XimSetHeader((XPointer)buf, XIM_RESET_IC, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return NULL;
-    _XimFlush(im);
-    ic->private.proto.waitCallback = True;
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-    					_XimResetICCheck, (XPointer)ic);
-    if (ret_code == XIM_TRUE) {
-    	preply = reply;
-    } else if (ret_code == XIM_OVERFLOW) {
-    	if (len < 0) {
-    	    preply = reply;
-    	} else {
-    	    buf_size = len;
-    	    preply = (XPointer)Xmalloc(buf_size);
-    	    ret_code = _XimRead(im, &len, preply, buf_size,
-    					_XimResetICCheck, (XPointer)ic);
-    	    if (ret_code != XIM_TRUE) {
-		Xfree(preply);
-    		ic->private.proto.waitCallback = False;
-    		return NULL;
-    	    }
-    	}
-    } else {
-	ic->private.proto.waitCallback = False;
-	return NULL;
-    }
-    ic->private.proto.waitCallback = False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-    	if (reply != preply)
-    	    free(preply);
-	return NULL;
-    }
-
-    commit = retfunc(im, ic, (XPointer)&buf_s[2]);
-
-    if (reply != preply)
-    	Xfree(preply);
-    return commit;
-}
-
-Private char *
-_XimCommitedMbString(
-    Xim			 im,
-    Xic			 ic,
-    XPointer		 buf)
-{
-    CARD16		*buf_s = (CARD16 *)buf;
-    XimCommitInfo	 info;
-    int			 len;
-    int			 new_len;
-    char		*commit;
-    char		*new_commit = NULL;
-    char		*str;
-    Status		 status;
-
-    len = 0;
-    for (info = ic->private.proto.commit_info; info; info = info->next)
-	len += info->string_len;
-    len += buf_s[0];
-    if ( len == 0 )
-	return( NULL );
-
-    if (!(commit = (char *)Xmalloc(len + 1)))
-	goto Error_On_Reset;
-
-    str = commit;
-    for (info = ic->private.proto.commit_info; info; info = info->next) {
-	(void)memcpy(str, info->string, info->string_len);
-	str += info->string_len;
-    }
-    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);
-    commit[len] = '\0';
-
-    new_len = im->methods->ctstombs((XIM)im, commit, len, NULL, 0, &status);
-    if (status != XLookupNone) {
-	if (!(new_commit = Xmalloc(new_len + 1))) {
-	    Xfree(commit);
-	    goto Error_On_Reset;
-	}
-	(void)im->methods->ctstombs((XIM)im, commit, len,
-						new_commit, new_len, NULL);
-	new_commit[new_len] = '\0';
-    }
-    Xfree(commit);
-
-Error_On_Reset:
-    _XimFreeCommitInfo( ic );
-    return new_commit;
-}
-
-Private char *
-_XimProtoMbReset(
-    XIC		 xic)
-{
-    return _XimProtoReset(xic, _XimCommitedMbString);
-}
-
-Private wchar_t *
-_XimCommitedWcString(
-    Xim		 im,
-    Xic		 ic,
-    XPointer	 buf)
-{
-    CARD16		*buf_s = (CARD16 *)buf;
-    XimCommitInfo	 info;
-    int			 len;
-    int			 new_len;
-    char		*commit;
-    wchar_t		*new_commit = (wchar_t *)NULL;
-    char		*str;
-    Status		 status;
-
-    len = 0;
-    for (info = ic->private.proto.commit_info; info; info = info->next)
-	len += info->string_len;
-    len += buf_s[0];
-    if ( len == 0 )
-	return( (wchar_t *)NULL );
-
-    if (!(commit = (char *)Xmalloc(len + 1)))
-	goto Error_On_Reset;
-
-    str = commit;
-    for (info = ic->private.proto.commit_info; info; info = info->next) {
-	(void)memcpy(str, info->string, info->string_len);
-	str += info->string_len;
-    }
-    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);
-    commit[len] = '\0';
-
-    new_len = im->methods->ctstowcs((XIM)im, commit, len, NULL, 0, &status);
-    if (status != XLookupNone) {
-	if (!(new_commit =
-		     (wchar_t *)Xmalloc(sizeof(wchar_t) * (new_len + 1)))) {
-	    Xfree(commit);
-	    goto Error_On_Reset;
-	}
-	(void)im->methods->ctstowcs((XIM)im, commit, len,
-						new_commit, new_len, NULL);
-	new_commit[new_len] = (wchar_t)'\0';
-    }
-    Xfree(commit);
-
-Error_On_Reset:
-    _XimFreeCommitInfo( ic );
-    return new_commit;
-}
-
-Private wchar_t *
-_XimProtoWcReset(
-    XIC		 xic)
-{
-    return (wchar_t *) _XimProtoReset(xic,
-			(char * (*) (Xim, Xic, XPointer)) _XimCommitedWcString);
-}
-
-Private char *
-_XimCommitedUtf8String(
-    Xim			 im,
-    Xic			 ic,
-    XPointer		 buf)
-{
-    CARD16		*buf_s = (CARD16 *)buf;
-    XimCommitInfo	 info;
-    int			 len;
-    int			 new_len;
-    char		*commit;
-    char		*new_commit = NULL;
-    char		*str;
-    Status		 status;
-
-    len = 0;
-    for (info = ic->private.proto.commit_info; info; info = info->next)
-	len += info->string_len;
-    len += buf_s[0];
-    if ( len == 0 )
-	return( NULL );
-
-    if (!(commit = (char *)Xmalloc(len + 1)))
-	goto Error_On_Reset;
-
-    str = commit;
-    for (info = ic->private.proto.commit_info; info; info = info->next) {
-	(void)memcpy(str, info->string, info->string_len);
-	str += info->string_len;
-    }
-    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);
-    commit[len] = '\0';
-
-    new_len = im->methods->ctstoutf8((XIM)im, commit, len, NULL, 0, &status);
-    if (status != XLookupNone) {
-	if (!(new_commit = Xmalloc(new_len + 1))) {
-	    Xfree(commit);
-	    goto Error_On_Reset;
-	}
-	(void)im->methods->ctstoutf8((XIM)im, commit, len,
-						new_commit, new_len, NULL);
-	new_commit[new_len] = '\0';
-    }
-    Xfree(commit);
-
-Error_On_Reset:
-    _XimFreeCommitInfo( ic );
-    return new_commit;
-}
-
-Private char *
-_XimProtoUtf8Reset(
-    XIC		 xic)
-{
-    return _XimProtoReset(xic, _XimCommitedUtf8String);
-}
-
-Private XICMethodsRec ic_methods = {
-    _XimProtoDestroyIC,		/* destroy */
-    _XimProtoSetFocus,		/* set_focus */
-    _XimProtoUnsetFocus,	/* unset_focus */
-    _XimProtoSetICValues,	/* set_values */
-    _XimProtoGetICValues,	/* get_values */
-    _XimProtoMbReset,		/* mb_reset */
-    _XimProtoWcReset,		/* wc_reset */
-    _XimProtoUtf8Reset,		/* utf8_reset */
-    _XimProtoMbLookupString,	/* mb_lookup_string */
-    _XimProtoWcLookupString,	/* wc_lookup_string */
-    _XimProtoUtf8LookupString	/* utf8_lookup_string */
-};
-
-Private Bool
-_XimGetInputStyle(
-    XIMArg		*arg,
-    XIMStyle		*input_style)
-{
-    register XIMArg	*p;
-
-    for (p = arg; p && p->name; p++) {
-	if (!(strcmp(p->name, XNInputStyle))) {
-	    *input_style = (XIMStyle)p->value;
-	    return True;
-	}
-    }
-    return False;
-}
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimDelayModeCreateIC(
-    Xic			 ic,
-    XIMArg		*values,
-    XIMResourceList	 res,
-    unsigned int	 num)
-{
-    Xim			 im = (Xim)ic->core.im;
-    XimDefICValues	 ic_values;
-    int			 len;
-    XIMStyle		 input_style;
-
-    bzero((char *)&ic_values, sizeof(XimDefICValues));
-    _XimGetCurrentICValues(ic, &ic_values);
-    if (!(_XimGetInputStyle(values, &input_style)))
-	return False;
-
-    _XimSetICMode(res, num, input_style);
-
-    if (_XimSetICValueData(ic, (XPointer)&ic_values, res, num,
-					values, XIM_CREATEIC, False)) {
-	return False;
-    }
-    _XimSetCurrentICValues(ic, &ic_values);
-    if (!_XimSetICDefaults(ic, (XPointer)&ic_values,
-					XIM_SETICDEFAULTS, res, num)) {
-	return False;
-    }
-    ic_values.filter_events = KeyPressMask;
-    _XimSetCurrentICValues(ic, &ic_values);
-    _XimRegisterFilter(ic);
-
-    return True;
-}
-
-Public Bool
-_XimReconnectModeCreateIC(ic)
-    Xic			 ic;
-{
-    Xim			 im = (Xim)ic->core.im;
-    int			 len;
-    XIMStyle		 input_style = ic->core.input_style;
-    XIMResourceList	 res;
-    unsigned int	 num;
-
-    num = im->core.ic_num_resources;
-    len = sizeof(XIMResource) * num;
-    if (!(res = (XIMResourceList)Xmalloc(len)))
-	return False;
-    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);
-    ic->private.proto.ic_resources     = res;
-    ic->private.proto.ic_num_resources = num;
-
-    _XimSetICMode(res, num, input_style);
-
-    ic->core.filter_events = KeyPressMask;
-
-    return True;
-}
-#endif /* XIM_CONNECTABLE */
-
-Public XIC
-_XimProtoCreateIC(
-    XIM			 xim,
-    XIMArg		*arg)
-{
-    Xim			 im = (Xim)xim;
-    Xic			 ic;
-    XimDefICValues	 ic_values;
-    XIMResourceList	 res;
-    unsigned int         num;
-    XIMStyle		 input_style;
-    INT16		 len;
-    CARD16		*buf_s;
-    char		*tmp;
-    CARD32		 tmp_buf32[BUFSIZE/4];
-    char		*tmp_buf = (char *)tmp_buf32;
-    char		*buf;
-    int			 buf_size;
-    char		*data;
-    int			 data_len;
-    int			 ret_len;
-    int			 total;
-    XIMArg		*arg_ret;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply;
-    int			 ret_code;
-
-#ifdef XIM_CONNECTABLE
-    if (!IS_SERVER_CONNECTED(im) && !IS_CONNECTABLE(im))
-	return (XIC)NULL;
-#else
-    if (!IS_SERVER_CONNECTED(im))
-	return (XIC)NULL;
-#endif /* XIM_CONNECTABLE */
-
-    if (!(_XimGetInputStyle(arg, &input_style)))
-	return (XIC)NULL;
-
-    if ((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL)
-	return (XIC)NULL;
-
-    ic->methods = &ic_methods;
-    ic->core.im = (XIM)im;
-    ic->core.input_style = input_style;
-
-    num = im->core.ic_num_resources;
-    len = sizeof(XIMResource) * num;
-    if (!(res = (XIMResourceList)Xmalloc(len)))
-	goto ErrorOnCreatingIC;
-    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);
-    ic->private.proto.ic_resources     = res;
-    ic->private.proto.ic_num_resources = num;
-
-#ifdef XIM_CONNECTABLE
-    if (!_XimSaveICValues(ic, arg))
-	return False;
-
-    if (!IS_SERVER_CONNECTED(im)) {
-	if (!_XimConnectServer(im)) {
-	    if (_XimDelayModeCreateIC(ic, arg, res, num)) {
-		return (XIC)ic;
-	    }
-	    goto ErrorOnCreatingIC;
-	}
-    }
-#endif /* XIM_CONNECTABLE */
-
-    ic->core.filter_events = im->private.proto.forward_event_mask;
-    ic->private.proto.forward_event_mask =
-				im->private.proto.forward_event_mask;
-    ic->private.proto.synchronous_event_mask =
-				im->private.proto.synchronous_event_mask;
-
-    num = im->private.proto.ic_num_inner_resources;
-    len = sizeof(XIMResource) * num;
-    if (!(res = (XIMResourceList)Xmalloc(len)))
-	goto ErrorOnCreatingIC;
-    (void)memcpy((char *)res,
-			 (char *)im->private.proto.ic_inner_resources, len);
-    ic->private.proto.ic_inner_resources     = res;
-    ic->private.proto.ic_num_inner_resources = num;
-
-    _XimSetICMode(ic->private.proto.ic_resources,
-			ic->private.proto.ic_num_resources, input_style);
-
-    _XimSetICMode(ic->private.proto.ic_inner_resources,
-			ic->private.proto.ic_num_inner_resources, input_style);
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    buf = tmp_buf;
-    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);
-    data_len = BUFSIZE - buf_size;
-    total = 0;
-    arg_ret = arg;
-    for (;;) {
-	data = &buf[buf_size];
-	if (_XimEncodeICATTRIBUTE(ic, ic->private.proto.ic_resources,
-		ic->private.proto.ic_num_resources, arg, &arg_ret, data,
-		data_len, &ret_len, (XPointer)&ic_values, 0, XIM_CREATEIC)) {
-	    goto ErrorOnCreatingIC;
-	}
-
-	total += ret_len;
-	if (!(arg = arg_ret)) {
-	    break;
-	}
-
-	buf_size += ret_len;
-	if (buf == tmp_buf) {
-	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {
-	        goto ErrorOnCreatingIC;
-	    }
-	    memcpy(tmp, buf, buf_size);
-	    buf = tmp;
-	} else {
-	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {
-		Xfree(buf);
-	        goto ErrorOnCreatingIC;
-	    }
-	    buf = tmp;
-	}
-    }
-    _XimSetCurrentICValues(ic, &ic_values);
-
-    if (!(_XimCheckCreateICValues(ic->private.proto.ic_resources,
-					ic->private.proto.ic_num_resources)))
-	goto ErrorOnCreatingIC;
-
-    _XimRegisterFilter(ic);
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = (INT16)total;
-
-    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);
-    _XimSetHeader((XPointer)buf, XIM_CREATE_IC, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	if (buf != tmp_buf)
-	    Xfree(buf);
-	goto ErrorOnCreatingIC;
-    }
-    _XimFlush(im);
-    if (buf != tmp_buf)
-	Xfree(buf);
-    ic->private.proto.waitCallback = True;
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-						 _XimCreateICCheck, 0);
-    if (ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if (ret_code == XIM_OVERFLOW) {
-	if (len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = (int)len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, preply, buf_size,
-						 _XimCreateICCheck, 0);
-	    if (ret_code != XIM_TRUE) {
-		Xfree(preply);
-		ic->private.proto.waitCallback = False;
-		goto ErrorOnCreatingIC;
-	    }
-	}
-    } else {
-	ic->private.proto.waitCallback = False;
-	goto ErrorOnCreatingIC;
-    }
-    ic->private.proto.waitCallback = False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if (reply != preply)
-	    Xfree(preply);
-	goto ErrorOnCreatingIC;
-    }
-
-    ic->private.proto.icid = buf_s[1];		/* icid */
-    if (reply != preply)
-	Xfree(preply);
-    MARK_IC_CONNECTED(ic);
-    return (XIC)ic;
-
-ErrorOnCreatingIC:
-    _XimUnregisterFilter(ic);
-    if (ic->private.proto.ic_resources)
-	Xfree(ic->private.proto.ic_resources);
-    if (ic->private.proto.ic_inner_resources)
-	Xfree(ic->private.proto.ic_inner_resources);
-    Xfree(ic);
-    return (XIC)NULL;
-}
+/*

+ * Copyright 1991, 1992 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.

+          Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+

+Private Bool

+_XimCreateICCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+

+    if ((major_opcode == XIM_CREATE_IC_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid))

+	return True;

+    return False;

+}

+

+#ifdef XIM_CONNECTABLE

+Public Bool

+_XimReCreateIC(ic)

+    Xic			 ic;

+{

+    Xim			 im = (Xim)ic->core.im;

+    Xic			 save_ic;

+    XIMResourceList	 res;

+    unsigned int         num;

+    XIMStyle		 input_style = ic->core.input_style;

+    XimDefICValues	 ic_values;

+    INT16		 len;

+    CARD16		*buf_s;

+    char		*tmp;

+    CARD32		 tmp_buf32[BUFSIZE/4];

+    char		*tmp_buf = (char *)tmp_buf32;

+    char		*buf;

+    int			 buf_size;

+    char		*data;

+    int			 data_len;

+    int			 ret_len;

+    int			 total;

+    int			 idx;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply;

+    int			 ret_code;

+

+    if (!(save_ic = (Xic)Xmalloc(sizeof(XicRec))))

+	return False;

+    memcpy((char *)save_ic, (char *)ic, sizeof(XicRec));

+

+    ic->core.filter_events = im->private.proto.forward_event_mask;

+    ic->private.proto.forward_event_mask =

+				im->private.proto.forward_event_mask;

+    ic->private.proto.synchronous_event_mask =

+				im->private.proto.synchronous_event_mask;

+

+    num = im->core.ic_num_resources;

+    buf_size = sizeof(XIMResource) * num;

+    if (!(res = (XIMResourceList)Xmalloc(buf_size)))

+	goto ErrorOnReCreateIC;

+    (void)memcpy((char *)res, (char *)im->core.ic_resources, buf_size);

+    ic->private.proto.ic_resources     = res;

+    ic->private.proto.ic_num_resources = num;

+

+    num = im->private.proto.ic_num_inner_resources;

+    buf_size = sizeof(XIMResource) * num;

+    if (!(res = (XIMResourceList)Xmalloc(buf_size)))

+	goto ErrorOnReCreateIC;

+    (void)memcpy((char *)res,

+			(char *)im->private.proto.ic_inner_resources, buf_size);

+    ic->private.proto.ic_inner_resources     = res;

+    ic->private.proto.ic_num_inner_resources = num;

+

+    _XimSetICMode(ic->private.proto.ic_resources,

+			ic->private.proto.ic_num_resources, input_style);

+

+    _XimSetICMode(ic->private.proto.ic_inner_resources,

+			ic->private.proto.ic_num_inner_resources, input_style);

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    buf = tmp_buf;

+    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);

+    data_len = BUFSIZE - buf_size;

+    total = 0;

+    idx = 0;

+    for (;;) {

+	data = &buf[buf_size];

+	if (!_XimEncodeSavedICATTRIBUTE(ic, ic->private.proto.ic_resources,

+		ic->private.proto.ic_num_resources, &idx, data, data_len,

+		&ret_len, (XPointer)&ic_values, XIM_CREATEIC)) {

+	    if (buf != tmp_buf)

+		Xfree(buf);

+	    goto ErrorOnReCreateIC;

+	}

+

+	total += ret_len;

+	if (idx == -1) {

+	    break;

+	}

+

+	buf_size += ret_len;

+	if (buf == tmp_buf) {

+	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {

+		goto ErrorOnReCreateIC;

+	    }

+	    memcpy(tmp, buf, buf_size);

+	    buf = tmp;

+	} else {

+	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {

+		Xfree(buf);

+		goto ErrorOnReCreateIC;

+	    }

+	    buf = tmp;

+	}

+    }

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = (INT16)total;

+

+    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);

+    _XimSetHeader((XPointer)buf, XIM_CREATE_IC, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	if (buf != tmp_buf)

+	    Xfree(buf);

+	goto ErrorOnReCreateIC;

+    }

+    _XimFlush(im);

+    if (buf != tmp_buf)

+	Xfree(buf);

+    ic->private.proto.waitCallback = True;

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+						 _XimCreateICCheck, 0);

+    if (ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if (ret_code == XIM_OVERFLOW) {

+	if (len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = (int)len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, preply, buf_size,

+						 _XimCreateICCheck, 0);

+	    if (ret_code != XIM_TRUE) {

+		Xfree(preply);

+		ic->private.proto.waitCallback = False;

+		goto ErrorOnReCreateIC;

+	    }

+	}

+    } else {

+	ic->private.proto.waitCallback = False;

+	goto ErrorOnReCreateIC;

+    }

+    ic->private.proto.waitCallback = False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if (reply != preply)

+	    Xfree(preply);

+	goto ErrorOnReCreateIC;

+    }

+

+    ic->private.proto.icid = buf_s[1];		/* icid */

+    if (reply != preply)

+	Xfree(preply);

+

+    _XimRegisterFilter(ic);

+    MARK_IC_CONNECTED(ic);

+    if (save_ic->private.proto.ic_resources)

+	Xfree(save_ic->private.proto.ic_resources);

+    if (save_ic->private.proto.ic_inner_resources)

+	Xfree(save_ic->private.proto.ic_inner_resources);

+    Xfree(save_ic);

+    return True;

+

+ErrorOnReCreateIC:

+    memcpy((char *)ic, (char *)save_ic, sizeof(XicRec));

+    Xfree(save_ic);

+    return False;

+}

+

+Private char *

+_XimDelayModeGetICValues(ic, arg)

+    Xic			 ic;

+    XIMArg		*arg;

+{

+    XimDefICValues	 ic_values;

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    return  _XimGetICValueData(ic, (XPointer)&ic_values,

+				ic->private.proto.ic_resources,

+				ic->private.proto.ic_num_resources,

+				arg, XIM_GETICVALUES);

+}

+#endif /* XIM_CONNECTABLE */

+

+Private Bool

+_XimGetICValuesCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+

+    if ((major_opcode == XIM_GET_IC_VALUES_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+	return True;

+    return False;

+}

+

+Private char *

+_XimProtoGetICValues(

+    XIC			 xic,

+    XIMArg		*arg)

+{

+    Xic			 ic = (Xic)xic;

+    Xim			 im = (Xim)ic->core.im;

+    register XIMArg	*p;

+    register XIMArg	*pp;

+    register int	 n;

+    CARD8		*buf;

+    CARD16		*buf_s;

+    INT16		 len;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply = NULL;

+    int			 buf_size;

+    int			 ret_code;

+    char		*makeid_name;

+    char		*decode_name;

+    CARD16		*data = NULL;

+    INT16		 data_len = 0;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_IC_CONNECTED(ic))

+	return arg->name;

+#else

+    if (!IS_IC_CONNECTED(ic)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (_XimConnectServer(im)) {

+		if (!_XimReCreateIC(ic)) {

+		    _XimDelayModeSetAttr(im);

+	            return _XimDelayModeGetICValues(ic, arg);

+		}

+	    } else {

+	        return _XimDelayModeGetICValues(ic, arg);

+	    }

+        } else {

+	    return arg->name;

+        }

+    }

+#endif /* XIM_CONNECTABLE */

+

+    for (n = 0, p = arg; p && p->name; p++) {

+	n++;

+	if ((strcmp(p->name, XNPreeditAttributes) == 0)

+	 || (strcmp(p->name, XNStatusAttributes) == 0)) {

+	     n++;

+	     for (pp = (XIMArg *)p->value; pp && pp->name; pp++)

+	 	n++;

+	}

+    }

+

+    if (!n)

+	return (char *)NULL;

+

+    buf_size =  sizeof(CARD16) * n;

+    buf_size += XIM_HEADER_SIZE

+	     + sizeof(CARD16)

+	     + sizeof(CARD16)

+	     + sizeof(INT16)

+	     + XIM_PAD(2 + buf_size);

+

+    if (!(buf = (CARD8 *)Xmalloc(buf_size)))

+	return arg->name;

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+

+    makeid_name = _XimMakeICAttrIDList(ic, ic->private.proto.ic_resources,

+				ic->private.proto.ic_num_resources, arg,

+				&buf_s[3], &len, XIM_GETICVALUES);

+

+    if (len > 0) {

+	buf_s[0] = im->private.proto.imid;		/* imid */

+	buf_s[1] = ic->private.proto.icid;		/* icid */

+	buf_s[2] = len;				/* length of ic-attr-id */

+	len += sizeof(INT16);                       /* sizeof length of attr */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += sizeof(CARD16)			/* sizeof imid */

+	     + sizeof(CARD16);			/* sizeof icid */

+

+	_XimSetHeader((XPointer)buf, XIM_GET_IC_VALUES, 0, &len);

+	if (!(_XimWrite(im, len, (XPointer)buf))) {

+	    Xfree(buf);

+	    return arg->name;

+	}

+	_XimFlush(im);

+	Xfree(buf);

+	buf_size = BUFSIZE;

+	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+				 _XimGetICValuesCheck, (XPointer)ic);

+	if (ret_code == XIM_TRUE) {

+	    preply = reply;

+	} else if (ret_code == XIM_OVERFLOW) {

+	    if (len <= 0) {

+		preply = reply;

+	    } else {

+		buf_size = (int)len;

+		preply = (XPointer)Xmalloc(len);

+		ret_code = _XimRead(im, &len, preply, buf_size,

+				_XimGetICValuesCheck, (XPointer)ic);

+		if (ret_code != XIM_TRUE) {

+		    if (preply != reply)

+		        Xfree(preply);

+		    return arg->name;

+		}

+	    }

+	} else {

+	    return arg->name;

+	}

+	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+	if (*((CARD8 *)preply) == XIM_ERROR) {

+	    _XimProcError(im, 0, (XPointer)&buf_s[3]);

+	    if (reply != preply)

+		Xfree(preply);

+	    return arg->name;

+	}

+	data = &buf_s[4];

+	data_len = buf_s[2];

+    }

+    else if (len < 0) {

+	return arg->name;

+    }

+

+    decode_name = _XimDecodeICATTRIBUTE(ic, ic->private.proto.ic_resources,

+			ic->private.proto.ic_num_resources, data, data_len,

+			arg, XIM_GETICVALUES);

+    if (reply != preply)

+	Xfree(preply);

+

+    if (decode_name)

+	return decode_name;

+    else

+	return makeid_name;

+}

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimCheckNestQuarkList(quark_list, num_quark, quark, separator)

+    XrmQuark		*quark_list;

+    int			 num_quark;

+    XrmQuark		 quark;

+    XrmQuark		 separator;

+{

+    register int	 i;

+

+    for (i = 0; i < num_quark; i++) {

+	if (quark_list[i] == separator) {

+	    break;

+	}

+	if (quark_list[i] == quark) {

+	    return True;

+	}

+    }

+    return False;

+}

+

+Private Bool

+_XimCheckNestedQuarkList(quark_list, idx, num_quark, arg, separator)

+    XrmQuark		**quark_list;

+    int			  idx;

+    int			 *num_quark;

+    XIMArg		 *arg;

+    XrmQuark		  separator;

+{

+    XrmQuark		 *q_list = *quark_list;

+    int			  n_quark = *num_quark;

+    register XIMArg	 *p;

+    XrmQuark		  quark;

+    XrmQuark		 *tmp;

+    register int	  i;

+

+    for (p = arg; p && p->name; p++) {

+	quark = XrmStringToQuark(p->name);

+	if (_XimCheckNestQuarkList(&q_list[idx], n_quark - idx,

+							quark, separator)) {

+	    continue;

+	}

+	if (!(tmp = (XrmQuark *)Xmalloc((sizeof(XrmQuark) * (n_quark + 1))))) {

+	    *quark_list = q_list;

+	    *num_quark = n_quark;

+	    return False;

+	}

+	n_quark++;

+	for (i = 0; i < idx; i++) {

+	    tmp[i] = q_list[i];

+	}

+	tmp[i] = quark;

+	for (i = idx  + 1; i < n_quark; i++) {

+	    tmp[i] = q_list[i - 1];

+	}

+	q_list = tmp;

+    }

+    *quark_list = q_list;

+    *num_quark = n_quark;

+    return True;

+}

+

+Private Bool

+_XimCheckICQuarkList(quark_list, num_quark, quark, idx)

+    XrmQuark		*quark_list;

+    int			 num_quark;

+    XrmQuark		 quark;

+    int			*idx;

+{

+    register int	 i;

+

+    for (i = 0; i < num_quark; i++) {

+	if (quark_list[i] == quark) {

+	    *idx = i;

+	    return True;

+	}

+    }

+    return False;

+}

+

+Private Bool

+_XimSaveICValues(ic, arg)

+    Xic			 ic;

+    XIMArg		*arg;

+{

+    register XIMArg	*p;

+    register int	 n;

+    XrmQuark		*quark_list;

+    XrmQuark		*tmp;

+    XrmQuark		 quark;

+    int			 num_quark;

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+    XrmQuark		 separator;

+    int			 idx;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+    separator = XrmStringToQuark(XNSeparatorofNestedList);

+

+    if (quark_list = ic->private.proto.saved_icvalues) {

+	num_quark = ic->private.proto.num_saved_icvalues;

+	for (p = arg; p && p->name; p++) {

+	    quark = XrmStringToQuark(p->name);

+	    if ((quark == pre_quark) || (quark == sts_quark)) {

+	        if (!_XimCheckICQuarkList(quark_list, num_quark, quark, &idx)) {

+		    register XIMArg	*pp;

+		    int			 nn;

+		    XrmQuark		*q_list;

+

+		    for (pp = (XIMArg *)p->value, nn = 0;

+						pp && pp->name; pp++, nn++);

+	            if (!(tmp = (XrmQuark *)Xrealloc(quark_list,

+				(sizeof(XrmQuark) * (num_quark + nn + 2))))) {

+		        ic->private.proto.saved_icvalues = quark_list;

+		        ic->private.proto.num_saved_icvalues = num_quark;

+		        return False;

+	            }

+	            quark_list = tmp;

+		    q_list = &quark_list[num_quark];

+	            num_quark += nn + 2;

+		    *q_list++ = quark;

+		    for (pp = (XIMArg *)p->value;

+					pp && pp->name; pp++, quark_list++) {

+			*q_list = XrmStringToQuark(pp->name);

+		    }

+		    *q_list = separator;

+		} else {

+		    if (!_XimCheckNestedQuarkList(&quark_list, idx + 1,

+				&num_quark, (XIMArg *)p->value, separator)) {

+		        ic->private.proto.saved_icvalues = quark_list;

+		        ic->private.proto.num_saved_icvalues = num_quark;

+		        return False;

+		    }

+		}

+	    } else {

+	        if (_XimCheckICQuarkList(quark_list, num_quark, quark, &idx)) {

+		    continue;

+	        }

+	        if (!(tmp = (XrmQuark *)Xrealloc(quark_list,

+				(sizeof(XrmQuark) * (num_quark + 1))))) {

+		    ic->private.proto.saved_icvalues = quark_list;

+		    ic->private.proto.num_saved_icvalues = num_quark;

+		    return False;

+	        }

+	        quark_list = tmp;

+	        quark_list[num_quark] = quark;

+	        num_quark++;

+	    }

+	}

+	ic->private.proto.saved_icvalues = quark_list;

+	ic->private.proto.num_saved_icvalues = num_quark;

+	return True;

+    }

+

+    for (p = arg, n = 0; p && p->name; p++, n++) {

+	if ((!strcmp(p->name, XNPreeditAttributes))

+	 || (!strcmp(p->name, XNStatusAttributes))) {

+	    register XIMArg	*pp;

+	    int			 nn;

+

+	    for (pp = (XIMArg *)p->value, nn = 0; pp && pp->name; pp++, nn++);

+	    n += nn + 1;

+	}

+    }

+

+    if (!(quark_list = (XrmQuark *)Xmalloc(sizeof(XrmQuark) * n))) {

+	return False;

+    }

+

+    ic->private.proto.saved_icvalues = quark_list;

+    ic->private.proto.num_saved_icvalues = n;

+    for (p = arg; p && p->name; p++, quark_list++) {

+	*quark_list = XrmStringToQuark(p->name);

+	if ((*quark_list == pre_quark) || (*quark_list == sts_quark)) {

+	    register XIMArg	*pp;

+

+	    quark_list++;

+	    for (pp = (XIMArg *)p->value; pp && pp->name; pp++, quark_list++) {

+		*quark_list = XrmStringToQuark(pp->name);

+	    }

+	    *quark_list = separator;

+	}

+    }

+    return True;

+}

+

+Private char *

+_XimDelayModeSetICValues(ic, arg)

+    Xic			 ic;

+    XIMArg		*arg;

+{

+    XimDefICValues	 ic_values;

+    char		*name;

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    name = _XimSetICValueData(ic, (XPointer)&ic_values,

+			ic->private.proto.ic_resources,

+			ic->private.proto.ic_num_resources,

+			arg, XIM_SETICVALUES, False);

+    _XimSetCurrentICValues(ic, &ic_values);

+    return name;

+}

+#endif /* XIM_CONNECTABLE */

+

+Private Bool

+_XimSetICValuesCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+

+    if ((major_opcode == XIM_SET_IC_VALUES_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+	return True;

+    return False;

+}

+

+Private char *

+_XimProtoSetICValues(

+    XIC			 xic,

+    XIMArg		*arg)

+{

+    Xic			 ic = (Xic)xic;

+    Xim			 im = (Xim)ic->core.im;

+    XimDefICValues	 ic_values;

+    INT16		 len;

+    CARD16		*buf_s;

+    char		*tmp;

+    CARD32		 tmp_buf32[BUFSIZE/4];

+    char		*tmp_buf = (char *)tmp_buf32;

+    char		*buf;

+    int			 buf_size;

+    char		*data;

+    int			 data_len;

+    int			 ret_len;

+    int			 total;

+    XIMArg		*arg_ret;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply = NULL;

+    int			 ret_code;

+    BITMASK32		 flag = 0L;

+    char		*name;

+    char		*tmp_name = (arg) ? arg->name : NULL;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_IC_CONNECTED(ic))

+	return tmp_name;

+#else

+    if (!_XimSaveICValues(ic, arg))

+	return NULL;

+

+    if (!IS_IC_CONNECTED(ic)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (_XimConnectServer(im)) {

+	        if (!_XimReCreateIC(ic)) {

+		    _XimDelayModeSetAttr(im);

+	            return _XimDelayModeSetICValues(ic, arg);

+		}

+	    } else {

+	        return _XimDelayModeSetICValues(ic, arg);

+	    }

+        } else {

+	    return tmp_name;

+        }

+    }

+#endif /* XIM_CONNECTABLE */

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    buf = tmp_buf;

+    buf_size = XIM_HEADER_SIZE

+	+ sizeof(CARD16) + sizeof(CARD16) + sizeof(INT16) + sizeof(CARD16);

+    data_len = BUFSIZE - buf_size;

+    total = 0;

+    arg_ret = arg;

+    for (;;) {

+	data = &buf[buf_size];

+	if ((name = _XimEncodeICATTRIBUTE(ic, ic->private.proto.ic_resources,

+			ic->private.proto.ic_num_resources, arg, &arg_ret,

+			data, data_len, &ret_len, (XPointer)&ic_values,

+			&flag, XIM_SETICVALUES))) {

+	    break;

+	}

+

+	total += ret_len;

+	if (!(arg = arg_ret)) {

+	    break;

+	}

+

+	buf_size += ret_len;

+	if (buf == tmp_buf) {

+	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {

+		return tmp_name;

+	    }

+	    memcpy(tmp, buf, buf_size);

+	    buf = tmp;

+	} else {

+	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {

+		Xfree(buf);

+		return tmp_name;

+	    }

+	    buf = tmp;

+	}

+    }

+    _XimSetCurrentICValues(ic, &ic_values);

+

+    if (!total) {

+        return tmp_name;

+    }

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+

+#ifdef EXT_MOVE

+    if (_XimExtenMove(im, ic, flag, &buf_s[4], (INT16)total))

+	return name;

+#endif

+

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = ic->private.proto.icid;

+    buf_s[2] = (INT16)total;

+    buf_s[3] = 0;

+    len = (INT16)(sizeof(CARD16) + sizeof(CARD16)

+				+ sizeof(INT16) + sizeof(CARD16) + total);

+

+    _XimSetHeader((XPointer)buf, XIM_SET_IC_VALUES, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	if (buf != tmp_buf)

+	    Xfree(buf);

+	return tmp_name;

+    }

+    _XimFlush(im);

+    if (buf != tmp_buf)

+	Xfree(buf);

+    ic->private.proto.waitCallback = True;

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					_XimSetICValuesCheck, (XPointer)ic);

+    if (ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if (ret_code == XIM_OVERFLOW) {

+	buf_size = (int)len;

+	preply = (XPointer)Xmalloc(buf_size);

+	ret_code = _XimRead(im, &len, preply, buf_size,

+					_XimSetICValuesCheck, (XPointer)ic);

+	if (ret_code != XIM_TRUE) {

+	    Xfree(preply);

+	    ic->private.proto.waitCallback = False;

+	    return tmp_name;

+	}

+    } else {

+	ic->private.proto.waitCallback = False;

+	return tmp_name;

+    }

+    ic->private.proto.waitCallback = False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if (reply != preply)

+	    Xfree(preply);

+	return tmp_name;

+    }

+    if (reply != preply)

+	Xfree(preply);

+

+    return name;

+}

+

+Private Bool

+_XimDestroyICCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+    Bool	 ret = False;

+

+    if ((major_opcode == XIM_DESTROY_IC_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	ret = True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+    ret = False;

+    return ret;

+}

+

+Private void

+_XimProtoICFree(

+    Xic		 ic)

+{

+#ifdef XIM_CONNECTABLE

+    Xim		 im = (Xim)ic->core.im;

+#endif

+

+    if (ic->private.proto.preedit_font) {

+	Xfree(ic->private.proto.preedit_font);

+	ic->private.proto.preedit_font = NULL;

+    }

+    if (ic->private.proto.status_font) {

+	Xfree(ic->private.proto.status_font);

+	ic->private.proto.status_font = NULL;

+    }

+    if (ic->private.proto.commit_info) {

+	_XimFreeCommitInfo(ic);

+	ic->private.proto.commit_info = NULL;

+    }

+    if (ic->private.proto.ic_inner_resources) {

+	Xfree(ic->private.proto.ic_inner_resources);

+	ic->private.proto.ic_inner_resources = NULL;

+    }

+

+#ifdef XIM_CONNECTABLE

+    if (IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {

+	return;

+    }

+#endif /* XIM_CONNECTABLE */

+

+    if (ic->private.proto.saved_icvalues) {

+	Xfree(ic->private.proto.saved_icvalues);

+	ic->private.proto.saved_icvalues = NULL;

+    }

+    if (ic->private.proto.ic_resources) {

+	Xfree(ic->private.proto.ic_resources);

+	ic->private.proto.ic_resources = NULL;

+    }

+    if (ic->core.hotkey) {

+	Xfree(ic->core.hotkey);

+	ic->core.hotkey = NULL;

+    }

+

+    return;

+}

+

+Private void

+_XimProtoDestroyIC(

+    XIC		 xic)

+{

+    Xic		 ic = (Xic)xic;

+    Xim	 	 im = (Xim)ic->core.im;

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+

+    if (IS_SERVER_CONNECTED(im)) {

+	buf_s[0] = im->private.proto.imid;		/* imid */

+	buf_s[1] = ic->private.proto.icid;		/* icid */

+

+	len = sizeof(CARD16)			/* sizeof imid */

+	    + sizeof(CARD16);			/* sizeof icid */

+

+	_XimSetHeader((XPointer)buf, XIM_DESTROY_IC, 0, &len);

+	(void)_XimWrite(im, len, (XPointer)buf);

+	_XimFlush(im);

+	buf_size = BUFSIZE;

+	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					_XimDestroyICCheck, (XPointer)ic);

+	if (ret_code == XIM_OVERFLOW) {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    (void)_XimRead(im, &len, preply, buf_size,

+					_XimDestroyICCheck, (XPointer)ic);

+	    Xfree(preply);

+	}

+    }

+    UNMARK_IC_CONNECTED(ic);

+    _XimUnregisterFilter(ic);

+    _XimProtoICFree(ic);

+    return;

+}

+

+Private void

+_XimProtoSetFocus(

+    XIC		 xic)

+{

+    Xic		 ic = (Xic)xic;

+    Xim		 im = (Xim)ic->core.im;

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_IC_CONNECTED(ic))

+	return;

+#else

+    if (!IS_IC_CONNECTED(ic)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (_XimConnectServer(im)) {

+		if (!_XimReCreateIC(ic)) {

+		    _XimDelayModeSetAttr(im);

+		    return;

+		}

+	    } else {

+		return;

+	    }

+	} else {

+	    return;

+	}

+    }

+#endif /* XIM_CONNECTABLE */

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+

+    len = sizeof(CARD16)			/* sizeof imid */

+	+ sizeof(CARD16);			/* sizeof icid */

+

+    _XimSetHeader((XPointer)buf, XIM_SET_IC_FOCUS, 0, &len);

+    (void)_XimWrite(im, len, (XPointer)buf);

+    _XimFlush(im);

+

+    MARK_FOCUSED(ic);

+

+    _XimRegisterFilter(ic);

+    return;

+}

+

+Private void

+_XimProtoUnsetFocus(

+    XIC		 xic)

+{

+    Xic		 ic = (Xic)xic;

+    Xim		 im = (Xim)ic->core.im;

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_IC_CONNECTED(ic))

+	return;

+#else

+    if (!IS_IC_CONNECTED(ic)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (_XimConnectServer(im)) {

+		if (!_XimReCreateIC(ic)) {

+		    _XimDelayModeSetAttr(im);

+		    return;

+		}

+	    } else {

+		return;

+	    }

+	} else {

+	    return;

+	}

+    }

+#endif /* XIM_CONNECTABLE */

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+

+    len = sizeof(CARD16)			/* sizeof imid */

+	+ sizeof(CARD16);			/* sizeof icid */

+

+    _XimSetHeader((XPointer)buf, XIM_UNSET_IC_FOCUS, 0, &len);

+    (void)_XimWrite(im, len, (XPointer)buf);

+    _XimFlush(im);

+

+    UNMARK_FOCUSED(ic);

+

+    _XimUnregisterFilter(ic);

+    return;

+}

+

+Private Bool

+_XimResetICCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+

+    if ((major_opcode == XIM_RESET_IC_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+	return True;

+    return False;

+}

+

+Private char *

+_XimProtoReset(

+    XIC		 xic,

+    char *     (*retfunc) (Xim im, Xic ic, XPointer buf) )

+{

+    Xic		 ic = (Xic)xic;

+    Xim	 	 im = (Xim)ic->core.im;

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+    char	*commit;

+

+    if (!IS_IC_CONNECTED(ic))

+	return (char *)NULL;

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+

+    len = sizeof(CARD16)			/* sizeof imid */

+	+ sizeof(CARD16);			/* sizeof icid */

+

+    _XimSetHeader((XPointer)buf, XIM_RESET_IC, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return NULL;

+    _XimFlush(im);

+    ic->private.proto.waitCallback = True;

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+    					_XimResetICCheck, (XPointer)ic);

+    if (ret_code == XIM_TRUE) {

+    	preply = reply;

+    } else if (ret_code == XIM_OVERFLOW) {

+    	if (len < 0) {

+    	    preply = reply;

+    	} else {

+    	    buf_size = len;

+    	    preply = (XPointer)Xmalloc(buf_size);

+    	    ret_code = _XimRead(im, &len, preply, buf_size,

+    					_XimResetICCheck, (XPointer)ic);

+    	    if (ret_code != XIM_TRUE) {

+		Xfree(preply);

+    		ic->private.proto.waitCallback = False;

+    		return NULL;

+    	    }

+    	}

+    } else {

+	ic->private.proto.waitCallback = False;

+	return NULL;

+    }

+    ic->private.proto.waitCallback = False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+    	if (reply != preply)

+    	    free(preply);

+	return NULL;

+    }

+

+    commit = retfunc(im, ic, (XPointer)&buf_s[2]);

+

+    if (reply != preply)

+    	Xfree(preply);

+    return commit;

+}

+

+Private char *

+_XimCommitedMbString(

+    Xim			 im,

+    Xic			 ic,

+    XPointer		 buf)

+{

+    CARD16		*buf_s = (CARD16 *)buf;

+    XimCommitInfo	 info;

+    int			 len;

+    int			 new_len;

+    char		*commit;

+    char		*new_commit = NULL;

+    char		*str;

+    Status		 status;

+

+    len = 0;

+    for (info = ic->private.proto.commit_info; info; info = info->next)

+	len += info->string_len;

+    len += buf_s[0];

+    if ( len == 0 )

+	return( NULL );

+

+    if (!(commit = (char *)Xmalloc(len + 1)))

+	goto Error_On_Reset;

+

+    str = commit;

+    for (info = ic->private.proto.commit_info; info; info = info->next) {

+	(void)memcpy(str, info->string, info->string_len);

+	str += info->string_len;

+    }

+    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);

+    commit[len] = '\0';

+

+    new_len = im->methods->ctstombs((XIM)im, commit, len, NULL, 0, &status);

+    if (status != XLookupNone) {

+	if (!(new_commit = Xmalloc(new_len + 1))) {

+	    Xfree(commit);

+	    goto Error_On_Reset;

+	}

+	(void)im->methods->ctstombs((XIM)im, commit, len,

+						new_commit, new_len, NULL);

+	new_commit[new_len] = '\0';

+    }

+    Xfree(commit);

+

+Error_On_Reset:

+    _XimFreeCommitInfo( ic );

+    return new_commit;

+}

+

+Private char *

+_XimProtoMbReset(

+    XIC		 xic)

+{

+    return _XimProtoReset(xic, _XimCommitedMbString);

+}

+

+Private wchar_t *

+_XimCommitedWcString(

+    Xim		 im,

+    Xic		 ic,

+    XPointer	 buf)

+{

+    CARD16		*buf_s = (CARD16 *)buf;

+    XimCommitInfo	 info;

+    int			 len;

+    int			 new_len;

+    char		*commit;

+    wchar_t		*new_commit = (wchar_t *)NULL;

+    char		*str;

+    Status		 status;

+

+    len = 0;

+    for (info = ic->private.proto.commit_info; info; info = info->next)

+	len += info->string_len;

+    len += buf_s[0];

+    if ( len == 0 )

+	return( (wchar_t *)NULL );

+

+    if (!(commit = (char *)Xmalloc(len + 1)))

+	goto Error_On_Reset;

+

+    str = commit;

+    for (info = ic->private.proto.commit_info; info; info = info->next) {

+	(void)memcpy(str, info->string, info->string_len);

+	str += info->string_len;

+    }

+    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);

+    commit[len] = '\0';

+

+    new_len = im->methods->ctstowcs((XIM)im, commit, len, NULL, 0, &status);

+    if (status != XLookupNone) {

+	if (!(new_commit =

+		     (wchar_t *)Xmalloc(sizeof(wchar_t) * (new_len + 1)))) {

+	    Xfree(commit);

+	    goto Error_On_Reset;

+	}

+	(void)im->methods->ctstowcs((XIM)im, commit, len,

+						new_commit, new_len, NULL);

+	new_commit[new_len] = (wchar_t)'\0';

+    }

+    Xfree(commit);

+

+Error_On_Reset:

+    _XimFreeCommitInfo( ic );

+    return new_commit;

+}

+

+Private wchar_t *

+_XimProtoWcReset(

+    XIC		 xic)

+{

+    return (wchar_t *) _XimProtoReset(xic,

+			(char * (*) (Xim, Xic, XPointer)) _XimCommitedWcString);

+}

+

+Private char *

+_XimCommitedUtf8String(

+    Xim			 im,

+    Xic			 ic,

+    XPointer		 buf)

+{

+    CARD16		*buf_s = (CARD16 *)buf;

+    XimCommitInfo	 info;

+    int			 len;

+    int			 new_len;

+    char		*commit;

+    char		*new_commit = NULL;

+    char		*str;

+    Status		 status;

+

+    len = 0;

+    for (info = ic->private.proto.commit_info; info; info = info->next)

+	len += info->string_len;

+    len += buf_s[0];

+    if ( len == 0 )

+	return( NULL );

+

+    if (!(commit = (char *)Xmalloc(len + 1)))

+	goto Error_On_Reset;

+

+    str = commit;

+    for (info = ic->private.proto.commit_info; info; info = info->next) {

+	(void)memcpy(str, info->string, info->string_len);

+	str += info->string_len;

+    }

+    (void)memcpy(str, (char *)&buf_s[1], buf_s[0]);

+    commit[len] = '\0';

+

+    new_len = im->methods->ctstoutf8((XIM)im, commit, len, NULL, 0, &status);

+    if (status != XLookupNone) {

+	if (!(new_commit = Xmalloc(new_len + 1))) {

+	    Xfree(commit);

+	    goto Error_On_Reset;

+	}

+	(void)im->methods->ctstoutf8((XIM)im, commit, len,

+						new_commit, new_len, NULL);

+	new_commit[new_len] = '\0';

+    }

+    Xfree(commit);

+

+Error_On_Reset:

+    _XimFreeCommitInfo( ic );

+    return new_commit;

+}

+

+Private char *

+_XimProtoUtf8Reset(

+    XIC		 xic)

+{

+    return _XimProtoReset(xic, _XimCommitedUtf8String);

+}

+

+Private XICMethodsRec ic_methods = {

+    _XimProtoDestroyIC,		/* destroy */

+    _XimProtoSetFocus,		/* set_focus */

+    _XimProtoUnsetFocus,	/* unset_focus */

+    _XimProtoSetICValues,	/* set_values */

+    _XimProtoGetICValues,	/* get_values */

+    _XimProtoMbReset,		/* mb_reset */

+    _XimProtoWcReset,		/* wc_reset */

+    _XimProtoUtf8Reset,		/* utf8_reset */

+    _XimProtoMbLookupString,	/* mb_lookup_string */

+    _XimProtoWcLookupString,	/* wc_lookup_string */

+    _XimProtoUtf8LookupString	/* utf8_lookup_string */

+};

+

+Private Bool

+_XimGetInputStyle(

+    XIMArg		*arg,

+    XIMStyle		*input_style)

+{

+    register XIMArg	*p;

+

+    for (p = arg; p && p->name; p++) {

+	if (!(strcmp(p->name, XNInputStyle))) {

+	    *input_style = (XIMStyle)p->value;

+	    return True;

+	}

+    }

+    return False;

+}

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimDelayModeCreateIC(

+    Xic			 ic,

+    XIMArg		*values,

+    XIMResourceList	 res,

+    unsigned int	 num)

+{

+    Xim			 im = (Xim)ic->core.im;

+    XimDefICValues	 ic_values;

+    int			 len;

+    XIMStyle		 input_style;

+

+    bzero((char *)&ic_values, sizeof(XimDefICValues));

+    _XimGetCurrentICValues(ic, &ic_values);

+    if (!(_XimGetInputStyle(values, &input_style)))

+	return False;

+

+    _XimSetICMode(res, num, input_style);

+

+    if (_XimSetICValueData(ic, (XPointer)&ic_values, res, num,

+					values, XIM_CREATEIC, False)) {

+	return False;

+    }

+    _XimSetCurrentICValues(ic, &ic_values);

+    if (!_XimSetICDefaults(ic, (XPointer)&ic_values,

+					XIM_SETICDEFAULTS, res, num)) {

+	return False;

+    }

+    ic_values.filter_events = KeyPressMask;

+    _XimSetCurrentICValues(ic, &ic_values);

+    _XimRegisterFilter(ic);

+

+    return True;

+}

+

+Public Bool

+_XimReconnectModeCreateIC(ic)

+    Xic			 ic;

+{

+    Xim			 im = (Xim)ic->core.im;

+    int			 len;

+    XIMStyle		 input_style = ic->core.input_style;

+    XIMResourceList	 res;

+    unsigned int	 num;

+

+    num = im->core.ic_num_resources;

+    len = sizeof(XIMResource) * num;

+    if (!(res = (XIMResourceList)Xmalloc(len)))

+	return False;

+    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);

+    ic->private.proto.ic_resources     = res;

+    ic->private.proto.ic_num_resources = num;

+

+    _XimSetICMode(res, num, input_style);

+

+    ic->core.filter_events = KeyPressMask;

+

+    return True;

+}

+#endif /* XIM_CONNECTABLE */

+

+Public XIC

+_XimProtoCreateIC(

+    XIM			 xim,

+    XIMArg		*arg)

+{

+    Xim			 im = (Xim)xim;

+    Xic			 ic;

+    XimDefICValues	 ic_values;

+    XIMResourceList	 res;

+    unsigned int         num;

+    XIMStyle		 input_style;

+    INT16		 len;

+    CARD16		*buf_s;

+    char		*tmp;

+    CARD32		 tmp_buf32[BUFSIZE/4];

+    char		*tmp_buf = (char *)tmp_buf32;

+    char		*buf;

+    int			 buf_size;

+    char		*data;

+    int			 data_len;

+    int			 ret_len;

+    int			 total;

+    XIMArg		*arg_ret;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply;

+    int			 ret_code;

+

+#ifdef XIM_CONNECTABLE

+    if (!IS_SERVER_CONNECTED(im) && !IS_CONNECTABLE(im))

+	return (XIC)NULL;

+#else

+    if (!IS_SERVER_CONNECTED(im))

+	return (XIC)NULL;

+#endif /* XIM_CONNECTABLE */

+

+    if (!(_XimGetInputStyle(arg, &input_style)))

+	return (XIC)NULL;

+

+    if ((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL)

+	return (XIC)NULL;

+

+    ic->methods = &ic_methods;

+    ic->core.im = (XIM)im;

+    ic->core.input_style = input_style;

+

+    num = im->core.ic_num_resources;

+    len = sizeof(XIMResource) * num;

+    if (!(res = (XIMResourceList)Xmalloc(len)))

+	goto ErrorOnCreatingIC;

+    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);

+    ic->private.proto.ic_resources     = res;

+    ic->private.proto.ic_num_resources = num;

+

+#ifdef XIM_CONNECTABLE

+    if (!_XimSaveICValues(ic, arg))

+	return False;

+

+    if (!IS_SERVER_CONNECTED(im)) {

+	if (!_XimConnectServer(im)) {

+	    if (_XimDelayModeCreateIC(ic, arg, res, num)) {

+		return (XIC)ic;

+	    }

+	    goto ErrorOnCreatingIC;

+	}

+    }

+#endif /* XIM_CONNECTABLE */

+

+    ic->core.filter_events = im->private.proto.forward_event_mask;

+    ic->private.proto.forward_event_mask =

+				im->private.proto.forward_event_mask;

+    ic->private.proto.synchronous_event_mask =

+				im->private.proto.synchronous_event_mask;

+

+    num = im->private.proto.ic_num_inner_resources;

+    len = sizeof(XIMResource) * num;

+    if (!(res = (XIMResourceList)Xmalloc(len)))

+	goto ErrorOnCreatingIC;

+    (void)memcpy((char *)res,

+			 (char *)im->private.proto.ic_inner_resources, len);

+    ic->private.proto.ic_inner_resources     = res;

+    ic->private.proto.ic_num_inner_resources = num;

+

+    _XimSetICMode(ic->private.proto.ic_resources,

+			ic->private.proto.ic_num_resources, input_style);

+

+    _XimSetICMode(ic->private.proto.ic_inner_resources,

+			ic->private.proto.ic_num_inner_resources, input_style);

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    buf = tmp_buf;

+    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);

+    data_len = BUFSIZE - buf_size;

+    total = 0;

+    arg_ret = arg;

+    for (;;) {

+	data = &buf[buf_size];

+	if (_XimEncodeICATTRIBUTE(ic, ic->private.proto.ic_resources,

+		ic->private.proto.ic_num_resources, arg, &arg_ret, data,

+		data_len, &ret_len, (XPointer)&ic_values, 0, XIM_CREATEIC)) {

+	    goto ErrorOnCreatingIC;

+	}

+

+	total += ret_len;

+	if (!(arg = arg_ret)) {

+	    break;

+	}

+

+	buf_size += ret_len;

+	if (buf == tmp_buf) {

+	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {

+	        goto ErrorOnCreatingIC;

+	    }

+	    memcpy(tmp, buf, buf_size);

+	    buf = tmp;

+	} else {

+	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {

+		Xfree(buf);

+	        goto ErrorOnCreatingIC;

+	    }

+	    buf = tmp;

+	}

+    }

+    _XimSetCurrentICValues(ic, &ic_values);

+

+    if (!(_XimCheckCreateICValues(ic->private.proto.ic_resources,

+					ic->private.proto.ic_num_resources)))

+	goto ErrorOnCreatingIC;

+

+    _XimRegisterFilter(ic);

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = (INT16)total;

+

+    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);

+    _XimSetHeader((XPointer)buf, XIM_CREATE_IC, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	if (buf != tmp_buf)

+	    Xfree(buf);

+	goto ErrorOnCreatingIC;

+    }

+    _XimFlush(im);

+    if (buf != tmp_buf)

+	Xfree(buf);

+    ic->private.proto.waitCallback = True;

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+						 _XimCreateICCheck, 0);

+    if (ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if (ret_code == XIM_OVERFLOW) {

+	if (len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = (int)len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, preply, buf_size,

+						 _XimCreateICCheck, 0);

+	    if (ret_code != XIM_TRUE) {

+		Xfree(preply);

+		ic->private.proto.waitCallback = False;

+		goto ErrorOnCreatingIC;

+	    }

+	}

+    } else {

+	ic->private.proto.waitCallback = False;

+	goto ErrorOnCreatingIC;

+    }

+    ic->private.proto.waitCallback = False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if (reply != preply)

+	    Xfree(preply);

+	goto ErrorOnCreatingIC;

+    }

+

+    ic->private.proto.icid = buf_s[1];		/* icid */

+    if (reply != preply)

+	Xfree(preply);

+    MARK_IC_CONNECTED(ic);

+    return (XIC)ic;

+

+ErrorOnCreatingIC:

+    _XimUnregisterFilter(ic);

+    if (ic->private.proto.ic_resources)

+	Xfree(ic->private.proto.ic_resources);

+    if (ic->private.proto.ic_inner_resources)

+	Xfree(ic->private.proto.ic_inner_resources);

+    Xfree(ic);

+    return (XIC)NULL;

+}

diff --git a/libX11/modules/im/ximcp/imDefIm.c b/libX11/modules/im/ximcp/imDefIm.c
index 18a3cc85f..2ea4427c3 100644
--- a/libX11/modules/im/ximcp/imDefIm.c
+++ b/libX11/modules/im/ximcp/imDefIm.c
@@ -1,2044 +1,2044 @@
-/*
- * Copyright 1990, 1991, 1992 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-
-/******************************************************************
-         Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-         Copyright 1993, 1994 by Sony Corporation
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the names of Digital, FUJITSU
-LIMITED and Sony Corporation not be used in advertising or publicity
-pertaining to distribution of the software without specific, written
-prior permission.
-
-DIGITAL, FUJITSU LIMITED AND SONY CORPORATION DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL, FUJITSU LIMITED
-AND SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.
-          Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-          Makoto Wakamatsu     Sony Corporation
-                               makoto@sm.sony.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "XlcPublic.h"
-#include "XlcPubI.h"
-#include "XimTrInt.h"
-#include "Ximint.h"
-
-
-Public int
-_XimCheckDataSize(
-    XPointer	 buf,
-    int		 len)
-{
-    CARD16	*buf_s = (CARD16 *)buf;
-
-    if(len < XIM_HEADER_SIZE)
-	return -1;
-    return  buf_s[1];
-}
-
-Public void
-_XimSetHeader(
-    XPointer	 buf,
-    CARD8	 major_opcode,
-    CARD8	 minor_opcode,
-    INT16	*len
-)
-{
-    CARD8	*buf_b = (CARD8 *)buf;
-    CARD16	*buf_s = (CARD16 *)buf;
-
-    buf_b[0] = major_opcode;
-    buf_b[1] = minor_opcode;
-    buf_s[1] = ((*len) / 4);
-    *len += XIM_HEADER_SIZE;
-    return;
-}
-
-Public char
-_XimGetMyEndian(void)
-{
-    CARD16	 test_card = 1;
-
-    if(*((char *)&test_card))
-	return LITTLEENDIAN;
-    else
-	return BIGENDIAN;
-}
-
-Private Bool
-_XimCheckServerName(
-    Xim		   im,
-    char	  *str)
-{
-    char	  *server_name = im->core.im_name;
-    int		   len;
-    int		   str_len;
-    int		   category_len = strlen(XIM_SERVER_CATEGORY);
-    char	  *pp;
-    register char *p;
-
-    if(server_name && *server_name)
-	len = strlen(server_name);
-    else
-	return True;
-
-    if((int)strlen(str) < category_len)
-	return False;
-
-    if(strncmp(str, XIM_SERVER_CATEGORY, category_len))
-	return False;
-
-    pp = &str[category_len];
-
-    for(;;) {
-	for(p = pp; (*p != ',') && (*p); p++);
-	str_len = (int)(p - pp);
-
-	if((len == str_len) && (!strncmp(pp, server_name, len)))
-	    break;
-	if(!(*p))
-	    return False;
-	pp = p + 1;
-    }
-    return True;
-}
-
-Private char *
-_XimCheckLocaleName(
-    Xim		   im,
-    char	  *address,
-    int		   address_len,
-    char	  *locale_name[],
-    int		   len)
-{
-    int		   category_len;
-    char	  *pp;
-    register char *p;
-    register int   n;
-    Bool           finish = False;
-
-    category_len = strlen(XIM_LOCAL_CATEGORY);
-    if(address_len < category_len)
-	return (char*)NULL;
-
-    if(strncmp(address, XIM_LOCAL_CATEGORY, category_len))
-	return (char*)NULL;
-
-    pp = &address[category_len];
-
-    for(;;) {
-	for( p = pp; *p && *p != ','; p++);
-	if (!*p)
-	    finish = True;
-	address_len = (int)(p - pp);
-	*p = '\0';
-
-	for( n = 0; n < len; n++ )
-	    if( locale_name[n] && !_XlcCompareISOLatin1( pp, locale_name[n] ) )
-		return locale_name[n];
-	if (finish)
-	    break;
-	pp = p + 1;
-    }
-    return (char *)NULL;
-}
-
-Private Bool
-_XimCheckTransport(
-    char	  *address,
-    int		   address_len,
-    const char	  *transport,
-    int		   len,
-    char	 **trans_addr)
-{
-    int		   category_len = strlen(XIM_TRANSPORT_CATEGORY);
-    char	  *pp;
-    register char *p;
-
-    if(address_len < category_len)
-	return False;
-
-    if(strncmp(address, XIM_TRANSPORT_CATEGORY, category_len))
-	return False;
-
-    pp = &address[category_len];
-
-    for(;;) {
-	*trans_addr = pp;
-
-	for(p = pp; (*p != '/') && (*p != ',') && (*p); p++);
-	if(*p == ',') {
-	    pp = p + 1;
-	    continue;
-	}
-	if(!(*p))
-	    return False;
-
-	address_len = (int)(p - pp);
-
-	if((len == address_len) && (!strncmp(pp, transport, len)))
-	    break;
-	pp = p + 1;
-    }
-    pp = p + 1;
-    for(p = pp; (*p != ',') && (*p); p++);
-    if (*p)
-	*p = '\0';
-    return True;
-}
-
-Private Bool
-_CheckSNEvent(
-    Display		*display,
-    XEvent		*xevent,
-    XPointer		 arg)
-{
-    XSelectionEvent	*event = (XSelectionEvent *)xevent;
-    Window		 window = *(Window*)arg;
-
-    if((event->type == SelectionNotify) && (window == event->requestor))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimGetSelectionNotify(
-    Display		 *display,
-    Window		  window,
-    Atom		  target,
-    char		**ret_address)
-{
-    XEvent		  event;
-    XSelectionEvent	 *ev = (XSelectionEvent *)&event;
-    Atom		  actual_type;
-    int			  actual_format;
-    unsigned long	  nitems, bytes_after;
-
-    for(;;) {
-	XIfEvent(display, &event, _CheckSNEvent, (XPointer)&window);
-	if((ev->type == SelectionNotify) && (window == ev->requestor))
-	    break;
-    }
-
-    if(ev->property == (Atom)None)
-	return False;
-    if( XGetWindowProperty( display, window, target, 0L, 1000000L,
-			    True, target, &actual_type, &actual_format,
-			    &nitems, &bytes_after,
-			    (unsigned char **)&*ret_address ) != Success )
-	return False;
-    return True;
-}
-
-Private Bool
-_XimPreConnectionIM(
-    Xim			 im,
-    Atom		 selection)
-{
-    Display		*display = im->core.display;
-    Atom		 locales, transport;
-    char		*address;
-    XLCd		 lcd;
-    char		*language;
-    char		*territory;
-    char		*codeset;
-    char		*trans_addr;
-    char		*locale_name[4], *locale;
-    int			 llen, tlen, clen;
-    register int	 i;
-    Window		 window;
-    char		*str;
-
-    if(!(lcd = im->core.lcd))
-	return False;
-
-    for( i = 0; i < 4; i++ )
-	locale_name[i] = NULL;
-    /* requestor window */
-    if(!(window = XCreateSimpleWindow(display, DefaultRootWindow(display),
-			 				0, 0, 1, 1, 1, 0, 0)))
-	return False;
-
-    /* server name check */
-    if( !(str = XGetAtomName( display, selection )) )
-	return False;
-    if(!_XimCheckServerName(im, str)) {
-	XFree( (XPointer)str );
-	goto Error;
-    }
-    XFree( (XPointer)str );
-
-    /* locale name check */
-    _XGetLCValues(lcd, XlcNLanguage, &language, XlcNTerritory, &territory,
-                    XlcNCodeset, &codeset, NULL);
-    llen = strlen( language );
-    tlen = territory ? strlen( territory ): 0;
-    clen = codeset ? strlen( codeset ): 0;
-
-    if( tlen != 0  &&  clen != 0 ) {
-	if( (locale_name[0] = Xmalloc(llen+tlen+clen+3)) != NULL )
-	    sprintf( locale_name[0], "%s_%s.%s", language, territory, codeset );
-    }
-    if( clen != 0 ) {
-	if( (locale_name[1] = Xmalloc(llen+clen+2)) != NULL )
-	    sprintf( locale_name[1], "%s.%s", language, codeset );
-	else
-	    goto Error;
-    }
-    if( tlen != 0 ) {
-	if( (locale_name[2] = Xmalloc(llen+tlen+2)) != NULL )
-	    sprintf( locale_name[2], "%s_%s", language, territory );
-	else
-	    goto Error;
-    }
-    if( (locale_name[3] = Xmalloc(llen+1)) != NULL )
-	strcpy( locale_name[3], language );
-    else
-	goto Error;
-    if((locales = XInternAtom(display, XIM_LOCALES, True)) == (Atom)None)
-	goto Error;
-
-    XConvertSelection(display, selection, locales, locales, window,
-		      CurrentTime);
-    if(!(_XimGetSelectionNotify(display, window, locales, &address)))
-	goto Error;
-
-    if((locale = _XimCheckLocaleName(im, address, strlen(address), locale_name,
-				     4)) == NULL) {
-	XFree((XPointer)address);
-	goto Error;
-    }
-    im->private.proto.locale_name = locale;
-    for( i = 0; i < 4; i++ ) {
-	if( locale_name[i] != NULL  &&  locale_name[i] != locale ) {
-	    XFree( locale_name[i] );
-	    locale_name[i] = NULL;
-	}
-    }
-    XFree((XPointer)address);
-
-    /* transport check */
-    if((transport = XInternAtom(display, XIM_TRANSPORT, True)) == (Atom)None)
-	goto Error;
-
-    XConvertSelection(display, selection, transport, transport, window,
-		      CurrentTime);
-    if(!_XimGetSelectionNotify(display, window, transport, &address))
-	goto Error;
-
-    for(i = 0; _XimTransportRec[i].transportname ; i++) {
-	if( _XimCheckTransport(address, strlen(address),
-				_XimTransportRec[i].transportname,
-				strlen(_XimTransportRec[i].transportname),
-				 &trans_addr)) {
-	    if( _XimTransportRec[i].config(im, trans_addr) ) {
-		XFree((XPointer)address);
-		XDestroyWindow(display, window);
-		return True;
-	    }
-	}
-    }
-
-    XFree((XPointer)address);
-Error:
-    for( i = 0; i < 4; i++ )
-	if( locale_name[i] != NULL )
-	    XFree( locale_name[i] );
-    XDestroyWindow(display, window);
-    return False;
-}
-
-Private Bool
-_XimPreConnect(
-    Xim		    im)
-{
-    Display	   *display = im->core.display;
-    Atom	    imserver;
-    Atom	    actual_type;
-    int		    actual_format;
-    unsigned long   nitems;
-    unsigned long   bytes_after;
-    unsigned char  *prop_return;
-    Atom	   *atoms;
-    Window	    im_window = 0;
-    register int    i;
-
-    if((imserver = XInternAtom(display, XIM_SERVERS, True)) == (Atom)None)
-	return False;
-
-    if(XGetWindowProperty(display, RootWindow(display, 0),
-			imserver, 0L, 1000000L, False, XA_ATOM, &actual_type,
-			&actual_format, &nitems, &bytes_after,
-			&prop_return) != Success)
-	return False;
-
-    if( (actual_type != XA_ATOM) || (actual_format != 32) ) {
-	if( nitems )
-	    XFree((XPointer)prop_return);
-	return False;
-    }
-
-    atoms = (Atom *)prop_return;
-    for(i = 0; i < nitems; i++) {
-	if((im_window = XGetSelectionOwner(display, atoms[i])) == (Window)None)
-	    continue;
-
-	if(_XimPreConnectionIM(im, atoms[i]))
-	    break;
-    }
-
-    XFree((XPointer)prop_return);
-    if(i >= nitems)
-	return False;
-
-    im->private.proto.im_window = im_window;
-    return True;
-}
-
-Private Bool
-_XimGetAuthProtocolNames(
-    Xim		 im,
-    CARD16	*buf,
-    CARD8	*num,
-    INT16	*len)
-{
-    if (!IS_USE_AUTHORIZATION_FUNC(im)) {
-	*num = 0;
-	*len = 0;
-	return True;
-    }
-    /*
-     * Not yet
-     */
-    return True;
-}
-
-Private Bool
-_XimSetAuthReplyData(
-    Xim		 im,
-    XPointer	 buf,
-    INT16	*len)
-{
-    /*
-     * Not yet
-     */
-    *len = 0;
-    return True;
-}
-
-Private Bool
-_XimSetAuthNextData(
-    Xim		 im,
-    XPointer	 buf,
-    INT16	*len)
-{
-    /*
-     * Not yet
-     */
-    *len = 0;
-    return True;
-}
-
-Private Bool
-_XimSetAuthRequiredData(
-    Xim		 im,
-    XPointer	 buf,
-    INT16	*len)
-{
-    /*
-     * Not yet
-     */
-    *len = 0;
-    return True;
-}
-
-Private Bool
-_XimCheckAuthSetupData(
-    Xim		 im,
-    XPointer	 buf)
-{
-    /*
-     * Not yet
-     */
-    return True;
-}
-
-Private Bool
-_XimCheckAuthNextData(
-    Xim		 im,
-    XPointer	 buf)
-{
-    /*
-     * Not yet
-     */
-    return True;
-}
-
-#define	NO_MORE_AUTH	2
-#define	GOOD_AUTH	1
-#define	BAD_AUTH	0
-
-Private int
-_XimClientAuthCheck(
-    Xim		 im,
-    XPointer	 buf)
-{
-    /*
-     * Not yet
-     */
-    return NO_MORE_AUTH;
-}
-
-Private void
-_XimAuthNG(
-    Xim		 im)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    INT16	 len = 0;
-
-    _XimSetHeader((XPointer)buf, XIM_AUTH_NG, 0, &len);
-    (void)_XimWrite(im, len, (XPointer)buf);
-    _XimFlush(im);
-    return;
-}
-
-Private	Bool
-_XimAllRecv(
-    Xim		 im,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 arg)
-{
-    return True;
-}
-
-#define	CLIENT_WAIT1		1
-#define	CLIENT_WAIT2		2
-
-Private Bool
-_XimConnection(
-    Xim		 im)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD8	*buf_b = &buf[XIM_HEADER_SIZE];
-    CARD16	*buf_s = (CARD16 *)((XPointer)buf_b);
-    INT16	 len;
-    CARD8	 num;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-    CARD8	 major_opcode;
-    int		 wait_mode;
-    int		 ret;
-
-    if(!(_XimConnect(im)))	/* Transport Connect */
-	return False;
-
-    if(!_XimDispatchInit(im))
-	return False;
-
-    _XimRegProtoIntrCallback(im, XIM_ERROR, 0, _XimErrorCallback, (XPointer)im);
-
-    if(!_XimGetAuthProtocolNames(im, &buf_s[4], &num, &len))
-	return False;
-
-    im->private.proto.protocol_major_version = PROTOCOLMAJORVERSION;
-    im->private.proto.protocol_minor_version = PROTOCOLMINORVERSION;
-
-    buf_b[0] = _XimGetMyEndian();
-    buf_b[1] = 0;
-    buf_s[1] = PROTOCOLMAJORVERSION;
-    buf_s[2] = PROTOCOLMINORVERSION;
-    buf_s[3] = num;
-    len  += sizeof(CARD8)
-          + sizeof(CARD8)
-          + sizeof(CARD16)
-          + sizeof(CARD16)
-          + sizeof(CARD16);
-
-    major_opcode = XIM_CONNECT;
-    wait_mode = (IS_USE_AUTHORIZATION_FUNC(im)) ? CLIENT_WAIT1 : CLIENT_WAIT2;
-
-    for(;;) {
-	_XimSetHeader((XPointer)buf, major_opcode, 0, &len);
-	if (!(_XimWrite(im, len, (XPointer)buf)))
-	    return False;
-	_XimFlush(im);
-	buf_size = BUFSIZE;
-	ret_code = _XimRead(im, &len, reply, buf_size, _XimAllRecv, 0);
-	if(ret_code == XIM_TRUE) {
-	    preply = reply;
-	} else if(ret_code == XIM_OVERFLOW) {
-	    if(len <= 0) {
-		preply = reply;
-	    } else {
-		buf_size = len;
-		preply = (XPointer)Xmalloc(buf_size);
-		ret_code = _XimRead(im, &len, preply, buf_size, _XimAllRecv, 0);
-		if(ret_code != XIM_TRUE) {
-		    Xfree(preply);
-		    return False;
-		}
-	    }
-	} else
-	    return False;
-
-	major_opcode = *((CARD8 *)preply);
-	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-
-	if (wait_mode == CLIENT_WAIT1) {
-	    if (major_opcode == XIM_AUTH_REQUIRED) {
-		ret = _XimClientAuthCheck(im, (XPointer)buf_s);
-		if(reply != preply)
-		    Xfree(preply);
-		if (ret == NO_MORE_AUTH) {
-		    if (!(_XimSetAuthReplyData(im,
-				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {
-			_XimAuthNG(im);
-			return False;
-		    }
-		    major_opcode = XIM_AUTH_REPLY;
-		    wait_mode = CLIENT_WAIT2;
-		} else if (ret == GOOD_AUTH) {
-		    if (!(_XimSetAuthNextData(im,
-				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {
-			_XimAuthNG(im);
-			return False;
-		    }
-		    major_opcode = XIM_AUTH_NEXT;
-		} else {	/* BAD_AUTH */
-		    _XimAuthNG(im);
-		    return False;
-		}
-	    } else {
-		if(reply != preply)
-		    Xfree(preply);
-		_XimAuthNG(im);
-		return False;
-	    }
-	} else {	/* CLIENT_WAIT2 */
-	    if (major_opcode == XIM_CONNECT_REPLY) {
-		break;
-	    } else if (major_opcode == XIM_AUTH_SETUP) {
-		if (!(_XimCheckAuthSetupData(im, (XPointer)buf_s))) {
-		    _XimAuthNG(im);
-		    return False;
-		}
-		if(reply != preply)
-		    Xfree(preply);
-		if (!(_XimSetAuthRequiredData(im,
-				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {
-		    _XimAuthNG(im);
-		    return False;
-		}
-		major_opcode = XIM_AUTH_REQUIRED;
-	    } else if (major_opcode == XIM_AUTH_NEXT) {
-		if (!(_XimCheckAuthNextData(im, (XPointer)buf_s))) {
-		    _XimAuthNG(im);
-		    return False;
-		}
-		if(reply != preply)
-		    Xfree(preply);
-		if (!(_XimSetAuthRequiredData(im,
-				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {
-		    _XimAuthNG(im);
-		    return False;
-		}
-		major_opcode = XIM_AUTH_REQUIRED;
-	    } else if (major_opcode == XIM_AUTH_NG) {
-		if(reply != preply)
-		    Xfree(preply);
-		return False;
-	    } else {
-		_XimAuthNG(im);
-		if(reply != preply)
-		    Xfree(preply);
-		return False;
-	    }
-	}
-    }
-
-    if (!( buf_s[0] == im->private.proto.protocol_major_version
-        && buf_s[1] == im->private.proto.protocol_minor_version)) {
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-    if(reply != preply)
-	Xfree(preply);
-    MARK_SERVER_CONNECTED(im);
-
-    _XimRegProtoIntrCallback(im, XIM_REGISTER_TRIGGERKEYS, 0,
-				 _XimRegisterTriggerKeysCallback, (XPointer)im);
-    return True;
-}
-
-Private	Bool
-_XimDisconnectCheck(
-    Xim		 im,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 arg)
-{
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-
-    if ((major_opcode == XIM_DISCONNECT_REPLY)
-     && (minor_opcode == 0))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimDisconnect(
-    Xim		 im)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    INT16	 len = 0;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-
-    if (IS_SERVER_CONNECTED(im)) {
-	_XimSetHeader((XPointer)buf, XIM_DISCONNECT, 0, &len);
-	if (!(_XimWrite(im, len, (XPointer)buf)))
-	    return False;
-	_XimFlush(im);
-	buf_size = BUFSIZE;
-	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-						_XimDisconnectCheck, 0);
-	if(ret_code == XIM_OVERFLOW) {
-	    if(len > 0) {
-		buf_size = len;
-		preply = (XPointer)Xmalloc(buf_size);
-		ret_code = _XimRead(im, &len, preply, buf_size,
-						 _XimDisconnectCheck, 0);
-		Xfree(preply);
-		if(ret_code != XIM_TRUE)
-		    return False;
-	    }
-	} else if(ret_code == XIM_FALSE)
-	    return False;
-
-    }
-    if (!(_XimShutdown(im)))	/* Transport shutdown */
-	return False;
-    return True;
-}
-
-Private	Bool
-_XimOpenCheck(
-    Xim		 im,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 arg)
-{
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-
-    if ((major_opcode == XIM_OPEN_REPLY)
-     && (minor_opcode == 0))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimOpen(
-    Xim			 im)
-{
-    CARD32		 buf32[BUFSIZE/4];
-    CARD8		*buf = (CARD8 *)buf32;
-    CARD8		*buf_b = &buf[XIM_HEADER_SIZE];
-    CARD16		*buf_s;
-    INT16		 len;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply;
-    int			 buf_size;
-    int			 ret_code;
-    char		*locale_name;
-
-    locale_name = im->private.proto.locale_name;
-    len = strlen(locale_name);
-    buf_b[0] = (BYTE)len;			   /* length of locale name */
-    (void)strcpy((char *)&buf_b[1], locale_name);  /* locale name */
-    len += sizeof(BYTE);			   /* sizeof length */
-    XIM_SET_PAD(buf_b, len);			   /* pad */
-
-    _XimSetHeader((XPointer)buf, XIM_OPEN, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, reply, buf_size,
-					_XimOpenCheck, 0);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, preply, buf_size,
-					_XimOpenCheck, 0);
-	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return False;
-	    }
-	}
-    } else
-	return False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-
-    im->private.proto.imid = buf_s[0];		/* imid */
-
-    if (!(_XimGetAttributeID(im, &buf_s[1]))) {
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-    if(reply != preply)
-	Xfree(preply);
-
-    if (!(_XimSetInnerIMResourceList(&(im->private.proto.im_inner_resources),
-				&(im->private.proto.im_num_inner_resources))))
-	return False;
-
-    if (!(_XimSetInnerICResourceList(&(im->private.proto.ic_inner_resources),
-				&(im->private.proto.ic_num_inner_resources))))
-	return False;
-
-    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);
-    _XimSetIMMode(im->private.proto.im_inner_resources,
-				im->private.proto.im_num_inner_resources);
-
-    /* Transport Callbak */
-    _XimRegProtoIntrCallback(im, XIM_SET_EVENT_MASK, 0,
-				 _XimSetEventMaskCallback, (XPointer)im);
-    _XimRegProtoIntrCallback(im, XIM_FORWARD_EVENT, 0,
-				 _XimForwardEventCallback, (XPointer)im);
-    _XimRegProtoIntrCallback(im, XIM_COMMIT, 0,
-				 _XimCommitCallback, (XPointer)im);
-    _XimRegProtoIntrCallback(im, XIM_SYNC, 0,
-				 _XimSyncCallback, (XPointer)im);
-
-    if(!_XimExtension(im))
-	return False;
-
-    /* register a hook for callback protocols */
-    _XimRegisterDispatcher(im, _XimCbDispatch, (XPointer)im);
-
-    return True;
-}
-
-Private	Bool
-_XimCloseCheck(
-    Xim		 im,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 arg)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-
-    if ((major_opcode == XIM_CLOSE_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimClose(
-    Xim		 im)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-
-    if (!IS_SERVER_CONNECTED(im))
-	return True;
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = 0;				/* unused */
-    len = sizeof(CARD16)			/* sizeof imid */
-        + sizeof(CARD16);			/* sizeof unused */
-
-    _XimSetHeader((XPointer)buf, XIM_CLOSE, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-						_XimCloseCheck, 0);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, preply, buf_size, _XimCloseCheck, 0);
-	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return False;
-	    }
-	}
-    } else
-	return False;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-
-    if(reply != preply)
-	Xfree(preply);
-    return True;
-}
-
-Public void
-_XimProtoIMFree(
-    Xim		  im)
-{
-    /* XIMPrivateRec */
-    if (im->private.proto.im_onkeylist) {
-	Xfree(im->private.proto.im_onkeylist);
-	im->private.proto.im_onkeylist = NULL;
-    }
-    if (im->private.proto.im_offkeylist) {
-	Xfree(im->private.proto.im_offkeylist);
-	im->private.proto.im_offkeylist = NULL;
-    }
-    if (im->private.proto.intrproto) {
-	_XimFreeProtoIntrCallback(im);
-	im->private.proto.intrproto = NULL;
-    }
-    if (im->private.proto.im_inner_resources) {
-	Xfree(im->private.proto.im_inner_resources);
-	im->private.proto.im_inner_resources = NULL;
-    }
-    if (im->private.proto.ic_inner_resources) {
-	Xfree(im->private.proto.ic_inner_resources);
-	im->private.proto.ic_inner_resources = NULL;
-    }
-    if (im->private.proto.hold_data) {
-	Xfree(im->private.proto.hold_data);
-	im->private.proto.hold_data = NULL;
-    }
-    if (im->private.proto.locale_name) {
-	Xfree(im->private.proto.locale_name);
-	im->private.proto.locale_name = NULL;
-    }
-    if (im->private.proto.ctom_conv) {
-	_XlcCloseConverter(im->private.proto.ctom_conv);
-	im->private.proto.ctom_conv = NULL;
-    }
-    if (im->private.proto.ctow_conv) {
-	_XlcCloseConverter(im->private.proto.ctow_conv);
-	im->private.proto.ctow_conv = NULL;
-    }
-    if (im->private.proto.ctoutf8_conv) {
-	_XlcCloseConverter(im->private.proto.ctoutf8_conv);
-	im->private.proto.ctoutf8_conv = NULL;
-    }
-    if (im->private.proto.cstomb_conv) {
-	_XlcCloseConverter(im->private.proto.cstomb_conv);
-	im->private.proto.cstomb_conv = NULL;
-    }
-    if (im->private.proto.cstowc_conv) {
-	_XlcCloseConverter(im->private.proto.cstowc_conv);
-	im->private.proto.cstowc_conv = NULL;
-    }
-    if (im->private.proto.cstoutf8_conv) {
-	_XlcCloseConverter(im->private.proto.cstoutf8_conv);
-	im->private.proto.cstoutf8_conv = NULL;
-    }
-    if (im->private.proto.ucstoc_conv) {
-	_XlcCloseConverter(im->private.proto.ucstoc_conv);
-	im->private.proto.ucstoc_conv = NULL;
-    }
-    if (im->private.proto.ucstoutf8_conv) {
-	_XlcCloseConverter(im->private.proto.ucstoutf8_conv);
-	im->private.proto.ucstoutf8_conv = NULL;
-    }
-
-#ifdef XIM_CONNECTABLE
-    if (!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {
-	return;
-    }
-#endif /* XIM_CONNECTABLE */
-
-    if (im->private.proto.saved_imvalues) {
-        Xfree(im->private.proto.saved_imvalues);
-        im->private.proto.saved_imvalues = NULL;
-    }
-    if (im->private.proto.default_styles) {
-	Xfree(im->private.proto.default_styles);
-	im->private.proto.default_styles = NULL;
-    }
-
-    /* core */
-    if (im->core.res_name) {
-        Xfree(im->core.res_name);
-	im->core.res_name = NULL;
-    }
-    if (im->core.res_class) {
-        Xfree(im->core.res_class);
-	im->core.res_class = NULL;
-    }
-    if (im->core.im_values_list) {
-	Xfree(im->core.im_values_list);
-	im->core.im_values_list = NULL;
-    }
-    if (im->core.ic_values_list) {
-	Xfree(im->core.ic_values_list);
-	im->core.ic_values_list = NULL;
-    }
-    if (im->core.im_name) {
-	Xfree(im->core.im_name);
-	im->core.im_name = NULL;
-    }
-    if (im->core.styles) {
-	Xfree(im->core.styles);
-	im->core.styles = NULL;
-    }
-    if (im->core.im_resources) {
-        Xfree(im->core.im_resources);
-	im->core.im_resources = NULL;
-    }
-    if (im->core.ic_resources) {
-        Xfree(im->core.ic_resources);
-	im->core.ic_resources = NULL;
-    }
-
-    return;
-}
-
-Private Status
-_XimProtoCloseIM(
-    XIM		 xim)
-{
-    Xim		 im = (Xim)xim;
-    XIC		 ic;
-    XIC		 next;
-    Status	 status;
-
-    ic = im->core.ic_chain;
-    while (ic) {
-	(*ic->methods->destroy) (ic);
-	next = ic->core.next;
-#ifdef XIM_CONNECTABLE
-	if (!(!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im))) {
-	    Xfree ((char *) ic);
-	}
-#else
-	Xfree ((char *) ic);
-#endif /* XIM_CONNECTABLE */
-	ic = next;
-    }
-#ifdef XIM_CONNECTABLE
-    if (!(!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)))
-	im->core.ic_chain = NULL;
-#else
-    im->core.ic_chain = NULL;
-#endif
-
-    _XimUnregisterServerFilter(im);
-    _XimResetIMInstantiateCallback(im);
-    status = (Status)_XimClose(im);
-    status = (Status)_XimDisconnect(im) && status;
-    _XimProtoIMFree(im);
-#ifdef XIM_CONNECTABLE
-    if (!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {
-	_XimReconnectModeSetAttr(im);
-        for (ic = im->core.ic_chain; ic; ic = ic->core.next) {
-	    _XimReconnectModeCreateIC(ic);
-        }
-	return 0;
-    }
-#endif /* XIM_CONNECTABLE */
-    _XimDestroyIMStructureList(im);
-    return status;
-}
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimCheckIMQuarkList(
-    XrmQuark		*quark_list,
-    int			 num_quark,
-    XrmQuark		 quark)
-{
-    register int	 i;
-
-    for (i = 0; i < num_quark; i++) {
-	if (quark_list[i] == quark) {
-	    return True;
-	}
-    }
-    return False;
-}
-
-Private Bool
-_XimSaveIMValues(
-    Xim			 im,
-    XIMArg		*arg)
-{
-    register XIMArg	*p;
-    register int	 n;
-    XrmQuark		*quark_list;
-    XrmQuark		*tmp;
-    XrmQuark		 quark;
-    int			 num_quark;
-
-    if (quark_list = im->private.proto.saved_imvalues) {
-	num_quark = im->private.proto.num_saved_imvalues;
-	for (p = arg; p && p->name; p++) {
-	    quark = XrmStringToQuark(p->name);
-	    if (_XimCheckIMQuarkList(quark_list, num_quark, quark)) {
-		continue;
-	    }
-	    if (!(tmp = (XrmQuark *)Xrealloc(quark_list,
-				(sizeof(XrmQuark) * (num_quark + 1))))) {
-		im->private.proto.saved_imvalues = quark_list;
-		im->private.proto.num_saved_imvalues = num_quark;
-		return False;
-	    }
-	    num_quark++;
-	    quark_list = tmp;
-	    quark_list[num_quark] = quark;
-	}
-	im->private.proto.saved_imvalues = quark_list;
-	im->private.proto.num_saved_imvalues = num_quark;
-	return True;
-    }
-
-    for (p = arg, n = 0; p && p->name; p++, n++);
-
-    if (!(quark_list = (XrmQuark *)Xmalloc(sizeof(XrmQuark) * n))) {
-	return False;
-    }
-
-    im->private.proto.saved_imvalues = quark_list;
-    im->private.proto.num_saved_imvalues = n;
-    for (p = arg; p && p->name; p++, quark_list++) {
-	*quark_list = XrmStringToQuark(p->name);
-    }
-
-    return True;
-}
-
-Private char *
-_XimDelayModeSetIMValues(
-    Xim			 im,
-    XIMArg		*arg)
-{
-    XimDefIMValues	 im_values;
-    char		*name;
-    XIMArg		*values;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    name = _XimSetIMValueData(im, (XPointer)&im_values, values,
-		im->core.im_resources, im->core.im_num_resources);
-    _XimSetCurrentIMValues(im, &im_values);
-
-    return name;
-}
-#endif /* XIM_CONNECTABLE */
-
-Private Bool
-_XimSetIMValuesCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-
-    if ((major_opcode == XIM_SET_IM_VALUES_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid))
-	return True;
-    return False;
-}
-
-Private char *
-_XimProtoSetIMValues(
-    XIM			 xim,
-    XIMArg		*arg)
-{
-    Xim			 im = (Xim)xim;
-    XimDefIMValues	 im_values;
-    INT16		 len;
-    CARD16		*buf_s;
-    char		*tmp;
-    CARD32		 tmp_buf32[BUFSIZE/4];
-    char		*tmp_buf = (char *)tmp_buf32;
-    char		*buf;
-    int			 buf_size;
-    char		*data;
-    int			 data_len;
-    int			 ret_len;
-    int			 total;
-    XIMArg		*arg_ret;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply;
-    int			 ret_code;
-    char		*name;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_SERVER_CONNECTED(im))
-	return arg->name;
-#else
-    if (!_XimSaveIMValues(im, arg))
-	return arg->name;
-
-    if (!IS_SERVER_CONNECTED(im)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (!_XimConnectServer(im)) {
-	        return _XimDelayModeSetIMValues(im, arg);
-	    }
-        } else {
-	    return arg->name;
-        }
-    }
-#endif /* XIM_CONNECTABLE */
-
-    _XimGetCurrentIMValues(im, &im_values);
-    buf = tmp_buf;
-    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);
-    data_len = BUFSIZE - buf_size;
-    total = 0;
-    arg_ret = arg;
-    for (;;) {
-	data = &buf[buf_size];
-	if ((name = _XimEncodeIMATTRIBUTE(im, im->core.im_resources,
-		im->core.im_num_resources, arg, &arg_ret, data, data_len,
-		&ret_len, (XPointer)&im_values, XIM_SETIMVALUES))) {
-	    if (buf != tmp_buf)
-		Xfree(buf);
-	    break;
-	}
-
-	total += ret_len;
-	if (!(arg = arg_ret)) {
-	    break;
-	}
-
-	buf_size += ret_len;
-	if (buf == tmp_buf) {
-	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {
-		return arg->name;
-	    }
-	    memcpy(tmp, buf, buf_size);
-	    buf = tmp;
-	} else {
-	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {
-		Xfree(buf);
-		return arg->name;
-	    }
-	    buf = tmp;
-	}
-    }
-    _XimSetCurrentIMValues(im, &im_values);
-
-    if (!total)
-	return (char *)NULL;
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = (INT16)total;
-
-    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);
-    _XimSetHeader((XPointer)buf, XIM_SET_IM_VALUES, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	if (buf != tmp_buf)
-	    Xfree(buf);
-	return arg->name;
-    }
-    _XimFlush(im);
-    if (buf != tmp_buf)
-	Xfree(buf);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					 _XimSetIMValuesCheck, 0);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = (int)len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, reply, buf_size,
-					_XimSetIMValuesCheck, 0);
-	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return arg->name;
-	    }
-	}
-    } else
-	return arg->name;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if(reply != preply)
-	    Xfree(preply);
-	return arg->name;
-    }
-    if(reply != preply)
-	Xfree(preply);
-
-    return name;
-}
-
-#ifdef XIM_CONNECTABLE
-Private char *
-_XimDelayModeGetIMValues(
-    Xim			 im,
-    XIMArg		*arg)
-{
-    XimDefIMValues	 im_values;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    return(_XimGetIMValueData(im, (XPointer)&im_values, arg,
-			im->core.im_resources, im->core.im_num_resources));
-}
-#endif /* XIM_CONNECTABLE */
-
-Private Bool
-_XimGetIMValuesCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-
-    if ((major_opcode == XIM_GET_IM_VALUES_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid))
-	return True;
-    return False;
-}
-
-Private char *
-_XimProtoGetIMValues(
-    XIM			 xim,
-    XIMArg		*arg)
-{
-    Xim			 im = (Xim)xim;
-    register XIMArg	*p;
-    register int	 n;
-    CARD8		*buf;
-    CARD16		*buf_s;
-    INT16		 len;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply = NULL;
-    int			 buf_size;
-    int			 ret_code;
-    char		*makeid_name;
-    char		*decode_name;
-    CARD16		*data = NULL;
-    INT16		 data_len = 0;
-
-#ifndef XIM_CONNECTABLE
-    if (!IS_SERVER_CONNECTED(im))
-	return arg->name;
-#else
-    if (!IS_SERVER_CONNECTED(im)) {
-	if (IS_CONNECTABLE(im)) {
-	    if (!_XimConnectServer(im)) {
-	        return _XimDelayModeGetIMValues(im, arg);
-	    }
-        } else {
-	    return arg->name;
-        }
-    }
-#endif /* XIM_CONNECTABLE */
-
-    for (n = 0, p = arg; p->name; p++)
-	n++;
-
-    if (!n)
-	return (char *)NULL;
-
-    buf_size =  sizeof(CARD16) * n;
-    buf_size += XIM_HEADER_SIZE
-	     + sizeof(CARD16)
-	     + sizeof(INT16)
-	     + XIM_PAD(buf_size);
-
-    if (!(buf = (CARD8 *)Xmalloc(buf_size)))
-	return arg->name;
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-
-    makeid_name = _XimMakeIMAttrIDList(im, im->core.im_resources,
-				im->core.im_num_resources, arg,
-				&buf_s[2], &len, XIM_GETIMVALUES);
-
-    if (len) {
-	buf_s[0] = im->private.proto.imid;	/* imid */
-	buf_s[1] = len;				/* length of im-attr-id */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += sizeof(CARD16)			/* sizeof imid */
-	     + sizeof(INT16);			/* sizeof length of attr */
-
-	_XimSetHeader((XPointer)buf, XIM_GET_IM_VALUES, 0, &len);
-	if (!(_XimWrite(im, len, (XPointer)buf))) {
-	    Xfree(buf);
-	    return arg->name;
-	}
-	_XimFlush(im);
-	Xfree(buf);
-    	buf_size = BUFSIZE;
-    	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-    						_XimGetIMValuesCheck, 0);
-	if(ret_code == XIM_TRUE) {
-	    preply = reply;
-	} else if(ret_code == XIM_OVERFLOW) {
-	    if(len <= 0) {
-		preply = reply;
-	    } else {
-		buf_size = len;
-		preply = (XPointer)Xmalloc(buf_size);
-		ret_code = _XimRead(im, &len, preply, buf_size,
-						_XimGetIMValuesCheck, 0);
-		if(ret_code != XIM_TRUE) {
-		    Xfree(preply);
-		    return arg->name;
-		}
-	    }
-	} else
-	    return arg->name;
-	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-	if (*((CARD8 *)preply) == XIM_ERROR) {
-	    _XimProcError(im, 0, (XPointer)&buf_s[3]);
-	    if(reply != preply)
-		Xfree(preply);
-	    return arg->name;
-	}
-	data = &buf_s[2];
-	data_len = buf_s[1];
-    }
-    decode_name = _XimDecodeIMATTRIBUTE(im, im->core.im_resources,
-			im->core.im_num_resources, data, data_len,
-			arg, XIM_GETIMVALUES);
-    if (reply != preply)
-	Xfree(preply);
-
-    if (decode_name)
-	return decode_name;
-    else
-	return makeid_name;
-}
-
-Private XIMMethodsRec     im_methods = {
-    _XimProtoCloseIM,           /* close */
-    _XimProtoSetIMValues,       /* set_values */
-    _XimProtoGetIMValues,       /* get_values */
-    _XimProtoCreateIC,          /* create_ic */
-    _Ximctstombs,		/* ctstombs */
-    _Ximctstowcs,		/* ctstowcs */
-    _Ximctstoutf8		/* ctstoutf8 */
-};
-
-Private Bool
-_XimSetEncodingByName(
-    Xim		  im,
-    char	**buf,
-    int		 *len)
-{
-    char	*encoding = (char *)NULL;
-    int		 encoding_len;
-    int		 compound_len;
-    BYTE	*ret;
-
-    _XGetLCValues(im->core.lcd, XlcNCodeset, &encoding, NULL);
-    if (!encoding) {
-	*buf = (char *)NULL;
-	*len = 0;
-	return True;
-    }
-    encoding_len = strlen(encoding);
-    compound_len = strlen("COMPOUND_TEXT");
-    *len = encoding_len + sizeof(BYTE) + compound_len + sizeof(BYTE);
-    if (!(ret = (BYTE *)Xmalloc(*len))) {
-	return False;
-    }
-    *buf = (char *)ret;
-
-    ret[0] = (BYTE)encoding_len;
-    (void)strncpy((char *)&ret[1], encoding, encoding_len);
-    ret += (encoding_len + sizeof(BYTE));
-    ret[0] = (BYTE)compound_len;
-    (void)strncpy((char *)&ret[1], "COMPOUND_TEXT", compound_len);
-    return True;
-}
-
-Private Bool
-_XimSetEncodingByDetail(
-    Xim		 im,
-    char	**buf,
-    int		 *len)
-{
-    *len = 0;
-    *buf = NULL;
-    return True;
-}
-
-Private Bool
-_XimGetEncoding(
-    Xim		 im,
-    CARD16	*buf,
-    char	*name,
-    int		 name_len,
-    char	*detail,
-    int		 detail_len)
-{
-    XLCd	 lcd = im->core.lcd;
-    CARD16	 category = buf[0];
-    CARD16	 idx = buf[1];
-    int		 len;
-    XlcConv	 ctom_conv = NULL;
-    XlcConv	 ctow_conv = NULL;
-    XlcConv	 ctoutf8_conv = NULL;
-    XlcConv	 conv;
-    XimProtoPrivateRec *private = &im->private.proto;
-
-    if (idx == (CARD16)XIM_Default_Encoding_IDX) { /* XXX */
-	if (!(ctom_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNMultiByte)))
-	    return False;
-	if (!(ctow_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNWideChar)))
-	    return False;
-	if (!(ctoutf8_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNUtf8String)))
-	    return False;
-    }
-
-    if (category == XIM_Encoding_NameCategory) {
-	while (name_len > 0) {
-	    len = (int)name[0];
-	    if (!strncmp(&name[1], "COMPOUND_TEXT", len)) {
-		if (!(ctom_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNMultiByte)))
-		    return False;
-		if (!(ctow_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNWideChar)))
-		    return False;
-		if (!(ctoutf8_conv = _XlcOpenConverter(lcd,
-				 XlcNCompoundText, lcd, XlcNUtf8String)))
-		    return False;
-		break;
-	    } else {
-		/*
-		 * Not yet
-		 */
-	    }
-	    len += sizeof(BYTE);
-	    name_len -= len;
-	    name += len;
-	}
-    } else if (category == XIM_Encoding_DetailCategory) {
-	/*
-	 * Not yet
-	 */
-    } else {
-	return False;
-    }
-
-    private->ctom_conv = ctom_conv;
-    private->ctow_conv = ctow_conv;
-    private->ctoutf8_conv = ctoutf8_conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNMultiByte)))
-	return False;
-    private->cstomb_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNWideChar)))
-	return False;
-    private->cstowc_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNUtf8String)))
-	return False;
-    private->cstoutf8_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNChar)))
-	return False;
-    private->ucstoc_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNUtf8String)))
-	return False;
-    private->ucstoutf8_conv = conv;
-
-    return True;
-}
-
-Private	Bool
-_XimEncodingNegoCheck(
-    Xim		 im,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 arg)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-
-    if ((major_opcode == XIM_ENCODING_NEGOTIATION_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimEncodingNegotiation(
-    Xim		 im)
-{
-    char	*name_ptr = 0;
-    int		 name_len = 0;
-    char	*detail_ptr = 0;
-    int		 detail_len = 0;
-    CARD8	*buf;
-    CARD16	*buf_s;
-    INT16	 len;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-
-    if (!(_XimSetEncodingByName(im, &name_ptr, &name_len)))
-	return False;
-
-    if (!(_XimSetEncodingByDetail(im, &detail_ptr, &detail_len)))
-	goto free_name_ptr;
-
-    len = sizeof(CARD16)
-	+ sizeof(INT16)
-	+ name_len
-	+ XIM_PAD(name_len)
-	+ sizeof(INT16)
-	+ sizeof(CARD16)
-	+ detail_len;
-
-    if (!(buf = (CARD8 *)Xmalloc(XIM_HEADER_SIZE + len)))
-	goto free_detail_ptr;
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = (INT16)name_len;
-    if (name_ptr)
-	(void)memcpy((char *)&buf_s[2], name_ptr, name_len);
-    XIM_SET_PAD(&buf_s[2], name_len);
-    buf_s = (CARD16 *)((char *)&buf_s[2] + name_len);
-    buf_s[0] = detail_len;
-    buf_s[1] = 0;
-    if (detail_ptr)
-	(void)memcpy((char *)&buf_s[2], detail_ptr, detail_len);
-
-    _XimSetHeader((XPointer)buf, XIM_ENCODING_NEGOTIATION, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	Xfree(buf);
-	goto free_detail_ptr;
-    }
-    _XimFlush(im);
-    Xfree(buf);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					_XimEncodingNegoCheck, 0);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, preply, buf_size,
-					_XimEncodingNegoCheck, 0);
-	    if(ret_code != XIM_TRUE)
-		goto free_preply;
-	}
-    } else
-	goto free_detail_ptr;
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	goto free_preply;
-    }
-
-    if (!(_XimGetEncoding(im, &buf_s[1], name_ptr, name_len,
-						detail_ptr, detail_len)))
-	goto free_preply;
-
-    if (name_ptr)
-	Xfree(name_ptr);
-    if (detail_ptr)
-	Xfree(detail_ptr);
-
-    if(reply != preply)
-	Xfree(preply);
-
-    return True;
-
-free_preply:
-    if (reply != preply)
-	Xfree(preply);
-
-free_detail_ptr:
-    Xfree(detail_ptr);
-
-free_name_ptr:
-    Xfree(name_ptr);
-
-    return False;
-}
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimSendSavedIMValues(
-    Xim			 im)
-{
-    XimDefIMValues	 im_values;
-    INT16		 len;
-    CARD16		*buf_s;
-    char		*tmp;
-    CARD32		 tmp_buf32[BUFSIZE/4];
-    char		*tmp_buf = (char *)tmp_buf32;
-    char		*buf;
-    int			 buf_size;
-    char		*data;
-    int			 data_len;
-    int			 ret_len;
-    int			 total;
-    int			 idx;
-    CARD32		 reply32[BUFSIZE/4];
-    char		*reply = (char *)reply32;
-    XPointer		 preply;
-    int			 ret_code;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    buf = tmp_buf;
-    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);
-    data_len = BUFSIZE - buf_size;
-    total = 0;
-    idx = 0;
-    for (;;) {
-	data = &buf[buf_size];
-	if (!_XimEncodeSavedIMATTRIBUTE(im, im->core.im_resources,
-		im->core.im_num_resources, &idx, data, data_len,
-		&ret_len, (XPointer)&im_values, XIM_SETIMVALUES)) {
-	    if (buf != tmp_buf)
-		Xfree(buf);
-	    return False;
-	}
-
-	total += ret_len;
-	if (idx == -1) {
-	    break;
-	}
-
-	buf_size += ret_len;
-	if (buf == tmp_buf) {
-	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {
-		return False;
-	    }
-	    memcpy(tmp, buf, buf_size);
-	    buf = tmp;
-	} else {
-	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {
-		Xfree(buf);
-		return False;
-	    }
-	    buf = tmp;
-	}
-    }
-
-    if (!total)
-	return True;
-
-    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    buf_s[0] = im->private.proto.imid;
-    buf_s[1] = (INT16)total;
-
-    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);
-    _XimSetHeader((XPointer)buf, XIM_SET_IM_VALUES, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf))) {
-	if (buf != tmp_buf)
-	    Xfree(buf);
-	return False;
-    }
-    _XimFlush(im);
-    if (buf != tmp_buf)
-	Xfree(buf);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-    					 _XimSetIMValuesCheck, 0);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = (int)len;
-	    preply = (XPointer)Xmalloc(buf_size);
-	    ret_code = _XimRead(im, &len, reply, buf_size,
-					_XimSetIMValuesCheck, 0);
-    	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return False;
-	    }
-	}
-    } else
-	return False;
-
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-    	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-    if(reply != preply)
-	Xfree(preply);
-
-    return True;
-}
-
-Private void
-_XimDelayModeIMFree(
-    Xim		 im)
-{
-    if (im->core.im_resources) {
-	Xfree(im->core.im_resources);
-	im->core.im_resources = NULL;
-    }
-    if (im->core.ic_resources) {
-	Xfree(im->core.ic_resources);
-	im->core.ic_resources = NULL;
-    }
-    if (im->core.im_values_list) {
-	Xfree(im->core.im_values_list);
-	im->core.im_values_list = NULL;
-    }
-    if (im->core.ic_values_list) {
-	Xfree(im->core.ic_values_list);
-	im->core.ic_values_list = NULL;
-    }
-    return;
-}
-
-Public Bool
-_XimConnectServer(
-    Xim		 im)
-{
-    Xim		 save_im;
-
-    if (!(save_im = (Xim)Xmalloc(sizeof(XimRec))))
-	return False;
-    memcpy((char *)save_im, (char *)im, sizeof(XimRec));
-
-    if (_XimPreConnect(im) && _XimConnection(im)
-			&& _XimOpen(im) && _XimEncodingNegotiation(im)) {
-	if (_XimSendSavedIMValues(im)) {
-	    _XimDelayModeIMFree(save_im);
-	    _XimRegisterServerFilter(im);
-	    Xfree(save_im);
-	    return True;
-	}
-    }
-    memcpy((char *)im, (char *)save_im, sizeof(XimRec));
-    Xfree(save_im);
-    return False;
-}
-
-Public Bool
-_XimDelayModeSetAttr(
-    Xim			 im)
-{
-    XimDefIMValues	 im_values;
-
-    if(!_XimSetIMResourceList(&im->core.im_resources,
-						&im->core.im_num_resources)) {
-	return False;
-    }
-    if(!_XimSetICResourceList(&im->core.ic_resources,
-						&im->core.ic_num_resources)) {
-	return False;
-    }
-
-    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);
-
-    _XimGetCurrentIMValues(im, &im_values);
-    if(!_XimSetLocalIMDefaults(im, (XPointer)&im_values,
-			im->core.im_resources, im->core.im_num_resources)) {
-	return False;
-    }
-    _XimSetCurrentIMValues(im, &im_values);
-    if (im->private.proto.default_styles) {
-        if (im->core.styles)
-	    Xfree(im->core.styles);
-        im->core.styles = im->private.proto.default_styles;
-    }
-
-    return True;
-}
-
-Private Bool
-_XimReconnectModeSetAttr(
-    Xim			 im)
-{
-    XimDefIMValues	 im_values;
-
-    if(!_XimSetIMResourceList(&im->core.im_resources,
-						&im->core.im_num_resources)) {
-	return False;
-    }
-    if(!_XimSetICResourceList(&im->core.ic_resources,
-						&im->core.ic_num_resources)) {
-	return False;
-    }
-
-    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);
-
-    if (im->private.proto.default_styles) {
-        if (im->core.styles)
-	    Xfree(im->core.styles);
-        im->core.styles = im->private.proto.default_styles;
-    }
-
-    return True;
-}
-#endif /* XIM_CONNECTABLE */
-
-Public Bool
-_XimProtoOpenIM(
-    Xim		 im)
-{
-    _XimInitialResourceInfo();
-
-    im->methods = &im_methods;
-
-#ifdef XIM_CONNECTABLE
-    _XimSetProtoResource(im);
-#endif /* XIM_CONNECTABLE */
-
-    if (_XimPreConnect(im)) {
-	if (_XimConnection(im) && _XimOpen(im) && _XimEncodingNegotiation(im)) {
-	    _XimRegisterServerFilter(im);
-	    return True;
-	}
-	_XimShutdown(im);
-#ifdef XIM_CONNECTABLE
-    } else if (IS_DELAYBINDABLE(im)) {
-	if (_XimDelayModeSetAttr(im))
-	    return True;
-#endif /* XIM_CONNECTABLE */
-    }
-    _XimProtoIMFree(im);
-    return False;
-}
+/*

+ * Copyright 1990, 1991, 1992 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+

+/******************************************************************

+         Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+         Copyright 1993, 1994 by Sony Corporation

+

+Permission to use, copy, modify, and distribute this software and its

+documentation for any purpose and without fee is hereby granted,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the names of Digital, FUJITSU

+LIMITED and Sony Corporation not be used in advertising or publicity

+pertaining to distribution of the software without specific, written

+prior permission.

+

+DIGITAL, FUJITSU LIMITED AND SONY CORPORATION DISCLAIMS ALL WARRANTIES

+WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF

+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL DIGITAL, FUJITSU LIMITED

+AND SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.

+          Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+          Makoto Wakamatsu     Sony Corporation

+                               makoto@sm.sony.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "XlcPublic.h"

+#include "XlcPubI.h"

+#include "XimTrInt.h"

+#include "Ximint.h"

+

+

+Public int

+_XimCheckDataSize(

+    XPointer	 buf,

+    int		 len)

+{

+    CARD16	*buf_s = (CARD16 *)buf;

+

+    if(len < XIM_HEADER_SIZE)

+	return -1;

+    return  buf_s[1];

+}

+

+Public void

+_XimSetHeader(

+    XPointer	 buf,

+    CARD8	 major_opcode,

+    CARD8	 minor_opcode,

+    INT16	*len

+)

+{

+    CARD8	*buf_b = (CARD8 *)buf;

+    CARD16	*buf_s = (CARD16 *)buf;

+

+    buf_b[0] = major_opcode;

+    buf_b[1] = minor_opcode;

+    buf_s[1] = ((*len) / 4);

+    *len += XIM_HEADER_SIZE;

+    return;

+}

+

+Public char

+_XimGetMyEndian(void)

+{

+    CARD16	 test_card = 1;

+

+    if(*((char *)&test_card))

+	return LITTLEENDIAN;

+    else

+	return BIGENDIAN;

+}

+

+Private Bool

+_XimCheckServerName(

+    Xim		   im,

+    char	  *str)

+{

+    char	  *server_name = im->core.im_name;

+    int		   len;

+    int		   str_len;

+    int		   category_len = strlen(XIM_SERVER_CATEGORY);

+    char	  *pp;

+    register char *p;

+

+    if(server_name && *server_name)

+	len = strlen(server_name);

+    else

+	return True;

+

+    if((int)strlen(str) < category_len)

+	return False;

+

+    if(strncmp(str, XIM_SERVER_CATEGORY, category_len))

+	return False;

+

+    pp = &str[category_len];

+

+    for(;;) {

+	for(p = pp; (*p != ',') && (*p); p++);

+	str_len = (int)(p - pp);

+

+	if((len == str_len) && (!strncmp(pp, server_name, len)))

+	    break;

+	if(!(*p))

+	    return False;

+	pp = p + 1;

+    }

+    return True;

+}

+

+Private char *

+_XimCheckLocaleName(

+    Xim		   im,

+    char	  *address,

+    int		   address_len,

+    char	  *locale_name[],

+    int		   len)

+{

+    int		   category_len;

+    char	  *pp;

+    register char *p;

+    register int   n;

+    Bool           finish = False;

+

+    category_len = strlen(XIM_LOCAL_CATEGORY);

+    if(address_len < category_len)

+	return (char*)NULL;

+

+    if(strncmp(address, XIM_LOCAL_CATEGORY, category_len))

+	return (char*)NULL;

+

+    pp = &address[category_len];

+

+    for(;;) {

+	for( p = pp; *p && *p != ','; p++);

+	if (!*p)

+	    finish = True;

+	address_len = (int)(p - pp);

+	*p = '\0';

+

+	for( n = 0; n < len; n++ )

+	    if( locale_name[n] && !_XlcCompareISOLatin1( pp, locale_name[n] ) )

+		return locale_name[n];

+	if (finish)

+	    break;

+	pp = p + 1;

+    }

+    return (char *)NULL;

+}

+

+Private Bool

+_XimCheckTransport(

+    char	  *address,

+    int		   address_len,

+    const char	  *transport,

+    int		   len,

+    char	 **trans_addr)

+{

+    int		   category_len = strlen(XIM_TRANSPORT_CATEGORY);

+    char	  *pp;

+    register char *p;

+

+    if(address_len < category_len)

+	return False;

+

+    if(strncmp(address, XIM_TRANSPORT_CATEGORY, category_len))

+	return False;

+

+    pp = &address[category_len];

+

+    for(;;) {

+	*trans_addr = pp;

+

+	for(p = pp; (*p != '/') && (*p != ',') && (*p); p++);

+	if(*p == ',') {

+	    pp = p + 1;

+	    continue;

+	}

+	if(!(*p))

+	    return False;

+

+	address_len = (int)(p - pp);

+

+	if((len == address_len) && (!strncmp(pp, transport, len)))

+	    break;

+	pp = p + 1;

+    }

+    pp = p + 1;

+    for(p = pp; (*p != ',') && (*p); p++);

+    if (*p)

+	*p = '\0';

+    return True;

+}

+

+Private Bool

+_CheckSNEvent(

+    Display		*display,

+    XEvent		*xevent,

+    XPointer		 arg)

+{

+    XSelectionEvent	*event = (XSelectionEvent *)xevent;

+    Window		 window = *(Window*)arg;

+

+    if((event->type == SelectionNotify) && (window == event->requestor))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimGetSelectionNotify(

+    Display		 *display,

+    Window		  window,

+    Atom		  target,

+    char		**ret_address)

+{

+    XEvent		  event;

+    XSelectionEvent	 *ev = (XSelectionEvent *)&event;

+    Atom		  actual_type;

+    int			  actual_format;

+    unsigned long	  nitems, bytes_after;

+

+    for(;;) {

+	XIfEvent(display, &event, _CheckSNEvent, (XPointer)&window);

+	if((ev->type == SelectionNotify) && (window == ev->requestor))

+	    break;

+    }

+

+    if(ev->property == (Atom)None)

+	return False;

+    if( XGetWindowProperty( display, window, target, 0L, 1000000L,

+			    True, target, &actual_type, &actual_format,

+			    &nitems, &bytes_after,

+			    (unsigned char **)&*ret_address ) != Success )

+	return False;

+    return True;

+}

+

+Private Bool

+_XimPreConnectionIM(

+    Xim			 im,

+    Atom		 selection)

+{

+    Display		*display = im->core.display;

+    Atom		 locales, transport;

+    char		*address;

+    XLCd		 lcd;

+    char		*language;

+    char		*territory;

+    char		*codeset;

+    char		*trans_addr;

+    char		*locale_name[4], *locale;

+    int			 llen, tlen, clen;

+    register int	 i;

+    Window		 window;

+    char		*str;

+

+    if(!(lcd = im->core.lcd))

+	return False;

+

+    for( i = 0; i < 4; i++ )

+	locale_name[i] = NULL;

+    /* requestor window */

+    if(!(window = XCreateSimpleWindow(display, DefaultRootWindow(display),

+			 				0, 0, 1, 1, 1, 0, 0)))

+	return False;

+

+    /* server name check */

+    if( !(str = XGetAtomName( display, selection )) )

+	return False;

+    if(!_XimCheckServerName(im, str)) {

+	XFree( (XPointer)str );

+	goto Error;

+    }

+    XFree( (XPointer)str );

+

+    /* locale name check */

+    _XGetLCValues(lcd, XlcNLanguage, &language, XlcNTerritory, &territory,

+                    XlcNCodeset, &codeset, NULL);

+    llen = strlen( language );

+    tlen = territory ? strlen( territory ): 0;

+    clen = codeset ? strlen( codeset ): 0;

+

+    if( tlen != 0  &&  clen != 0 ) {

+	if( (locale_name[0] = Xmalloc(llen+tlen+clen+3)) != NULL )

+	    sprintf( locale_name[0], "%s_%s.%s", language, territory, codeset );

+    }

+    if( clen != 0 ) {

+	if( (locale_name[1] = Xmalloc(llen+clen+2)) != NULL )

+	    sprintf( locale_name[1], "%s.%s", language, codeset );

+	else

+	    goto Error;

+    }

+    if( tlen != 0 ) {

+	if( (locale_name[2] = Xmalloc(llen+tlen+2)) != NULL )

+	    sprintf( locale_name[2], "%s_%s", language, territory );

+	else

+	    goto Error;

+    }

+    if( (locale_name[3] = Xmalloc(llen+1)) != NULL )

+	strcpy( locale_name[3], language );

+    else

+	goto Error;

+    if((locales = XInternAtom(display, XIM_LOCALES, True)) == (Atom)None)

+	goto Error;

+

+    XConvertSelection(display, selection, locales, locales, window,

+		      CurrentTime);

+    if(!(_XimGetSelectionNotify(display, window, locales, &address)))

+	goto Error;

+

+    if((locale = _XimCheckLocaleName(im, address, strlen(address), locale_name,

+				     4)) == NULL) {

+	XFree((XPointer)address);

+	goto Error;

+    }

+    im->private.proto.locale_name = locale;

+    for( i = 0; i < 4; i++ ) {

+	if( locale_name[i] != NULL  &&  locale_name[i] != locale ) {

+	    XFree( locale_name[i] );

+	    locale_name[i] = NULL;

+	}

+    }

+    XFree((XPointer)address);

+

+    /* transport check */

+    if((transport = XInternAtom(display, XIM_TRANSPORT, True)) == (Atom)None)

+	goto Error;

+

+    XConvertSelection(display, selection, transport, transport, window,

+		      CurrentTime);

+    if(!_XimGetSelectionNotify(display, window, transport, &address))

+	goto Error;

+

+    for(i = 0; _XimTransportRec[i].transportname ; i++) {

+	if( _XimCheckTransport(address, strlen(address),

+				_XimTransportRec[i].transportname,

+				strlen(_XimTransportRec[i].transportname),

+				 &trans_addr)) {

+	    if( _XimTransportRec[i].config(im, trans_addr) ) {

+		XFree((XPointer)address);

+		XDestroyWindow(display, window);

+		return True;

+	    }

+	}

+    }

+

+    XFree((XPointer)address);

+Error:

+    for( i = 0; i < 4; i++ )

+	if( locale_name[i] != NULL )

+	    XFree( locale_name[i] );

+    XDestroyWindow(display, window);

+    return False;

+}

+

+Private Bool

+_XimPreConnect(

+    Xim		    im)

+{

+    Display	   *display = im->core.display;

+    Atom	    imserver;

+    Atom	    actual_type;

+    int		    actual_format;

+    unsigned long   nitems;

+    unsigned long   bytes_after;

+    unsigned char  *prop_return;

+    Atom	   *atoms;

+    Window	    im_window = 0;

+    register int    i;

+

+    if((imserver = XInternAtom(display, XIM_SERVERS, True)) == (Atom)None)

+	return False;

+

+    if(XGetWindowProperty(display, RootWindow(display, 0),

+			imserver, 0L, 1000000L, False, XA_ATOM, &actual_type,

+			&actual_format, &nitems, &bytes_after,

+			&prop_return) != Success)

+	return False;

+

+    if( (actual_type != XA_ATOM) || (actual_format != 32) ) {

+	if( nitems )

+	    XFree((XPointer)prop_return);

+	return False;

+    }

+

+    atoms = (Atom *)prop_return;

+    for(i = 0; i < nitems; i++) {

+	if((im_window = XGetSelectionOwner(display, atoms[i])) == (Window)None)

+	    continue;

+

+	if(_XimPreConnectionIM(im, atoms[i]))

+	    break;

+    }

+

+    XFree((XPointer)prop_return);

+    if(i >= nitems)

+	return False;

+

+    im->private.proto.im_window = im_window;

+    return True;

+}

+

+Private Bool

+_XimGetAuthProtocolNames(

+    Xim		 im,

+    CARD16	*buf,

+    CARD8	*num,

+    INT16	*len)

+{

+    if (!IS_USE_AUTHORIZATION_FUNC(im)) {

+	*num = 0;

+	*len = 0;

+	return True;

+    }

+    /*

+     * Not yet

+     */

+    return True;

+}

+

+Private Bool

+_XimSetAuthReplyData(

+    Xim		 im,

+    XPointer	 buf,

+    INT16	*len)

+{

+    /*

+     * Not yet

+     */

+    *len = 0;

+    return True;

+}

+

+Private Bool

+_XimSetAuthNextData(

+    Xim		 im,

+    XPointer	 buf,

+    INT16	*len)

+{

+    /*

+     * Not yet

+     */

+    *len = 0;

+    return True;

+}

+

+Private Bool

+_XimSetAuthRequiredData(

+    Xim		 im,

+    XPointer	 buf,

+    INT16	*len)

+{

+    /*

+     * Not yet

+     */

+    *len = 0;

+    return True;

+}

+

+Private Bool

+_XimCheckAuthSetupData(

+    Xim		 im,

+    XPointer	 buf)

+{

+    /*

+     * Not yet

+     */

+    return True;

+}

+

+Private Bool

+_XimCheckAuthNextData(

+    Xim		 im,

+    XPointer	 buf)

+{

+    /*

+     * Not yet

+     */

+    return True;

+}

+

+#define	NO_MORE_AUTH	2

+#define	GOOD_AUTH	1

+#define	BAD_AUTH	0

+

+Private int

+_XimClientAuthCheck(

+    Xim		 im,

+    XPointer	 buf)

+{

+    /*

+     * Not yet

+     */

+    return NO_MORE_AUTH;

+}

+

+Private void

+_XimAuthNG(

+    Xim		 im)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    INT16	 len = 0;

+

+    _XimSetHeader((XPointer)buf, XIM_AUTH_NG, 0, &len);

+    (void)_XimWrite(im, len, (XPointer)buf);

+    _XimFlush(im);

+    return;

+}

+

+Private	Bool

+_XimAllRecv(

+    Xim		 im,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 arg)

+{

+    return True;

+}

+

+#define	CLIENT_WAIT1		1

+#define	CLIENT_WAIT2		2

+

+Private Bool

+_XimConnection(

+    Xim		 im)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD8	*buf_b = &buf[XIM_HEADER_SIZE];

+    CARD16	*buf_s = (CARD16 *)((XPointer)buf_b);

+    INT16	 len;

+    CARD8	 num;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+    CARD8	 major_opcode;

+    int		 wait_mode;

+    int		 ret;

+

+    if(!(_XimConnect(im)))	/* Transport Connect */

+	return False;

+

+    if(!_XimDispatchInit(im))

+	return False;

+

+    _XimRegProtoIntrCallback(im, XIM_ERROR, 0, _XimErrorCallback, (XPointer)im);

+

+    if(!_XimGetAuthProtocolNames(im, &buf_s[4], &num, &len))

+	return False;

+

+    im->private.proto.protocol_major_version = PROTOCOLMAJORVERSION;

+    im->private.proto.protocol_minor_version = PROTOCOLMINORVERSION;

+

+    buf_b[0] = _XimGetMyEndian();

+    buf_b[1] = 0;

+    buf_s[1] = PROTOCOLMAJORVERSION;

+    buf_s[2] = PROTOCOLMINORVERSION;

+    buf_s[3] = num;

+    len  += sizeof(CARD8)

+          + sizeof(CARD8)

+          + sizeof(CARD16)

+          + sizeof(CARD16)

+          + sizeof(CARD16);

+

+    major_opcode = XIM_CONNECT;

+    wait_mode = (IS_USE_AUTHORIZATION_FUNC(im)) ? CLIENT_WAIT1 : CLIENT_WAIT2;

+

+    for(;;) {

+	_XimSetHeader((XPointer)buf, major_opcode, 0, &len);

+	if (!(_XimWrite(im, len, (XPointer)buf)))

+	    return False;

+	_XimFlush(im);

+	buf_size = BUFSIZE;

+	ret_code = _XimRead(im, &len, reply, buf_size, _XimAllRecv, 0);

+	if(ret_code == XIM_TRUE) {

+	    preply = reply;

+	} else if(ret_code == XIM_OVERFLOW) {

+	    if(len <= 0) {

+		preply = reply;

+	    } else {

+		buf_size = len;

+		preply = (XPointer)Xmalloc(buf_size);

+		ret_code = _XimRead(im, &len, preply, buf_size, _XimAllRecv, 0);

+		if(ret_code != XIM_TRUE) {

+		    Xfree(preply);

+		    return False;

+		}

+	    }

+	} else

+	    return False;

+

+	major_opcode = *((CARD8 *)preply);

+	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+

+	if (wait_mode == CLIENT_WAIT1) {

+	    if (major_opcode == XIM_AUTH_REQUIRED) {

+		ret = _XimClientAuthCheck(im, (XPointer)buf_s);

+		if(reply != preply)

+		    Xfree(preply);

+		if (ret == NO_MORE_AUTH) {

+		    if (!(_XimSetAuthReplyData(im,

+				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {

+			_XimAuthNG(im);

+			return False;

+		    }

+		    major_opcode = XIM_AUTH_REPLY;

+		    wait_mode = CLIENT_WAIT2;

+		} else if (ret == GOOD_AUTH) {

+		    if (!(_XimSetAuthNextData(im,

+				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {

+			_XimAuthNG(im);

+			return False;

+		    }

+		    major_opcode = XIM_AUTH_NEXT;

+		} else {	/* BAD_AUTH */

+		    _XimAuthNG(im);

+		    return False;

+		}

+	    } else {

+		if(reply != preply)

+		    Xfree(preply);

+		_XimAuthNG(im);

+		return False;

+	    }

+	} else {	/* CLIENT_WAIT2 */

+	    if (major_opcode == XIM_CONNECT_REPLY) {

+		break;

+	    } else if (major_opcode == XIM_AUTH_SETUP) {

+		if (!(_XimCheckAuthSetupData(im, (XPointer)buf_s))) {

+		    _XimAuthNG(im);

+		    return False;

+		}

+		if(reply != preply)

+		    Xfree(preply);

+		if (!(_XimSetAuthRequiredData(im,

+				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {

+		    _XimAuthNG(im);

+		    return False;

+		}

+		major_opcode = XIM_AUTH_REQUIRED;

+	    } else if (major_opcode == XIM_AUTH_NEXT) {

+		if (!(_XimCheckAuthNextData(im, (XPointer)buf_s))) {

+		    _XimAuthNG(im);

+		    return False;

+		}

+		if(reply != preply)

+		    Xfree(preply);

+		if (!(_XimSetAuthRequiredData(im,

+				(XPointer)&buf[XIM_HEADER_SIZE], &len))) {

+		    _XimAuthNG(im);

+		    return False;

+		}

+		major_opcode = XIM_AUTH_REQUIRED;

+	    } else if (major_opcode == XIM_AUTH_NG) {

+		if(reply != preply)

+		    Xfree(preply);

+		return False;

+	    } else {

+		_XimAuthNG(im);

+		if(reply != preply)

+		    Xfree(preply);

+		return False;

+	    }

+	}

+    }

+

+    if (!( buf_s[0] == im->private.proto.protocol_major_version

+        && buf_s[1] == im->private.proto.protocol_minor_version)) {

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+    if(reply != preply)

+	Xfree(preply);

+    MARK_SERVER_CONNECTED(im);

+

+    _XimRegProtoIntrCallback(im, XIM_REGISTER_TRIGGERKEYS, 0,

+				 _XimRegisterTriggerKeysCallback, (XPointer)im);

+    return True;

+}

+

+Private	Bool

+_XimDisconnectCheck(

+    Xim		 im,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 arg)

+{

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+

+    if ((major_opcode == XIM_DISCONNECT_REPLY)

+     && (minor_opcode == 0))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimDisconnect(

+    Xim		 im)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    INT16	 len = 0;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+

+    if (IS_SERVER_CONNECTED(im)) {

+	_XimSetHeader((XPointer)buf, XIM_DISCONNECT, 0, &len);

+	if (!(_XimWrite(im, len, (XPointer)buf)))

+	    return False;

+	_XimFlush(im);

+	buf_size = BUFSIZE;

+	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+						_XimDisconnectCheck, 0);

+	if(ret_code == XIM_OVERFLOW) {

+	    if(len > 0) {

+		buf_size = len;

+		preply = (XPointer)Xmalloc(buf_size);

+		ret_code = _XimRead(im, &len, preply, buf_size,

+						 _XimDisconnectCheck, 0);

+		Xfree(preply);

+		if(ret_code != XIM_TRUE)

+		    return False;

+	    }

+	} else if(ret_code == XIM_FALSE)

+	    return False;

+

+    }

+    if (!(_XimShutdown(im)))	/* Transport shutdown */

+	return False;

+    return True;

+}

+

+Private	Bool

+_XimOpenCheck(

+    Xim		 im,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 arg)

+{

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+

+    if ((major_opcode == XIM_OPEN_REPLY)

+     && (minor_opcode == 0))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimOpen(

+    Xim			 im)

+{

+    CARD32		 buf32[BUFSIZE/4];

+    CARD8		*buf = (CARD8 *)buf32;

+    CARD8		*buf_b = &buf[XIM_HEADER_SIZE];

+    CARD16		*buf_s;

+    INT16		 len;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply;

+    int			 buf_size;

+    int			 ret_code;

+    char		*locale_name;

+

+    locale_name = im->private.proto.locale_name;

+    len = strlen(locale_name);

+    buf_b[0] = (BYTE)len;			   /* length of locale name */

+    (void)strcpy((char *)&buf_b[1], locale_name);  /* locale name */

+    len += sizeof(BYTE);			   /* sizeof length */

+    XIM_SET_PAD(buf_b, len);			   /* pad */

+

+    _XimSetHeader((XPointer)buf, XIM_OPEN, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, reply, buf_size,

+					_XimOpenCheck, 0);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, preply, buf_size,

+					_XimOpenCheck, 0);

+	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return False;

+	    }

+	}

+    } else

+	return False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+

+    im->private.proto.imid = buf_s[0];		/* imid */

+

+    if (!(_XimGetAttributeID(im, &buf_s[1]))) {

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+    if(reply != preply)

+	Xfree(preply);

+

+    if (!(_XimSetInnerIMResourceList(&(im->private.proto.im_inner_resources),

+				&(im->private.proto.im_num_inner_resources))))

+	return False;

+

+    if (!(_XimSetInnerICResourceList(&(im->private.proto.ic_inner_resources),

+				&(im->private.proto.ic_num_inner_resources))))

+	return False;

+

+    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);

+    _XimSetIMMode(im->private.proto.im_inner_resources,

+				im->private.proto.im_num_inner_resources);

+

+    /* Transport Callbak */

+    _XimRegProtoIntrCallback(im, XIM_SET_EVENT_MASK, 0,

+				 _XimSetEventMaskCallback, (XPointer)im);

+    _XimRegProtoIntrCallback(im, XIM_FORWARD_EVENT, 0,

+				 _XimForwardEventCallback, (XPointer)im);

+    _XimRegProtoIntrCallback(im, XIM_COMMIT, 0,

+				 _XimCommitCallback, (XPointer)im);

+    _XimRegProtoIntrCallback(im, XIM_SYNC, 0,

+				 _XimSyncCallback, (XPointer)im);

+

+    if(!_XimExtension(im))

+	return False;

+

+    /* register a hook for callback protocols */

+    _XimRegisterDispatcher(im, _XimCbDispatch, (XPointer)im);

+

+    return True;

+}

+

+Private	Bool

+_XimCloseCheck(

+    Xim		 im,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 arg)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+

+    if ((major_opcode == XIM_CLOSE_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimClose(

+    Xim		 im)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+

+    if (!IS_SERVER_CONNECTED(im))

+	return True;

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = 0;				/* unused */

+    len = sizeof(CARD16)			/* sizeof imid */

+        + sizeof(CARD16);			/* sizeof unused */

+

+    _XimSetHeader((XPointer)buf, XIM_CLOSE, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+						_XimCloseCheck, 0);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, preply, buf_size, _XimCloseCheck, 0);

+	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return False;

+	    }

+	}

+    } else

+	return False;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+

+    if(reply != preply)

+	Xfree(preply);

+    return True;

+}

+

+Public void

+_XimProtoIMFree(

+    Xim		  im)

+{

+    /* XIMPrivateRec */

+    if (im->private.proto.im_onkeylist) {

+	Xfree(im->private.proto.im_onkeylist);

+	im->private.proto.im_onkeylist = NULL;

+    }

+    if (im->private.proto.im_offkeylist) {

+	Xfree(im->private.proto.im_offkeylist);

+	im->private.proto.im_offkeylist = NULL;

+    }

+    if (im->private.proto.intrproto) {

+	_XimFreeProtoIntrCallback(im);

+	im->private.proto.intrproto = NULL;

+    }

+    if (im->private.proto.im_inner_resources) {

+	Xfree(im->private.proto.im_inner_resources);

+	im->private.proto.im_inner_resources = NULL;

+    }

+    if (im->private.proto.ic_inner_resources) {

+	Xfree(im->private.proto.ic_inner_resources);

+	im->private.proto.ic_inner_resources = NULL;

+    }

+    if (im->private.proto.hold_data) {

+	Xfree(im->private.proto.hold_data);

+	im->private.proto.hold_data = NULL;

+    }

+    if (im->private.proto.locale_name) {

+	Xfree(im->private.proto.locale_name);

+	im->private.proto.locale_name = NULL;

+    }

+    if (im->private.proto.ctom_conv) {

+	_XlcCloseConverter(im->private.proto.ctom_conv);

+	im->private.proto.ctom_conv = NULL;

+    }

+    if (im->private.proto.ctow_conv) {

+	_XlcCloseConverter(im->private.proto.ctow_conv);

+	im->private.proto.ctow_conv = NULL;

+    }

+    if (im->private.proto.ctoutf8_conv) {

+	_XlcCloseConverter(im->private.proto.ctoutf8_conv);

+	im->private.proto.ctoutf8_conv = NULL;

+    }

+    if (im->private.proto.cstomb_conv) {

+	_XlcCloseConverter(im->private.proto.cstomb_conv);

+	im->private.proto.cstomb_conv = NULL;

+    }

+    if (im->private.proto.cstowc_conv) {

+	_XlcCloseConverter(im->private.proto.cstowc_conv);

+	im->private.proto.cstowc_conv = NULL;

+    }

+    if (im->private.proto.cstoutf8_conv) {

+	_XlcCloseConverter(im->private.proto.cstoutf8_conv);

+	im->private.proto.cstoutf8_conv = NULL;

+    }

+    if (im->private.proto.ucstoc_conv) {

+	_XlcCloseConverter(im->private.proto.ucstoc_conv);

+	im->private.proto.ucstoc_conv = NULL;

+    }

+    if (im->private.proto.ucstoutf8_conv) {

+	_XlcCloseConverter(im->private.proto.ucstoutf8_conv);

+	im->private.proto.ucstoutf8_conv = NULL;

+    }

+

+#ifdef XIM_CONNECTABLE

+    if (!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {

+	return;

+    }

+#endif /* XIM_CONNECTABLE */

+

+    if (im->private.proto.saved_imvalues) {

+        Xfree(im->private.proto.saved_imvalues);

+        im->private.proto.saved_imvalues = NULL;

+    }

+    if (im->private.proto.default_styles) {

+	Xfree(im->private.proto.default_styles);

+	im->private.proto.default_styles = NULL;

+    }

+

+    /* core */

+    if (im->core.res_name) {

+        Xfree(im->core.res_name);

+	im->core.res_name = NULL;

+    }

+    if (im->core.res_class) {

+        Xfree(im->core.res_class);

+	im->core.res_class = NULL;

+    }

+    if (im->core.im_values_list) {

+	Xfree(im->core.im_values_list);

+	im->core.im_values_list = NULL;

+    }

+    if (im->core.ic_values_list) {

+	Xfree(im->core.ic_values_list);

+	im->core.ic_values_list = NULL;

+    }

+    if (im->core.im_name) {

+	Xfree(im->core.im_name);

+	im->core.im_name = NULL;

+    }

+    if (im->core.styles) {

+	Xfree(im->core.styles);

+	im->core.styles = NULL;

+    }

+    if (im->core.im_resources) {

+        Xfree(im->core.im_resources);

+	im->core.im_resources = NULL;

+    }

+    if (im->core.ic_resources) {

+        Xfree(im->core.ic_resources);

+	im->core.ic_resources = NULL;

+    }

+

+    return;

+}

+

+Private Status

+_XimProtoCloseIM(

+    XIM		 xim)

+{

+    Xim		 im = (Xim)xim;

+    XIC		 ic;

+    XIC		 next;

+    Status	 status;

+

+    ic = im->core.ic_chain;

+    while (ic) {

+	(*ic->methods->destroy) (ic);

+	next = ic->core.next;

+#ifdef XIM_CONNECTABLE

+	if (!(!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im))) {

+	    Xfree ((char *) ic);

+	}

+#else

+	Xfree ((char *) ic);

+#endif /* XIM_CONNECTABLE */

+	ic = next;

+    }

+#ifdef XIM_CONNECTABLE

+    if (!(!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)))

+	im->core.ic_chain = NULL;

+#else

+    im->core.ic_chain = NULL;

+#endif

+

+    _XimUnregisterServerFilter(im);

+    _XimResetIMInstantiateCallback(im);

+    status = (Status)_XimClose(im);

+    status = (Status)_XimDisconnect(im) && status;

+    _XimProtoIMFree(im);

+#ifdef XIM_CONNECTABLE

+    if (!IS_SERVER_CONNECTED(im) && IS_RECONNECTABLE(im)) {

+	_XimReconnectModeSetAttr(im);

+        for (ic = im->core.ic_chain; ic; ic = ic->core.next) {

+	    _XimReconnectModeCreateIC(ic);

+        }

+	return 0;

+    }

+#endif /* XIM_CONNECTABLE */

+    _XimDestroyIMStructureList(im);

+    return status;

+}

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimCheckIMQuarkList(

+    XrmQuark		*quark_list,

+    int			 num_quark,

+    XrmQuark		 quark)

+{

+    register int	 i;

+

+    for (i = 0; i < num_quark; i++) {

+	if (quark_list[i] == quark) {

+	    return True;

+	}

+    }

+    return False;

+}

+

+Private Bool

+_XimSaveIMValues(

+    Xim			 im,

+    XIMArg		*arg)

+{

+    register XIMArg	*p;

+    register int	 n;

+    XrmQuark		*quark_list;

+    XrmQuark		*tmp;

+    XrmQuark		 quark;

+    int			 num_quark;

+

+    if (quark_list = im->private.proto.saved_imvalues) {

+	num_quark = im->private.proto.num_saved_imvalues;

+	for (p = arg; p && p->name; p++) {

+	    quark = XrmStringToQuark(p->name);

+	    if (_XimCheckIMQuarkList(quark_list, num_quark, quark)) {

+		continue;

+	    }

+	    if (!(tmp = (XrmQuark *)Xrealloc(quark_list,

+				(sizeof(XrmQuark) * (num_quark + 1))))) {

+		im->private.proto.saved_imvalues = quark_list;

+		im->private.proto.num_saved_imvalues = num_quark;

+		return False;

+	    }

+	    num_quark++;

+	    quark_list = tmp;

+	    quark_list[num_quark] = quark;

+	}

+	im->private.proto.saved_imvalues = quark_list;

+	im->private.proto.num_saved_imvalues = num_quark;

+	return True;

+    }

+

+    for (p = arg, n = 0; p && p->name; p++, n++);

+

+    if (!(quark_list = (XrmQuark *)Xmalloc(sizeof(XrmQuark) * n))) {

+	return False;

+    }

+

+    im->private.proto.saved_imvalues = quark_list;

+    im->private.proto.num_saved_imvalues = n;

+    for (p = arg; p && p->name; p++, quark_list++) {

+	*quark_list = XrmStringToQuark(p->name);

+    }

+

+    return True;

+}

+

+Private char *

+_XimDelayModeSetIMValues(

+    Xim			 im,

+    XIMArg		*arg)

+{

+    XimDefIMValues	 im_values;

+    char		*name;

+    XIMArg		*values;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    name = _XimSetIMValueData(im, (XPointer)&im_values, values,

+		im->core.im_resources, im->core.im_num_resources);

+    _XimSetCurrentIMValues(im, &im_values);

+

+    return name;

+}

+#endif /* XIM_CONNECTABLE */

+

+Private Bool

+_XimSetIMValuesCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+

+    if ((major_opcode == XIM_SET_IM_VALUES_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid))

+	return True;

+    return False;

+}

+

+Private char *

+_XimProtoSetIMValues(

+    XIM			 xim,

+    XIMArg		*arg)

+{

+    Xim			 im = (Xim)xim;

+    XimDefIMValues	 im_values;

+    INT16		 len;

+    CARD16		*buf_s;

+    char		*tmp;

+    CARD32		 tmp_buf32[BUFSIZE/4];

+    char		*tmp_buf = (char *)tmp_buf32;

+    char		*buf;

+    int			 buf_size;

+    char		*data;

+    int			 data_len;

+    int			 ret_len;

+    int			 total;

+    XIMArg		*arg_ret;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply;

+    int			 ret_code;

+    char		*name;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_SERVER_CONNECTED(im))

+	return arg->name;

+#else

+    if (!_XimSaveIMValues(im, arg))

+	return arg->name;

+

+    if (!IS_SERVER_CONNECTED(im)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (!_XimConnectServer(im)) {

+	        return _XimDelayModeSetIMValues(im, arg);

+	    }

+        } else {

+	    return arg->name;

+        }

+    }

+#endif /* XIM_CONNECTABLE */

+

+    _XimGetCurrentIMValues(im, &im_values);

+    buf = tmp_buf;

+    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);

+    data_len = BUFSIZE - buf_size;

+    total = 0;

+    arg_ret = arg;

+    for (;;) {

+	data = &buf[buf_size];

+	if ((name = _XimEncodeIMATTRIBUTE(im, im->core.im_resources,

+		im->core.im_num_resources, arg, &arg_ret, data, data_len,

+		&ret_len, (XPointer)&im_values, XIM_SETIMVALUES))) {

+	    if (buf != tmp_buf)

+		Xfree(buf);

+	    break;

+	}

+

+	total += ret_len;

+	if (!(arg = arg_ret)) {

+	    break;

+	}

+

+	buf_size += ret_len;

+	if (buf == tmp_buf) {

+	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {

+		return arg->name;

+	    }

+	    memcpy(tmp, buf, buf_size);

+	    buf = tmp;

+	} else {

+	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {

+		Xfree(buf);

+		return arg->name;

+	    }

+	    buf = tmp;

+	}

+    }

+    _XimSetCurrentIMValues(im, &im_values);

+

+    if (!total)

+	return (char *)NULL;

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = (INT16)total;

+

+    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);

+    _XimSetHeader((XPointer)buf, XIM_SET_IM_VALUES, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	if (buf != tmp_buf)

+	    Xfree(buf);

+	return arg->name;

+    }

+    _XimFlush(im);

+    if (buf != tmp_buf)

+	Xfree(buf);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					 _XimSetIMValuesCheck, 0);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = (int)len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, reply, buf_size,

+					_XimSetIMValuesCheck, 0);

+	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return arg->name;

+	    }

+	}

+    } else

+	return arg->name;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if(reply != preply)

+	    Xfree(preply);

+	return arg->name;

+    }

+    if(reply != preply)

+	Xfree(preply);

+

+    return name;

+}

+

+#ifdef XIM_CONNECTABLE

+Private char *

+_XimDelayModeGetIMValues(

+    Xim			 im,

+    XIMArg		*arg)

+{

+    XimDefIMValues	 im_values;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    return(_XimGetIMValueData(im, (XPointer)&im_values, arg,

+			im->core.im_resources, im->core.im_num_resources));

+}

+#endif /* XIM_CONNECTABLE */

+

+Private Bool

+_XimGetIMValuesCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+

+    if ((major_opcode == XIM_GET_IM_VALUES_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid))

+	return True;

+    return False;

+}

+

+Private char *

+_XimProtoGetIMValues(

+    XIM			 xim,

+    XIMArg		*arg)

+{

+    Xim			 im = (Xim)xim;

+    register XIMArg	*p;

+    register int	 n;

+    CARD8		*buf;

+    CARD16		*buf_s;

+    INT16		 len;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply = NULL;

+    int			 buf_size;

+    int			 ret_code;

+    char		*makeid_name;

+    char		*decode_name;

+    CARD16		*data = NULL;

+    INT16		 data_len = 0;

+

+#ifndef XIM_CONNECTABLE

+    if (!IS_SERVER_CONNECTED(im))

+	return arg->name;

+#else

+    if (!IS_SERVER_CONNECTED(im)) {

+	if (IS_CONNECTABLE(im)) {

+	    if (!_XimConnectServer(im)) {

+	        return _XimDelayModeGetIMValues(im, arg);

+	    }

+        } else {

+	    return arg->name;

+        }

+    }

+#endif /* XIM_CONNECTABLE */

+

+    for (n = 0, p = arg; p->name; p++)

+	n++;

+

+    if (!n)

+	return (char *)NULL;

+

+    buf_size =  sizeof(CARD16) * n;

+    buf_size += XIM_HEADER_SIZE

+	     + sizeof(CARD16)

+	     + sizeof(INT16)

+	     + XIM_PAD(buf_size);

+

+    if (!(buf = (CARD8 *)Xmalloc(buf_size)))

+	return arg->name;

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+

+    makeid_name = _XimMakeIMAttrIDList(im, im->core.im_resources,

+				im->core.im_num_resources, arg,

+				&buf_s[2], &len, XIM_GETIMVALUES);

+

+    if (len) {

+	buf_s[0] = im->private.proto.imid;	/* imid */

+	buf_s[1] = len;				/* length of im-attr-id */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += sizeof(CARD16)			/* sizeof imid */

+	     + sizeof(INT16);			/* sizeof length of attr */

+

+	_XimSetHeader((XPointer)buf, XIM_GET_IM_VALUES, 0, &len);

+	if (!(_XimWrite(im, len, (XPointer)buf))) {

+	    Xfree(buf);

+	    return arg->name;

+	}

+	_XimFlush(im);

+	Xfree(buf);

+    	buf_size = BUFSIZE;

+    	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+    						_XimGetIMValuesCheck, 0);

+	if(ret_code == XIM_TRUE) {

+	    preply = reply;

+	} else if(ret_code == XIM_OVERFLOW) {

+	    if(len <= 0) {

+		preply = reply;

+	    } else {

+		buf_size = len;

+		preply = (XPointer)Xmalloc(buf_size);

+		ret_code = _XimRead(im, &len, preply, buf_size,

+						_XimGetIMValuesCheck, 0);

+		if(ret_code != XIM_TRUE) {

+		    Xfree(preply);

+		    return arg->name;

+		}

+	    }

+	} else

+	    return arg->name;

+	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+	if (*((CARD8 *)preply) == XIM_ERROR) {

+	    _XimProcError(im, 0, (XPointer)&buf_s[3]);

+	    if(reply != preply)

+		Xfree(preply);

+	    return arg->name;

+	}

+	data = &buf_s[2];

+	data_len = buf_s[1];

+    }

+    decode_name = _XimDecodeIMATTRIBUTE(im, im->core.im_resources,

+			im->core.im_num_resources, data, data_len,

+			arg, XIM_GETIMVALUES);

+    if (reply != preply)

+	Xfree(preply);

+

+    if (decode_name)

+	return decode_name;

+    else

+	return makeid_name;

+}

+

+Private XIMMethodsRec     im_methods = {

+    _XimProtoCloseIM,           /* close */

+    _XimProtoSetIMValues,       /* set_values */

+    _XimProtoGetIMValues,       /* get_values */

+    _XimProtoCreateIC,          /* create_ic */

+    _Ximctstombs,		/* ctstombs */

+    _Ximctstowcs,		/* ctstowcs */

+    _Ximctstoutf8		/* ctstoutf8 */

+};

+

+Private Bool

+_XimSetEncodingByName(

+    Xim		  im,

+    char	**buf,

+    int		 *len)

+{

+    char	*encoding = (char *)NULL;

+    int		 encoding_len;

+    int		 compound_len;

+    BYTE	*ret;

+

+    _XGetLCValues(im->core.lcd, XlcNCodeset, &encoding, NULL);

+    if (!encoding) {

+	*buf = (char *)NULL;

+	*len = 0;

+	return True;

+    }

+    encoding_len = strlen(encoding);

+    compound_len = strlen("COMPOUND_TEXT");

+    *len = encoding_len + sizeof(BYTE) + compound_len + sizeof(BYTE);

+    if (!(ret = (BYTE *)Xmalloc(*len))) {

+	return False;

+    }

+    *buf = (char *)ret;

+

+    ret[0] = (BYTE)encoding_len;

+    (void)strncpy((char *)&ret[1], encoding, encoding_len);

+    ret += (encoding_len + sizeof(BYTE));

+    ret[0] = (BYTE)compound_len;

+    (void)strncpy((char *)&ret[1], "COMPOUND_TEXT", compound_len);

+    return True;

+}

+

+Private Bool

+_XimSetEncodingByDetail(

+    Xim		 im,

+    char	**buf,

+    int		 *len)

+{

+    *len = 0;

+    *buf = NULL;

+    return True;

+}

+

+Private Bool

+_XimGetEncoding(

+    Xim		 im,

+    CARD16	*buf,

+    char	*name,

+    int		 name_len,

+    char	*detail,

+    int		 detail_len)

+{

+    XLCd	 lcd = im->core.lcd;

+    CARD16	 category = buf[0];

+    CARD16	 idx = buf[1];

+    int		 len;

+    XlcConv	 ctom_conv = NULL;

+    XlcConv	 ctow_conv = NULL;

+    XlcConv	 ctoutf8_conv = NULL;

+    XlcConv	 conv;

+    XimProtoPrivateRec *private = &im->private.proto;

+

+    if (idx == (CARD16)XIM_Default_Encoding_IDX) { /* XXX */

+	if (!(ctom_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNMultiByte)))

+	    return False;

+	if (!(ctow_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNWideChar)))

+	    return False;

+	if (!(ctoutf8_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNUtf8String)))

+	    return False;

+    }

+

+    if (category == XIM_Encoding_NameCategory) {

+	while (name_len > 0) {

+	    len = (int)name[0];

+	    if (!strncmp(&name[1], "COMPOUND_TEXT", len)) {

+		if (!(ctom_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNMultiByte)))

+		    return False;

+		if (!(ctow_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNWideChar)))

+		    return False;

+		if (!(ctoutf8_conv = _XlcOpenConverter(lcd,

+				 XlcNCompoundText, lcd, XlcNUtf8String)))

+		    return False;

+		break;

+	    } else {

+		/*

+		 * Not yet

+		 */

+	    }

+	    len += sizeof(BYTE);

+	    name_len -= len;

+	    name += len;

+	}

+    } else if (category == XIM_Encoding_DetailCategory) {

+	/*

+	 * Not yet

+	 */

+    } else {

+	return False;

+    }

+

+    private->ctom_conv = ctom_conv;

+    private->ctow_conv = ctow_conv;

+    private->ctoutf8_conv = ctoutf8_conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNMultiByte)))

+	return False;

+    private->cstomb_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNWideChar)))

+	return False;

+    private->cstowc_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNUtf8String)))

+	return False;

+    private->cstoutf8_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNChar)))

+	return False;

+    private->ucstoc_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNUtf8String)))

+	return False;

+    private->ucstoutf8_conv = conv;

+

+    return True;

+}

+

+Private	Bool

+_XimEncodingNegoCheck(

+    Xim		 im,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 arg)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+

+    if ((major_opcode == XIM_ENCODING_NEGOTIATION_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimEncodingNegotiation(

+    Xim		 im)

+{

+    char	*name_ptr = 0;

+    int		 name_len = 0;

+    char	*detail_ptr = 0;

+    int		 detail_len = 0;

+    CARD8	*buf;

+    CARD16	*buf_s;

+    INT16	 len;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+

+    if (!(_XimSetEncodingByName(im, &name_ptr, &name_len)))

+	return False;

+

+    if (!(_XimSetEncodingByDetail(im, &detail_ptr, &detail_len)))

+	goto free_name_ptr;

+

+    len = sizeof(CARD16)

+	+ sizeof(INT16)

+	+ name_len

+	+ XIM_PAD(name_len)

+	+ sizeof(INT16)

+	+ sizeof(CARD16)

+	+ detail_len;

+

+    if (!(buf = (CARD8 *)Xmalloc(XIM_HEADER_SIZE + len)))

+	goto free_detail_ptr;

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = (INT16)name_len;

+    if (name_ptr)

+	(void)memcpy((char *)&buf_s[2], name_ptr, name_len);

+    XIM_SET_PAD(&buf_s[2], name_len);

+    buf_s = (CARD16 *)((char *)&buf_s[2] + name_len);

+    buf_s[0] = detail_len;

+    buf_s[1] = 0;

+    if (detail_ptr)

+	(void)memcpy((char *)&buf_s[2], detail_ptr, detail_len);

+

+    _XimSetHeader((XPointer)buf, XIM_ENCODING_NEGOTIATION, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	Xfree(buf);

+	goto free_detail_ptr;

+    }

+    _XimFlush(im);

+    Xfree(buf);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					_XimEncodingNegoCheck, 0);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, preply, buf_size,

+					_XimEncodingNegoCheck, 0);

+	    if(ret_code != XIM_TRUE)

+		goto free_preply;

+	}

+    } else

+	goto free_detail_ptr;

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	goto free_preply;

+    }

+

+    if (!(_XimGetEncoding(im, &buf_s[1], name_ptr, name_len,

+						detail_ptr, detail_len)))

+	goto free_preply;

+

+    if (name_ptr)

+	Xfree(name_ptr);

+    if (detail_ptr)

+	Xfree(detail_ptr);

+

+    if(reply != preply)

+	Xfree(preply);

+

+    return True;

+

+free_preply:

+    if (reply != preply)

+	Xfree(preply);

+

+free_detail_ptr:

+    Xfree(detail_ptr);

+

+free_name_ptr:

+    Xfree(name_ptr);

+

+    return False;

+}

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimSendSavedIMValues(

+    Xim			 im)

+{

+    XimDefIMValues	 im_values;

+    INT16		 len;

+    CARD16		*buf_s;

+    char		*tmp;

+    CARD32		 tmp_buf32[BUFSIZE/4];

+    char		*tmp_buf = (char *)tmp_buf32;

+    char		*buf;

+    int			 buf_size;

+    char		*data;

+    int			 data_len;

+    int			 ret_len;

+    int			 total;

+    int			 idx;

+    CARD32		 reply32[BUFSIZE/4];

+    char		*reply = (char *)reply32;

+    XPointer		 preply;

+    int			 ret_code;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    buf = tmp_buf;

+    buf_size = XIM_HEADER_SIZE + sizeof(CARD16) + sizeof(INT16);

+    data_len = BUFSIZE - buf_size;

+    total = 0;

+    idx = 0;

+    for (;;) {

+	data = &buf[buf_size];

+	if (!_XimEncodeSavedIMATTRIBUTE(im, im->core.im_resources,

+		im->core.im_num_resources, &idx, data, data_len,

+		&ret_len, (XPointer)&im_values, XIM_SETIMVALUES)) {

+	    if (buf != tmp_buf)

+		Xfree(buf);

+	    return False;

+	}

+

+	total += ret_len;

+	if (idx == -1) {

+	    break;

+	}

+

+	buf_size += ret_len;

+	if (buf == tmp_buf) {

+	    if (!(tmp = (char *)Xmalloc(buf_size + data_len))) {

+		return False;

+	    }

+	    memcpy(tmp, buf, buf_size);

+	    buf = tmp;

+	} else {

+	    if (!(tmp = (char *)Xrealloc(buf, (buf_size + data_len)))) {

+		Xfree(buf);

+		return False;

+	    }

+	    buf = tmp;

+	}

+    }

+

+    if (!total)

+	return True;

+

+    buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    buf_s[0] = im->private.proto.imid;

+    buf_s[1] = (INT16)total;

+

+    len = (INT16)(sizeof(CARD16) + sizeof(INT16) + total);

+    _XimSetHeader((XPointer)buf, XIM_SET_IM_VALUES, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf))) {

+	if (buf != tmp_buf)

+	    Xfree(buf);

+	return False;

+    }

+    _XimFlush(im);

+    if (buf != tmp_buf)

+	Xfree(buf);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+    					 _XimSetIMValuesCheck, 0);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = (int)len;

+	    preply = (XPointer)Xmalloc(buf_size);

+	    ret_code = _XimRead(im, &len, reply, buf_size,

+					_XimSetIMValuesCheck, 0);

+    	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return False;

+	    }

+	}

+    } else

+	return False;

+

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+    	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+    if(reply != preply)

+	Xfree(preply);

+

+    return True;

+}

+

+Private void

+_XimDelayModeIMFree(

+    Xim		 im)

+{

+    if (im->core.im_resources) {

+	Xfree(im->core.im_resources);

+	im->core.im_resources = NULL;

+    }

+    if (im->core.ic_resources) {

+	Xfree(im->core.ic_resources);

+	im->core.ic_resources = NULL;

+    }

+    if (im->core.im_values_list) {

+	Xfree(im->core.im_values_list);

+	im->core.im_values_list = NULL;

+    }

+    if (im->core.ic_values_list) {

+	Xfree(im->core.ic_values_list);

+	im->core.ic_values_list = NULL;

+    }

+    return;

+}

+

+Public Bool

+_XimConnectServer(

+    Xim		 im)

+{

+    Xim		 save_im;

+

+    if (!(save_im = (Xim)Xmalloc(sizeof(XimRec))))

+	return False;

+    memcpy((char *)save_im, (char *)im, sizeof(XimRec));

+

+    if (_XimPreConnect(im) && _XimConnection(im)

+			&& _XimOpen(im) && _XimEncodingNegotiation(im)) {

+	if (_XimSendSavedIMValues(im)) {

+	    _XimDelayModeIMFree(save_im);

+	    _XimRegisterServerFilter(im);

+	    Xfree(save_im);

+	    return True;

+	}

+    }

+    memcpy((char *)im, (char *)save_im, sizeof(XimRec));

+    Xfree(save_im);

+    return False;

+}

+

+Public Bool

+_XimDelayModeSetAttr(

+    Xim			 im)

+{

+    XimDefIMValues	 im_values;

+

+    if(!_XimSetIMResourceList(&im->core.im_resources,

+						&im->core.im_num_resources)) {

+	return False;

+    }

+    if(!_XimSetICResourceList(&im->core.ic_resources,

+						&im->core.ic_num_resources)) {

+	return False;

+    }

+

+    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);

+

+    _XimGetCurrentIMValues(im, &im_values);

+    if(!_XimSetLocalIMDefaults(im, (XPointer)&im_values,

+			im->core.im_resources, im->core.im_num_resources)) {

+	return False;

+    }

+    _XimSetCurrentIMValues(im, &im_values);

+    if (im->private.proto.default_styles) {

+        if (im->core.styles)

+	    Xfree(im->core.styles);

+        im->core.styles = im->private.proto.default_styles;

+    }

+

+    return True;

+}

+

+Private Bool

+_XimReconnectModeSetAttr(

+    Xim			 im)

+{

+    XimDefIMValues	 im_values;

+

+    if(!_XimSetIMResourceList(&im->core.im_resources,

+						&im->core.im_num_resources)) {

+	return False;

+    }

+    if(!_XimSetICResourceList(&im->core.ic_resources,

+						&im->core.ic_num_resources)) {

+	return False;

+    }

+

+    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);

+

+    if (im->private.proto.default_styles) {

+        if (im->core.styles)

+	    Xfree(im->core.styles);

+        im->core.styles = im->private.proto.default_styles;

+    }

+

+    return True;

+}

+#endif /* XIM_CONNECTABLE */

+

+Public Bool

+_XimProtoOpenIM(

+    Xim		 im)

+{

+    _XimInitialResourceInfo();

+

+    im->methods = &im_methods;

+

+#ifdef XIM_CONNECTABLE

+    _XimSetProtoResource(im);

+#endif /* XIM_CONNECTABLE */

+

+    if (_XimPreConnect(im)) {

+	if (_XimConnection(im) && _XimOpen(im) && _XimEncodingNegotiation(im)) {

+	    _XimRegisterServerFilter(im);

+	    return True;

+	}

+	_XimShutdown(im);

+#ifdef XIM_CONNECTABLE

+    } else if (IS_DELAYBINDABLE(im)) {

+	if (_XimDelayModeSetAttr(im))

+	    return True;

+#endif /* XIM_CONNECTABLE */

+    }

+    _XimProtoIMFree(im);

+    return False;

+}

diff --git a/libX11/modules/im/ximcp/imDefLkup.c b/libX11/modules/im/ximcp/imDefLkup.c
index 996d36aef..e53845d4c 100644
--- a/libX11/modules/im/ximcp/imDefLkup.c
+++ b/libX11/modules/im/ximcp/imDefLkup.c
@@ -1,1170 +1,1170 @@
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-
-Public Xic
-_XimICOfXICID(
-    Xim		  im,
-    XICID	  icid)
-{
-    Xic		  pic;
-
-    for (pic = (Xic)im->core.ic_chain; pic; pic = (Xic)pic->core.next) {
-	if (pic->private.proto.icid == icid)
-	    return pic;
-    }
-    return (Xic)0;
-}
-
-Private void
-_XimProcIMSetEventMask(
-    Xim		 im,
-    XPointer	 buf)
-{
-    EVENTMASK	*buf_l = (EVENTMASK *)buf;
-
-    im->private.proto.forward_event_mask     = buf_l[0];
-    im->private.proto.synchronous_event_mask = buf_l[1];
-    return;
-}
-
-Private void
-_XimProcICSetEventMask(
-    Xic		 ic,
-    XPointer	 buf)
-{
-    EVENTMASK	*buf_l = (EVENTMASK *)buf;
-
-    ic->private.proto.forward_event_mask     = buf_l[0];
-    ic->private.proto.synchronous_event_mask = buf_l[1];
-    _XimReregisterFilter(ic);
-    return;
-}
-
-Public Bool
-_XimSetEventMaskCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    XIMID        imid = buf_s[0];
-    XICID        icid = buf_s[1];
-    Xim		 im = (Xim)call_data;
-    Xic		 ic;
-
-    if (imid == im->private.proto.imid) {
-	if (icid) {
-	    ic = _XimICOfXICID(im, icid);
-	    _XimProcICSetEventMask(ic, (XPointer)&buf_s[2]);
-	} else {
-	    _XimProcIMSetEventMask(im, (XPointer)&buf_s[2]);
-	}
-	return True;
-    }
-    return False;
-}
-
-Private Bool
-_XimSyncCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic  = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-
-    if ((major_opcode == XIM_SYNC_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-	return True;
-    return False;
-}
-
-Public Bool
-_XimSync(
-    Xim		 im,
-    Xic		 ic)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-
-    len = sizeof(CARD16)			/* sizeof imid */
-	+ sizeof(CARD16);			/* sizeof icid */
-
-    _XimSetHeader((XPointer)buf, XIM_SYNC, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					_XimSyncCheck, (XPointer)ic);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(len);
-	    ret_code = _XimRead(im, &len, preply, buf_size,
-					_XimSyncCheck, (XPointer)ic);
-	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return False;
-	    }
-	}
-    } else {
-	return False;
-    }
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-    if(reply != preply)
-	Xfree(preply);
-    return True;
-}
-
-Public Bool
-_XimProcSyncReply(
-    Xim		 im,
-    Xic		 ic)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len;
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-
-    len = sizeof(CARD16)			/* sizeof imid */
-	+ sizeof(CARD16);			/* sizeof icid */
-
-    _XimSetHeader((XPointer)buf, XIM_SYNC_REPLY, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    return True;
-}
-
-Public Bool
-_XimRespSyncReply(
-    Xic		 ic,
-    BITMASK16	 mode)
-{
-    if (mode & XimSYNCHRONUS) /* SYNC Request */ {
-	if (IS_FOCUSED(ic))
-	    MARK_NEED_SYNC_REPLY(ic);
-	else
-	    _XimProcSyncReply((Xim)ic->core.im, ic);
-    }
-
-    return True;
-}
-
-Public Bool
-_XimSyncCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    XIMID        imid = buf_s[0];
-    XICID        icid = buf_s[1];
-    Xim		 im = (Xim)call_data;
-    Xic		 ic;
-
-    if ((imid == im->private.proto.imid)
-     && (ic = _XimICOfXICID(im, icid))) {
-	(void)_XimProcSyncReply(im, ic);
-	return True;
-    }
-    return False;
-}
-
-Private INT16
-_XimSetEventToWire(
-    XEvent	*ev,
-    xEvent	*event)
-{
-    if (!(_XimProtoEventToWire(ev, event, False)))
-	return 0;
-    event->u.u.sequenceNumber =
-		((XAnyEvent *)ev)->serial & (unsigned long)0xffff;
-    return sz_xEvent;
-}
-
-Private Bool
-_XimForwardEventCore(
-    Xic		 ic,
-    XEvent	*ev,
-    Bool	 sync)
-{
-    Xim		 im = (Xim)ic->core.im;
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-    INT16	 len;
-
-    if (!(len = _XimSetEventToWire(ev, (xEvent *)&buf_s[4])))
-	return False;				/* X event */
-
-    buf_s[0] = im->private.proto.imid;		/* imid */
-    buf_s[1] = ic->private.proto.icid;		/* icid */
-    buf_s[2] = sync ? XimSYNCHRONUS : 0;	/* flag */
-    buf_s[3] =
-        (CARD16)((((XAnyEvent *)ev)->serial & ~((unsigned long)0xffff)) >> 16);
-						/* serial number */
-
-    len += sizeof(CARD16)			/* sizeof imid */
-	 + sizeof(CARD16)			/* sizeof icid */
-	 + sizeof(BITMASK16)			/* sizeof flag */
-	 + sizeof(CARD16);			/* sizeof serila number */
-
-    _XimSetHeader((XPointer)buf, XIM_FORWARD_EVENT, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-
-    if (sync) {
-	buf_size = BUFSIZE;
-	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-					_XimSyncCheck, (XPointer)ic);
-	if(ret_code == XIM_TRUE) {
-	    preply = reply;
-	} else if(ret_code == XIM_OVERFLOW) {
-	    if(len <= 0) {
-		preply = reply;
-	    } else {
-		buf_size = len;
-		preply = (XPointer)Xmalloc(len);
-		ret_code = _XimRead(im, &len, preply, buf_size,
-					_XimSyncCheck, (XPointer)ic);
-		if(ret_code != XIM_TRUE) {
-		    Xfree(preply);
-		    return False;
-		}
-	    }
-	} else {
-	    return False;
-	}
-	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-	if (*((CARD8 *)preply) == XIM_ERROR) {
-	    _XimProcError(im, 0, (XPointer)&buf_s[3]);
-	    if(reply != preply)
-		Xfree(preply);
-	    return False;
-	}
-	if(reply != preply)
-	    Xfree(preply);
-    }
-    return True;
-}
-
-Public Bool
-_XimForwardEvent(
-    Xic		 ic,
-    XEvent	*ev,
-    Bool	 sync)
-{
-#ifdef EXT_FORWARD
-    if (((ev->type == KeyPress) || (ev->type == KeyRelease)))
-	if (_XimExtForwardKeyEvent(ic, (XKeyEvent *)ev, sync))
-	    return True;
-#endif
-    return _XimForwardEventCore(ic, ev, sync);
-}
-
-Private void
-_XimProcEvent(
-    Display		*d,
-    Xic			 ic,
-    XEvent		*ev,
-    CARD16		*buf)
-{
-    INT16	 serial = buf[0];
-    xEvent	*xev = (xEvent *)&buf[1];
-
-    _XimProtoWireToEvent(ev, xev, False);
-    ev->xany.serial |= serial << 16;
-    ev->xany.send_event = False;
-    ev->xany.display = d;
-    MARK_FABLICATED(ic);
-    return;
-}
-
-Private Bool
-_XimForwardEventRecv(
-    Xim		 im,
-    Xic		 ic,
-    XPointer	 buf)
-{
-    CARD16	*buf_s = (CARD16 *)buf;
-    Display	*d = im->core.display;
-    XEvent	 ev;
-
-    _XimProcEvent(d, ic, &ev, &buf_s[1]);
-
-    (void)_XimRespSyncReply(ic, buf_s[0]);
-
-    XPutBackEvent(d, &ev);
-
-    return True;
-}
-
-Public Bool
-_XimForwardEventCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    XIMID        imid = buf_s[0];
-    XICID        icid = buf_s[1];
-    Xim		 im = (Xim)call_data;
-    Xic		 ic;
-
-    if ((imid == im->private.proto.imid)
-     && (ic = _XimICOfXICID(im, icid))) {
-	(void)_XimForwardEventRecv(im, ic, (XPointer)&buf_s[2]);
-	return True;
-    }
-    return False;
-}
-
-Private Bool
-_XimRegisterTriggerkey(
-    Xim			 im,
-    XPointer		 buf)
-{
-    CARD32		*buf_l = (CARD32 *)buf;
-    CARD32		 len;
-    CARD32 		*key;
-
-    if (IS_DYNAMIC_EVENT_FLOW(im))	/* already Dynamic event flow mode */
-	return True;
-
-    /*
-     *  register onkeylist
-     */
-
-    len = buf_l[0];				/* length of on-keys */
-    len += sizeof(INT32);			/* sizeof length of on-keys */
-
-    if (!(key = (CARD32 *)Xmalloc(len))) {
-	_XimError(im, 0, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);
-	return False;
-    }
-    memcpy((char *)key, (char *)buf_l, len);
-    im->private.proto.im_onkeylist = key;
-
-    MARK_DYNAMIC_EVENT_FLOW(im);
-
-    /*
-     *  register offkeylist
-     */
-
-    buf_l = (CARD32 *)((char *)buf + len);
-    len = buf_l[0];				/* length of off-keys */
-    len += sizeof(INT32);			/* sizeof length of off-keys */
-
-    if (!(key = (CARD32 *)Xmalloc(len))) {
-	_XimError(im, 0, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);
-	return False;
-    }
-
-    memcpy((char *)key, (char *)buf_l, len);
-    im->private.proto.im_offkeylist = key;
-
-    return True;
-}
-
-Public Bool
-_XimRegisterTriggerKeysCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    Xim		 im = (Xim)call_data;
-
-    (void )_XimRegisterTriggerkey(im, (XPointer)&buf_s[2]);
-    return True;
-}
-
-Public EVENTMASK
-_XimGetWindowEventmask(
-    Xic		 ic)
-{
-    Xim			im = (Xim )ic->core.im;
-    XWindowAttributes	atr;
-
-    if (!XGetWindowAttributes(im->core.display, ic->core.focus_window, &atr))
-	return 0;
-    return (EVENTMASK)atr.your_event_mask;
-}
-
-
-Private Bool
-_XimTriggerNotifyCheck(
-    Xim          im,
-    INT16        len,
-    XPointer	 data,
-    XPointer     arg)
-{
-    Xic		 ic  = (Xic)arg;
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    CARD8	 major_opcode = *((CARD8 *)data);
-    CARD8	 minor_opcode = *((CARD8 *)data + 1);
-    XIMID	 imid = buf_s[0];
-    XICID	 icid = buf_s[1];
-
-    if ((major_opcode == XIM_TRIGGER_NOTIFY_REPLY)
-     && (minor_opcode == 0)
-     && (imid == im->private.proto.imid)
-     && (icid == ic->private.proto.icid))
-	return True;
-    if ((major_opcode == XIM_ERROR)
-     && (minor_opcode == 0)
-     && (buf_s[2] & XIM_IMID_VALID)
-     && (imid == im->private.proto.imid)
-     && (buf_s[2] & XIM_ICID_VALID)
-     && (icid == ic->private.proto.icid))
-	return True;
-    return False;
-}
-
-Public Bool
-_XimTriggerNotify(
-    Xim		 im,
-    Xic		 ic,
-    int		 mode,
-    CARD32	 idx)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    CARD32	*buf_l = (CARD32 *)&buf[XIM_HEADER_SIZE];
-    CARD32	 reply32[BUFSIZE/4];
-    char	*reply = (char *)reply32;
-    XPointer	 preply;
-    int		 buf_size;
-    int		 ret_code;
-    INT16	 len;
-    EVENTMASK	 mask = _XimGetWindowEventmask(ic);
-
-    buf_s[0] = im->private.proto.imid;	/* imid */
-    buf_s[1] = ic->private.proto.icid;	/* icid */
-    buf_l[1] = mode;			/* flag */
-    buf_l[2] = idx;			/* index of keys list */
-    buf_l[3] = mask;			/* select-event-mask */
-
-    len = sizeof(CARD16)		/* sizeof imid */
-	+ sizeof(CARD16)		/* sizeof icid */
-	+ sizeof(CARD32)		/* sizeof flag */
-	+ sizeof(CARD32)		/* sizeof index of key list */
-	+ sizeof(EVENTMASK);		/* sizeof select-event-mask */
-
-    _XimSetHeader((XPointer)buf, XIM_TRIGGER_NOTIFY, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    buf_size = BUFSIZE;
-    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-				_XimTriggerNotifyCheck, (XPointer)ic);
-    if(ret_code == XIM_TRUE) {
-	preply = reply;
-    } else if(ret_code == XIM_OVERFLOW) {
-	if(len <= 0) {
-	    preply = reply;
-	} else {
-	    buf_size = len;
-	    preply = (XPointer)Xmalloc(len);
-	    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,
-				_XimTriggerNotifyCheck, (XPointer)ic);
-	    if(ret_code != XIM_TRUE) {
-		Xfree(preply);
-		return False;
-	    }
-	}
-    } else {
-	return False;
-    }
-    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);
-    if (*((CARD8 *)preply) == XIM_ERROR) {
-	_XimProcError(im, 0, (XPointer)&buf_s[3]);
-	if(reply != preply)
-	    Xfree(preply);
-	return False;
-    }
-    if(reply != preply)
-	Xfree(preply);
-    return True;
-}
-
-Private Bool
-_XimRegCommitInfo(
-    Xic			 ic,
-    char		*string,
-    int			 string_len,
-    KeySym		*keysym,
-    int			 keysym_len)
-{
-    XimCommitInfo	info;
-
-    if (!(info = (XimCommitInfo)Xmalloc(sizeof(XimCommitInfoRec))))
-	return False;
-    info->string	= string;
-    info->string_len	= string_len;
-    info->keysym	= keysym;
-    info->keysym_len	= keysym_len;
-    info->next = ic->private.proto.commit_info;
-    ic->private.proto.commit_info = info;
-    return True;
-}
-
-Private void
-_XimUnregCommitInfo(
-    Xic			ic)
-{
-    XimCommitInfo	info;
-
-    if (!(info = ic->private.proto.commit_info))
-	return;
-
-    if (info->string)
-	Xfree(info->string);
-    if (info->keysym)
-	Xfree(info->keysym);
-    ic->private.proto.commit_info = info->next;
-    Xfree(info);
-    return;
-}
-
-Public void
-_XimFreeCommitInfo(
-    Xic			ic)
-{
-    while (ic->private.proto.commit_info)
-	_XimUnregCommitInfo(ic);
-    return;
-}
-
-Private Bool
-_XimProcKeySym(
-    Xic			  ic,
-    CARD32		  sym,
-    KeySym		**xim_keysym,
-    int			 *xim_keysym_len)
-{
-    Xim			 im = (Xim)ic->core.im;
-
-    if (!(*xim_keysym = (KeySym *)Xmalloc(sizeof(KeySym)))) {
-	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);
-	return False;
-    }
-
-    **xim_keysym = (KeySym)sym;
-    *xim_keysym_len = 1;
-
-    return True;
-}
-
-Private Bool
-_XimProcCommit(
-    Xic		  ic,
-    BYTE	 *buf,
-    int		  len,
-    char	**xim_string,
-    int		 *xim_string_len)
-{
-    Xim		 im = (Xim)ic->core.im;
-    char	*string;
-
-    if (!(string = (char *)Xmalloc(len + 1))) {
-	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);
-	return False;
-    }
-
-    (void)memcpy(string, (char *)buf, len);
-    string[len] = '\0';
-
-    *xim_string = string;
-    *xim_string_len = len;
-    return True;
-}
-
-Private Bool
-_XimCommitRecv(
-    Xim		 im,
-    Xic		 ic,
-    XPointer	 buf)
-{
-    CARD16	*buf_s = (CARD16 *)buf;
-    BITMASK16	 flag = buf_s[0];
-    XKeyEvent	 ev;
-    char	*string = NULL;
-    int		 string_len = 0;
-    KeySym	*keysym = NULL;
-    int		 keysym_len = 0;
-
-    if ((flag & XimLookupBoth) == XimLookupChars) {
-	if (!(_XimProcCommit(ic, (BYTE *)&buf_s[2],
-			 		(int)buf_s[1], &string, &string_len)))
-	    return False;
-
-    } else if ((flag & XimLookupBoth) == XimLookupKeySym) {
-	if (!(_XimProcKeySym(ic, *(CARD32 *)&buf_s[2], &keysym, &keysym_len)))
-	    return False;
-
-    } else if ((flag & XimLookupBoth) == XimLookupBoth) {
-	if (!(_XimProcKeySym(ic, *(CARD32 *)&buf_s[2], &keysym, &keysym_len)))
-	    return False;
-
-	if (!(_XimProcCommit(ic, (BYTE *)&buf_s[5],
-					(int)buf_s[4], &string, &string_len))) {
-	    Xfree(keysym);
-	    return False;
-	}
-    }
-
-    if (!(_XimRegCommitInfo(ic, string, string_len, keysym, keysym_len))) {
-	if (string)
-	    Xfree(string);
-	if (keysym)
-	    Xfree(keysym);
-	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);
-	return False;
-    }
-
-    (void)_XimRespSyncReply(ic, flag);
-
-    MARK_FABLICATED(ic);
-
-    ev.type = KeyPress;
-    ev.send_event = False;
-    ev.display = im->core.display;
-    ev.window = ic->core.focus_window;
-    ev.keycode = 0;
-    ev.state = 0;
-
-    XPutBackEvent(im->core.display, (XEvent *)&ev);
-
-    return True;
-}
-
-Public Bool
-_XimCommitCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    XIMID        imid = buf_s[0];
-    XICID        icid = buf_s[1];
-    Xim		 im = (Xim)call_data;
-    Xic		 ic;
-
-    if ((imid == im->private.proto.imid)
-     && (ic = _XimICOfXICID(im, icid))) {
-	(void)_XimCommitRecv(im, ic, (XPointer)&buf_s[2]);
-	return True;
-    }
-    return False;
-}
-
-Public void
-_XimProcError(
-    Xim		 im,
-    Xic		 ic,
-    XPointer	 data)
-{
-    return;
-}
-
-Public Bool
-_XimErrorCallback(
-    Xim		 xim,
-    INT16	 len,
-    XPointer	 data,
-    XPointer	 call_data)
-{
-    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);
-    BITMASK16	 flag = buf_s[2];
-    XIMID        imid;
-    XICID        icid;
-    Xim		 im = (Xim)call_data;
-    Xic		 ic = NULL;
-
-    if (flag & XIM_IMID_VALID) {
-	imid = buf_s[0];
-	if (imid != im->private.proto.imid)
-	    return False;
-    }
-    if (flag & XIM_ICID_VALID) {
-	icid = buf_s[1];
-	if (!(ic = _XimICOfXICID(im, icid)))
-	    return False;
-    }
-    _XimProcError(im, ic, (XPointer)&buf_s[3]);
-
-    return True;
-}
-
-Public Bool
-_XimError(
-    Xim		 im,
-    Xic		 ic,
-    CARD16	 error_code,
-    INT16	 detail_length,
-    CARD16	 type,
-    char	*detail)
-{
-    CARD32	 buf32[BUFSIZE/4];
-    CARD8	*buf = (CARD8 *)buf32;
-    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];
-    INT16	 len = 0;
-
-    buf_s[0] = im->private.proto.imid;	/* imid */
-    buf_s[2] = XIM_IMID_VALID;		/* flag */
-    if (ic) {
-    	buf_s[1] = ic->private.proto.icid;	/* icid */
-	buf_s[2] |= XIM_ICID_VALID;		/* flag */
-    }
-    buf_s[3] = error_code;			/* Error Code */
-    buf_s[4] = detail_length;			/* length of error detail */
-    buf_s[5] = type;				/* type of error detail */
-
-    if (detail_length && detail) {
-	len = detail_length;
-	memcpy((char *)&buf_s[6], detail, len);
-	XIM_SET_PAD(&buf_s[6], len);
-    }
-
-    len += sizeof(CARD16)		/* sizeof imid */
-	 + sizeof(CARD16)		/* sizeof icid */
-	 + sizeof(BITMASK16)		/* sizeof flag */
-	 + sizeof(CARD16)		/* sizeof error_code */
-	 + sizeof(INT16)		/* sizeof length of detail */
-	 + sizeof(CARD16);		/* sizeof type */
-
-    _XimSetHeader((XPointer)buf, XIM_ERROR, 0, &len);
-    if (!(_XimWrite(im, len, (XPointer)buf)))
-	return False;
-    _XimFlush(im);
-    return True;
-}
-
-Private int
-_Ximctsconvert(
-    XlcConv	 conv,
-    char	*from,
-    int		 from_len,
-    char	*to,
-    int		 to_len,
-    Status	*state)
-{
-    int		 from_left;
-    int		 to_left;
-    int		 from_savelen;
-    int		 to_savelen;
-    int		 from_cnvlen;
-    int		 to_cnvlen;
-    char	*from_buf;
-    char	*to_buf;
-    char	 scratchbuf[BUFSIZ];
-    Status	 tmp_state;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (!conv || !from || !from_len) {
-	*state = XLookupNone;
-	return 0;
-    }
-
-    /* Reset the converter.  The CompoundText at 'from' starts in
-       initial state.  */
-    _XlcResetConverter(conv);
-
-    from_left = from_len;
-    to_left = BUFSIZ;
-    from_cnvlen = 0;
-    to_cnvlen = 0;
-    for (;;) {
-	from_buf = &from[from_cnvlen];
-	from_savelen = from_left;
-	to_buf = &scratchbuf[to_cnvlen];
-	to_savelen = to_left;
-	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,
-				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {
-	    *state = XLookupNone;
-	    return 0;
-	}
-	from_cnvlen += (from_savelen - from_left);
-	to_cnvlen += (to_savelen - to_left);
-	if (from_left == 0) {
-	    if (!to_cnvlen) {
-		*state = XLookupNone;
-		return 0;
-           }
-	   break;
-	}
-    }
-
-    if (!to || !to_len || (to_len < to_cnvlen)) {
-       *state = XBufferOverflow;
-    } else {
-       memcpy(to, scratchbuf, to_cnvlen);
-       *state = XLookupChars;
-    }
-    return to_cnvlen;
-}
-
-Public int
-_Ximctstombs(XIM xim, char *from, int from_len,
-	     char *to, int to_len, Status *state)
-{
-    return _Ximctsconvert(((Xim)xim)->private.proto.ctom_conv,
-			  from, from_len, to, to_len, state);
-}
-
-Public int
-_Ximctstowcs(
-    XIM		 xim,
-    char	*from,
-    int		 from_len,
-    wchar_t	*to,
-    int		 to_len,
-    Status	*state)
-{
-    Xim		 im = (Xim)xim;
-    XlcConv	 conv = im->private.proto.ctow_conv;
-    int		 from_left;
-    int		 to_left;
-    int		 from_savelen;
-    int		 to_savelen;
-    int		 from_cnvlen;
-    int		 to_cnvlen;
-    char	*from_buf;
-    wchar_t	*to_buf;
-    wchar_t	 scratchbuf[BUFSIZ];
-    Status	 tmp_state;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (!conv || !from || !from_len) {
-	*state = XLookupNone;
-	return 0;
-    }
-
-    /* Reset the converter.  The CompoundText at 'from' starts in
-       initial state.  */
-    _XlcResetConverter(conv);
-
-    from_left = from_len;
-    to_left = BUFSIZ;
-    from_cnvlen = 0;
-    to_cnvlen = 0;
-    for (;;) {
-	from_buf = &from[from_cnvlen];
-       from_savelen = from_left;
-       to_buf = &scratchbuf[to_cnvlen];
-       to_savelen = to_left;
-	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,
-				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {
-	    *state = XLookupNone;
-	    return 0;
-	}
-	from_cnvlen += (from_savelen - from_left);
-       to_cnvlen += (to_savelen - to_left);
-	if (from_left == 0) {
-           if (!to_cnvlen){
-		*state = XLookupNone;
-               return 0;
-           }
-	    break;
-	}
-    }
-
-    if (!to || !to_len || (to_len < to_cnvlen)) {
-       *state = XBufferOverflow;
-    } else {
-       memcpy(to, scratchbuf, to_cnvlen * sizeof(wchar_t));
-       *state = XLookupChars;
-    }
-    return to_cnvlen;
-}
-
-Public int
-_Ximctstoutf8(
-    XIM		 xim,
-    char	*from,
-    int		 from_len,
-    char	*to,
-    int		 to_len,
-    Status	*state)
-{
-    return _Ximctsconvert(((Xim)xim)->private.proto.ctoutf8_conv,
-			  from, from_len, to, to_len, state);
-}
-
-Public int
-_XimProtoMbLookupString(
-    XIC			 xic,
-    XKeyEvent		*ev,
-    char		*buffer,
-    int			 bytes,
-    KeySym		*keysym,
-    Status		*state)
-{
-    Xic			 ic = (Xic)xic;
-    Xim			 im = (Xim)ic->core.im;
-    int			 ret;
-    Status		 tmp_state;
-    XimCommitInfo	 info;
-
-    if (!IS_SERVER_CONNECTED(im))
-	return 0;
-
-    if (!state)
-	state = &tmp_state;
-
-    if ((ev->type == KeyPress) && (ev->keycode == 0)) { /* Filter function */
-	if (!(info = ic->private.proto.commit_info)) {
-	    *state = XLookupNone;
-	    return 0;
-	}
-
-	ret = im->methods->ctstombs((XIM)im, info->string,
-			 	info->string_len, buffer, bytes, state);
-	if (*state == XBufferOverflow)
-            return ret;
-	if (keysym && (info->keysym && *(info->keysym))) {
-	    *keysym = *(info->keysym);
-	    if (*state == XLookupChars)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupKeySym;
-	}
-	_XimUnregCommitInfo(ic);
-
-    } else  if (ev->type == KeyPress) {
-	ret = _XimLookupMBText(ic, ev, buffer, bytes, keysym, NULL);
-	if (ret > 0) {
-           if (ret > bytes)
-               *state = XBufferOverflow;
-           else if (keysym && *keysym != NoSymbol)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupChars;
-	} else {
-	    if (keysym && *keysym != NoSymbol)
-		*state = XLookupKeySym;
-	    else
-		*state = XLookupNone;
-	}
-    } else {
-	*state = XLookupNone;
-	ret = 0;
-    }
-
-    return ret;
-}
-
-Public int
-_XimProtoWcLookupString(
-    XIC			 xic,
-    XKeyEvent		*ev,
-    wchar_t		*buffer,
-    int			 bytes,
-    KeySym		*keysym,
-    Status		*state)
-{
-    Xic			 ic = (Xic)xic;
-    Xim			 im = (Xim)ic->core.im;
-    int			 ret;
-    Status		 tmp_state;
-    XimCommitInfo	 info;
-
-    if (!IS_SERVER_CONNECTED(im))
-	return 0;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (ev->type == KeyPress && ev->keycode == 0) { /* Filter function */
-	if (!(info = ic->private.proto.commit_info)) {
-           *state = XLookupNone;
-	    return 0;
-	}
-
-	ret = im->methods->ctstowcs((XIM)im, info->string,
-			 	info->string_len, buffer, bytes, state);
-	if (*state == XBufferOverflow)
-           return ret;
-	if (keysym && (info->keysym && *(info->keysym))) {
-	    *keysym = *(info->keysym);
-	    if (*state == XLookupChars)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupKeySym;
-	}
-	_XimUnregCommitInfo(ic);
-
-    } else if (ev->type == KeyPress) {
-	ret = _XimLookupWCText(ic, ev, buffer, bytes, keysym, NULL);
-	if (ret > 0) {
-           if (ret > bytes)
-               *state = XBufferOverflow;
-           else if (keysym && *keysym != NoSymbol)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupChars;
-	} else {
-	    if (keysym && *keysym != NoSymbol)
-		*state = XLookupKeySym;
-	    else
-		*state = XLookupNone;
-	}
-    } else {
-	*state = XLookupNone;
-	ret = 0;
-    }
-
-    return ret;
-}
-
-Public int
-_XimProtoUtf8LookupString(
-    XIC			 xic,
-    XKeyEvent		*ev,
-    char		*buffer,
-    int			 bytes,
-    KeySym		*keysym,
-    Status		*state)
-{
-    Xic			 ic = (Xic)xic;
-    Xim			 im = (Xim)ic->core.im;
-    int			 ret;
-    Status		 tmp_state;
-    XimCommitInfo	 info;
-
-    if (!IS_SERVER_CONNECTED(im))
-	return 0;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (ev->type == KeyPress && ev->keycode == 0) { /* Filter function */
-	if (!(info = ic->private.proto.commit_info)) {
-           *state = XLookupNone;
-	    return 0;
-	}
-
-	ret = im->methods->ctstoutf8((XIM)im, info->string,
-			 	info->string_len, buffer, bytes, state);
-	if (*state == XBufferOverflow)
-           return ret;
-	if (keysym && (info->keysym && *(info->keysym))) {
-	    *keysym = *(info->keysym);
-	    if (*state == XLookupChars)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupKeySym;
-	}
-	_XimUnregCommitInfo(ic);
-
-    } else if (ev->type == KeyPress) {
-	ret = _XimLookupUTF8Text(ic, ev, buffer, bytes, keysym, NULL);
-	if (ret > 0) {
-           if (ret > bytes)
-               *state = XBufferOverflow;
-           else if (keysym && *keysym != NoSymbol)
-		*state = XLookupBoth;
-	    else
-		*state = XLookupChars;
-	} else {
-	    if (keysym && *keysym != NoSymbol)
-		*state = XLookupKeySym;
-	    else
-		*state = XLookupNone;
-	}
-    } else {
-	*state = XLookupNone;
-	ret = 0;
-    }
-
-    return ret;
-}
+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+

+Public Xic

+_XimICOfXICID(

+    Xim		  im,

+    XICID	  icid)

+{

+    Xic		  pic;

+

+    for (pic = (Xic)im->core.ic_chain; pic; pic = (Xic)pic->core.next) {

+	if (pic->private.proto.icid == icid)

+	    return pic;

+    }

+    return (Xic)0;

+}

+

+Private void

+_XimProcIMSetEventMask(

+    Xim		 im,

+    XPointer	 buf)

+{

+    EVENTMASK	*buf_l = (EVENTMASK *)buf;

+

+    im->private.proto.forward_event_mask     = buf_l[0];

+    im->private.proto.synchronous_event_mask = buf_l[1];

+    return;

+}

+

+Private void

+_XimProcICSetEventMask(

+    Xic		 ic,

+    XPointer	 buf)

+{

+    EVENTMASK	*buf_l = (EVENTMASK *)buf;

+

+    ic->private.proto.forward_event_mask     = buf_l[0];

+    ic->private.proto.synchronous_event_mask = buf_l[1];

+    _XimReregisterFilter(ic);

+    return;

+}

+

+Public Bool

+_XimSetEventMaskCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    XIMID        imid = buf_s[0];

+    XICID        icid = buf_s[1];

+    Xim		 im = (Xim)call_data;

+    Xic		 ic;

+

+    if (imid == im->private.proto.imid) {

+	if (icid) {

+	    ic = _XimICOfXICID(im, icid);

+	    _XimProcICSetEventMask(ic, (XPointer)&buf_s[2]);

+	} else {

+	    _XimProcIMSetEventMask(im, (XPointer)&buf_s[2]);

+	}

+	return True;

+    }

+    return False;

+}

+

+Private Bool

+_XimSyncCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic  = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+

+    if ((major_opcode == XIM_SYNC_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+	return True;

+    return False;

+}

+

+Public Bool

+_XimSync(

+    Xim		 im,

+    Xic		 ic)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+

+    len = sizeof(CARD16)			/* sizeof imid */

+	+ sizeof(CARD16);			/* sizeof icid */

+

+    _XimSetHeader((XPointer)buf, XIM_SYNC, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					_XimSyncCheck, (XPointer)ic);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(len);

+	    ret_code = _XimRead(im, &len, preply, buf_size,

+					_XimSyncCheck, (XPointer)ic);

+	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return False;

+	    }

+	}

+    } else {

+	return False;

+    }

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+    if(reply != preply)

+	Xfree(preply);

+    return True;

+}

+

+Public Bool

+_XimProcSyncReply(

+    Xim		 im,

+    Xic		 ic)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len;

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+

+    len = sizeof(CARD16)			/* sizeof imid */

+	+ sizeof(CARD16);			/* sizeof icid */

+

+    _XimSetHeader((XPointer)buf, XIM_SYNC_REPLY, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    return True;

+}

+

+Public Bool

+_XimRespSyncReply(

+    Xic		 ic,

+    BITMASK16	 mode)

+{

+    if (mode & XimSYNCHRONUS) /* SYNC Request */ {

+	if (IS_FOCUSED(ic))

+	    MARK_NEED_SYNC_REPLY(ic);

+	else

+	    _XimProcSyncReply((Xim)ic->core.im, ic);

+    }

+

+    return True;

+}

+

+Public Bool

+_XimSyncCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    XIMID        imid = buf_s[0];

+    XICID        icid = buf_s[1];

+    Xim		 im = (Xim)call_data;

+    Xic		 ic;

+

+    if ((imid == im->private.proto.imid)

+     && (ic = _XimICOfXICID(im, icid))) {

+	(void)_XimProcSyncReply(im, ic);

+	return True;

+    }

+    return False;

+}

+

+Private INT16

+_XimSetEventToWire(

+    XEvent	*ev,

+    xEvent	*event)

+{

+    if (!(_XimProtoEventToWire(ev, event, False)))

+	return 0;

+    event->u.u.sequenceNumber =

+		((XAnyEvent *)ev)->serial & (unsigned long)0xffff;

+    return sz_xEvent;

+}

+

+Private Bool

+_XimForwardEventCore(

+    Xic		 ic,

+    XEvent	*ev,

+    Bool	 sync)

+{

+    Xim		 im = (Xim)ic->core.im;

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+    INT16	 len;

+

+    if (!(len = _XimSetEventToWire(ev, (xEvent *)&buf_s[4])))

+	return False;				/* X event */

+

+    buf_s[0] = im->private.proto.imid;		/* imid */

+    buf_s[1] = ic->private.proto.icid;		/* icid */

+    buf_s[2] = sync ? XimSYNCHRONUS : 0;	/* flag */

+    buf_s[3] =

+        (CARD16)((((XAnyEvent *)ev)->serial & ~((unsigned long)0xffff)) >> 16);

+						/* serial number */

+

+    len += sizeof(CARD16)			/* sizeof imid */

+	 + sizeof(CARD16)			/* sizeof icid */

+	 + sizeof(BITMASK16)			/* sizeof flag */

+	 + sizeof(CARD16);			/* sizeof serila number */

+

+    _XimSetHeader((XPointer)buf, XIM_FORWARD_EVENT, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+

+    if (sync) {

+	buf_size = BUFSIZE;

+	ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+					_XimSyncCheck, (XPointer)ic);

+	if(ret_code == XIM_TRUE) {

+	    preply = reply;

+	} else if(ret_code == XIM_OVERFLOW) {

+	    if(len <= 0) {

+		preply = reply;

+	    } else {

+		buf_size = len;

+		preply = (XPointer)Xmalloc(len);

+		ret_code = _XimRead(im, &len, preply, buf_size,

+					_XimSyncCheck, (XPointer)ic);

+		if(ret_code != XIM_TRUE) {

+		    Xfree(preply);

+		    return False;

+		}

+	    }

+	} else {

+	    return False;

+	}

+	buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+	if (*((CARD8 *)preply) == XIM_ERROR) {

+	    _XimProcError(im, 0, (XPointer)&buf_s[3]);

+	    if(reply != preply)

+		Xfree(preply);

+	    return False;

+	}

+	if(reply != preply)

+	    Xfree(preply);

+    }

+    return True;

+}

+

+Public Bool

+_XimForwardEvent(

+    Xic		 ic,

+    XEvent	*ev,

+    Bool	 sync)

+{

+#ifdef EXT_FORWARD

+    if (((ev->type == KeyPress) || (ev->type == KeyRelease)))

+	if (_XimExtForwardKeyEvent(ic, (XKeyEvent *)ev, sync))

+	    return True;

+#endif

+    return _XimForwardEventCore(ic, ev, sync);

+}

+

+Private void

+_XimProcEvent(

+    Display		*d,

+    Xic			 ic,

+    XEvent		*ev,

+    CARD16		*buf)

+{

+    INT16	 serial = buf[0];

+    xEvent	*xev = (xEvent *)&buf[1];

+

+    _XimProtoWireToEvent(ev, xev, False);

+    ev->xany.serial |= serial << 16;

+    ev->xany.send_event = False;

+    ev->xany.display = d;

+    MARK_FABLICATED(ic);

+    return;

+}

+

+Private Bool

+_XimForwardEventRecv(

+    Xim		 im,

+    Xic		 ic,

+    XPointer	 buf)

+{

+    CARD16	*buf_s = (CARD16 *)buf;

+    Display	*d = im->core.display;

+    XEvent	 ev;

+

+    _XimProcEvent(d, ic, &ev, &buf_s[1]);

+

+    (void)_XimRespSyncReply(ic, buf_s[0]);

+

+    XPutBackEvent(d, &ev);

+

+    return True;

+}

+

+Public Bool

+_XimForwardEventCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    XIMID        imid = buf_s[0];

+    XICID        icid = buf_s[1];

+    Xim		 im = (Xim)call_data;

+    Xic		 ic;

+

+    if ((imid == im->private.proto.imid)

+     && (ic = _XimICOfXICID(im, icid))) {

+	(void)_XimForwardEventRecv(im, ic, (XPointer)&buf_s[2]);

+	return True;

+    }

+    return False;

+}

+

+Private Bool

+_XimRegisterTriggerkey(

+    Xim			 im,

+    XPointer		 buf)

+{

+    CARD32		*buf_l = (CARD32 *)buf;

+    CARD32		 len;

+    CARD32 		*key;

+

+    if (IS_DYNAMIC_EVENT_FLOW(im))	/* already Dynamic event flow mode */

+	return True;

+

+    /*

+     *  register onkeylist

+     */

+

+    len = buf_l[0];				/* length of on-keys */

+    len += sizeof(INT32);			/* sizeof length of on-keys */

+

+    if (!(key = (CARD32 *)Xmalloc(len))) {

+	_XimError(im, 0, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);

+	return False;

+    }

+    memcpy((char *)key, (char *)buf_l, len);

+    im->private.proto.im_onkeylist = key;

+

+    MARK_DYNAMIC_EVENT_FLOW(im);

+

+    /*

+     *  register offkeylist

+     */

+

+    buf_l = (CARD32 *)((char *)buf + len);

+    len = buf_l[0];				/* length of off-keys */

+    len += sizeof(INT32);			/* sizeof length of off-keys */

+

+    if (!(key = (CARD32 *)Xmalloc(len))) {

+	_XimError(im, 0, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);

+	return False;

+    }

+

+    memcpy((char *)key, (char *)buf_l, len);

+    im->private.proto.im_offkeylist = key;

+

+    return True;

+}

+

+Public Bool

+_XimRegisterTriggerKeysCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    Xim		 im = (Xim)call_data;

+

+    (void )_XimRegisterTriggerkey(im, (XPointer)&buf_s[2]);

+    return True;

+}

+

+Public EVENTMASK

+_XimGetWindowEventmask(

+    Xic		 ic)

+{

+    Xim			im = (Xim )ic->core.im;

+    XWindowAttributes	atr;

+

+    if (!XGetWindowAttributes(im->core.display, ic->core.focus_window, &atr))

+	return 0;

+    return (EVENTMASK)atr.your_event_mask;

+}

+

+

+Private Bool

+_XimTriggerNotifyCheck(

+    Xim          im,

+    INT16        len,

+    XPointer	 data,

+    XPointer     arg)

+{

+    Xic		 ic  = (Xic)arg;

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    CARD8	 major_opcode = *((CARD8 *)data);

+    CARD8	 minor_opcode = *((CARD8 *)data + 1);

+    XIMID	 imid = buf_s[0];

+    XICID	 icid = buf_s[1];

+

+    if ((major_opcode == XIM_TRIGGER_NOTIFY_REPLY)

+     && (minor_opcode == 0)

+     && (imid == im->private.proto.imid)

+     && (icid == ic->private.proto.icid))

+	return True;

+    if ((major_opcode == XIM_ERROR)

+     && (minor_opcode == 0)

+     && (buf_s[2] & XIM_IMID_VALID)

+     && (imid == im->private.proto.imid)

+     && (buf_s[2] & XIM_ICID_VALID)

+     && (icid == ic->private.proto.icid))

+	return True;

+    return False;

+}

+

+Public Bool

+_XimTriggerNotify(

+    Xim		 im,

+    Xic		 ic,

+    int		 mode,

+    CARD32	 idx)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    CARD32	*buf_l = (CARD32 *)&buf[XIM_HEADER_SIZE];

+    CARD32	 reply32[BUFSIZE/4];

+    char	*reply = (char *)reply32;

+    XPointer	 preply;

+    int		 buf_size;

+    int		 ret_code;

+    INT16	 len;

+    EVENTMASK	 mask = _XimGetWindowEventmask(ic);

+

+    buf_s[0] = im->private.proto.imid;	/* imid */

+    buf_s[1] = ic->private.proto.icid;	/* icid */

+    buf_l[1] = mode;			/* flag */

+    buf_l[2] = idx;			/* index of keys list */

+    buf_l[3] = mask;			/* select-event-mask */

+

+    len = sizeof(CARD16)		/* sizeof imid */

+	+ sizeof(CARD16)		/* sizeof icid */

+	+ sizeof(CARD32)		/* sizeof flag */

+	+ sizeof(CARD32)		/* sizeof index of key list */

+	+ sizeof(EVENTMASK);		/* sizeof select-event-mask */

+

+    _XimSetHeader((XPointer)buf, XIM_TRIGGER_NOTIFY, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    buf_size = BUFSIZE;

+    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+				_XimTriggerNotifyCheck, (XPointer)ic);

+    if(ret_code == XIM_TRUE) {

+	preply = reply;

+    } else if(ret_code == XIM_OVERFLOW) {

+	if(len <= 0) {

+	    preply = reply;

+	} else {

+	    buf_size = len;

+	    preply = (XPointer)Xmalloc(len);

+	    ret_code = _XimRead(im, &len, (XPointer)reply, buf_size,

+				_XimTriggerNotifyCheck, (XPointer)ic);

+	    if(ret_code != XIM_TRUE) {

+		Xfree(preply);

+		return False;

+	    }

+	}

+    } else {

+	return False;

+    }

+    buf_s = (CARD16 *)((char *)preply + XIM_HEADER_SIZE);

+    if (*((CARD8 *)preply) == XIM_ERROR) {

+	_XimProcError(im, 0, (XPointer)&buf_s[3]);

+	if(reply != preply)

+	    Xfree(preply);

+	return False;

+    }

+    if(reply != preply)

+	Xfree(preply);

+    return True;

+}

+

+Private Bool

+_XimRegCommitInfo(

+    Xic			 ic,

+    char		*string,

+    int			 string_len,

+    KeySym		*keysym,

+    int			 keysym_len)

+{

+    XimCommitInfo	info;

+

+    if (!(info = (XimCommitInfo)Xmalloc(sizeof(XimCommitInfoRec))))

+	return False;

+    info->string	= string;

+    info->string_len	= string_len;

+    info->keysym	= keysym;

+    info->keysym_len	= keysym_len;

+    info->next = ic->private.proto.commit_info;

+    ic->private.proto.commit_info = info;

+    return True;

+}

+

+Private void

+_XimUnregCommitInfo(

+    Xic			ic)

+{

+    XimCommitInfo	info;

+

+    if (!(info = ic->private.proto.commit_info))

+	return;

+

+    if (info->string)

+	Xfree(info->string);

+    if (info->keysym)

+	Xfree(info->keysym);

+    ic->private.proto.commit_info = info->next;

+    Xfree(info);

+    return;

+}

+

+Public void

+_XimFreeCommitInfo(

+    Xic			ic)

+{

+    while (ic->private.proto.commit_info)

+	_XimUnregCommitInfo(ic);

+    return;

+}

+

+Private Bool

+_XimProcKeySym(

+    Xic			  ic,

+    CARD32		  sym,

+    KeySym		**xim_keysym,

+    int			 *xim_keysym_len)

+{

+    Xim			 im = (Xim)ic->core.im;

+

+    if (!(*xim_keysym = (KeySym *)Xmalloc(sizeof(KeySym)))) {

+	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);

+	return False;

+    }

+

+    **xim_keysym = (KeySym)sym;

+    *xim_keysym_len = 1;

+

+    return True;

+}

+

+Private Bool

+_XimProcCommit(

+    Xic		  ic,

+    BYTE	 *buf,

+    int		  len,

+    char	**xim_string,

+    int		 *xim_string_len)

+{

+    Xim		 im = (Xim)ic->core.im;

+    char	*string;

+

+    if (!(string = (char *)Xmalloc(len + 1))) {

+	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);

+	return False;

+    }

+

+    (void)memcpy(string, (char *)buf, len);

+    string[len] = '\0';

+

+    *xim_string = string;

+    *xim_string_len = len;

+    return True;

+}

+

+Private Bool

+_XimCommitRecv(

+    Xim		 im,

+    Xic		 ic,

+    XPointer	 buf)

+{

+    CARD16	*buf_s = (CARD16 *)buf;

+    BITMASK16	 flag = buf_s[0];

+    XKeyEvent	 ev;

+    char	*string = NULL;

+    int		 string_len = 0;

+    KeySym	*keysym = NULL;

+    int		 keysym_len = 0;

+

+    if ((flag & XimLookupBoth) == XimLookupChars) {

+	if (!(_XimProcCommit(ic, (BYTE *)&buf_s[2],

+			 		(int)buf_s[1], &string, &string_len)))

+	    return False;

+

+    } else if ((flag & XimLookupBoth) == XimLookupKeySym) {

+	if (!(_XimProcKeySym(ic, *(CARD32 *)&buf_s[2], &keysym, &keysym_len)))

+	    return False;

+

+    } else if ((flag & XimLookupBoth) == XimLookupBoth) {

+	if (!(_XimProcKeySym(ic, *(CARD32 *)&buf_s[2], &keysym, &keysym_len)))

+	    return False;

+

+	if (!(_XimProcCommit(ic, (BYTE *)&buf_s[5],

+					(int)buf_s[4], &string, &string_len))) {

+	    Xfree(keysym);

+	    return False;

+	}

+    }

+

+    if (!(_XimRegCommitInfo(ic, string, string_len, keysym, keysym_len))) {

+	if (string)

+	    Xfree(string);

+	if (keysym)

+	    Xfree(keysym);

+	_XimError(im, ic, XIM_BadAlloc, (INT16)0, (CARD16)0, (char *)NULL);

+	return False;

+    }

+

+    (void)_XimRespSyncReply(ic, flag);

+

+    MARK_FABLICATED(ic);

+

+    ev.type = KeyPress;

+    ev.send_event = False;

+    ev.display = im->core.display;

+    ev.window = ic->core.focus_window;

+    ev.keycode = 0;

+    ev.state = 0;

+

+    XPutBackEvent(im->core.display, (XEvent *)&ev);

+

+    return True;

+}

+

+Public Bool

+_XimCommitCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    XIMID        imid = buf_s[0];

+    XICID        icid = buf_s[1];

+    Xim		 im = (Xim)call_data;

+    Xic		 ic;

+

+    if ((imid == im->private.proto.imid)

+     && (ic = _XimICOfXICID(im, icid))) {

+	(void)_XimCommitRecv(im, ic, (XPointer)&buf_s[2]);

+	return True;

+    }

+    return False;

+}

+

+Public void

+_XimProcError(

+    Xim		 im,

+    Xic		 ic,

+    XPointer	 data)

+{

+    return;

+}

+

+Public Bool

+_XimErrorCallback(

+    Xim		 xim,

+    INT16	 len,

+    XPointer	 data,

+    XPointer	 call_data)

+{

+    CARD16	*buf_s = (CARD16 *)((CARD8 *)data + XIM_HEADER_SIZE);

+    BITMASK16	 flag = buf_s[2];

+    XIMID        imid;

+    XICID        icid;

+    Xim		 im = (Xim)call_data;

+    Xic		 ic = NULL;

+

+    if (flag & XIM_IMID_VALID) {

+	imid = buf_s[0];

+	if (imid != im->private.proto.imid)

+	    return False;

+    }

+    if (flag & XIM_ICID_VALID) {

+	icid = buf_s[1];

+	if (!(ic = _XimICOfXICID(im, icid)))

+	    return False;

+    }

+    _XimProcError(im, ic, (XPointer)&buf_s[3]);

+

+    return True;

+}

+

+Public Bool

+_XimError(

+    Xim		 im,

+    Xic		 ic,

+    CARD16	 error_code,

+    INT16	 detail_length,

+    CARD16	 type,

+    char	*detail)

+{

+    CARD32	 buf32[BUFSIZE/4];

+    CARD8	*buf = (CARD8 *)buf32;

+    CARD16	*buf_s = (CARD16 *)&buf[XIM_HEADER_SIZE];

+    INT16	 len = 0;

+

+    buf_s[0] = im->private.proto.imid;	/* imid */

+    buf_s[2] = XIM_IMID_VALID;		/* flag */

+    if (ic) {

+    	buf_s[1] = ic->private.proto.icid;	/* icid */

+	buf_s[2] |= XIM_ICID_VALID;		/* flag */

+    }

+    buf_s[3] = error_code;			/* Error Code */

+    buf_s[4] = detail_length;			/* length of error detail */

+    buf_s[5] = type;				/* type of error detail */

+

+    if (detail_length && detail) {

+	len = detail_length;

+	memcpy((char *)&buf_s[6], detail, len);

+	XIM_SET_PAD(&buf_s[6], len);

+    }

+

+    len += sizeof(CARD16)		/* sizeof imid */

+	 + sizeof(CARD16)		/* sizeof icid */

+	 + sizeof(BITMASK16)		/* sizeof flag */

+	 + sizeof(CARD16)		/* sizeof error_code */

+	 + sizeof(INT16)		/* sizeof length of detail */

+	 + sizeof(CARD16);		/* sizeof type */

+

+    _XimSetHeader((XPointer)buf, XIM_ERROR, 0, &len);

+    if (!(_XimWrite(im, len, (XPointer)buf)))

+	return False;

+    _XimFlush(im);

+    return True;

+}

+

+Private int

+_Ximctsconvert(

+    XlcConv	 conv,

+    char	*from,

+    int		 from_len,

+    char	*to,

+    int		 to_len,

+    Status	*state)

+{

+    int		 from_left;

+    int		 to_left;

+    int		 from_savelen;

+    int		 to_savelen;

+    int		 from_cnvlen;

+    int		 to_cnvlen;

+    char	*from_buf;

+    char	*to_buf;

+    char	 scratchbuf[BUFSIZ];

+    Status	 tmp_state;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (!conv || !from || !from_len) {

+	*state = XLookupNone;

+	return 0;

+    }

+

+    /* Reset the converter.  The CompoundText at 'from' starts in

+       initial state.  */

+    _XlcResetConverter(conv);

+

+    from_left = from_len;

+    to_left = BUFSIZ;

+    from_cnvlen = 0;

+    to_cnvlen = 0;

+    for (;;) {

+	from_buf = &from[from_cnvlen];

+	from_savelen = from_left;

+	to_buf = &scratchbuf[to_cnvlen];

+	to_savelen = to_left;

+	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,

+				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {

+	    *state = XLookupNone;

+	    return 0;

+	}

+	from_cnvlen += (from_savelen - from_left);

+	to_cnvlen += (to_savelen - to_left);

+	if (from_left == 0) {

+	    if (!to_cnvlen) {

+		*state = XLookupNone;

+		return 0;

+           }

+	   break;

+	}

+    }

+

+    if (!to || !to_len || (to_len < to_cnvlen)) {

+       *state = XBufferOverflow;

+    } else {

+       memcpy(to, scratchbuf, to_cnvlen);

+       *state = XLookupChars;

+    }

+    return to_cnvlen;

+}

+

+Public int

+_Ximctstombs(XIM xim, char *from, int from_len,

+	     char *to, int to_len, Status *state)

+{

+    return _Ximctsconvert(((Xim)xim)->private.proto.ctom_conv,

+			  from, from_len, to, to_len, state);

+}

+

+Public int

+_Ximctstowcs(

+    XIM		 xim,

+    char	*from,

+    int		 from_len,

+    wchar_t	*to,

+    int		 to_len,

+    Status	*state)

+{

+    Xim		 im = (Xim)xim;

+    XlcConv	 conv = im->private.proto.ctow_conv;

+    int		 from_left;

+    int		 to_left;

+    int		 from_savelen;

+    int		 to_savelen;

+    int		 from_cnvlen;

+    int		 to_cnvlen;

+    char	*from_buf;

+    wchar_t	*to_buf;

+    wchar_t	 scratchbuf[BUFSIZ];

+    Status	 tmp_state;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (!conv || !from || !from_len) {

+	*state = XLookupNone;

+	return 0;

+    }

+

+    /* Reset the converter.  The CompoundText at 'from' starts in

+       initial state.  */

+    _XlcResetConverter(conv);

+

+    from_left = from_len;

+    to_left = BUFSIZ;

+    from_cnvlen = 0;

+    to_cnvlen = 0;

+    for (;;) {

+	from_buf = &from[from_cnvlen];

+       from_savelen = from_left;

+       to_buf = &scratchbuf[to_cnvlen];

+       to_savelen = to_left;

+	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,

+				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {

+	    *state = XLookupNone;

+	    return 0;

+	}

+	from_cnvlen += (from_savelen - from_left);

+       to_cnvlen += (to_savelen - to_left);

+	if (from_left == 0) {

+           if (!to_cnvlen){

+		*state = XLookupNone;

+               return 0;

+           }

+	    break;

+	}

+    }

+

+    if (!to || !to_len || (to_len < to_cnvlen)) {

+       *state = XBufferOverflow;

+    } else {

+       memcpy(to, scratchbuf, to_cnvlen * sizeof(wchar_t));

+       *state = XLookupChars;

+    }

+    return to_cnvlen;

+}

+

+Public int

+_Ximctstoutf8(

+    XIM		 xim,

+    char	*from,

+    int		 from_len,

+    char	*to,

+    int		 to_len,

+    Status	*state)

+{

+    return _Ximctsconvert(((Xim)xim)->private.proto.ctoutf8_conv,

+			  from, from_len, to, to_len, state);

+}

+

+Public int

+_XimProtoMbLookupString(

+    XIC			 xic,

+    XKeyEvent		*ev,

+    char		*buffer,

+    int			 bytes,

+    KeySym		*keysym,

+    Status		*state)

+{

+    Xic			 ic = (Xic)xic;

+    Xim			 im = (Xim)ic->core.im;

+    int			 ret;

+    Status		 tmp_state;

+    XimCommitInfo	 info;

+

+    if (!IS_SERVER_CONNECTED(im))

+	return 0;

+

+    if (!state)

+	state = &tmp_state;

+

+    if ((ev->type == KeyPress) && (ev->keycode == 0)) { /* Filter function */

+	if (!(info = ic->private.proto.commit_info)) {

+	    *state = XLookupNone;

+	    return 0;

+	}

+

+	ret = im->methods->ctstombs((XIM)im, info->string,

+			 	info->string_len, buffer, bytes, state);

+	if (*state == XBufferOverflow)

+            return ret;

+	if (keysym && (info->keysym && *(info->keysym))) {

+	    *keysym = *(info->keysym);

+	    if (*state == XLookupChars)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupKeySym;

+	}

+	_XimUnregCommitInfo(ic);

+

+    } else  if (ev->type == KeyPress) {

+	ret = _XimLookupMBText(ic, ev, buffer, bytes, keysym, NULL);

+	if (ret > 0) {

+           if (ret > bytes)

+               *state = XBufferOverflow;

+           else if (keysym && *keysym != NoSymbol)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupChars;

+	} else {

+	    if (keysym && *keysym != NoSymbol)

+		*state = XLookupKeySym;

+	    else

+		*state = XLookupNone;

+	}

+    } else {

+	*state = XLookupNone;

+	ret = 0;

+    }

+

+    return ret;

+}

+

+Public int

+_XimProtoWcLookupString(

+    XIC			 xic,

+    XKeyEvent		*ev,

+    wchar_t		*buffer,

+    int			 bytes,

+    KeySym		*keysym,

+    Status		*state)

+{

+    Xic			 ic = (Xic)xic;

+    Xim			 im = (Xim)ic->core.im;

+    int			 ret;

+    Status		 tmp_state;

+    XimCommitInfo	 info;

+

+    if (!IS_SERVER_CONNECTED(im))

+	return 0;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (ev->type == KeyPress && ev->keycode == 0) { /* Filter function */

+	if (!(info = ic->private.proto.commit_info)) {

+           *state = XLookupNone;

+	    return 0;

+	}

+

+	ret = im->methods->ctstowcs((XIM)im, info->string,

+			 	info->string_len, buffer, bytes, state);

+	if (*state == XBufferOverflow)

+           return ret;

+	if (keysym && (info->keysym && *(info->keysym))) {

+	    *keysym = *(info->keysym);

+	    if (*state == XLookupChars)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupKeySym;

+	}

+	_XimUnregCommitInfo(ic);

+

+    } else if (ev->type == KeyPress) {

+	ret = _XimLookupWCText(ic, ev, buffer, bytes, keysym, NULL);

+	if (ret > 0) {

+           if (ret > bytes)

+               *state = XBufferOverflow;

+           else if (keysym && *keysym != NoSymbol)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupChars;

+	} else {

+	    if (keysym && *keysym != NoSymbol)

+		*state = XLookupKeySym;

+	    else

+		*state = XLookupNone;

+	}

+    } else {

+	*state = XLookupNone;

+	ret = 0;

+    }

+

+    return ret;

+}

+

+Public int

+_XimProtoUtf8LookupString(

+    XIC			 xic,

+    XKeyEvent		*ev,

+    char		*buffer,

+    int			 bytes,

+    KeySym		*keysym,

+    Status		*state)

+{

+    Xic			 ic = (Xic)xic;

+    Xim			 im = (Xim)ic->core.im;

+    int			 ret;

+    Status		 tmp_state;

+    XimCommitInfo	 info;

+

+    if (!IS_SERVER_CONNECTED(im))

+	return 0;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (ev->type == KeyPress && ev->keycode == 0) { /* Filter function */

+	if (!(info = ic->private.proto.commit_info)) {

+           *state = XLookupNone;

+	    return 0;

+	}

+

+	ret = im->methods->ctstoutf8((XIM)im, info->string,

+			 	info->string_len, buffer, bytes, state);

+	if (*state == XBufferOverflow)

+           return ret;

+	if (keysym && (info->keysym && *(info->keysym))) {

+	    *keysym = *(info->keysym);

+	    if (*state == XLookupChars)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupKeySym;

+	}

+	_XimUnregCommitInfo(ic);

+

+    } else if (ev->type == KeyPress) {

+	ret = _XimLookupUTF8Text(ic, ev, buffer, bytes, keysym, NULL);

+	if (ret > 0) {

+           if (ret > bytes)

+               *state = XBufferOverflow;

+           else if (keysym && *keysym != NoSymbol)

+		*state = XLookupBoth;

+	    else

+		*state = XLookupChars;

+	} else {

+	    if (keysym && *keysym != NoSymbol)

+		*state = XLookupKeySym;

+	    else

+		*state = XLookupNone;

+	}

+    } else {

+	*state = XLookupNone;

+	ret = 0;

+    }

+

+    return ret;

+}

diff --git a/libX11/modules/im/ximcp/imInt.c b/libX11/modules/im/ximcp/imInt.c
index 26f4991a2..e9371827d 100644
--- a/libX11/modules/im/ximcp/imInt.c
+++ b/libX11/modules/im/ximcp/imInt.c
@@ -1,263 +1,264 @@
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xatom.h>
-#include <X11/Xlib.h>
-#include <X11/Xmd.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-#include "XimImSw.h"
-
-Private Xim 		*_XimCurrentIMlist  = (Xim *)NULL;
-Private int		 _XimCurrentIMcount = 0;
-
-Private Bool
-_XimSetIMStructureList(
-    Xim		  im)
-{
-    register int  i;
-    Xim		 *xim;
-
-    if(!(_XimCurrentIMlist)) {
-	if(!(_XimCurrentIMlist = (Xim *)Xmalloc(sizeof(Xim))))
-	    return False;
-	_XimCurrentIMlist[0] = im;
-	_XimCurrentIMcount   = 1;
-    }
-    else {
-	for(i = 0; i < _XimCurrentIMcount; i++) {
-	    if(!( _XimCurrentIMlist[i])) {
-		_XimCurrentIMlist[i] = im;
-		break;
-	    }
-	}
-	if(i >= _XimCurrentIMcount) {
-	    if(!(xim = (Xim *)Xrealloc(_XimCurrentIMlist,
-					 ((i + 1) * sizeof(Xim)))))
-		return False;
-	    _XimCurrentIMlist			  = xim;
-	    _XimCurrentIMlist[_XimCurrentIMcount] = im;
-	    _XimCurrentIMcount++;
-	}
-    }
-    return True;
-}
-
-Public void
-_XimDestroyIMStructureList(Xim im)
-{
-    register int  i;
-
-    for(i = 0; i < _XimCurrentIMcount; i++) {
-	if(_XimCurrentIMlist[i] == im) {
-	    _XimCurrentIMlist[i] = NULL;
-	    break;
-	}
-    }
-    return;
-}
-
-Public void
-_XimServerDestroy(Xim im_2_destroy)
-{
-    register int  i;
-    Xim		  im;
-    XIC		  ic;
-
-    for(i = 0; i < _XimCurrentIMcount; i++) {
-	if(!(im = _XimCurrentIMlist[i]))
-	    continue;
-	/*
-	 * Only continue if this im is the one to be destroyed.
-	 */
-	if (im != im_2_destroy)
-	    continue;
-
-	if (im->core.destroy_callback.callback)
-	    (*im->core.destroy_callback.callback)((XIM)im,
-			im->core.destroy_callback.client_data, NULL);
-	for (ic = im->core.ic_chain; ic; ic = ic->core.next) {
-	    if (ic->core.destroy_callback.callback) {
-		(*ic->core.destroy_callback.callback)(ic,
-			ic->core.destroy_callback.client_data, NULL);
-	    }
-	}
-	_XimResetIMInstantiateCallback( im );
-	(void)im->methods->close((XIM)im);
-	Xfree(im);
-	_XimCurrentIMlist[i] = NULL;
-	return;
-    }
-}
-
-#ifdef XIM_CONNECTABLE
-Public void
-_XimServerReconectableDestroy(void)
-{
-    register int  i;
-    Xim		  im;
-    XIC		  ic;
-
-    for(i = 0; i < _XimCurrentIMcount; i++) {
-	if(!(im = _XimCurrentIMlist[i]))
-	    continue;
-
-	if (im->core.destroy_callback.callback)
-	    (*im->core.destroy_callback.callback)(im,
-			im->core.destroy_callback.client_data, NULL);
-	for (ic = im->core.ic_chain; ic; ic = ic->core.next) {
-	    if (ic->core.destroy_callback.callback) {
-		(*ic->core.destroy_callback.callback)(ic,
-			ic->core.destroy_callback.client_data, NULL);
-	    }
-	}
-	_XimResetIMInstantiateCallback( im );
-	(void)im->methods->close((XIM)im);
-    }
-    return;
-}
-#endif /* XIM_CONNECTABLE */
-
-Private const char *
-_XimStrstr(
-    register const char *src,
-    register const char *dest)
-{
-    int			 len;
-
-    len = strlen(dest);
-    while((src = strchr(src, *dest))) {
-	if(!strncmp(src, dest, len))
-	    return src;
-	src++;
-    }
-    return NULL;
-}
-
-Private char *
-_XimMakeImName(
-    XLCd	   lcd)
-{
-    const char* begin = NULL;
-    const char* end = NULL;
-    char* ret = NULL;
-    const char* ximmodifier = XIMMODIFIER;
-
-    if(lcd->core->modifiers != NULL && *lcd->core->modifiers != '\0') {
-	begin = _XimStrstr(lcd->core->modifiers, ximmodifier);
-	if (begin != NULL) {
-	    end = begin += strlen(ximmodifier);
-	    while (*end && *end != '@')
-		end++;
-	}
-    }
-    ret = Xmalloc(end - begin + 1);
-    if (ret != NULL) {
-	if (begin != NULL && end != NULL) {
-	    (void)strncpy(ret, begin, end - begin);
-	    ret[end - begin] = '\0';
-	} else {
-	    ret[0] = '\0';
-	}
-    }
-
-    return ret;
-}
-
-Public XIM
-_XimOpenIM(
-    XLCd		 lcd,
-    Display		*dpy,
-    XrmDatabase		 rdb,
-    char		*res_name,
-    char		*res_class)
-{
-    Xim			 im;
-    register int	 i;
-
-    if (!(im = Xcalloc(1, sizeof(XimRec))))
-	return (XIM)NULL;
-
-    im->core.lcd       = lcd;
-    im->core.ic_chain  = (XIC)NULL;
-    im->core.display   = dpy;
-    im->core.rdb       = rdb;
-    im->core.res_name  = NULL;
-    im->core.res_class = NULL;
-    if((res_name != NULL) && (*res_name != '\0')){
-	if(!(im->core.res_name  = strdup(res_name)))
-	    goto Error1;
-    }
-    if((res_class != NULL) && (*res_class != '\0')){
-	if(!(im->core.res_class = strdup(res_class)))
-	    goto Error2;
-    }
-    if(!(im->core.im_name = _XimMakeImName(lcd)))
-	goto Error3;
-
-    for(i= 0; ; i++) {
-	if(_XimImSportRec[i].checkprocessing(im)) {
-	    if(!(_XimImSportRec[i].im_open(im)))
-		goto Error4;
-	    if(!_XimSetIMStructureList(im))
-		goto Error4;
-	    return (XIM)im;
-	}
-    }
-
-Error4 :
-    _XimImSportRec[i].im_free(im);
-    Xfree(im);
-    return NULL;
-Error3 :
-    if(im->core.im_name)
-	Xfree(im->core.im_name);
-Error2:
-    if(im->core.res_class)
-	Xfree(im->core.res_class);
-Error1:
-    if(im->core.res_name)
-	Xfree(im->core.res_name);
-    Xfree(im);
-    return NULL;
-}
-
-Public Bool
-_XInitIM(XLCd lcd)
-{
-    if(lcd == (XLCd)NULL)
-	return False;
-    lcd->methods->open_im = _XimOpenIM;
-    lcd->methods->register_callback = _XimRegisterIMInstantiateCallback;
-    lcd->methods->unregister_callback = _XimUnRegisterIMInstantiateCallback;
-    return True;
-}
+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <unistd.h>

+#include <X11/Xatom.h>

+#include <X11/Xlib.h>

+#include <X11/Xmd.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+#include "XimImSw.h"

+

+Private Xim 		*_XimCurrentIMlist  = (Xim *)NULL;

+Private int		 _XimCurrentIMcount = 0;

+

+Private Bool

+_XimSetIMStructureList(

+    Xim		  im)

+{

+    register int  i;

+    Xim		 *xim;

+

+    if(!(_XimCurrentIMlist)) {

+	if(!(_XimCurrentIMlist = (Xim *)Xmalloc(sizeof(Xim))))

+	    return False;

+	_XimCurrentIMlist[0] = im;

+	_XimCurrentIMcount   = 1;

+    }

+    else {

+	for(i = 0; i < _XimCurrentIMcount; i++) {

+	    if(!( _XimCurrentIMlist[i])) {

+		_XimCurrentIMlist[i] = im;

+		break;

+	    }

+	}

+	if(i >= _XimCurrentIMcount) {

+	    if(!(xim = (Xim *)Xrealloc(_XimCurrentIMlist,

+					 ((i + 1) * sizeof(Xim)))))

+		return False;

+	    _XimCurrentIMlist			  = xim;

+	    _XimCurrentIMlist[_XimCurrentIMcount] = im;

+	    _XimCurrentIMcount++;

+	}

+    }

+    return True;

+}

+

+Public void

+_XimDestroyIMStructureList(Xim im)

+{

+    register int  i;

+

+    for(i = 0; i < _XimCurrentIMcount; i++) {

+	if(_XimCurrentIMlist[i] == im) {

+	    _XimCurrentIMlist[i] = NULL;

+	    break;

+	}

+    }

+    return;

+}

+

+Public void

+_XimServerDestroy(Xim im_2_destroy)

+{

+    register int  i;

+    Xim		  im;

+    XIC		  ic;

+

+    for(i = 0; i < _XimCurrentIMcount; i++) {

+	if(!(im = _XimCurrentIMlist[i]))

+	    continue;

+	/*

+	 * Only continue if this im is the one to be destroyed.

+	 */

+	if (im != im_2_destroy)

+	    continue;

+

+	if (im->core.destroy_callback.callback)

+	    (*im->core.destroy_callback.callback)((XIM)im,

+			im->core.destroy_callback.client_data, NULL);

+	for (ic = im->core.ic_chain; ic; ic = ic->core.next) {

+	    if (ic->core.destroy_callback.callback) {

+		(*ic->core.destroy_callback.callback)(ic,

+			ic->core.destroy_callback.client_data, NULL);

+	    }

+	}

+	_XimResetIMInstantiateCallback( im );

+	(void)im->methods->close((XIM)im);

+	Xfree(im);

+	_XimCurrentIMlist[i] = NULL;

+	return;

+    }

+}

+

+#ifdef XIM_CONNECTABLE

+Public void

+_XimServerReconectableDestroy(void)

+{

+    register int  i;

+    Xim		  im;

+    XIC		  ic;

+

+    for(i = 0; i < _XimCurrentIMcount; i++) {

+	if(!(im = _XimCurrentIMlist[i]))

+	    continue;

+

+	if (im->core.destroy_callback.callback)

+	    (*im->core.destroy_callback.callback)(im,

+			im->core.destroy_callback.client_data, NULL);

+	for (ic = im->core.ic_chain; ic; ic = ic->core.next) {

+	    if (ic->core.destroy_callback.callback) {

+		(*ic->core.destroy_callback.callback)(ic,

+			ic->core.destroy_callback.client_data, NULL);

+	    }

+	}

+	_XimResetIMInstantiateCallback( im );

+	(void)im->methods->close((XIM)im);

+    }

+    return;

+}

+#endif /* XIM_CONNECTABLE */

+

+Private const char *

+_XimStrstr(

+    register const char *src,

+    register const char *dest)

+{

+    int			 len;

+

+    len = strlen(dest);

+    while((src = strchr(src, *dest))) {

+	if(!strncmp(src, dest, len))

+	    return src;

+	src++;

+    }

+    return NULL;

+}

+

+Private char *

+_XimMakeImName(

+    XLCd	   lcd)

+{

+    const char* begin = NULL;

+    const char* end = NULL;

+    char* ret = NULL;

+    const char* ximmodifier = XIMMODIFIER;

+

+    if(lcd->core->modifiers != NULL && *lcd->core->modifiers != '\0') {

+	begin = _XimStrstr(lcd->core->modifiers, ximmodifier);

+	if (begin != NULL) {

+	    end = begin += strlen(ximmodifier);

+	    while (*end && *end != '@')

+		end++;

+	}

+    }

+    ret = Xmalloc(end - begin + 1);

+    if (ret != NULL) {

+	if (begin != NULL && end != NULL) {

+	    (void)strncpy(ret, begin, end - begin);

+	    ret[end - begin] = '\0';

+	} else {

+	    ret[0] = '\0';

+	}

+    }

+

+    return ret;

+}

+

+Public XIM

+_XimOpenIM(

+    XLCd		 lcd,

+    Display		*dpy,

+    XrmDatabase		 rdb,

+    char		*res_name,

+    char		*res_class)

+{

+    Xim			 im;

+    register int	 i;

+

+    if (!(im = Xcalloc(1, sizeof(XimRec))))

+	return (XIM)NULL;

+

+    im->core.lcd       = lcd;

+    im->core.ic_chain  = (XIC)NULL;

+    im->core.display   = dpy;

+    im->core.rdb       = rdb;

+    im->core.res_name  = NULL;

+    im->core.res_class = NULL;

+    if((res_name != NULL) && (*res_name != '\0')){

+	if(!(im->core.res_name  = strdup(res_name)))

+	    goto Error1;

+    }

+    if((res_class != NULL) && (*res_class != '\0')){

+	if(!(im->core.res_class = strdup(res_class)))

+	    goto Error2;

+    }

+    if(!(im->core.im_name = _XimMakeImName(lcd)))

+	goto Error3;

+

+    for(i= 0; ; i++) {

+	if(_XimImSportRec[i].checkprocessing(im)) {

+	    if(!(_XimImSportRec[i].im_open(im)))

+		goto Error4;

+	    if(!_XimSetIMStructureList(im))

+		goto Error4;

+	    return (XIM)im;

+	}

+    }

+

+Error4 :

+    _XimImSportRec[i].im_free(im);

+    Xfree(im);

+    return NULL;

+Error3 :

+    if(im->core.im_name)

+	Xfree(im->core.im_name);

+Error2:

+    if(im->core.res_class)

+	Xfree(im->core.res_class);

+Error1:

+    if(im->core.res_name)

+	Xfree(im->core.res_name);

+    Xfree(im);

+    return NULL;

+}

+

+Public Bool

+_XInitIM(XLCd lcd)

+{

+    if(lcd == (XLCd)NULL)

+	return False;

+    lcd->methods->open_im = _XimOpenIM;

+    lcd->methods->register_callback = _XimRegisterIMInstantiateCallback;

+    lcd->methods->unregister_callback = _XimUnRegisterIMInstantiateCallback;

+    return True;

+}

diff --git a/libX11/modules/im/ximcp/imLcFlt.c b/libX11/modules/im/ximcp/imLcFlt.c
index 06aa9980a..7ab56f8a1 100644
--- a/libX11/modules/im/ximcp/imLcFlt.c
+++ b/libX11/modules/im/ximcp/imLcFlt.c
@@ -1,125 +1,125 @@
-/******************************************************************
-
-              Copyright 1992 by Fuji Xerox Co., Ltd.
-              Copyright 1992, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of Fuji Xerox,
-FUJITSU LIMITED not be used in advertising or publicity pertaining
-to distribution of the software without specific, written prior
-permission. Fuji Xerox, FUJITSU LIMITED make no representations
-about the suitability of this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJI XEROX, FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH
-REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJI XEROX,
-FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA
-OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
-TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author   : Kazunori Nishihara	Fuji Xerox
-  Modifier : Takashi Fujiwara   FUJITSU LIMITED
-                                fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include <X11/keysym.h>
-#include "Xlcint.h"
-#include "Ximint.h"
-
-Bool
-_XimLocalFilter(Display *d, Window w, XEvent *ev, XPointer client_data)
-{
-    Xic		 ic = (Xic)client_data;
-    KeySym	 keysym;
-    static char	 buf[256];
-    DefTree	*b = ic->private.local.base.tree;
-    DTIndex	 t;
-    Bool	 braille = False;
-
-    if(ev->xkey.keycode == 0)
-	return (False);
-
-    XLookupString((XKeyEvent *)ev, buf, sizeof(buf), &keysym, NULL);
-
-    if(IsModifierKey(keysym))
-	return (False);
-
-    if(keysym >= XK_braille_dot_1 && keysym <= XK_braille_dot_8) {
-	if(ev->type == KeyPress) {
-	    ic->private.local.brl_pressed |=
-		1<<(keysym-XK_braille_dot_1);
-	    return(True);
-	} else {
-	    if(!ic->private.local.brl_committing
-		    || ev->xkey.time - ic->private.local.brl_release_start > 300) {
-	    	ic->private.local.brl_committing = ic->private.local.brl_pressed;
-		ic->private.local.brl_release_start = ev->xkey.time;
-	    }
-	    ic->private.local.brl_pressed &= ~(1<<(keysym-XK_braille_dot_1));
-	    if(!ic->private.local.brl_pressed && ic->private.local.brl_committing) {
-		/* Commited a braille pattern, let it go through compose tree */
-		keysym = XK_braille_blank | ic->private.local.brl_committing;
-		ev->type = KeyPress;
-		braille = True;
-	    } else {
-	        return(True);
-	    }
-	}
-    }
-
-    if(   (ev->type != KeyPress)
-       || (((Xim)ic->core.im)->private.local.top == 0 ) )
-	goto emit_braille;
-
-    for(t = ic->private.local.context; t; t = b[t].next) {
-	if(((ev->xkey.state & b[t].modifier_mask) == b[t].modifier) &&
-	   (keysym == b[t].keysym))
-	    break;
-    }
-
-    if(t) { /* Matched */
-	if(b[t].succession) { /* Intermediate */
-	    ic->private.local.context = b[t].succession;
-	    return(True);
-	} else { /* Terminate (reached to leaf) */
-	    ic->private.local.composed = t;
-	    ic->private.local.brl_committed = 0;
-	    /* return back to client KeyPressEvent keycode == 0 */
-	    ev->xkey.keycode = 0;
-	    XPutBackEvent(d, ev);
-	    /* initialize internal state for next key sequence */
-	    ic->private.local.context = ((Xim)ic->core.im)->private.local.top;
-	    return(True);
-	}
-    } else { /* Unmatched */
-	if(ic->private.local.context == ((Xim)ic->core.im)->private.local.top) {
-	    goto emit_braille;
-	}
-	/* Error (Sequence Unmatch occured) */
-	/* initialize internal state for next key sequence */
-	ic->private.local.context = ((Xim)ic->core.im)->private.local.top;
-	return(True);
-    }
-
-emit_braille:
-    if(braille) {
-	/* Braille pattern is not in compose tree, emit alone */
-	ic->private.local.brl_committed = ic->private.local.brl_committing;
-	ic->private.local.composed = 0;
-	ev->xkey.keycode = 0;
-	_XPutBackEvent(d, ev);
-	return(True);
-    }
-    return(False);
-}
+/******************************************************************

+

+              Copyright 1992 by Fuji Xerox Co., Ltd.

+              Copyright 1992, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of Fuji Xerox,

+FUJITSU LIMITED not be used in advertising or publicity pertaining

+to distribution of the software without specific, written prior

+permission. Fuji Xerox, FUJITSU LIMITED make no representations

+about the suitability of this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJI XEROX, FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH

+REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF

+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJI XEROX,

+FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL

+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA

+OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER

+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author   : Kazunori Nishihara	Fuji Xerox

+  Modifier : Takashi Fujiwara   FUJITSU LIMITED

+                                fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include <X11/keysym.h>

+#include "Xlcint.h"

+#include "Ximint.h"

+

+Bool

+_XimLocalFilter(Display *d, Window w, XEvent *ev, XPointer client_data)

+{

+    Xic		 ic = (Xic)client_data;

+    KeySym	 keysym;

+    static char	 buf[256];

+    DefTree	*b = ic->private.local.base.tree;

+    DTIndex	 t;

+    Bool	 braille = False;

+

+    if(ev->xkey.keycode == 0)

+	return (False);

+

+    XLookupString((XKeyEvent *)ev, buf, sizeof(buf), &keysym, NULL);

+

+    if(IsModifierKey(keysym))

+	return (False);

+

+    if(keysym >= XK_braille_dot_1 && keysym <= XK_braille_dot_8) {

+	if(ev->type == KeyPress) {

+	    ic->private.local.brl_pressed |=

+		1<<(keysym-XK_braille_dot_1);

+	    return(True);

+	} else {

+	    if(!ic->private.local.brl_committing

+		    || ev->xkey.time - ic->private.local.brl_release_start > 300) {

+	    	ic->private.local.brl_committing = ic->private.local.brl_pressed;

+		ic->private.local.brl_release_start = ev->xkey.time;

+	    }

+	    ic->private.local.brl_pressed &= ~(1<<(keysym-XK_braille_dot_1));

+	    if(!ic->private.local.brl_pressed && ic->private.local.brl_committing) {

+		/* Commited a braille pattern, let it go through compose tree */

+		keysym = XK_braille_blank | ic->private.local.brl_committing;

+		ev->type = KeyPress;

+		braille = True;

+	    } else {

+	        return(True);

+	    }

+	}

+    }

+

+    if(   (ev->type != KeyPress)

+       || (((Xim)ic->core.im)->private.local.top == 0 ) )

+	goto emit_braille;

+

+    for(t = ic->private.local.context; t; t = b[t].next) {

+	if(((ev->xkey.state & b[t].modifier_mask) == b[t].modifier) &&

+	   (keysym == b[t].keysym))

+	    break;

+    }

+

+    if(t) { /* Matched */

+	if(b[t].succession) { /* Intermediate */

+	    ic->private.local.context = b[t].succession;

+	    return(True);

+	} else { /* Terminate (reached to leaf) */

+	    ic->private.local.composed = t;

+	    ic->private.local.brl_committed = 0;

+	    /* return back to client KeyPressEvent keycode == 0 */

+	    ev->xkey.keycode = 0;

+	    XPutBackEvent(d, ev);

+	    /* initialize internal state for next key sequence */

+	    ic->private.local.context = ((Xim)ic->core.im)->private.local.top;

+	    return(True);

+	}

+    } else { /* Unmatched */

+	if(ic->private.local.context == ((Xim)ic->core.im)->private.local.top) {

+	    goto emit_braille;

+	}

+	/* Error (Sequence Unmatch occured) */

+	/* initialize internal state for next key sequence */

+	ic->private.local.context = ((Xim)ic->core.im)->private.local.top;

+	return(True);

+    }

+

+emit_braille:

+    if(braille) {

+	/* Braille pattern is not in compose tree, emit alone */

+	ic->private.local.brl_committed = ic->private.local.brl_committing;

+	ic->private.local.composed = 0;

+	ev->xkey.keycode = 0;

+	_XPutBackEvent(d, ev);

+	return(True);

+    }

+    return(False);

+}

diff --git a/libX11/modules/im/ximcp/imLcIc.c b/libX11/modules/im/ximcp/imLcIc.c
index 49338853c..5cdd7d59d 100644
--- a/libX11/modules/im/ximcp/imLcIc.c
+++ b/libX11/modules/im/ximcp/imLcIc.c
@@ -1,199 +1,199 @@
-/******************************************************************
-
-                Copyright 1992,1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xlib.h>
-#include <X11/Xmd.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-
-Private void
-_XimLocalUnSetFocus(
-    XIC	 xic)
-{
-    Xic  ic = (Xic)xic;
-    ((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;
-
-    if (ic->core.focus_window)
-	_XUnregisterFilter(ic->core.im->core.display,
-			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);
-    return;
-}
-
-Private void
-_XimLocalDestroyIC(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-
-    if(((Xim)ic->core.im)->private.local.current_ic == (XIC)ic) {
-	((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;
-    }
-    if (ic->core.focus_window)
-	_XUnregisterFilter(ic->core.im->core.display,
-			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);
-    if(ic->private.local.ic_resources) {
-	Xfree(ic->private.local.ic_resources);
-	ic->private.local.ic_resources = NULL;
-    }
-    return;
-}
-
-Private void
-_XimLocalSetFocus(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-    XIC	 current_ic = ((Xim)ic->core.im)->private.local.current_ic;
-
-    if (current_ic == (XIC)ic)
-	return;
-
-    if (current_ic != (XIC)NULL) {
-	_XimLocalUnSetFocus(current_ic);
-    }
-    ((Xim)ic->core.im)->private.local.current_ic = (XIC)ic;
-
-    if (ic->core.focus_window)
-	_XRegisterFilterByType(ic->core.im->core.display,
-			ic->core.focus_window, KeyPress, KeyRelease,
-			_XimLocalFilter, (XPointer)ic);
-    return;
-}
-
-Private void
-_XimLocalReset(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-    ic->private.local.composed       = 0;
-    ic->private.local.context        = ((Xim)ic->core.im)->private.local.top;
-    ic->private.local.brl_pressed    = 0;
-    ic->private.local.brl_committing = 0;
-    ic->private.local.brl_committed  = 0;
-}
-
-Private char *
-_XimLocalMbReset(
-    XIC	 xic)
-{
-    _XimLocalReset(xic);
-    return (char *)NULL;
-}
-
-Private wchar_t *
-_XimLocalWcReset(
-    XIC	 xic)
-{
-    _XimLocalReset(xic);
-    return (wchar_t *)NULL;
-}
-
-Private XICMethodsRec Local_ic_methods = {
-    _XimLocalDestroyIC, 	/* destroy */
-    _XimLocalSetFocus,  	/* set_focus */
-    _XimLocalUnSetFocus,	/* unset_focus */
-    _XimLocalSetICValues,	/* set_values */
-    _XimLocalGetICValues,	/* get_values */
-    _XimLocalMbReset,		/* mb_reset */
-    _XimLocalWcReset,		/* wc_reset */
-    _XimLocalMbReset,		/* utf8_reset */
-    _XimLocalMbLookupString,	/* mb_lookup_string */
-    _XimLocalWcLookupString,	/* wc_lookup_string */
-    _XimLocalUtf8LookupString	/* utf8_lookup_string */
-};
-
-Public XIC
-_XimLocalCreateIC(
-    XIM			 im,
-    XIMArg		*values)
-{
-    Xic			 ic;
-    XimDefICValues	 ic_values;
-    XIMResourceList	 res;
-    unsigned int	 num;
-    int			 len;
-
-    if((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL) {
-	return ((XIC)NULL);
-    }
-
-    ic->methods = &Local_ic_methods;
-    ic->core.im = im;
-    ic->private.local.base           = ((Xim)im)->private.local.base;
-    ic->private.local.context        = ((Xim)im)->private.local.top;
-    ic->private.local.composed       = 0;
-    ic->private.local.brl_pressed    = 0;
-    ic->private.local.brl_committing = 0;
-    ic->private.local.brl_committed  = 0;
-
-    num = im->core.ic_num_resources;
-    len = sizeof(XIMResource) * num;
-    if((res = (XIMResourceList)Xmalloc(len)) == (XIMResourceList)NULL) {
-	goto Set_Error;
-    }
-    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);
-    ic->private.local.ic_resources     = res;
-    ic->private.local.ic_num_resources = num;
-
-    bzero((char *)&ic_values, sizeof(XimDefICValues));
-    if(_XimCheckLocalInputStyle(ic, (XPointer)&ic_values, values,
-				 im->core.styles, res, num) == False) {
-	goto Set_Error;
-    }
-
-    _XimSetICMode(res, num, ic_values.input_style);
-
-    if(_XimSetICValueData(ic, (XPointer)&ic_values,
-			ic->private.local.ic_resources,
-			ic->private.local.ic_num_resources,
-			values, XIM_CREATEIC, True)) {
-	goto Set_Error;
-    }
-    ic_values.filter_events = KeyPressMask | KeyReleaseMask;
-    _XimSetCurrentICValues(ic, &ic_values);
-    if(_XimSetICDefaults(ic, (XPointer)&ic_values,
-				XIM_SETICDEFAULTS, res, num) == False) {
-	goto Set_Error;
-    }
-    _XimSetCurrentICValues(ic, &ic_values);
-
-    return((XIC)ic);
-
-Set_Error :
-    if (ic->private.local.ic_resources) {
-	Xfree(ic->private.local.ic_resources);
-	ic->private.local.ic_resources = NULL;
-    }
-    Xfree(ic);
-    return((XIC)NULL);
-}
+/******************************************************************

+

+                Copyright 1992,1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/Xlib.h>

+#include <X11/Xmd.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+

+Private void

+_XimLocalUnSetFocus(

+    XIC	 xic)

+{

+    Xic  ic = (Xic)xic;

+    ((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;

+

+    if (ic->core.focus_window)

+	_XUnregisterFilter(ic->core.im->core.display,

+			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);

+    return;

+}

+

+Private void

+_XimLocalDestroyIC(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+

+    if(((Xim)ic->core.im)->private.local.current_ic == (XIC)ic) {

+	((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;

+    }

+    if (ic->core.focus_window)

+	_XUnregisterFilter(ic->core.im->core.display,

+			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);

+    if(ic->private.local.ic_resources) {

+	Xfree(ic->private.local.ic_resources);

+	ic->private.local.ic_resources = NULL;

+    }

+    return;

+}

+

+Private void

+_XimLocalSetFocus(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+    XIC	 current_ic = ((Xim)ic->core.im)->private.local.current_ic;

+

+    if (current_ic == (XIC)ic)

+	return;

+

+    if (current_ic != (XIC)NULL) {

+	_XimLocalUnSetFocus(current_ic);

+    }

+    ((Xim)ic->core.im)->private.local.current_ic = (XIC)ic;

+

+    if (ic->core.focus_window)

+	_XRegisterFilterByType(ic->core.im->core.display,

+			ic->core.focus_window, KeyPress, KeyRelease,

+			_XimLocalFilter, (XPointer)ic);

+    return;

+}

+

+Private void

+_XimLocalReset(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+    ic->private.local.composed       = 0;

+    ic->private.local.context        = ((Xim)ic->core.im)->private.local.top;

+    ic->private.local.brl_pressed    = 0;

+    ic->private.local.brl_committing = 0;

+    ic->private.local.brl_committed  = 0;

+}

+

+Private char *

+_XimLocalMbReset(

+    XIC	 xic)

+{

+    _XimLocalReset(xic);

+    return (char *)NULL;

+}

+

+Private wchar_t *

+_XimLocalWcReset(

+    XIC	 xic)

+{

+    _XimLocalReset(xic);

+    return (wchar_t *)NULL;

+}

+

+Private XICMethodsRec Local_ic_methods = {

+    _XimLocalDestroyIC, 	/* destroy */

+    _XimLocalSetFocus,  	/* set_focus */

+    _XimLocalUnSetFocus,	/* unset_focus */

+    _XimLocalSetICValues,	/* set_values */

+    _XimLocalGetICValues,	/* get_values */

+    _XimLocalMbReset,		/* mb_reset */

+    _XimLocalWcReset,		/* wc_reset */

+    _XimLocalMbReset,		/* utf8_reset */

+    _XimLocalMbLookupString,	/* mb_lookup_string */

+    _XimLocalWcLookupString,	/* wc_lookup_string */

+    _XimLocalUtf8LookupString	/* utf8_lookup_string */

+};

+

+Public XIC

+_XimLocalCreateIC(

+    XIM			 im,

+    XIMArg		*values)

+{

+    Xic			 ic;

+    XimDefICValues	 ic_values;

+    XIMResourceList	 res;

+    unsigned int	 num;

+    int			 len;

+

+    if((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL) {

+	return ((XIC)NULL);

+    }

+

+    ic->methods = &Local_ic_methods;

+    ic->core.im = im;

+    ic->private.local.base           = ((Xim)im)->private.local.base;

+    ic->private.local.context        = ((Xim)im)->private.local.top;

+    ic->private.local.composed       = 0;

+    ic->private.local.brl_pressed    = 0;

+    ic->private.local.brl_committing = 0;

+    ic->private.local.brl_committed  = 0;

+

+    num = im->core.ic_num_resources;

+    len = sizeof(XIMResource) * num;

+    if((res = (XIMResourceList)Xmalloc(len)) == (XIMResourceList)NULL) {

+	goto Set_Error;

+    }

+    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);

+    ic->private.local.ic_resources     = res;

+    ic->private.local.ic_num_resources = num;

+

+    bzero((char *)&ic_values, sizeof(XimDefICValues));

+    if(_XimCheckLocalInputStyle(ic, (XPointer)&ic_values, values,

+				 im->core.styles, res, num) == False) {

+	goto Set_Error;

+    }

+

+    _XimSetICMode(res, num, ic_values.input_style);

+

+    if(_XimSetICValueData(ic, (XPointer)&ic_values,

+			ic->private.local.ic_resources,

+			ic->private.local.ic_num_resources,

+			values, XIM_CREATEIC, True)) {

+	goto Set_Error;

+    }

+    ic_values.filter_events = KeyPressMask | KeyReleaseMask;

+    _XimSetCurrentICValues(ic, &ic_values);

+    if(_XimSetICDefaults(ic, (XPointer)&ic_values,

+				XIM_SETICDEFAULTS, res, num) == False) {

+	goto Set_Error;

+    }

+    _XimSetCurrentICValues(ic, &ic_values);

+

+    return((XIC)ic);

+

+Set_Error :

+    if (ic->private.local.ic_resources) {

+	Xfree(ic->private.local.ic_resources);

+	ic->private.local.ic_resources = NULL;

+    }

+    Xfree(ic);

+    return((XIC)NULL);

+}

diff --git a/libX11/modules/im/ximcp/imLcIm.c b/libX11/modules/im/ximcp/imLcIm.c
index 904169830..44516e9ee 100644
--- a/libX11/modules/im/ximcp/imLcIm.c
+++ b/libX11/modules/im/ximcp/imLcIm.c
@@ -1,732 +1,732 @@
-/******************************************************************
-
-          Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-          Copyright 1993 by Digital Equipment Corporation
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the name of FUJITSU LIMITED and
-Digital Equipment Corporation not be used in advertising or publicity
-pertaining to distribution of the software without specific, written
-prior permission.  FUJITSU LIMITED and Digital Equipment Corporation
-makes no representations about the suitability of this software for
-any purpose.  It is provided "as is" without express or implied
-warranty.
-
-FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION DISCLAIM ALL
-WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION BE LIABLE FOR
-ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
-IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
-THIS SOFTWARE.
-
-  Author:    Takashi Fujiwara     FUJITSU LIMITED
-                               	  fujiwara@a80.tech.yk.fujitsu.co.jp
-  Modifier:  Franky Ling          Digital Equipment Corporation
-	                          frankyling@hgrd01.enet.dec.com
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-
-#include <X11/Xmd.h>
-#include <X11/Xatom.h>
-#include <X11/Xos.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "XlcPublic.h"
-#include "XlcPubI.h"
-#include "Ximint.h"
-#include <ctype.h>
-#include <assert.h>
-
-#ifdef COMPOSECACHE
-#  include <sys/types.h>
-#  include <sys/stat.h>
-#  include <sys/mman.h>
-#  include <langinfo.h>
-#endif
-
-
-#ifdef COMPOSECACHE
-
-/* include trailing '/' for cache directory, file prefix otherwise */
-#define XIM_GLOBAL_CACHE_DIR "/var/cache/libx11/compose/"
-#define XIM_HOME_CACHE_DIR   "/.compose-cache/"
-#define XIM_CACHE_MAGIC      ('X' | 'i'<<8 | 'm'<<16 | 'C'<<24)
-#define XIM_CACHE_VERSION    4
-#define XIM_CACHE_TREE_ALIGNMENT 4
-
-#define XIM_HASH_PRIME_1 13
-#define XIM_HASH_PRIME_2 1234096939
-
-typedef INT32 DTStructIndex;
-struct _XimCacheStruct {
-    INT32           id;
-    INT32           version;
-    DTStructIndex   tree;
-    DTStructIndex   mb;
-    DTStructIndex   wc;
-    DTStructIndex   utf8;
-    DTStructIndex   size;
-    DTIndex         top;
-    DTIndex         treeused;
-    DTCharIndex     mbused;
-    DTCharIndex     wcused;
-    DTCharIndex     utf8used;
-    char            fname[1];
-    /* char encoding[1] */
-};
-
-Private struct  _XimCacheStruct* _XimCache_mmap = NULL;
-Private DefTreeBase _XimCachedDefaultTreeBase;
-Private int     _XimCachedDefaultTreeRefcount = 0;
-
-#endif
-
-
-Public Bool
-_XimCheckIfLocalProcessing(Xim im)
-{
-    FILE        *fp;
-    char        *name;
-
-    if(strcmp(im->core.im_name, "") == 0) {
-	name = _XlcFileName(im->core.lcd, COMPOSE_FILE);
-	if (name != (char *)NULL) {
-	    fp = _XFopenFile (name, "r");
-	    Xfree(name);
-	    if (fp != (FILE *)NULL) {
-		fclose(fp);
-		return(True);
-	    }
-	}
-	return(False);
-    } else if(strcmp(im->core.im_name, "local") == 0 ||
-	      strcmp(im->core.im_name, "none" ) == 0 ) {
-	return(True);
-    }
-    return(False);
-}
-
-Private void
-XimFreeDefaultTree(
-    DefTreeBase *b)
-{
-    if (!b) return;
-    if (b->tree == NULL) return;
-#ifdef COMPOSECACHE
-    if (b->tree == _XimCachedDefaultTreeBase.tree) {
-        _XimCachedDefaultTreeRefcount--;
-        /* No deleting, it's a cache after all. */
-        return;
-    }
-#endif
-    Xfree (b->tree);
-    if (b->mb)    Xfree (b->mb);
-    if (b->wc)    Xfree (b->wc);
-    if (b->utf8)  Xfree (b->utf8);
-    b->tree = NULL;
-    b->mb   = NULL;
-    b->wc   = NULL;
-    b->utf8 = NULL;
-    b->treeused = b->treesize = 0;
-    b->mbused   = b->mbsize   = 0;
-    b->wcused   = b->wcsize   = 0;
-    b->utf8used = b->utf8size = 0;
-}
-
-Public void
-_XimLocalIMFree(
-    Xim		im)
-{
-    XimFreeDefaultTree(&im->private.local.base);
-    im->private.local.top = 0;
-
-    if(im->core.im_resources) {
-	Xfree(im->core.im_resources);
-	im->core.im_resources = NULL;
-    }
-    if(im->core.ic_resources) {
-	Xfree(im->core.ic_resources);
-	im->core.ic_resources = NULL;
-    }
-    if(im->core.im_values_list) {
-	Xfree(im->core.im_values_list);
-	im->core.im_values_list = NULL;
-    }
-    if(im->core.ic_values_list) {
-	Xfree(im->core.ic_values_list);
-	im->core.ic_values_list = NULL;
-    }
-    if(im->core.styles) {
-	Xfree(im->core.styles);
-	im->core.styles = NULL;
-    }
-    if(im->core.res_name) {
-	Xfree(im->core.res_name);
-	im->core.res_name = NULL;
-    }
-    if(im->core.res_class) {
-	Xfree(im->core.res_class);
-	im->core.res_class = NULL;
-    }
-    if(im->core.im_name) {
-	Xfree(im->core.im_name);
-	im->core.im_name = NULL;
-    }
-    if (im->private.local.ctom_conv) {
-	_XlcCloseConverter(im->private.local.ctom_conv);
-        im->private.local.ctom_conv = NULL;
-    }
-    if (im->private.local.ctow_conv) {
-	_XlcCloseConverter(im->private.local.ctow_conv);
-	im->private.local.ctow_conv = NULL;
-    }
-    if (im->private.local.ctoutf8_conv) {
-	_XlcCloseConverter(im->private.local.ctoutf8_conv);
-	im->private.local.ctoutf8_conv = NULL;
-    }
-    if (im->private.local.cstomb_conv) {
-	_XlcCloseConverter(im->private.local.cstomb_conv);
-        im->private.local.cstomb_conv = NULL;
-    }
-    if (im->private.local.cstowc_conv) {
-	_XlcCloseConverter(im->private.local.cstowc_conv);
-	im->private.local.cstowc_conv = NULL;
-    }
-    if (im->private.local.cstoutf8_conv) {
-	_XlcCloseConverter(im->private.local.cstoutf8_conv);
-	im->private.local.cstoutf8_conv = NULL;
-    }
-    if (im->private.local.ucstoc_conv) {
-	_XlcCloseConverter(im->private.local.ucstoc_conv);
-	im->private.local.ucstoc_conv = NULL;
-    }
-    if (im->private.local.ucstoutf8_conv) {
-	_XlcCloseConverter(im->private.local.ucstoutf8_conv);
-	im->private.local.ucstoutf8_conv = NULL;
-    }
-    return;
-}
-
-Private Status
-_XimLocalCloseIM(
-    XIM		xim)
-{
-    Xim		im = (Xim)xim;
-    XIC		ic;
-    XIC		next;
-
-    ic = im->core.ic_chain;
-    im->core.ic_chain = NULL;
-    while (ic) {
-	(*ic->methods->destroy) (ic);
-	next = ic->core.next;
-	Xfree ((char *) ic);
-	ic = next;
-    }
-    _XimLocalIMFree(im);
-    _XimDestroyIMStructureList(im);
-    return(True);
-}
-
-Public char *
-_XimLocalGetIMValues(
-    XIM			 xim,
-    XIMArg		*values)
-{
-    Xim			 im = (Xim)xim;
-    XimDefIMValues	 im_values;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    return(_XimGetIMValueData(im, (XPointer)&im_values, values,
-			im->core.im_resources, im->core.im_num_resources));
-}
-
-Public char *
-_XimLocalSetIMValues(
-    XIM			 xim,
-    XIMArg		*values)
-{
-    Xim			 im = (Xim)xim;
-    XimDefIMValues	 im_values;
-    char		*name = (char *)NULL;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    name = _XimSetIMValueData(im, (XPointer)&im_values, values,
-		im->core.im_resources, im->core.im_num_resources);
-    _XimSetCurrentIMValues(im, &im_values);
-    return(name);
-}
-
-
-#ifdef COMPOSECACHE
-
-Private Bool
-_XimReadCachedDefaultTree(
-    int          fd_cache,
-    const char  *name,
-    const char  *encoding,
-    DTStructIndex size)
-{
-    struct _XimCacheStruct* m;
-    int namelen = strlen (name) + 1;
-    int encodinglen = strlen (encoding) + 1;
-
-    m = mmap (NULL, size, PROT_READ, MAP_PRIVATE, fd_cache, 0);
-    if (m == NULL || m == MAP_FAILED)
-        return False;
-    assert (m->id == XIM_CACHE_MAGIC);
-    assert (m->version == XIM_CACHE_VERSION);
-    if (size != m->size ||
-	size < XOffsetOf (struct _XimCacheStruct, fname) + namelen + encodinglen) {
-	fprintf (stderr, "Ignoring broken XimCache %s [%s]\n", name, encoding);
-        munmap (m, size);
-        return False;
-    }
-    if (strncmp (name, m->fname, namelen) != 0) {
-	/* m->fname may *not* be terminated - but who cares here */
-	fprintf (stderr, "Filename hash clash - expected %s, got %s\n",
-		 name, m->fname);
-        munmap (m, size);
-        return False;
-    }
-    if (strncmp (encoding, m->fname + namelen, encodinglen) != 0) {
-	/* m->fname+namelen may *not* be terminated - but who cares here */
-	fprintf (stderr, "Enoding hash clash - expected %s, got %s\n",
-		 encoding, m->fname + namelen);
-        munmap (m, size);
-        return False;
-    }
-    _XimCache_mmap    = m;
-    _XimCachedDefaultTreeBase.tree = (DefTree *) (((char *) m) + m->tree);
-    _XimCachedDefaultTreeBase.mb   =             (((char *) m) + m->mb);
-    _XimCachedDefaultTreeBase.wc   = (wchar_t *) (((char *) m) + m->wc);
-    _XimCachedDefaultTreeBase.utf8 =             (((char *) m) + m->utf8);
-    _XimCachedDefaultTreeBase.treeused = m->treeused;
-    _XimCachedDefaultTreeBase.mbused   = m->mbused;
-    _XimCachedDefaultTreeBase.wcused   = m->wcused;
-    _XimCachedDefaultTreeBase.utf8used = m->utf8used;
-    /* treesize etc. is ignored because only used during parsing */
-    _XimCachedDefaultTreeRefcount = 0;
-/* fprintf (stderr, "read cached tree at %p: %s\n", (void *) m, name); */
-    return True;
-}
-
-Private unsigned int strToHash (
-    const char *name)
-{
-    unsigned int hash = 0;
-    while (*name)
-	hash = hash * XIM_HASH_PRIME_1 + *(unsigned const char *)name++;
-    return hash % XIM_HASH_PRIME_2;
-}
-
-
-/* Returns read-only fd of cache file, -1 if none.
- * Sets *res to cache filename if safe. Sets *size to file size of cache. */
-Private int _XimCachedFileName (
-    const char *dir, const char *name,
-    const char *intname, const char *encoding,
-    uid_t uid, int isglobal, char **res, off_t *size)
-{
-    struct stat st_name, st;
-    int    fd;
-    unsigned int len, hash, hash2;
-    struct _XimCacheStruct *m;
-    /* There are some races here with 'dir', but we are either in our own home
-     * or the global cache dir, and not inside some public writable dir */
-/* fprintf (stderr, "XimCachedFileName for dir %s name %s intname %s encoding %s uid %d\n", dir, name, intname, encoding, uid); */
-    if (stat (name, &st_name) == -1 || ! S_ISREG (st_name.st_mode)
-       || stat (dir, &st) == -1 || ! S_ISDIR (st.st_mode) || st.st_uid != uid
-       || (st.st_mode & 0022) != 0000) {
-       *res = NULL;
-       return -1;
-    }
-    len   = strlen (dir);
-    hash  = strToHash (intname);
-    hash2 = strToHash (encoding);
-    *res  = Xmalloc (len + 1 + 27 + 1);  /* Max VERSION 9999 */
-
-    if (len == 0 || dir [len-1] != '/')
-       sprintf (*res, "%s/%c%d_%03x_%08x_%08x", dir, _XimGetMyEndian(),
-		XIM_CACHE_VERSION, (unsigned int)sizeof (DefTree), hash, hash2);
-    else
-       sprintf (*res, "%s%c%d_%03x_%08x_%08x", dir, _XimGetMyEndian(),
-		XIM_CACHE_VERSION, (unsigned int)sizeof (DefTree), hash, hash2);
-
-/* fprintf (stderr, "-> %s\n", *res); */
-    if ( (fd = _XOpenFile (*res, O_RDONLY)) == -1)
-       return -1;
-
-    if (fstat (fd, &st) == -1) {
-       Xfree (*res);
-       *res = NULL;
-       close (fd);
-       return -1;
-    }
-    *size = st.st_size;
-
-    if (! S_ISREG (st.st_mode) || st.st_uid != uid
-       || (st.st_mode & 0022) != 0000 || st.st_mtime <= st_name.st_mtime
-       || (st.st_mtime < time (NULL) - 24*60*60 && ! isglobal)) {
-
-       close (fd);
-       if (unlink (*res) != 0) {
-           Xfree (*res);
-           *res = NULL;                /* cache is not safe */
-       }
-       return -1;
-    }
-
-    m = mmap (NULL, sizeof (struct _XimCacheStruct), PROT_READ, MAP_PRIVATE,
-	      fd, 0);
-    if (m == NULL || m == MAP_FAILED) {
-	close (fd);
-	Xfree (*res);
-	*res = NULL;
-        return -1;
-    }
-    if (*size < sizeof (struct _XimCacheStruct) || m->id != XIM_CACHE_MAGIC) {
-	munmap (m, sizeof (struct _XimCacheStruct));
-	close (fd);
-	fprintf (stderr, "Ignoring broken XimCache %s\n", *res);
-	Xfree (*res);
-	*res = NULL;
-        return -1;
-    }
-    if (m->version != XIM_CACHE_VERSION) {
-	munmap (m, sizeof (struct _XimCacheStruct));
-	close (fd);
-	if (unlink (*res) != 0) {
-	    Xfree (*res);
-	    *res = NULL;                /* cache is not safe */
-	}
-	return -1;
-    }
-    munmap (m, sizeof (struct _XimCacheStruct));
-
-    return fd;
-}
-
-
-Private Bool _XimLoadCache (
-    int         fd,
-    const char *name,
-    const char *encoding,
-    off_t       size,
-    Xim         im)
-{
-    if (_XimCache_mmap ||
-       _XimReadCachedDefaultTree (fd, name, encoding, size)) {
-       _XimCachedDefaultTreeRefcount++;
-       memcpy (&im->private.local.base, &_XimCachedDefaultTreeBase,
-	       sizeof (_XimCachedDefaultTreeBase));
-       im->private.local.top = _XimCache_mmap->top;
-       return True;
-    }
-
-    return False;
-}
-
-
-Private void
-_XimWriteCachedDefaultTree(
-    const char *name,
-    const char *encoding,
-    const char *cachename,
-    Xim                im)
-{
-    int   fd;
-    FILE *fp;
-    struct _XimCacheStruct *m;
-    int   msize = (XOffsetOf(struct _XimCacheStruct, fname)
-		   + strlen(name) + strlen(encoding) + 2
-		   + XIM_CACHE_TREE_ALIGNMENT-1) & -XIM_CACHE_TREE_ALIGNMENT;
-    DefTreeBase *b = &im->private.local.base;
-
-    if (! b->tree && ! (b->tree = Xmalloc (sizeof(DefTree))) )
-	return;
-    if (! b->mb   && ! (b->mb   = Xmalloc (1)) )
-	return;
-    if (! b->wc   && ! (b->wc   = Xmalloc (sizeof(wchar_t))) )
-	return;
-    if (! b->utf8 && ! (b->utf8 = Xmalloc (1)) )
-	return;
-
-    /* First entry is always unused */
-    memset (b->tree, 0, sizeof(DefTree));
-    b->mb[0]   = 0;
-    b->wc[0]   = 0;
-    b->utf8[0] = 0;
-
-    m = Xmalloc (msize);
-    memset (m, 0, msize);
-    m->id       = XIM_CACHE_MAGIC;
-    m->version  = XIM_CACHE_VERSION;
-    m->top      = im->private.local.top;
-    m->treeused = b->treeused;
-    m->mbused   = b->mbused;
-    m->wcused   = b->wcused;
-    m->utf8used = b->utf8used;
-    /* Tree first, then wide chars, then the rest due to alignment */
-    m->tree     = msize;
-    m->wc       = msize   + sizeof (DefTree) * m->treeused;
-    m->mb       = m->wc   + sizeof (wchar_t) * m->wcused;
-    m->utf8     = m->mb   +                    m->mbused;
-    m->size     = m->utf8 +                    m->utf8used;
-    strcpy (m->fname, name);
-    strcpy (m->fname+strlen(name)+1, encoding);
-
-    /* This STILL might be racy on NFS */
-    if ( (fd = _XOpenFileMode (cachename, O_WRONLY | O_CREAT | O_EXCL,
-			       0600)) < 0) {
-       Xfree(m);
-       return;
-    }
-    if (! (fp = fdopen (fd, "wb")) ) {
-       close (fd);
-       Xfree(m);
-       return;
-    }
-    fwrite (m, msize, 1, fp);
-    fwrite (im->private.local.base.tree, sizeof(DefTree), m->treeused, fp);
-    fwrite (im->private.local.base.wc,   sizeof(wchar_t), m->wcused,   fp);
-    fwrite (im->private.local.base.mb,   1,               m->mbused,   fp);
-    fwrite (im->private.local.base.utf8, 1,               m->utf8used, fp);
-    if (fclose (fp) != 0)
-	unlink (cachename);
-    _XimCache_mmap = m;
-    memcpy (&_XimCachedDefaultTreeBase, &im->private.local.base,
-	    sizeof (_XimCachedDefaultTreeBase));
-/* fprintf (stderr, "wrote tree %s size %ld to %s\n", name, m->size, cachename); */
-}
-
-#endif
-
-
-Private void
-_XimCreateDefaultTree(
-    Xim		im)
-{
-    FILE *fp = NULL;
-    char *name, *tmpname = NULL, *intname;
-    char *cachename = NULL;
-    /* Should use getpwent() instead of $HOME (cross-platform?) */
-    char *home = getenv("HOME");
-    char *cachedir = NULL;
-    char *tmpcachedir = NULL;
-    int   hl = home ? strlen (home) : 0;
-#ifdef COMPOSECACHE
-    const char *encoding = nl_langinfo (CODESET);
-    uid_t euid = geteuid ();
-    gid_t egid = getegid ();
-    int   cachefd = -1;
-    off_t size;
-#endif
-
-    name = getenv("XCOMPOSEFILE");
-    if (name == (char *) NULL) {
-    	if (home != (char *) NULL) {
-            tmpname = name = Xmalloc(hl + 10 + 1);
-            if (name != (char *) NULL) {
-		int fd;
-            	strcpy(name, home);
-            	strcpy(name + hl, "/.XCompose");
-		if ( (fd = _XOpenFile (name, O_RDONLY)) < 0) {
-		    Xfree (name);
-		    name = tmpname = NULL;
-		} else
-		    close (fd);
-            }
-        }
-    }
-
-    if (name == (char *) NULL) {
-        tmpname = name = _XlcFileName(im->core.lcd, COMPOSE_FILE);
-    }
-    intname = name;
-
-#ifdef COMPOSECACHE
-    if (getuid () == euid && getgid () == egid && euid != 0) {
-	char *c;
-	/* Usage: XCOMPOSECACHE=<cachedir>[=<filename>]
-	 * cachedir: directory of cache files
-	 * filename: internally used name for cache file */
-        cachedir = getenv("XCOMPOSECACHE");
-	if (cachedir && (c = strchr (cachedir, '='))) {
-	    tmpcachedir = strdup (cachedir);
-	    intname = tmpcachedir + (c-cachedir) + 1;
-	    tmpcachedir[c-cachedir] = '\0';
-	    cachedir = tmpcachedir;
-	}
-    }
-
-    if (! cachedir) {
-	cachefd = _XimCachedFileName (XIM_GLOBAL_CACHE_DIR, name, intname,
-				      encoding, 0, 1, &cachename, &size);
-	if (cachefd != -1) {
-	    if (_XimLoadCache (cachefd, intname, encoding, size, im)) {
-		if (tmpcachedir)
-		    Xfree  (tmpcachedir);
-		if (tmpname)
-		    Xfree (tmpname);
-		if (cachename)
-		    Xfree (cachename);
-		close (cachefd);
-		return;
-	    }
-	    close (cachefd);
-	}
-	if (cachename)
-	    Xfree (cachename);
-	cachename = NULL;
-    }
-
-    if (getuid () == euid && getgid () == egid && euid != 0 && home) {
-
-	if (! cachedir) {
-	    tmpcachedir = cachedir = Xmalloc (hl+strlen(XIM_HOME_CACHE_DIR)+1);
-	    strcpy (cachedir, home);
-	    strcat (cachedir, XIM_HOME_CACHE_DIR);
-	}
-	cachefd = _XimCachedFileName (cachedir, name, intname, encoding,
-				      euid, 0, &cachename, &size);
-	if (cachefd != -1) {
-	    if (_XimLoadCache (cachefd, intname, encoding, size, im)) {
-		if (tmpcachedir)
-		    Xfree  (tmpcachedir);
-		if (tmpname)
-		    Xfree (tmpname);
-		if (cachename)
-		    Xfree (cachename);
-		close (cachefd);
-		return;
-	    }
-	    close (cachefd);
-	}
-    }
-#endif
-
-    if (! (fp = _XFopenFile (name, "r"))) {
-	if (tmpcachedir)
-	    Xfree  (tmpcachedir);
-	if (tmpname)
-	    Xfree (tmpname);
-	if (cachename)
-	    Xfree (cachename);
-        return;
-    }
-    _XimParseStringFile(fp, im);
-    fclose(fp);
-
-#ifdef COMPOSECACHE
-    if (cachename) {
-	assert (euid != 0);
-	_XimWriteCachedDefaultTree (intname, encoding, cachename, im);
-    }
-#endif
-
-    if (tmpcachedir)
-	Xfree  (tmpcachedir);
-    if (tmpname)
-	Xfree (tmpname);
-    if (cachename)
-	Xfree (cachename);
-}
-
-Private XIMMethodsRec      Xim_im_local_methods = {
-    _XimLocalCloseIM,           /* close */
-    _XimLocalSetIMValues,       /* set_values */
-    _XimLocalGetIMValues,       /* get_values */
-    _XimLocalCreateIC,          /* create_ic */
-    _XimLcctstombs,		/* ctstombs */
-    _XimLcctstowcs,		/* ctstowcs */
-    _XimLcctstoutf8		/* ctstoutf8 */
-};
-
-Public Bool
-_XimLocalOpenIM(
-    Xim			 im)
-{
-    XLCd		 lcd = im->core.lcd;
-    XlcConv		 conv;
-    XimDefIMValues	 im_values;
-    XimLocalPrivateRec*  private = &im->private.local;
-
-    _XimInitialResourceInfo();
-    if(_XimSetIMResourceList(&im->core.im_resources,
-		 		&im->core.im_num_resources) == False) {
-	goto Open_Error;
-    }
-    if(_XimSetICResourceList(&im->core.ic_resources,
-				&im->core.ic_num_resources) == False) {
-	goto Open_Error;
-    }
-
-    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);
-
-    _XimGetCurrentIMValues(im, &im_values);
-    if(_XimSetLocalIMDefaults(im, (XPointer)&im_values,
-		im->core.im_resources, im->core.im_num_resources) == False) {
-	goto Open_Error;
-    }
-    _XimSetCurrentIMValues(im, &im_values);
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNMultiByte)))
-	goto Open_Error;
-    private->ctom_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNWideChar)))
-	goto Open_Error;
-    private->ctow_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNUtf8String)))
-	goto Open_Error;
-    private->ctoutf8_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNMultiByte)))
-	goto Open_Error;
-    private->cstomb_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNWideChar)))
-	goto Open_Error;
-    private->cstowc_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNUtf8String)))
-	goto Open_Error;
-    private->cstoutf8_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNChar)))
-	goto Open_Error;
-    private->ucstoc_conv = conv;
-
-    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNUtf8String)))
-	goto Open_Error;
-    private->ucstoutf8_conv = conv;
-
-    private->base.treeused = 1;
-    private->base.mbused   = 1;
-    private->base.wcused   = 1;
-    private->base.utf8used = 1;
-
-    _XimCreateDefaultTree(im);
-
-    im->methods = &Xim_im_local_methods;
-    private->current_ic = (XIC)NULL;
-
-    return(True);
-
-Open_Error :
-    _XimLocalIMFree(im);
-    return(False);
-}
+/******************************************************************

+

+          Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+          Copyright 1993 by Digital Equipment Corporation

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the name of FUJITSU LIMITED and

+Digital Equipment Corporation not be used in advertising or publicity

+pertaining to distribution of the software without specific, written

+prior permission.  FUJITSU LIMITED and Digital Equipment Corporation

+makes no representations about the suitability of this software for

+any purpose.  It is provided "as is" without express or implied

+warranty.

+

+FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION DISCLAIM ALL

+WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED

+WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION BE LIABLE FOR

+ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER

+IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF

+THIS SOFTWARE.

+

+  Author:    Takashi Fujiwara     FUJITSU LIMITED

+                               	  fujiwara@a80.tech.yk.fujitsu.co.jp

+  Modifier:  Franky Ling          Digital Equipment Corporation

+	                          frankyling@hgrd01.enet.dec.com

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+

+#include <X11/Xmd.h>

+#include <X11/Xatom.h>

+#include <X11/Xos.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "XlcPublic.h"

+#include "XlcPubI.h"

+#include "Ximint.h"

+#include <ctype.h>

+#include <assert.h>

+

+#ifdef COMPOSECACHE

+#  include <sys/types.h>

+#  include <sys/stat.h>

+#  include <sys/mman.h>

+#  include <langinfo.h>

+#endif

+

+

+#ifdef COMPOSECACHE

+

+/* include trailing '/' for cache directory, file prefix otherwise */

+#define XIM_GLOBAL_CACHE_DIR "/var/cache/libx11/compose/"

+#define XIM_HOME_CACHE_DIR   "/.compose-cache/"

+#define XIM_CACHE_MAGIC      ('X' | 'i'<<8 | 'm'<<16 | 'C'<<24)

+#define XIM_CACHE_VERSION    4

+#define XIM_CACHE_TREE_ALIGNMENT 4

+

+#define XIM_HASH_PRIME_1 13

+#define XIM_HASH_PRIME_2 1234096939

+

+typedef INT32 DTStructIndex;

+struct _XimCacheStruct {

+    INT32           id;

+    INT32           version;

+    DTStructIndex   tree;

+    DTStructIndex   mb;

+    DTStructIndex   wc;

+    DTStructIndex   utf8;

+    DTStructIndex   size;

+    DTIndex         top;

+    DTIndex         treeused;

+    DTCharIndex     mbused;

+    DTCharIndex     wcused;

+    DTCharIndex     utf8used;

+    char            fname[1];

+    /* char encoding[1] */

+};

+

+Private struct  _XimCacheStruct* _XimCache_mmap = NULL;

+Private DefTreeBase _XimCachedDefaultTreeBase;

+Private int     _XimCachedDefaultTreeRefcount = 0;

+

+#endif

+

+

+Public Bool

+_XimCheckIfLocalProcessing(Xim im)

+{

+    FILE        *fp;

+    char        *name;

+

+    if(strcmp(im->core.im_name, "") == 0) {

+	name = _XlcFileName(im->core.lcd, COMPOSE_FILE);

+	if (name != (char *)NULL) {

+	    fp = _XFopenFile (name, "r");

+	    Xfree(name);

+	    if (fp != (FILE *)NULL) {

+		fclose(fp);

+		return(True);

+	    }

+	}

+	return(False);

+    } else if(strcmp(im->core.im_name, "local") == 0 ||

+	      strcmp(im->core.im_name, "none" ) == 0 ) {

+	return(True);

+    }

+    return(False);

+}

+

+Private void

+XimFreeDefaultTree(

+    DefTreeBase *b)

+{

+    if (!b) return;

+    if (b->tree == NULL) return;

+#ifdef COMPOSECACHE

+    if (b->tree == _XimCachedDefaultTreeBase.tree) {

+        _XimCachedDefaultTreeRefcount--;

+        /* No deleting, it's a cache after all. */

+        return;

+    }

+#endif

+    Xfree (b->tree);

+    if (b->mb)    Xfree (b->mb);

+    if (b->wc)    Xfree (b->wc);

+    if (b->utf8)  Xfree (b->utf8);

+    b->tree = NULL;

+    b->mb   = NULL;

+    b->wc   = NULL;

+    b->utf8 = NULL;

+    b->treeused = b->treesize = 0;

+    b->mbused   = b->mbsize   = 0;

+    b->wcused   = b->wcsize   = 0;

+    b->utf8used = b->utf8size = 0;

+}

+

+Public void

+_XimLocalIMFree(

+    Xim		im)

+{

+    XimFreeDefaultTree(&im->private.local.base);

+    im->private.local.top = 0;

+

+    if(im->core.im_resources) {

+	Xfree(im->core.im_resources);

+	im->core.im_resources = NULL;

+    }

+    if(im->core.ic_resources) {

+	Xfree(im->core.ic_resources);

+	im->core.ic_resources = NULL;

+    }

+    if(im->core.im_values_list) {

+	Xfree(im->core.im_values_list);

+	im->core.im_values_list = NULL;

+    }

+    if(im->core.ic_values_list) {

+	Xfree(im->core.ic_values_list);

+	im->core.ic_values_list = NULL;

+    }

+    if(im->core.styles) {

+	Xfree(im->core.styles);

+	im->core.styles = NULL;

+    }

+    if(im->core.res_name) {

+	Xfree(im->core.res_name);

+	im->core.res_name = NULL;

+    }

+    if(im->core.res_class) {

+	Xfree(im->core.res_class);

+	im->core.res_class = NULL;

+    }

+    if(im->core.im_name) {

+	Xfree(im->core.im_name);

+	im->core.im_name = NULL;

+    }

+    if (im->private.local.ctom_conv) {

+	_XlcCloseConverter(im->private.local.ctom_conv);

+        im->private.local.ctom_conv = NULL;

+    }

+    if (im->private.local.ctow_conv) {

+	_XlcCloseConverter(im->private.local.ctow_conv);

+	im->private.local.ctow_conv = NULL;

+    }

+    if (im->private.local.ctoutf8_conv) {

+	_XlcCloseConverter(im->private.local.ctoutf8_conv);

+	im->private.local.ctoutf8_conv = NULL;

+    }

+    if (im->private.local.cstomb_conv) {

+	_XlcCloseConverter(im->private.local.cstomb_conv);

+        im->private.local.cstomb_conv = NULL;

+    }

+    if (im->private.local.cstowc_conv) {

+	_XlcCloseConverter(im->private.local.cstowc_conv);

+	im->private.local.cstowc_conv = NULL;

+    }

+    if (im->private.local.cstoutf8_conv) {

+	_XlcCloseConverter(im->private.local.cstoutf8_conv);

+	im->private.local.cstoutf8_conv = NULL;

+    }

+    if (im->private.local.ucstoc_conv) {

+	_XlcCloseConverter(im->private.local.ucstoc_conv);

+	im->private.local.ucstoc_conv = NULL;

+    }

+    if (im->private.local.ucstoutf8_conv) {

+	_XlcCloseConverter(im->private.local.ucstoutf8_conv);

+	im->private.local.ucstoutf8_conv = NULL;

+    }

+    return;

+}

+

+Private Status

+_XimLocalCloseIM(

+    XIM		xim)

+{

+    Xim		im = (Xim)xim;

+    XIC		ic;

+    XIC		next;

+

+    ic = im->core.ic_chain;

+    im->core.ic_chain = NULL;

+    while (ic) {

+	(*ic->methods->destroy) (ic);

+	next = ic->core.next;

+	Xfree ((char *) ic);

+	ic = next;

+    }

+    _XimLocalIMFree(im);

+    _XimDestroyIMStructureList(im);

+    return(True);

+}

+

+Public char *

+_XimLocalGetIMValues(

+    XIM			 xim,

+    XIMArg		*values)

+{

+    Xim			 im = (Xim)xim;

+    XimDefIMValues	 im_values;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    return(_XimGetIMValueData(im, (XPointer)&im_values, values,

+			im->core.im_resources, im->core.im_num_resources));

+}

+

+Public char *

+_XimLocalSetIMValues(

+    XIM			 xim,

+    XIMArg		*values)

+{

+    Xim			 im = (Xim)xim;

+    XimDefIMValues	 im_values;

+    char		*name = (char *)NULL;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    name = _XimSetIMValueData(im, (XPointer)&im_values, values,

+		im->core.im_resources, im->core.im_num_resources);

+    _XimSetCurrentIMValues(im, &im_values);

+    return(name);

+}

+

+

+#ifdef COMPOSECACHE

+

+Private Bool

+_XimReadCachedDefaultTree(

+    int          fd_cache,

+    const char  *name,

+    const char  *encoding,

+    DTStructIndex size)

+{

+    struct _XimCacheStruct* m;

+    int namelen = strlen (name) + 1;

+    int encodinglen = strlen (encoding) + 1;

+

+    m = mmap (NULL, size, PROT_READ, MAP_PRIVATE, fd_cache, 0);

+    if (m == NULL || m == MAP_FAILED)

+        return False;

+    assert (m->id == XIM_CACHE_MAGIC);

+    assert (m->version == XIM_CACHE_VERSION);

+    if (size != m->size ||

+	size < XOffsetOf (struct _XimCacheStruct, fname) + namelen + encodinglen) {

+	fprintf (stderr, "Ignoring broken XimCache %s [%s]\n", name, encoding);

+        munmap (m, size);

+        return False;

+    }

+    if (strncmp (name, m->fname, namelen) != 0) {

+	/* m->fname may *not* be terminated - but who cares here */

+	fprintf (stderr, "Filename hash clash - expected %s, got %s\n",

+		 name, m->fname);

+        munmap (m, size);

+        return False;

+    }

+    if (strncmp (encoding, m->fname + namelen, encodinglen) != 0) {

+	/* m->fname+namelen may *not* be terminated - but who cares here */

+	fprintf (stderr, "Enoding hash clash - expected %s, got %s\n",

+		 encoding, m->fname + namelen);

+        munmap (m, size);

+        return False;

+    }

+    _XimCache_mmap    = m;

+    _XimCachedDefaultTreeBase.tree = (DefTree *) (((char *) m) + m->tree);

+    _XimCachedDefaultTreeBase.mb   =             (((char *) m) + m->mb);

+    _XimCachedDefaultTreeBase.wc   = (wchar_t *) (((char *) m) + m->wc);

+    _XimCachedDefaultTreeBase.utf8 =             (((char *) m) + m->utf8);

+    _XimCachedDefaultTreeBase.treeused = m->treeused;

+    _XimCachedDefaultTreeBase.mbused   = m->mbused;

+    _XimCachedDefaultTreeBase.wcused   = m->wcused;

+    _XimCachedDefaultTreeBase.utf8used = m->utf8used;

+    /* treesize etc. is ignored because only used during parsing */

+    _XimCachedDefaultTreeRefcount = 0;

+/* fprintf (stderr, "read cached tree at %p: %s\n", (void *) m, name); */

+    return True;

+}

+

+Private unsigned int strToHash (

+    const char *name)

+{

+    unsigned int hash = 0;

+    while (*name)

+	hash = hash * XIM_HASH_PRIME_1 + *(unsigned const char *)name++;

+    return hash % XIM_HASH_PRIME_2;

+}

+

+

+/* Returns read-only fd of cache file, -1 if none.

+ * Sets *res to cache filename if safe. Sets *size to file size of cache. */

+Private int _XimCachedFileName (

+    const char *dir, const char *name,

+    const char *intname, const char *encoding,

+    uid_t uid, int isglobal, char **res, off_t *size)

+{

+    struct stat st_name, st;

+    int    fd;

+    unsigned int len, hash, hash2;

+    struct _XimCacheStruct *m;

+    /* There are some races here with 'dir', but we are either in our own home

+     * or the global cache dir, and not inside some public writable dir */

+/* fprintf (stderr, "XimCachedFileName for dir %s name %s intname %s encoding %s uid %d\n", dir, name, intname, encoding, uid); */

+    if (stat (name, &st_name) == -1 || ! S_ISREG (st_name.st_mode)

+       || stat (dir, &st) == -1 || ! S_ISDIR (st.st_mode) || st.st_uid != uid

+       || (st.st_mode & 0022) != 0000) {

+       *res = NULL;

+       return -1;

+    }

+    len   = strlen (dir);

+    hash  = strToHash (intname);

+    hash2 = strToHash (encoding);

+    *res  = Xmalloc (len + 1 + 27 + 1);  /* Max VERSION 9999 */

+

+    if (len == 0 || dir [len-1] != '/')

+       sprintf (*res, "%s/%c%d_%03x_%08x_%08x", dir, _XimGetMyEndian(),

+		XIM_CACHE_VERSION, (unsigned int)sizeof (DefTree), hash, hash2);

+    else

+       sprintf (*res, "%s%c%d_%03x_%08x_%08x", dir, _XimGetMyEndian(),

+		XIM_CACHE_VERSION, (unsigned int)sizeof (DefTree), hash, hash2);

+

+/* fprintf (stderr, "-> %s\n", *res); */

+    if ( (fd = _XOpenFile (*res, O_RDONLY)) == -1)

+       return -1;

+

+    if (fstat (fd, &st) == -1) {

+       Xfree (*res);

+       *res = NULL;

+       close (fd);

+       return -1;

+    }

+    *size = st.st_size;

+

+    if (! S_ISREG (st.st_mode) || st.st_uid != uid

+       || (st.st_mode & 0022) != 0000 || st.st_mtime <= st_name.st_mtime

+       || (st.st_mtime < time (NULL) - 24*60*60 && ! isglobal)) {

+

+       close (fd);

+       if (unlink (*res) != 0) {

+           Xfree (*res);

+           *res = NULL;                /* cache is not safe */

+       }

+       return -1;

+    }

+

+    m = mmap (NULL, sizeof (struct _XimCacheStruct), PROT_READ, MAP_PRIVATE,

+	      fd, 0);

+    if (m == NULL || m == MAP_FAILED) {

+	close (fd);

+	Xfree (*res);

+	*res = NULL;

+        return -1;

+    }

+    if (*size < sizeof (struct _XimCacheStruct) || m->id != XIM_CACHE_MAGIC) {

+	munmap (m, sizeof (struct _XimCacheStruct));

+	close (fd);

+	fprintf (stderr, "Ignoring broken XimCache %s\n", *res);

+	Xfree (*res);

+	*res = NULL;

+        return -1;

+    }

+    if (m->version != XIM_CACHE_VERSION) {

+	munmap (m, sizeof (struct _XimCacheStruct));

+	close (fd);

+	if (unlink (*res) != 0) {

+	    Xfree (*res);

+	    *res = NULL;                /* cache is not safe */

+	}

+	return -1;

+    }

+    munmap (m, sizeof (struct _XimCacheStruct));

+

+    return fd;

+}

+

+

+Private Bool _XimLoadCache (

+    int         fd,

+    const char *name,

+    const char *encoding,

+    off_t       size,

+    Xim         im)

+{

+    if (_XimCache_mmap ||

+       _XimReadCachedDefaultTree (fd, name, encoding, size)) {

+       _XimCachedDefaultTreeRefcount++;

+       memcpy (&im->private.local.base, &_XimCachedDefaultTreeBase,

+	       sizeof (_XimCachedDefaultTreeBase));

+       im->private.local.top = _XimCache_mmap->top;

+       return True;

+    }

+

+    return False;

+}

+

+

+Private void

+_XimWriteCachedDefaultTree(

+    const char *name,

+    const char *encoding,

+    const char *cachename,

+    Xim                im)

+{

+    int   fd;

+    FILE *fp;

+    struct _XimCacheStruct *m;

+    int   msize = (XOffsetOf(struct _XimCacheStruct, fname)

+		   + strlen(name) + strlen(encoding) + 2

+		   + XIM_CACHE_TREE_ALIGNMENT-1) & -XIM_CACHE_TREE_ALIGNMENT;

+    DefTreeBase *b = &im->private.local.base;

+

+    if (! b->tree && ! (b->tree = Xmalloc (sizeof(DefTree))) )

+	return;

+    if (! b->mb   && ! (b->mb   = Xmalloc (1)) )

+	return;

+    if (! b->wc   && ! (b->wc   = Xmalloc (sizeof(wchar_t))) )

+	return;

+    if (! b->utf8 && ! (b->utf8 = Xmalloc (1)) )

+	return;

+

+    /* First entry is always unused */

+    memset (b->tree, 0, sizeof(DefTree));

+    b->mb[0]   = 0;

+    b->wc[0]   = 0;

+    b->utf8[0] = 0;

+

+    m = Xmalloc (msize);

+    memset (m, 0, msize);

+    m->id       = XIM_CACHE_MAGIC;

+    m->version  = XIM_CACHE_VERSION;

+    m->top      = im->private.local.top;

+    m->treeused = b->treeused;

+    m->mbused   = b->mbused;

+    m->wcused   = b->wcused;

+    m->utf8used = b->utf8used;

+    /* Tree first, then wide chars, then the rest due to alignment */

+    m->tree     = msize;

+    m->wc       = msize   + sizeof (DefTree) * m->treeused;

+    m->mb       = m->wc   + sizeof (wchar_t) * m->wcused;

+    m->utf8     = m->mb   +                    m->mbused;

+    m->size     = m->utf8 +                    m->utf8used;

+    strcpy (m->fname, name);

+    strcpy (m->fname+strlen(name)+1, encoding);

+

+    /* This STILL might be racy on NFS */

+    if ( (fd = _XOpenFileMode (cachename, O_WRONLY | O_CREAT | O_EXCL,

+			       0600)) < 0) {

+       Xfree(m);

+       return;

+    }

+    if (! (fp = fdopen (fd, "wb")) ) {

+       close (fd);

+       Xfree(m);

+       return;

+    }

+    fwrite (m, msize, 1, fp);

+    fwrite (im->private.local.base.tree, sizeof(DefTree), m->treeused, fp);

+    fwrite (im->private.local.base.wc,   sizeof(wchar_t), m->wcused,   fp);

+    fwrite (im->private.local.base.mb,   1,               m->mbused,   fp);

+    fwrite (im->private.local.base.utf8, 1,               m->utf8used, fp);

+    if (fclose (fp) != 0)

+	unlink (cachename);

+    _XimCache_mmap = m;

+    memcpy (&_XimCachedDefaultTreeBase, &im->private.local.base,

+	    sizeof (_XimCachedDefaultTreeBase));

+/* fprintf (stderr, "wrote tree %s size %ld to %s\n", name, m->size, cachename); */

+}

+

+#endif

+

+

+Private void

+_XimCreateDefaultTree(

+    Xim		im)

+{

+    FILE *fp = NULL;

+    char *name, *tmpname = NULL, *intname;

+    char *cachename = NULL;

+    /* Should use getpwent() instead of $HOME (cross-platform?) */

+    char *home = getenv("HOME");

+    char *cachedir = NULL;

+    char *tmpcachedir = NULL;

+    int   hl = home ? strlen (home) : 0;

+#ifdef COMPOSECACHE

+    const char *encoding = nl_langinfo (CODESET);

+    uid_t euid = geteuid ();

+    gid_t egid = getegid ();

+    int   cachefd = -1;

+    off_t size;

+#endif

+

+    name = getenv("XCOMPOSEFILE");

+    if (name == (char *) NULL) {

+    	if (home != (char *) NULL) {

+            tmpname = name = Xmalloc(hl + 10 + 1);

+            if (name != (char *) NULL) {

+		int fd;

+            	strcpy(name, home);

+            	strcpy(name + hl, "/.XCompose");

+		if ( (fd = _XOpenFile (name, O_RDONLY)) < 0) {

+		    Xfree (name);

+		    name = tmpname = NULL;

+		} else

+		    close (fd);

+            }

+        }

+    }

+

+    if (name == (char *) NULL) {

+        tmpname = name = _XlcFileName(im->core.lcd, COMPOSE_FILE);

+    }

+    intname = name;

+

+#ifdef COMPOSECACHE

+    if (getuid () == euid && getgid () == egid && euid != 0) {

+	char *c;

+	/* Usage: XCOMPOSECACHE=<cachedir>[=<filename>]

+	 * cachedir: directory of cache files

+	 * filename: internally used name for cache file */

+        cachedir = getenv("XCOMPOSECACHE");

+	if (cachedir && (c = strchr (cachedir, '='))) {

+	    tmpcachedir = strdup (cachedir);

+	    intname = tmpcachedir + (c-cachedir) + 1;

+	    tmpcachedir[c-cachedir] = '\0';

+	    cachedir = tmpcachedir;

+	}

+    }

+

+    if (! cachedir) {

+	cachefd = _XimCachedFileName (XIM_GLOBAL_CACHE_DIR, name, intname,

+				      encoding, 0, 1, &cachename, &size);

+	if (cachefd != -1) {

+	    if (_XimLoadCache (cachefd, intname, encoding, size, im)) {

+		if (tmpcachedir)

+		    Xfree  (tmpcachedir);

+		if (tmpname)

+		    Xfree (tmpname);

+		if (cachename)

+		    Xfree (cachename);

+		close (cachefd);

+		return;

+	    }

+	    close (cachefd);

+	}

+	if (cachename)

+	    Xfree (cachename);

+	cachename = NULL;

+    }

+

+    if (getuid () == euid && getgid () == egid && euid != 0 && home) {

+

+	if (! cachedir) {

+	    tmpcachedir = cachedir = Xmalloc (hl+strlen(XIM_HOME_CACHE_DIR)+1);

+	    strcpy (cachedir, home);

+	    strcat (cachedir, XIM_HOME_CACHE_DIR);

+	}

+	cachefd = _XimCachedFileName (cachedir, name, intname, encoding,

+				      euid, 0, &cachename, &size);

+	if (cachefd != -1) {

+	    if (_XimLoadCache (cachefd, intname, encoding, size, im)) {

+		if (tmpcachedir)

+		    Xfree  (tmpcachedir);

+		if (tmpname)

+		    Xfree (tmpname);

+		if (cachename)

+		    Xfree (cachename);

+		close (cachefd);

+		return;

+	    }

+	    close (cachefd);

+	}

+    }

+#endif

+

+    if (! (fp = _XFopenFile (name, "r"))) {

+	if (tmpcachedir)

+	    Xfree  (tmpcachedir);

+	if (tmpname)

+	    Xfree (tmpname);

+	if (cachename)

+	    Xfree (cachename);

+        return;

+    }

+    _XimParseStringFile(fp, im);

+    fclose(fp);

+

+#ifdef COMPOSECACHE

+    if (cachename) {

+	assert (euid != 0);

+	_XimWriteCachedDefaultTree (intname, encoding, cachename, im);

+    }

+#endif

+

+    if (tmpcachedir)

+	Xfree  (tmpcachedir);

+    if (tmpname)

+	Xfree (tmpname);

+    if (cachename)

+	Xfree (cachename);

+}

+

+Private XIMMethodsRec      Xim_im_local_methods = {

+    _XimLocalCloseIM,           /* close */

+    _XimLocalSetIMValues,       /* set_values */

+    _XimLocalGetIMValues,       /* get_values */

+    _XimLocalCreateIC,          /* create_ic */

+    _XimLcctstombs,		/* ctstombs */

+    _XimLcctstowcs,		/* ctstowcs */

+    _XimLcctstoutf8		/* ctstoutf8 */

+};

+

+Public Bool

+_XimLocalOpenIM(

+    Xim			 im)

+{

+    XLCd		 lcd = im->core.lcd;

+    XlcConv		 conv;

+    XimDefIMValues	 im_values;

+    XimLocalPrivateRec*  private = &im->private.local;

+

+    _XimInitialResourceInfo();

+    if(_XimSetIMResourceList(&im->core.im_resources,

+		 		&im->core.im_num_resources) == False) {

+	goto Open_Error;

+    }

+    if(_XimSetICResourceList(&im->core.ic_resources,

+				&im->core.ic_num_resources) == False) {

+	goto Open_Error;

+    }

+

+    _XimSetIMMode(im->core.im_resources, im->core.im_num_resources);

+

+    _XimGetCurrentIMValues(im, &im_values);

+    if(_XimSetLocalIMDefaults(im, (XPointer)&im_values,

+		im->core.im_resources, im->core.im_num_resources) == False) {

+	goto Open_Error;

+    }

+    _XimSetCurrentIMValues(im, &im_values);

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNMultiByte)))

+	goto Open_Error;

+    private->ctom_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNWideChar)))

+	goto Open_Error;

+    private->ctow_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCompoundText, lcd, XlcNUtf8String)))

+	goto Open_Error;

+    private->ctoutf8_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNMultiByte)))

+	goto Open_Error;

+    private->cstomb_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNWideChar)))

+	goto Open_Error;

+    private->cstowc_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNCharSet, lcd, XlcNUtf8String)))

+	goto Open_Error;

+    private->cstoutf8_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNChar)))

+	goto Open_Error;

+    private->ucstoc_conv = conv;

+

+    if (!(conv = _XlcOpenConverter(lcd,	XlcNUcsChar, lcd, XlcNUtf8String)))

+	goto Open_Error;

+    private->ucstoutf8_conv = conv;

+

+    private->base.treeused = 1;

+    private->base.mbused   = 1;

+    private->base.wcused   = 1;

+    private->base.utf8used = 1;

+

+    _XimCreateDefaultTree(im);

+

+    im->methods = &Xim_im_local_methods;

+    private->current_ic = (XIC)NULL;

+

+    return(True);

+

+Open_Error :

+    _XimLocalIMFree(im);

+    return(False);

+}

diff --git a/libX11/modules/im/ximcp/imLcLkup.c b/libX11/modules/im/ximcp/imLcLkup.c
index 8e4111a6a..c62a9106c 100644
--- a/libX11/modules/im/ximcp/imLcLkup.c
+++ b/libX11/modules/im/ximcp/imLcLkup.c
@@ -1,417 +1,417 @@
-/******************************************************************
-
-              Copyright 1992 by Fuji Xerox Co., Ltd.
-              Copyright 1992, 1994  by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of Fuji Xerox,
-FUJITSU LIMITED not be used in advertising or publicity pertaining
-to distribution of the software without specific, written prior
-permission.  Fuji Xerox, FUJITSU LIMITED  make no representations
-about the suitability of this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJI XEROX, FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH
-REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJI XEROX,
-FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA
-OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
-TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Kazunori Nishihara   Fuji Xerox
-          Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xatom.h>
-#include <X11/Xos.h>
-#include <X11/Xlib.h>
-#include <X11/keysym.h>
-#include <X11/Xutil.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "XlcPubI.h"
-#include "Ximint.h"
-
-Public int
-_XimLocalMbLookupString(XIC xic, XKeyEvent *ev, char *buffer, int bytes,
-			KeySym *keysym, Status *status)
-{
-    Xic		 ic = (Xic)xic;
-    int		 ret;
-    DefTree	*b  = ic->private.local.base.tree;
-    char	*mb = ic->private.local.base.mb;
-
-    if(ev->type != KeyPress) {
-	if(status) *status = XLookupNone;
-	return(0);
-    }
-    if(ev->keycode == 0 &&
-	   (  (ic->private.local.composed != 0)
-	    ||(ic->private.local.brl_committed != 0))) {
-	if (ic->private.local.brl_committed != 0) { /* Braille Event */
-	    unsigned char pattern = ic->private.local.brl_committed;
-	    char mb[XLC_PUBLIC(ic->core.im->core.lcd, mb_cur_max)];
-	    ret = _Xlcwctomb(ic->core.im->core.lcd, mb, BRL_UC_ROW | pattern);
-	    if(ret > bytes) {
-		if(status) *status = XBufferOverflow;
-		return(ret);
-	    }
-	    if(keysym) *keysym = XK_braille_blank | pattern;
-	    if(ret > 0) {
-		if (keysym) {
-		    if(status) *status = XLookupBoth;
-		} else {
-		    if(status) *status = XLookupChars;
-		}
-		memcpy(buffer, mb, ret);
-	    } else {
-		if(keysym) {
-		    if(status) *status = XLookupKeySym;
-		} else {
-		    if(status) *status = XLookupNone;
-		}
-	    }
-	} else { /* Composed Event */
-	    ret = strlen(&mb[b[ic->private.local.composed].mb]);
-	    if(ret > bytes) {
-		if(status) *status = XBufferOverflow;
-		return(ret);
-	    }
-	    memcpy(buffer, &mb[b[ic->private.local.composed].mb], ret);
-	    if(keysym) *keysym = b[ic->private.local.composed].ks;
-	    if (ret > 0) {
-		if (keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupBoth;
-		} else {
-		    if(status) *status = XLookupChars;
-		}
-	    } else {
-		if(keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupKeySym;
-		} else {
-		    if(status) *status = XLookupNone;
-		}
-	    }
-	}
-	return (ret);
-    } else { /* Throughed Event */
-	ret = _XimLookupMBText(ic, ev, buffer, bytes, keysym, NULL);
-	if(ret > 0) {
-	    if (ret > bytes) {
-		if (status) *status = XBufferOverflow;
-	    } else if (keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupBoth;
-	    } else {
-		if(status) *status = XLookupChars;
-	    }
-	} else {
-	    if(keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupKeySym;
-	    } else {
-		if(status) *status = XLookupNone;
-	    }
-	}
-    }
-    return (ret);
-}
-
-Public int
-_XimLocalWcLookupString(XIC xic, XKeyEvent *ev, wchar_t *buffer, int wlen,
-			KeySym *keysym, Status *status)
-{
-    Xic		 ic = (Xic)xic;
-    int		 ret;
-    DefTree	*b  = ic->private.local.base.tree;
-    wchar_t	*wc = ic->private.local.base.wc;
-
-    if(ev->type != KeyPress) {
-	if(status) *status = XLookupNone;
-	return(0);
-    }
-    if(ev->keycode == 0) {
-	if (ic->private.local.brl_committed != 0) { /* Braille Event */
-	    unsigned char pattern = ic->private.local.brl_committed;
-	    ret = 1;
-	    if (ret > wlen) {
-		if(status) *status = XBufferOverflow;
-		return (ret);
-	    }
-	    *buffer = BRL_UC_ROW | pattern;
-	    if(keysym) {
-		*keysym = XK_braille_blank | pattern;
-		if(status) *status = XLookupBoth;
-	    } else
-		if(status) *status = XLookupChars;
-	} else { /* Composed Event */
-	    ret = _Xwcslen(&wc[b[ic->private.local.composed].wc]);
-	    if(ret > wlen) {
-		if(status) *status = XBufferOverflow;
-		return (ret);
-	    }
-	    memcpy((char *)buffer, (char *)&wc[b[ic->private.local.composed].wc],
-		   ret * sizeof(wchar_t));
-	    if(keysym) *keysym = b[ic->private.local.composed].ks;
-	    if (ret > 0) {
-		if (keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupBoth;
-		} else {
-		    if(status) *status = XLookupChars;
-		}
-	    } else {
-		if(keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupKeySym;
-		} else {
-		    if(status) *status = XLookupNone;
-		}
-	    }
-	}
-	return (ret);
-    } else { /* Throughed Event */
-	ret = _XimLookupWCText(ic, ev, buffer, wlen, keysym, NULL);
-	if(ret > 0) {
-	    if (ret > wlen) {
-		if (status) *status = XBufferOverflow;
-	    } else if (keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupBoth;
-	    } else {
-		if(status) *status = XLookupChars;
-	    }
-	} else {
-	    if(keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupKeySym;
-	    } else {
-		if(status) *status = XLookupNone;
-	    }
-	}
-    }
-    return (ret);
-}
-
-Public int
-_XimLocalUtf8LookupString(XIC xic, XKeyEvent *ev, char *buffer, int bytes,
-			  KeySym *keysym, Status *status)
-{
-    Xic		 ic = (Xic)xic;
-    int		 ret;
-    DefTree	*b    = ic->private.local.base.tree;
-    char	*utf8 = ic->private.local.base.utf8;
-
-    if(ev->type != KeyPress) {
-	if(status) *status = XLookupNone;
-	return(0);
-    }
-    if(ev->keycode == 0) {
-	if (ic->private.local.brl_committed != 0) { /* Braille Event */
-	    unsigned char pattern = ic->private.local.brl_committed;
-	    ret = 3;
-	    if (ret > bytes) {
-		if(status) *status = XBufferOverflow;
-		return (ret);
-	    }
-	    buffer[0] = 0xe0 | ((BRL_UC_ROW >> 12) & 0x0f);
-	    buffer[1] = 0x80 | ((BRL_UC_ROW >> 8) & 0x30) | (pattern >> 6);
-	    buffer[2] = 0x80 | (pattern & 0x3f);
-	    if(keysym) {
-		*keysym = XK_braille_blank | pattern;
-		if(status) *status = XLookupBoth;
-	    } else
-		if(status) *status = XLookupChars;
-	} else { /* Composed Event */
-	    ret = strlen(&utf8[b[ic->private.local.composed].utf8]);
-	    if(ret > bytes) {
-		if(status) *status = XBufferOverflow;
-		return (ret);
-	    }
-	    memcpy(buffer, &utf8[b[ic->private.local.composed].utf8], ret);
-	    if(keysym) *keysym = b[ic->private.local.composed].ks;
-	    if (ret > 0) {
-		if (keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupBoth;
-		} else {
-		    if(status) *status = XLookupChars;
-		}
-	    } else {
-		if(keysym && *keysym != NoSymbol) {
-		    if(status) *status = XLookupKeySym;
-		} else {
-		    if(status) *status = XLookupNone;
-		}
-	    }
-	}
-	return (ret);
-    } else { /* Throughed Event */
-	ret = _XimLookupUTF8Text(ic, ev, buffer, bytes, keysym, NULL);
-	if(ret > 0) {
-	    if (ret > bytes) {
-		if (status) *status = XBufferOverflow;
-	    } else if (keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupBoth;
-	    } else {
-		if(status) *status = XLookupChars;
-	    }
-	} else {
-	    if(keysym && *keysym != NoSymbol) {
-		if(status) *status = XLookupKeySym;
-	    } else {
-		if(status) *status = XLookupNone;
-	    }
-	}
-    }
-    return (ret);
-}
-
-Private int
-_XimLcctsconvert(
-    XlcConv	 conv,
-    char	*from,
-    int		 from_len,
-    char	*to,
-    int		 to_len,
-    Status	*state)
-{
-    int		 from_left;
-    int		 to_left;
-    int		 from_savelen;
-    int		 to_savelen;
-    int		 from_cnvlen;
-    int		 to_cnvlen;
-    char	*from_buf;
-    char	*to_buf;
-    char	 scratchbuf[BUFSIZ];
-    Status	 tmp_state;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (!conv || !from || !from_len) {
-	*state = XLookupNone;
-	return 0;
-    }
-
-    /* Reset the converter.  The CompoundText at 'from' starts in
-       initial state.  */
-    _XlcResetConverter(conv);
-
-    from_left = from_len;
-    to_left = BUFSIZ;
-    from_cnvlen = 0;
-    to_cnvlen = 0;
-    for (;;) {
-	from_buf = &from[from_cnvlen];
-	from_savelen = from_left;
-	to_buf = &scratchbuf[to_cnvlen];
-	to_savelen = to_left;
-	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,
-				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {
-	    *state = XLookupNone;
-	    return 0;
-	}
-	from_cnvlen += (from_savelen - from_left);
-	to_cnvlen += (to_savelen - to_left);
-	if (from_left == 0) {
-	    if (!to_cnvlen) {
-		*state = XLookupNone;
-		return 0;
-           }
-	   break;
-	}
-    }
-
-    if (!to || !to_len || (to_len < to_cnvlen)) {
-       *state = XBufferOverflow;
-    } else {
-       memcpy(to, scratchbuf, to_cnvlen);
-       *state = XLookupChars;
-    }
-    return to_cnvlen;
-}
-
-Public int
-_XimLcctstombs(XIM xim, char *from, int from_len,
-	       char *to, int to_len, Status *state)
-{
-    return _XimLcctsconvert(((Xim)xim)->private.local.ctom_conv,
-			    from, from_len, to, to_len, state);
-}
-
-Public int
-_XimLcctstowcs(XIM xim, char *from, int from_len,
-	       wchar_t *to, int to_len, Status *state)
-{
-    Xim		 im = (Xim)xim;
-    XlcConv	 conv = im->private.local.ctow_conv;
-    int		 from_left;
-    int		 to_left;
-    int		 from_savelen;
-    int		 to_savelen;
-    int		 from_cnvlen;
-    int		 to_cnvlen;
-    char	*from_buf;
-    wchar_t	*to_buf;
-    wchar_t	 scratchbuf[BUFSIZ];
-    Status	 tmp_state;
-
-    if (!state)
-	state = &tmp_state;
-
-    if (!conv || !from || !from_len) {
-	*state = XLookupNone;
-	return 0;
-    }
-
-    /* Reset the converter.  The CompoundText at 'from' starts in
-       initial state.  */
-    _XlcResetConverter(conv);
-
-    from_left = from_len;
-    to_left = BUFSIZ;
-    from_cnvlen = 0;
-    to_cnvlen = 0;
-    for (;;) {
-	from_buf = &from[from_cnvlen];
-       from_savelen = from_left;
-       to_buf = &scratchbuf[to_cnvlen];
-       to_savelen = to_left;
-	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,
-				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {
-	    *state = XLookupNone;
-	    return 0;
-	}
-	from_cnvlen += (from_savelen - from_left);
-       to_cnvlen += (to_savelen - to_left);
-	if (from_left == 0) {
-           if (!to_cnvlen){
-		*state = XLookupNone;
-               return 0;
-           }
-	    break;
-	}
-    }
-
-    if (!to || !to_len || (to_len < to_cnvlen)) {
-       *state = XBufferOverflow;
-    } else {
-       memcpy(to, scratchbuf, to_cnvlen * sizeof(wchar_t));
-       *state = XLookupChars;
-    }
-    return to_cnvlen;
-}
-
-Public int
-_XimLcctstoutf8(XIM xim, char *from, int from_len,
-		char *to, int to_len, Status *state)
-{
-    return _XimLcctsconvert(((Xim)xim)->private.local.ctoutf8_conv,
-			    from, from_len, to, to_len, state);
-}
+/******************************************************************

+

+              Copyright 1992 by Fuji Xerox Co., Ltd.

+              Copyright 1992, 1994  by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of Fuji Xerox,

+FUJITSU LIMITED not be used in advertising or publicity pertaining

+to distribution of the software without specific, written prior

+permission.  Fuji Xerox, FUJITSU LIMITED  make no representations

+about the suitability of this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJI XEROX, FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH

+REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF

+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJI XEROX,

+FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL

+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA

+OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER

+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Kazunori Nishihara   Fuji Xerox

+          Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/Xatom.h>

+#include <X11/Xos.h>

+#include <X11/Xlib.h>

+#include <X11/keysym.h>

+#include <X11/Xutil.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "XlcPubI.h"

+#include "Ximint.h"

+

+Public int

+_XimLocalMbLookupString(XIC xic, XKeyEvent *ev, char *buffer, int bytes,

+			KeySym *keysym, Status *status)

+{

+    Xic		 ic = (Xic)xic;

+    int		 ret;

+    DefTree	*b  = ic->private.local.base.tree;

+    char	*mb = ic->private.local.base.mb;

+

+    if(ev->type != KeyPress) {

+	if(status) *status = XLookupNone;

+	return(0);

+    }

+    if(ev->keycode == 0 &&

+	   (  (ic->private.local.composed != 0)

+	    ||(ic->private.local.brl_committed != 0))) {

+	if (ic->private.local.brl_committed != 0) { /* Braille Event */

+	    unsigned char pattern = ic->private.local.brl_committed;

+	    char *mb=alloca(XLC_PUBLIC(ic->core.im->core.lcd, mb_cur_max));

+	    ret = _Xlcwctomb(ic->core.im->core.lcd, mb, BRL_UC_ROW | pattern);

+	    if(ret > bytes) {

+		if(status) *status = XBufferOverflow;

+		return(ret);

+	    }

+	    if(keysym) *keysym = XK_braille_blank | pattern;

+	    if(ret > 0) {

+		if (keysym) {

+		    if(status) *status = XLookupBoth;

+		} else {

+		    if(status) *status = XLookupChars;

+		}

+		memcpy(buffer, mb, ret);

+	    } else {

+		if(keysym) {

+		    if(status) *status = XLookupKeySym;

+		} else {

+		    if(status) *status = XLookupNone;

+		}

+	    }

+	} else { /* Composed Event */

+	    ret = strlen(&mb[b[ic->private.local.composed].mb]);

+	    if(ret > bytes) {

+		if(status) *status = XBufferOverflow;

+		return(ret);

+	    }

+	    memcpy(buffer, &mb[b[ic->private.local.composed].mb], ret);

+	    if(keysym) *keysym = b[ic->private.local.composed].ks;

+	    if (ret > 0) {

+		if (keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupBoth;

+		} else {

+		    if(status) *status = XLookupChars;

+		}

+	    } else {

+		if(keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupKeySym;

+		} else {

+		    if(status) *status = XLookupNone;

+		}

+	    }

+	}

+	return (ret);

+    } else { /* Throughed Event */

+	ret = _XimLookupMBText(ic, ev, buffer, bytes, keysym, NULL);

+	if(ret > 0) {

+	    if (ret > bytes) {

+		if (status) *status = XBufferOverflow;

+	    } else if (keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupBoth;

+	    } else {

+		if(status) *status = XLookupChars;

+	    }

+	} else {

+	    if(keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupKeySym;

+	    } else {

+		if(status) *status = XLookupNone;

+	    }

+	}

+    }

+    return (ret);

+}

+

+Public int

+_XimLocalWcLookupString(XIC xic, XKeyEvent *ev, wchar_t *buffer, int wlen,

+			KeySym *keysym, Status *status)

+{

+    Xic		 ic = (Xic)xic;

+    int		 ret;

+    DefTree	*b  = ic->private.local.base.tree;

+    wchar_t	*wc = ic->private.local.base.wc;

+

+    if(ev->type != KeyPress) {

+	if(status) *status = XLookupNone;

+	return(0);

+    }

+    if(ev->keycode == 0) {

+	if (ic->private.local.brl_committed != 0) { /* Braille Event */

+	    unsigned char pattern = ic->private.local.brl_committed;

+	    ret = 1;

+	    if (ret > wlen) {

+		if(status) *status = XBufferOverflow;

+		return (ret);

+	    }

+	    *buffer = BRL_UC_ROW | pattern;

+	    if(keysym) {

+		*keysym = XK_braille_blank | pattern;

+		if(status) *status = XLookupBoth;

+	    } else

+		if(status) *status = XLookupChars;

+	} else { /* Composed Event */

+	    ret = _Xwcslen(&wc[b[ic->private.local.composed].wc]);

+	    if(ret > wlen) {

+		if(status) *status = XBufferOverflow;

+		return (ret);

+	    }

+	    memcpy((char *)buffer, (char *)&wc[b[ic->private.local.composed].wc],

+		   ret * sizeof(wchar_t));

+	    if(keysym) *keysym = b[ic->private.local.composed].ks;

+	    if (ret > 0) {

+		if (keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupBoth;

+		} else {

+		    if(status) *status = XLookupChars;

+		}

+	    } else {

+		if(keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupKeySym;

+		} else {

+		    if(status) *status = XLookupNone;

+		}

+	    }

+	}

+	return (ret);

+    } else { /* Throughed Event */

+	ret = _XimLookupWCText(ic, ev, buffer, wlen, keysym, NULL);

+	if(ret > 0) {

+	    if (ret > wlen) {

+		if (status) *status = XBufferOverflow;

+	    } else if (keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupBoth;

+	    } else {

+		if(status) *status = XLookupChars;

+	    }

+	} else {

+	    if(keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupKeySym;

+	    } else {

+		if(status) *status = XLookupNone;

+	    }

+	}

+    }

+    return (ret);

+}

+

+Public int

+_XimLocalUtf8LookupString(XIC xic, XKeyEvent *ev, char *buffer, int bytes,

+			  KeySym *keysym, Status *status)

+{

+    Xic		 ic = (Xic)xic;

+    int		 ret;

+    DefTree	*b    = ic->private.local.base.tree;

+    char	*utf8 = ic->private.local.base.utf8;

+

+    if(ev->type != KeyPress) {

+	if(status) *status = XLookupNone;

+	return(0);

+    }

+    if(ev->keycode == 0) {

+	if (ic->private.local.brl_committed != 0) { /* Braille Event */

+	    unsigned char pattern = ic->private.local.brl_committed;

+	    ret = 3;

+	    if (ret > bytes) {

+		if(status) *status = XBufferOverflow;

+		return (ret);

+	    }

+	    buffer[0] = 0xe0 | ((BRL_UC_ROW >> 12) & 0x0f);

+	    buffer[1] = 0x80 | ((BRL_UC_ROW >> 8) & 0x30) | (pattern >> 6);

+	    buffer[2] = 0x80 | (pattern & 0x3f);

+	    if(keysym) {

+		*keysym = XK_braille_blank | pattern;

+		if(status) *status = XLookupBoth;

+	    } else

+		if(status) *status = XLookupChars;

+	} else { /* Composed Event */

+	    ret = strlen(&utf8[b[ic->private.local.composed].utf8]);

+	    if(ret > bytes) {

+		if(status) *status = XBufferOverflow;

+		return (ret);

+	    }

+	    memcpy(buffer, &utf8[b[ic->private.local.composed].utf8], ret);

+	    if(keysym) *keysym = b[ic->private.local.composed].ks;

+	    if (ret > 0) {

+		if (keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupBoth;

+		} else {

+		    if(status) *status = XLookupChars;

+		}

+	    } else {

+		if(keysym && *keysym != NoSymbol) {

+		    if(status) *status = XLookupKeySym;

+		} else {

+		    if(status) *status = XLookupNone;

+		}

+	    }

+	}

+	return (ret);

+    } else { /* Throughed Event */

+	ret = _XimLookupUTF8Text(ic, ev, buffer, bytes, keysym, NULL);

+	if(ret > 0) {

+	    if (ret > bytes) {

+		if (status) *status = XBufferOverflow;

+	    } else if (keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupBoth;

+	    } else {

+		if(status) *status = XLookupChars;

+	    }

+	} else {

+	    if(keysym && *keysym != NoSymbol) {

+		if(status) *status = XLookupKeySym;

+	    } else {

+		if(status) *status = XLookupNone;

+	    }

+	}

+    }

+    return (ret);

+}

+

+Private int

+_XimLcctsconvert(

+    XlcConv	 conv,

+    char	*from,

+    int		 from_len,

+    char	*to,

+    int		 to_len,

+    Status	*state)

+{

+    int		 from_left;

+    int		 to_left;

+    int		 from_savelen;

+    int		 to_savelen;

+    int		 from_cnvlen;

+    int		 to_cnvlen;

+    char	*from_buf;

+    char	*to_buf;

+    char	 scratchbuf[BUFSIZ];

+    Status	 tmp_state;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (!conv || !from || !from_len) {

+	*state = XLookupNone;

+	return 0;

+    }

+

+    /* Reset the converter.  The CompoundText at 'from' starts in

+       initial state.  */

+    _XlcResetConverter(conv);

+

+    from_left = from_len;

+    to_left = BUFSIZ;

+    from_cnvlen = 0;

+    to_cnvlen = 0;

+    for (;;) {

+	from_buf = &from[from_cnvlen];

+	from_savelen = from_left;

+	to_buf = &scratchbuf[to_cnvlen];

+	to_savelen = to_left;

+	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,

+				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {

+	    *state = XLookupNone;

+	    return 0;

+	}

+	from_cnvlen += (from_savelen - from_left);

+	to_cnvlen += (to_savelen - to_left);

+	if (from_left == 0) {

+	    if (!to_cnvlen) {

+		*state = XLookupNone;

+		return 0;

+           }

+	   break;

+	}

+    }

+

+    if (!to || !to_len || (to_len < to_cnvlen)) {

+       *state = XBufferOverflow;

+    } else {

+       memcpy(to, scratchbuf, to_cnvlen);

+       *state = XLookupChars;

+    }

+    return to_cnvlen;

+}

+

+Public int

+_XimLcctstombs(XIM xim, char *from, int from_len,

+	       char *to, int to_len, Status *state)

+{

+    return _XimLcctsconvert(((Xim)xim)->private.local.ctom_conv,

+			    from, from_len, to, to_len, state);

+}

+

+Public int

+_XimLcctstowcs(XIM xim, char *from, int from_len,

+	       wchar_t *to, int to_len, Status *state)

+{

+    Xim		 im = (Xim)xim;

+    XlcConv	 conv = im->private.local.ctow_conv;

+    int		 from_left;

+    int		 to_left;

+    int		 from_savelen;

+    int		 to_savelen;

+    int		 from_cnvlen;

+    int		 to_cnvlen;

+    char	*from_buf;

+    wchar_t	*to_buf;

+    wchar_t	 scratchbuf[BUFSIZ];

+    Status	 tmp_state;

+

+    if (!state)

+	state = &tmp_state;

+

+    if (!conv || !from || !from_len) {

+	*state = XLookupNone;

+	return 0;

+    }

+

+    /* Reset the converter.  The CompoundText at 'from' starts in

+       initial state.  */

+    _XlcResetConverter(conv);

+

+    from_left = from_len;

+    to_left = BUFSIZ;

+    from_cnvlen = 0;

+    to_cnvlen = 0;

+    for (;;) {

+	from_buf = &from[from_cnvlen];

+       from_savelen = from_left;

+       to_buf = &scratchbuf[to_cnvlen];

+       to_savelen = to_left;

+	if (_XlcConvert(conv, (XPointer *)&from_buf, &from_left,

+				 (XPointer *)&to_buf, &to_left, NULL, 0) < 0) {

+	    *state = XLookupNone;

+	    return 0;

+	}

+	from_cnvlen += (from_savelen - from_left);

+       to_cnvlen += (to_savelen - to_left);

+	if (from_left == 0) {

+           if (!to_cnvlen){

+		*state = XLookupNone;

+               return 0;

+           }

+	    break;

+	}

+    }

+

+    if (!to || !to_len || (to_len < to_cnvlen)) {

+       *state = XBufferOverflow;

+    } else {

+       memcpy(to, scratchbuf, to_cnvlen * sizeof(wchar_t));

+       *state = XLookupChars;

+    }

+    return to_cnvlen;

+}

+

+Public int

+_XimLcctstoutf8(XIM xim, char *from, int from_len,

+		char *to, int to_len, Status *state)

+{

+    return _XimLcctsconvert(((Xim)xim)->private.local.ctoutf8_conv,

+			    from, from_len, to, to_len, state);

+}

diff --git a/libX11/modules/im/ximcp/imRm.c b/libX11/modules/im/ximcp/imRm.c
index da1207ca1..ae35272fa 100644
--- a/libX11/modules/im/ximcp/imRm.c
+++ b/libX11/modules/im/ximcp/imRm.c
@@ -1,3196 +1,3197 @@
-/******************************************************************
-
-	  Copyright 1990, 1991, 1992,1993, 1994 by FUJITSU LIMITED
-	  Copyright 1994                        by Sony Corporation
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-and Sony Corporation not be used in advertising or publicity
-pertaining to distribution of the software without specific,
-written prior permission. FUJITSU LIMITED and Sony Corporation make
-no representations about the suitability of this software for any
-purpose. It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED AND SONY CORPORATION DISCLAIM ALL WARRANTIES WITH
-REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJITSU LIMITED AND
-SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
-PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
-TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Takashi Fujiwara     FUJITSU LIMITED
-			       fujiwara@a80.tech.yk.fujitsu.co.jp
-  Modifier: Makoto Wakamatsu   Sony Corporation
-			       makoto@sm.sony.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xlib.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-#include "Xresource.h"
-
-#define GET_NAME(x) name_table + x.name_offset
-
-typedef struct _XimValueOffsetInfo {
-    unsigned short name_offset;
-    XrmQuark		 quark;
-    unsigned int	 offset;
-    Bool		 (*defaults)(
-	struct _XimValueOffsetInfo *, XPointer, XPointer, unsigned long
-			 );
-    Bool		 (*encode)(
-	struct _XimValueOffsetInfo *, XPointer, XPointer
-			 );
-    Bool		 (*decode)(
-	struct _XimValueOffsetInfo *, XPointer, XPointer
-			 );
-} XimValueOffsetInfoRec, *XimValueOffsetInfo;
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimCheckBool(str)
-    char	*str;
-{
-    if(!strcmp(str, "True") || !strcmp(str, "true") ||
-       !strcmp(str, "Yes")  || !strcmp(str, "yes")  ||
-       !strcmp(str, "ON")   || !strcmp(str, "on"))
-	return True;
-    return False;
-}
-
-Public void
-_XimSetProtoResource(im)
-    Xim		 im;
-{
-    char	res_name_buf[256];
-    char*	res_name;
-    char	res_class_buf[256];
-    char*	res_class;
-    char*	str_type;
-    XrmValue	value;
-    XIMStyle	preedit_style = 0;
-    XIMStyle	status_style = 0;
-    XIMStyles*	imstyles;
-    char*	dotximdot = ".xim.";
-    char*	ximdot = "xim.";
-    char*	dotXimdot = ".Xim.";
-    char*	Ximdot = "Xim.";
-
-    if (!im->core.rdb)
-	return;
-
-    if (strlen (im->core.res_name) < 200) res_name = res_name_buf;
-    else res_name = Xmalloc (strlen (im->core.res_name) + 50);
-    if (strlen (im->core.res_class) < 200) res_class = res_class_buf;
-    else res_class = Xmalloc (strlen (im->core.res_class) + 50);
-    /* pretend malloc always works */
-
-    (void) sprintf (res_name, "%s%s%s",
-	im->core.res_name != NULL ? im->core.res_name : "*",
-	im->core.res_name != NULL ? dotximdot : ximdot,
-	"useAuth");
-    (void) sprintf (res_class, "%s%s%s",
-	im->core.res_class != NULL ? im->core.res_class : "*",
-	im->core.res_class != NULL ? dotXimdot : Ximdot,
-	"UseAuth");
-    bzero(&value, sizeof(XrmValue));
-    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {
-	if(_XimCheckBool(value.addr)) {
-	    MARK_USE_AUTHORIZATION_FUNC(im);
-	}
-    }
-
-    (void) sprintf (res_name, "%s%s%s",
-	im->core.res_name != NULL ? im->core.res_name : "*",
-	im->core.res_name != NULL ? dotximdot : ximdot,
-	"delaybinding");
-    (void) sprintf (res_class, "%s%s%s",
-	im->core.res_class != NULL ? im->core.res_class : "*",
-	im->core.res_class != NULL ? dotXimdot : Ximdot,
-	"Delaybinding");
-    bzero(&value, sizeof(XrmValue));
-    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {
-	if(_XimCheckBool(value.addr)) {
-	    MARK_DELAYBINDABLE(im);
-	}
-    }
-
-    (void) sprintf (res_name, "%s%s%s",
-	im->core.res_name != NULL ? im->core.res_name : "*",
-	im->core.res_name != NULL ? dotximdot : ximdot,
-	"reconnect");
-    (void) sprintf (res_class, "%s%s%s",
-	im->core.res_class != NULL ? im->core.res_class : "*",
-	im->core.res_class != NULL ? dotXimdot : Ximdot,
-	"Reconnect");
-    bzero(&value, sizeof(XrmValue));
-    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {
-	if(_XimCheckBool(value.addr)) {
-	    MARK_RECONNECTABLE(im);
-	}
-    }
-
-    if(!IS_CONNECTABLE(im)) {
-	if (res_name != res_name_buf) Xfree (res_name);
-	if (res_class != res_class_buf) Xfree (res_class);
-	return;
-    }
-
-    (void) sprintf (res_name, "%s%s%s",
-	im->core.res_name != NULL ? im->core.res_name : "*",
-	im->core.res_name != NULL ? dotximdot : ximdot,
-	"preeditDefaultStyle");
-    (void) sprintf (res_class, "%s%s%s",
-	im->core.res_class != NULL ? im->core.res_class : "*",
-	im->core.res_class != NULL ? dotXimdot : Ximdot,
-	"PreeditDefaultStyle");
-    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {
-	if(!strcmp(value.addr, "XIMPreeditArea"))
-	    preedit_style = XIMPreeditArea;
-	else if(!strcmp(value.addr, "XIMPreeditCallbacks"))
-	    preedit_style = XIMPreeditCallbacks;
-	else if(!strcmp(value.addr, "XIMPreeditPosition"))
-	    preedit_style = XIMPreeditPosition;
-	else if(!strcmp(value.addr, "XIMPreeditNothing"))
-	    preedit_style = XIMPreeditNothing;
-	else if(!strcmp(value.addr, "XIMPreeditNone"))
-	    preedit_style = XIMPreeditNone;
-    }
-    if(!preedit_style)
-	preedit_style = XIMPreeditNothing;
-
-    (void) sprintf (res_name, "%s%s%s",
-	im->core.res_name != NULL ? im->core.res_name : "*",
-	im->core.res_name != NULL ? dotximdot : ximdot,
-	"statusDefaultStyle");
-    (void) sprintf (res_class, "%s%s%s",
-	im->core.res_class != NULL ? im->core.res_class : "*",
-	im->core.res_class != NULL ? dotXimdot : Ximdot,
-	"StatusDefaultStyle");
-    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {
-	if(!strcmp(value.addr, "XIMStatusArea"))
-	    status_style = XIMStatusArea;
-	else if(!strcmp(value.addr, "XIMStatusCallbacks"))
-	    status_style = XIMStatusCallbacks;
-	else if(!strcmp(value.addr, "XIMStatusNothing"))
-	    status_style = XIMStatusNothing;
-	else if(!strcmp(value.addr, "XIMStatusNone"))
-	    status_style = XIMStatusNone;
-    }
-    if(!status_style)
-	status_style = XIMStatusNothing;
-
-    if(!(imstyles = (XIMStyles *)Xmalloc(sizeof(XIMStyles) + sizeof(XIMStyle)))){
-	if (res_name != res_name_buf) Xfree (res_name);
-	if (res_class != res_class_buf) Xfree (res_class);
-	return;
-    }
-    imstyles->count_styles = 1;
-    imstyles->supported_styles =
-			(XIMStyle *)((char *)imstyles + sizeof(XIMStyles));
-    imstyles->supported_styles[0] = preedit_style | status_style;
-    im->private.proto.default_styles = imstyles;
-    if (res_name != res_name_buf) Xfree (res_name);
-    if (res_class != res_class_buf) Xfree (res_class);
-}
-#endif /* XIM_CONNECTABLE */
-
-static const char name_table[] =
-    /*   0 */ XNQueryInputStyle"\0"
-    /*  16 */ XNClientWindow"\0"
-    /*  29 */ XNInputStyle"\0"
-    /*  40 */ XNFocusWindow"\0"
-    /*  52 */ XNResourceName"\0"
-    /*  65 */ XNResourceClass"\0"
-    /*  79 */ XNGeometryCallback"\0"
-    /*  96 */ XNDestroyCallback"\0"
-    /* 112 */ XNFilterEvents"\0"
-    /* 125 */ XNPreeditStartCallback"\0"
-    /* 146 */ XNPreeditDoneCallback"\0"
-    /* 166 */ XNPreeditDrawCallback"\0"
-    /* 186 */ XNPreeditCaretCallback"\0"
-    /* 207 */ XNPreeditStateNotifyCallback"\0"
-    /* 234 */ XNPreeditAttributes"\0"
-    /* 252 */ XNStatusStartCallback"\0"
-    /* 272 */ XNStatusDoneCallback"\0"
-    /* 291 */ XNStatusDrawCallback"\0"
-    /* 310 */ XNStatusAttributes"\0"
-    /* 327 */ XNArea"\0"
-    /* 332 */ XNAreaNeeded"\0"
-    /* 343 */ XNSpotLocation"\0"
-    /* 356 */ XNColormap"\0"
-    /* 365 */ XNStdColormap"\0"
-    /* 377 */ XNForeground"\0"
-    /* 388 */ XNBackground"\0"
-    /* 399 */ XNBackgroundPixmap"\0"
-    /* 416 */ XNFontSet"\0"
-    /* 424 */ XNLineSpace"\0"
-    /* 434 */ XNCursor"\0"
-    /* 441 */ XNQueryIMValuesList"\0"
-    /* 459 */ XNQueryICValuesList"\0"
-    /* 477 */ XNVisiblePosition"\0"
-    /* 493 */ XNStringConversionCallback"\0"
-    /* 518 */ XNStringConversion"\0"
-    /* 535 */ XNResetState"\0"
-    /* 546 */ XNHotKey"\0"
-    /* 553 */ XNHotKeyState"\0"
-    /* 565 */ XNPreeditState
-;
-
-#define OFFSET_XNQUERYINPUTSTYLE 0
-#define OFFSET_XNCLIENTWINDOW 16
-#define OFFSET_XNINPUTSTYLE 29
-#define OFFSET_XNFOCUSWINDOW 40
-#define OFFSET_XNRESOURCENAME 52
-#define OFFSET_XNRESOURCECLASS 65
-#define OFFSET_XNGEOMETRYCALLBACK 79
-#define OFFSET_XNDESTROYCALLBACK 96
-#define OFFSET_XNFILTEREVENTS 112
-#define OFFSET_XNPREEDITSTARTCALLBACK 125
-#define OFFSET_XNPREEDITDONECALLBACK 146
-#define OFFSET_XNPREEDITDRAWCALLBACK 166
-#define OFFSET_XNPREEDITCARETCALLBACK 186
-#define OFFSET_XNPREEDITSTATENOTIFYCALLBACK 207
-#define OFFSET_XNPREEDITATTRIBUTES 234
-#define OFFSET_XNSTATUSSTARTCALLBACK 252
-#define OFFSET_XNSTATUSDONECALLBACK 272
-#define OFFSET_XNSTATUSDRAWCALLBACK 291
-#define OFFSET_XNSTATUSATTRIBUTES 310
-#define OFFSET_XNAREA 327
-#define OFFSET_XNAREANEEDED 332
-#define OFFSET_XNSPOTLOCATION 343
-#define OFFSET_XNCOLORMAP 356
-#define OFFSET_XNSTDCOLORMAP 365
-#define OFFSET_XNFOREGROUND 377
-#define OFFSET_XNBACKGROUND 388
-#define OFFSET_XNBACKGROUNDPIXMAP 399
-#define OFFSET_XNFONTSET 416
-#define OFFSET_XNLINESPACE 424
-#define OFFSET_XNCURSOR 434
-#define OFFSET_XNQUERYIMVALUESLIST 441
-#define OFFSET_XNQUERYICVALUESLIST 459
-#define OFFSET_XNVISIBLEPOSITION 477
-#define OFFSET_XNSTRINGCONVERSIONCALLBACK 493
-#define OFFSET_XNSTRINGCONVERSION 518
-#define OFFSET_XNRESETSTATE 535
-#define OFFSET_XNHOTKEY 546
-#define OFFSET_XNHOTKEYSTATE 553
-#define OFFSET_XNPREEDITSTATE 565
-
-/* offsets into name_table */
-static const unsigned short supported_local_im_values_list[] = {
-    OFFSET_XNQUERYINPUTSTYLE,
-    OFFSET_XNRESOURCENAME,
-    OFFSET_XNRESOURCECLASS,
-    OFFSET_XNDESTROYCALLBACK,
-    OFFSET_XNQUERYIMVALUESLIST,
-    OFFSET_XNQUERYICVALUESLIST,
-    OFFSET_XNVISIBLEPOSITION
-};
-
-/* offsets into name_table */
-static const unsigned short supported_local_ic_values_list[] = {
-    OFFSET_XNINPUTSTYLE,
-    OFFSET_XNCLIENTWINDOW,
-    OFFSET_XNFOCUSWINDOW,
-    OFFSET_XNRESOURCENAME,
-    OFFSET_XNRESOURCECLASS,
-    OFFSET_XNGEOMETRYCALLBACK,
-    OFFSET_XNFILTEREVENTS,
-    OFFSET_XNDESTROYCALLBACK,
-    OFFSET_XNSTRINGCONVERSIONCALLBACK,
-    OFFSET_XNSTRINGCONVERSIONCALLBACK,
-    OFFSET_XNRESETSTATE,
-    OFFSET_XNHOTKEY,
-    OFFSET_XNHOTKEYSTATE,
-    OFFSET_XNPREEDITATTRIBUTES,
-    OFFSET_XNSTATUSATTRIBUTES,
-    OFFSET_XNAREA,
-    OFFSET_XNAREANEEDED,
-    OFFSET_XNSPOTLOCATION,
-    OFFSET_XNCOLORMAP,
-    OFFSET_XNSTDCOLORMAP,
-    OFFSET_XNFOREGROUND,
-    OFFSET_XNBACKGROUND,
-    OFFSET_XNBACKGROUNDPIXMAP,
-    OFFSET_XNFONTSET,
-    OFFSET_XNLINESPACE,
-    OFFSET_XNCURSOR,
-    OFFSET_XNPREEDITSTARTCALLBACK,
-    OFFSET_XNPREEDITDONECALLBACK,
-    OFFSET_XNPREEDITDRAWCALLBACK,
-    OFFSET_XNPREEDITCARETCALLBACK,
-    OFFSET_XNSTATUSSTARTCALLBACK,
-    OFFSET_XNSTATUSDONECALLBACK,
-    OFFSET_XNSTATUSDRAWCALLBACK,
-    OFFSET_XNPREEDITSTATE,
-    OFFSET_XNPREEDITSTATENOTIFYCALLBACK
-};
-
-static XIMStyle const supported_local_styles[] = {
-    XIMPreeditNone	| XIMStatusNone,
-    XIMPreeditNothing	| XIMStatusNothing,
-    0						/* dummy */
-};
-
-Private  Bool
-_XimDefaultStyles(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,			/* unused */
-    unsigned long	  mode)			/* unused */
-{
-    XIMStyles		 *styles;
-    XIMStyles		**out;
-    register int	  i;
-    unsigned int	  n;
-    int			  len;
-    XPointer		  tmp;
-
-    n = XIMNumber(supported_local_styles) - 1;
-    len = sizeof(XIMStyles) + sizeof(XIMStyle) * n;
-    if(!(tmp = Xcalloc(1, len))) {
-	return False;
-    }
-
-    styles = (XIMStyles *)tmp;
-    if (n > 0) {
-	styles->count_styles = (unsigned short)n;
-	styles->supported_styles =
-				(XIMStyle *)((char *)tmp + sizeof(XIMStyles));
-	for(i = 0; i < n; i++) {
-	    styles->supported_styles[i] = supported_local_styles[i];
-	}
-    }
-
-    out = (XIMStyles **)((char *)top + info->offset);
-    *out = styles;
-    return True;
-}
-
-Private  Bool
-_XimDefaultIMValues(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,			/* unused */
-    unsigned long	  mode)			/* unused */
-{
-    XIMValuesList	 *values_list;
-    XIMValuesList	**out;
-    register int	  i;
-    unsigned int	  n;
-    int			  len;
-    XPointer		  tmp;
-
-    n = XIMNumber(supported_local_im_values_list);
-    len = sizeof(XIMValuesList) + sizeof(char **) * n;
-    if(!(tmp = Xcalloc(1, len))) {
-	return False;
-    }
-
-    values_list = (XIMValuesList *)tmp;
-    if (n > 0) {
-	values_list->count_values = (unsigned short)n;
-	values_list->supported_values
-			 = (char **)((char *)tmp + sizeof(XIMValuesList));
-	for(i = 0; i < n; i++) {
-	    values_list->supported_values[i] =
-		(char *)name_table + supported_local_im_values_list[i];
-	}
-    }
-
-    out = (XIMValuesList **)((char *)top + info->offset);
-    *out = values_list;
-    return True;
-}
-
-Private  Bool
-_XimDefaultICValues(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,			/* unused */
-    unsigned long	  mode)			/* unused */
-{
-    XIMValuesList	 *values_list;
-    XIMValuesList	**out;
-    register int	  i;
-    unsigned int	  n;
-    int			  len;
-    XPointer		  tmp;
-
-    n = XIMNumber(supported_local_ic_values_list);
-    len = sizeof(XIMValuesList) + sizeof(char **) * n;
-    if(!(tmp = Xcalloc(1, len))) {
-	return False;
-    }
-
-    values_list = (XIMValuesList *)tmp;
-    if (n > 0) {
-	values_list->count_values = (unsigned short)n;
-	values_list->supported_values
-			 = (char **)((char *)tmp + sizeof(XIMValuesList));
-	for(i = 0; i < n; i++) {
-	    values_list->supported_values[i] =
-		(char *)name_table + supported_local_ic_values_list[i];
-	}
-    }
-
-    out = (XIMValuesList **)((char *)top + info->offset);
-    *out = values_list;
-    return True;
-}
-
-Private  Bool
-_XimDefaultVisiblePos(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,			/* unused */
-    unsigned long	  mode)			/* unused */
-{
-    Bool		*out;
-
-    out = (Bool *)((char *)top + info->offset);
-    *out = False;
-    return True;
-}
-
-Private  Bool
-_XimDefaultFocusWindow(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    Window		*out;
-
-    if(ic->core.client_window == (Window)NULL) {
-	return True;
-    }
-
-    out = (Window *)((char *)top + info->offset);
-    *out = ic->core.client_window;
-    return True;
-}
-
-Private  Bool
-_XimDefaultResName(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,
-    unsigned long	  mode)
-{
-    Xic			  ic = (Xic)parm;
-    Xim			  im = (Xim)ic->core.im;
-    char		**out;
-
-    if(im->core.res_name == (char *)NULL) {
-	return True;
-    }
-
-    out = (char **)((char *)top + info->offset);
-    *out = im->core.res_name;
-    return True;
-}
-
-Private  Bool
-_XimDefaultResClass(
-    XimValueOffsetInfo	   info,
-    XPointer	 	   top,
-    XPointer	 	   parm,
-    unsigned long	   mode)
-{
-    Xic			  ic = (Xic)parm;
-    Xim			  im = (Xim)ic->core.im;
-    char		**out;
-
-    if(im->core.res_class == (char *)NULL) {
-	return True;
-    }
-
-    out = (char **)((char *)top + info->offset);
-    *out = im->core.res_class;
-    return True;
-}
-
-Private  Bool
-_XimDefaultDestroyCB(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,
-    unsigned long	  mode)
-{
-    Xic			 ic = (Xic)parm;
-    Xim			 im = (Xim)ic->core.im;
-    XIMCallback		*out;
-
-    out = (XIMCallback *)((char *)top + info->offset);
-    *out = im->core.destroy_callback;
-    return True;
-}
-
-Private  Bool
-_XimDefaultResetState(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,
-    unsigned long	  mode)
-{
-    XIMResetState	*out;
-
-    out = (XIMResetState *)((char *)top + info->offset);
-    *out = XIMInitialState;
-    return True;
-}
-
-Private  Bool
-_XimDefaultHotKeyState(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  parm,
-    unsigned long	  mode)
-{
-    XIMHotKeyState	*out;
-
-    out = (XIMHotKeyState *)((char *)top + info->offset);
-    *out = XIMHotKeyStateOFF;
-    return True;
-}
-
-Private  Bool
-_XimDefaultArea(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    Xim			 im = (Xim)ic->core.im;
-    Window		 root_return;
-    int			 x_return, y_return;
-    unsigned int	 width_return, height_return;
-    unsigned int	 border_width_return;
-    unsigned int	 depth_return;
-    XRectangle		 area;
-    XRectangle		*out;
-
-    if(ic->core.focus_window == (Window)NULL) {
-	return True;
-    }
-    if(XGetGeometry(im->core.display, (Drawable)ic->core.focus_window,
-		&root_return, &x_return, &y_return, &width_return,
-		&height_return, &border_width_return, &depth_return)
-		== (Status)Success) {
-	return True;
-    }
-    area.x	= 0;
-    area.y	= 0;
-    area.width	= width_return;
-    area.height	= height_return;
-
-    out = (XRectangle *)((char *)top + info->offset);
-    *out = area;
-    return True;
-}
-
-Private  Bool
-_XimDefaultColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    Xim			 im = (Xim)ic->core.im;
-    XWindowAttributes	 win_attr;
-    Colormap		*out;
-
-    if(ic->core.client_window == (Window)NULL) {
-	return True;
-    }
-    if(XGetWindowAttributes(im->core.display, ic->core.client_window,
-					&win_attr) == (Status)Success) {
-	return True;
-    }
-
-    out = (Colormap *)((char *)top + info->offset);
-    *out = win_attr.colormap;
-    return True;
-}
-
-Private  Bool
-_XimDefaultStdColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Atom		*out;
-
-    out = (Atom *)((char *)top + info->offset);
-    *out = (Atom)0;
-    return True;
-}
-
-Private  Bool
-_XimDefaultFg(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    Xim			 im = (Xim)ic->core.im;
-    unsigned long	 fg;
-    unsigned long	*out;
-
-    fg = WhitePixel(im->core.display, DefaultScreen(im->core.display));
-    out = (unsigned long *)((char *)top + info->offset);
-    *out = fg;
-    return True;
-}
-
-Private  Bool
-_XimDefaultBg(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    Xim			 im = (Xim)ic->core.im;
-    unsigned long	 bg;
-    unsigned long	*out;
-
-    bg = BlackPixel(im->core.display, DefaultScreen(im->core.display));
-    out = (unsigned long *)((char *)top + info->offset);
-    *out = bg;
-    return True;
-}
-
-Private  Bool
-_XimDefaultBgPixmap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Pixmap		*out;
-
-    out = (Pixmap *)((char *)top + info->offset);
-    *out = (Pixmap)0;
-    return True;
-}
-
-Private  Bool
-_XimDefaultFontSet(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    XFontSet		*out;
-
-    out = (XFontSet *)((char *)top + info->offset);
-    *out = 0;
-    return True;
-}
-
-Private  Bool
-_XimDefaultLineSpace(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Xic			 ic = (Xic)parm;
-    XFontSet		 fontset;
-    XFontSetExtents	*fset_extents;
-    int			 line_space = 0;
-    int			*out;
-
-    if(mode & XIM_PREEDIT_ATTR) {
-	fontset = ic->core.preedit_attr.fontset;
-    } else if(mode & XIM_STATUS_ATTR) {
-	fontset = ic->core.status_attr.fontset;
-    } else {
-	return True;
-    }
-    if (fontset) {
-	fset_extents = XExtentsOfFontSet(fontset);
-	line_space = fset_extents->max_logical_extent.height;
-    }
-    out = (int *)((char *)top + info->offset);
-    *out = line_space;
-    return True;
-}
-
-Private  Bool
-_XimDefaultCursor(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    Cursor		*out;
-
-    out = (Cursor *)((char *)top + info->offset);
-    *out = (Cursor)0;
-    return True;
-}
-
-Private  Bool
-_XimDefaultPreeditState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    XIMPreeditState	*out;
-
-    out = (XIMPreeditState *)((char *)top + info->offset);
-    *out = XIMPreeditDisable;
-    return True;
-}
-
-Private  Bool
-_XimDefaultNest(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 parm,
-    unsigned long	 mode)
-{
-    return True;
-}
-
-Private  Bool
-_XimEncodeCallback(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMCallback		*out;
-
-    out = (XIMCallback *)((char *)top + info->offset);
-    *out = *((XIMCallback *)val);
-    return True;
-}
-
-Private  Bool
-_XimEncodeString(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  val)
-{
-    char		 *string;
-    char		**out;
-
-    if(val == (XPointer)NULL) {
-	return False;
-    }
-    if (!(string = strdup((char *)val))) {
-	return False;
-    }
-
-    out = (char **)((char *)top + info->offset);
-    if(*out) {
-	Xfree(*out);
-    }
-    *out = string;
-    return True;
-}
-
-Private  Bool
-_XimEncodeStyle(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMStyle		*out;
-
-    out = (XIMStyle *)((char *)top + info->offset);
-    *out = (XIMStyle)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeWindow(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Window		*out;
-
-    out = (Window *)((char *)top + info->offset);
-    *out = (Window)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeStringConv(
-    XimValueOffsetInfo		 info,
-    XPointer		 	 top,
-    XPointer		 	 val)
-{
-    /*
-     * Not yet
-     */
-    return True;
-}
-
-Private  Bool
-_XimEncodeResetState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMResetState	*out;
-
-    out = (XIMResetState *)((char *)top + info->offset);
-    *out = (XIMResetState)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeHotKey(
-    XimValueOffsetInfo	  info,
-    XPointer	 	  top,
-    XPointer	 	  val)
-{
-    XIMHotKeyTriggers	 *hotkey = (XIMHotKeyTriggers *)val;
-    XIMHotKeyTriggers	**out;
-    XIMHotKeyTriggers	 *key_list;
-    XIMHotKeyTrigger	 *key;
-    XPointer		  tmp;
-    int			  num;
-    int			  len;
-    register int	  i;
-
-    if(hotkey == (XIMHotKeyTriggers *)NULL) {
-	return True;
-    }
-
-    if((num = hotkey->num_hot_key) == 0) {
-	return True;
-    }
-
-    len = sizeof(XIMHotKeyTriggers) + sizeof(XIMHotKeyTrigger) * num;
-    if(!(tmp = (XPointer)Xmalloc(len))) {
-	return False;
-    }
-
-    key_list = (XIMHotKeyTriggers *)tmp;
-    key = (XIMHotKeyTrigger *)((char *)tmp + sizeof(XIMHotKeyTriggers));
-
-    for(i = 0; i < num; i++) {
-	key[i] = hotkey->key[i];
-    }
-
-    key_list->num_hot_key = num;
-    key_list->key = key;
-
-    out = (XIMHotKeyTriggers **)((char *)top + info->offset);
-    *out = key_list;
-    return True;
-}
-
-Private  Bool
-_XimEncodeHotKetState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMHotKeyState	*out;
-
-    out = (XIMHotKeyState *)((char *)top + info->offset);
-    *out = (XIMHotKeyState)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeRectangle(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XRectangle		*out;
-
-    out = (XRectangle *)((char *)top + info->offset);
-    *out = *((XRectangle *)val);
-    return True;
-}
-
-Private  Bool
-_XimEncodeSpot(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XPoint		*out;
-
-    out = (XPoint *)((char *)top + info->offset);
-    *out = *((XPoint *)val);
-    return True;
-}
-
-Private  Bool
-_XimEncodeColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Colormap		*out;
-
-    out = (Colormap *)((char *)top + info->offset);
-    *out = (Colormap)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeStdColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Atom		*out;
-
-    out = (Atom *)((char *)top + info->offset);
-    *out = (Atom)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeLong(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    unsigned long	*out;
-
-    out = (unsigned long *)((char *)top + info->offset);
-    *out = (unsigned long)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeBgPixmap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Pixmap		*out;
-
-    out = (Pixmap *)((char *)top + info->offset);
-    *out = (Pixmap)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeFontSet(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XFontSet		*out;
-
-    out = (XFontSet *)((char *)top + info->offset);
-    *out = (XFontSet)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeLineSpace(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    int			*out;
-
-    out = (int *)((char *)top + info->offset);
-    *out = (long)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeCursor(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Cursor		*out;
-
-    out = (Cursor *)((char *)top + info->offset);
-    *out = (Cursor)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodePreeditState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMPreeditState	*out;
-
-    out = (XIMPreeditState *)((char *)top + info->offset);
-    *out = (XIMPreeditState)val;
-    return True;
-}
-
-Private  Bool
-_XimEncodeNest(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    return True;
-}
-
-Private  Bool
-_XimDecodeStyles(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMStyles		*styles;
-    XIMStyles		*out;
-    register int	 i;
-    unsigned int	 num;
-    int			 len;
-    XPointer		 tmp;
-
-    if(val == (XPointer)NULL) {
-	return False;
-    }
-
-    styles = *((XIMStyles **)((char *)top + info->offset));
-    num = styles->count_styles;
-
-    len = sizeof(XIMStyles) + sizeof(XIMStyle) * num;
-    if(!(tmp = Xcalloc(1, len))) {
-	return False;
-    }
-
-    out = (XIMStyles *)tmp;
-    if(num >0) {
-	out->count_styles = (unsigned short)num;
-	out->supported_styles = (XIMStyle *)((char *)tmp + sizeof(XIMStyles));
-
-	for(i = 0; i < num; i++) {
-	    out->supported_styles[i] = styles->supported_styles[i];
-	}
-    }
-    *((XIMStyles **)val) = out;
-    return True;
-}
-
-Private  Bool
-_XimDecodeValues(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMValuesList	*values_list;
-    XIMValuesList	*out;
-    register int	 i;
-    unsigned int	 num;
-    int			 len;
-    XPointer		 tmp;
-
-    if(val == (XPointer)NULL) {
-	return False;
-    }
-
-    values_list = *((XIMValuesList **)((char *)top + info->offset));
-    num = values_list->count_values;
-
-    len = sizeof(XIMValuesList) + sizeof(char **) * num;
-    if(!(tmp = Xcalloc(1, len))) {
-	return False;
-    }
-
-    out = (XIMValuesList *)tmp;
-    if(num) {
-	out->count_values = (unsigned short)num;
-	out->supported_values = (char **)((char *)tmp + sizeof(XIMValuesList));
-
-	for(i = 0; i < num; i++) {
-	    out->supported_values[i] = values_list->supported_values[i];
-	}
-    }
-    *((XIMValuesList **)val) = out;
-    return True;
-}
-
-Private  Bool
-_XimDecodeCallback(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMCallback		*in;
-    XIMCallback		*callback;
-
-    in = (XIMCallback *)((char *)top + info->offset);
-    if(!(callback = (XIMCallback *)Xmalloc(sizeof(XIMCallback)))) {
-	return False;
-    }
-    callback->client_data = in->client_data;
-    callback->callback    = in->callback;
-
-    *((XIMCallback **)val) = callback;
-    return True;
-}
-
-Private  Bool
-_XimDecodeString(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    char		*in;
-    char		*string;
-
-    in = *((char **)((char *)top + info->offset));
-    if (in != NULL) {
-	string = strdup(in);
-    } else {
-	string = Xcalloc(1, 1); /* strdup("") */
-    }
-    if (string == NULL) {
-	return False;
-    }
-    *((char **)val) = string;
-    return True;
-}
-
-Private  Bool
-_XimDecodeBool(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Bool		*in;
-
-    in = (Bool *)((char *)top + info->offset);
-    *((Bool *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeStyle(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMStyle		*in;
-
-    in = (XIMStyle *)((char *)top + info->offset);
-    *((XIMStyle *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeWindow(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Window		*in;
-
-    in = (Window *)((char *)top + info->offset);
-    *((Window *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeStringConv(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    /*
-     * Not yet
-     */
-    return True;
-}
-
-Private  Bool
-_XimDecodeResetState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMResetState	*in;
-
-    in = (XIMResetState *)((char *)top + info->offset);
-    *((XIMResetState *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeHotKey(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMHotKeyTriggers	*in;
-    XIMHotKeyTriggers	*hotkey;
-    XIMHotKeyTrigger	*key;
-    XPointer		 tmp;
-    int			 num;
-    int			 len;
-    register int	 i;
-
-    in = *((XIMHotKeyTriggers **)((char *)top + info->offset));
-    num = in->num_hot_key;
-    len = sizeof(XIMHotKeyTriggers) + sizeof(XIMHotKeyTrigger) * num;
-    if(!(tmp = (XPointer)Xmalloc(len))) {
-	return False;
-    }
-
-    hotkey = (XIMHotKeyTriggers *)tmp;
-    key = (XIMHotKeyTrigger *)((char *)tmp + sizeof(XIMHotKeyTriggers));
-
-    for(i = 0; i < num; i++) {
-	key[i] = in->key[i];
-    }
-    hotkey->num_hot_key = num;
-    hotkey->key = key;
-
-    *((XIMHotKeyTriggers **)val) = hotkey;
-    return True;
-}
-
-Private  Bool
-_XimDecodeHotKetState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMHotKeyState	*in;
-
-    in = (XIMHotKeyState *)((char *)top + info->offset);
-    *((XIMHotKeyState *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeRectangle(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XRectangle		*in;
-    XRectangle		*rect;
-
-    in = (XRectangle *)((char *)top + info->offset);
-    if(!(rect = (XRectangle *)Xmalloc(sizeof(XRectangle)))) {
-	return False;
-    }
-    *rect = *in;
-    *((XRectangle **)val) = rect;
-    return True;
-}
-
-Private  Bool
-_XimDecodeSpot(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XPoint		*in;
-    XPoint		*spot;
-
-    in = (XPoint *)((char *)top + info->offset);
-    if(!(spot = (XPoint *)Xmalloc(sizeof(XPoint)))) {
-	return False;
-    }
-    *spot = *in;
-    *((XPoint **)val) = spot;
-    return True;
-}
-
-Private  Bool
-_XimDecodeColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Colormap		*in;
-
-    in = (Colormap *)((char *)top + info->offset);
-    *((Colormap *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeStdColormap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Atom		*in;
-
-    in = (Atom *)((char *)top + info->offset);
-    *((Atom *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeLong(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    unsigned long	*in;
-
-    in = (unsigned long *)((char *)top + info->offset);
-    *((unsigned long *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeBgPixmap(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Pixmap		*in;
-
-    in = (Pixmap *)((char *)top + info->offset);
-    *((Pixmap *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeFontSet(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XFontSet		*in;
-
-    in = (XFontSet *)((char *)top + info->offset);
-    *((XFontSet *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeLineSpace(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    int		*in;
-
-    in = (int *)((char *)top + info->offset);
-    *((int *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeCursor(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    Cursor		*in;
-
-    in = (Cursor *)((char *)top + info->offset);
-    *((Cursor *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodePreeditState(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    XIMPreeditState	*in;
-
-    in = (XIMPreeditState *)((char *)top + info->offset);
-    *((XIMPreeditState *)val) = *in;
-    return True;
-}
-
-Private  Bool
-_XimDecodeNest(
-    XimValueOffsetInfo	 info,
-    XPointer	 	 top,
-    XPointer	 	 val)
-{
-    return True;
-}
-
-static	XIMResource	im_resources[] = {
-    {XNQueryInputStyle,		   0, XimType_XIMStyles,	0, 0, 0},
-    {XNDestroyCallback,		   0,  0,			0, 0, 0},
-    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},
-    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},
-    {XNQueryIMValuesList,	   0, 0,			0, 0, 0},
-    {XNQueryICValuesList,	   0, 0,			0, 0, 0},
-    {XNVisiblePosition,		   0, 0,			0, 0, 0}
-};
-
-static	XIMResource	im_inner_resources[] = {
-    {XNDestroyCallback,		   0, 0,			0, 0, 0},
-    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},
-    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},
-    {XNQueryIMValuesList,	   0, 0,			0, 0, 0},
-    {XNQueryICValuesList,	   0, 0,			0, 0, 0},
-    {XNVisiblePosition,		   0, 0,			0, 0, 0}
-};
-
-static	XIMResource	ic_resources[] = {
-    {XNInputStyle,		   0, XimType_CARD32,		0, 0, 0},
-    {XNClientWindow,		   0, XimType_Window,		0, 0, 0},
-    {XNFocusWindow,		   0, XimType_Window,		0, 0, 0},
-    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},
-    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},
-    {XNGeometryCallback,	   0, 0,			0, 0, 0},
-    {XNFilterEvents,		   0, XimType_CARD32,		0, 0, 0},
-    {XNDestroyCallback,		   0, 0,			0, 0, 0},
-    {XNStringConversionCallback,   0, 0,			0, 0, 0},
-    {XNStringConversion,	   0, XimType_XIMStringConversion,0, 0, 0},
-    {XNResetState,		   0, 0,			0, 0, 0},
-    {XNHotKey,			   0, XimType_XIMHotKeyTriggers,0, 0, 0},
-    {XNHotKeyState,		   0, XimType_XIMHotKeyState, 	0, 0, 0},
-    {XNPreeditAttributes,	   0, XimType_NEST,		0, 0, 0},
-    {XNStatusAttributes,	   0, XimType_NEST,		0, 0, 0},
-    {XNArea,			   0, XimType_XRectangle,	0, 0, 0},
-    {XNAreaNeeded,		   0, XimType_XRectangle,	0, 0, 0},
-    {XNSpotLocation,		   0, XimType_XPoint,		0, 0, 0},
-    {XNColormap,		   0, XimType_CARD32,		0, 0, 0},
-    {XNStdColormap,		   0, XimType_CARD32,		0, 0, 0},
-    {XNForeground,		   0, XimType_CARD32,		0, 0, 0},
-    {XNBackground,		   0, XimType_CARD32,		0, 0, 0},
-    {XNBackgroundPixmap,	   0, XimType_CARD32,		0, 0, 0},
-    {XNFontSet,			   0, XimType_XFontSet,		0, 0, 0},
-    {XNLineSpace,		   0, XimType_CARD32,		0, 0, 0},
-    {XNCursor,			   0, XimType_CARD32,		0, 0, 0},
-    {XNPreeditStartCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditDoneCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditDrawCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditCaretCallback,	   0, 0,			0, 0, 0},
-    {XNStatusStartCallback,	   0, 0,			0, 0, 0},
-    {XNStatusDoneCallback,	   0, 0,			0, 0, 0},
-    {XNStatusDrawCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditState,		   0, 0,			0, 0, 0},
-    {XNPreeditStateNotifyCallback, 0, 0,			0, 0, 0},
-};
-
-static	XIMResource	ic_inner_resources[] = {
-    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},
-    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},
-    {XNGeometryCallback,	   0, 0,			0, 0, 0},
-    {XNDestroyCallback,		   0, 0,			0, 0, 0},
-    {XNStringConversionCallback,   0, 0,			0, 0, 0},
-    {XNPreeditStartCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditDoneCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditDrawCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditCaretCallback,	   0, 0,			0, 0, 0},
-    {XNStatusStartCallback,	   0, 0,			0, 0, 0},
-    {XNStatusDoneCallback,	   0, 0,			0, 0, 0},
-    {XNStatusDrawCallback,	   0, 0,			0, 0, 0},
-    {XNPreeditStateNotifyCallback, 0, 0,			0, 0, 0},
-};
-
-static XimValueOffsetInfoRec im_attr_info[] = {
-    {OFFSET_XNQUERYINPUTSTYLE,		 0,
-	XOffsetOf(XimDefIMValues, styles),
-	_XimDefaultStyles,	 NULL,			_XimDecodeStyles},
-
-    {OFFSET_XNDESTROYCALLBACK,		 0,
-	XOffsetOf(XimDefIMValues, destroy_callback),
-	NULL,		 	 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNRESOURCENAME,		 0,
-	XOffsetOf(XimDefIMValues, res_name),
-	NULL,		 	 _XimEncodeString,	_XimDecodeString},
-
-    {OFFSET_XNRESOURCECLASS,		 0,
-	XOffsetOf(XimDefIMValues, res_class),
-	NULL,		 	 _XimEncodeString,	_XimDecodeString},
-
-    {OFFSET_XNQUERYIMVALUESLIST,		 0,
-	XOffsetOf(XimDefIMValues, im_values_list),
-	_XimDefaultIMValues,	 NULL,			_XimDecodeValues},
-
-    {OFFSET_XNQUERYICVALUESLIST,		 0,
-	XOffsetOf(XimDefIMValues, ic_values_list),
-	_XimDefaultICValues,	 NULL,			_XimDecodeValues},
-
-    {OFFSET_XNVISIBLEPOSITION,			 0,
-	XOffsetOf(XimDefIMValues, visible_position),
-	_XimDefaultVisiblePos,	 NULL,			_XimDecodeBool}
-};
-
-static XimValueOffsetInfoRec ic_attr_info[] = {
-    {OFFSET_XNINPUTSTYLE,		 0,
-	XOffsetOf(XimDefICValues, input_style),
-	NULL,			 _XimEncodeStyle,	_XimDecodeStyle},
-
-    {OFFSET_XNCLIENTWINDOW,		 0,
-	XOffsetOf(XimDefICValues, client_window),
-	NULL,			 _XimEncodeWindow,	_XimDecodeWindow},
-
-    {OFFSET_XNFOCUSWINDOW,		 0,
-	XOffsetOf(XimDefICValues, focus_window),
-	_XimDefaultFocusWindow,  _XimEncodeWindow,	_XimDecodeWindow},
-
-    {OFFSET_XNRESOURCENAME,		 0,
-	XOffsetOf(XimDefICValues, res_name),
-	_XimDefaultResName,	 _XimEncodeString,	_XimDecodeString},
-
-    {OFFSET_XNRESOURCECLASS,		 0,
-	XOffsetOf(XimDefICValues, res_class),
-	_XimDefaultResClass,	 _XimEncodeString,	_XimDecodeString},
-
-    {OFFSET_XNGEOMETRYCALLBACK,	 0,
-	XOffsetOf(XimDefICValues, geometry_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNFILTEREVENTS,		 0,
-	XOffsetOf(XimDefICValues, filter_events),
-	NULL,			 NULL,			_XimDecodeLong},
-
-    {OFFSET_XNDESTROYCALLBACK,		 0,
-	XOffsetOf(XimDefICValues, destroy_callback),
-	_XimDefaultDestroyCB,	 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNSTRINGCONVERSIONCALLBACK, 0,
-	XOffsetOf(XimDefICValues, string_conversion_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNSTRINGCONVERSION,	 0,
-	XOffsetOf(XimDefICValues, string_conversion),
-	NULL,			 _XimEncodeStringConv,	_XimDecodeStringConv},
-
-    {OFFSET_XNRESETSTATE,		 0,
-	XOffsetOf(XimDefICValues, reset_state),
-	_XimDefaultResetState,	 _XimEncodeResetState,	_XimDecodeResetState},
-
-    {OFFSET_XNHOTKEY,			 0,
-	XOffsetOf(XimDefICValues, hotkey),
-	NULL,			 _XimEncodeHotKey,	_XimDecodeHotKey},
-
-    {OFFSET_XNHOTKEYSTATE,		 0,
-	XOffsetOf(XimDefICValues, hotkey_state),
-	_XimDefaultHotKeyState,	 _XimEncodeHotKetState,	_XimDecodeHotKetState},
-
-    {OFFSET_XNPREEDITATTRIBUTES,	 0,
-	XOffsetOf(XimDefICValues, preedit_attr),
-	_XimDefaultNest,	 _XimEncodeNest,	_XimDecodeNest},
-
-    {OFFSET_XNSTATUSATTRIBUTES,	 0,
-	XOffsetOf(XimDefICValues, status_attr),
-	_XimDefaultNest,	 _XimEncodeNest,	_XimDecodeNest},
-};
-
-static XimValueOffsetInfoRec ic_pre_attr_info[] = {
-    {OFFSET_XNAREA,			 0,
-	XOffsetOf(ICPreeditAttributes, area),
-	_XimDefaultArea,	 _XimEncodeRectangle,	_XimDecodeRectangle},
-
-    {OFFSET_XNAREANEEDED,		 0,
-	XOffsetOf(ICPreeditAttributes, area_needed),
-	NULL,			 _XimEncodeRectangle,	_XimDecodeRectangle},
-
-    {OFFSET_XNSPOTLOCATION,		 0,
-	XOffsetOf(ICPreeditAttributes, spot_location),
-	NULL,			 _XimEncodeSpot,	_XimDecodeSpot},
-
-    {OFFSET_XNCOLORMAP,		 0,
-	XOffsetOf(ICPreeditAttributes, colormap),
-	_XimDefaultColormap,	 _XimEncodeColormap,	_XimDecodeColormap},
-
-    {OFFSET_XNSTDCOLORMAP,		 0,
-	XOffsetOf(ICPreeditAttributes, std_colormap),
-	_XimDefaultStdColormap,	 _XimEncodeStdColormap,	_XimDecodeStdColormap},
-
-    {OFFSET_XNFOREGROUND,		 0,
-	XOffsetOf(ICPreeditAttributes, foreground),
-	_XimDefaultFg,		 _XimEncodeLong,	_XimDecodeLong},
-
-    {OFFSET_XNBACKGROUND,		 0,
-	XOffsetOf(ICPreeditAttributes, background),
-	_XimDefaultBg,		 _XimEncodeLong,	_XimDecodeLong},
-
-    {OFFSET_XNBACKGROUNDPIXMAP,	 0,
-	XOffsetOf(ICPreeditAttributes, background_pixmap),
-	_XimDefaultBgPixmap, 	 _XimEncodeBgPixmap,	_XimDecodeBgPixmap},
-
-    {OFFSET_XNFONTSET,			 0,
-	XOffsetOf(ICPreeditAttributes, fontset),
-	_XimDefaultFontSet,	 _XimEncodeFontSet,	_XimDecodeFontSet},
-
-    {OFFSET_XNLINESPACE,		 0,
-	XOffsetOf(ICPreeditAttributes, line_spacing),
-	_XimDefaultLineSpace,	 _XimEncodeLineSpace,	_XimDecodeLineSpace},
-
-    {OFFSET_XNCURSOR,			 0,
-	XOffsetOf(ICPreeditAttributes, cursor),
-	_XimDefaultCursor,	 _XimEncodeCursor,	_XimDecodeCursor},
-
-    {OFFSET_XNPREEDITSTARTCALLBACK,	 0,
-	XOffsetOf(ICPreeditAttributes, start_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNPREEDITDONECALLBACK,	 0,
-	XOffsetOf(ICPreeditAttributes, done_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNPREEDITDRAWCALLBACK,	 0,
-	XOffsetOf(ICPreeditAttributes, draw_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNPREEDITCARETCALLBACK,	 0,
-	XOffsetOf(ICPreeditAttributes, caret_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNPREEDITSTATE,		 0,
-	XOffsetOf(ICPreeditAttributes, preedit_state),
-	_XimDefaultPreeditState, _XimEncodePreeditState,_XimDecodePreeditState},
-
-    {OFFSET_XNPREEDITSTATENOTIFYCALLBACK, 0,
-	XOffsetOf(ICPreeditAttributes, state_notify_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-};
-
-static XimValueOffsetInfoRec ic_sts_attr_info[] = {
-    {OFFSET_XNAREA,			 0,
-	XOffsetOf(ICStatusAttributes, area),
-	_XimDefaultArea,	 _XimEncodeRectangle,	_XimDecodeRectangle},
-
-    {OFFSET_XNAREANEEDED,		 0,
-	XOffsetOf(ICStatusAttributes, area_needed),
-	NULL,			 _XimEncodeRectangle,	_XimDecodeRectangle},
-
-    {OFFSET_XNCOLORMAP,		 0,
-	XOffsetOf(ICStatusAttributes, colormap),
-	_XimDefaultColormap,	 _XimEncodeColormap,	_XimDecodeColormap},
-
-    {OFFSET_XNSTDCOLORMAP,		 0,
-	XOffsetOf(ICStatusAttributes, std_colormap),
-	_XimDefaultStdColormap,	 _XimEncodeStdColormap,	_XimDecodeStdColormap},
-
-    {OFFSET_XNFOREGROUND,		 0,
-	XOffsetOf(ICStatusAttributes, foreground),
-	_XimDefaultFg,		 _XimEncodeLong,	_XimDecodeLong},
-
-    {OFFSET_XNBACKGROUND,		 0,
-	XOffsetOf(ICStatusAttributes, background),
-	_XimDefaultBg,		 _XimEncodeLong,	_XimDecodeLong},
-
-    {OFFSET_XNBACKGROUNDPIXMAP,	 0,
-	XOffsetOf(ICStatusAttributes, background_pixmap),
-	_XimDefaultBgPixmap, 	 _XimEncodeBgPixmap,	_XimDecodeBgPixmap},
-
-    {OFFSET_XNFONTSET,			 0,
-	XOffsetOf(ICStatusAttributes, fontset),
-	_XimDefaultFontSet,	 _XimEncodeFontSet,	_XimDecodeFontSet},
-
-    {OFFSET_XNLINESPACE,		 0,
-	XOffsetOf(ICStatusAttributes, line_spacing),
-	_XimDefaultLineSpace,	 _XimEncodeLineSpace,	_XimDecodeLineSpace},
-
-    {OFFSET_XNCURSOR,			 0,
-	XOffsetOf(ICStatusAttributes, cursor),
-	_XimDefaultCursor,	 _XimEncodeCursor,	_XimDecodeCursor},
-
-    {OFFSET_XNSTATUSSTARTCALLBACK,	 0,
-	XOffsetOf(ICStatusAttributes, start_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNSTATUSDONECALLBACK,	 0,
-	XOffsetOf(ICStatusAttributes, done_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},
-
-    {OFFSET_XNSTATUSDRAWCALLBACK,	 0,
-	XOffsetOf(ICStatusAttributes, draw_callback),
-	NULL,			 _XimEncodeCallback,	_XimDecodeCallback}
-};
-
-typedef struct _XimIMMode {
-    unsigned short name_offset;
-    unsigned short	 mode;
-} XimIMMode;
-
-static const XimIMMode im_mode[] = {
-    {OFFSET_XNQUERYINPUTSTYLE,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},
-    {OFFSET_XNDESTROYCALLBACK,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},
-    {OFFSET_XNRESOURCENAME,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},
-    {OFFSET_XNRESOURCECLASS,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},
-    {OFFSET_XNQUERYIMVALUESLIST,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},
-    {OFFSET_XNQUERYICVALUESLIST,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},
-    {OFFSET_XNVISIBLEPOSITION,
-		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)}
-};
-
-typedef struct _XimICMode {
-    unsigned short name_offset;
-    unsigned short	 preedit_callback_mode;
-    unsigned short	 preedit_position_mode;
-    unsigned short	 preedit_area_mode;
-    unsigned short	 preedit_nothing_mode;
-    unsigned short	 preedit_none_mode;
-    unsigned short	 status_callback_mode;
-    unsigned short	 status_area_mode;
-    unsigned short	 status_nothing_mode;
-    unsigned short	 status_none_mode;
-} XimICMode;
-
-static const XimICMode ic_mode[] = {
-    {OFFSET_XNINPUTSTYLE,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET)},
-    {OFFSET_XNCLIENTWINDOW,
-		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),
-		0,
-		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNFOCUSWINDOW,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNRESOURCENAME,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNRESOURCECLASS,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNGEOMETRYCALLBACK,
-		0,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0},
-    {OFFSET_XNFILTEREVENTS,
-		XIM_MODE_PRE_GET,
-		XIM_MODE_PRE_GET,
-		XIM_MODE_PRE_GET,
-		XIM_MODE_PRE_GET,
-		0,
-		XIM_MODE_STS_GET,
-		XIM_MODE_STS_GET,
-		XIM_MODE_STS_GET,
-		XIM_MODE_STS_GET},
-    {OFFSET_XNDESTROYCALLBACK,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNSTRINGCONVERSIONCALLBACK,
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNSTRINGCONVERSION,
-		XIM_MODE_PRE_SET,
-		XIM_MODE_PRE_SET,
-		XIM_MODE_PRE_SET,
-		XIM_MODE_PRE_SET,
-		XIM_MODE_PRE_SET,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNRESETSTATE,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNHOTKEY,
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNHOTKEYSTATE,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITATTRIBUTES,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNSTATUSATTRIBUTES,
-		0,
-		0,
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNAREA,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0},
-    {OFFSET_XNAREANEEDED,
-		0,
-		0,
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0},
-    {OFFSET_XNSPOTLOCATION,
-		0, /*(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),*/
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNCOLORMAP,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNSTDCOLORMAP,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNFOREGROUND,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNBACKGROUND,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNBACKGROUNDPIXMAP,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNFONTSET,
-		0,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNLINESPACE,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNCURSOR,
-		0,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0},
-    {OFFSET_XNPREEDITSTARTCALLBACK,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITDONECALLBACK,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITDRAWCALLBACK,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITCARETCALLBACK,
-		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITSTATE,
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNPREEDITSTATENOTIFYCALLBACK,
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),
-		0,
-		0,
-		0,
-		0,
-		0},
-    {OFFSET_XNSTATUSSTARTCALLBACK,
-		0,
-		0,
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0,
-		0},
-    {OFFSET_XNSTATUSDONECALLBACK,
-		0,
-		0,
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0,
-		0},
-    {OFFSET_XNSTATUSDRAWCALLBACK,
-		0,
-		0,
-		0,
-		0,
-		0,
-		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),
-		0,
-		0,
-		0}
-};
-
-/* the quarks are separated from im_mode/ic_mode so those arrays
- * can be const.
- */
-static XrmQuark im_mode_quark[sizeof(im_mode) / sizeof(im_mode[0])];
-static XrmQuark ic_mode_quark[sizeof(ic_mode) / sizeof(ic_mode[0])];
-
-Private Bool
-_XimSetResourceList(
-    XIMResourceList	 *res_list,
-    unsigned int	 *list_num,
-    XIMResourceList	  resource,
-    unsigned int	  num_resource,
-    unsigned short	  id)
-{
-    register int	  i;
-    int			  len;
-    XIMResourceList	  res;
-
-    len = sizeof(XIMResource) * num_resource;
-    if(!(res = Xcalloc(1, len))) {
-	return False;
-    }
-
-    for(i = 0; i < num_resource; i++, id++) {
-	res[i]    = resource[i];
-	res[i].id = id;
-    }
-
-    _XIMCompileResourceList(res, num_resource);
-    *res_list  = res;
-    *list_num  = num_resource;
-    return True;
-}
-
-Public Bool
-_XimSetIMResourceList(
-    XIMResourceList	*res_list,
-    unsigned int	*list_num)
-{
-    return _XimSetResourceList(res_list, list_num,
-				im_resources, XIMNumber(im_resources), 100);
-}
-
-Public Bool
-_XimSetICResourceList(
-    XIMResourceList	*res_list,
-    unsigned int	*list_num)
-{
-    return _XimSetResourceList(res_list, list_num,
-				ic_resources, XIMNumber(ic_resources), 200);
-}
-
-Public Bool
-_XimSetInnerIMResourceList(
-    XIMResourceList	*res_list,
-    unsigned int	*list_num)
-{
-    return _XimSetResourceList(res_list, list_num,
-		im_inner_resources, XIMNumber(im_inner_resources), 100);
-}
-
-Public Bool
-_XimSetInnerICResourceList(
-    XIMResourceList	*res_list,
-    unsigned int	*list_num)
-{
-    return _XimSetResourceList(res_list, list_num,
-		ic_inner_resources, XIMNumber(ic_inner_resources), 200);
-}
-
-Private XIMResourceList
-_XimGetResourceListRecByMode(
-    XIMResourceList	 res_list,
-    unsigned int	 list_num,
-    unsigned short	 mode)
-{
-    register int	 i;
-
-    for(i = 0; i < list_num; i++) {
-	if (res_list[i].mode & mode) {
-	    return (XIMResourceList)&res_list[i];
-	}
-    }
-    return (XIMResourceList)NULL;
-}
-
-Public Bool
-_XimCheckCreateICValues(
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    if (!_XimGetResourceListRecByMode(res_list, list_num, XIM_MODE_IC_CREATE)) {
-	return True;
-    }
-    return False;
-}
-
-Public XIMResourceList
-_XimGetResourceListRecByQuark(
-    XIMResourceList	 res_list,
-    unsigned int	 list_num,
-    XrmQuark		 quark)
-{
-    register int	 i;
-
-    for(i = 0; i < list_num; i++) {
-	if (res_list[i].xrm_name == quark) {
-	    return (XIMResourceList)&res_list[i];
-	}
-    }
-    return (XIMResourceList)NULL;
-}
-
-Public XIMResourceList
-_XimGetResourceListRec(
-    XIMResourceList	 res_list,
-    unsigned int	 list_num,
-    const char		*name)
-{
-    XrmQuark		 quark = XrmStringToQuark(name);
-
-    return _XimGetResourceListRecByQuark(res_list, list_num, quark);
-}
-
-Public char *
-_XimSetIMValueData(
-    Xim			 im,
-    XPointer		 top,
-    XIMArg		*values,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-
-    for(p = values; p->name != NULL; p++) {
-	if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {
-	    return p->value;
-	}
-	check = _XimCheckIMMode(res, XIM_SETIMVALUES);
-	if(check == XIM_CHECK_INVALID) {
-	    continue;
-	} else if (check == XIM_CHECK_ERROR) {
-	    return p->value;
-	}
-
-	if(!_XimEncodeLocalIMAttr(res, top, p->value)) {
-	    return p->value;
-	}
-    }
-    return NULL;
-}
-
-Public char *
-_XimGetIMValueData(
-    Xim			 im,
-    XPointer		 top,
-    XIMArg		*values,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-
-    for(p = values; p->name != NULL; p++) {
-	if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {
-	    return p->value;
-	}
-	check = _XimCheckIMMode(res, XIM_GETIMVALUES);
-	if(check == XIM_CHECK_INVALID) {
-	    continue;
-	} else if (check == XIM_CHECK_ERROR) {
-	    return p->value;
-	}
-
-	if(!_XimDecodeLocalIMAttr(res, top, p->value)) {
-	    return p->value;
-	}
-    }
-    return NULL;
-}
-
-Public void
-_XimSetIMMode(
-    XIMResourceList	res_list,
-    unsigned int	list_num)
-{
-    XIMResourceList	res;
-    unsigned int	n = XIMNumber(im_mode);
-    register int	i;
-
-    for(i = 0; i < n; i++) {
-	if(!(res = _XimGetResourceListRecByQuark(res_list,
-						list_num, im_mode_quark[i]))) {
-	    continue;
-	}
-	res->mode = im_mode[i].mode;
-    }
-    return;
-}
-
-Private int
-_XimCheckSetIMDefaultsMode(
-    XIMResourceList	res)
-{
-    if(res->mode & XIM_MODE_IM_DEFAULT) {
-	return XIM_CHECK_VALID;
-    }
-    return XIM_CHECK_INVALID;
-}
-
-Private int
-_XimCheckSetIMValuesMode(
-    XIMResourceList	res)
-{
-    if(res->mode & XIM_MODE_IM_SET) {
-	return XIM_CHECK_VALID;
-    }
-    return XIM_CHECK_INVALID;
-}
-
-Private int
- _XimCheckGetIMValuesMode(
-    XIMResourceList	res)
-{
-    if(res->mode & XIM_MODE_IM_GET) {
-	return XIM_CHECK_VALID;
-    }
-    return XIM_CHECK_INVALID;
-}
-
-Public int
- _XimCheckIMMode(
-    XIMResourceList	res,
-    unsigned long	mode)
-{
-    if(res->mode == 0) {
-	return XIM_CHECK_INVALID;
-    }
-    if(mode & XIM_SETIMDEFAULTS) {
-	return _XimCheckSetIMDefaultsMode(res);
-    } else if (mode & XIM_SETIMVALUES) {
-	return _XimCheckSetIMValuesMode(res);
-    } else if (mode & XIM_GETIMVALUES) {
-	return _XimCheckGetIMValuesMode(res);
-    } else {
-	return XIM_CHECK_ERROR;
-    }
-}
-
-Public void
-_XimSetICMode(XIMResourceList res_list, unsigned int list_num, XIMStyle style)
-{
-    XIMResourceList	res;
-    unsigned int	n = XIMNumber(ic_mode);
-    register int	i;
-    unsigned int	pre_offset;
-    unsigned int	sts_offset;
-
-    if(style & XIMPreeditArea) {
-	pre_offset = XOffsetOf(XimICMode, preedit_area_mode);
-    } else if(style & XIMPreeditCallbacks) {
-	pre_offset = XOffsetOf(XimICMode, preedit_callback_mode);
-    } else if(style & XIMPreeditPosition) {
-	pre_offset = XOffsetOf(XimICMode, preedit_position_mode);
-    } else if(style & XIMPreeditNothing) {
-	pre_offset = XOffsetOf(XimICMode, preedit_nothing_mode);
-    } else {
-	pre_offset = XOffsetOf(XimICMode, preedit_none_mode);
-    }
-
-    if(style & XIMStatusArea) {
-	sts_offset = XOffsetOf(XimICMode, status_area_mode);
-    } else if(style & XIMStatusCallbacks) {
-	sts_offset = XOffsetOf(XimICMode, status_callback_mode);
-    } else if(style & XIMStatusNothing) {
-	sts_offset = XOffsetOf(XimICMode, status_nothing_mode);
-    } else {
-	sts_offset = XOffsetOf(XimICMode, status_none_mode);
-    }
-
-    for(i = 0; i < n; i++) {
-	if(!(res = _XimGetResourceListRecByQuark(res_list,
-						list_num, ic_mode_quark[i]))) {
-	    continue;
-	}
-	res->mode = ( (*(unsigned short *)((char *)&ic_mode[i] + pre_offset))
-		    | (*(unsigned short *)((char *)&ic_mode[i] + sts_offset)));
-    }
-    return;
-}
-
-Private int
-_XimCheckSetICDefaultsMode(
-    XIMResourceList	res,
-    unsigned long	mode)
-{
-    if(mode & XIM_PREEDIT_ATTR) {
-	if(!(res->mode & XIM_MODE_PRE_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_PRE_CREATE) {
-	    return XIM_CHECK_ERROR;
-	} else if (!(res->mode & XIM_MODE_PRE_DEFAULT)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-    } else if(mode & XIM_STATUS_ATTR) {
-	if(!(res->mode & XIM_MODE_STS_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_STS_CREATE) {
-	    return XIM_CHECK_ERROR;
-	}
-	if(!(res->mode & XIM_MODE_STS_DEFAULT)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-    } else {
-	if(!res->mode) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_IC_CREATE) {
-	    return XIM_CHECK_ERROR;
-	}
-	if(!(res->mode & XIM_MODE_IC_DEFAULT)) {
-	    return XIM_CHECK_INVALID;
-	}
-    }
-    return XIM_CHECK_VALID;
-}
-
-Private int
-_XimCheckCreateICMode(
-    XIMResourceList	res,
-    unsigned long	mode)
-{
-    if(mode & XIM_PREEDIT_ATTR) {
-	if(!(res->mode & XIM_MODE_PRE_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_PRE_CREATE) {
-	    res->mode &= ~XIM_MODE_PRE_CREATE;
-	} else if(res->mode & XIM_MODE_PRE_ONCE) {
-	    res->mode &= ~XIM_MODE_PRE_ONCE;
-	} else if(res->mode & XIM_MODE_PRE_DEFAULT) {
-	    res->mode &= ~XIM_MODE_PRE_DEFAULT;
-	} else if (!(res->mode & XIM_MODE_PRE_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else if(mode & XIM_STATUS_ATTR) {
-	if(!(res->mode & XIM_MODE_STS_MASK)) {
-	    return  XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_STS_CREATE) {
-	    res->mode &= ~XIM_MODE_STS_CREATE;
-	} else if(res->mode & XIM_MODE_STS_ONCE) {
-	    res->mode &= ~XIM_MODE_STS_ONCE;
-	} else if(res->mode & XIM_MODE_STS_DEFAULT) {
-	    res->mode &= ~XIM_MODE_STS_DEFAULT;
-	} else if (!(res->mode & XIM_MODE_STS_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else {
-	if(!res->mode) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_IC_CREATE) {
-	    res->mode &= ~XIM_MODE_IC_CREATE;
-	} else if(res->mode & XIM_MODE_IC_ONCE) {
-	    res->mode &= ~XIM_MODE_IC_ONCE;
-	} else if(res->mode & XIM_MODE_IC_DEFAULT) {
-	    res->mode &= ~XIM_MODE_IC_DEFAULT;
-	} else if (!(res->mode & XIM_MODE_IC_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-    }
-    return XIM_CHECK_VALID;
-}
-
-Private int
-_XimCheckSetICValuesMode(
-    XIMResourceList	res,
-    unsigned long	mode)
-{
-    if(mode & XIM_PREEDIT_ATTR) {
-	if(!(res->mode & XIM_MODE_PRE_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_PRE_ONCE) {
-	    res->mode &= ~XIM_MODE_PRE_ONCE;
-	} else if(!(res->mode & XIM_MODE_PRE_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else if(mode & XIM_STATUS_ATTR) {
-	if(!(res->mode & XIM_MODE_STS_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_STS_ONCE) {
-	    res->mode &= ~XIM_MODE_STS_ONCE;
-	} else if(!(res->mode & XIM_MODE_STS_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else {
-	if(!res->mode) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(res->mode & XIM_MODE_IC_ONCE) {
-	    res->mode &= ~XIM_MODE_IC_ONCE;
-	} else if(!(res->mode & XIM_MODE_IC_SET)) {
-	    return XIM_CHECK_ERROR;
-	}
-    }
-    return XIM_CHECK_VALID;
-}
-
-Private int
-_XimCheckGetICValuesMode(
-    XIMResourceList	res,
-    unsigned long	mode)
-{
-    if(mode & XIM_PREEDIT_ATTR) {
-	if(!(res->mode & XIM_MODE_PRE_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(!(res->mode & XIM_MODE_PRE_GET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else if(mode & XIM_STATUS_ATTR) {
-	if(!(res->mode & XIM_MODE_STS_MASK)) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(!(res->mode & XIM_MODE_STS_GET)) {
-	    return XIM_CHECK_ERROR;
-	}
-
-    } else {
-	if(!res->mode) {
-	    return XIM_CHECK_INVALID;
-	}
-
-	if(!(res->mode & XIM_MODE_IC_GET)) {
-	    return XIM_CHECK_ERROR;
-	}
-    }
-    return XIM_CHECK_VALID;
-}
-
-Public int
- _XimCheckICMode(
-    XIMResourceList     res,
-    unsigned long       mode)
-{
-    if(mode &XIM_SETICDEFAULTS) {
-	return _XimCheckSetICDefaultsMode(res, mode);
-    } else if (mode & XIM_CREATEIC) {
-	return _XimCheckCreateICMode(res, mode);
-    } else if (mode & XIM_SETICVALUES) {
-	return _XimCheckSetICValuesMode(res, mode);
-    } else if (mode & XIM_GETICVALUES) {
-	return _XimCheckGetICValuesMode(res, mode);
-    } else {
-	return XIM_CHECK_ERROR;
-    }
-}
-
-Public Bool
-_XimSetLocalIMDefaults(
-    Xim			 im,
-    XPointer		 top,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    XimValueOffsetInfo	 info;
-    unsigned int	 num;
-    register int	 i;
-    XIMResourceList	 res;
-    int			 check;
-
-    info = im_attr_info;
-    num  = XIMNumber(im_attr_info);
-
-    for(i = 0; i < num; i++) {
-	if((res = _XimGetResourceListRecByQuark( res_list, list_num,
-				info[i].quark)) == (XIMResourceList)NULL) {
-	    return False;
-	}
-
-	check = _XimCheckIMMode(res, XIM_SETIMDEFAULTS);
-	if(check == XIM_CHECK_INVALID) {
-	    continue;
-	} else if (check == XIM_CHECK_ERROR) {
-	    return False;
-	}
-
-	if(!info[i].defaults) {
-	    continue;
-	}
-	if(!(info[i].defaults(&info[i], top, (XPointer)NULL, 0))) {
-	    return False;
-	}
-    }
-    return True;
-}
-
-Public Bool
-_XimSetICDefaults(
-    Xic			 ic,
-    XPointer		 top,
-    unsigned long	 mode,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    unsigned int	 num;
-    XimValueOffsetInfo	 info;
-    register int	 i;
-    XIMResourceList	 res;
-    int			 check;
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    if(mode & XIM_PREEDIT_ATTR) {
-	info = ic_pre_attr_info;
-	num  = XIMNumber(ic_pre_attr_info);
-    } else if(mode & XIM_STATUS_ATTR) {
-	info = ic_sts_attr_info;
-	num  = XIMNumber(ic_sts_attr_info);
-    } else {
-	info = ic_attr_info;
-	num  = XIMNumber(ic_attr_info);
-    }
-
-    for(i = 0; i < num; i++) {
-	if(info[i].quark == pre_quark) {
-	    if(!_XimSetICDefaults(ic, (XPointer)((char *)top + info[i].offset),
-			(mode | XIM_PREEDIT_ATTR), res_list, list_num)) {
-		return False;
-	    }
-	} else if (info[i].quark == sts_quark) {
-	    if(!_XimSetICDefaults(ic, (XPointer)((char *)top + info[i].offset),
-			(mode | XIM_STATUS_ATTR), res_list, list_num)) {
-		return False;
-	    }
-	} else {
-	    if(!(res = _XimGetResourceListRecByQuark(res_list, list_num,
-							info[i].quark))) {
-		return False;
-	    }
-
-	    check = _XimCheckICMode(res, mode);
-	    if (check == XIM_CHECK_INVALID) {
-		continue;
-	    } else if (check == XIM_CHECK_ERROR) {
-		return False;
-	    }
-
-	    if (!info[i].defaults) {
-		continue;
-	    }
-	    if (!(info[i].defaults(&info[i], top, (XPointer)ic, mode))) {
-		return False;
-	    }
-	}
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodeAttr(
-    XimValueOffsetInfo	 info,
-    unsigned int	 num,
-    XIMResourceList	 res,
-    XPointer		 top,
-    XPointer		 val)
-{
-    register int	 i;
-
-    for(i = 0; i < num; i++ ) {
-	if(info[i].quark == res->xrm_name) {
-	    if(!info[i].encode) {
-		return False;
-	    }
-	    return (*info[i].encode)(&info[i], top, val);
-	}
-    }
-    return False;
-}
-
-Public Bool
-_XimEncodeLocalIMAttr(
-    XIMResourceList	 res,
-    XPointer		 top,
-    XPointer		 val)
-{
-    return _XimEncodeAttr(im_attr_info, XIMNumber(im_attr_info),
-					res, top, val);
-}
-
-Public Bool
-_XimEncodeLocalICAttr(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XPointer		 top,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    unsigned int	 num;
-    XimValueOffsetInfo	 info;
-
-    if(mode & XIM_PREEDIT_ATTR) {
-	info = ic_pre_attr_info;
-	num  = XIMNumber(ic_pre_attr_info);
-    } else if(mode & XIM_STATUS_ATTR) {
-	info = ic_sts_attr_info;
-	num  = XIMNumber(ic_sts_attr_info);
-    } else {
-	info = ic_attr_info;
-	num  = XIMNumber(ic_attr_info);
-    }
-
-    return _XimEncodeAttr(info, num, res, top, arg->value);
-}
-
-Private Bool
-_XimEncodeLocalTopValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XPointer		 val,
-    Bool		 flag)
-{
-    XIMArg		*p = (XIMArg *)val;
-
-    if (res->xrm_name == XrmStringToQuark(XNClientWindow)) {
-	ic->core.client_window = (Window)p->value;
-	if (ic->core.focus_window == (Window)0)
-	    ic->core.focus_window = ic->core.client_window;
-	if (flag) {
-	    _XRegisterFilterByType(ic->core.im->core.display,
-			ic->core.focus_window,
-			KeyPress, KeyRelease, _XimLocalFilter, (XPointer)ic);
-	}
-    } else if (res->xrm_name == XrmStringToQuark(XNFocusWindow)) {
-	if (ic->core.client_window) {
-	    if (flag) {
-	        _XUnregisterFilter(ic->core.im->core.display,
-			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);
-	    }
-	    ic->core.focus_window = (Window)p->value;
-	    if (flag) {
-	        _XRegisterFilterByType(ic->core.im->core.display,
-			ic->core.focus_window, KeyPress, KeyRelease,
-			_XimLocalFilter, (XPointer)ic);
-	    }
-	} else
-	    ic->core.focus_window = (Window)p->value;
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodeLocalPreeditValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XPointer		 val)
-{
-    XIMArg		*p = (XIMArg *)val;
-
-    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {
-	XStandardColormap	*colormap_ret;
-	int			 count;
-
-	if (!(XGetRGBColormaps(ic->core.im->core.display,
-				ic->core.focus_window, &colormap_ret,
-				&count, (Atom)p->value)))
-	    return False;
-
-	Xfree(colormap_ret);
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodeLocalStatusValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XPointer		 val)
-{
-    XIMArg		*p = (XIMArg *)val;
-
-    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {
-	XStandardColormap	*colormap_ret;
-	int			 count;
-
-	if (!(XGetRGBColormaps(ic->core.im->core.display,
-				ic->core.focus_window, &colormap_ret,
-				&count, (Atom)p->value)))
-	    return False;
-
-	Xfree(colormap_ret);
-    }
-    return True;
-}
-
-Public char *
-_XimSetICValueData(
-    Xic			 ic,
-    XPointer		 top,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num,
-    XIMArg		*values,
-    unsigned long	 mode,
-    Bool		 flag)
-{
-    register  XIMArg	*p;
-    XIMResourceList	 res;
-    char		*name;
-    int			 check;
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    for(p = values; p->name != NULL; p++) {
-	if((res = _XimGetResourceListRec(res_list, list_num,
-					p->name)) == (XIMResourceList)NULL) {
-	    return p->name;
-	}
-	if(res->xrm_name == pre_quark) {
-	    if(((name = _XimSetICValueData(ic,
-			(XPointer)(&((XimDefICValues *)top)->preedit_attr),
-			res_list, list_num, (XIMArg *)p->value,
-			(mode | XIM_PREEDIT_ATTR), flag)))) {
-		return name;
-	    }
-	} else if(res->xrm_name == sts_quark) {
-	    if(((name = _XimSetICValueData(ic,
-			(XPointer)(&((XimDefICValues *)top)->status_attr),
-			res_list, list_num, (XIMArg *)p->value,
-			(mode | XIM_STATUS_ATTR), flag)))) {
-		return name;
-	    }
-	} else {
-	    check = _XimCheckICMode(res, mode);
-	    if(check == XIM_CHECK_INVALID) {
-		continue;
-	    } else if(check == XIM_CHECK_ERROR) {
-		return p->name;
-	    }
-
-	    if(mode & XIM_PREEDIT_ATTR) {
-		if (!_XimEncodeLocalPreeditValue(ic, res, (XPointer)p))
-	    	    return False;
-    	    } else if(mode & XIM_STATUS_ATTR) {
-		if (!_XimEncodeLocalStatusValue(ic, res, (XPointer)p))
-	    	    return False;
-    	    } else {
-		if (!_XimEncodeLocalTopValue(ic, res, (XPointer)p, flag))
-	    	    return False;
-    	    }
-	    if(_XimEncodeLocalICAttr(ic, res, top, p, mode) == False) {
-		return p->name;
-	    }
-	}
-    }
-    return NULL;
-}
-
-Private Bool
-_XimCheckInputStyle(
-    XIMStyles		*styles,
-    XIMStyle		 style)
-{
-    int			 num = styles->count_styles;
-    register int	 i;
-
-    for(i = 0; i < num; i++) {
-	if(styles->supported_styles[i] == style) {
-	    return True;
-	}
-    }
-    return False;
-}
-
-Public Bool
-_XimCheckLocalInputStyle(
-    Xic			 ic,
-    XPointer		 top,
-    XIMArg		*values,
-    XIMStyles		*styles,
-    XIMResourceList	 res_list,
-    unsigned int	 list_num)
-{
-    XrmQuark		 quark = XrmStringToQuark(XNInputStyle);
-    register XIMArg	*p;
-    XIMResourceList	 res;
-
-    for(p = values; p && p->name != NULL; p++) {
-	if(quark == XrmStringToQuark(p->name)) {
-	    if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {
-		return False;
-	    }
-	    if(!_XimEncodeLocalICAttr(ic, res, top, p, 0)) {
-		return False;
-	    }
-	    if (_XimCheckInputStyle(styles,
-			((XimDefICValues *)top)->input_style)) {
-		return True;
-	    }
-	    return False;
-	}
-    }
-    return False;
-}
-
-Private Bool
-_XimDecodeAttr(
-    XimValueOffsetInfo	 info,
-    unsigned int	 num,
-    XIMResourceList	 res,
-    XPointer		 top,
-    XPointer		 val)
-{
-    register int	 i;
-
-    for(i = 0; i < num; i++ ) {
-	if(info[i].quark == res->xrm_name) {
-	    if(!info[i].decode) {
-		return False;
-	    }
-	    return (*info[i].decode)(&info[i], top, val);
-	}
-    }
-    return False;
-}
-
-Public Bool
-_XimDecodeLocalIMAttr(
-    XIMResourceList	 res,
-    XPointer		 top,
-    XPointer		 val)
-{
-    return _XimDecodeAttr(im_attr_info, XIMNumber(im_attr_info),
-					res, top, val);
-}
-
-Public Bool
-_XimDecodeLocalICAttr(
-    XIMResourceList	 res,
-    XPointer		 top,
-    XPointer		 val,
-    unsigned long	 mode)
-{
-    unsigned int	 num;
-    XimValueOffsetInfo	 info;
-
-    if(mode & XIM_PREEDIT_ATTR) {
-	info = ic_pre_attr_info;
-	num  = XIMNumber(ic_pre_attr_info);
-    } else if(mode & XIM_STATUS_ATTR) {
-	info = ic_sts_attr_info;
-	num  = XIMNumber(ic_sts_attr_info);
-    } else {
-	info = ic_attr_info;
-	num  = XIMNumber(ic_attr_info);
-    }
-
-    return _XimDecodeAttr(info, num, res, top, val);
-}
-
-Public char *
-_XimGetICValueData(Xic ic, XPointer top, XIMResourceList res_list,
-		   unsigned int	 list_num, XIMArg *values, unsigned long mode)
-{
-    register  XIMArg	*p;
-    XIMResourceList	 res;
-    char		*name;
-    int			 check;
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    for(p = values; p->name != NULL; p++) {
-	if((res = _XimGetResourceListRec(res_list, list_num,
-					p->name)) == (XIMResourceList)NULL) {
-	    return p->name;
-	}
-	if(res->xrm_name == pre_quark) {
-	    if((name = _XimGetICValueData(ic,
-			(XPointer)(&((XimDefICValues *)top)->preedit_attr),
-			res_list, list_num, (XIMArg *)p->value,
-			(mode | XIM_PREEDIT_ATTR)))) {
-		return name;
-	    }
-	} else if(res->xrm_name == sts_quark) {
-	    if((name = _XimGetICValueData(ic,
-			(XPointer)(&((XimDefICValues *)top)->status_attr),
-			res_list, list_num, (XIMArg *)p->value,
-			(mode | XIM_STATUS_ATTR)))) {
-		return name;
-	    }
-	} else {
-	    check = _XimCheckICMode(res, mode);
-	    if(check == XIM_CHECK_INVALID) {
-		continue;
-	    } else if(check == XIM_CHECK_ERROR) {
-		return p->name;
-	    }
-
-	    if(_XimDecodeLocalICAttr(res, top, p->value, mode) == False) {
-		return p->name;
-	    }
-	}
-    }
-    return NULL;
-}
-
-Public void
-_XimGetCurrentIMValues(Xim im, XimDefIMValues *im_values)
-{
-    bzero((char *)im_values, sizeof(XimDefIMValues));
-
-    im_values->styles		= im->core.styles;
-    im_values->im_values_list	= im->core.im_values_list;
-    im_values->ic_values_list	= im->core.ic_values_list;
-    im_values->destroy_callback = im->core.destroy_callback;
-    im_values->res_name		= im->core.res_name;
-    im_values->res_class	= im->core.res_class;
-    im_values->visible_position	= im->core.visible_position;
-}
-
-Public void
-_XimSetCurrentIMValues(Xim im, XimDefIMValues *im_values)
-{
-    im->core.styles		= im_values->styles;
-    im->core.im_values_list	= im_values->im_values_list;
-    im->core.ic_values_list	= im_values->ic_values_list;
-    im->core.destroy_callback	= im_values->destroy_callback;
-    im->core.res_name		= im_values->res_name;
-    im->core.res_class		= im_values->res_class;
-    im->core.visible_position	= im_values->visible_position;
-}
-
-Public void
-_XimGetCurrentICValues(Xic ic, XimDefICValues *ic_values)
-{
-    bzero((char *)ic_values, sizeof(XimDefICValues));
-
-    ic_values->input_style	 = ic->core.input_style;
-    ic_values->client_window	 = ic->core.client_window;
-    ic_values->focus_window	 = ic->core.focus_window;
-    ic_values->filter_events	 = ic->core.filter_events;
-    ic_values->geometry_callback = ic->core.geometry_callback;
-    ic_values->res_name		 = ic->core.res_name;
-    ic_values->res_class	 = ic->core.res_class;
-    ic_values->destroy_callback	 = ic->core.destroy_callback;
-    ic_values->string_conversion_callback
-				 = ic->core.string_conversion_callback;
-    ic_values->string_conversion = ic->core.string_conversion;
-    ic_values->reset_state	 = ic->core.reset_state;
-    ic_values->hotkey		 = ic->core.hotkey;
-    ic_values->hotkey_state	 = ic->core.hotkey_state;
-    ic_values->preedit_attr	 = ic->core.preedit_attr;
-    ic_values->status_attr	 = ic->core.status_attr;
-}
-
-Public void
-_XimSetCurrentICValues(
-    Xic			 ic,
-    XimDefICValues	*ic_values)
-{
-    ic->core.input_style	= ic_values->input_style;
-    ic->core.client_window	= ic_values->client_window;
-    if (ic_values->focus_window)
-	ic->core.focus_window	= ic_values->focus_window;
-    ic->core.filter_events	= ic_values->filter_events;
-    ic->core.geometry_callback	= ic_values->geometry_callback;
-    ic->core.res_name		= ic_values->res_name;
-    ic->core.res_class		= ic_values->res_class;
-    ic->core.destroy_callback 	= ic_values->destroy_callback;
-    ic->core.string_conversion_callback
-				= ic_values->string_conversion_callback;
-    ic->core.string_conversion	= ic_values->string_conversion;
-    ic->core.reset_state	= ic_values->reset_state;
-    ic->core.hotkey		= ic_values->hotkey;
-    ic->core.hotkey_state	= ic_values->hotkey_state;
-    ic->core.preedit_attr	= ic_values->preedit_attr;
-    ic->core.status_attr	= ic_values->status_attr;
-}
-
-Private void
-_XimInitialIMOffsetInfo(void)
-{
-    unsigned int	 n = XIMNumber(im_attr_info);
-    register int	 i;
-
-    for(i = 0; i < n; i++) {
-	im_attr_info[i].quark = XrmStringToQuark(GET_NAME(im_attr_info[i]));
-    }
-}
-
-Private void
-_XimInitialICOffsetInfo(void)
-{
-    unsigned int	 n;
-    register int	 i;
-
-    n = XIMNumber(ic_attr_info);
-    for(i = 0; i < n; i++) {
-	ic_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_attr_info[i]));
-    }
-
-    n = XIMNumber(ic_pre_attr_info);
-    for(i = 0; i < n; i++) {
-	ic_pre_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_pre_attr_info[i]));
-    }
-
-    n = XIMNumber(ic_sts_attr_info);
-    for(i = 0; i < n; i++) {
-	ic_sts_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_sts_attr_info[i]));
-    }
-}
-
-Private void
-_XimInitialIMMode(void)
-{
-    unsigned int	n = XIMNumber(im_mode);
-    register int	i;
-
-    for(i = 0; i < n; i++) {
-	im_mode_quark[i] = XrmStringToQuark(GET_NAME(im_mode[i]));
-    }
-}
-
-Private void
-_XimInitialICMode(void)
-{
-    unsigned int	n = XIMNumber(ic_mode);
-    register int	i;
-
-    for(i = 0; i < n; i++) {
-	ic_mode_quark[i] = XrmStringToQuark(GET_NAME(ic_mode[i]));
-    }
-}
-
-Public void
-_XimInitialResourceInfo(void)
-{
-    static Bool	init_flag = False;
-
-    if(init_flag == True) {
-	return;
-    }
-    _XimInitialIMOffsetInfo();
-    _XimInitialICOffsetInfo();
-    _XimInitialIMMode();
-    _XimInitialICMode();
-    init_flag = True;
-}
+/******************************************************************

+

+	  Copyright 1990, 1991, 1992,1993, 1994 by FUJITSU LIMITED

+	  Copyright 1994                        by Sony Corporation

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+and Sony Corporation not be used in advertising or publicity

+pertaining to distribution of the software without specific,

+written prior permission. FUJITSU LIMITED and Sony Corporation make

+no representations about the suitability of this software for any

+purpose. It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED AND SONY CORPORATION DISCLAIM ALL WARRANTIES WITH

+REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF

+MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL FUJITSU LIMITED AND

+SONY CORPORATION BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL

+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR

+PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER

+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Takashi Fujiwara     FUJITSU LIMITED

+			       fujiwara@a80.tech.yk.fujitsu.co.jp

+  Modifier: Makoto Wakamatsu   Sony Corporation

+			       makoto@sm.sony.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <unistd.h>

+#include <X11/Xlib.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+#include "Xresource.h"

+

+#define GET_NAME(x) name_table + x.name_offset

+

+typedef struct _XimValueOffsetInfo {

+    unsigned short name_offset;

+    XrmQuark		 quark;

+    unsigned int	 offset;

+    Bool		 (*defaults)(

+	struct _XimValueOffsetInfo *, XPointer, XPointer, unsigned long

+			 );

+    Bool		 (*encode)(

+	struct _XimValueOffsetInfo *, XPointer, XPointer

+			 );

+    Bool		 (*decode)(

+	struct _XimValueOffsetInfo *, XPointer, XPointer

+			 );

+} XimValueOffsetInfoRec, *XimValueOffsetInfo;

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimCheckBool(str)

+    char	*str;

+{

+    if(!strcmp(str, "True") || !strcmp(str, "true") ||

+       !strcmp(str, "Yes")  || !strcmp(str, "yes")  ||

+       !strcmp(str, "ON")   || !strcmp(str, "on"))

+	return True;

+    return False;

+}

+

+Public void

+_XimSetProtoResource(im)

+    Xim		 im;

+{

+    char	res_name_buf[256];

+    char*	res_name;

+    char	res_class_buf[256];

+    char*	res_class;

+    char*	str_type;

+    XrmValue	value;

+    XIMStyle	preedit_style = 0;

+    XIMStyle	status_style = 0;

+    XIMStyles*	imstyles;

+    char*	dotximdot = ".xim.";

+    char*	ximdot = "xim.";

+    char*	dotXimdot = ".Xim.";

+    char*	Ximdot = "Xim.";

+

+    if (!im->core.rdb)

+	return;

+

+    if (strlen (im->core.res_name) < 200) res_name = res_name_buf;

+    else res_name = Xmalloc (strlen (im->core.res_name) + 50);

+    if (strlen (im->core.res_class) < 200) res_class = res_class_buf;

+    else res_class = Xmalloc (strlen (im->core.res_class) + 50);

+    /* pretend malloc always works */

+

+    (void) sprintf (res_name, "%s%s%s",

+	im->core.res_name != NULL ? im->core.res_name : "*",

+	im->core.res_name != NULL ? dotximdot : ximdot,

+	"useAuth");

+    (void) sprintf (res_class, "%s%s%s",

+	im->core.res_class != NULL ? im->core.res_class : "*",

+	im->core.res_class != NULL ? dotXimdot : Ximdot,

+	"UseAuth");

+    bzero(&value, sizeof(XrmValue));

+    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {

+	if(_XimCheckBool(value.addr)) {

+	    MARK_USE_AUTHORIZATION_FUNC(im);

+	}

+    }

+

+    (void) sprintf (res_name, "%s%s%s",

+	im->core.res_name != NULL ? im->core.res_name : "*",

+	im->core.res_name != NULL ? dotximdot : ximdot,

+	"delaybinding");

+    (void) sprintf (res_class, "%s%s%s",

+	im->core.res_class != NULL ? im->core.res_class : "*",

+	im->core.res_class != NULL ? dotXimdot : Ximdot,

+	"Delaybinding");

+    bzero(&value, sizeof(XrmValue));

+    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {

+	if(_XimCheckBool(value.addr)) {

+	    MARK_DELAYBINDABLE(im);

+	}

+    }

+

+    (void) sprintf (res_name, "%s%s%s",

+	im->core.res_name != NULL ? im->core.res_name : "*",

+	im->core.res_name != NULL ? dotximdot : ximdot,

+	"reconnect");

+    (void) sprintf (res_class, "%s%s%s",

+	im->core.res_class != NULL ? im->core.res_class : "*",

+	im->core.res_class != NULL ? dotXimdot : Ximdot,

+	"Reconnect");

+    bzero(&value, sizeof(XrmValue));

+    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {

+	if(_XimCheckBool(value.addr)) {

+	    MARK_RECONNECTABLE(im);

+	}

+    }

+

+    if(!IS_CONNECTABLE(im)) {

+	if (res_name != res_name_buf) Xfree (res_name);

+	if (res_class != res_class_buf) Xfree (res_class);

+	return;

+    }

+

+    (void) sprintf (res_name, "%s%s%s",

+	im->core.res_name != NULL ? im->core.res_name : "*",

+	im->core.res_name != NULL ? dotximdot : ximdot,

+	"preeditDefaultStyle");

+    (void) sprintf (res_class, "%s%s%s",

+	im->core.res_class != NULL ? im->core.res_class : "*",

+	im->core.res_class != NULL ? dotXimdot : Ximdot,

+	"PreeditDefaultStyle");

+    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {

+	if(!strcmp(value.addr, "XIMPreeditArea"))

+	    preedit_style = XIMPreeditArea;

+	else if(!strcmp(value.addr, "XIMPreeditCallbacks"))

+	    preedit_style = XIMPreeditCallbacks;

+	else if(!strcmp(value.addr, "XIMPreeditPosition"))

+	    preedit_style = XIMPreeditPosition;

+	else if(!strcmp(value.addr, "XIMPreeditNothing"))

+	    preedit_style = XIMPreeditNothing;

+	else if(!strcmp(value.addr, "XIMPreeditNone"))

+	    preedit_style = XIMPreeditNone;

+    }

+    if(!preedit_style)

+	preedit_style = XIMPreeditNothing;

+

+    (void) sprintf (res_name, "%s%s%s",

+	im->core.res_name != NULL ? im->core.res_name : "*",

+	im->core.res_name != NULL ? dotximdot : ximdot,

+	"statusDefaultStyle");

+    (void) sprintf (res_class, "%s%s%s",

+	im->core.res_class != NULL ? im->core.res_class : "*",

+	im->core.res_class != NULL ? dotXimdot : Ximdot,

+	"StatusDefaultStyle");

+    if(XrmGetResource(im->core.rdb, res_name, res_class, &str_type, &value)) {

+	if(!strcmp(value.addr, "XIMStatusArea"))

+	    status_style = XIMStatusArea;

+	else if(!strcmp(value.addr, "XIMStatusCallbacks"))

+	    status_style = XIMStatusCallbacks;

+	else if(!strcmp(value.addr, "XIMStatusNothing"))

+	    status_style = XIMStatusNothing;

+	else if(!strcmp(value.addr, "XIMStatusNone"))

+	    status_style = XIMStatusNone;

+    }

+    if(!status_style)

+	status_style = XIMStatusNothing;

+

+    if(!(imstyles = (XIMStyles *)Xmalloc(sizeof(XIMStyles) + sizeof(XIMStyle)))){

+	if (res_name != res_name_buf) Xfree (res_name);

+	if (res_class != res_class_buf) Xfree (res_class);

+	return;

+    }

+    imstyles->count_styles = 1;

+    imstyles->supported_styles =

+			(XIMStyle *)((char *)imstyles + sizeof(XIMStyles));

+    imstyles->supported_styles[0] = preedit_style | status_style;

+    im->private.proto.default_styles = imstyles;

+    if (res_name != res_name_buf) Xfree (res_name);

+    if (res_class != res_class_buf) Xfree (res_class);

+}

+#endif /* XIM_CONNECTABLE */

+

+static const char name_table[] =

+    /*   0 */ XNQueryInputStyle"\0"

+    /*  16 */ XNClientWindow"\0"

+    /*  29 */ XNInputStyle"\0"

+    /*  40 */ XNFocusWindow"\0"

+    /*  52 */ XNResourceName"\0"

+    /*  65 */ XNResourceClass"\0"

+    /*  79 */ XNGeometryCallback"\0"

+    /*  96 */ XNDestroyCallback"\0"

+    /* 112 */ XNFilterEvents"\0"

+    /* 125 */ XNPreeditStartCallback"\0"

+    /* 146 */ XNPreeditDoneCallback"\0"

+    /* 166 */ XNPreeditDrawCallback"\0"

+    /* 186 */ XNPreeditCaretCallback"\0"

+    /* 207 */ XNPreeditStateNotifyCallback"\0"

+    /* 234 */ XNPreeditAttributes"\0"

+    /* 252 */ XNStatusStartCallback"\0"

+    /* 272 */ XNStatusDoneCallback"\0"

+    /* 291 */ XNStatusDrawCallback"\0"

+    /* 310 */ XNStatusAttributes"\0"

+    /* 327 */ XNArea"\0"

+    /* 332 */ XNAreaNeeded"\0"

+    /* 343 */ XNSpotLocation"\0"

+    /* 356 */ XNColormap"\0"

+    /* 365 */ XNStdColormap"\0"

+    /* 377 */ XNForeground"\0"

+    /* 388 */ XNBackground"\0"

+    /* 399 */ XNBackgroundPixmap"\0"

+    /* 416 */ XNFontSet"\0"

+    /* 424 */ XNLineSpace"\0"

+    /* 434 */ XNCursor"\0"

+    /* 441 */ XNQueryIMValuesList"\0"

+    /* 459 */ XNQueryICValuesList"\0"

+    /* 477 */ XNVisiblePosition"\0"

+    /* 493 */ XNStringConversionCallback"\0"

+    /* 518 */ XNStringConversion"\0"

+    /* 535 */ XNResetState"\0"

+    /* 546 */ XNHotKey"\0"

+    /* 553 */ XNHotKeyState"\0"

+    /* 565 */ XNPreeditState

+;

+

+#define OFFSET_XNQUERYINPUTSTYLE 0

+#define OFFSET_XNCLIENTWINDOW 16

+#define OFFSET_XNINPUTSTYLE 29

+#define OFFSET_XNFOCUSWINDOW 40

+#define OFFSET_XNRESOURCENAME 52

+#define OFFSET_XNRESOURCECLASS 65

+#define OFFSET_XNGEOMETRYCALLBACK 79

+#define OFFSET_XNDESTROYCALLBACK 96

+#define OFFSET_XNFILTEREVENTS 112

+#define OFFSET_XNPREEDITSTARTCALLBACK 125

+#define OFFSET_XNPREEDITDONECALLBACK 146

+#define OFFSET_XNPREEDITDRAWCALLBACK 166

+#define OFFSET_XNPREEDITCARETCALLBACK 186

+#define OFFSET_XNPREEDITSTATENOTIFYCALLBACK 207

+#define OFFSET_XNPREEDITATTRIBUTES 234

+#define OFFSET_XNSTATUSSTARTCALLBACK 252

+#define OFFSET_XNSTATUSDONECALLBACK 272

+#define OFFSET_XNSTATUSDRAWCALLBACK 291

+#define OFFSET_XNSTATUSATTRIBUTES 310

+#define OFFSET_XNAREA 327

+#define OFFSET_XNAREANEEDED 332

+#define OFFSET_XNSPOTLOCATION 343

+#define OFFSET_XNCOLORMAP 356

+#define OFFSET_XNSTDCOLORMAP 365

+#define OFFSET_XNFOREGROUND 377

+#define OFFSET_XNBACKGROUND 388

+#define OFFSET_XNBACKGROUNDPIXMAP 399

+#define OFFSET_XNFONTSET 416

+#define OFFSET_XNLINESPACE 424

+#define OFFSET_XNCURSOR 434

+#define OFFSET_XNQUERYIMVALUESLIST 441

+#define OFFSET_XNQUERYICVALUESLIST 459

+#define OFFSET_XNVISIBLEPOSITION 477

+#define OFFSET_XNSTRINGCONVERSIONCALLBACK 493

+#define OFFSET_XNSTRINGCONVERSION 518

+#define OFFSET_XNRESETSTATE 535

+#define OFFSET_XNHOTKEY 546

+#define OFFSET_XNHOTKEYSTATE 553

+#define OFFSET_XNPREEDITSTATE 565

+

+/* offsets into name_table */

+static const unsigned short supported_local_im_values_list[] = {

+    OFFSET_XNQUERYINPUTSTYLE,

+    OFFSET_XNRESOURCENAME,

+    OFFSET_XNRESOURCECLASS,

+    OFFSET_XNDESTROYCALLBACK,

+    OFFSET_XNQUERYIMVALUESLIST,

+    OFFSET_XNQUERYICVALUESLIST,

+    OFFSET_XNVISIBLEPOSITION

+};

+

+/* offsets into name_table */

+static const unsigned short supported_local_ic_values_list[] = {

+    OFFSET_XNINPUTSTYLE,

+    OFFSET_XNCLIENTWINDOW,

+    OFFSET_XNFOCUSWINDOW,

+    OFFSET_XNRESOURCENAME,

+    OFFSET_XNRESOURCECLASS,

+    OFFSET_XNGEOMETRYCALLBACK,

+    OFFSET_XNFILTEREVENTS,

+    OFFSET_XNDESTROYCALLBACK,

+    OFFSET_XNSTRINGCONVERSIONCALLBACK,

+    OFFSET_XNSTRINGCONVERSIONCALLBACK,

+    OFFSET_XNRESETSTATE,

+    OFFSET_XNHOTKEY,

+    OFFSET_XNHOTKEYSTATE,

+    OFFSET_XNPREEDITATTRIBUTES,

+    OFFSET_XNSTATUSATTRIBUTES,

+    OFFSET_XNAREA,

+    OFFSET_XNAREANEEDED,

+    OFFSET_XNSPOTLOCATION,

+    OFFSET_XNCOLORMAP,

+    OFFSET_XNSTDCOLORMAP,

+    OFFSET_XNFOREGROUND,

+    OFFSET_XNBACKGROUND,

+    OFFSET_XNBACKGROUNDPIXMAP,

+    OFFSET_XNFONTSET,

+    OFFSET_XNLINESPACE,

+    OFFSET_XNCURSOR,

+    OFFSET_XNPREEDITSTARTCALLBACK,

+    OFFSET_XNPREEDITDONECALLBACK,

+    OFFSET_XNPREEDITDRAWCALLBACK,

+    OFFSET_XNPREEDITCARETCALLBACK,

+    OFFSET_XNSTATUSSTARTCALLBACK,

+    OFFSET_XNSTATUSDONECALLBACK,

+    OFFSET_XNSTATUSDRAWCALLBACK,

+    OFFSET_XNPREEDITSTATE,

+    OFFSET_XNPREEDITSTATENOTIFYCALLBACK

+};

+

+static XIMStyle const supported_local_styles[] = {

+    XIMPreeditNone	| XIMStatusNone,

+    XIMPreeditNothing	| XIMStatusNothing,

+    0						/* dummy */

+};

+

+Private  Bool

+_XimDefaultStyles(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,			/* unused */

+    unsigned long	  mode)			/* unused */

+{

+    XIMStyles		 *styles;

+    XIMStyles		**out;

+    register int	  i;

+    unsigned int	  n;

+    int			  len;

+    XPointer		  tmp;

+

+    n = XIMNumber(supported_local_styles) - 1;

+    len = sizeof(XIMStyles) + sizeof(XIMStyle) * n;

+    if(!(tmp = Xcalloc(1, len))) {

+	return False;

+    }

+

+    styles = (XIMStyles *)tmp;

+    if (n > 0) {

+	styles->count_styles = (unsigned short)n;

+	styles->supported_styles =

+				(XIMStyle *)((char *)tmp + sizeof(XIMStyles));

+	for(i = 0; i < n; i++) {

+	    styles->supported_styles[i] = supported_local_styles[i];

+	}

+    }

+

+    out = (XIMStyles **)((char *)top + info->offset);

+    *out = styles;

+    return True;

+}

+

+Private  Bool

+_XimDefaultIMValues(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,			/* unused */

+    unsigned long	  mode)			/* unused */

+{

+    XIMValuesList	 *values_list;

+    XIMValuesList	**out;

+    register int	  i;

+    unsigned int	  n;

+    int			  len;

+    XPointer		  tmp;

+

+    n = XIMNumber(supported_local_im_values_list);

+    len = sizeof(XIMValuesList) + sizeof(char **) * n;

+    if(!(tmp = Xcalloc(1, len))) {

+	return False;

+    }

+

+    values_list = (XIMValuesList *)tmp;

+    if (n > 0) {

+	values_list->count_values = (unsigned short)n;

+	values_list->supported_values

+			 = (char **)((char *)tmp + sizeof(XIMValuesList));

+	for(i = 0; i < n; i++) {

+	    values_list->supported_values[i] =

+		(char *)name_table + supported_local_im_values_list[i];

+	}

+    }

+

+    out = (XIMValuesList **)((char *)top + info->offset);

+    *out = values_list;

+    return True;

+}

+

+Private  Bool

+_XimDefaultICValues(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,			/* unused */

+    unsigned long	  mode)			/* unused */

+{

+    XIMValuesList	 *values_list;

+    XIMValuesList	**out;

+    register int	  i;

+    unsigned int	  n;

+    int			  len;

+    XPointer		  tmp;

+

+    n = XIMNumber(supported_local_ic_values_list);

+    len = sizeof(XIMValuesList) + sizeof(char **) * n;

+    if(!(tmp = Xcalloc(1, len))) {

+	return False;

+    }

+

+    values_list = (XIMValuesList *)tmp;

+    if (n > 0) {

+	values_list->count_values = (unsigned short)n;

+	values_list->supported_values

+			 = (char **)((char *)tmp + sizeof(XIMValuesList));

+	for(i = 0; i < n; i++) {

+	    values_list->supported_values[i] =

+		(char *)name_table + supported_local_ic_values_list[i];

+	}

+    }

+

+    out = (XIMValuesList **)((char *)top + info->offset);

+    *out = values_list;

+    return True;

+}

+

+Private  Bool

+_XimDefaultVisiblePos(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,			/* unused */

+    unsigned long	  mode)			/* unused */

+{

+    Bool		*out;

+

+    out = (Bool *)((char *)top + info->offset);

+    *out = False;

+    return True;

+}

+

+Private  Bool

+_XimDefaultFocusWindow(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    Window		*out;

+

+    if(ic->core.client_window == (Window)NULL) {

+	return True;

+    }

+

+    out = (Window *)((char *)top + info->offset);

+    *out = ic->core.client_window;

+    return True;

+}

+

+Private  Bool

+_XimDefaultResName(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,

+    unsigned long	  mode)

+{

+    Xic			  ic = (Xic)parm;

+    Xim			  im = (Xim)ic->core.im;

+    char		**out;

+

+    if(im->core.res_name == (char *)NULL) {

+	return True;

+    }

+

+    out = (char **)((char *)top + info->offset);

+    *out = im->core.res_name;

+    return True;

+}

+

+Private  Bool

+_XimDefaultResClass(

+    XimValueOffsetInfo	   info,

+    XPointer	 	   top,

+    XPointer	 	   parm,

+    unsigned long	   mode)

+{

+    Xic			  ic = (Xic)parm;

+    Xim			  im = (Xim)ic->core.im;

+    char		**out;

+

+    if(im->core.res_class == (char *)NULL) {

+	return True;

+    }

+

+    out = (char **)((char *)top + info->offset);

+    *out = im->core.res_class;

+    return True;

+}

+

+Private  Bool

+_XimDefaultDestroyCB(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,

+    unsigned long	  mode)

+{

+    Xic			 ic = (Xic)parm;

+    Xim			 im = (Xim)ic->core.im;

+    XIMCallback		*out;

+

+    out = (XIMCallback *)((char *)top + info->offset);

+    *out = im->core.destroy_callback;

+    return True;

+}

+

+Private  Bool

+_XimDefaultResetState(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,

+    unsigned long	  mode)

+{

+    XIMResetState	*out;

+

+    out = (XIMResetState *)((char *)top + info->offset);

+    *out = XIMInitialState;

+    return True;

+}

+

+Private  Bool

+_XimDefaultHotKeyState(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  parm,

+    unsigned long	  mode)

+{

+    XIMHotKeyState	*out;

+

+    out = (XIMHotKeyState *)((char *)top + info->offset);

+    *out = XIMHotKeyStateOFF;

+    return True;

+}

+

+Private  Bool

+_XimDefaultArea(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    Xim			 im = (Xim)ic->core.im;

+    Window		 root_return;

+    int			 x_return, y_return;

+    unsigned int	 width_return, height_return;

+    unsigned int	 border_width_return;

+    unsigned int	 depth_return;

+    XRectangle		 area;

+    XRectangle		*out;

+

+    if(ic->core.focus_window == (Window)NULL) {

+	return True;

+    }

+    if(XGetGeometry(im->core.display, (Drawable)ic->core.focus_window,

+		&root_return, &x_return, &y_return, &width_return,

+		&height_return, &border_width_return, &depth_return)

+		== (Status)Success) {

+	return True;

+    }

+    area.x	= 0;

+    area.y	= 0;

+    area.width	= width_return;

+    area.height	= height_return;

+

+    out = (XRectangle *)((char *)top + info->offset);

+    *out = area;

+    return True;

+}

+

+Private  Bool

+_XimDefaultColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    Xim			 im = (Xim)ic->core.im;

+    XWindowAttributes	 win_attr;

+    Colormap		*out;

+

+    if(ic->core.client_window == (Window)NULL) {

+	return True;

+    }

+    if(XGetWindowAttributes(im->core.display, ic->core.client_window,

+					&win_attr) == (Status)Success) {

+	return True;

+    }

+

+    out = (Colormap *)((char *)top + info->offset);

+    *out = win_attr.colormap;

+    return True;

+}

+

+Private  Bool

+_XimDefaultStdColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Atom		*out;

+

+    out = (Atom *)((char *)top + info->offset);

+    *out = (Atom)0;

+    return True;

+}

+

+Private  Bool

+_XimDefaultFg(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    Xim			 im = (Xim)ic->core.im;

+    unsigned long	 fg;

+    unsigned long	*out;

+

+    fg = WhitePixel(im->core.display, DefaultScreen(im->core.display));

+    out = (unsigned long *)((char *)top + info->offset);

+    *out = fg;

+    return True;

+}

+

+Private  Bool

+_XimDefaultBg(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    Xim			 im = (Xim)ic->core.im;

+    unsigned long	 bg;

+    unsigned long	*out;

+

+    bg = BlackPixel(im->core.display, DefaultScreen(im->core.display));

+    out = (unsigned long *)((char *)top + info->offset);

+    *out = bg;

+    return True;

+}

+

+Private  Bool

+_XimDefaultBgPixmap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Pixmap		*out;

+

+    out = (Pixmap *)((char *)top + info->offset);

+    *out = (Pixmap)0;

+    return True;

+}

+

+Private  Bool

+_XimDefaultFontSet(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    XFontSet		*out;

+

+    out = (XFontSet *)((char *)top + info->offset);

+    *out = 0;

+    return True;

+}

+

+Private  Bool

+_XimDefaultLineSpace(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Xic			 ic = (Xic)parm;

+    XFontSet		 fontset;

+    XFontSetExtents	*fset_extents;

+    int			 line_space = 0;

+    int			*out;

+

+    if(mode & XIM_PREEDIT_ATTR) {

+	fontset = ic->core.preedit_attr.fontset;

+    } else if(mode & XIM_STATUS_ATTR) {

+	fontset = ic->core.status_attr.fontset;

+    } else {

+	return True;

+    }

+    if (fontset) {

+	fset_extents = XExtentsOfFontSet(fontset);

+	line_space = fset_extents->max_logical_extent.height;

+    }

+    out = (int *)((char *)top + info->offset);

+    *out = line_space;

+    return True;

+}

+

+Private  Bool

+_XimDefaultCursor(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    Cursor		*out;

+

+    out = (Cursor *)((char *)top + info->offset);

+    *out = (Cursor)0;

+    return True;

+}

+

+Private  Bool

+_XimDefaultPreeditState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    XIMPreeditState	*out;

+

+    out = (XIMPreeditState *)((char *)top + info->offset);

+    *out = XIMPreeditDisable;

+    return True;

+}

+

+Private  Bool

+_XimDefaultNest(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 parm,

+    unsigned long	 mode)

+{

+    return True;

+}

+

+Private  Bool

+_XimEncodeCallback(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMCallback		*out;

+

+    out = (XIMCallback *)((char *)top + info->offset);

+    *out = *((XIMCallback *)val);

+    return True;

+}

+

+Private  Bool

+_XimEncodeString(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  val)

+{

+    char		 *string;

+    char		**out;

+

+    if(val == (XPointer)NULL) {

+	return False;

+    }

+    if (!(string = strdup((char *)val))) {

+	return False;

+    }

+

+    out = (char **)((char *)top + info->offset);

+    if(*out) {

+	Xfree(*out);

+    }

+    *out = string;

+    return True;

+}

+

+Private  Bool

+_XimEncodeStyle(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMStyle		*out;

+

+    out = (XIMStyle *)((char *)top + info->offset);

+    *out = (XIMStyle)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeWindow(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Window		*out;

+

+    out = (Window *)((char *)top + info->offset);

+    *out = (Window)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeStringConv(

+    XimValueOffsetInfo		 info,

+    XPointer		 	 top,

+    XPointer		 	 val)

+{

+    /*

+     * Not yet

+     */

+    return True;

+}

+

+Private  Bool

+_XimEncodeResetState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMResetState	*out;

+

+    out = (XIMResetState *)((char *)top + info->offset);

+    *out = (XIMResetState)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeHotKey(

+    XimValueOffsetInfo	  info,

+    XPointer	 	  top,

+    XPointer	 	  val)

+{

+    XIMHotKeyTriggers	 *hotkey = (XIMHotKeyTriggers *)val;

+    XIMHotKeyTriggers	**out;

+    XIMHotKeyTriggers	 *key_list;

+    XIMHotKeyTrigger	 *key;

+    XPointer		  tmp;

+    int			  num;

+    int			  len;

+    register int	  i;

+

+    if(hotkey == (XIMHotKeyTriggers *)NULL) {

+	return True;

+    }

+

+    if((num = hotkey->num_hot_key) == 0) {

+	return True;

+    }

+

+    len = sizeof(XIMHotKeyTriggers) + sizeof(XIMHotKeyTrigger) * num;

+    if(!(tmp = (XPointer)Xmalloc(len))) {

+	return False;

+    }

+

+    key_list = (XIMHotKeyTriggers *)tmp;

+    key = (XIMHotKeyTrigger *)((char *)tmp + sizeof(XIMHotKeyTriggers));

+

+    for(i = 0; i < num; i++) {

+	key[i] = hotkey->key[i];

+    }

+

+    key_list->num_hot_key = num;

+    key_list->key = key;

+

+    out = (XIMHotKeyTriggers **)((char *)top + info->offset);

+    *out = key_list;

+    return True;

+}

+

+Private  Bool

+_XimEncodeHotKetState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMHotKeyState	*out;

+

+    out = (XIMHotKeyState *)((char *)top + info->offset);

+    *out = (XIMHotKeyState)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeRectangle(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XRectangle		*out;

+

+    out = (XRectangle *)((char *)top + info->offset);

+    *out = *((XRectangle *)val);

+    return True;

+}

+

+Private  Bool

+_XimEncodeSpot(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XPoint		*out;

+

+    out = (XPoint *)((char *)top + info->offset);

+    *out = *((XPoint *)val);

+    return True;

+}

+

+Private  Bool

+_XimEncodeColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Colormap		*out;

+

+    out = (Colormap *)((char *)top + info->offset);

+    *out = (Colormap)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeStdColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Atom		*out;

+

+    out = (Atom *)((char *)top + info->offset);

+    *out = (Atom)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeLong(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    unsigned long	*out;

+

+    out = (unsigned long *)((char *)top + info->offset);

+    *out = (unsigned long)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeBgPixmap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Pixmap		*out;

+

+    out = (Pixmap *)((char *)top + info->offset);

+    *out = (Pixmap)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeFontSet(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XFontSet		*out;

+

+    out = (XFontSet *)((char *)top + info->offset);

+    *out = (XFontSet)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeLineSpace(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    int			*out;

+

+    out = (int *)((char *)top + info->offset);

+    *out = (long)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeCursor(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Cursor		*out;

+

+    out = (Cursor *)((char *)top + info->offset);

+    *out = (Cursor)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodePreeditState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMPreeditState	*out;

+

+    out = (XIMPreeditState *)((char *)top + info->offset);

+    *out = (XIMPreeditState)val;

+    return True;

+}

+

+Private  Bool

+_XimEncodeNest(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    return True;

+}

+

+Private  Bool

+_XimDecodeStyles(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMStyles		*styles;

+    XIMStyles		*out;

+    register int	 i;

+    unsigned int	 num;

+    int			 len;

+    XPointer		 tmp;

+

+    if(val == (XPointer)NULL) {

+	return False;

+    }

+

+    styles = *((XIMStyles **)((char *)top + info->offset));

+    num = styles->count_styles;

+

+    len = sizeof(XIMStyles) + sizeof(XIMStyle) * num;

+    if(!(tmp = Xcalloc(1, len))) {

+	return False;

+    }

+

+    out = (XIMStyles *)tmp;

+    if(num >0) {

+	out->count_styles = (unsigned short)num;

+	out->supported_styles = (XIMStyle *)((char *)tmp + sizeof(XIMStyles));

+

+	for(i = 0; i < num; i++) {

+	    out->supported_styles[i] = styles->supported_styles[i];

+	}

+    }

+    *((XIMStyles **)val) = out;

+    return True;

+}

+

+Private  Bool

+_XimDecodeValues(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMValuesList	*values_list;

+    XIMValuesList	*out;

+    register int	 i;

+    unsigned int	 num;

+    int			 len;

+    XPointer		 tmp;

+

+    if(val == (XPointer)NULL) {

+	return False;

+    }

+

+    values_list = *((XIMValuesList **)((char *)top + info->offset));

+    num = values_list->count_values;

+

+    len = sizeof(XIMValuesList) + sizeof(char **) * num;

+    if(!(tmp = Xcalloc(1, len))) {

+	return False;

+    }

+

+    out = (XIMValuesList *)tmp;

+    if(num) {

+	out->count_values = (unsigned short)num;

+	out->supported_values = (char **)((char *)tmp + sizeof(XIMValuesList));

+

+	for(i = 0; i < num; i++) {

+	    out->supported_values[i] = values_list->supported_values[i];

+	}

+    }

+    *((XIMValuesList **)val) = out;

+    return True;

+}

+

+Private  Bool

+_XimDecodeCallback(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMCallback		*in;

+    XIMCallback		*callback;

+

+    in = (XIMCallback *)((char *)top + info->offset);

+    if(!(callback = (XIMCallback *)Xmalloc(sizeof(XIMCallback)))) {

+	return False;

+    }

+    callback->client_data = in->client_data;

+    callback->callback    = in->callback;

+

+    *((XIMCallback **)val) = callback;

+    return True;

+}

+

+Private  Bool

+_XimDecodeString(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    char		*in;

+    char		*string;

+

+    in = *((char **)((char *)top + info->offset));

+    if (in != NULL) {

+	string = strdup(in);

+    } else {

+	string = Xcalloc(1, 1); /* strdup("") */

+    }

+    if (string == NULL) {

+	return False;

+    }

+    *((char **)val) = string;

+    return True;

+}

+

+Private  Bool

+_XimDecodeBool(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Bool		*in;

+

+    in = (Bool *)((char *)top + info->offset);

+    *((Bool *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeStyle(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMStyle		*in;

+

+    in = (XIMStyle *)((char *)top + info->offset);

+    *((XIMStyle *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeWindow(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Window		*in;

+

+    in = (Window *)((char *)top + info->offset);

+    *((Window *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeStringConv(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    /*

+     * Not yet

+     */

+    return True;

+}

+

+Private  Bool

+_XimDecodeResetState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMResetState	*in;

+

+    in = (XIMResetState *)((char *)top + info->offset);

+    *((XIMResetState *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeHotKey(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMHotKeyTriggers	*in;

+    XIMHotKeyTriggers	*hotkey;

+    XIMHotKeyTrigger	*key;

+    XPointer		 tmp;

+    int			 num;

+    int			 len;

+    register int	 i;

+

+    in = *((XIMHotKeyTriggers **)((char *)top + info->offset));

+    num = in->num_hot_key;

+    len = sizeof(XIMHotKeyTriggers) + sizeof(XIMHotKeyTrigger) * num;

+    if(!(tmp = (XPointer)Xmalloc(len))) {

+	return False;

+    }

+

+    hotkey = (XIMHotKeyTriggers *)tmp;

+    key = (XIMHotKeyTrigger *)((char *)tmp + sizeof(XIMHotKeyTriggers));

+

+    for(i = 0; i < num; i++) {

+	key[i] = in->key[i];

+    }

+    hotkey->num_hot_key = num;

+    hotkey->key = key;

+

+    *((XIMHotKeyTriggers **)val) = hotkey;

+    return True;

+}

+

+Private  Bool

+_XimDecodeHotKetState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMHotKeyState	*in;

+

+    in = (XIMHotKeyState *)((char *)top + info->offset);

+    *((XIMHotKeyState *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeRectangle(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XRectangle		*in;

+    XRectangle		*rect;

+

+    in = (XRectangle *)((char *)top + info->offset);

+    if(!(rect = (XRectangle *)Xmalloc(sizeof(XRectangle)))) {

+	return False;

+    }

+    *rect = *in;

+    *((XRectangle **)val) = rect;

+    return True;

+}

+

+Private  Bool

+_XimDecodeSpot(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XPoint		*in;

+    XPoint		*spot;

+

+    in = (XPoint *)((char *)top + info->offset);

+    if(!(spot = (XPoint *)Xmalloc(sizeof(XPoint)))) {

+	return False;

+    }

+    *spot = *in;

+    *((XPoint **)val) = spot;

+    return True;

+}

+

+Private  Bool

+_XimDecodeColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Colormap		*in;

+

+    in = (Colormap *)((char *)top + info->offset);

+    *((Colormap *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeStdColormap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Atom		*in;

+

+    in = (Atom *)((char *)top + info->offset);

+    *((Atom *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeLong(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    unsigned long	*in;

+

+    in = (unsigned long *)((char *)top + info->offset);

+    *((unsigned long *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeBgPixmap(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Pixmap		*in;

+

+    in = (Pixmap *)((char *)top + info->offset);

+    *((Pixmap *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeFontSet(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XFontSet		*in;

+

+    in = (XFontSet *)((char *)top + info->offset);

+    *((XFontSet *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeLineSpace(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    int		*in;

+

+    in = (int *)((char *)top + info->offset);

+    *((int *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeCursor(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    Cursor		*in;

+

+    in = (Cursor *)((char *)top + info->offset);

+    *((Cursor *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodePreeditState(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    XIMPreeditState	*in;

+

+    in = (XIMPreeditState *)((char *)top + info->offset);

+    *((XIMPreeditState *)val) = *in;

+    return True;

+}

+

+Private  Bool

+_XimDecodeNest(

+    XimValueOffsetInfo	 info,

+    XPointer	 	 top,

+    XPointer	 	 val)

+{

+    return True;

+}

+

+static	XIMResource	im_resources[] = {

+    {XNQueryInputStyle,		   0, XimType_XIMStyles,	0, 0, 0},

+    {XNDestroyCallback,		   0,  0,			0, 0, 0},

+    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},

+    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},

+    {XNQueryIMValuesList,	   0, 0,			0, 0, 0},

+    {XNQueryICValuesList,	   0, 0,			0, 0, 0},

+    {XNVisiblePosition,		   0, 0,			0, 0, 0}

+};

+

+static	XIMResource	im_inner_resources[] = {

+    {XNDestroyCallback,		   0, 0,			0, 0, 0},

+    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},

+    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},

+    {XNQueryIMValuesList,	   0, 0,			0, 0, 0},

+    {XNQueryICValuesList,	   0, 0,			0, 0, 0},

+    {XNVisiblePosition,		   0, 0,			0, 0, 0}

+};

+

+static	XIMResource	ic_resources[] = {

+    {XNInputStyle,		   0, XimType_CARD32,		0, 0, 0},

+    {XNClientWindow,		   0, XimType_Window,		0, 0, 0},

+    {XNFocusWindow,		   0, XimType_Window,		0, 0, 0},

+    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},

+    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},

+    {XNGeometryCallback,	   0, 0,			0, 0, 0},

+    {XNFilterEvents,		   0, XimType_CARD32,		0, 0, 0},

+    {XNDestroyCallback,		   0, 0,			0, 0, 0},

+    {XNStringConversionCallback,   0, 0,			0, 0, 0},

+    {XNStringConversion,	   0, XimType_XIMStringConversion,0, 0, 0},

+    {XNResetState,		   0, 0,			0, 0, 0},

+    {XNHotKey,			   0, XimType_XIMHotKeyTriggers,0, 0, 0},

+    {XNHotKeyState,		   0, XimType_XIMHotKeyState, 	0, 0, 0},

+    {XNPreeditAttributes,	   0, XimType_NEST,		0, 0, 0},

+    {XNStatusAttributes,	   0, XimType_NEST,		0, 0, 0},

+    {XNArea,			   0, XimType_XRectangle,	0, 0, 0},

+    {XNAreaNeeded,		   0, XimType_XRectangle,	0, 0, 0},

+    {XNSpotLocation,		   0, XimType_XPoint,		0, 0, 0},

+    {XNColormap,		   0, XimType_CARD32,		0, 0, 0},

+    {XNStdColormap,		   0, XimType_CARD32,		0, 0, 0},

+    {XNForeground,		   0, XimType_CARD32,		0, 0, 0},

+    {XNBackground,		   0, XimType_CARD32,		0, 0, 0},

+    {XNBackgroundPixmap,	   0, XimType_CARD32,		0, 0, 0},

+    {XNFontSet,			   0, XimType_XFontSet,		0, 0, 0},

+    {XNLineSpace,		   0, XimType_CARD32,		0, 0, 0},

+    {XNCursor,			   0, XimType_CARD32,		0, 0, 0},

+    {XNPreeditStartCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditDoneCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditDrawCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditCaretCallback,	   0, 0,			0, 0, 0},

+    {XNStatusStartCallback,	   0, 0,			0, 0, 0},

+    {XNStatusDoneCallback,	   0, 0,			0, 0, 0},

+    {XNStatusDrawCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditState,		   0, 0,			0, 0, 0},

+    {XNPreeditStateNotifyCallback, 0, 0,			0, 0, 0},

+};

+

+static	XIMResource	ic_inner_resources[] = {

+    {XNResourceName,		   0, XimType_STRING8,		0, 0, 0},

+    {XNResourceClass,		   0, XimType_STRING8,		0, 0, 0},

+    {XNGeometryCallback,	   0, 0,			0, 0, 0},

+    {XNDestroyCallback,		   0, 0,			0, 0, 0},

+    {XNStringConversionCallback,   0, 0,			0, 0, 0},

+    {XNPreeditStartCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditDoneCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditDrawCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditCaretCallback,	   0, 0,			0, 0, 0},

+    {XNStatusStartCallback,	   0, 0,			0, 0, 0},

+    {XNStatusDoneCallback,	   0, 0,			0, 0, 0},

+    {XNStatusDrawCallback,	   0, 0,			0, 0, 0},

+    {XNPreeditStateNotifyCallback, 0, 0,			0, 0, 0},

+};

+

+static XimValueOffsetInfoRec im_attr_info[] = {

+    {OFFSET_XNQUERYINPUTSTYLE,		 0,

+	XOffsetOf(XimDefIMValues, styles),

+	_XimDefaultStyles,	 NULL,			_XimDecodeStyles},

+

+    {OFFSET_XNDESTROYCALLBACK,		 0,

+	XOffsetOf(XimDefIMValues, destroy_callback),

+	NULL,		 	 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNRESOURCENAME,		 0,

+	XOffsetOf(XimDefIMValues, res_name),

+	NULL,		 	 _XimEncodeString,	_XimDecodeString},

+

+    {OFFSET_XNRESOURCECLASS,		 0,

+	XOffsetOf(XimDefIMValues, res_class),

+	NULL,		 	 _XimEncodeString,	_XimDecodeString},

+

+    {OFFSET_XNQUERYIMVALUESLIST,		 0,

+	XOffsetOf(XimDefIMValues, im_values_list),

+	_XimDefaultIMValues,	 NULL,			_XimDecodeValues},

+

+    {OFFSET_XNQUERYICVALUESLIST,		 0,

+	XOffsetOf(XimDefIMValues, ic_values_list),

+	_XimDefaultICValues,	 NULL,			_XimDecodeValues},

+

+    {OFFSET_XNVISIBLEPOSITION,			 0,

+	XOffsetOf(XimDefIMValues, visible_position),

+	_XimDefaultVisiblePos,	 NULL,			_XimDecodeBool}

+};

+

+static XimValueOffsetInfoRec ic_attr_info[] = {

+    {OFFSET_XNINPUTSTYLE,		 0,

+	XOffsetOf(XimDefICValues, input_style),

+	NULL,			 _XimEncodeStyle,	_XimDecodeStyle},

+

+    {OFFSET_XNCLIENTWINDOW,		 0,

+	XOffsetOf(XimDefICValues, client_window),

+	NULL,			 _XimEncodeWindow,	_XimDecodeWindow},

+

+    {OFFSET_XNFOCUSWINDOW,		 0,

+	XOffsetOf(XimDefICValues, focus_window),

+	_XimDefaultFocusWindow,  _XimEncodeWindow,	_XimDecodeWindow},

+

+    {OFFSET_XNRESOURCENAME,		 0,

+	XOffsetOf(XimDefICValues, res_name),

+	_XimDefaultResName,	 _XimEncodeString,	_XimDecodeString},

+

+    {OFFSET_XNRESOURCECLASS,		 0,

+	XOffsetOf(XimDefICValues, res_class),

+	_XimDefaultResClass,	 _XimEncodeString,	_XimDecodeString},

+

+    {OFFSET_XNGEOMETRYCALLBACK,	 0,

+	XOffsetOf(XimDefICValues, geometry_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNFILTEREVENTS,		 0,

+	XOffsetOf(XimDefICValues, filter_events),

+	NULL,			 NULL,			_XimDecodeLong},

+

+    {OFFSET_XNDESTROYCALLBACK,		 0,

+	XOffsetOf(XimDefICValues, destroy_callback),

+	_XimDefaultDestroyCB,	 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNSTRINGCONVERSIONCALLBACK, 0,

+	XOffsetOf(XimDefICValues, string_conversion_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNSTRINGCONVERSION,	 0,

+	XOffsetOf(XimDefICValues, string_conversion),

+	NULL,			 _XimEncodeStringConv,	_XimDecodeStringConv},

+

+    {OFFSET_XNRESETSTATE,		 0,

+	XOffsetOf(XimDefICValues, reset_state),

+	_XimDefaultResetState,	 _XimEncodeResetState,	_XimDecodeResetState},

+

+    {OFFSET_XNHOTKEY,			 0,

+	XOffsetOf(XimDefICValues, hotkey),

+	NULL,			 _XimEncodeHotKey,	_XimDecodeHotKey},

+

+    {OFFSET_XNHOTKEYSTATE,		 0,

+	XOffsetOf(XimDefICValues, hotkey_state),

+	_XimDefaultHotKeyState,	 _XimEncodeHotKetState,	_XimDecodeHotKetState},

+

+    {OFFSET_XNPREEDITATTRIBUTES,	 0,

+	XOffsetOf(XimDefICValues, preedit_attr),

+	_XimDefaultNest,	 _XimEncodeNest,	_XimDecodeNest},

+

+    {OFFSET_XNSTATUSATTRIBUTES,	 0,

+	XOffsetOf(XimDefICValues, status_attr),

+	_XimDefaultNest,	 _XimEncodeNest,	_XimDecodeNest},

+};

+

+static XimValueOffsetInfoRec ic_pre_attr_info[] = {

+    {OFFSET_XNAREA,			 0,

+	XOffsetOf(ICPreeditAttributes, area),

+	_XimDefaultArea,	 _XimEncodeRectangle,	_XimDecodeRectangle},

+

+    {OFFSET_XNAREANEEDED,		 0,

+	XOffsetOf(ICPreeditAttributes, area_needed),

+	NULL,			 _XimEncodeRectangle,	_XimDecodeRectangle},

+

+    {OFFSET_XNSPOTLOCATION,		 0,

+	XOffsetOf(ICPreeditAttributes, spot_location),

+	NULL,			 _XimEncodeSpot,	_XimDecodeSpot},

+

+    {OFFSET_XNCOLORMAP,		 0,

+	XOffsetOf(ICPreeditAttributes, colormap),

+	_XimDefaultColormap,	 _XimEncodeColormap,	_XimDecodeColormap},

+

+    {OFFSET_XNSTDCOLORMAP,		 0,

+	XOffsetOf(ICPreeditAttributes, std_colormap),

+	_XimDefaultStdColormap,	 _XimEncodeStdColormap,	_XimDecodeStdColormap},

+

+    {OFFSET_XNFOREGROUND,		 0,

+	XOffsetOf(ICPreeditAttributes, foreground),

+	_XimDefaultFg,		 _XimEncodeLong,	_XimDecodeLong},

+

+    {OFFSET_XNBACKGROUND,		 0,

+	XOffsetOf(ICPreeditAttributes, background),

+	_XimDefaultBg,		 _XimEncodeLong,	_XimDecodeLong},

+

+    {OFFSET_XNBACKGROUNDPIXMAP,	 0,

+	XOffsetOf(ICPreeditAttributes, background_pixmap),

+	_XimDefaultBgPixmap, 	 _XimEncodeBgPixmap,	_XimDecodeBgPixmap},

+

+    {OFFSET_XNFONTSET,			 0,

+	XOffsetOf(ICPreeditAttributes, fontset),

+	_XimDefaultFontSet,	 _XimEncodeFontSet,	_XimDecodeFontSet},

+

+    {OFFSET_XNLINESPACE,		 0,

+	XOffsetOf(ICPreeditAttributes, line_spacing),

+	_XimDefaultLineSpace,	 _XimEncodeLineSpace,	_XimDecodeLineSpace},

+

+    {OFFSET_XNCURSOR,			 0,

+	XOffsetOf(ICPreeditAttributes, cursor),

+	_XimDefaultCursor,	 _XimEncodeCursor,	_XimDecodeCursor},

+

+    {OFFSET_XNPREEDITSTARTCALLBACK,	 0,

+	XOffsetOf(ICPreeditAttributes, start_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNPREEDITDONECALLBACK,	 0,

+	XOffsetOf(ICPreeditAttributes, done_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNPREEDITDRAWCALLBACK,	 0,

+	XOffsetOf(ICPreeditAttributes, draw_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNPREEDITCARETCALLBACK,	 0,

+	XOffsetOf(ICPreeditAttributes, caret_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNPREEDITSTATE,		 0,

+	XOffsetOf(ICPreeditAttributes, preedit_state),

+	_XimDefaultPreeditState, _XimEncodePreeditState,_XimDecodePreeditState},

+

+    {OFFSET_XNPREEDITSTATENOTIFYCALLBACK, 0,

+	XOffsetOf(ICPreeditAttributes, state_notify_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+};

+

+static XimValueOffsetInfoRec ic_sts_attr_info[] = {

+    {OFFSET_XNAREA,			 0,

+	XOffsetOf(ICStatusAttributes, area),

+	_XimDefaultArea,	 _XimEncodeRectangle,	_XimDecodeRectangle},

+

+    {OFFSET_XNAREANEEDED,		 0,

+	XOffsetOf(ICStatusAttributes, area_needed),

+	NULL,			 _XimEncodeRectangle,	_XimDecodeRectangle},

+

+    {OFFSET_XNCOLORMAP,		 0,

+	XOffsetOf(ICStatusAttributes, colormap),

+	_XimDefaultColormap,	 _XimEncodeColormap,	_XimDecodeColormap},

+

+    {OFFSET_XNSTDCOLORMAP,		 0,

+	XOffsetOf(ICStatusAttributes, std_colormap),

+	_XimDefaultStdColormap,	 _XimEncodeStdColormap,	_XimDecodeStdColormap},

+

+    {OFFSET_XNFOREGROUND,		 0,

+	XOffsetOf(ICStatusAttributes, foreground),

+	_XimDefaultFg,		 _XimEncodeLong,	_XimDecodeLong},

+

+    {OFFSET_XNBACKGROUND,		 0,

+	XOffsetOf(ICStatusAttributes, background),

+	_XimDefaultBg,		 _XimEncodeLong,	_XimDecodeLong},

+

+    {OFFSET_XNBACKGROUNDPIXMAP,	 0,

+	XOffsetOf(ICStatusAttributes, background_pixmap),

+	_XimDefaultBgPixmap, 	 _XimEncodeBgPixmap,	_XimDecodeBgPixmap},

+

+    {OFFSET_XNFONTSET,			 0,

+	XOffsetOf(ICStatusAttributes, fontset),

+	_XimDefaultFontSet,	 _XimEncodeFontSet,	_XimDecodeFontSet},

+

+    {OFFSET_XNLINESPACE,		 0,

+	XOffsetOf(ICStatusAttributes, line_spacing),

+	_XimDefaultLineSpace,	 _XimEncodeLineSpace,	_XimDecodeLineSpace},

+

+    {OFFSET_XNCURSOR,			 0,

+	XOffsetOf(ICStatusAttributes, cursor),

+	_XimDefaultCursor,	 _XimEncodeCursor,	_XimDecodeCursor},

+

+    {OFFSET_XNSTATUSSTARTCALLBACK,	 0,

+	XOffsetOf(ICStatusAttributes, start_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNSTATUSDONECALLBACK,	 0,

+	XOffsetOf(ICStatusAttributes, done_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback},

+

+    {OFFSET_XNSTATUSDRAWCALLBACK,	 0,

+	XOffsetOf(ICStatusAttributes, draw_callback),

+	NULL,			 _XimEncodeCallback,	_XimDecodeCallback}

+};

+

+typedef struct _XimIMMode {

+    unsigned short name_offset;

+    unsigned short	 mode;

+} XimIMMode;

+

+static const XimIMMode im_mode[] = {

+    {OFFSET_XNQUERYINPUTSTYLE,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},

+    {OFFSET_XNDESTROYCALLBACK,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},

+    {OFFSET_XNRESOURCENAME,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},

+    {OFFSET_XNRESOURCECLASS,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_SET | XIM_MODE_IM_GET)},

+    {OFFSET_XNQUERYIMVALUESLIST,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},

+    {OFFSET_XNQUERYICVALUESLIST,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)},

+    {OFFSET_XNVISIBLEPOSITION,

+		(XIM_MODE_IM_DEFAULT | XIM_MODE_IM_GET)}

+};

+

+typedef struct _XimICMode {

+    unsigned short name_offset;

+    unsigned short	 preedit_callback_mode;

+    unsigned short	 preedit_position_mode;

+    unsigned short	 preedit_area_mode;

+    unsigned short	 preedit_nothing_mode;

+    unsigned short	 preedit_none_mode;

+    unsigned short	 status_callback_mode;

+    unsigned short	 status_area_mode;

+    unsigned short	 status_nothing_mode;

+    unsigned short	 status_none_mode;

+} XimICMode;

+

+static const XimICMode ic_mode[] = {

+    {OFFSET_XNINPUTSTYLE,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_GET),

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_GET)},

+    {OFFSET_XNCLIENTWINDOW,

+		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_ONCE | XIM_MODE_PRE_GET),

+		0,

+		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_ONCE | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNFOCUSWINDOW,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNRESOURCENAME,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNRESOURCECLASS,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNGEOMETRYCALLBACK,

+		0,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0},

+    {OFFSET_XNFILTEREVENTS,

+		XIM_MODE_PRE_GET,

+		XIM_MODE_PRE_GET,

+		XIM_MODE_PRE_GET,

+		XIM_MODE_PRE_GET,

+		0,

+		XIM_MODE_STS_GET,

+		XIM_MODE_STS_GET,

+		XIM_MODE_STS_GET,

+		XIM_MODE_STS_GET},

+    {OFFSET_XNDESTROYCALLBACK,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNSTRINGCONVERSIONCALLBACK,

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNSTRINGCONVERSION,

+		XIM_MODE_PRE_SET,

+		XIM_MODE_PRE_SET,

+		XIM_MODE_PRE_SET,

+		XIM_MODE_PRE_SET,

+		XIM_MODE_PRE_SET,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNRESETSTATE,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNHOTKEY,

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNHOTKEYSTATE,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITATTRIBUTES,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNSTATUSATTRIBUTES,

+		0,

+		0,

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNAREA,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0},

+    {OFFSET_XNAREANEEDED,

+		0,

+		0,

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0},

+    {OFFSET_XNSPOTLOCATION,

+		0, /*(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),*/

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNCOLORMAP,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNSTDCOLORMAP,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNFOREGROUND,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNBACKGROUND,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNBACKGROUNDPIXMAP,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNFONTSET,

+		0,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNLINESPACE,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNCURSOR,

+		0,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		(XIM_MODE_STS_DEFAULT | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0},

+    {OFFSET_XNPREEDITSTARTCALLBACK,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITDONECALLBACK,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITDRAWCALLBACK,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITCARETCALLBACK,

+		(XIM_MODE_PRE_CREATE | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITSTATE,

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_DEFAULT | XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNPREEDITSTATENOTIFYCALLBACK,

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		(XIM_MODE_PRE_SET | XIM_MODE_PRE_GET),

+		0,

+		0,

+		0,

+		0,

+		0},

+    {OFFSET_XNSTATUSSTARTCALLBACK,

+		0,

+		0,

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0,

+		0},

+    {OFFSET_XNSTATUSDONECALLBACK,

+		0,

+		0,

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0,

+		0},

+    {OFFSET_XNSTATUSDRAWCALLBACK,

+		0,

+		0,

+		0,

+		0,

+		0,

+		(XIM_MODE_STS_CREATE | XIM_MODE_STS_SET | XIM_MODE_STS_GET),

+		0,

+		0,

+		0}

+};

+

+/* the quarks are separated from im_mode/ic_mode so those arrays

+ * can be const.

+ */

+static XrmQuark im_mode_quark[sizeof(im_mode) / sizeof(im_mode[0])];

+static XrmQuark ic_mode_quark[sizeof(ic_mode) / sizeof(ic_mode[0])];

+

+Private Bool

+_XimSetResourceList(

+    XIMResourceList	 *res_list,

+    unsigned int	 *list_num,

+    XIMResourceList	  resource,

+    unsigned int	  num_resource,

+    unsigned short	  id)

+{

+    register int	  i;

+    int			  len;

+    XIMResourceList	  res;

+

+    len = sizeof(XIMResource) * num_resource;

+    if(!(res = Xcalloc(1, len))) {

+	return False;

+    }

+

+    for(i = 0; i < num_resource; i++, id++) {

+	res[i]    = resource[i];

+	res[i].id = id;

+    }

+

+    _XIMCompileResourceList(res, num_resource);

+    *res_list  = res;

+    *list_num  = num_resource;

+    return True;

+}

+

+Public Bool

+_XimSetIMResourceList(

+    XIMResourceList	*res_list,

+    unsigned int	*list_num)

+{

+    return _XimSetResourceList(res_list, list_num,

+				im_resources, XIMNumber(im_resources), 100);

+}

+

+Public Bool

+_XimSetICResourceList(

+    XIMResourceList	*res_list,

+    unsigned int	*list_num)

+{

+    return _XimSetResourceList(res_list, list_num,

+				ic_resources, XIMNumber(ic_resources), 200);

+}

+

+Public Bool

+_XimSetInnerIMResourceList(

+    XIMResourceList	*res_list,

+    unsigned int	*list_num)

+{

+    return _XimSetResourceList(res_list, list_num,

+		im_inner_resources, XIMNumber(im_inner_resources), 100);

+}

+

+Public Bool

+_XimSetInnerICResourceList(

+    XIMResourceList	*res_list,

+    unsigned int	*list_num)

+{

+    return _XimSetResourceList(res_list, list_num,

+		ic_inner_resources, XIMNumber(ic_inner_resources), 200);

+}

+

+Private XIMResourceList

+_XimGetResourceListRecByMode(

+    XIMResourceList	 res_list,

+    unsigned int	 list_num,

+    unsigned short	 mode)

+{

+    register int	 i;

+

+    for(i = 0; i < list_num; i++) {

+	if (res_list[i].mode & mode) {

+	    return (XIMResourceList)&res_list[i];

+	}

+    }

+    return (XIMResourceList)NULL;

+}

+

+Public Bool

+_XimCheckCreateICValues(

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    if (!_XimGetResourceListRecByMode(res_list, list_num, XIM_MODE_IC_CREATE)) {

+	return True;

+    }

+    return False;

+}

+

+Public XIMResourceList

+_XimGetResourceListRecByQuark(

+    XIMResourceList	 res_list,

+    unsigned int	 list_num,

+    XrmQuark		 quark)

+{

+    register int	 i;

+

+    for(i = 0; i < list_num; i++) {

+	if (res_list[i].xrm_name == quark) {

+	    return (XIMResourceList)&res_list[i];

+	}

+    }

+    return (XIMResourceList)NULL;

+}

+

+Public XIMResourceList

+_XimGetResourceListRec(

+    XIMResourceList	 res_list,

+    unsigned int	 list_num,

+    const char		*name)

+{

+    XrmQuark		 quark = XrmStringToQuark(name);

+

+    return _XimGetResourceListRecByQuark(res_list, list_num, quark);

+}

+

+Public char *

+_XimSetIMValueData(

+    Xim			 im,

+    XPointer		 top,

+    XIMArg		*values,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+

+    for(p = values; p->name != NULL; p++) {

+	if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {

+	    return p->value;

+	}

+	check = _XimCheckIMMode(res, XIM_SETIMVALUES);

+	if(check == XIM_CHECK_INVALID) {

+	    continue;

+	} else if (check == XIM_CHECK_ERROR) {

+	    return p->value;

+	}

+

+	if(!_XimEncodeLocalIMAttr(res, top, p->value)) {

+	    return p->value;

+	}

+    }

+    return NULL;

+}

+

+Public char *

+_XimGetIMValueData(

+    Xim			 im,

+    XPointer		 top,

+    XIMArg		*values,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+

+    for(p = values; p->name != NULL; p++) {

+	if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {

+	    return p->value;

+	}

+	check = _XimCheckIMMode(res, XIM_GETIMVALUES);

+	if(check == XIM_CHECK_INVALID) {

+	    continue;

+	} else if (check == XIM_CHECK_ERROR) {

+	    return p->value;

+	}

+

+	if(!_XimDecodeLocalIMAttr(res, top, p->value)) {

+	    return p->value;

+	}

+    }

+    return NULL;

+}

+

+Public void

+_XimSetIMMode(

+    XIMResourceList	res_list,

+    unsigned int	list_num)

+{

+    XIMResourceList	res;

+    unsigned int	n = XIMNumber(im_mode);

+    register int	i;

+

+    for(i = 0; i < n; i++) {

+	if(!(res = _XimGetResourceListRecByQuark(res_list,

+						list_num, im_mode_quark[i]))) {

+	    continue;

+	}

+	res->mode = im_mode[i].mode;

+    }

+    return;

+}

+

+Private int

+_XimCheckSetIMDefaultsMode(

+    XIMResourceList	res)

+{

+    if(res->mode & XIM_MODE_IM_DEFAULT) {

+	return XIM_CHECK_VALID;

+    }

+    return XIM_CHECK_INVALID;

+}

+

+Private int

+_XimCheckSetIMValuesMode(

+    XIMResourceList	res)

+{

+    if(res->mode & XIM_MODE_IM_SET) {

+	return XIM_CHECK_VALID;

+    }

+    return XIM_CHECK_INVALID;

+}

+

+Private int

+ _XimCheckGetIMValuesMode(

+    XIMResourceList	res)

+{

+    if(res->mode & XIM_MODE_IM_GET) {

+	return XIM_CHECK_VALID;

+    }

+    return XIM_CHECK_INVALID;

+}

+

+Public int

+ _XimCheckIMMode(

+    XIMResourceList	res,

+    unsigned long	mode)

+{

+    if(res->mode == 0) {

+	return XIM_CHECK_INVALID;

+    }

+    if(mode & XIM_SETIMDEFAULTS) {

+	return _XimCheckSetIMDefaultsMode(res);

+    } else if (mode & XIM_SETIMVALUES) {

+	return _XimCheckSetIMValuesMode(res);

+    } else if (mode & XIM_GETIMVALUES) {

+	return _XimCheckGetIMValuesMode(res);

+    } else {

+	return XIM_CHECK_ERROR;

+    }

+}

+

+Public void

+_XimSetICMode(XIMResourceList res_list, unsigned int list_num, XIMStyle style)

+{

+    XIMResourceList	res;

+    unsigned int	n = XIMNumber(ic_mode);

+    register int	i;

+    unsigned int	pre_offset;

+    unsigned int	sts_offset;

+

+    if(style & XIMPreeditArea) {

+	pre_offset = XOffsetOf(XimICMode, preedit_area_mode);

+    } else if(style & XIMPreeditCallbacks) {

+	pre_offset = XOffsetOf(XimICMode, preedit_callback_mode);

+    } else if(style & XIMPreeditPosition) {

+	pre_offset = XOffsetOf(XimICMode, preedit_position_mode);

+    } else if(style & XIMPreeditNothing) {

+	pre_offset = XOffsetOf(XimICMode, preedit_nothing_mode);

+    } else {

+	pre_offset = XOffsetOf(XimICMode, preedit_none_mode);

+    }

+

+    if(style & XIMStatusArea) {

+	sts_offset = XOffsetOf(XimICMode, status_area_mode);

+    } else if(style & XIMStatusCallbacks) {

+	sts_offset = XOffsetOf(XimICMode, status_callback_mode);

+    } else if(style & XIMStatusNothing) {

+	sts_offset = XOffsetOf(XimICMode, status_nothing_mode);

+    } else {

+	sts_offset = XOffsetOf(XimICMode, status_none_mode);

+    }

+

+    for(i = 0; i < n; i++) {

+	if(!(res = _XimGetResourceListRecByQuark(res_list,

+						list_num, ic_mode_quark[i]))) {

+	    continue;

+	}

+	res->mode = ( (*(unsigned short *)((char *)&ic_mode[i] + pre_offset))

+		    | (*(unsigned short *)((char *)&ic_mode[i] + sts_offset)));

+    }

+    return;

+}

+

+Private int

+_XimCheckSetICDefaultsMode(

+    XIMResourceList	res,

+    unsigned long	mode)

+{

+    if(mode & XIM_PREEDIT_ATTR) {

+	if(!(res->mode & XIM_MODE_PRE_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_PRE_CREATE) {

+	    return XIM_CHECK_ERROR;

+	} else if (!(res->mode & XIM_MODE_PRE_DEFAULT)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+    } else if(mode & XIM_STATUS_ATTR) {

+	if(!(res->mode & XIM_MODE_STS_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_STS_CREATE) {

+	    return XIM_CHECK_ERROR;

+	}

+	if(!(res->mode & XIM_MODE_STS_DEFAULT)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+    } else {

+	if(!res->mode) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_IC_CREATE) {

+	    return XIM_CHECK_ERROR;

+	}

+	if(!(res->mode & XIM_MODE_IC_DEFAULT)) {

+	    return XIM_CHECK_INVALID;

+	}

+    }

+    return XIM_CHECK_VALID;

+}

+

+Private int

+_XimCheckCreateICMode(

+    XIMResourceList	res,

+    unsigned long	mode)

+{

+    if(mode & XIM_PREEDIT_ATTR) {

+	if(!(res->mode & XIM_MODE_PRE_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_PRE_CREATE) {

+	    res->mode &= ~XIM_MODE_PRE_CREATE;

+	} else if(res->mode & XIM_MODE_PRE_ONCE) {

+	    res->mode &= ~XIM_MODE_PRE_ONCE;

+	} else if(res->mode & XIM_MODE_PRE_DEFAULT) {

+	    res->mode &= ~XIM_MODE_PRE_DEFAULT;

+	} else if (!(res->mode & XIM_MODE_PRE_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else if(mode & XIM_STATUS_ATTR) {

+	if(!(res->mode & XIM_MODE_STS_MASK)) {

+	    return  XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_STS_CREATE) {

+	    res->mode &= ~XIM_MODE_STS_CREATE;

+	} else if(res->mode & XIM_MODE_STS_ONCE) {

+	    res->mode &= ~XIM_MODE_STS_ONCE;

+	} else if(res->mode & XIM_MODE_STS_DEFAULT) {

+	    res->mode &= ~XIM_MODE_STS_DEFAULT;

+	} else if (!(res->mode & XIM_MODE_STS_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else {

+	if(!res->mode) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_IC_CREATE) {

+	    res->mode &= ~XIM_MODE_IC_CREATE;

+	} else if(res->mode & XIM_MODE_IC_ONCE) {

+	    res->mode &= ~XIM_MODE_IC_ONCE;

+	} else if(res->mode & XIM_MODE_IC_DEFAULT) {

+	    res->mode &= ~XIM_MODE_IC_DEFAULT;

+	} else if (!(res->mode & XIM_MODE_IC_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+    }

+    return XIM_CHECK_VALID;

+}

+

+Private int

+_XimCheckSetICValuesMode(

+    XIMResourceList	res,

+    unsigned long	mode)

+{

+    if(mode & XIM_PREEDIT_ATTR) {

+	if(!(res->mode & XIM_MODE_PRE_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_PRE_ONCE) {

+	    res->mode &= ~XIM_MODE_PRE_ONCE;

+	} else if(!(res->mode & XIM_MODE_PRE_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else if(mode & XIM_STATUS_ATTR) {

+	if(!(res->mode & XIM_MODE_STS_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_STS_ONCE) {

+	    res->mode &= ~XIM_MODE_STS_ONCE;

+	} else if(!(res->mode & XIM_MODE_STS_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else {

+	if(!res->mode) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(res->mode & XIM_MODE_IC_ONCE) {

+	    res->mode &= ~XIM_MODE_IC_ONCE;

+	} else if(!(res->mode & XIM_MODE_IC_SET)) {

+	    return XIM_CHECK_ERROR;

+	}

+    }

+    return XIM_CHECK_VALID;

+}

+

+Private int

+_XimCheckGetICValuesMode(

+    XIMResourceList	res,

+    unsigned long	mode)

+{

+    if(mode & XIM_PREEDIT_ATTR) {

+	if(!(res->mode & XIM_MODE_PRE_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(!(res->mode & XIM_MODE_PRE_GET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else if(mode & XIM_STATUS_ATTR) {

+	if(!(res->mode & XIM_MODE_STS_MASK)) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(!(res->mode & XIM_MODE_STS_GET)) {

+	    return XIM_CHECK_ERROR;

+	}

+

+    } else {

+	if(!res->mode) {

+	    return XIM_CHECK_INVALID;

+	}

+

+	if(!(res->mode & XIM_MODE_IC_GET)) {

+	    return XIM_CHECK_ERROR;

+	}

+    }

+    return XIM_CHECK_VALID;

+}

+

+Public int

+ _XimCheckICMode(

+    XIMResourceList     res,

+    unsigned long       mode)

+{

+    if(mode &XIM_SETICDEFAULTS) {

+	return _XimCheckSetICDefaultsMode(res, mode);

+    } else if (mode & XIM_CREATEIC) {

+	return _XimCheckCreateICMode(res, mode);

+    } else if (mode & XIM_SETICVALUES) {

+	return _XimCheckSetICValuesMode(res, mode);

+    } else if (mode & XIM_GETICVALUES) {

+	return _XimCheckGetICValuesMode(res, mode);

+    } else {

+	return XIM_CHECK_ERROR;

+    }

+}

+

+Public Bool

+_XimSetLocalIMDefaults(

+    Xim			 im,

+    XPointer		 top,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    XimValueOffsetInfo	 info;

+    unsigned int	 num;

+    register int	 i;

+    XIMResourceList	 res;

+    int			 check;

+

+    info = im_attr_info;

+    num  = XIMNumber(im_attr_info);

+

+    for(i = 0; i < num; i++) {

+	if((res = _XimGetResourceListRecByQuark( res_list, list_num,

+				info[i].quark)) == (XIMResourceList)NULL) {

+	    return False;

+	}

+

+	check = _XimCheckIMMode(res, XIM_SETIMDEFAULTS);

+	if(check == XIM_CHECK_INVALID) {

+	    continue;

+	} else if (check == XIM_CHECK_ERROR) {

+	    return False;

+	}

+

+	if(!info[i].defaults) {

+	    continue;

+	}

+	if(!(info[i].defaults(&info[i], top, (XPointer)NULL, 0))) {

+	    return False;

+	}

+    }

+    return True;

+}

+

+Public Bool

+_XimSetICDefaults(

+    Xic			 ic,

+    XPointer		 top,

+    unsigned long	 mode,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    unsigned int	 num;

+    XimValueOffsetInfo	 info;

+    register int	 i;

+    XIMResourceList	 res;

+    int			 check;

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    if(mode & XIM_PREEDIT_ATTR) {

+	info = ic_pre_attr_info;

+	num  = XIMNumber(ic_pre_attr_info);

+    } else if(mode & XIM_STATUS_ATTR) {

+	info = ic_sts_attr_info;

+	num  = XIMNumber(ic_sts_attr_info);

+    } else {

+	info = ic_attr_info;

+	num  = XIMNumber(ic_attr_info);

+    }

+

+    for(i = 0; i < num; i++) {

+	if(info[i].quark == pre_quark) {

+	    if(!_XimSetICDefaults(ic, (XPointer)((char *)top + info[i].offset),

+			(mode | XIM_PREEDIT_ATTR), res_list, list_num)) {

+		return False;

+	    }

+	} else if (info[i].quark == sts_quark) {

+	    if(!_XimSetICDefaults(ic, (XPointer)((char *)top + info[i].offset),

+			(mode | XIM_STATUS_ATTR), res_list, list_num)) {

+		return False;

+	    }

+	} else {

+	    if(!(res = _XimGetResourceListRecByQuark(res_list, list_num,

+							info[i].quark))) {

+		return False;

+	    }

+

+	    check = _XimCheckICMode(res, mode);

+	    if (check == XIM_CHECK_INVALID) {

+		continue;

+	    } else if (check == XIM_CHECK_ERROR) {

+		return False;

+	    }

+

+	    if (!info[i].defaults) {

+		continue;

+	    }

+	    if (!(info[i].defaults(&info[i], top, (XPointer)ic, mode))) {

+		return False;

+	    }

+	}

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodeAttr(

+    XimValueOffsetInfo	 info,

+    unsigned int	 num,

+    XIMResourceList	 res,

+    XPointer		 top,

+    XPointer		 val)

+{

+    register int	 i;

+

+    for(i = 0; i < num; i++ ) {

+	if(info[i].quark == res->xrm_name) {

+	    if(!info[i].encode) {

+		return False;

+	    }

+	    return (*info[i].encode)(&info[i], top, val);

+	}

+    }

+    return False;

+}

+

+Public Bool

+_XimEncodeLocalIMAttr(

+    XIMResourceList	 res,

+    XPointer		 top,

+    XPointer		 val)

+{

+    return _XimEncodeAttr(im_attr_info, XIMNumber(im_attr_info),

+					res, top, val);

+}

+

+Public Bool

+_XimEncodeLocalICAttr(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XPointer		 top,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    unsigned int	 num;

+    XimValueOffsetInfo	 info;

+

+    if(mode & XIM_PREEDIT_ATTR) {

+	info = ic_pre_attr_info;

+	num  = XIMNumber(ic_pre_attr_info);

+    } else if(mode & XIM_STATUS_ATTR) {

+	info = ic_sts_attr_info;

+	num  = XIMNumber(ic_sts_attr_info);

+    } else {

+	info = ic_attr_info;

+	num  = XIMNumber(ic_attr_info);

+    }

+

+    return _XimEncodeAttr(info, num, res, top, arg->value);

+}

+

+Private Bool

+_XimEncodeLocalTopValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XPointer		 val,

+    Bool		 flag)

+{

+    XIMArg		*p = (XIMArg *)val;

+

+    if (res->xrm_name == XrmStringToQuark(XNClientWindow)) {

+	ic->core.client_window = (Window)p->value;

+	if (ic->core.focus_window == (Window)0)

+	    ic->core.focus_window = ic->core.client_window;

+	if (flag) {

+	    _XRegisterFilterByType(ic->core.im->core.display,

+			ic->core.focus_window,

+			KeyPress, KeyRelease, _XimLocalFilter, (XPointer)ic);

+	}

+    } else if (res->xrm_name == XrmStringToQuark(XNFocusWindow)) {

+	if (ic->core.client_window) {

+	    if (flag) {

+	        _XUnregisterFilter(ic->core.im->core.display,

+			ic->core.focus_window, _XimLocalFilter, (XPointer)ic);

+	    }

+	    ic->core.focus_window = (Window)p->value;

+	    if (flag) {

+	        _XRegisterFilterByType(ic->core.im->core.display,

+			ic->core.focus_window, KeyPress, KeyRelease,

+			_XimLocalFilter, (XPointer)ic);

+	    }

+	} else

+	    ic->core.focus_window = (Window)p->value;

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodeLocalPreeditValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XPointer		 val)

+{

+    XIMArg		*p = (XIMArg *)val;

+

+    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {

+	XStandardColormap	*colormap_ret;

+	int			 count;

+

+	if (!(XGetRGBColormaps(ic->core.im->core.display,

+				ic->core.focus_window, &colormap_ret,

+				&count, (Atom)p->value)))

+	    return False;

+

+	Xfree(colormap_ret);

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodeLocalStatusValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XPointer		 val)

+{

+    XIMArg		*p = (XIMArg *)val;

+

+    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {

+	XStandardColormap	*colormap_ret;

+	int			 count;

+

+	if (!(XGetRGBColormaps(ic->core.im->core.display,

+				ic->core.focus_window, &colormap_ret,

+				&count, (Atom)p->value)))

+	    return False;

+

+	Xfree(colormap_ret);

+    }

+    return True;

+}

+

+Public char *

+_XimSetICValueData(

+    Xic			 ic,

+    XPointer		 top,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num,

+    XIMArg		*values,

+    unsigned long	 mode,

+    Bool		 flag)

+{

+    register  XIMArg	*p;

+    XIMResourceList	 res;

+    char		*name;

+    int			 check;

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    for(p = values; p->name != NULL; p++) {

+	if((res = _XimGetResourceListRec(res_list, list_num,

+					p->name)) == (XIMResourceList)NULL) {

+	    return p->name;

+	}

+	if(res->xrm_name == pre_quark) {

+	    if(((name = _XimSetICValueData(ic,

+			(XPointer)(&((XimDefICValues *)top)->preedit_attr),

+			res_list, list_num, (XIMArg *)p->value,

+			(mode | XIM_PREEDIT_ATTR), flag)))) {

+		return name;

+	    }

+	} else if(res->xrm_name == sts_quark) {

+	    if(((name = _XimSetICValueData(ic,

+			(XPointer)(&((XimDefICValues *)top)->status_attr),

+			res_list, list_num, (XIMArg *)p->value,

+			(mode | XIM_STATUS_ATTR), flag)))) {

+		return name;

+	    }

+	} else {

+	    check = _XimCheckICMode(res, mode);

+	    if(check == XIM_CHECK_INVALID) {

+		continue;

+	    } else if(check == XIM_CHECK_ERROR) {

+		return p->name;

+	    }

+

+	    if(mode & XIM_PREEDIT_ATTR) {

+		if (!_XimEncodeLocalPreeditValue(ic, res, (XPointer)p))

+	    	    return False;

+    	    } else if(mode & XIM_STATUS_ATTR) {

+		if (!_XimEncodeLocalStatusValue(ic, res, (XPointer)p))

+	    	    return False;

+    	    } else {

+		if (!_XimEncodeLocalTopValue(ic, res, (XPointer)p, flag))

+	    	    return False;

+    	    }

+	    if(_XimEncodeLocalICAttr(ic, res, top, p, mode) == False) {

+		return p->name;

+	    }

+	}

+    }

+    return NULL;

+}

+

+Private Bool

+_XimCheckInputStyle(

+    XIMStyles		*styles,

+    XIMStyle		 style)

+{

+    int			 num = styles->count_styles;

+    register int	 i;

+

+    for(i = 0; i < num; i++) {

+	if(styles->supported_styles[i] == style) {

+	    return True;

+	}

+    }

+    return False;

+}

+

+Public Bool

+_XimCheckLocalInputStyle(

+    Xic			 ic,

+    XPointer		 top,

+    XIMArg		*values,

+    XIMStyles		*styles,

+    XIMResourceList	 res_list,

+    unsigned int	 list_num)

+{

+    XrmQuark		 quark = XrmStringToQuark(XNInputStyle);

+    register XIMArg	*p;

+    XIMResourceList	 res;

+

+    for(p = values; p && p->name != NULL; p++) {

+	if(quark == XrmStringToQuark(p->name)) {

+	    if(!(res = _XimGetResourceListRec(res_list, list_num, p->name))) {

+		return False;

+	    }

+	    if(!_XimEncodeLocalICAttr(ic, res, top, p, 0)) {

+		return False;

+	    }

+	    if (_XimCheckInputStyle(styles,

+			((XimDefICValues *)top)->input_style)) {

+		return True;

+	    }

+	    return False;

+	}

+    }

+    return False;

+}

+

+Private Bool

+_XimDecodeAttr(

+    XimValueOffsetInfo	 info,

+    unsigned int	 num,

+    XIMResourceList	 res,

+    XPointer		 top,

+    XPointer		 val)

+{

+    register int	 i;

+

+    for(i = 0; i < num; i++ ) {

+	if(info[i].quark == res->xrm_name) {

+	    if(!info[i].decode) {

+		return False;

+	    }

+	    return (*info[i].decode)(&info[i], top, val);

+	}

+    }

+    return False;

+}

+

+Public Bool

+_XimDecodeLocalIMAttr(

+    XIMResourceList	 res,

+    XPointer		 top,

+    XPointer		 val)

+{

+    return _XimDecodeAttr(im_attr_info, XIMNumber(im_attr_info),

+					res, top, val);

+}

+

+Public Bool

+_XimDecodeLocalICAttr(

+    XIMResourceList	 res,

+    XPointer		 top,

+    XPointer		 val,

+    unsigned long	 mode)

+{

+    unsigned int	 num;

+    XimValueOffsetInfo	 info;

+

+    if(mode & XIM_PREEDIT_ATTR) {

+	info = ic_pre_attr_info;

+	num  = XIMNumber(ic_pre_attr_info);

+    } else if(mode & XIM_STATUS_ATTR) {

+	info = ic_sts_attr_info;

+	num  = XIMNumber(ic_sts_attr_info);

+    } else {

+	info = ic_attr_info;

+	num  = XIMNumber(ic_attr_info);

+    }

+

+    return _XimDecodeAttr(info, num, res, top, val);

+}

+

+Public char *

+_XimGetICValueData(Xic ic, XPointer top, XIMResourceList res_list,

+		   unsigned int	 list_num, XIMArg *values, unsigned long mode)

+{

+    register  XIMArg	*p;

+    XIMResourceList	 res;

+    char		*name;

+    int			 check;

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    for(p = values; p->name != NULL; p++) {

+	if((res = _XimGetResourceListRec(res_list, list_num,

+					p->name)) == (XIMResourceList)NULL) {

+	    return p->name;

+	}

+	if(res->xrm_name == pre_quark) {

+	    if((name = _XimGetICValueData(ic,

+			(XPointer)(&((XimDefICValues *)top)->preedit_attr),

+			res_list, list_num, (XIMArg *)p->value,

+			(mode | XIM_PREEDIT_ATTR)))) {

+		return name;

+	    }

+	} else if(res->xrm_name == sts_quark) {

+	    if((name = _XimGetICValueData(ic,

+			(XPointer)(&((XimDefICValues *)top)->status_attr),

+			res_list, list_num, (XIMArg *)p->value,

+			(mode | XIM_STATUS_ATTR)))) {

+		return name;

+	    }

+	} else {

+	    check = _XimCheckICMode(res, mode);

+	    if(check == XIM_CHECK_INVALID) {

+		continue;

+	    } else if(check == XIM_CHECK_ERROR) {

+		return p->name;

+	    }

+

+	    if(_XimDecodeLocalICAttr(res, top, p->value, mode) == False) {

+		return p->name;

+	    }

+	}

+    }

+    return NULL;

+}

+

+Public void

+_XimGetCurrentIMValues(Xim im, XimDefIMValues *im_values)

+{

+    bzero((char *)im_values, sizeof(XimDefIMValues));

+

+    im_values->styles		= im->core.styles;

+    im_values->im_values_list	= im->core.im_values_list;

+    im_values->ic_values_list	= im->core.ic_values_list;

+    im_values->destroy_callback = im->core.destroy_callback;

+    im_values->res_name		= im->core.res_name;

+    im_values->res_class	= im->core.res_class;

+    im_values->visible_position	= im->core.visible_position;

+}

+

+Public void

+_XimSetCurrentIMValues(Xim im, XimDefIMValues *im_values)

+{

+    im->core.styles		= im_values->styles;

+    im->core.im_values_list	= im_values->im_values_list;

+    im->core.ic_values_list	= im_values->ic_values_list;

+    im->core.destroy_callback	= im_values->destroy_callback;

+    im->core.res_name		= im_values->res_name;

+    im->core.res_class		= im_values->res_class;

+    im->core.visible_position	= im_values->visible_position;

+}

+

+Public void

+_XimGetCurrentICValues(Xic ic, XimDefICValues *ic_values)

+{

+    bzero((char *)ic_values, sizeof(XimDefICValues));

+

+    ic_values->input_style	 = ic->core.input_style;

+    ic_values->client_window	 = ic->core.client_window;

+    ic_values->focus_window	 = ic->core.focus_window;

+    ic_values->filter_events	 = ic->core.filter_events;

+    ic_values->geometry_callback = ic->core.geometry_callback;

+    ic_values->res_name		 = ic->core.res_name;

+    ic_values->res_class	 = ic->core.res_class;

+    ic_values->destroy_callback	 = ic->core.destroy_callback;

+    ic_values->string_conversion_callback

+				 = ic->core.string_conversion_callback;

+    ic_values->string_conversion = ic->core.string_conversion;

+    ic_values->reset_state	 = ic->core.reset_state;

+    ic_values->hotkey		 = ic->core.hotkey;

+    ic_values->hotkey_state	 = ic->core.hotkey_state;

+    ic_values->preedit_attr	 = ic->core.preedit_attr;

+    ic_values->status_attr	 = ic->core.status_attr;

+}

+

+Public void

+_XimSetCurrentICValues(

+    Xic			 ic,

+    XimDefICValues	*ic_values)

+{

+    ic->core.input_style	= ic_values->input_style;

+    ic->core.client_window	= ic_values->client_window;

+    if (ic_values->focus_window)

+	ic->core.focus_window	= ic_values->focus_window;

+    ic->core.filter_events	= ic_values->filter_events;

+    ic->core.geometry_callback	= ic_values->geometry_callback;

+    ic->core.res_name		= ic_values->res_name;

+    ic->core.res_class		= ic_values->res_class;

+    ic->core.destroy_callback 	= ic_values->destroy_callback;

+    ic->core.string_conversion_callback

+				= ic_values->string_conversion_callback;

+    ic->core.string_conversion	= ic_values->string_conversion;

+    ic->core.reset_state	= ic_values->reset_state;

+    ic->core.hotkey		= ic_values->hotkey;

+    ic->core.hotkey_state	= ic_values->hotkey_state;

+    ic->core.preedit_attr	= ic_values->preedit_attr;

+    ic->core.status_attr	= ic_values->status_attr;

+}

+

+Private void

+_XimInitialIMOffsetInfo(void)

+{

+    unsigned int	 n = XIMNumber(im_attr_info);

+    register int	 i;

+

+    for(i = 0; i < n; i++) {

+	im_attr_info[i].quark = XrmStringToQuark(GET_NAME(im_attr_info[i]));

+    }

+}

+

+Private void

+_XimInitialICOffsetInfo(void)

+{

+    unsigned int	 n;

+    register int	 i;

+

+    n = XIMNumber(ic_attr_info);

+    for(i = 0; i < n; i++) {

+	ic_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_attr_info[i]));

+    }

+

+    n = XIMNumber(ic_pre_attr_info);

+    for(i = 0; i < n; i++) {

+	ic_pre_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_pre_attr_info[i]));

+    }

+

+    n = XIMNumber(ic_sts_attr_info);

+    for(i = 0; i < n; i++) {

+	ic_sts_attr_info[i].quark = XrmStringToQuark(GET_NAME(ic_sts_attr_info[i]));

+    }

+}

+

+Private void

+_XimInitialIMMode(void)

+{

+    unsigned int	n = XIMNumber(im_mode);

+    register int	i;

+

+    for(i = 0; i < n; i++) {

+	im_mode_quark[i] = XrmStringToQuark(GET_NAME(im_mode[i]));

+    }

+}

+

+Private void

+_XimInitialICMode(void)

+{

+    unsigned int	n = XIMNumber(ic_mode);

+    register int	i;

+

+    for(i = 0; i < n; i++) {

+	ic_mode_quark[i] = XrmStringToQuark(GET_NAME(ic_mode[i]));

+    }

+}

+

+Public void

+_XimInitialResourceInfo(void)

+{

+    static Bool	init_flag = False;

+

+    if(init_flag == True) {

+	return;

+    }

+    _XimInitialIMOffsetInfo();

+    _XimInitialICOffsetInfo();

+    _XimInitialIMMode();

+    _XimInitialICMode();

+    init_flag = True;

+}

diff --git a/libX11/modules/im/ximcp/imRmAttr.c b/libX11/modules/im/ximcp/imRmAttr.c
index 2e732658a..ac47f3bbe 100644
--- a/libX11/modules/im/ximcp/imRmAttr.c
+++ b/libX11/modules/im/ximcp/imRmAttr.c
@@ -1,1515 +1,1515 @@
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-
-
-Private XIMResourceList
-_XimGetNestedListSeparator(
-    XIMResourceList	 res_list,		/* LISTofIMATTR or IMATTR */
-    unsigned int	 res_num)
-{
-    return  _XimGetResourceListRec(res_list, res_num, XNSeparatorofNestedList);
-}
-
-Private Bool
-_XimCheckInnerIMAttributes(
-    Xim			 im,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    XIMResourceList	 res;
-    int			 check;
-
-    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,
-			im->private.proto.im_num_inner_resources, arg->name)))
-	return False;
-
-    check = _XimCheckIMMode(res, mode);
-    if(check == XIM_CHECK_INVALID)
-	return True;
-    else if(check == XIM_CHECK_ERROR)
-	return False;
-
-    return True;
-}
-
-Public char *
-_XimMakeIMAttrIDList(
-    Xim			 im,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    XIMArg		*arg,
-    CARD16		*buf,
-    INT16		*len,
-    unsigned long	 mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-
-    *len = 0;
-    if (!arg)
-	return (char *)NULL;
-
-    for (p = arg; p->name; p++) {
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimCheckInnerIMAttributes(im, p, mode))
-		continue;
-	    return p->name;
-	}
-
-	check = _XimCheckIMMode(res, mode);
-	if (check == XIM_CHECK_INVALID)
-	    continue;
-	else if (check == XIM_CHECK_ERROR)
-	    return p->name;
-
-	*buf = res->id;
-	*len += sizeof(CARD16);
-	 buf++;
-    }
-    return (char *)NULL;
-}
-
-Private Bool
-_XimCheckInnerICAttributes(
-    Xic			 ic,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    XIMResourceList	 res;
-    int			 check;
-
-    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,
-			ic->private.proto.ic_num_inner_resources, arg->name)))
-	return False;
-
-    check = _XimCheckICMode(res, mode);
-    if(check == XIM_CHECK_INVALID)
-	return True;
-    else if(check == XIM_CHECK_ERROR)
-	return False;
-
-    return True;
-}
-
-Public char *
-_XimMakeICAttrIDList(
-    Xic			 ic,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    XIMArg		*arg,
-    CARD16		*buf,
-    INT16		*len,
-    unsigned long	 mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-    char		*name;
-    INT16		 new_len;
-
-    *len = 0;
-    if (!arg)
-	return (char *)NULL;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    for (p = arg; p && p->name; p++) {
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimCheckInnerICAttributes(ic, p, mode))
-		continue;
-	    *len = -1;
-	    return p->name;
-	}
-
-	check = _XimCheckICMode(res, mode);
-	if(check == XIM_CHECK_INVALID)
-	    continue;
-	else if(check == XIM_CHECK_ERROR) {
-	    *len = -1;
-	    return p->name;
-	}
-
-	*buf = res->id;
-	*len += sizeof(CARD16);
-	buf++;
-	if (res->resource_size == XimType_NEST) {
-	    if (res->xrm_name == pre_quark) {
-		if ((name = _XimMakeICAttrIDList(ic, res_list, res_num,
-				(XIMArg *)p->value, buf, &new_len,
-				(mode | XIM_PREEDIT_ATTR)))) {
-		    if (new_len < 0) *len = -1;
-		    else *len += new_len;
-		    return name;
-		}
-	    } else if (res->xrm_name == sts_quark) {
-		if ((name = _XimMakeICAttrIDList(ic, res_list, res_num,
-				(XIMArg *)p->value, buf, &new_len,
-				(mode | XIM_STATUS_ATTR)))) {
-		    if (new_len < 0) *len = -1;
-		    else *len += new_len;
-		    return name;
-		}
-	    }
-	    *len += new_len;
-	    buf = (CARD16 *)((char *)buf + new_len);
-	    if (!(res = _XimGetNestedListSeparator(res_list, res_num))) {
-		p++;
-		if (p) {
-		    *len = -1;
-		    return p->name;
-		}
-		else {
-		    return (char *)NULL;
-		}
-	    }
-	    *buf = res->id;
-	    *len += sizeof(CARD16);
-	    buf++;
-	}
-    }
-    return (char *)NULL;
-}
-
-Private Bool
-_XimAttributeToValue(
-    Xic			  ic,
-    XIMResourceList	  res,
-    CARD16		 *data,
-    INT16		  data_len,
-    XPointer		  value,
-    BITMASK32		  mode)
-{
-    switch (res->resource_size) {
-    case XimType_SeparatorOfNestedList:
-    case XimType_NEST:
-	break;
-
-    case XimType_CARD8:
-    case XimType_CARD16:
-    case XimType_CARD32:
-    case XimType_Window:
-    case XimType_XIMHotKeyState:
-	_XCopyToArg((XPointer)data, (XPointer *)&value, data_len);
-	break;
-
-    case XimType_STRING8:
-	{
-	    char	*str;
-
-	    if (!(value))
-		return False;
-
-	    if (!(str = (char *)Xmalloc(data_len + 1)))
-		return False;
-
-	    (void)memcpy(str, (char *)data, data_len);
-	    str[data_len] = '\0';
-
-	    *((char **)value) = str;
-	    break;
-	}
-
-    case XimType_XIMStyles:
-	{
-	    INT16		 num = data[0];
-	    register CARD32	*style_list = (CARD32 *)&data[2];
-	    XIMStyle		*style;
-	    XIMStyles		*rep;
-	    register int	 i;
-	    char		*p;
-	    int			 alloc_len;
-
-	    if (!(value))
-		return False;
-
-	    alloc_len = sizeof(XIMStyles) + sizeof(XIMStyle) * num;
-	    if (!(p = (char *)Xmalloc(alloc_len)))
-		return False;
-
-	    rep   = (XIMStyles *)p;
-	    style = (XIMStyle *)(p + sizeof(XIMStyles));
-
-	    for (i = 0; i < num; i++)
-		style[i] = (XIMStyle)style_list[i];
-
-	    rep->count_styles = (unsigned short)num;
-	    rep->supported_styles = style;
-	    *((XIMStyles **)value) = rep;
-	    break;
-	}
-
-    case XimType_XRectangle:
-	{
-	    XRectangle	*rep;
-
-	    if (!(value))
-		return False;
-
-	    if (!(rep = (XRectangle *)Xmalloc(sizeof(XRectangle))))
-		return False;
-
-	    rep->x      = data[0];
-	    rep->y      = data[1];
-	    rep->width  = data[2];
-	    rep->height = data[3];
-	    *((XRectangle **)value) = rep;
-	    break;
-	}
-
-    case XimType_XPoint:
-	{
-	    XPoint	*rep;
-
-	    if (!(value))
-		return False;
-
-	    if (!(rep = (XPoint *)Xmalloc(sizeof(XPoint))))
-		return False;
-
-	    rep->x = data[0];
-	    rep->y = data[1];
-	    *((XPoint **)value) = rep;
-	    break;
-	}
-
-    case XimType_XFontSet:
-	{
-	    INT16	 len = data[0];
-	    char	*base_name;
-	    XFontSet	 rep = (XFontSet)NULL;
-	    char	**missing_list = NULL;
-	    int		 missing_count;
-	    char	*def_string;
-
-	    if (!(value))
-		return False;
-	    if (!ic)
-		return False;
-
-	    if (!(base_name = (char *)Xmalloc(len + 1)))
-		return False;
-
-	    (void)strncpy(base_name, (char *)&data[1], (int)len);
-	    base_name[len] = '\0';
-
-	    if (mode & XIM_PREEDIT_ATTR) {
-		if (!strcmp(base_name, ic->private.proto.preedit_font)) {
-		    rep = ic->core.preedit_attr.fontset;
-		} else if (!ic->private.proto.preedit_font_length) {
-		    rep = XCreateFontSet(ic->core.im->core.display,
-					base_name, &missing_list,
-					&missing_count, &def_string);
-		}
-	    } else if (mode & XIM_STATUS_ATTR) {
-		if (!strcmp(base_name, ic->private.proto.status_font)) {
-		    rep = ic->core.status_attr.fontset;
-		} else if (!ic->private.proto.status_font_length) {
-		    rep = XCreateFontSet(ic->core.im->core.display,
-					base_name, &missing_list,
-					&missing_count, &def_string);
-		}
-	    }
-
-	    Xfree(base_name);
-	    Xfree(missing_list);
-	    *((XFontSet *)value) = rep;
-	    break;
-	}
-
-    case XimType_XIMHotKeyTriggers:
-	{
-	    INT32			 num = *((CARD32 *)data);
-	    register CARD32		*key_list = (CARD32 *)&data[2];
-	    XIMHotKeyTrigger		*key;
-	    XIMHotKeyTriggers		*rep;
-	    register int		 i;
-	    char			*p;
-	    int				 alloc_len;
-
-	    if (!(value))
-		return False;
-
-	    alloc_len = sizeof(XIMHotKeyTriggers)
-		      + sizeof(XIMHotKeyTrigger) * num;
-	    if (!(p = (char *)Xmalloc(alloc_len)))
-		return False;
-
-	    rep = (XIMHotKeyTriggers *)p;
-	    key = (XIMHotKeyTrigger *)(p + sizeof(XIMHotKeyTriggers));
-
-	    for (i = 0; i < num; i++, key_list += 3) {
-		key[i].keysym        = (KeySym)key_list[0]; /* keysym */
-		key[i].modifier      = (int)key_list[1];    /* modifier */
-		key[i].modifier_mask = (int)key_list[2];    /* modifier_mask */
-	    }
-
-	    rep->num_hot_key = (int)num;
-	    rep->key = key;
-	    *((XIMHotKeyTriggers **)value) = rep;
-	    break;
-	}
-
-    case XimType_XIMStringConversion:
-	{
-	    break;
-	}
-
-    default:
-	return False;
-    }
-    return True;
-}
-
-Private Bool
-_XimDecodeInnerIMATTRIBUTE(
-    Xim			 im,
-    XIMArg		*arg)
-{
-    XIMResourceList	 res;
-    XimDefIMValues	 im_values;
-
-    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,
-			im->private.proto.im_num_inner_resources, arg->name)))
-	return False;
-
-    _XimGetCurrentIMValues(im, &im_values);
-    return _XimDecodeLocalIMAttr(res, (XPointer)&im_values, arg->value);
-}
-
-Public char *
-_XimDecodeIMATTRIBUTE(
-    Xim			 im,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    CARD16		*data,
-    INT16		 data_len,
-    XIMArg		*arg,
-    BITMASK32		 mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-    INT16		 len;
-    CARD16		*buf;
-    INT16		 total;
-    INT16		 min_len = sizeof(CARD16)	/* sizeof attributeID */
-			 	 + sizeof(INT16);	/* sizeof length */
-
-    for (p = arg; p->name; p++) {
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimDecodeInnerIMATTRIBUTE(im, p))
-		continue;
-	    return p->name;
-	}
-
-	check = _XimCheckIMMode(res, mode);
-	if(check == XIM_CHECK_INVALID)
-	    continue;
-	else if(check == XIM_CHECK_ERROR)
-	    return p->name;
-
-	total = data_len;
-	buf = data;
-	while (total >= min_len) {
-	    if (res->id == buf[0])
-		break;
-
-	    len = buf[1];
-	    len += XIM_PAD(len) + min_len;
-	    buf = (CARD16 *)((char *)buf + len);
-	    total -= len;
-	}
-	if (total < min_len)
-	    return p->name;
-
-	if (!(_XimAttributeToValue((Xic) im->private.local.current_ic,
-				   res, &buf[2], buf[1], p->value, mode)))
-	    return p->name;
-    }
-    return (char *)NULL;
-}
-
-Private Bool
-_XimDecodeInnerICATTRIBUTE(
-    Xic			 ic,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    XIMResourceList	 res;
-    XimDefICValues	 ic_values;
-
-    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,
-			ic->private.proto.ic_num_inner_resources, arg->name)))
-	return False;
-
-    _XimGetCurrentICValues(ic, &ic_values);
-    if (!_XimDecodeLocalICAttr(res, (XPointer)&ic_values, arg->value, mode))
-	return False;
-    _XimSetCurrentICValues(ic, &ic_values);
-    return True;
-}
-
-Public char *
-_XimDecodeICATTRIBUTE(
-    Xic			 ic,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    CARD16		*data,
-    INT16		 data_len,
-    XIMArg		*arg,
-    BITMASK32		 mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-    INT16		 len;
-    CARD16		*buf;
-    INT16		 total;
-    char		*name;
-    INT16		 min_len = sizeof(CARD16)	/* sizeof attributeID */
-			 	 + sizeof(INT16);	/* sizeof length */
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-
-    if (!arg)
-	return (char *)NULL;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    for (p = arg; p->name; p++) {
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimDecodeInnerICATTRIBUTE(ic, p, mode))
-		continue;
-	    return p->name;
-	}
-
-	check = _XimCheckICMode(res, mode);
-	if (check == XIM_CHECK_INVALID)
-	    continue;
-	else if (check == XIM_CHECK_ERROR)
-	    return p->name;
-
-	total = data_len;
-	buf = data;
-	while (total >= min_len) {
-	    if (res->id == buf[0])
-		break;
-
-	    len = buf[1];
-	    len += XIM_PAD(len) + min_len;
-	    buf = (CARD16 *)((char *)buf + len);
-	    total -= len;
-	}
-	if (total < min_len)
-	    return p->name;
-
-	if (res->resource_size == XimType_NEST) {
-	    if (res->xrm_name == pre_quark) {
-	        if ((name = _XimDecodeICATTRIBUTE(ic, res_list, res_num,
-			&buf[2], buf[1], (XIMArg *)p->value,
-			(mode | XIM_PREEDIT_ATTR))))
-		    return name;
-	    } else if (res->xrm_name == sts_quark) {
-	        if ((name = _XimDecodeICATTRIBUTE(ic, res_list, res_num,
-			&buf[2], buf[1], (XIMArg *)p->value,
-			(mode | XIM_STATUS_ATTR))))
-		    return name;
-	    }
-	} else {
-	    if (!(_XimAttributeToValue(ic, res, &buf[2], buf[1],
-							p->value, mode)))
-		return p->name;
-	}
-    }
-    return (char *)NULL;
-}
-
-Private Bool
-_XimValueToAttribute(
-    XIMResourceList	 res,
-    XPointer		 buf,
-    int			 buf_size,
-    XPointer		 value,
-    int			*len,
-    unsigned long	 mode,
-    XPointer		 param)
-{
-    int			 ret_len;
-
-    switch (res->resource_size) {
-    case XimType_SeparatorOfNestedList:
-    case XimType_NEST:
-	*len = 0;
-	break;
-
-    case XimType_CARD8:
-	ret_len = sizeof(CARD8);
-	if (buf_size < ret_len + XIM_PAD(ret_len)) {
-	    *len = -1;
-	    return False;
-	}
-
-	*((CARD8 *)buf) = (CARD8)(long)value;
-	*len = ret_len;
-	break;
-
-    case XimType_CARD16:
-	ret_len = sizeof(CARD16);
-	if (buf_size < ret_len + XIM_PAD(ret_len)) {
-	    *len = -1;
-	    return False;
-	}
-
-	*((CARD16 *)buf) = (CARD16)(long)value;
-	*len = ret_len;
-	break;
-
-    case XimType_CARD32:
-    case XimType_Window:
-    case XimType_XIMHotKeyState:
-	ret_len = sizeof(CARD32);
-	if (buf_size < ret_len + XIM_PAD(ret_len)) {
-	    *len = -1;
-	    return False;
-	}
-
-	*((CARD32 *)buf) = (CARD32)(long)value;
-	*len = ret_len;
-	break;
-
-    case XimType_STRING8:
-	if (!value) {
-	    *len = 0;
-	    return False;
-	}
-
-	ret_len = strlen((char *)value);
-	if (buf_size < ret_len + XIM_PAD(ret_len)) {
-	    *len = -1;
-	    return False;
-	}
-
-	(void)memcpy((char *)buf, (char *)value, ret_len);
-	*len = ret_len;
-	break;
-
-    case XimType_XRectangle:
-	{
-	    XRectangle	*rect = (XRectangle *)value;
-	    CARD16	*buf_s = (CARD16 *)buf;
-
-	    if (!rect) {
-		*len = 0;
-		return False;
-	    }
-
-	    ret_len = sizeof(INT16)		/* sizeof X */
-	    	    + sizeof(INT16)		/* sizeof Y */
-	            + sizeof(CARD16)		/* sizeof width */
-	            + sizeof(CARD16);		/* sizeof height */
-	    if (buf_size < ret_len + XIM_PAD(ret_len)) {
-		*len = -1;
-		return False;
-	    }
-
-	    buf_s[0] = (CARD16)rect->x;		/* X */
-	    buf_s[1] = (CARD16)rect->y;		/* Y */
-	    buf_s[2] = (CARD16)rect->width;	/* width */
-	    buf_s[3] = (CARD16)rect->height;	/* heght */
-	    *len = ret_len;
-	    break;
-	}
-
-    case XimType_XPoint:
-	{
-	    XPoint	*point = (XPoint *)value;
-	    CARD16	*buf_s = (CARD16 *)buf;
-
-	    if (!point) {
-		*len = 0;
-		return False;
-	    }
-
-	    ret_len = sizeof(INT16)		/* sizeof X */
-	            + sizeof(INT16);		/* sizeof Y */
-	    if (buf_size < ret_len + XIM_PAD(ret_len)) {
-		*len = -1;
-		return False;
-	    }
-
-	    buf_s[0] = (CARD16)point->x;		/* X */
-	    buf_s[1] = (CARD16)point->y;		/* Y */
-	    *len = ret_len;
-	    break;
-	}
-
-    case XimType_XFontSet:
-	{
-	    XFontSet	 font = (XFontSet)value;
-	    Xic		 ic = (Xic)param;
-	    char	*base_name = NULL;
-	    int		 length = 0;
-	    CARD16	*buf_s = (CARD16 *)buf;
-
-	    if (!font) {
-		*len = 0;
-		return False;
-	    }
-
-	    if (mode & XIM_PREEDIT_ATTR) {
-		base_name = ic->private.proto.preedit_font;
-		length	  = ic->private.proto.preedit_font_length;
-	    } else if (mode & XIM_STATUS_ATTR) {
-		base_name = ic->private.proto.status_font;
-		length	  = ic->private.proto.status_font_length;
-	    }
-
-	    if (!base_name) {
-		*len = 0;
-		return False;
-	    }
-
-	    ret_len = sizeof(CARD16)		/* sizeof length of Base name */
-		    + length;			/* sizeof Base font name list */
-	    if (buf_size < ret_len + XIM_PAD(ret_len)) {
-		*len = -1;
-		return False;
-	    }
-
-	    buf_s[0] = (INT16)length;		/* length of Base font name */
-	    (void)memcpy((char *)&buf_s[1], base_name, length);
-						/* Base font name list */
-	    *len = ret_len;
-	    break;
-	}
-
-    case XimType_XIMHotKeyTriggers:
-	{
-	    XIMHotKeyTriggers	*hotkey = (XIMHotKeyTriggers *)value;
-	    INT32		 num;
-	    CARD32		*buf_l = (CARD32 *)buf;
-	    register CARD32	*key = (CARD32 *)&buf_l[1];
-	    register int	 i;
-
-	    if (!hotkey) {
-		*len = 0;
-		return False;
-	    }
-	    num = (INT32)hotkey->num_hot_key;
-
-	    ret_len = sizeof(INT32)		/* sizeof number of key list */
-	           + (sizeof(CARD32)		/* sizeof keysyn */
-	           +  sizeof(CARD32)		/* sizeof modifier */
-	           +  sizeof(CARD32))		/* sizeof modifier_mask */
-	           *  num;			/* number of key list */
-	    if (buf_size < ret_len + XIM_PAD(ret_len)) {
-		*len = -1;
-		return False;
-	    }
-
-	    buf_l[0] = num;		/* number of key list */
-	    for (i = 0; i < num; i++, key += 3) {
-		key[0] = (CARD32)(hotkey->key[i].keysym);
-						/* keysym */
-		key[1] = (CARD32)(hotkey->key[i].modifier);
-						/* modifier */
-		key[2] = (CARD32)(hotkey->key[i].modifier_mask);
-						/* modifier_mask */
-	    }
-	    *len = ret_len;
-	    break;
-	}
-
-    case XimType_XIMStringConversion:
-	{
-	    *len = 0;
-	    break;
-	}
-
-    default:
-	return False;
-    }
-    return True;
-}
-
-Private Bool
-_XimSetInnerIMAttributes(
-    Xim			 im,
-    XPointer		 top,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    XIMResourceList	 res;
-    int			 check;
-
-    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,
-			im->private.proto.im_num_inner_resources, arg->name)))
-	return False;
-
-    check = _XimCheckIMMode(res, mode);
-    if(check == XIM_CHECK_INVALID)
-	return True;
-    else if(check == XIM_CHECK_ERROR)
-	return False;
-
-    return _XimEncodeLocalIMAttr(res, top, arg->value);
-}
-
-Public char *
-_XimEncodeIMATTRIBUTE(
-    Xim			  im,
-    XIMResourceList	  res_list,
-    unsigned int	  res_num,
-    XIMArg		 *arg,
-    XIMArg		**arg_ret,
-    char		 *buf,
-    int			  size,
-    int			 *ret_len,
-    XPointer		  top,
-    unsigned long	  mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-    CARD16		*buf_s;
-    int			 len;
-    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */
-				 + sizeof(INT16); /* sizeof value length */
-
-    *ret_len = 0;
-    for (p = arg; p->name; p++) {
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimSetInnerIMAttributes(im, top, p, mode))
-		continue;
-	    return p->name;
-	}
-
-	check = _XimCheckIMMode(res, mode);
-	if (check == XIM_CHECK_INVALID)
-	    continue;
-	else if (check == XIM_CHECK_ERROR)
-	    return p->name;
-
-	if (!(_XimEncodeLocalIMAttr(res, top, p->value)))
-	    return p->name;
-
-	buf_s = (CARD16 *)buf;
-	if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2], (size - min_len),
-				p->value, &len, mode, (XPointer)NULL)))
-	    return p->name;
-
-	if (len == 0) {
-	    continue;
-	} else if (len < 0) {
-	    *arg_ret = p;
-	    return (char *)NULL;
-	}
-
-	buf_s[0] = res->id;			/* attribute ID */
-	buf_s[1] = len;				/* value length */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += min_len;
-
-	buf += len;
-	*ret_len += len;
-	size -= len;
-    }
-    *arg_ret = (XIMArg *)NULL;
-    return (char *)NULL;
-}
-
-#ifdef XIM_CONNECTABLE
-Public	Bool
-_XimEncodeSavedIMATTRIBUTE(
-    Xim			 im,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    int			*idx,
-    char		*buf,
-    int			 size,
-    int			*ret_len,
-    XPointer		 top,
-    unsigned long	 mode)
-{
-    register int	 i;
-    int			 num = im->private.proto.num_saved_imvalues;
-    XrmQuark		*quark_list = im->private.proto.saved_imvalues;
-    XIMResourceList	 res;
-    XPointer		 value;
-    CARD16		*buf_s;
-    int			 len;
-    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */
-				 + sizeof(INT16); /* sizeof value length */
-
-    if (!im->private.proto.saved_imvalues) {
-	*idx = -1;
-	*ret_len = 0;
-	return True;
-    }
-
-    *ret_len = 0;
-    for (i = *idx; i < num; i++) {
-	if (!(res = _XimGetResourceListRecByQuark(res_list,
-						res_num, quark_list[i])))
-	    continue;
-
-	if (!_XimDecodeLocalIMAttr(res, top, value))
-	    return False;
-
-	buf_s = (CARD16 *)buf;
-	if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],
-			(size - min_len), value, &len, mode, (XPointer)NULL)))
-	    return False;
-
-	if (len == 0) {
-	    continue;
-	} else if (len < 0) {
-	    *idx = i;
-	    return True;
-	}
-
-	buf_s[0] = res->id;			/* attribute ID */
-	buf_s[1] = len;				/* value length */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += min_len;
-
-	buf += len;
-	*ret_len += len;
-	size -= len;
-    }
-    *idx = -1;
-    return True;
-}
-#endif /* XIM_CONNECTABLE */
-
-Private Bool
-_XimEncodeTopValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XIMArg		*p)
-{
-    if (res->xrm_name == XrmStringToQuark(XNClientWindow)) {
-	ic->core.client_window = (Window)p->value;
-	if (ic->core.focus_window == (Window)0)
-	    ic->core.focus_window = ic->core.client_window;
-	_XimRegisterFilter(ic);
-
-    } else if (res->xrm_name == XrmStringToQuark(XNFocusWindow)) {
-	if (ic->core.client_window) {
-	    _XimUnregisterFilter(ic);
-	    ic->core.focus_window = (Window)p->value;
-	    _XimRegisterFilter(ic);
-	} else /* client_window not yet */
-	    ic->core.focus_window = (Window)p->value;
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodePreeditValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XIMArg		*p)
-{
-    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {
-	XStandardColormap	*colormap_ret;
-	int			 count;
-
-	if (!(XGetRGBColormaps(ic->core.im->core.display,
-				ic->core.focus_window, &colormap_ret,
-				&count, (Atom)p->value)))
-	    return False;
-
-	XFree(colormap_ret);
-    } else if (res->xrm_name == XrmStringToQuark(XNFontSet)) {
-	int		  list_ret;
-	XFontStruct	**struct_list;
-	char		**name_list;
-	char		 *tmp;
-	int		  len;
-	register int	  i;
-
-	if (!p->value)
-	    return False;
-
-	if (ic->private.proto.preedit_font)
-	    Xfree(ic->private.proto.preedit_font);
-
-	list_ret = XFontsOfFontSet((XFontSet)p->value,
-						 &struct_list, &name_list);
-	for (i = 0, len = 0; i < list_ret; i++) {
-	     len += (strlen(name_list[i]) + sizeof(char));
-	}
-	if (!(tmp = Xmalloc(len + 1))) {
-	    ic->private.proto.preedit_font = NULL;
-	    return False;
-	}
-
-	tmp[0] = '\0';
-	for (i = 0; i < list_ret; i++) {
-	    strcat(tmp, name_list[i]);
-	    strcat(tmp, ",");
-	}
-	tmp[len - 1] = 0;
-	ic->private.proto.preedit_font        = tmp;
-	ic->private.proto.preedit_font_length = len - 1;
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodeStatusValue(
-    Xic			 ic,
-    XIMResourceList	 res,
-    XIMArg		*p)
-{
-    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {
-	XStandardColormap	*colormap_ret = NULL;
-	int			 count;
-
-	if (!(XGetRGBColormaps(ic->core.im->core.display,
-				ic->core.focus_window, &colormap_ret,
-				&count, (Atom)p->value)))
-	    return False;
-
-	XFree(colormap_ret);
-    } else if (res->xrm_name == XrmStringToQuark(XNFontSet)) {
-	int		  list_ret;
-	XFontStruct	**struct_list;
-	char		**name_list;
-	char		 *tmp;
-	int		  len;
-	register int	  i;
-
-	if (!p->value)
-	    return False;
-
-	if (ic->private.proto.status_font)
-	    Xfree(ic->private.proto.status_font);
-
-	list_ret = XFontsOfFontSet((XFontSet)p->value,
-						 &struct_list, &name_list);
-	for (i = 0, len = 0; i < list_ret; i++) {
-	     len += (strlen(name_list[i]) + sizeof(char));
-	}
-	if (!(tmp = Xmalloc(len+1))) {
-	    ic->private.proto.status_font = NULL;
-	    return False;
-	}
-
-	tmp[0] = '\0';
-	for(i = 0; i < list_ret; i++) {
-	    strcat(tmp, name_list[i]);
-	    strcat(tmp, ",");
-	}
-	tmp[len - 1] = 0;
-	ic->private.proto.status_font        = tmp;
-	ic->private.proto.status_font_length = len - 1;
-    }
-    return True;
-}
-
-Private Bool
-_XimSetInnerICAttributes(
-    Xic			 ic,
-    XPointer		 top,
-    XIMArg		*arg,
-    unsigned long	 mode)
-{
-    XIMResourceList	 res;
-    int			 check;
-
-    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,
-			ic->private.proto.ic_num_inner_resources, arg->name)))
-	return False;
-
-    check = _XimCheckICMode(res, mode);
-    if(check == XIM_CHECK_INVALID)
-	return True;
-    else if(check == XIM_CHECK_ERROR)
-	return False;
-
-    return _XimEncodeLocalICAttr(ic, res, top, arg, mode);
-}
-
-Public char *
-_XimEncodeICATTRIBUTE(
-    Xic			  ic,
-    XIMResourceList	  res_list,
-    unsigned int	  res_num,
-    XIMArg		 *arg,
-    XIMArg		**arg_ret,
-    char		 *buf,
-    int			  size,
-    int			 *ret_len,
-    XPointer		  top,
-    BITMASK32		 *flag,
-    unsigned long	  mode)
-{
-    register XIMArg	*p;
-    XIMResourceList	 res;
-    int			 check;
-    CARD16		*buf_s;
-    int			 len;
-    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */
-				 + sizeof(INT16); /* sizeof value length */
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-    char		*name;
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-
-    *ret_len = 0;
-    for (p = arg; p && p->name; p++) {
-	buf_s = (CARD16 *)buf;
-	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {
-	    if (_XimSetInnerICAttributes(ic, top, p, mode))
-		continue;
-	    return p->name;
-	}
-
-	check = _XimCheckICMode(res, mode);
-	if (check == XIM_CHECK_INVALID)
-	    continue;
-	else if (check == XIM_CHECK_ERROR)
-	    return p->name;
-
-	if (mode & XIM_PREEDIT_ATTR) {
-	    if (!(_XimEncodePreeditValue(ic, res, p)))
-		return p->name;
-	} else if (mode & XIM_STATUS_ATTR) {
-	    if (!(_XimEncodeStatusValue(ic, res, p)))
-		return p->name;
-	} else {
-	    if (!(_XimEncodeTopValue(ic, res, p)))
-		return p->name;
-	}
-
-	if (res->resource_size == XimType_NEST) {
-	    XimDefICValues	*ic_attr = (XimDefICValues *)top;
-
-	    if (res->xrm_name == pre_quark) {
-		XIMArg		*arg_rt;
-		if ((name = _XimEncodeICATTRIBUTE(ic, res_list, res_num,
-				(XIMArg *)p->value, &arg_rt,
-				(char *)&buf_s[2], (size - min_len),
-				 &len, (XPointer)&ic_attr->preedit_attr, flag,
-				(mode | XIM_PREEDIT_ATTR)))) {
-		    return name;
-		}
-
-	    } else if (res->xrm_name == sts_quark) {
-		XIMArg		*arg_rt;
-		if ((name = _XimEncodeICATTRIBUTE(ic, res_list, res_num,
-				(XIMArg *)p->value,  &arg_rt,
-				(char *)&buf_s[2], (size - min_len),
-				 &len, (XPointer)&ic_attr->status_attr, flag,
-				(mode | XIM_STATUS_ATTR)))) {
-		    return name;
-		}
-	    }
-	} else {
-#ifdef EXT_MOVE
-	    if (flag)
-		*flag |= _XimExtenArgCheck(p);
-#endif
-    	    if (!(_XimEncodeLocalICAttr(ic, res, top, p, mode)))
-		return p->name;
-
-	    if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],
-			 	(size - min_len), p->value,
-				&len, mode, (XPointer)ic)))
-		return p->name;
-	}
-
-	if (len == 0) {
-	    continue;
-	} else if (len < 0) {
-	    *arg_ret = p;
-	    return (char *)NULL;
-	}
-
-	buf_s[0] = res->id;			/* attribute ID */
-	buf_s[1] = len;				/* value length */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += min_len;
-
-	buf += len;
-	*ret_len += len;
-	size -= len;
-    }
-    *arg_ret = (XIMArg *)NULL;
-    return (char *)NULL;
-}
-
-#ifdef XIM_CONNECTABLE
-Private Bool
-_XimEncodeSavedPreeditValue(
-    Xic			  ic,
-    XIMResourceList	  res,
-    XPointer		  value)
-{
-    int			  list_ret;
-    XFontStruct		**struct_list;
-    char		**name_list;
-    char		 *tmp;
-    int			  len;
-    register int	  i;
-
-    if (res->xrm_name == XrmStringToQuark(XNFontSet)) {
-	if (!value)
-	    return False;
-
-	if (ic->private.proto.preedit_font)
-	    Xfree(ic->private.proto.preedit_font);
-
-	list_ret = XFontsOfFontSet((XFontSet)value,
-						&struct_list, &name_list);
-	for(i = 0, len = 0; i < list_ret; i++) {
-	    len += (strlen(name_list[i]) + sizeof(char));
-	}
-	if(!(tmp = Xmalloc(len + 1))) {
-	    ic->private.proto.preedit_font = NULL;
-	    return False;
-	}
-
-	tmp[0] = '\0';
-	for(i = 0; i < list_ret; i++) {
-	    strcat(tmp, name_list[i]);
-	    strcat(tmp, ",");
-	}
-	tmp[len - 1] = 0;
-	ic->private.proto.preedit_font        = tmp;
-	ic->private.proto.preedit_font_length = len - 1;
-    }
-    return True;
-}
-
-Private Bool
-_XimEncodeSavedStatusValue(
-    Xic			  ic,
-    XIMResourceList	  res,
-    XPointer		  value)
-{
-    int			  list_ret;
-    XFontStruct		**struct_list;
-    char		**name_list;
-    char		 *tmp;
-    int			  len;
-    register int	  i;
-
-    if (res->xrm_name == XrmStringToQuark(XNFontSet)) {
-	if (!value)
-	    return False;
-
-	if (ic->private.proto.status_font)
-	    Xfree(ic->private.proto.status_font);
-
-	list_ret = XFontsOfFontSet((XFontSet)value,
-						&struct_list, &name_list);
-	for(i = 0, len = 0; i < list_ret; i++) {
-	    len += (strlen(name_list[i]) + sizeof(char));
-	}
-	if(!(tmp = Xmalloc(len + 1))) {
-	    ic->private.proto.status_font = NULL;
-	    return False;
-	}
-
-	tmp[0] = '\0';
-	for(i = 0; i < list_ret; i++) {
-	    strcat(tmp, name_list[i]);
-	    strcat(tmp, ",");
-	}
-	tmp[len - 1] = 0;
-	ic->private.proto.status_font        = tmp;
-	ic->private.proto.status_font_length = len - 1;
-    }
-    return True;
-}
-
-Public	Bool
-_XimEncodeSavedICATTRIBUTE(
-    Xic			 ic,
-    XIMResourceList	 res_list,
-    unsigned int	 res_num,
-    int			*idx,
-    char		*buf,
-    int			 size,
-    int			*ret_len,
-    XPointer		 top,
-    unsigned long	 mode)
-{
-    int			 i;
-    int			 num = ic->private.proto.num_saved_icvalues;
-    XrmQuark		*quark_list = ic->private.proto.saved_icvalues;
-    XIMResourceList	 res;
-    XPointer		 value;
-    CARD16		*buf_s;
-    int			 len;
-    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */
-				 + sizeof(INT16); /* sizeof value length */
-    XrmQuark		 pre_quark;
-    XrmQuark		 sts_quark;
-    XrmQuark		 separator;
-
-    if (!ic->private.proto.saved_icvalues) {
-	*idx = -1;
-	*ret_len = 0;
-	return True;
-    }
-
-    pre_quark = XrmStringToQuark(XNPreeditAttributes);
-    sts_quark = XrmStringToQuark(XNStatusAttributes);
-    separator = XrmStringToQuark(XNSeparatorofNestedList);
-
-    *ret_len = 0;
-    for (i = *idx; i < num; i++) {
-	if (quark_list[i] == separator) {
-	    *idx = i;
-	    return True;
-	}
-
-	if (!(res = _XimGetResourceListRecByQuark(res_list,
-						res_num, quark_list[i])))
-	    continue;
-
-	if (!_XimDecodeLocalICAttr(res, top,(XPointer)&value, mode))
-	    return False;
-
-	if (mode & XIM_PREEDIT_ATTR) {
-	    if (!(_XimEncodeSavedPreeditValue(ic, res, value))) {
-		return False;
-	    }
-	} else if (mode & XIM_STATUS_ATTR) {
-	    if (!(_XimEncodeSavedStatusValue(ic, res, value))) {
-		return False;
-	    }
-	}
-
-	buf_s = (CARD16 *)buf;
-	if (res->resource_size == XimType_NEST) {
-	    XimDefICValues	*ic_attr = (XimDefICValues *)top;
-
-	    i++;
-	    if (res->xrm_name == pre_quark) {
-		if (!_XimEncodeSavedICATTRIBUTE(ic, res_list, res_num,
-				 &i, (char *)&buf_s[2], (size - min_len),
-				 &len, (XPointer)&ic_attr->preedit_attr,
-				(mode | XIM_PREEDIT_ATTR))) {
-		    return False;
-		}
-
-	    } else if (res->xrm_name == sts_quark) {
-		if (!_XimEncodeSavedICATTRIBUTE(ic, res_list, res_num,
-				&i, (char *)&buf_s[2], (size - min_len),
-				&len, (XPointer)&ic_attr->status_attr,
-				(mode | XIM_STATUS_ATTR))) {
-		    return False;
-		}
-	    }
-	} else {
-	    if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],
-			 	(size - min_len), value,
-				&len, mode, (XPointer)ic))) {
-		return False;
-	    }
-	}
-
-	if (len == 0) {
-	    continue;
-	} else if (len < 0) {
-	    if (quark_list[i] == separator)
-		i++;
-	    *idx = i;
-	    return True;
-	}
-
-	buf_s[0] = res->id;			/* attribute ID */
-	buf_s[1] = len;				/* value length */
-	XIM_SET_PAD(&buf_s[2], len);		/* pad */
-	len += min_len;
-
-	buf += len;
-	*ret_len += len;
-	size -= len;
-    }
-    *idx = -1;
-    return True;
-}
-#endif /* XIM_CONNECTABLE */
-
-Private unsigned int
-_XimCountNumberOfAttr(
-    INT16	 total,
-    CARD16	*attr,
-    int		*names_len)
-{
-    unsigned int n;
-    INT16	 len;
-    INT16	 min_len = sizeof(CARD16)	/* sizeof attribute ID */
-			 + sizeof(CARD16)	/* sizeof type of value */
-			 + sizeof(INT16);	/* sizeof length of attribute */
-
-    n = 0;
-    *names_len = 0;
-    while (total > min_len) {
-	len = attr[2];
-	*names_len += (len + 1);
-	len += (min_len + XIM_PAD(len + 2));
-	total -= len;
-	attr = (CARD16 *)((char *)attr + len);
-	n++;
-    }
-    return n;
-}
-
-Public Bool
-_XimGetAttributeID(
-    Xim			  im,
-    CARD16		 *buf)
-{
-    unsigned int	  n;
-    XIMResourceList	  res;
-    char		 *names;
-    int			  names_len;
-    XPointer		  tmp;
-    XIMValuesList	 *values_list;
-    char		**values;
-    int			  values_len;
-    register int	  i;
-    INT16		  len;
-    INT16		  min_len = sizeof(CARD16) /* sizeof attribute ID */
-				  + sizeof(CARD16) /* sizeof type of value */
-				  + sizeof(INT16); /* sizeof length of attr */
-    /*
-     * IM attribute ID
-     */
-
-    if (!(n = _XimCountNumberOfAttr(buf[0], &buf[1], &names_len)))
-	return False;
-
-    if (!(res = Xcalloc(n, sizeof(XIMResource))))
-	return False;
-
-    values_len = sizeof(XIMValuesList) + (sizeof(char **) * n) + names_len;
-    if (!(tmp = Xcalloc(1, values_len))) {
-	Xfree(res);
-	return False;
-    }
-
-    values_list = (XIMValuesList *)tmp;
-    values = (char **)((char *)tmp + sizeof(XIMValuesList));
-    names = (char *)((char *)values + (sizeof(char **) * n));
-
-    values_list->count_values = n;
-    values_list->supported_values = values;
-
-    buf++;
-    for (i = 0; i < n; i++) {
-	len = buf[2];
-	(void)memcpy(names, (char *)&buf[3], len);
-	values[i] = names;
-	names[len] = '\0';
-	res[i].resource_name = names;
-	res[i].resource_size = buf[1];
-	res[i].id	     = buf[0];
-	names += (len + 1);
-	len += (min_len + XIM_PAD(len + 2));
-	buf = (CARD16 *)((char *)buf + len);
-    }
-    _XIMCompileResourceList(res, n);
-
-    if (im->core.im_resources)
-	Xfree(im->core.im_resources);
-    if (im->core.im_values_list)
-	Xfree(im->core.im_values_list);
-    im->core.im_resources     = res;
-    im->core.im_num_resources = n;
-    im->core.im_values_list   = values_list;
-
-    /*
-     * IC attribute ID
-     */
-
-    if (!(n = _XimCountNumberOfAttr(buf[0], &buf[2], &names_len)))
-	return False;
-
-    if (!(res = Xcalloc(n, sizeof(XIMResource))))
-	return False;
-
-    values_len = sizeof(XIMValuesList) + (sizeof(char **) * n) + names_len;
-    if (!(tmp = Xcalloc(1, values_len))) {
-	Xfree(res);
-	return False;
-    }
-
-    values_list = (XIMValuesList *)tmp;
-    values = (char **)((char *)tmp + sizeof(XIMValuesList));
-    names = (char *)((char *)values + (sizeof(char **) * n));
-
-    values_list->count_values = n;
-    values_list->supported_values = values;
-
-    buf += 2;
-    for (i = 0; i < n; i++) {
-	len = buf[2];
-	(void)memcpy(names, (char *)&buf[3], len);
-	values[i] = names;
-	names[len] = '\0';
-	res[i].resource_name = names;
-	res[i].resource_size = buf[1];
-	res[i].id	     = buf[0];
-	names += (len + 1);
-	len += (min_len + XIM_PAD(len + 2));
-	buf = (CARD16 *)((char *)buf + len);
-    }
-    _XIMCompileResourceList(res, n);
-
-    if (im->core.ic_resources)
-	Xfree(im->core.ic_resources);
-    if (im->core.ic_values_list)
-	Xfree(im->core.ic_values_list);
-    im->core.ic_resources     = res;
-    im->core.ic_num_resources = n;
-    im->core.ic_values_list   = values_list;
-
-    return True;
-}
+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+

+

+Private XIMResourceList

+_XimGetNestedListSeparator(

+    XIMResourceList	 res_list,		/* LISTofIMATTR or IMATTR */

+    unsigned int	 res_num)

+{

+    return  _XimGetResourceListRec(res_list, res_num, XNSeparatorofNestedList);

+}

+

+Private Bool

+_XimCheckInnerIMAttributes(

+    Xim			 im,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    XIMResourceList	 res;

+    int			 check;

+

+    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,

+			im->private.proto.im_num_inner_resources, arg->name)))

+	return False;

+

+    check = _XimCheckIMMode(res, mode);

+    if(check == XIM_CHECK_INVALID)

+	return True;

+    else if(check == XIM_CHECK_ERROR)

+	return False;

+

+    return True;

+}

+

+Public char *

+_XimMakeIMAttrIDList(

+    Xim			 im,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    XIMArg		*arg,

+    CARD16		*buf,

+    INT16		*len,

+    unsigned long	 mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+

+    *len = 0;

+    if (!arg)

+	return (char *)NULL;

+

+    for (p = arg; p->name; p++) {

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimCheckInnerIMAttributes(im, p, mode))

+		continue;

+	    return p->name;

+	}

+

+	check = _XimCheckIMMode(res, mode);

+	if (check == XIM_CHECK_INVALID)

+	    continue;

+	else if (check == XIM_CHECK_ERROR)

+	    return p->name;

+

+	*buf = res->id;

+	*len += sizeof(CARD16);

+	 buf++;

+    }

+    return (char *)NULL;

+}

+

+Private Bool

+_XimCheckInnerICAttributes(

+    Xic			 ic,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    XIMResourceList	 res;

+    int			 check;

+

+    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,

+			ic->private.proto.ic_num_inner_resources, arg->name)))

+	return False;

+

+    check = _XimCheckICMode(res, mode);

+    if(check == XIM_CHECK_INVALID)

+	return True;

+    else if(check == XIM_CHECK_ERROR)

+	return False;

+

+    return True;

+}

+

+Public char *

+_XimMakeICAttrIDList(

+    Xic			 ic,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    XIMArg		*arg,

+    CARD16		*buf,

+    INT16		*len,

+    unsigned long	 mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+    char		*name;

+    INT16		 new_len;

+

+    *len = 0;

+    if (!arg)

+	return (char *)NULL;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    for (p = arg; p && p->name; p++) {

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimCheckInnerICAttributes(ic, p, mode))

+		continue;

+	    *len = -1;

+	    return p->name;

+	}

+

+	check = _XimCheckICMode(res, mode);

+	if(check == XIM_CHECK_INVALID)

+	    continue;

+	else if(check == XIM_CHECK_ERROR) {

+	    *len = -1;

+	    return p->name;

+	}

+

+	*buf = res->id;

+	*len += sizeof(CARD16);

+	buf++;

+	if (res->resource_size == XimType_NEST) {

+	    if (res->xrm_name == pre_quark) {

+		if ((name = _XimMakeICAttrIDList(ic, res_list, res_num,

+				(XIMArg *)p->value, buf, &new_len,

+				(mode | XIM_PREEDIT_ATTR)))) {

+		    if (new_len < 0) *len = -1;

+		    else *len += new_len;

+		    return name;

+		}

+	    } else if (res->xrm_name == sts_quark) {

+		if ((name = _XimMakeICAttrIDList(ic, res_list, res_num,

+				(XIMArg *)p->value, buf, &new_len,

+				(mode | XIM_STATUS_ATTR)))) {

+		    if (new_len < 0) *len = -1;

+		    else *len += new_len;

+		    return name;

+		}

+	    }

+	    *len += new_len;

+	    buf = (CARD16 *)((char *)buf + new_len);

+	    if (!(res = _XimGetNestedListSeparator(res_list, res_num))) {

+		p++;

+		if (p) {

+		    *len = -1;

+		    return p->name;

+		}

+		else {

+		    return (char *)NULL;

+		}

+	    }

+	    *buf = res->id;

+	    *len += sizeof(CARD16);

+	    buf++;

+	}

+    }

+    return (char *)NULL;

+}

+

+Private Bool

+_XimAttributeToValue(

+    Xic			  ic,

+    XIMResourceList	  res,

+    CARD16		 *data,

+    INT16		  data_len,

+    XPointer		  value,

+    BITMASK32		  mode)

+{

+    switch (res->resource_size) {

+    case XimType_SeparatorOfNestedList:

+    case XimType_NEST:

+	break;

+

+    case XimType_CARD8:

+    case XimType_CARD16:

+    case XimType_CARD32:

+    case XimType_Window:

+    case XimType_XIMHotKeyState:

+	_XCopyToArg((XPointer)data, (XPointer *)&value, data_len);

+	break;

+

+    case XimType_STRING8:

+	{

+	    char	*str;

+

+	    if (!(value))

+		return False;

+

+	    if (!(str = (char *)Xmalloc(data_len + 1)))

+		return False;

+

+	    (void)memcpy(str, (char *)data, data_len);

+	    str[data_len] = '\0';

+

+	    *((char **)value) = str;

+	    break;

+	}

+

+    case XimType_XIMStyles:

+	{

+	    INT16		 num = data[0];

+	    register CARD32	*style_list = (CARD32 *)&data[2];

+	    XIMStyle		*style;

+	    XIMStyles		*rep;

+	    register int	 i;

+	    char		*p;

+	    int			 alloc_len;

+

+	    if (!(value))

+		return False;

+

+	    alloc_len = sizeof(XIMStyles) + sizeof(XIMStyle) * num;

+	    if (!(p = (char *)Xmalloc(alloc_len)))

+		return False;

+

+	    rep   = (XIMStyles *)p;

+	    style = (XIMStyle *)(p + sizeof(XIMStyles));

+

+	    for (i = 0; i < num; i++)

+		style[i] = (XIMStyle)style_list[i];

+

+	    rep->count_styles = (unsigned short)num;

+	    rep->supported_styles = style;

+	    *((XIMStyles **)value) = rep;

+	    break;

+	}

+

+    case XimType_XRectangle:

+	{

+	    XRectangle	*rep;

+

+	    if (!(value))

+		return False;

+

+	    if (!(rep = (XRectangle *)Xmalloc(sizeof(XRectangle))))

+		return False;

+

+	    rep->x      = data[0];

+	    rep->y      = data[1];

+	    rep->width  = data[2];

+	    rep->height = data[3];

+	    *((XRectangle **)value) = rep;

+	    break;

+	}

+

+    case XimType_XPoint:

+	{

+	    XPoint	*rep;

+

+	    if (!(value))

+		return False;

+

+	    if (!(rep = (XPoint *)Xmalloc(sizeof(XPoint))))

+		return False;

+

+	    rep->x = data[0];

+	    rep->y = data[1];

+	    *((XPoint **)value) = rep;

+	    break;

+	}

+

+    case XimType_XFontSet:

+	{

+	    INT16	 len = data[0];

+	    char	*base_name;

+	    XFontSet	 rep = (XFontSet)NULL;

+	    char	**missing_list = NULL;

+	    int		 missing_count;

+	    char	*def_string;

+

+	    if (!(value))

+		return False;

+	    if (!ic)

+		return False;

+

+	    if (!(base_name = (char *)Xmalloc(len + 1)))

+		return False;

+

+	    (void)strncpy(base_name, (char *)&data[1], (int)len);

+	    base_name[len] = '\0';

+

+	    if (mode & XIM_PREEDIT_ATTR) {

+		if (!strcmp(base_name, ic->private.proto.preedit_font)) {

+		    rep = ic->core.preedit_attr.fontset;

+		} else if (!ic->private.proto.preedit_font_length) {

+		    rep = XCreateFontSet(ic->core.im->core.display,

+					base_name, &missing_list,

+					&missing_count, &def_string);

+		}

+	    } else if (mode & XIM_STATUS_ATTR) {

+		if (!strcmp(base_name, ic->private.proto.status_font)) {

+		    rep = ic->core.status_attr.fontset;

+		} else if (!ic->private.proto.status_font_length) {

+		    rep = XCreateFontSet(ic->core.im->core.display,

+					base_name, &missing_list,

+					&missing_count, &def_string);

+		}

+	    }

+

+	    Xfree(base_name);

+	    Xfree(missing_list);

+	    *((XFontSet *)value) = rep;

+	    break;

+	}

+

+    case XimType_XIMHotKeyTriggers:

+	{

+	    INT32			 num = *((CARD32 *)data);

+	    register CARD32		*key_list = (CARD32 *)&data[2];

+	    XIMHotKeyTrigger		*key;

+	    XIMHotKeyTriggers		*rep;

+	    register int		 i;

+	    char			*p;

+	    int				 alloc_len;

+

+	    if (!(value))

+		return False;

+

+	    alloc_len = sizeof(XIMHotKeyTriggers)

+		      + sizeof(XIMHotKeyTrigger) * num;

+	    if (!(p = (char *)Xmalloc(alloc_len)))

+		return False;

+

+	    rep = (XIMHotKeyTriggers *)p;

+	    key = (XIMHotKeyTrigger *)(p + sizeof(XIMHotKeyTriggers));

+

+	    for (i = 0; i < num; i++, key_list += 3) {

+		key[i].keysym        = (KeySym)key_list[0]; /* keysym */

+		key[i].modifier      = (int)key_list[1];    /* modifier */

+		key[i].modifier_mask = (int)key_list[2];    /* modifier_mask */

+	    }

+

+	    rep->num_hot_key = (int)num;

+	    rep->key = key;

+	    *((XIMHotKeyTriggers **)value) = rep;

+	    break;

+	}

+

+    case XimType_XIMStringConversion:

+	{

+	    break;

+	}

+

+    default:

+	return False;

+    }

+    return True;

+}

+

+Private Bool

+_XimDecodeInnerIMATTRIBUTE(

+    Xim			 im,

+    XIMArg		*arg)

+{

+    XIMResourceList	 res;

+    XimDefIMValues	 im_values;

+

+    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,

+			im->private.proto.im_num_inner_resources, arg->name)))

+	return False;

+

+    _XimGetCurrentIMValues(im, &im_values);

+    return _XimDecodeLocalIMAttr(res, (XPointer)&im_values, arg->value);

+}

+

+Public char *

+_XimDecodeIMATTRIBUTE(

+    Xim			 im,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    CARD16		*data,

+    INT16		 data_len,

+    XIMArg		*arg,

+    BITMASK32		 mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+    INT16		 len;

+    CARD16		*buf;

+    INT16		 total;

+    INT16		 min_len = sizeof(CARD16)	/* sizeof attributeID */

+			 	 + sizeof(INT16);	/* sizeof length */

+

+    for (p = arg; p->name; p++) {

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimDecodeInnerIMATTRIBUTE(im, p))

+		continue;

+	    return p->name;

+	}

+

+	check = _XimCheckIMMode(res, mode);

+	if(check == XIM_CHECK_INVALID)

+	    continue;

+	else if(check == XIM_CHECK_ERROR)

+	    return p->name;

+

+	total = data_len;

+	buf = data;

+	while (total >= min_len) {

+	    if (res->id == buf[0])

+		break;

+

+	    len = buf[1];

+	    len += XIM_PAD(len) + min_len;

+	    buf = (CARD16 *)((char *)buf + len);

+	    total -= len;

+	}

+	if (total < min_len)

+	    return p->name;

+

+	if (!(_XimAttributeToValue((Xic) im->private.local.current_ic,

+				   res, &buf[2], buf[1], p->value, mode)))

+	    return p->name;

+    }

+    return (char *)NULL;

+}

+

+Private Bool

+_XimDecodeInnerICATTRIBUTE(

+    Xic			 ic,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    XIMResourceList	 res;

+    XimDefICValues	 ic_values;

+

+    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,

+			ic->private.proto.ic_num_inner_resources, arg->name)))

+	return False;

+

+    _XimGetCurrentICValues(ic, &ic_values);

+    if (!_XimDecodeLocalICAttr(res, (XPointer)&ic_values, arg->value, mode))

+	return False;

+    _XimSetCurrentICValues(ic, &ic_values);

+    return True;

+}

+

+Public char *

+_XimDecodeICATTRIBUTE(

+    Xic			 ic,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    CARD16		*data,

+    INT16		 data_len,

+    XIMArg		*arg,

+    BITMASK32		 mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+    INT16		 len;

+    CARD16		*buf;

+    INT16		 total;

+    char		*name;

+    INT16		 min_len = sizeof(CARD16)	/* sizeof attributeID */

+			 	 + sizeof(INT16);	/* sizeof length */

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+

+    if (!arg)

+	return (char *)NULL;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    for (p = arg; p->name; p++) {

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimDecodeInnerICATTRIBUTE(ic, p, mode))

+		continue;

+	    return p->name;

+	}

+

+	check = _XimCheckICMode(res, mode);

+	if (check == XIM_CHECK_INVALID)

+	    continue;

+	else if (check == XIM_CHECK_ERROR)

+	    return p->name;

+

+	total = data_len;

+	buf = data;

+	while (total >= min_len) {

+	    if (res->id == buf[0])

+		break;

+

+	    len = buf[1];

+	    len += XIM_PAD(len) + min_len;

+	    buf = (CARD16 *)((char *)buf + len);

+	    total -= len;

+	}

+	if (total < min_len)

+	    return p->name;

+

+	if (res->resource_size == XimType_NEST) {

+	    if (res->xrm_name == pre_quark) {

+	        if ((name = _XimDecodeICATTRIBUTE(ic, res_list, res_num,

+			&buf[2], buf[1], (XIMArg *)p->value,

+			(mode | XIM_PREEDIT_ATTR))))

+		    return name;

+	    } else if (res->xrm_name == sts_quark) {

+	        if ((name = _XimDecodeICATTRIBUTE(ic, res_list, res_num,

+			&buf[2], buf[1], (XIMArg *)p->value,

+			(mode | XIM_STATUS_ATTR))))

+		    return name;

+	    }

+	} else {

+	    if (!(_XimAttributeToValue(ic, res, &buf[2], buf[1],

+							p->value, mode)))

+		return p->name;

+	}

+    }

+    return (char *)NULL;

+}

+

+Private Bool

+_XimValueToAttribute(

+    XIMResourceList	 res,

+    XPointer		 buf,

+    int			 buf_size,

+    XPointer		 value,

+    int			*len,

+    unsigned long	 mode,

+    XPointer		 param)

+{

+    int			 ret_len;

+

+    switch (res->resource_size) {

+    case XimType_SeparatorOfNestedList:

+    case XimType_NEST:

+	*len = 0;

+	break;

+

+    case XimType_CARD8:

+	ret_len = sizeof(CARD8);

+	if (buf_size < ret_len + XIM_PAD(ret_len)) {

+	    *len = -1;

+	    return False;

+	}

+

+	*((CARD8 *)buf) = (CARD8)(long)value;

+	*len = ret_len;

+	break;

+

+    case XimType_CARD16:

+	ret_len = sizeof(CARD16);

+	if (buf_size < ret_len + XIM_PAD(ret_len)) {

+	    *len = -1;

+	    return False;

+	}

+

+	*((CARD16 *)buf) = (CARD16)(long)value;

+	*len = ret_len;

+	break;

+

+    case XimType_CARD32:

+    case XimType_Window:

+    case XimType_XIMHotKeyState:

+	ret_len = sizeof(CARD32);

+	if (buf_size < ret_len + XIM_PAD(ret_len)) {

+	    *len = -1;

+	    return False;

+	}

+

+	*((CARD32 *)buf) = (CARD32)(long)value;

+	*len = ret_len;

+	break;

+

+    case XimType_STRING8:

+	if (!value) {

+	    *len = 0;

+	    return False;

+	}

+

+	ret_len = strlen((char *)value);

+	if (buf_size < ret_len + XIM_PAD(ret_len)) {

+	    *len = -1;

+	    return False;

+	}

+

+	(void)memcpy((char *)buf, (char *)value, ret_len);

+	*len = ret_len;

+	break;

+

+    case XimType_XRectangle:

+	{

+	    XRectangle	*rect = (XRectangle *)value;

+	    CARD16	*buf_s = (CARD16 *)buf;

+

+	    if (!rect) {

+		*len = 0;

+		return False;

+	    }

+

+	    ret_len = sizeof(INT16)		/* sizeof X */

+	    	    + sizeof(INT16)		/* sizeof Y */

+	            + sizeof(CARD16)		/* sizeof width */

+	            + sizeof(CARD16);		/* sizeof height */

+	    if (buf_size < ret_len + XIM_PAD(ret_len)) {

+		*len = -1;

+		return False;

+	    }

+

+	    buf_s[0] = (CARD16)rect->x;		/* X */

+	    buf_s[1] = (CARD16)rect->y;		/* Y */

+	    buf_s[2] = (CARD16)rect->width;	/* width */

+	    buf_s[3] = (CARD16)rect->height;	/* heght */

+	    *len = ret_len;

+	    break;

+	}

+

+    case XimType_XPoint:

+	{

+	    XPoint	*point = (XPoint *)value;

+	    CARD16	*buf_s = (CARD16 *)buf;

+

+	    if (!point) {

+		*len = 0;

+		return False;

+	    }

+

+	    ret_len = sizeof(INT16)		/* sizeof X */

+	            + sizeof(INT16);		/* sizeof Y */

+	    if (buf_size < ret_len + XIM_PAD(ret_len)) {

+		*len = -1;

+		return False;

+	    }

+

+	    buf_s[0] = (CARD16)point->x;		/* X */

+	    buf_s[1] = (CARD16)point->y;		/* Y */

+	    *len = ret_len;

+	    break;

+	}

+

+    case XimType_XFontSet:

+	{

+	    XFontSet	 font = (XFontSet)value;

+	    Xic		 ic = (Xic)param;

+	    char	*base_name = NULL;

+	    int		 length = 0;

+	    CARD16	*buf_s = (CARD16 *)buf;

+

+	    if (!font) {

+		*len = 0;

+		return False;

+	    }

+

+	    if (mode & XIM_PREEDIT_ATTR) {

+		base_name = ic->private.proto.preedit_font;

+		length	  = ic->private.proto.preedit_font_length;

+	    } else if (mode & XIM_STATUS_ATTR) {

+		base_name = ic->private.proto.status_font;

+		length	  = ic->private.proto.status_font_length;

+	    }

+

+	    if (!base_name) {

+		*len = 0;

+		return False;

+	    }

+

+	    ret_len = sizeof(CARD16)		/* sizeof length of Base name */

+		    + length;			/* sizeof Base font name list */

+	    if (buf_size < ret_len + XIM_PAD(ret_len)) {

+		*len = -1;

+		return False;

+	    }

+

+	    buf_s[0] = (INT16)length;		/* length of Base font name */

+	    (void)memcpy((char *)&buf_s[1], base_name, length);

+						/* Base font name list */

+	    *len = ret_len;

+	    break;

+	}

+

+    case XimType_XIMHotKeyTriggers:

+	{

+	    XIMHotKeyTriggers	*hotkey = (XIMHotKeyTriggers *)value;

+	    INT32		 num;

+	    CARD32		*buf_l = (CARD32 *)buf;

+	    register CARD32	*key = (CARD32 *)&buf_l[1];

+	    register int	 i;

+

+	    if (!hotkey) {

+		*len = 0;

+		return False;

+	    }

+	    num = (INT32)hotkey->num_hot_key;

+

+	    ret_len = sizeof(INT32)		/* sizeof number of key list */

+	           + (sizeof(CARD32)		/* sizeof keysyn */

+	           +  sizeof(CARD32)		/* sizeof modifier */

+	           +  sizeof(CARD32))		/* sizeof modifier_mask */

+	           *  num;			/* number of key list */

+	    if (buf_size < ret_len + XIM_PAD(ret_len)) {

+		*len = -1;

+		return False;

+	    }

+

+	    buf_l[0] = num;		/* number of key list */

+	    for (i = 0; i < num; i++, key += 3) {

+		key[0] = (CARD32)(hotkey->key[i].keysym);

+						/* keysym */

+		key[1] = (CARD32)(hotkey->key[i].modifier);

+						/* modifier */

+		key[2] = (CARD32)(hotkey->key[i].modifier_mask);

+						/* modifier_mask */

+	    }

+	    *len = ret_len;

+	    break;

+	}

+

+    case XimType_XIMStringConversion:

+	{

+	    *len = 0;

+	    break;

+	}

+

+    default:

+	return False;

+    }

+    return True;

+}

+

+Private Bool

+_XimSetInnerIMAttributes(

+    Xim			 im,

+    XPointer		 top,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    XIMResourceList	 res;

+    int			 check;

+

+    if (!(res = _XimGetResourceListRec(im->private.proto.im_inner_resources,

+			im->private.proto.im_num_inner_resources, arg->name)))

+	return False;

+

+    check = _XimCheckIMMode(res, mode);

+    if(check == XIM_CHECK_INVALID)

+	return True;

+    else if(check == XIM_CHECK_ERROR)

+	return False;

+

+    return _XimEncodeLocalIMAttr(res, top, arg->value);

+}

+

+Public char *

+_XimEncodeIMATTRIBUTE(

+    Xim			  im,

+    XIMResourceList	  res_list,

+    unsigned int	  res_num,

+    XIMArg		 *arg,

+    XIMArg		**arg_ret,

+    char		 *buf,

+    int			  size,

+    int			 *ret_len,

+    XPointer		  top,

+    unsigned long	  mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+    CARD16		*buf_s;

+    int			 len;

+    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */

+				 + sizeof(INT16); /* sizeof value length */

+

+    *ret_len = 0;

+    for (p = arg; p->name; p++) {

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimSetInnerIMAttributes(im, top, p, mode))

+		continue;

+	    return p->name;

+	}

+

+	check = _XimCheckIMMode(res, mode);

+	if (check == XIM_CHECK_INVALID)

+	    continue;

+	else if (check == XIM_CHECK_ERROR)

+	    return p->name;

+

+	if (!(_XimEncodeLocalIMAttr(res, top, p->value)))

+	    return p->name;

+

+	buf_s = (CARD16 *)buf;

+	if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2], (size - min_len),

+				p->value, &len, mode, (XPointer)NULL)))

+	    return p->name;

+

+	if (len == 0) {

+	    continue;

+	} else if (len < 0) {

+	    *arg_ret = p;

+	    return (char *)NULL;

+	}

+

+	buf_s[0] = res->id;			/* attribute ID */

+	buf_s[1] = len;				/* value length */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += min_len;

+

+	buf += len;

+	*ret_len += len;

+	size -= len;

+    }

+    *arg_ret = (XIMArg *)NULL;

+    return (char *)NULL;

+}

+

+#ifdef XIM_CONNECTABLE

+Public	Bool

+_XimEncodeSavedIMATTRIBUTE(

+    Xim			 im,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    int			*idx,

+    char		*buf,

+    int			 size,

+    int			*ret_len,

+    XPointer		 top,

+    unsigned long	 mode)

+{

+    register int	 i;

+    int			 num = im->private.proto.num_saved_imvalues;

+    XrmQuark		*quark_list = im->private.proto.saved_imvalues;

+    XIMResourceList	 res;

+    XPointer		 value;

+    CARD16		*buf_s;

+    int			 len;

+    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */

+				 + sizeof(INT16); /* sizeof value length */

+

+    if (!im->private.proto.saved_imvalues) {

+	*idx = -1;

+	*ret_len = 0;

+	return True;

+    }

+

+    *ret_len = 0;

+    for (i = *idx; i < num; i++) {

+	if (!(res = _XimGetResourceListRecByQuark(res_list,

+						res_num, quark_list[i])))

+	    continue;

+

+	if (!_XimDecodeLocalIMAttr(res, top, value))

+	    return False;

+

+	buf_s = (CARD16 *)buf;

+	if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],

+			(size - min_len), value, &len, mode, (XPointer)NULL)))

+	    return False;

+

+	if (len == 0) {

+	    continue;

+	} else if (len < 0) {

+	    *idx = i;

+	    return True;

+	}

+

+	buf_s[0] = res->id;			/* attribute ID */

+	buf_s[1] = len;				/* value length */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += min_len;

+

+	buf += len;

+	*ret_len += len;

+	size -= len;

+    }

+    *idx = -1;

+    return True;

+}

+#endif /* XIM_CONNECTABLE */

+

+Private Bool

+_XimEncodeTopValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XIMArg		*p)

+{

+    if (res->xrm_name == XrmStringToQuark(XNClientWindow)) {

+	ic->core.client_window = (Window)p->value;

+	if (ic->core.focus_window == (Window)0)

+	    ic->core.focus_window = ic->core.client_window;

+	_XimRegisterFilter(ic);

+

+    } else if (res->xrm_name == XrmStringToQuark(XNFocusWindow)) {

+	if (ic->core.client_window) {

+	    _XimUnregisterFilter(ic);

+	    ic->core.focus_window = (Window)p->value;

+	    _XimRegisterFilter(ic);

+	} else /* client_window not yet */

+	    ic->core.focus_window = (Window)p->value;

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodePreeditValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XIMArg		*p)

+{

+    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {

+	XStandardColormap	*colormap_ret;

+	int			 count;

+

+	if (!(XGetRGBColormaps(ic->core.im->core.display,

+				ic->core.focus_window, &colormap_ret,

+				&count, (Atom)p->value)))

+	    return False;

+

+	XFree(colormap_ret);

+    } else if (res->xrm_name == XrmStringToQuark(XNFontSet)) {

+	int		  list_ret;

+	XFontStruct	**struct_list;

+	char		**name_list;

+	char		 *tmp;

+	int		  len;

+	register int	  i;

+

+	if (!p->value)

+	    return False;

+

+	if (ic->private.proto.preedit_font)

+	    Xfree(ic->private.proto.preedit_font);

+

+	list_ret = XFontsOfFontSet((XFontSet)p->value,

+						 &struct_list, &name_list);

+	for (i = 0, len = 0; i < list_ret; i++) {

+	     len += (strlen(name_list[i]) + sizeof(char));

+	}

+	if (!(tmp = Xmalloc(len + 1))) {

+	    ic->private.proto.preedit_font = NULL;

+	    return False;

+	}

+

+	tmp[0] = '\0';

+	for (i = 0; i < list_ret; i++) {

+	    strcat(tmp, name_list[i]);

+	    strcat(tmp, ",");

+	}

+	tmp[len - 1] = 0;

+	ic->private.proto.preedit_font        = tmp;

+	ic->private.proto.preedit_font_length = len - 1;

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodeStatusValue(

+    Xic			 ic,

+    XIMResourceList	 res,

+    XIMArg		*p)

+{

+    if (res->xrm_name == XrmStringToQuark(XNStdColormap)) {

+	XStandardColormap	*colormap_ret = NULL;

+	int			 count;

+

+	if (!(XGetRGBColormaps(ic->core.im->core.display,

+				ic->core.focus_window, &colormap_ret,

+				&count, (Atom)p->value)))

+	    return False;

+

+	XFree(colormap_ret);

+    } else if (res->xrm_name == XrmStringToQuark(XNFontSet)) {

+	int		  list_ret;

+	XFontStruct	**struct_list;

+	char		**name_list;

+	char		 *tmp;

+	int		  len;

+	register int	  i;

+

+	if (!p->value)

+	    return False;

+

+	if (ic->private.proto.status_font)

+	    Xfree(ic->private.proto.status_font);

+

+	list_ret = XFontsOfFontSet((XFontSet)p->value,

+						 &struct_list, &name_list);

+	for (i = 0, len = 0; i < list_ret; i++) {

+	     len += (strlen(name_list[i]) + sizeof(char));

+	}

+	if (!(tmp = Xmalloc(len+1))) {

+	    ic->private.proto.status_font = NULL;

+	    return False;

+	}

+

+	tmp[0] = '\0';

+	for(i = 0; i < list_ret; i++) {

+	    strcat(tmp, name_list[i]);

+	    strcat(tmp, ",");

+	}

+	tmp[len - 1] = 0;

+	ic->private.proto.status_font        = tmp;

+	ic->private.proto.status_font_length = len - 1;

+    }

+    return True;

+}

+

+Private Bool

+_XimSetInnerICAttributes(

+    Xic			 ic,

+    XPointer		 top,

+    XIMArg		*arg,

+    unsigned long	 mode)

+{

+    XIMResourceList	 res;

+    int			 check;

+

+    if (!(res = _XimGetResourceListRec(ic->private.proto.ic_inner_resources,

+			ic->private.proto.ic_num_inner_resources, arg->name)))

+	return False;

+

+    check = _XimCheckICMode(res, mode);

+    if(check == XIM_CHECK_INVALID)

+	return True;

+    else if(check == XIM_CHECK_ERROR)

+	return False;

+

+    return _XimEncodeLocalICAttr(ic, res, top, arg, mode);

+}

+

+Public char *

+_XimEncodeICATTRIBUTE(

+    Xic			  ic,

+    XIMResourceList	  res_list,

+    unsigned int	  res_num,

+    XIMArg		 *arg,

+    XIMArg		**arg_ret,

+    char		 *buf,

+    int			  size,

+    int			 *ret_len,

+    XPointer		  top,

+    BITMASK32		 *flag,

+    unsigned long	  mode)

+{

+    register XIMArg	*p;

+    XIMResourceList	 res;

+    int			 check;

+    CARD16		*buf_s;

+    int			 len;

+    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */

+				 + sizeof(INT16); /* sizeof value length */

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+    char		*name;

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+

+    *ret_len = 0;

+    for (p = arg; p && p->name; p++) {

+	buf_s = (CARD16 *)buf;

+	if (!(res = _XimGetResourceListRec(res_list, res_num, p->name))) {

+	    if (_XimSetInnerICAttributes(ic, top, p, mode))

+		continue;

+	    return p->name;

+	}

+

+	check = _XimCheckICMode(res, mode);

+	if (check == XIM_CHECK_INVALID)

+	    continue;

+	else if (check == XIM_CHECK_ERROR)

+	    return p->name;

+

+	if (mode & XIM_PREEDIT_ATTR) {

+	    if (!(_XimEncodePreeditValue(ic, res, p)))

+		return p->name;

+	} else if (mode & XIM_STATUS_ATTR) {

+	    if (!(_XimEncodeStatusValue(ic, res, p)))

+		return p->name;

+	} else {

+	    if (!(_XimEncodeTopValue(ic, res, p)))

+		return p->name;

+	}

+

+	if (res->resource_size == XimType_NEST) {

+	    XimDefICValues	*ic_attr = (XimDefICValues *)top;

+

+	    if (res->xrm_name == pre_quark) {

+		XIMArg		*arg_rt;

+		if ((name = _XimEncodeICATTRIBUTE(ic, res_list, res_num,

+				(XIMArg *)p->value, &arg_rt,

+				(char *)&buf_s[2], (size - min_len),

+				 &len, (XPointer)&ic_attr->preedit_attr, flag,

+				(mode | XIM_PREEDIT_ATTR)))) {

+		    return name;

+		}

+

+	    } else if (res->xrm_name == sts_quark) {

+		XIMArg		*arg_rt;

+		if ((name = _XimEncodeICATTRIBUTE(ic, res_list, res_num,

+				(XIMArg *)p->value,  &arg_rt,

+				(char *)&buf_s[2], (size - min_len),

+				 &len, (XPointer)&ic_attr->status_attr, flag,

+				(mode | XIM_STATUS_ATTR)))) {

+		    return name;

+		}

+	    }

+	} else {

+#ifdef EXT_MOVE

+	    if (flag)

+		*flag |= _XimExtenArgCheck(p);

+#endif

+    	    if (!(_XimEncodeLocalICAttr(ic, res, top, p, mode)))

+		return p->name;

+

+	    if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],

+			 	(size - min_len), p->value,

+				&len, mode, (XPointer)ic)))

+		return p->name;

+	}

+

+	if (len == 0) {

+	    continue;

+	} else if (len < 0) {

+	    *arg_ret = p;

+	    return (char *)NULL;

+	}

+

+	buf_s[0] = res->id;			/* attribute ID */

+	buf_s[1] = len;				/* value length */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += min_len;

+

+	buf += len;

+	*ret_len += len;

+	size -= len;

+    }

+    *arg_ret = (XIMArg *)NULL;

+    return (char *)NULL;

+}

+

+#ifdef XIM_CONNECTABLE

+Private Bool

+_XimEncodeSavedPreeditValue(

+    Xic			  ic,

+    XIMResourceList	  res,

+    XPointer		  value)

+{

+    int			  list_ret;

+    XFontStruct		**struct_list;

+    char		**name_list;

+    char		 *tmp;

+    int			  len;

+    register int	  i;

+

+    if (res->xrm_name == XrmStringToQuark(XNFontSet)) {

+	if (!value)

+	    return False;

+

+	if (ic->private.proto.preedit_font)

+	    Xfree(ic->private.proto.preedit_font);

+

+	list_ret = XFontsOfFontSet((XFontSet)value,

+						&struct_list, &name_list);

+	for(i = 0, len = 0; i < list_ret; i++) {

+	    len += (strlen(name_list[i]) + sizeof(char));

+	}

+	if(!(tmp = Xmalloc(len + 1))) {

+	    ic->private.proto.preedit_font = NULL;

+	    return False;

+	}

+

+	tmp[0] = '\0';

+	for(i = 0; i < list_ret; i++) {

+	    strcat(tmp, name_list[i]);

+	    strcat(tmp, ",");

+	}

+	tmp[len - 1] = 0;

+	ic->private.proto.preedit_font        = tmp;

+	ic->private.proto.preedit_font_length = len - 1;

+    }

+    return True;

+}

+

+Private Bool

+_XimEncodeSavedStatusValue(

+    Xic			  ic,

+    XIMResourceList	  res,

+    XPointer		  value)

+{

+    int			  list_ret;

+    XFontStruct		**struct_list;

+    char		**name_list;

+    char		 *tmp;

+    int			  len;

+    register int	  i;

+

+    if (res->xrm_name == XrmStringToQuark(XNFontSet)) {

+	if (!value)

+	    return False;

+

+	if (ic->private.proto.status_font)

+	    Xfree(ic->private.proto.status_font);

+

+	list_ret = XFontsOfFontSet((XFontSet)value,

+						&struct_list, &name_list);

+	for(i = 0, len = 0; i < list_ret; i++) {

+	    len += (strlen(name_list[i]) + sizeof(char));

+	}

+	if(!(tmp = Xmalloc(len + 1))) {

+	    ic->private.proto.status_font = NULL;

+	    return False;

+	}

+

+	tmp[0] = '\0';

+	for(i = 0; i < list_ret; i++) {

+	    strcat(tmp, name_list[i]);

+	    strcat(tmp, ",");

+	}

+	tmp[len - 1] = 0;

+	ic->private.proto.status_font        = tmp;

+	ic->private.proto.status_font_length = len - 1;

+    }

+    return True;

+}

+

+Public	Bool

+_XimEncodeSavedICATTRIBUTE(

+    Xic			 ic,

+    XIMResourceList	 res_list,

+    unsigned int	 res_num,

+    int			*idx,

+    char		*buf,

+    int			 size,

+    int			*ret_len,

+    XPointer		 top,

+    unsigned long	 mode)

+{

+    int			 i;

+    int			 num = ic->private.proto.num_saved_icvalues;

+    XrmQuark		*quark_list = ic->private.proto.saved_icvalues;

+    XIMResourceList	 res;

+    XPointer		 value;

+    CARD16		*buf_s;

+    int			 len;

+    int			 min_len = sizeof(CARD16) /* sizeof attribute ID */

+				 + sizeof(INT16); /* sizeof value length */

+    XrmQuark		 pre_quark;

+    XrmQuark		 sts_quark;

+    XrmQuark		 separator;

+

+    if (!ic->private.proto.saved_icvalues) {

+	*idx = -1;

+	*ret_len = 0;

+	return True;

+    }

+

+    pre_quark = XrmStringToQuark(XNPreeditAttributes);

+    sts_quark = XrmStringToQuark(XNStatusAttributes);

+    separator = XrmStringToQuark(XNSeparatorofNestedList);

+

+    *ret_len = 0;

+    for (i = *idx; i < num; i++) {

+	if (quark_list[i] == separator) {

+	    *idx = i;

+	    return True;

+	}

+

+	if (!(res = _XimGetResourceListRecByQuark(res_list,

+						res_num, quark_list[i])))

+	    continue;

+

+	if (!_XimDecodeLocalICAttr(res, top,(XPointer)&value, mode))

+	    return False;

+

+	if (mode & XIM_PREEDIT_ATTR) {

+	    if (!(_XimEncodeSavedPreeditValue(ic, res, value))) {

+		return False;

+	    }

+	} else if (mode & XIM_STATUS_ATTR) {

+	    if (!(_XimEncodeSavedStatusValue(ic, res, value))) {

+		return False;

+	    }

+	}

+

+	buf_s = (CARD16 *)buf;

+	if (res->resource_size == XimType_NEST) {

+	    XimDefICValues	*ic_attr = (XimDefICValues *)top;

+

+	    i++;

+	    if (res->xrm_name == pre_quark) {

+		if (!_XimEncodeSavedICATTRIBUTE(ic, res_list, res_num,

+				 &i, (char *)&buf_s[2], (size - min_len),

+				 &len, (XPointer)&ic_attr->preedit_attr,

+				(mode | XIM_PREEDIT_ATTR))) {

+		    return False;

+		}

+

+	    } else if (res->xrm_name == sts_quark) {

+		if (!_XimEncodeSavedICATTRIBUTE(ic, res_list, res_num,

+				&i, (char *)&buf_s[2], (size - min_len),

+				&len, (XPointer)&ic_attr->status_attr,

+				(mode | XIM_STATUS_ATTR))) {

+		    return False;

+		}

+	    }

+	} else {

+	    if (!(_XimValueToAttribute(res, (XPointer)&buf_s[2],

+			 	(size - min_len), value,

+				&len, mode, (XPointer)ic))) {

+		return False;

+	    }

+	}

+

+	if (len == 0) {

+	    continue;

+	} else if (len < 0) {

+	    if (quark_list[i] == separator)

+		i++;

+	    *idx = i;

+	    return True;

+	}

+

+	buf_s[0] = res->id;			/* attribute ID */

+	buf_s[1] = len;				/* value length */

+	XIM_SET_PAD(&buf_s[2], len);		/* pad */

+	len += min_len;

+

+	buf += len;

+	*ret_len += len;

+	size -= len;

+    }

+    *idx = -1;

+    return True;

+}

+#endif /* XIM_CONNECTABLE */

+

+Private unsigned int

+_XimCountNumberOfAttr(

+    INT16	 total,

+    CARD16	*attr,

+    int		*names_len)

+{

+    unsigned int n;

+    INT16	 len;

+    INT16	 min_len = sizeof(CARD16)	/* sizeof attribute ID */

+			 + sizeof(CARD16)	/* sizeof type of value */

+			 + sizeof(INT16);	/* sizeof length of attribute */

+

+    n = 0;

+    *names_len = 0;

+    while (total > min_len) {

+	len = attr[2];

+	*names_len += (len + 1);

+	len += (min_len + XIM_PAD(len + 2));

+	total -= len;

+	attr = (CARD16 *)((char *)attr + len);

+	n++;

+    }

+    return n;

+}

+

+Public Bool

+_XimGetAttributeID(

+    Xim			  im,

+    CARD16		 *buf)

+{

+    unsigned int	  n;

+    XIMResourceList	  res;

+    char		 *names;

+    int			  names_len;

+    XPointer		  tmp;

+    XIMValuesList	 *values_list;

+    char		**values;

+    int			  values_len;

+    register int	  i;

+    INT16		  len;

+    INT16		  min_len = sizeof(CARD16) /* sizeof attribute ID */

+				  + sizeof(CARD16) /* sizeof type of value */

+				  + sizeof(INT16); /* sizeof length of attr */

+    /*

+     * IM attribute ID

+     */

+

+    if (!(n = _XimCountNumberOfAttr(buf[0], &buf[1], &names_len)))

+	return False;

+

+    if (!(res = Xcalloc(n, sizeof(XIMResource))))

+	return False;

+

+    values_len = sizeof(XIMValuesList) + (sizeof(char **) * n) + names_len;

+    if (!(tmp = Xcalloc(1, values_len))) {

+	Xfree(res);

+	return False;

+    }

+

+    values_list = (XIMValuesList *)tmp;

+    values = (char **)((char *)tmp + sizeof(XIMValuesList));

+    names = (char *)((char *)values + (sizeof(char **) * n));

+

+    values_list->count_values = n;

+    values_list->supported_values = values;

+

+    buf++;

+    for (i = 0; i < n; i++) {

+	len = buf[2];

+	(void)memcpy(names, (char *)&buf[3], len);

+	values[i] = names;

+	names[len] = '\0';

+	res[i].resource_name = names;

+	res[i].resource_size = buf[1];

+	res[i].id	     = buf[0];

+	names += (len + 1);

+	len += (min_len + XIM_PAD(len + 2));

+	buf = (CARD16 *)((char *)buf + len);

+    }

+    _XIMCompileResourceList(res, n);

+

+    if (im->core.im_resources)

+	Xfree(im->core.im_resources);

+    if (im->core.im_values_list)

+	Xfree(im->core.im_values_list);

+    im->core.im_resources     = res;

+    im->core.im_num_resources = n;

+    im->core.im_values_list   = values_list;

+

+    /*

+     * IC attribute ID

+     */

+

+    if (!(n = _XimCountNumberOfAttr(buf[0], &buf[2], &names_len)))

+	return False;

+

+    if (!(res = Xcalloc(n, sizeof(XIMResource))))

+	return False;

+

+    values_len = sizeof(XIMValuesList) + (sizeof(char **) * n) + names_len;

+    if (!(tmp = Xcalloc(1, values_len))) {

+	Xfree(res);

+	return False;

+    }

+

+    values_list = (XIMValuesList *)tmp;

+    values = (char **)((char *)tmp + sizeof(XIMValuesList));

+    names = (char *)((char *)values + (sizeof(char **) * n));

+

+    values_list->count_values = n;

+    values_list->supported_values = values;

+

+    buf += 2;

+    for (i = 0; i < n; i++) {

+	len = buf[2];

+	(void)memcpy(names, (char *)&buf[3], len);

+	values[i] = names;

+	names[len] = '\0';

+	res[i].resource_name = names;

+	res[i].resource_size = buf[1];

+	res[i].id	     = buf[0];

+	names += (len + 1);

+	len += (min_len + XIM_PAD(len + 2));

+	buf = (CARD16 *)((char *)buf + len);

+    }

+    _XIMCompileResourceList(res, n);

+

+    if (im->core.ic_resources)

+	Xfree(im->core.ic_resources);

+    if (im->core.ic_values_list)

+	Xfree(im->core.ic_values_list);

+    im->core.ic_resources     = res;

+    im->core.ic_num_resources = n;

+    im->core.ic_values_list   = values_list;

+

+    return True;

+}

diff --git a/libX11/modules/im/ximcp/imThaiIc.c b/libX11/modules/im/ximcp/imThaiIc.c
index 95433f3d7..6b8784387 100644
--- a/libX11/modules/im/ximcp/imThaiIc.c
+++ b/libX11/modules/im/ximcp/imThaiIc.c
@@ -1,227 +1,227 @@
-/******************************************************************
-
-          Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-          Copyright 1993 by Digital Equipment Corporation
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the name of FUJITSU LIMITED and
-Digital Equipment Corporation not be used in advertising or publicity
-pertaining to distribution of the software without specific, written
-prior permission.  FUJITSU LIMITED and Digital Equipment Corporation
-makes no representations about the suitability of this software for
-any purpose.  It is provided "as is" without express or implied
-warranty.
-
-FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION DISCLAIM ALL
-WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION BE LIABLE FOR
-ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
-IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
-THIS SOFTWARE.
-
-  Author:    Takashi Fujiwara     FUJITSU LIMITED
-                               	  fujiwara@a80.tech.yk.fujitsu.co.jp
-  Modifier:  Franky Ling          Digital Equipment Corporation
-	                          frankyling@hgrd01.enet.dec.com
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xlib.h>
-#include <X11/Xmd.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-
-Private void
-_XimThaiUnSetFocus(
-    XIC	 xic)
-{
-    Xic  ic = (Xic)xic;
-    ((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;
-
-    if (ic->core.focus_window)
-	_XUnregisterFilter(ic->core.im->core.display, ic->core.focus_window,
-			_XimThaiFilter, (XPointer)ic);
-    return;
-}
-
-Private void
-_XimThaiDestroyIC(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-    DefTreeBase *b = &ic->private.local.base;
-
-    if(((Xim)ic->core.im)->private.local.current_ic == (XIC)ic) {
-	_XimThaiUnSetFocus(xic);
-    }
-    if(ic->private.local.ic_resources) {
-	Xfree(ic->private.local.ic_resources);
-	ic->private.local.ic_resources = NULL;
-    }
-
-    if (b->tree)  Xfree (b->tree);
-    if (b->mb)    Xfree (b->mb);
-    if (b->wc)    Xfree (b->wc);
-    if (b->utf8)  Xfree (b->utf8);
-    b->tree = NULL;
-    b->mb   = NULL;
-    b->wc   = NULL;
-    b->utf8 = NULL;
-    return;
-}
-
-Private void
-_XimThaiSetFocus(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-    XIC	 current_ic = ((Xim)ic->core.im)->private.local.current_ic;
-
-    if (current_ic == (XIC)ic)
-	return;
-
-    if (current_ic != (XIC)NULL) {
-	_XimThaiUnSetFocus(current_ic);
-    }
-    ((Xim)ic->core.im)->private.local.current_ic = (XIC)ic;
-
-    if (ic->core.focus_window)
-	_XRegisterFilterByType(ic->core.im->core.display, ic->core.focus_window,
-			KeyPress, KeyPress, _XimThaiFilter, (XPointer)ic);
-    return;
-}
-
-Private void
-_XimThaiReset(
-    XIC	 xic)
-{
-    Xic	 ic = (Xic)xic;
-    DefTreeBase *b   = &ic->private.local.base;
-    ic->private.local.thai.comp_state = 0;
-    ic->private.local.thai.keysym = 0;
-    b->mb[b->tree[ic->private.local.composed].mb] = '\0';
-    b->wc[b->tree[ic->private.local.composed].wc] = '\0';
-    b->utf8[b->tree[ic->private.local.composed].utf8] = '\0';
-}
-
-Private char *
-_XimThaiMbReset(
-    XIC	 xic)
-{
-    _XimThaiReset(xic);
-    return (char *)NULL;
-}
-
-Private wchar_t *
-_XimThaiWcReset(
-    XIC	 xic)
-{
-    _XimThaiReset(xic);
-    return (wchar_t *)NULL;
-}
-
-Private XICMethodsRec Thai_ic_methods = {
-    _XimThaiDestroyIC, 	/* destroy */
-    _XimThaiSetFocus,  	/* set_focus */
-    _XimThaiUnSetFocus,	/* unset_focus */
-    _XimLocalSetICValues,	/* set_values */
-    _XimLocalGetICValues,	/* get_values */
-    _XimThaiMbReset,		/* mb_reset */
-    _XimThaiWcReset,		/* wc_reset */
-    _XimThaiMbReset,		/* utf8_reset */
-    _XimLocalMbLookupString,	/* mb_lookup_string */
-    _XimLocalWcLookupString,	/* wc_lookup_string */
-    _XimLocalUtf8LookupString	/* utf8_lookup_string */
-};
-
-XIC
-_XimThaiCreateIC(
-    XIM			 im,
-    XIMArg		*values)
-{
-    Xic			 ic;
-    XimDefICValues	 ic_values;
-    XIMResourceList	 res;
-    unsigned int	 num;
-    int			 len;
-    DefTree             *tree;
-
-    if((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL) {
-	return ((XIC)NULL);
-    }
-
-    ic->methods = &Thai_ic_methods;
-    ic->core.im = im;
-    ic->core.filter_events = KeyPressMask;
-
-    if (! (ic->private.local.base.tree = tree = (DefTree *)Xmalloc(sizeof(DefTree)*3)) )
-	goto Set_Error;
-    if (! (ic->private.local.base.mb = (char *)Xmalloc(21)) )
-	goto Set_Error;
-    if (! (ic->private.local.base.wc = (wchar_t*)Xmalloc(sizeof(wchar_t)*21)) )
-	goto Set_Error;
-    if (! (ic->private.local.base.utf8 = (char *)Xmalloc(21)) )
-	goto Set_Error;
-    ic->private.local.context = 1;
-    tree[1].mb   = 1;
-    tree[1].wc   = 1;
-    tree[1].utf8 = 1;
-    ic->private.local.composed = 2;
-    tree[2].mb   = 11;
-    tree[2].wc   = 11;
-    tree[2].utf8 = 11;
-
-    ic->private.local.thai.comp_state = 0;
-    ic->private.local.thai.keysym = 0;
-    ic->private.local.thai.input_mode = 0;
-
-    num = im->core.ic_num_resources;
-    len = sizeof(XIMResource) * num;
-    if((res = (XIMResourceList)Xmalloc(len)) == (XIMResourceList)NULL) {
-	goto Set_Error;
-    }
-    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);
-    ic->private.local.ic_resources     = res;
-    ic->private.local.ic_num_resources = num;
-
-    bzero((char *)&ic_values, sizeof(XimDefICValues));
-    if(_XimCheckLocalInputStyle(ic, (XPointer)&ic_values, values,
-				 im->core.styles, res, num) == False) {
-	goto Set_Error;
-    }
-
-    _XimSetICMode(res, num, ic_values.input_style);
-
-    if(_XimSetICValueData(ic, (XPointer)&ic_values,
-			ic->private.local.ic_resources,
-			ic->private.local.ic_num_resources,
-			values, XIM_CREATEIC, True)) {
-	goto Set_Error;
-    }
-    if(_XimSetICDefaults(ic, (XPointer)&ic_values,
-				XIM_SETICDEFAULTS, res, num) == False) {
-	goto Set_Error;
-    }
-    ic_values.filter_events = KeyPressMask;
-    _XimSetCurrentICValues(ic, &ic_values);
-
-    return ((XIC)ic);
-
-Set_Error :
-    if (ic->private.local.ic_resources) {
-	Xfree(ic->private.local.ic_resources);
-    }
-    Xfree(ic);
-    return((XIC)NULL);
-}
+/******************************************************************

+

+          Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+          Copyright 1993 by Digital Equipment Corporation

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the name of FUJITSU LIMITED and

+Digital Equipment Corporation not be used in advertising or publicity

+pertaining to distribution of the software without specific, written

+prior permission.  FUJITSU LIMITED and Digital Equipment Corporation

+makes no representations about the suitability of this software for

+any purpose.  It is provided "as is" without express or implied

+warranty.

+

+FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION DISCLAIM ALL

+WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED

+WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+FUJITSU LIMITED AND DIGITAL EQUIPMENT CORPORATION BE LIABLE FOR

+ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER

+IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF

+THIS SOFTWARE.

+

+  Author:    Takashi Fujiwara     FUJITSU LIMITED

+                               	  fujiwara@a80.tech.yk.fujitsu.co.jp

+  Modifier:  Franky Ling          Digital Equipment Corporation

+	                          frankyling@hgrd01.enet.dec.com

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/Xlib.h>

+#include <X11/Xmd.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+

+Private void

+_XimThaiUnSetFocus(

+    XIC	 xic)

+{

+    Xic  ic = (Xic)xic;

+    ((Xim)ic->core.im)->private.local.current_ic = (XIC)NULL;

+

+    if (ic->core.focus_window)

+	_XUnregisterFilter(ic->core.im->core.display, ic->core.focus_window,

+			_XimThaiFilter, (XPointer)ic);

+    return;

+}

+

+Private void

+_XimThaiDestroyIC(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+    DefTreeBase *b = &ic->private.local.base;

+

+    if(((Xim)ic->core.im)->private.local.current_ic == (XIC)ic) {

+	_XimThaiUnSetFocus(xic);

+    }

+    if(ic->private.local.ic_resources) {

+	Xfree(ic->private.local.ic_resources);

+	ic->private.local.ic_resources = NULL;

+    }

+

+    if (b->tree)  Xfree (b->tree);

+    if (b->mb)    Xfree (b->mb);

+    if (b->wc)    Xfree (b->wc);

+    if (b->utf8)  Xfree (b->utf8);

+    b->tree = NULL;

+    b->mb   = NULL;

+    b->wc   = NULL;

+    b->utf8 = NULL;

+    return;

+}

+

+Private void

+_XimThaiSetFocus(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+    XIC	 current_ic = ((Xim)ic->core.im)->private.local.current_ic;

+

+    if (current_ic == (XIC)ic)

+	return;

+

+    if (current_ic != (XIC)NULL) {

+	_XimThaiUnSetFocus(current_ic);

+    }

+    ((Xim)ic->core.im)->private.local.current_ic = (XIC)ic;

+

+    if (ic->core.focus_window)

+	_XRegisterFilterByType(ic->core.im->core.display, ic->core.focus_window,

+			KeyPress, KeyPress, _XimThaiFilter, (XPointer)ic);

+    return;

+}

+

+Private void

+_XimThaiReset(

+    XIC	 xic)

+{

+    Xic	 ic = (Xic)xic;

+    DefTreeBase *b   = &ic->private.local.base;

+    ic->private.local.thai.comp_state = 0;

+    ic->private.local.thai.keysym = 0;

+    b->mb[b->tree[ic->private.local.composed].mb] = '\0';

+    b->wc[b->tree[ic->private.local.composed].wc] = '\0';

+    b->utf8[b->tree[ic->private.local.composed].utf8] = '\0';

+}

+

+Private char *

+_XimThaiMbReset(

+    XIC	 xic)

+{

+    _XimThaiReset(xic);

+    return (char *)NULL;

+}

+

+Private wchar_t *

+_XimThaiWcReset(

+    XIC	 xic)

+{

+    _XimThaiReset(xic);

+    return (wchar_t *)NULL;

+}

+

+Private XICMethodsRec Thai_ic_methods = {

+    _XimThaiDestroyIC, 	/* destroy */

+    _XimThaiSetFocus,  	/* set_focus */

+    _XimThaiUnSetFocus,	/* unset_focus */

+    _XimLocalSetICValues,	/* set_values */

+    _XimLocalGetICValues,	/* get_values */

+    _XimThaiMbReset,		/* mb_reset */

+    _XimThaiWcReset,		/* wc_reset */

+    _XimThaiMbReset,		/* utf8_reset */

+    _XimLocalMbLookupString,	/* mb_lookup_string */

+    _XimLocalWcLookupString,	/* wc_lookup_string */

+    _XimLocalUtf8LookupString	/* utf8_lookup_string */

+};

+

+XIC

+_XimThaiCreateIC(

+    XIM			 im,

+    XIMArg		*values)

+{

+    Xic			 ic;

+    XimDefICValues	 ic_values;

+    XIMResourceList	 res;

+    unsigned int	 num;

+    int			 len;

+    DefTree             *tree;

+

+    if((ic = Xcalloc(1, sizeof(XicRec))) == (Xic)NULL) {

+	return ((XIC)NULL);

+    }

+

+    ic->methods = &Thai_ic_methods;

+    ic->core.im = im;

+    ic->core.filter_events = KeyPressMask;

+

+    if (! (ic->private.local.base.tree = tree = (DefTree *)Xmalloc(sizeof(DefTree)*3)) )

+	goto Set_Error;

+    if (! (ic->private.local.base.mb = (char *)Xmalloc(21)) )

+	goto Set_Error;

+    if (! (ic->private.local.base.wc = (wchar_t*)Xmalloc(sizeof(wchar_t)*21)) )

+	goto Set_Error;

+    if (! (ic->private.local.base.utf8 = (char *)Xmalloc(21)) )

+	goto Set_Error;

+    ic->private.local.context = 1;

+    tree[1].mb   = 1;

+    tree[1].wc   = 1;

+    tree[1].utf8 = 1;

+    ic->private.local.composed = 2;

+    tree[2].mb   = 11;

+    tree[2].wc   = 11;

+    tree[2].utf8 = 11;

+

+    ic->private.local.thai.comp_state = 0;

+    ic->private.local.thai.keysym = 0;

+    ic->private.local.thai.input_mode = 0;

+

+    num = im->core.ic_num_resources;

+    len = sizeof(XIMResource) * num;

+    if((res = (XIMResourceList)Xmalloc(len)) == (XIMResourceList)NULL) {

+	goto Set_Error;

+    }

+    (void)memcpy((char *)res, (char *)im->core.ic_resources, len);

+    ic->private.local.ic_resources     = res;

+    ic->private.local.ic_num_resources = num;

+

+    bzero((char *)&ic_values, sizeof(XimDefICValues));

+    if(_XimCheckLocalInputStyle(ic, (XPointer)&ic_values, values,

+				 im->core.styles, res, num) == False) {

+	goto Set_Error;

+    }

+

+    _XimSetICMode(res, num, ic_values.input_style);

+

+    if(_XimSetICValueData(ic, (XPointer)&ic_values,

+			ic->private.local.ic_resources,

+			ic->private.local.ic_num_resources,

+			values, XIM_CREATEIC, True)) {

+	goto Set_Error;

+    }

+    if(_XimSetICDefaults(ic, (XPointer)&ic_values,

+				XIM_SETICDEFAULTS, res, num) == False) {

+	goto Set_Error;

+    }

+    ic_values.filter_events = KeyPressMask;

+    _XimSetCurrentICValues(ic, &ic_values);

+

+    return ((XIC)ic);

+

+Set_Error :

+    if (ic->private.local.ic_resources) {

+	Xfree(ic->private.local.ic_resources);

+    }

+    Xfree(ic);

+    return((XIC)NULL);

+}

diff --git a/libX11/modules/im/ximcp/imTrX.c b/libX11/modules/im/ximcp/imTrX.c
index d85d1d114..27ef03e21 100644
--- a/libX11/modules/im/ximcp/imTrX.c
+++ b/libX11/modules/im/ximcp/imTrX.c
@@ -1,518 +1,518 @@
-/*
- * Copyright 1992 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.
-          Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <string.h>
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "Ximint.h"
-#include "XimTrInt.h"
-#include "XimTrX.h"
-
-Private Bool
-_XimXRegisterDispatcher(
-    Xim			 im,
-    Bool		 (*callback)(
-				     Xim, INT16, XPointer, XPointer
-				     ),
-    XPointer		 call_data)
-{
-    XIntrCallbackPtr	 rec;
-    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;
-
-    if (!(rec = (XIntrCallbackPtr)Xmalloc(sizeof(XIntrCallbackRec))))
-        return False;
-
-    rec->func       = callback;
-    rec->call_data  = call_data;
-    rec->next       = spec->intr_cb;
-    spec->intr_cb   = rec;
-    return True;
-}
-
-Private void
-_XimXFreeIntrCallback(
-    Xim			 im)
-{
-    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;
-    register XIntrCallbackPtr rec, next;
-
-    for (rec = spec->intr_cb; rec;) {
-	next = rec->next;
-	Xfree(rec);
-	rec = next;
-    }
-    return;
-}
-
-Private Bool
-_XimXCallDispatcher(Xim im, INT16 len, XPointer data)
-{
-    register XIntrCallbackRec	*rec;
-    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;
-
-    for (rec = spec->intr_cb; rec; rec = rec->next) {
-	if ((*rec->func)(im, len, data, rec->call_data))
-	    return True;
-    }
-    return False;
-}
-
-Private Bool
-_XimXFilterWaitEvent(
-    Display	*d,
-    Window	 w,
-    XEvent	*ev,
-    XPointer	 arg)
-{
-    Xim		 im = (Xim)arg;
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-    Bool ret;
-
-    spec->ev = (XPointer)ev;
-    ret = _XimFilterWaitEvent(im);
-
-    /*
-     * If ev is a pointer to a stack variable, there could be
-     * a coredump later on if the pointer is dereferenced.
-     * Therefore, reset to NULL to force reinitialization in
-     * _XimXRead().
-     *
-     * Keep in mind _XimXRead may be called again when the stack
-     * is very different.
-     */
-     spec->ev = (XPointer)NULL;
-
-     return ret;
-}
-
-Private Bool
-_CheckConnect(
-    Display	*display,
-    XEvent	*event,
-    XPointer	 xim)
-{
-    Xim		 im = (Xim)xim;
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-
-    if ((event->type == ClientMessage)
-     && (event->xclient.message_type == spec->imconnectid)) {
-	return True;
-    }
-    return False;
-}
-
-Private Bool
-_XimXConnect(Xim im)
-{
-    XEvent	 event;
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-    CARD32	 major_code;
-    CARD32	 minor_code;
-
-    if (!(spec->lib_connect_wid = XCreateSimpleWindow(im->core.display,
-		DefaultRootWindow(im->core.display), 0, 0, 1, 1, 1, 0, 0))) {
-	return False;
-    }
-
-    event.xclient.type         = ClientMessage;
-    event.xclient.display      = im->core.display;
-    event.xclient.window       = im->private.proto.im_window;
-    event.xclient.message_type = spec->imconnectid;
-    event.xclient.format       = 32;
-    event.xclient.data.l[0]    = (CARD32)spec->lib_connect_wid;
-    event.xclient.data.l[1]    = spec->major_code;
-    event.xclient.data.l[2]    = spec->minor_code;
-    event.xclient.data.l[3]    = 0;
-    event.xclient.data.l[4]    = 0;
-
-    if(event.xclient.data.l[1] == 1 || event.xclient.data.l[1] == 2) {
-	XWindowAttributes	 atr;
-	long			 event_mask;
-
-	XGetWindowAttributes(im->core.display, spec->lib_connect_wid, &atr);
-	event_mask = atr.your_event_mask | PropertyChangeMask;
-	XSelectInput(im->core.display, spec->lib_connect_wid, event_mask);
-	_XRegisterFilterByType(im->core.display, spec->lib_connect_wid,
-			PropertyNotify, PropertyNotify,
-			 _XimXFilterWaitEvent, (XPointer)im);
-    }
-
-    XSendEvent(im->core.display, im->private.proto.im_window,
-		 False, NoEventMask, &event);
-    XFlush(im->core.display);
-
-    for (;;) {
-	XIfEvent(im->core.display, &event, _CheckConnect, (XPointer)im);
-	if (event.xclient.type != ClientMessage) {
-	    return False;
-	}
-	if (event.xclient.message_type == spec->imconnectid)
-	    break;
-    }
-
-    spec->ims_connect_wid = (Window)event.xclient.data.l[0];
-    major_code = (CARD32)event.xclient.data.l[1];
-    minor_code = (CARD32)event.xclient.data.l[2];
-
-    if (((major_code == 0) && (minor_code <= 2)) ||
-	((major_code == 1) && (minor_code == 0)) ||
-	((major_code == 2) && (minor_code <= 1))) {
-	spec->major_code = major_code;
-	spec->minor_code = minor_code;
-    }
-    if (((major_code == 0) && (minor_code == 2)) ||
-	((major_code == 2) && (minor_code == 1))) {
-	spec->BoundarySize = (CARD32)event.xclient.data.l[3];
-    }
-
-    /* ClientMessage Event Filter */
-    _XRegisterFilterByType(im->core.display, spec->lib_connect_wid,
-			ClientMessage, ClientMessage,
-			 _XimXFilterWaitEvent, (XPointer)im);
-    return True;
-}
-
-Private Bool
-_XimXShutdown(Xim im)
-{
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-
-    if (!spec)
-	return True;
-
-    /* ClientMessage Event Filter */
-    _XUnregisterFilter(im->core.display,
-	    ((XSpecRec *)im->private.proto.spec)->lib_connect_wid,
-	    _XimXFilterWaitEvent, (XPointer)im);
-    XDestroyWindow(im->core.display,
-	    ((XSpecRec *)im->private.proto.spec)->lib_connect_wid);
-    _XimXFreeIntrCallback(im);
-    Xfree(spec);
-    im->private.proto.spec = 0;
-    return True;
-}
-
-Private char *
-_NewAtom(
-    char	*atomName)
-{
-    static int	 sequence = 0;
-
-    (void)sprintf(atomName, "_client%d", sequence);
-    sequence = ((sequence < 20) ? sequence + 1 : 0);
-    return atomName;
-}
-
-Private Bool
-_XimXWrite(Xim im, INT16 len, XPointer data)
-{
-    Atom	 atom;
-    char	 atomName[16];
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-    XEvent	 event;
-    CARD8	*p;
-    CARD32	 major_code = spec->major_code;
-    CARD32	 minor_code = spec->minor_code;
-    int		 BoundSize;
-
-    bzero(&event,sizeof(XEvent));
-    event.xclient.type         = ClientMessage;
-    event.xclient.display      = im->core.display;
-    event.xclient.window       = spec->ims_connect_wid;
-    if(major_code == 1 && minor_code == 0) {
-        BoundSize = 0;
-    } else if((major_code == 0 && minor_code == 2) ||
-              (major_code == 2 && minor_code == 1)) {
-        BoundSize = spec->BoundarySize;
-    } else if(major_code == 0 && minor_code == 1) {
-        BoundSize = len;
-    } else {
-        BoundSize = XIM_CM_DATA_SIZE;
-    }
-    if (len > BoundSize) {
-	event.xclient.message_type = spec->improtocolid;
-	atom = XInternAtom(im->core.display, _NewAtom(atomName), False);
-	XChangeProperty(im->core.display, spec->ims_connect_wid,
-			atom, XA_STRING, 8, PropModeAppend,
-			(unsigned char *)data, len);
-	if(major_code == 0) {
-	    event.xclient.format = 32;
-	    event.xclient.data.l[0] = (long)len;
-	    event.xclient.data.l[1] = (long)atom;
-	    XSendEvent(im->core.display, spec->ims_connect_wid,
-					False, NoEventMask, &event);
-	}
-    } else {
-	int		 length;
-
-	event.xclient.format = 8;
-	for(length = 0 ; length < len ; length += XIM_CM_DATA_SIZE) {
-	    p = (CARD8 *)&event.xclient.data.b[0];
-	    if((length + XIM_CM_DATA_SIZE) >= len) {
-		event.xclient.message_type = spec->improtocolid;
-		bzero(p, XIM_CM_DATA_SIZE);
-		memcpy((char *)p, (data + length), (len - length));
-	    } else {
-		event.xclient.message_type = spec->immoredataid;
-		memcpy((char *)p, (data + length), XIM_CM_DATA_SIZE);
-	    }
-	    XSendEvent(im->core.display, spec->ims_connect_wid,
-					False, NoEventMask, &event);
-	}
-    }
-
-    return True;
-}
-
-Private Bool
-_XimXGetReadData(
-    Xim			  im,
-    char		 *buf,
-    int			  buf_len,
-    int			 *ret_len,
-    XEvent		 *event)
-{
-    char		 *data;
-    int			  len;
-
-    char		  tmp_buf[XIM_CM_DATA_SIZE];
-    XSpecRec		 *spec = (XSpecRec *)im->private.proto.spec;
-    unsigned long	  length;
-    Atom		  prop;
-    int			  return_code;
-    Atom		  type_ret;
-    int			  format_ret;
-    unsigned long	  nitems;
-    unsigned long	  bytes_after_ret;
-    unsigned char	 *prop_ret;
-
-    if ((event->type == ClientMessage) &&
-        !((event->xclient.message_type == spec->improtocolid) ||
-          (event->xclient.message_type == spec->immoredataid))) {
-         /* This event has nothing to do with us,
-          * FIXME should not have gotten here then...
-          */
-         return False;
-    } else if ((event->type == ClientMessage) && (event->xclient.format == 8)) {
-        data = event->xclient.data.b;
-	if (buf_len >= XIM_CM_DATA_SIZE) {
-	    (void)memcpy(buf, data, XIM_CM_DATA_SIZE);
-	    *ret_len = XIM_CM_DATA_SIZE;
-	} else {
-	    (void)memcpy(buf, data, buf_len);
-	    len = XIM_CM_DATA_SIZE - buf_len;
-	    (void)memcpy(tmp_buf, &data[buf_len], len);
-	    bzero(data, XIM_CM_DATA_SIZE);
-	    (void)memcpy(data, tmp_buf, len);
-	    XPutBackEvent(im->core.display, event);
-	    *ret_len = buf_len;
-	}
-    } else if ((event->type == ClientMessage)
-				&& (event->xclient.format == 32)) {
-	length = (unsigned long)event->xclient.data.l[0];
-	prop   = (Atom)event->xclient.data.l[1];
-	return_code = XGetWindowProperty(im->core.display,
-		spec->lib_connect_wid, prop, 0L,
-		(long)((length + 3)/ 4), True, AnyPropertyType,
-		&type_ret, &format_ret, &nitems, &bytes_after_ret, &prop_ret);
-	if (return_code != Success || format_ret == 0 || nitems == 0) {
-	    if (return_code == Success)
-		XFree(prop_ret);
-	    return False;
-	}
-	if (buf_len >= length) {
-	    (void)memcpy(buf, prop_ret, (int)nitems);
-	    *ret_len  = (int)nitems;
-	    if (bytes_after_ret > 0) {
-		XFree(prop_ret);
-		if (XGetWindowProperty(im->core.display,
-				       spec->lib_connect_wid, prop, 0L,
-				       ((length + bytes_after_ret + 3)/ 4),
-				       True, AnyPropertyType,
-				       &type_ret, &format_ret, &nitems,
-				       &bytes_after_ret,
-				       &prop_ret) == Success) {
-		    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,
-				    XA_STRING, 8, PropModePrepend, &prop_ret[length],
-				    (nitems - length));
-		} else {
-		    return False;
-		}
-	    }
-	} else {
-	    (void)memcpy(buf, prop_ret, buf_len);
-	    *ret_len  = buf_len;
-	    len = nitems - buf_len;
-
-	    if (bytes_after_ret > 0) {
-		XFree(prop_ret);
-		if (XGetWindowProperty(im->core.display,
-				       spec->lib_connect_wid, prop, 0L,
-				       ((length + bytes_after_ret + 3)/ 4),
-				       True, AnyPropertyType,
-				       &type_ret, &format_ret, &nitems,
-				       &bytes_after_ret, &prop_ret) != Success) {
-		    return False;
-		}
-	    }
-	    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,
-		    XA_STRING, 8, PropModePrepend, &prop_ret[buf_len], len);
-	    event->xclient.data.l[0] = (long)len;
-	    event->xclient.data.l[1] = (long)prop;
-	    XPutBackEvent(im->core.display, event);
-	}
-	XFree(prop_ret);
-    } else if (event->type == PropertyNotify) {
-	prop = event->xproperty.atom;
-	return_code = XGetWindowProperty(im->core.display,
-		spec->lib_connect_wid, prop, 0L,
-		1000000L, True, AnyPropertyType,
-		&type_ret, &format_ret, &nitems, &bytes_after_ret, &prop_ret);
-	if (return_code != Success || format_ret == 0 || nitems == 0) {
-	    if (return_code == Success)
-		XFree(prop_ret);
-	    return False;
-	}
-	if (buf_len >= nitems) {
-	    (void)memcpy(buf, prop_ret, (int)nitems);
-	    *ret_len  = (int)nitems;
-	} else {
-	    (void)memcpy(buf, prop_ret, buf_len);
-	    *ret_len  = buf_len;
-	    len = nitems - buf_len;
-	    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,
-		XA_STRING, 8, PropModePrepend, &prop_ret[buf_len], len);
-	}
-	XFree(prop_ret);
-    }
-    return True;
-}
-
-Private Bool
-_CheckCMEvent(
-    Display	*display,
-    XEvent	*event,
-    XPointer	 xim)
-{
-    Xim		 im = (Xim)xim;
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-    CARD32	 major_code = spec->major_code;
-
-    if ((event->type == ClientMessage)
-     &&((event->xclient.message_type == spec->improtocolid) ||
-        (event->xclient.message_type == spec->immoredataid)))
-	return True;
-    if((major_code == 1 || major_code == 2) &&
-       (event->type == PropertyNotify) &&
-       (event->xproperty.state == PropertyNewValue))
-	return True;
-    return False;
-}
-
-Private Bool
-_XimXRead(Xim im, XPointer recv_buf, int buf_len, int *ret_len)
-{
-    XEvent	*ev;
-    XEvent	 event;
-    int		 len = 0;
-    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;
-    XPointer	  arg = spec->ev;
-
-    if (!arg) {
-	bzero(&event, sizeof(XEvent));
-	ev = &event;
-	XIfEvent(im->core.display, ev, _CheckCMEvent, (XPointer)im);
-    } else {
-	ev = (XEvent *)arg;
-	spec->ev = (XPointer)NULL;
-    }
-    if (!(_XimXGetReadData(im, recv_buf, buf_len, &len, ev)))
-	return False;
-    *ret_len = len;
-    return True;
-}
-
-Private void
-_XimXFlush(Xim im)
-{
-    XFlush(im->core.display);
-    return;
-}
-
-Public Bool
-_XimXConf(Xim im, char *address)
-{
-    XSpecRec	*spec;
-
-    if (!(spec = Xcalloc(1, sizeof(XSpecRec))))
-	return False;
-
-    spec->improtocolid = XInternAtom(im->core.display, _XIM_PROTOCOL, False);
-    spec->imconnectid  = XInternAtom(im->core.display, _XIM_XCONNECT, False);
-    spec->immoredataid = XInternAtom(im->core.display, _XIM_MOREDATA, False);
-    spec->major_code = MAJOR_TRANSPORT_VERSION;
-    spec->minor_code = MINOR_TRANSPORT_VERSION;
-
-    im->private.proto.spec     = (XPointer)spec;
-    im->private.proto.connect  = _XimXConnect;
-    im->private.proto.shutdown = _XimXShutdown;
-    im->private.proto.write    = _XimXWrite;
-    im->private.proto.read     = _XimXRead;
-    im->private.proto.flush    = _XimXFlush;
-    im->private.proto.register_dispatcher  = _XimXRegisterDispatcher;
-    im->private.proto.call_dispatcher = _XimXCallDispatcher;
-
-    return True;
-}
+/*

+ * Copyright 1992 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.

+          Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <string.h>

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "Ximint.h"

+#include "XimTrInt.h"

+#include "XimTrX.h"

+

+Private Bool

+_XimXRegisterDispatcher(

+    Xim			 im,

+    Bool		 (*callback)(

+				     Xim, INT16, XPointer, XPointer

+				     ),

+    XPointer		 call_data)

+{

+    XIntrCallbackPtr	 rec;

+    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;

+

+    if (!(rec = (XIntrCallbackPtr)Xmalloc(sizeof(XIntrCallbackRec))))

+        return False;

+

+    rec->func       = callback;

+    rec->call_data  = call_data;

+    rec->next       = spec->intr_cb;

+    spec->intr_cb   = rec;

+    return True;

+}

+

+Private void

+_XimXFreeIntrCallback(

+    Xim			 im)

+{

+    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;

+    register XIntrCallbackPtr rec, next;

+

+    for (rec = spec->intr_cb; rec;) {

+	next = rec->next;

+	Xfree(rec);

+	rec = next;

+    }

+    return;

+}

+

+Private Bool

+_XimXCallDispatcher(Xim im, INT16 len, XPointer data)

+{

+    register XIntrCallbackRec	*rec;

+    XSpecRec		*spec = (XSpecRec *)im->private.proto.spec;

+

+    for (rec = spec->intr_cb; rec; rec = rec->next) {

+	if ((*rec->func)(im, len, data, rec->call_data))

+	    return True;

+    }

+    return False;

+}

+

+Private Bool

+_XimXFilterWaitEvent(

+    Display	*d,

+    Window	 w,

+    XEvent	*ev,

+    XPointer	 arg)

+{

+    Xim		 im = (Xim)arg;

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+    Bool ret;

+

+    spec->ev = (XPointer)ev;

+    ret = _XimFilterWaitEvent(im);

+

+    /*

+     * If ev is a pointer to a stack variable, there could be

+     * a coredump later on if the pointer is dereferenced.

+     * Therefore, reset to NULL to force reinitialization in

+     * _XimXRead().

+     *

+     * Keep in mind _XimXRead may be called again when the stack

+     * is very different.

+     */

+     spec->ev = (XPointer)NULL;

+

+     return ret;

+}

+

+Private Bool

+_CheckConnect(

+    Display	*display,

+    XEvent	*event,

+    XPointer	 xim)

+{

+    Xim		 im = (Xim)xim;

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+

+    if ((event->type == ClientMessage)

+     && (event->xclient.message_type == spec->imconnectid)) {

+	return True;

+    }

+    return False;

+}

+

+Private Bool

+_XimXConnect(Xim im)

+{

+    XEvent	 event;

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+    CARD32	 major_code;

+    CARD32	 minor_code;

+

+    if (!(spec->lib_connect_wid = XCreateSimpleWindow(im->core.display,

+		DefaultRootWindow(im->core.display), 0, 0, 1, 1, 1, 0, 0))) {

+	return False;

+    }

+

+    event.xclient.type         = ClientMessage;

+    event.xclient.display      = im->core.display;

+    event.xclient.window       = im->private.proto.im_window;

+    event.xclient.message_type = spec->imconnectid;

+    event.xclient.format       = 32;

+    event.xclient.data.l[0]    = (CARD32)spec->lib_connect_wid;

+    event.xclient.data.l[1]    = spec->major_code;

+    event.xclient.data.l[2]    = spec->minor_code;

+    event.xclient.data.l[3]    = 0;

+    event.xclient.data.l[4]    = 0;

+

+    if(event.xclient.data.l[1] == 1 || event.xclient.data.l[1] == 2) {

+	XWindowAttributes	 atr;

+	long			 event_mask;

+

+	XGetWindowAttributes(im->core.display, spec->lib_connect_wid, &atr);

+	event_mask = atr.your_event_mask | PropertyChangeMask;

+	XSelectInput(im->core.display, spec->lib_connect_wid, event_mask);

+	_XRegisterFilterByType(im->core.display, spec->lib_connect_wid,

+			PropertyNotify, PropertyNotify,

+			 _XimXFilterWaitEvent, (XPointer)im);

+    }

+

+    XSendEvent(im->core.display, im->private.proto.im_window,

+		 False, NoEventMask, &event);

+    XFlush(im->core.display);

+

+    for (;;) {

+	XIfEvent(im->core.display, &event, _CheckConnect, (XPointer)im);

+	if (event.xclient.type != ClientMessage) {

+	    return False;

+	}

+	if (event.xclient.message_type == spec->imconnectid)

+	    break;

+    }

+

+    spec->ims_connect_wid = (Window)event.xclient.data.l[0];

+    major_code = (CARD32)event.xclient.data.l[1];

+    minor_code = (CARD32)event.xclient.data.l[2];

+

+    if (((major_code == 0) && (minor_code <= 2)) ||

+	((major_code == 1) && (minor_code == 0)) ||

+	((major_code == 2) && (minor_code <= 1))) {

+	spec->major_code = major_code;

+	spec->minor_code = minor_code;

+    }

+    if (((major_code == 0) && (minor_code == 2)) ||

+	((major_code == 2) && (minor_code == 1))) {

+	spec->BoundarySize = (CARD32)event.xclient.data.l[3];

+    }

+

+    /* ClientMessage Event Filter */

+    _XRegisterFilterByType(im->core.display, spec->lib_connect_wid,

+			ClientMessage, ClientMessage,

+			 _XimXFilterWaitEvent, (XPointer)im);

+    return True;

+}

+

+Private Bool

+_XimXShutdown(Xim im)

+{

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+

+    if (!spec)

+	return True;

+

+    /* ClientMessage Event Filter */

+    _XUnregisterFilter(im->core.display,

+	    ((XSpecRec *)im->private.proto.spec)->lib_connect_wid,

+	    _XimXFilterWaitEvent, (XPointer)im);

+    XDestroyWindow(im->core.display,

+	    ((XSpecRec *)im->private.proto.spec)->lib_connect_wid);

+    _XimXFreeIntrCallback(im);

+    Xfree(spec);

+    im->private.proto.spec = 0;

+    return True;

+}

+

+Private char *

+_NewAtom(

+    char	*atomName)

+{

+    static int	 sequence = 0;

+

+    (void)sprintf(atomName, "_client%d", sequence);

+    sequence = ((sequence < 20) ? sequence + 1 : 0);

+    return atomName;

+}

+

+Private Bool

+_XimXWrite(Xim im, INT16 len, XPointer data)

+{

+    Atom	 atom;

+    char	 atomName[16];

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+    XEvent	 event;

+    CARD8	*p;

+    CARD32	 major_code = spec->major_code;

+    CARD32	 minor_code = spec->minor_code;

+    int		 BoundSize;

+

+    bzero(&event,sizeof(XEvent));

+    event.xclient.type         = ClientMessage;

+    event.xclient.display      = im->core.display;

+    event.xclient.window       = spec->ims_connect_wid;

+    if(major_code == 1 && minor_code == 0) {

+        BoundSize = 0;

+    } else if((major_code == 0 && minor_code == 2) ||

+              (major_code == 2 && minor_code == 1)) {

+        BoundSize = spec->BoundarySize;

+    } else if(major_code == 0 && minor_code == 1) {

+        BoundSize = len;

+    } else {

+        BoundSize = XIM_CM_DATA_SIZE;

+    }

+    if (len > BoundSize) {

+	event.xclient.message_type = spec->improtocolid;

+	atom = XInternAtom(im->core.display, _NewAtom(atomName), False);

+	XChangeProperty(im->core.display, spec->ims_connect_wid,

+			atom, XA_STRING, 8, PropModeAppend,

+			(unsigned char *)data, len);

+	if(major_code == 0) {

+	    event.xclient.format = 32;

+	    event.xclient.data.l[0] = (long)len;

+	    event.xclient.data.l[1] = (long)atom;

+	    XSendEvent(im->core.display, spec->ims_connect_wid,

+					False, NoEventMask, &event);

+	}

+    } else {

+	int		 length;

+

+	event.xclient.format = 8;

+	for(length = 0 ; length < len ; length += XIM_CM_DATA_SIZE) {

+	    p = (CARD8 *)&event.xclient.data.b[0];

+	    if((length + XIM_CM_DATA_SIZE) >= len) {

+		event.xclient.message_type = spec->improtocolid;

+		bzero(p, XIM_CM_DATA_SIZE);

+		memcpy((char *)p, (data + length), (len - length));

+	    } else {

+		event.xclient.message_type = spec->immoredataid;

+		memcpy((char *)p, (data + length), XIM_CM_DATA_SIZE);

+	    }

+	    XSendEvent(im->core.display, spec->ims_connect_wid,

+					False, NoEventMask, &event);

+	}

+    }

+

+    return True;

+}

+

+Private Bool

+_XimXGetReadData(

+    Xim			  im,

+    char		 *buf,

+    int			  buf_len,

+    int			 *ret_len,

+    XEvent		 *event)

+{

+    char		 *data;

+    int			  len;

+

+    char		  tmp_buf[XIM_CM_DATA_SIZE];

+    XSpecRec		 *spec = (XSpecRec *)im->private.proto.spec;

+    unsigned long	  length;

+    Atom		  prop;

+    int			  return_code;

+    Atom		  type_ret;

+    int			  format_ret;

+    unsigned long	  nitems;

+    unsigned long	  bytes_after_ret;

+    unsigned char	 *prop_ret;

+

+    if ((event->type == ClientMessage) &&

+        !((event->xclient.message_type == spec->improtocolid) ||

+          (event->xclient.message_type == spec->immoredataid))) {

+         /* This event has nothing to do with us,

+          * FIXME should not have gotten here then...

+          */

+         return False;

+    } else if ((event->type == ClientMessage) && (event->xclient.format == 8)) {

+        data = event->xclient.data.b;

+	if (buf_len >= XIM_CM_DATA_SIZE) {

+	    (void)memcpy(buf, data, XIM_CM_DATA_SIZE);

+	    *ret_len = XIM_CM_DATA_SIZE;

+	} else {

+	    (void)memcpy(buf, data, buf_len);

+	    len = XIM_CM_DATA_SIZE - buf_len;

+	    (void)memcpy(tmp_buf, &data[buf_len], len);

+	    bzero(data, XIM_CM_DATA_SIZE);

+	    (void)memcpy(data, tmp_buf, len);

+	    XPutBackEvent(im->core.display, event);

+	    *ret_len = buf_len;

+	}

+    } else if ((event->type == ClientMessage)

+				&& (event->xclient.format == 32)) {

+	length = (unsigned long)event->xclient.data.l[0];

+	prop   = (Atom)event->xclient.data.l[1];

+	return_code = XGetWindowProperty(im->core.display,

+		spec->lib_connect_wid, prop, 0L,

+		(long)((length + 3)/ 4), True, AnyPropertyType,

+		&type_ret, &format_ret, &nitems, &bytes_after_ret, &prop_ret);

+	if (return_code != Success || format_ret == 0 || nitems == 0) {

+	    if (return_code == Success)

+		XFree(prop_ret);

+	    return False;

+	}

+	if (buf_len >= length) {

+	    (void)memcpy(buf, prop_ret, (int)nitems);

+	    *ret_len  = (int)nitems;

+	    if (bytes_after_ret > 0) {

+		XFree(prop_ret);

+		if (XGetWindowProperty(im->core.display,

+				       spec->lib_connect_wid, prop, 0L,

+				       ((length + bytes_after_ret + 3)/ 4),

+				       True, AnyPropertyType,

+				       &type_ret, &format_ret, &nitems,

+				       &bytes_after_ret,

+				       &prop_ret) == Success) {

+		    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,

+				    XA_STRING, 8, PropModePrepend, &prop_ret[length],

+				    (nitems - length));

+		} else {

+		    return False;

+		}

+	    }

+	} else {

+	    (void)memcpy(buf, prop_ret, buf_len);

+	    *ret_len  = buf_len;

+	    len = nitems - buf_len;

+

+	    if (bytes_after_ret > 0) {

+		XFree(prop_ret);

+		if (XGetWindowProperty(im->core.display,

+				       spec->lib_connect_wid, prop, 0L,

+				       ((length + bytes_after_ret + 3)/ 4),

+				       True, AnyPropertyType,

+				       &type_ret, &format_ret, &nitems,

+				       &bytes_after_ret, &prop_ret) != Success) {

+		    return False;

+		}

+	    }

+	    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,

+		    XA_STRING, 8, PropModePrepend, &prop_ret[buf_len], len);

+	    event->xclient.data.l[0] = (long)len;

+	    event->xclient.data.l[1] = (long)prop;

+	    XPutBackEvent(im->core.display, event);

+	}

+	XFree(prop_ret);

+    } else if (event->type == PropertyNotify) {

+	prop = event->xproperty.atom;

+	return_code = XGetWindowProperty(im->core.display,

+		spec->lib_connect_wid, prop, 0L,

+		1000000L, True, AnyPropertyType,

+		&type_ret, &format_ret, &nitems, &bytes_after_ret, &prop_ret);

+	if (return_code != Success || format_ret == 0 || nitems == 0) {

+	    if (return_code == Success)

+		XFree(prop_ret);

+	    return False;

+	}

+	if (buf_len >= nitems) {

+	    (void)memcpy(buf, prop_ret, (int)nitems);

+	    *ret_len  = (int)nitems;

+	} else {

+	    (void)memcpy(buf, prop_ret, buf_len);

+	    *ret_len  = buf_len;

+	    len = nitems - buf_len;

+	    XChangeProperty(im->core.display, spec->lib_connect_wid, prop,

+		XA_STRING, 8, PropModePrepend, &prop_ret[buf_len], len);

+	}

+	XFree(prop_ret);

+    }

+    return True;

+}

+

+Private Bool

+_CheckCMEvent(

+    Display	*display,

+    XEvent	*event,

+    XPointer	 xim)

+{

+    Xim		 im = (Xim)xim;

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+    CARD32	 major_code = spec->major_code;

+

+    if ((event->type == ClientMessage)

+     &&((event->xclient.message_type == spec->improtocolid) ||

+        (event->xclient.message_type == spec->immoredataid)))

+	return True;

+    if((major_code == 1 || major_code == 2) &&

+       (event->type == PropertyNotify) &&

+       (event->xproperty.state == PropertyNewValue))

+	return True;

+    return False;

+}

+

+Private Bool

+_XimXRead(Xim im, XPointer recv_buf, int buf_len, int *ret_len)

+{

+    XEvent	*ev;

+    XEvent	 event;

+    int		 len = 0;

+    XSpecRec	*spec = (XSpecRec *)im->private.proto.spec;

+    XPointer	  arg = spec->ev;

+

+    if (!arg) {

+	bzero(&event, sizeof(XEvent));

+	ev = &event;

+	XIfEvent(im->core.display, ev, _CheckCMEvent, (XPointer)im);

+    } else {

+	ev = (XEvent *)arg;

+	spec->ev = (XPointer)NULL;

+    }

+    if (!(_XimXGetReadData(im, recv_buf, buf_len, &len, ev)))

+	return False;

+    *ret_len = len;

+    return True;

+}

+

+Private void

+_XimXFlush(Xim im)

+{

+    XFlush(im->core.display);

+    return;

+}

+

+Public Bool

+_XimXConf(Xim im, char *address)

+{

+    XSpecRec	*spec;

+

+    if (!(spec = Xcalloc(1, sizeof(XSpecRec))))

+	return False;

+

+    spec->improtocolid = XInternAtom(im->core.display, _XIM_PROTOCOL, False);

+    spec->imconnectid  = XInternAtom(im->core.display, _XIM_XCONNECT, False);

+    spec->immoredataid = XInternAtom(im->core.display, _XIM_MOREDATA, False);

+    spec->major_code = MAJOR_TRANSPORT_VERSION;

+    spec->minor_code = MINOR_TRANSPORT_VERSION;

+

+    im->private.proto.spec     = (XPointer)spec;

+    im->private.proto.connect  = _XimXConnect;

+    im->private.proto.shutdown = _XimXShutdown;

+    im->private.proto.write    = _XimXWrite;

+    im->private.proto.read     = _XimXRead;

+    im->private.proto.flush    = _XimXFlush;

+    im->private.proto.register_dispatcher  = _XimXRegisterDispatcher;

+    im->private.proto.call_dispatcher = _XimXCallDispatcher;

+

+    return True;

+}

diff --git a/libX11/modules/im/ximcp/imTrans.c b/libX11/modules/im/ximcp/imTrans.c
index 0ac08aa60..a601affda 100644
--- a/libX11/modules/im/ximcp/imTrans.c
+++ b/libX11/modules/im/ximcp/imTrans.c
@@ -1,313 +1,315 @@
-/*
- * Copyright 1992 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-/******************************************************************
-
-           Copyright 1992, 1993, 1994 by FUJITSU LIMITED
-
-Permission to use, copy, modify, distribute, and sell this software
-and its documentation for any purpose is hereby granted without fee,
-provided that the above copyright notice appear in all copies and
-that both that copyright notice and this permission notice appear
-in supporting documentation, and that the name of FUJITSU LIMITED
-not be used in advertising or publicity pertaining to distribution
-of the software without specific, written prior permission.
-FUJITSU LIMITED makes no representations about the suitability of
-this software for any purpose.
-It is provided "as is" without express or implied warranty.
-
-FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
-EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
-USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
-OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
-PERFORMANCE OF THIS SOFTWARE.
-
-  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.
-          Takashi Fujiwara     FUJITSU LIMITED
-                               fujiwara@a80.tech.yk.fujitsu.co.jp
-
-******************************************************************/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xatom.h>
-#include <X11/Xmd.h>
-#include "Xlibint.h"
-#include <X11/Xtrans/Xtrans.h>
-#include "Xlcint.h"
-#include "Ximint.h"
-#include "XimTrans.h"
-#include "XimTrInt.h"
-
-#ifdef WIN32
-#include <X11/Xwindows.h>
-#endif
-
-
-#ifndef XIM_CONNECTION_RETRIES
-#define XIM_CONNECTION_RETRIES 5
-#endif
-
-
-Private Bool
-_XimTransConnect(
-    Xim			 im)
-{
-    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;
-    int			connect_stat, retry;
-    Window		window;
-
-    for (retry = XIM_CONNECTION_RETRIES; retry >= 0; retry--)
-    {
-	if ((spec->trans_conn = _XimXTransOpenCOTSClient (
-	    spec->address)) == NULL)
-	{
-	    break;
-	}
-
-	if ((connect_stat = _XimXTransConnect (
-	    spec->trans_conn, spec->address)) < 0)
-	{
-	    _XimXTransClose (spec->trans_conn);
-	    spec->trans_conn = NULL;
-
-	    if (connect_stat == TRANS_TRY_CONNECT_AGAIN)
-		continue;
-	    else
-		break;
-	}
-	else
-	    break;
-    }
-
-    if (spec->trans_conn == NULL)
-	return False;
-
-    spec->fd = _XimXTransGetConnectionNumber (spec->trans_conn);
-
-    if (!(window = XCreateSimpleWindow(im->core.display,
-		DefaultRootWindow(im->core.display), 0, 0, 1, 1, 1, 0, 0)))
-	return False;
-    spec->window = window;
-
-    _XRegisterFilterByType(im->core.display, window, KeyPress, KeyPress,
-				_XimTransFilterWaitEvent, (XPointer)im);
-
-    return _XRegisterInternalConnection(im->core.display, spec->fd,
-			(_XInternalConnectionProc)_XimTransInternalConnection,
-			(XPointer)im);
-}
-
-
-Private Bool
-_XimTransShutdown(
-    Xim im)
-{
-    TransSpecRec *spec = (TransSpecRec *)im->private.proto.spec;
-
-    _XimXTransDisconnect(spec->trans_conn);
-    (void)_XimXTransClose(spec->trans_conn);
-    _XimFreeTransIntrCallback(im);
-    _XUnregisterInternalConnection(im->core.display, spec->fd);
-    _XUnregisterFilter(im->core.display, spec->window,
-				_XimTransFilterWaitEvent, (XPointer)im);
-    XDestroyWindow(im->core.display, spec->window);
-    Xfree(spec->address);
-    Xfree(spec);
-    return True;
-}
-
-
-
-Public Bool
-_XimTransRegisterDispatcher(
-    Xim				 im,
-    Bool			 (*callback)(
-					     Xim, INT16, XPointer, XPointer
-					     ),
-    XPointer			 call_data)
-{
-    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;
-    TransIntrCallbackPtr	 rec;
-
-    if (!(rec = (TransIntrCallbackPtr)Xmalloc(sizeof(TransIntrCallbackRec))))
-        return False;
-
-    rec->func       = callback;
-    rec->call_data  = call_data;
-    rec->next       = spec->intr_cb;
-    spec->intr_cb   = rec;
-    return True;
-}
-
-
-Public void
-_XimFreeTransIntrCallback(
-    Xim				 im)
-{
-    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;
-    register TransIntrCallbackPtr	 rec, next;
-
-    for (rec = spec->intr_cb; rec;) {
-	next = rec->next;
-	Xfree(rec);
-	rec = next;
-    }
-    return;
-}
-
-
-Public Bool
-_XimTransCallDispatcher(Xim im, INT16 len, XPointer data)
-{
-    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;
-    TransIntrCallbackRec	*rec;
-
-    for (rec = spec->intr_cb; rec; rec = rec->next) {
-	if ((*rec->func)(im, len, data, rec->call_data))
-	    return True;
-    }
-    return False;
-}
-
-
-Public Bool
-_XimTransFilterWaitEvent(
-    Display		*d,
-    Window		 w,
-    XEvent		*ev,
-    XPointer		 arg)
-{
-    Xim			 im = (Xim)arg;
-    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;
-
-    spec->is_putback  = False;
-    return _XimFilterWaitEvent(im);
-}
-
-
-Public void
-_XimTransInternalConnection(
-    Display		*d,
-    int			 fd,
-    XPointer		 arg)
-{
-    Xim			 im = (Xim)arg;
-    XEvent		 ev;
-    XKeyEvent		*kev;
-    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;
-
-    if (spec->is_putback)
-	return;
-    kev = (XKeyEvent *)&ev;
-    kev->type = KeyPress;
-    kev->send_event = False;
-    kev->display = im->core.display;
-    kev->window = spec->window;
-    kev->keycode = 0;
-    XPutBackEvent(im->core.display, &ev);
-    XFlush(im->core.display);
-    spec->is_putback = True;
-    return;
-}
-
-
-Public Bool
-_XimTransWrite(Xim im, INT16 len, XPointer data)
-{
-    TransSpecRec	*spec	= (TransSpecRec *)im->private.proto.spec;
-    char		*buf = (char *)data;
-    register int	 nbyte;
-
-    while (len > 0) {
-	if ((nbyte = _XimXTransWrite(spec->trans_conn, buf, len)) <= 0)
-	    return False;
-	len -= nbyte;
-	buf += nbyte;
-    }
-    return True;
-}
-
-
-Public Bool
-_XimTransRead(
-    Xim			 im,
-    XPointer		 recv_buf,
-    int			 buf_len,
-    int			*ret_len)
-{
-    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;
-    int			 len;
-
-    if (buf_len == 0) {
-	*ret_len = 0;
-	return True;
-    }
-    if ((len = _XimXTransRead(spec->trans_conn, recv_buf, buf_len)) <= 0)
-	return False;
-    *ret_len = len;
-    return True;
-}
-
-
-Public void
-_XimTransFlush(
-    Xim		 im)
-{
-    return;
-}
-
-
-
-Public Bool
-_XimTransConf(
-    Xim		   	 im,
-    char	 	*address)
-{
-    char		*paddr;
-    TransSpecRec	*spec;
-
-    if (!(paddr = strdup(address)))
-	return False;
-
-    if (!(spec = Xcalloc(1, sizeof(TransSpecRec)))) {
-	Xfree(paddr);
-	return False;
-    }
-
-    spec->address   = paddr;
-
-    im->private.proto.spec     = (XPointer)spec;
-    im->private.proto.connect  = _XimTransConnect;
-    im->private.proto.shutdown = _XimTransShutdown;
-    im->private.proto.write    = _XimTransWrite;
-    im->private.proto.read     = _XimTransRead;
-    im->private.proto.flush    = _XimTransFlush;
-    im->private.proto.register_dispatcher = _XimTransRegisterDispatcher;
-    im->private.proto.call_dispatcher = _XimTransCallDispatcher;
-
-    return True;
-}
+/*

+ * Copyright 1992 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+/******************************************************************

+

+           Copyright 1992, 1993, 1994 by FUJITSU LIMITED

+

+Permission to use, copy, modify, distribute, and sell this software

+and its documentation for any purpose is hereby granted without fee,

+provided that the above copyright notice appear in all copies and

+that both that copyright notice and this permission notice appear

+in supporting documentation, and that the name of FUJITSU LIMITED

+not be used in advertising or publicity pertaining to distribution

+of the software without specific, written prior permission.

+FUJITSU LIMITED makes no representations about the suitability of

+this software for any purpose.

+It is provided "as is" without express or implied warranty.

+

+FUJITSU LIMITED DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,

+INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO

+EVENT SHALL FUJITSU LIMITED BE LIABLE FOR ANY SPECIAL, INDIRECT OR

+CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF

+USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR

+OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR

+PERFORMANCE OF THIS SOFTWARE.

+

+  Author: Hideki Hiura (hhiura@Sun.COM) Sun Microsystems, Inc.

+          Takashi Fujiwara     FUJITSU LIMITED

+                               fujiwara@a80.tech.yk.fujitsu.co.jp

+

+******************************************************************/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <unistd.h>

+#include <X11/Xatom.h>

+#include <X11/Xmd.h>

+#include "Xlibint.h"

+#include <X11/Xwindows.h>

+#include <X11/Xtrans/Xtrans.h>

+#include "Xlcint.h"

+#include "Ximint.h"

+#include "XimTrans.h"

+#include "XimTrInt.h"

+

+#ifdef WIN32

+#include <X11/Xwindows.h>

+#endif

+

+

+#ifndef XIM_CONNECTION_RETRIES

+#define XIM_CONNECTION_RETRIES 5

+#endif

+

+

+Private Bool

+_XimTransConnect(

+    Xim			 im)

+{

+    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;

+    int			connect_stat, retry;

+    Window		window;

+

+    for (retry = XIM_CONNECTION_RETRIES; retry >= 0; retry--)

+    {

+	if ((spec->trans_conn = _XimXTransOpenCOTSClient (

+	    spec->address)) == NULL)

+	{

+	    break;

+	}

+

+	if ((connect_stat = _XimXTransConnect (

+	    spec->trans_conn, spec->address)) < 0)

+	{

+	    _XimXTransClose (spec->trans_conn);

+	    spec->trans_conn = NULL;

+

+	    if (connect_stat == TRANS_TRY_CONNECT_AGAIN)

+		continue;

+	    else

+		break;

+	}

+	else

+	    break;

+    }

+

+    if (spec->trans_conn == NULL)

+	return False;

+

+    spec->fd = _XimXTransGetConnectionNumber (spec->trans_conn);

+

+    if (!(window = XCreateSimpleWindow(im->core.display,

+		DefaultRootWindow(im->core.display), 0, 0, 1, 1, 1, 0, 0)))

+	return False;

+    spec->window = window;

+

+    _XRegisterFilterByType(im->core.display, window, KeyPress, KeyPress,

+				_XimTransFilterWaitEvent, (XPointer)im);

+

+    return _XRegisterInternalConnection(im->core.display, spec->fd,

+			(_XInternalConnectionProc)_XimTransInternalConnection,

+			(XPointer)im);

+}

+

+

+Private Bool

+_XimTransShutdown(

+    Xim im)

+{

+    TransSpecRec *spec = (TransSpecRec *)im->private.proto.spec;

+

+    _XimXTransDisconnect(spec->trans_conn);

+    (void)_XimXTransClose(spec->trans_conn);

+    _XimFreeTransIntrCallback(im);

+    _XUnregisterInternalConnection(im->core.display, spec->fd);

+    _XUnregisterFilter(im->core.display, spec->window,

+				_XimTransFilterWaitEvent, (XPointer)im);

+    XDestroyWindow(im->core.display, spec->window);

+    Xfree(spec->address);

+    Xfree(spec);

+    return True;

+}

+

+

+

+Public Bool

+_XimTransRegisterDispatcher(

+    Xim				 im,

+    Bool			 (*callback)(

+					     Xim, INT16, XPointer, XPointer

+					     ),

+    XPointer			 call_data)

+{

+    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;

+    TransIntrCallbackPtr	 rec;

+

+    if (!(rec = (TransIntrCallbackPtr)Xmalloc(sizeof(TransIntrCallbackRec))))

+        return False;

+

+    rec->func       = callback;

+    rec->call_data  = call_data;

+    rec->next       = spec->intr_cb;

+    spec->intr_cb   = rec;

+    return True;

+}

+

+

+Public void

+_XimFreeTransIntrCallback(

+    Xim				 im)

+{

+    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;

+    register TransIntrCallbackPtr	 rec, next;

+

+    for (rec = spec->intr_cb; rec;) {

+	next = rec->next;

+	Xfree(rec);

+	rec = next;

+    }

+    return;

+}

+

+

+Public Bool

+_XimTransCallDispatcher(Xim im, INT16 len, XPointer data)

+{

+    TransSpecRec		*spec = (TransSpecRec *)im->private.proto.spec;

+    TransIntrCallbackRec	*rec;

+

+    for (rec = spec->intr_cb; rec; rec = rec->next) {

+	if ((*rec->func)(im, len, data, rec->call_data))

+	    return True;

+    }

+    return False;

+}

+

+

+Public Bool

+_XimTransFilterWaitEvent(

+    Display		*d,

+    Window		 w,

+    XEvent		*ev,

+    XPointer		 arg)

+{

+    Xim			 im = (Xim)arg;

+    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;

+

+    spec->is_putback  = False;

+    return _XimFilterWaitEvent(im);

+}

+

+

+Public void

+_XimTransInternalConnection(

+    Display		*d,

+    int			 fd,

+    XPointer		 arg)

+{

+    Xim			 im = (Xim)arg;

+    XEvent		 ev;

+    XKeyEvent		*kev;

+    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;

+

+    if (spec->is_putback)

+	return;

+    kev = (XKeyEvent *)&ev;

+    kev->type = KeyPress;

+    kev->send_event = False;

+    kev->display = im->core.display;

+    kev->window = spec->window;

+    kev->keycode = 0;

+    XPutBackEvent(im->core.display, &ev);

+    XFlush(im->core.display);

+    spec->is_putback = True;

+    return;

+}

+

+

+Public Bool

+_XimTransWrite(Xim im, INT16 len, XPointer data)

+{

+    TransSpecRec	*spec	= (TransSpecRec *)im->private.proto.spec;

+    char		*buf = (char *)data;

+    register int	 nbyte;

+

+    while (len > 0) {

+	if ((nbyte = _XimXTransWrite(spec->trans_conn, buf, len)) <= 0)

+	    return False;

+	len -= nbyte;

+	buf += nbyte;

+    }

+    return True;

+}

+

+

+Public Bool

+_XimTransRead(

+    Xim			 im,

+    XPointer		 recv_buf,

+    int			 buf_len,

+    int			*ret_len)

+{

+    TransSpecRec	*spec = (TransSpecRec *)im->private.proto.spec;

+    int			 len;

+

+    if (buf_len == 0) {

+	*ret_len = 0;

+	return True;

+    }

+    if ((len = _XimXTransRead(spec->trans_conn, recv_buf, buf_len)) <= 0)

+	return False;

+    *ret_len = len;

+    return True;

+}

+

+

+Public void

+_XimTransFlush(

+    Xim		 im)

+{

+    return;

+}

+

+

+

+Public Bool

+_XimTransConf(

+    Xim		   	 im,

+    char	 	*address)

+{

+    char		*paddr;

+    TransSpecRec	*spec;

+

+    if (!(paddr = strdup(address)))

+	return False;

+

+    if (!(spec = Xcalloc(1, sizeof(TransSpecRec)))) {

+	Xfree(paddr);

+	return False;

+    }

+

+    spec->address   = paddr;

+

+    im->private.proto.spec     = (XPointer)spec;

+    im->private.proto.connect  = _XimTransConnect;

+    im->private.proto.shutdown = _XimTransShutdown;

+    im->private.proto.write    = _XimTransWrite;

+    im->private.proto.read     = _XimTransRead;

+    im->private.proto.flush    = _XimTransFlush;

+    im->private.proto.register_dispatcher = _XimTransRegisterDispatcher;

+    im->private.proto.call_dispatcher = _XimTransCallDispatcher;

+

+    return True;

+}

diff --git a/libX11/modules/im/ximcp/makefile b/libX11/modules/im/ximcp/makefile
new file mode 100644
index 000000000..ca80ad90e
--- /dev/null
+++ b/libX11/modules/im/ximcp/makefile
@@ -0,0 +1,34 @@
+DEFINES += XIM_t TRANS_CLIENT
+
+LIBRARY=libximcp
+
+CSRCS = \
+	imCallbk.c \
+	imDefFlt.c \
+	imDefIc.c \
+	imDefIm.c \
+	imDefLkup.c \
+	imDispch.c \
+	imEvToWire.c \
+	imExten.c \
+	imImSw.c \
+	imInsClbk.c \
+	imInt.c \
+	imLcFlt.c \
+	imLcGIc.c \
+	imLcIc.c \
+	imLcIm.c \
+	imLcLkup.c \
+	imLcPrs.c \
+	imLcSIc.c \
+	imRmAttr.c \
+	imRm.c \
+	imThaiFlt.c \
+	imThaiIc.c \
+	imThaiIm.c \
+	imTrans.c \
+	imTransR.c \
+	imTrX.c
+
+INCLUDES += ..\..\..\include\X11 ..\..\..\src\xlibi18n
+
diff --git a/libX11/modules/lc/Utf8/makefile b/libX11/modules/lc/Utf8/makefile
new file mode 100644
index 000000000..6f814c760
--- /dev/null
+++ b/libX11/modules/lc/Utf8/makefile
@@ -0,0 +1,6 @@
+LIBRARY = libxlcUTF8Load
+
+CSRCS=lcUTF8Load.c
+
+INCLUDES += ..\..\..\include\X11 ..\..\..\src\xlibi18n ..\..\..\src
+
diff --git a/libX11/modules/lc/def/makefile b/libX11/modules/lc/def/makefile
new file mode 100644
index 000000000..b89ce455d
--- /dev/null
+++ b/libX11/modules/lc/def/makefile
@@ -0,0 +1,5 @@
+LIBRARY = libxlcDef
+CSRCS = lcDefConv.c
+
+INCLUDES += ..\..\..\include\X11 ..\..\..\src\xlibi18n ..\..\..\src
+
diff --git a/libX11/modules/lc/gen/lcGenConv.c b/libX11/modules/lc/gen/lcGenConv.c
index 7a113a78a..c222c1f2a 100644
--- a/libX11/modules/lc/gen/lcGenConv.c
+++ b/libX11/modules/lc/gen/lcGenConv.c
@@ -1,3148 +1,3148 @@
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-/*
- *  (c) Copyright 1995 FUJITSU LIMITED
- *  This is source code modified by FUJITSU LIMITED under the Joint
- *  Development Agreement for the CDE/Motif PST.
- *
- *   Modifier: Masayoshi Shimamura      FUJITSU LIMITED
- *
- */
-/*
- *  2000
- *  Modifier: Ivan Pascal      The XFree86 Project
- */
-
-/*
- * A generic locale loader for all kinds of ISO-2022 based codesets.
- * Supports: all locales.
- * How: Provides generic converters for ISO-2022 based codesets. Extensible as
- *      far as ISO-2022 is extensible: codesets can be given by name in the
- *      stream. Overall distinction between GL (0x00..0x7f) and GR (0x80..0xff).
- *      In every chunk between escape sequences, the number of bytes per
- *      character (char_size) is constant.
- * Platforms: all systems.
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "XlcGeneric.h"
-#include <stdio.h>
-
-#if !defined(Lynx_22) && !defined(X_LOCALE)
-#define STDCVT
-#endif
-
-typedef struct _CTDataRec {
-    const char *name;
-    const char *encoding; /* Compound Text encoding */
-} CTDataRec, *CTData;
-
-static CTDataRec directionality_data[] =
-{
-    { "BEGIN_LEFT-TO-RIGHT_TEXT", "\2331]" },
-    { "BEGIN_RIGHT-TO-LEFT_TEXT", "\2332]" },
-    { "END_OF_STRING", "\233]" },
-};
-
-typedef struct _StateRec {
-    XLCd lcd;
-    /* CT state */
-    XlcCharSet charset;		/* charset of current state */
-    XlcCharSet GL_charset;	/* charset of initial state in GL */
-    XlcCharSet GR_charset;	/* charset of initial state in GR */
-    /* MB shift state */
-    CodeSet  GL_codeset;
-    CodeSet  GR_codeset;
-} StateRec, *State;
-
-#define GR      0x80    /* begins right-side (non-ascii) region */
-#define GL      0x7f    /* ends left-side (ascii) region        */
-#define ESC	0x1b
-#define CSI	0x9b
-#define STX	0x02
-
-#define isrightside(c)   ((c) & GR)
-#define isleftside(c)  (!isrightside(c))
-
-/* Forward declarations for local routines. */
-static int mbstocts (XlcConv conv, XPointer *from, int *from_left,
-		     XPointer *to, int *to_left, XPointer *args, int num_args);
-static int ctstombs (XlcConv conv, XPointer *from, int *from_left,
-		     XPointer *to, int *to_left, XPointer *args, int num_args);
-static int cstombs (XlcConv conv, XPointer *from, int *from_left,
-		    XPointer *to, int *to_left, XPointer *args, int num_args);
-
-/* ------------------------------------------------------------------------- */
-/*				Misc                                         */
-/* ------------------------------------------------------------------------- */
-
-static int
-compare(
-    const char *src,
-    const char *encoding,
-    int length)
-{
-    const char *start = src;
-
-    while (length-- > 0) {
-	if (*src++ != *encoding++)
-	    return 0;
-	if (*encoding == '\0')
-	    return src - start;
-    }
-
-    return 0;
-}
-
-static unsigned long
-conv_to_dest(
-    Conversion conv,
-    unsigned long code)
-{
-    int i;
-    int conv_num = conv->conv_num;
-    FontScope convlist = conv->convlist;
-
-    for (i = 0; i < conv_num; i++) {
-  	if (convlist[i].start <= code && code <= convlist[i].end) {
-	    switch (convlist[i].shift_direction) {
-	    case '+':
-	        return(code + convlist[i].shift);
-	    case '-':
-		return(code - convlist[i].shift);
-            default:
-		return(code);
-	    }
-	}
-    }
-
-    return(code);
-}
-
-static unsigned long
-conv_to_source(
-    Conversion conv,
-    unsigned long code)
-{
-    int i;
-    int conv_num;
-    FontScope convlist;
-    unsigned long start_p;
-    unsigned long start_m;
-    unsigned long end_p;
-    unsigned long end_m;
-
-    if (!conv)
-	return(code);
-
-    conv_num = conv->conv_num;
-    convlist = conv->convlist;
-
-    for (i = 0; i < conv_num; i++) {
-        switch (convlist[i].shift_direction) {
-	case '+':
-            start_p = convlist[i].start + convlist[i].shift;
-            end_p = convlist[i].end + convlist[i].shift;
-	    if (start_p <= code && code <= end_p)
-		return(code - convlist[i].shift);
-            break;
-	case '-':
-            start_m = convlist[i].start - convlist[i].shift;
-            end_m = convlist[i].end - convlist[i].shift;
-	    if (start_m <= code && code <= end_m)
-		return(code + convlist[i].shift);
-            break;
-        default:
-	    continue;
-	}
-    }
-
-    return(code);
-}
-
-static unsigned long
-mb_to_gi(
-    unsigned long mb,
-    CodeSet codeset)
-{
-    int i;
-    unsigned long mb_tmp, mask = 0;
-
-    if (codeset->mbconv) {
-	mb_tmp = conv_to_dest(codeset->mbconv, mb);
-	if (mb_tmp != mb)
-	    return(mb_tmp);
-    }
-
-    if (codeset->side == XlcC0 || codeset->side == XlcGL ||
-	codeset->side == XlcC1 || codeset->side == XlcGR) {
-
-        for (i = 0; i < codeset->length; i++)
-	    mask = (mask << 8) | GL;
-	mb = mb & mask;
-    }
-
-    return(mb);
-}
-
-static unsigned long
-gi_to_mb(
-    unsigned long glyph_index,
-    CodeSet codeset)
-{
-    int i;
-    unsigned long mask = 0;
-
-    if (codeset->side == XlcC1 || codeset->side == XlcGR) {
-        for (i = 0; i < codeset->length; i++)
-	    mask = (mask << 8) | GR;
-	glyph_index = glyph_index | mask;
-    }
-
-    if (codeset->mbconv)
-        return( conv_to_source(codeset->mbconv, glyph_index) );
-
-    return(glyph_index);
-}
-
-static Bool
-gi_to_wc(
-    XLCd lcd,
-    unsigned long glyph_index,
-    CodeSet codeset,
-    wchar_t *wc)
-{
-    unsigned char mask = 0;
-    unsigned long wc_encoding = codeset->wc_encoding;
-    int length = codeset->length;
-    unsigned long wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);
-
-    mask = (1 << wc_shift_bits) - 1 ;
-
-    for (*wc = 0, length--; length >= 0; length--)
-	*wc = (*wc << wc_shift_bits) | ((glyph_index >> (length * 8 )) & mask);
-
-    *wc = *wc | wc_encoding;
-
-    return(True);
-}
-
-static Bool
-wc_to_gi(
-    XLCd lcd,
-    wchar_t wc,
-    unsigned long *glyph_index,
-    CodeSet *codeset)
-{
-    int i;
-    unsigned char mask = 0;
-    unsigned long wc_encoding;
-    unsigned long wc_encode_mask = XLC_GENERIC(lcd, wc_encode_mask);
-    unsigned long wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);
-    int codeset_num = XLC_GENERIC(lcd, codeset_num);
-    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);
-
-    wc_encoding = wc & wc_encode_mask;
-    for (*codeset = NULL, i = 0; i < codeset_num; i++) {
-	if (wc_encoding == codeset_list[i]->wc_encoding) {
-	    *codeset = codeset_list[i];
-	    break;
-        }
-    }
-    if (*codeset == NULL)
-	return(False);
-
-    mask = (1 << wc_shift_bits) - 1 ;
-
-    wc = wc & ~wc_encode_mask;
-    for (*glyph_index = 0, i = (*codeset)->length - 1; i >= 0; i--)
-	*glyph_index = (*glyph_index << 8) |
-		      ( ((unsigned long)wc >> (i * wc_shift_bits)) & mask );
-
-    return(True);
-}
-
-static CodeSet
-mb_parse_codeset(
-    State state,
-    int num,
-    const char **inbufptr,
-    int *from_left)
-{
-    int len;
-    int from_len = (*from_left) + 1;
-    const char *src = (*inbufptr) - 1;
-    ParseInfo *mb_parse_list = XLC_GENERIC(state->lcd, mb_parse_list);
-    ParseInfo parse_info;
-    CodeSet codeset;
-
-    for (--num ; (parse_info = mb_parse_list[num]) != NULL; num++) {
-       len = compare(src, parse_info->encoding, from_len);
-       if (len > 0) {
-           codeset = parse_info->codeset;
-           if (parse_info->type == E_LSL)
-               state->GL_codeset = codeset;
-           else if (parse_info->type == E_LSR)
-               state->GR_codeset = codeset;
-           --len;
-           *inbufptr += len;
-           *from_left -= len;
-           return codeset;
-       }
-    }
-    return (CodeSet) NULL;
-}
-
-static CodeSet
-byteM_parse_codeset(
-    XLCd lcd,
-    const char *inbufptr)
-{
-    unsigned char ch;
-    CodeSet codeset;
-    ByteInfoList byteM;
-    ByteInfoListRec byteM_rec;
-    ByteInfo byteinfo;
-    ByteInfoRec byteinfo_rec;
-    Bool hit = False;
-    int i, j, k;
-
-    int codeset_num               = XLC_GENERIC(lcd, codeset_num);
-    CodeSet *codeset_list         = XLC_GENERIC(lcd, codeset_list);
-
-    for (i = 0; i < codeset_num; i++) {
-        codeset = codeset_list[i];
-        byteM = codeset->byteM;
-        if (codeset->side != XlcNONE || byteM == NULL)
-	    continue;
-
-        for (j = 0; j < codeset->length; j++) {
-	    ch = *((unsigned char *)(inbufptr + j));
-	    byteM_rec = byteM[j];
-	    byteinfo = byteM_rec.byteinfo;
-
-	    for (hit = False, k = 0; k < byteM_rec.byteinfo_num; k++) {
-	        byteinfo_rec = byteinfo[k];
-	        if (byteinfo_rec.start <= ch && ch <= byteinfo_rec.end) {
-	            hit = True;
-		    break;
-                }
-            }
-
-            if (!hit)
-		break;
-        }
-
-        if (hit)
-	    return(codeset);
-    }
-
-    return(NULL);
-}
-
-#define GLGR_parse_codeset(ch) \
-     (isrightside(ch) ? (state->GR_codeset) : \
-                        (state->GL_codeset) )
-
-static XlcCharSet
-gi_parse_charset(
-    unsigned long glyph_index,
-    CodeSet codeset)
-{
-    int i;
-    XlcCharSet *charset_list = codeset->charset_list;
-    int num_charsets = codeset->num_charsets;
-    ExtdSegment ctextseg = codeset->ctextseg;
-    XlcCharSet charset = NULL;
-    int area_num;
-    FontScope area;
-
-    /* lockup ct sequence */
-    for (i = 0; i < num_charsets; i++) {
-	charset = charset_list[i];
-        if (*charset->ct_sequence != '\0')
-	    break;
-    }
-    if (i >= num_charsets)
-	return(NULL);
-
-    if (charset->source != CSsrcStd)
-        return (charset);
-
-    if (!ctextseg)
-        return(charset);
-
-    area = ctextseg->area;
-    area_num = ctextseg->area_num;
-
-    for (i = 0; i < area_num; i++) {
-
-        if (area[i].start <= glyph_index && glyph_index <= area[i].end) {
-
-	    charset = ctextseg->charset;
-
-            if (*charset->ct_sequence == '\0')
-                return(NULL);
-
-	    break;
-	}
-    }
-
-    return(charset);
-}
-
-static Bool
-ct_parse_csi(
-    const char *inbufptr,
-    int *ctr_seq_len)
-{
-    int i;
-    int num = sizeof(directionality_data) / sizeof(directionality_data[0]);
-
-    for (i = 0; i < num; i++) {
-	if ( !(*ctr_seq_len = strlen(directionality_data[i].encoding)) )
-	    continue;
-
-	if ( strncmp(inbufptr, directionality_data[i].encoding,
-						*ctr_seq_len) == 0)
-            return(True);
-    }
-
-    return(False);
-}
-
-static int
-cmp_esc_sequence(
-    const char *inbufptr,
-    XlcCharSet charset)
-{
-    int seq_len, name_len, total_len;
-    unsigned char byte_m, byte_l;
-    const char *ct_sequence =  charset->ct_sequence;
-    const char *encoding_name = charset->encoding_name;
-
-    /* check esc sequence */
-    if ( !(seq_len = strlen(ct_sequence) ) )
-	return(0);
-    if ( strncmp(inbufptr, ct_sequence, seq_len) != 0)
-	return(0);
-
-    /* Standard Character Set Encoding ? */
-    if (charset->source == CSsrcStd)
-        return(seq_len);
-
-    /*
-     *   Non-Standard Character Set Encoding
-     *
-     * +--- ---+-----+-----+-----+----   ----+-----+-----+-------   ------+
-     * | ctseq |  M  |  L  |     encoding name     | STX |     contents   |
-     * +--- ---+-----+-----+-----+----   ----+-----+-----+-------   ------+
-     *  4bytes  1byte 1byte     variable length     1byte  variable length
-     * 	                   |                                              |
-     * 	                   +----------------------------------------------+
-     * 	                     rest length  = ((M - 128) * 128) + (L - 128)
-     */
-
-    /* get length of encoding name */
-    inbufptr += seq_len;
-    byte_m = *inbufptr++;
-    byte_l = *inbufptr++;
-    name_len = strlen(encoding_name);
-
-    if (((byte_m - 128) * 128 + (byte_l - 128) - 1) < name_len)
-	return(0);
-
-    if ( _XlcNCompareISOLatin1(inbufptr, encoding_name, name_len) != 0 )
-	return(0);
-
-    /* check STX (Start of Text) */
-    inbufptr = inbufptr + name_len;
-    if ( *inbufptr != STX )
-	return(0);
-
-    total_len = seq_len + name_len + 3;
-    return(total_len);
-}
-
-static Bool
-ct_parse_charset(
-    XLCd lcd,
-    const char *inbufptr,
-    XlcCharSet *charset,
-    int *ctr_seq_len)
-{
-    int i, j;
-    ExtdSegment ctextseg;
-    int num_charsets;
-    XlcCharSet *charset_list;
-    CodeSet codeset;
-    int codeset_num       = XLC_GENERIC(lcd, codeset_num);
-    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);
-    int segment_conv_num  = XLC_GENERIC(lcd, segment_conv_num);
-    SegConv segment_conv  = XLC_GENERIC(lcd, segment_conv);
-
-    /* get charset from XLC_XLOCALE by escape sequence */
-
-    for (i = 0; i < codeset_num; i++) {
-	codeset = codeset_list[i];
-
-	num_charsets = codeset->num_charsets;
-	charset_list = codeset->charset_list;
-	ctextseg     = codeset->ctextseg;
-
-	for (j = 0; j < num_charsets; j++) {
-	    *charset = charset_list[j];
-            if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))
-		return(True);
-	}
-
-	if (ctextseg) {
-	    *charset = ctextseg->charset;
-            if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))
-		return(True);
-	}
-    }
-
-    /* get charset from XLC_SEGMENTCONVERSION by escape sequence */
-
-    if (!segment_conv)
-	return(False);
-
-    for (i = 0; i < segment_conv_num; i++) {
-	*charset = segment_conv[i].source;
-        if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))
-	    return(True);
-	*charset = segment_conv[i].dest;
-        if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))
-	    return(True);
-    }
-
-    return(False);
-}
-
-static Bool
-segment_conversion(
-    XLCd lcd,
-    XlcCharSet *charset,
-    unsigned long *glyph_index)
-{
-    int i;
-    int segment_conv_num = XLC_GENERIC(lcd, segment_conv_num);
-    SegConv segment_conv = XLC_GENERIC(lcd, segment_conv);
-    FontScopeRec range;
-    ConversionRec conv_rec;
-
-    if (!segment_conv)
-	return(True);
-
-    for (i = 0; i < segment_conv_num; i++) {
-	if (segment_conv[i].source == *charset)
-	    break;
-    }
-
-    if (i >= segment_conv_num)
-	return(True);
-
-    range = segment_conv[i].range;
-    if (*glyph_index < range.start || range.end < *glyph_index)
-	return(True);
-
-    *charset = segment_conv[i].dest;
-    conv_rec.conv_num = segment_conv[i].conv_num;
-    conv_rec.convlist = segment_conv[i].conv;
-    *glyph_index = conv_to_dest(&conv_rec, *glyph_index);
-
-    return(True);
-}
-
-static CodeSet
-_XlcGetCodeSetFromName(
-    XLCd lcd,
-    const char *name)
-{
-    int i, j;
-    XlcCharSet charset;
-    int num_charsets;
-    XlcCharSet *charset_list;
-    CodeSet codeset;
-
-    int codeset_num       = XLC_GENERIC(lcd, codeset_num);
-    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);
-
-    for (i = 0; i < codeset_num; i++) {
-        codeset = codeset_list[i];
-
-        num_charsets = codeset->num_charsets;
-        charset_list = codeset->charset_list;
-
-        for (j = 0; j < num_charsets; j++) {
-            charset = charset_list[j];
-
-            if (!strlen(charset->name))
-                continue;
-            if ( strcmp(charset->name, name) == 0)
-                return(codeset);
-        }
-    }
-
-    return(NULL);
-}
-
-static Bool
-_XlcGetCodeSetFromCharSet(
-    XLCd lcd,
-    XlcCharSet charset,
-    CodeSet *codeset,
-    unsigned long *glyph_index)
-{
-    int j, num;
-    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);
-    XlcCharSet *charset_list;
-    int codeset_num, num_charsets;
-    Conversion ctconv;
-    unsigned long glyph_index_tmp = 0;
-    ExtdSegment ctextseg;
-
-    codeset_num = XLC_GENERIC(lcd, codeset_num);
-
-    for (num = 0 ; num < codeset_num; num++) {
-        *codeset = codeset_list[num];
-        ctconv = (*codeset)->ctconv;
-	ctextseg = (*codeset)->ctextseg;
-
-        num_charsets = (*codeset)->num_charsets;
-        charset_list = (*codeset)->charset_list;
-
-        glyph_index_tmp = conv_to_source(ctconv, *glyph_index);
-
-        if (charset->source == CSsrcStd) {
-
-            /* Standard Character Set Encoding */
-	    if (glyph_index_tmp == *glyph_index) {
-                for (j = 0; j < num_charsets; j++) {
-                    if (charset_list[j] == charset) {
-                        goto end_loop;
-                    }
-                }
-            }
-
-	} else {
-
-            /* Non-Standard Character Set Encoding */
-            for (j = 0; j < num_charsets; j++) {
-                if (charset_list[j] == charset) {
-                    goto end_loop;
-                }
-            }
-
-            if (glyph_index_tmp != *glyph_index) {
-		if (ctextseg && ctextseg->charset == charset) {
-		    goto end_loop;
-                }
-            }
-
-	}
-
-    }
-
-end_loop:
-    if (num < codeset_num) {
-	*glyph_index = glyph_index_tmp;
-	return(True);
-    }
-
-    return(False);
-}
-
-#define check_string_encoding(codeset)	(codeset->string_encoding)
-
-static void
-output_ulong_value(
-    char *outbufptr,
-    unsigned long code,
-    int length,
-    XlcSide side)
-{
-    int i;
-
-    for (i = (length - 1) * 8; i >= 0; i -= 8) {
-	*outbufptr = ( code >> i) & 0xff;
-
-	if (side == XlcC0 || side == XlcGL) {
-	    *outbufptr = *outbufptr & GL;
-	} else if (side == XlcC1 || side == XlcGR) {
-	    *outbufptr = *outbufptr | GR;
-	}
-
-	outbufptr++;
-    }
-}
-
-/* -------------------------------------------------------------------------- */
-/*				Init                                          */
-/* -------------------------------------------------------------------------- */
-
-static XlcCharSet default_GL_charset = 0;
-static XlcCharSet default_GR_charset = 0;
-
-static void
-init_state(
-    XlcConv conv)
-{
-    State state = (State) conv->state;
-
-    /* for CT */
-    state->charset = NULL;
-    state->GL_charset = default_GL_charset;
-    state->GR_charset = default_GR_charset;
-
-    /* for MB shift state */
-    state->GL_codeset = XLC_GENERIC(state->lcd, initial_state_GL);
-    state->GR_codeset = XLC_GENERIC(state->lcd, initial_state_GR);
-}
-
-/* -------------------------------------------------------------------------- */
-/*				Convert                                       */
-/* -------------------------------------------------------------------------- */
-
-static int
-mbstowcs_org(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long mb = 0;
-    wchar_t wc;
-
-    int length = 0, len_left = 0;
-    int unconv_num = 0;
-    int num;
-
-    CodeSet codeset = NULL;
-
-    const char *inbufptr = *from;
-    wchar_t *outbufptr = (wchar_t *) *to;
-    int from_size = *from_left;
-
-    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);
-
-    if (from == NULL || *from == NULL) {
-	_XlcResetConverter(conv);
-        return( 0 );
-    }
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-	ch = *inbufptr++;
-	(*from_left)--;
-
-	/* null ? */
-	if (!ch) {
-            if (outbufptr) {*outbufptr++ = L'\0';}
-	    (*to_left)--;
-
-	    /* error check */
-            if (len_left) {
-	        unconv_num += (length - len_left);
-		len_left = 0;
-            }
-
-	    continue;
-	}
-
-	/* same mb char data */
-        if (len_left)
-	    goto output_one_wc;
-
-        /* next mb char data for single shift ? */
-	if (mb_parse_table && (num = mb_parse_table[ch]) ) {
-	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);
-            if (codeset != NULL) {
-		length = len_left = codeset->length;
-		mb = 0;
-		continue;
-	    }
-        }
-
-	/* next mb char data for byteM ? */
-	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))
-	    goto next_mb_char;
-
-	/* next mb char data for GL or GR side ? */
-	if ((codeset = GLGR_parse_codeset(ch)))
-	    goto next_mb_char;
-
-        /* can't find codeset for the ch */
-        unconv_num++;
-        continue;
-
-next_mb_char:
-        length = len_left = codeset->length;
-	mb = 0;
-
-output_one_wc:
-	mb = (mb << 8) | ch;  /* 1 byte left shift */
-	len_left--;
-
-        /* last of one mb char data */
-        if (!len_left) {
-            gi_to_wc(lcd, mb_to_gi(mb, codeset), codeset, &wc);
-            if (outbufptr) {*outbufptr++ = wc;}
-	    (*to_left)--;
-        }
-
-    } /* end of while */
-
-    /* error check on last char */
-    if (len_left) {
-	inbufptr -= (length - len_left);
-	(*from_left) += (length - len_left);
-	unconv_num += (length - len_left);
-    }
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_mbstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const char *src = *((const char **) from);
-    wchar_t *dst = *((wchar_t **) to);
-    int src_left = *from_left;
-    int dst_left = *to_left;
-    int length, unconv_num = 0;
-
-    while (src_left > 0 && dst_left > 0) {
-	length = mbtowc(dst, src, src_left);
-
-	if (length > 0) {
-	    src += length;
-	    src_left -= length;
-	    if (dst)
-	        dst++;
-	    dst_left--;
-	} else if (length < 0) {
-	    src++;
-	    src_left--;
-	    unconv_num++;
-        } else {
-            /* null ? */
-            src++;
-            src_left--;
-            if (dst)
-                *dst++ = L'\0';
-            dst_left--;
-        }
-    }
-
-    *from = (XPointer) src;
-    if (dst)
-	*to = (XPointer) dst;
-    *from_left = src_left;
-    *to_left = dst_left;
-
-    return unconv_num;
-}
-
-static int
-wcstombs_org(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    char *encoding;
-    unsigned long mb, glyph_index;
-    wchar_t wc;
-
-    int length;
-    int unconv_num = 0;
-
-    CodeSet codeset;
-
-    const wchar_t *inbufptr = (const wchar_t *) *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    const char *default_string = XLC_PUBLIC(lcd, default_string);
-    int defstr_len = strlen(default_string);
-
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-        wc = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!wc) {
-            if (outbufptr) {*outbufptr++ = '\0';}
-            (*to_left)--;
-
-            continue;
-        }
-
-        /* convert */
-	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {
-
-	    /* output default_string of XDefaultString() */
-            if (*to_left < defstr_len)
-		break;
-	    if (outbufptr) {
-                strncpy((char *)outbufptr, default_string, defstr_len);
-                outbufptr += defstr_len;
-            }
-	    (*to_left) -= defstr_len;
-
-            unconv_num++;
-
-        } else {
-            mb = gi_to_mb(glyph_index, codeset);
-	    if (codeset->parse_info) {
-                Bool need_shift = False;
-                switch (codeset->parse_info->type) {
-                    case E_LSL :
-                        if (codeset != state->GL_codeset) {
-                            need_shift = True;
-                            state->GL_codeset = codeset;
-                        }
-                        break;
-                    case E_LSR :
-                        if (codeset != state->GR_codeset) {
-                            need_shift = True;
-                            state->GR_codeset = codeset;
-                        }
-                        break;
-                    /* case E_SS */
-                    default:
-                        need_shift = True;
-                }
-
-		/* output shift sequence */
-                if (need_shift) {
-		    encoding = codeset->parse_info->encoding;
-                    length = strlen(encoding);
-                    if (*to_left < length)
-		        break;
-	            if (outbufptr) {
-                        strncpy((char *)outbufptr, encoding, length);
-	                outbufptr += length;
-                    }
-	            (*to_left) -= length;
-                }
-            }
-
-            /* output characters */
-	    length = codeset->length;
-            if (*to_left < length)
-		break;
-
-	    if (outbufptr) {
-		output_ulong_value(outbufptr, mb, length, XlcNONE);
-	        outbufptr += length;
-	    }
-
-	    (*to_left) -= length;
-        }
-
-    } /* end of while */
-
-    *from = (XPointer) ((const wchar_t *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_wcstombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const wchar_t *src = *((const wchar_t **) from);
-    char *dst = *((char **) to);
-    int src_left = *from_left;
-    int dst_left = *to_left;
-    int length, unconv_num = 0;
-
-    while (src_left > 0 && dst_left >= MB_CUR_MAX) {
-	length = wctomb(dst, *src);		/* XXX */
-
-        if (length > 0) {
-	    src++;
-	    src_left--;
-	    if (dst)
-		dst += length;
-	    dst_left -= length;
-	} else if (length < 0) {
-	    src++;
-	    src_left--;
-	    unconv_num++;
-	}
-    }
-
-    *from = (XPointer) src;
-    if (dst)
-      *to = (XPointer) dst;
-    *from_left = src_left;
-    *to_left = dst_left;
-
-    return unconv_num;
-}
-
-static int
-wcstocts(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned long glyph_index;
-    wchar_t wc;
-
-    int total_len, seq_len, name_len;
-    int unconv_num = 0;
-    Bool first_flag = True, standard_flag;
-    XlcSide side;
-
-    CodeSet codeset;
-    XlcCharSet charset, old_charset = NULL;
-    const char *ct_sequence;
-
-    const wchar_t *inbufptr = (const wchar_t *) *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-    char *ext_seg_len = NULL;
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-        wc = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!wc) {
-            if (outbufptr) {*outbufptr++ = '\0';}
-            (*to_left)--;
-
-            continue;
-        }
-
-        /* convert */
-	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {
-            unconv_num++;
-	    continue;
-        }
-
-        /* parse charset */
-        if ( !(charset = gi_parse_charset(glyph_index, codeset)) ) {
-            unconv_num++;
-	    continue;
-        }
-
-        /* Standard Character Set Encoding ? */
-	standard_flag = charset->source == CSsrcStd ? True : False;
-
-        /*
-         *   Non-Standard Character Set Encoding
-         *
-         * +-----+-----+-----+-----+-----+-----+-----+----   ----+-----+-----+
-         * |     esc sequence      |  M  |  L  |     encoding name     | STX |
-         * +-----+-----+-----+-----+-----+-----+-----+----   ----+-----+-----+
-         *           4bytes         1byte 1byte     variable length     1byte
-         * 	                   |                                         |
-         * 	                   +-----------------------------------------+
-         * 	                     name length  = ((M - 128) * 128) + (L - 128)
-         */
-
-        /* make encoding data */
-	ct_sequence = charset->ct_sequence;
-	side = charset->side;
-        seq_len = strlen(ct_sequence);
-	if (standard_flag) {
-            name_len = 0;
-	    total_len = seq_len;
-	} else {
-            name_len = strlen(charset->encoding_name) + 1;
-	    total_len = seq_len + name_len + 2;
-	}
-
-        /* output escape sequence of CT */
-	if ( (charset != old_charset) &&
-	    !(first_flag && charset->string_encoding) ){
-
-            if ( (ext_seg_len != NULL) && outbufptr) {
-                int i = (outbufptr - ext_seg_len) - 2;
-                *ext_seg_len++ = i / 128 + 128;
-                *ext_seg_len   = i % 128 + 128;
-                ext_seg_len = NULL;
-            }
-
-	    if (*to_left < total_len + 1) {
-                unconv_num++;
-	        break;
-	    }
-
-	    if (outbufptr) {
-	        strcpy((char *)outbufptr, ct_sequence);
-		outbufptr += seq_len;
-
-                if (!standard_flag) {
-                    const char *i = charset->encoding_name;
-                    ext_seg_len = outbufptr;
-                    outbufptr += 2;
-	            for (; *i ; i++)
-                        *outbufptr++ = ((*i >= 'A') && (*i <= 'Z')) ?
-                                       *i - 'A' + 'a' : *i;
-		    *outbufptr++ = STX;
-                }
-	    }
-
-	    (*to_left) -= total_len;
-
-	    first_flag = False;
-	    old_charset = charset;
-	}
-
-        /* output glyph index */
-	if (codeset->ctconv)
-            glyph_index = conv_to_dest(codeset->ctconv, glyph_index);
-        if (*to_left < charset->char_size) {
-            unconv_num++;
-	    break;
-        }
-
-	if (outbufptr) {
-	   output_ulong_value(outbufptr, glyph_index, charset->char_size, side);
-	   outbufptr += charset->char_size;
-	}
-
-	(*to_left) -= charset->char_size;
-
-    } /* end of while */
-
-    if ( (ext_seg_len != NULL) && outbufptr) {
-        int i = (outbufptr - ext_seg_len) - 2;
-        *ext_seg_len++ = i / 128 + 128;
-        *ext_seg_len   = i % 128 + 128;
-    }
-
-    *from = (XPointer) ((const wchar_t *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_wcstocts(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left) * MB_CUR_MAX;
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = stdc_wcstombs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = buf_ptr1 - buf_ptr2;
-
-    unconv_num2 = mbstocts(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-ctstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long glyph_index = 0;
-    wchar_t wc;
-
-    int ctr_seq_len = 0, gi_len_left = 0, gi_len = 0;
-    int unconv_num = 0;
-
-    CodeSet codeset = NULL;
-    XlcCharSet charset_tmp;
-
-    const char *inbufptr = *from;
-    wchar_t *outbufptr = (wchar_t *) *to;
-    int from_size = *from_left;
-
-    _XlcResetConverter(conv); /* ??? */
-
-    if (from == NULL || *from == NULL) {
-	_XlcResetConverter(conv);
-        return( 0 );
-    }
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-	ch = *inbufptr++;
-	(*from_left)--;
-
-	/* null ? */
-	if (!ch) {
-            if (outbufptr) {*outbufptr++ = L'\0';}
-	    (*to_left)--;
-
-	    /* error check */
-            if (gi_len_left) {
-	        unconv_num += (gi_len - gi_len_left);
-		gi_len_left = 0;
-            }
-
-	    continue;
-	}
-
-	/* same glyph_index data */
-        if (gi_len_left)
-	    goto output_one_wc;
-
-        /* control sequence ? */
-        if (ch == CSI) {
-            if ( !ct_parse_csi(inbufptr - 1, &ctr_seq_len) )
-	        goto skip_the_seg;
-
-	    if (*from_left + 1 < ctr_seq_len) {
-		inbufptr--;
-		(*from_left)++;
-		unconv_num += *from_left;
-		break;
-	    }
-
-            /* skip the control sequence */
-	    inbufptr += (ctr_seq_len - 1);
-	    *from_left -= (ctr_seq_len - 1);
-
-            continue;
-	}
-
-        /* escape sequence ? */
-        if (ch == ESC) {
-	    if ( !ct_parse_charset(lcd,
-			inbufptr - 1, &state->charset, &ctr_seq_len) )
-		goto skip_the_seg;
-
-	    if (state->charset->side == XlcC0 ||
-		state->charset->side == XlcGL)
-	      {
-		state->GL_charset = state->charset;
-	      }
-	    else if (state->charset->side == XlcC1 ||
-		     state->charset->side == XlcGR)
-	      {
-		state->GR_charset = state->charset;
-	      }
-	    else if (state->charset->side == XlcGLGR)
-	      {
-		state->GL_charset = state->charset;
-		state->GR_charset = state->charset;
-	      }
-
-	    if (*from_left + 1 < ctr_seq_len) {
-		inbufptr--;
-		(*from_left)++;
-		unconv_num += *from_left;
-		break;
-	    }
-
-            /* skip the escape sequence */
-	    inbufptr += (ctr_seq_len - 1);
-	    *from_left -= (ctr_seq_len - 1);
-
-            continue;
-        }
-
- 	/* check current state */
-	if (isleftside(ch))
-	  state->charset = state->GL_charset;
-	else
-	  state->charset = state->GR_charset;
-
-	gi_len = gi_len_left = state->charset->char_size;
-	glyph_index = 0;
-
-output_one_wc:
-        if (state->charset->side == XlcC1 || state->charset->side == XlcGR)
-            glyph_index = (glyph_index << 8) | (ch & GL);
-        else
-            glyph_index = (glyph_index << 8) | ch;
-
-	gi_len_left--;
-
-        /* last of one glyph_index data */
-        if (!gi_len_left) {
-
-	    /* segment conversion */
-	    charset_tmp = state->charset;
-	    segment_conversion(lcd, &charset_tmp, &glyph_index);
-
-            /* get codeset */
-            if ( !_XlcGetCodeSetFromCharSet(lcd, charset_tmp,
-						&codeset, &glyph_index) ) {
-		unconv_num += gi_len;
-		continue;
-            }
-
-            /* convert glyph index to wicd char */
-            gi_to_wc(lcd, glyph_index, codeset, &wc);
-            if (outbufptr) {*outbufptr++ = wc;}
-	    (*to_left)--;
-        }
-
-        continue;
-
-skip_the_seg:
-	/* skip until next escape or control sequence */
-        while ( *from_left ) {
-	    ch = *inbufptr++;
-	    (*from_left)--;
-	    unconv_num++;
-
-            if (ch == ESC || ch == CSI) {
-		inbufptr--;
-		(*from_left)++;
-		unconv_num--;
-		break;
-	    }
-        }
-
-        if ( !(*from_left) )
-	    break;
-
-    } /* end of while */
-
-    /* error check on last char */
-    if (gi_len_left) {
-	inbufptr -= (gi_len - gi_len_left);
-	(*from_left) += (gi_len - gi_len_left);
-	unconv_num += (gi_len - gi_len_left);
-    }
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-cstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long glyph_index = 0;
-    wchar_t wc;
-    int gi_len_left = 0, gi_len = 0;
-
-    int unconv_num = 0;
-
-    CodeSet codeset = NULL;
-    XlcCharSet charset, charset_tmp;
-
-    const char *inbufptr = *from;
-    wchar_t *outbufptr = (wchar_t *) *to;
-    int from_size = *from_left;
-
-    if (from == NULL || *from == NULL) {
-        return( 0 );
-    }
-
-    charset = (XlcCharSet) args[0];
-
-    while (*from_left && *to_left) {
-
-        if (!gi_len_left) {
-            gi_len_left = gi_len = charset->char_size;
-            glyph_index = 0;
-        }
-
-	ch = *inbufptr++;
-	(*from_left)--;
-
-	/* null ? */
-	if (!ch) {
-            if (outbufptr) {*outbufptr++ = L'\0';}
-	    (*to_left)--;
-
-	    /* error check */
-            if (gi_len_left) {
-	        unconv_num += (gi_len - gi_len_left);
-		gi_len_left = 0;
-            }
-	    continue;
-	}
-
-        if (charset->side == XlcC1 || charset->side == XlcGR)
-            glyph_index = (glyph_index << 8) | (ch & GL);
-        else
-            glyph_index = (glyph_index << 8) | ch;
-
-	gi_len_left--;
-
-        /* last of one glyph_index data */
-        if (!gi_len_left) {
-
-	    /* segment conversion */
-	    charset_tmp = charset;
-	    segment_conversion(lcd, &charset_tmp, &glyph_index);
-
-            /* get codeset */
-            if ( !_XlcGetCodeSetFromCharSet(lcd, charset_tmp,
-						&codeset, &glyph_index) ) {
-		unconv_num += gi_len;
-		continue;
-            }
-
-            /* convert glyph index to wicd char */
-            gi_to_wc(lcd, glyph_index, codeset, &wc);
-            if (outbufptr) {*outbufptr++ = wc;}
-	    (*to_left)--;
-        }
-
-    } /* end of while */
-
-    /* error check on last char */
-    if (gi_len_left) {
-	inbufptr -= (gi_len - gi_len_left);
-	(*from_left) += (gi_len - gi_len_left);
-	unconv_num += (gi_len - gi_len_left);
-    }
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_ctstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left) * MB_CUR_MAX;
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = ctstombs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = buf_ptr1 - buf_ptr2;
-
-    unconv_num2 = stdc_mbstowcs(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-stdc_cstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left) * MB_CUR_MAX;
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = cstombs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = buf_ptr1 - buf_ptr2;
-
-    unconv_num2 = stdc_mbstowcs(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-mbstocts(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left);
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = mbstowcs_org(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);
-
-    unconv_num2 += wcstocts(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-mbstostr(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long mb = 0;
-
-    int length = 0, len_left = 0;
-    int unconv_num = 0;
-    int num;
-
-    CodeSet codeset = NULL;
-
-    const char *inbufptr = *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);
-
-    if (from == NULL || *from == NULL) {
-	_XlcResetConverter(conv);
-        return( 0 );
-    }
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-	ch = *inbufptr++;
-	(*from_left)--;
-
-	/* null ? */
-	if (!ch) {
-            if (outbufptr) {*outbufptr++ = '\0';}
-	    (*to_left)--;
-
-            /* error check */
-            if (len_left) {
-                unconv_num += (length - len_left);
-                len_left = 0;
-            }
-
-	    continue;
-	}
-
-        /* same mb char data */
-        if (len_left)
-            goto output_one_mb;
-
-        /* next mb char data for single shift ? */
-	if (mb_parse_table && (num = mb_parse_table[ch]) ) {
-	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);
-            if (codeset != NULL) {
-		length = len_left = codeset->length;
-		mb = 0;
-		continue;
-	    }
-        }
-
-	/* next char data : byteM ? */
-	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))
-	    goto next_mb_char;
-
-	/* next char data : GL or GR side ? */
-	if ((codeset = GLGR_parse_codeset(ch)))
-	    goto next_mb_char;
-
-        /* can't find codeset for the ch */
-        unconv_num++;
-        continue;
-
-next_mb_char:
-        length = len_left = codeset->length;
-        mb = 0;
-
-output_one_mb:
-        mb = (mb << 8) | ch;  /* 1 byte left shift */
-        len_left--;
-
-        /* last of one mb char data */
-        if (!len_left) {
-            if (check_string_encoding(codeset)) {
-                if (outbufptr) {*outbufptr++ = mb & 0xff;}
-		(*to_left)--;
-            } else {
-	        unconv_num++;
-            }
-        }
-
-    } /* end of while */
-
-    /* error check on last char */
-    if (len_left) {
-        inbufptr -= (length - len_left);
-        (*from_left) += (length - len_left);
-        unconv_num += (length - len_left);
-    }
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-mbtocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long mb = 0;
-    unsigned long glyph_index;
-
-    int length = 0, len_left = 0, char_len;
-    int unconv_num = 0;
-    int num;
-    XlcSide side;
-
-    CodeSet codeset = NULL;
-    XlcCharSet charset = NULL;
-
-    const char *inbufptr = *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);
-
-    if (from == NULL || *from == NULL) {
-	_XlcResetConverter(conv);
-        return( 0 );
-    }
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-	ch = *inbufptr++;
-	(*from_left)--;
-
-	/* null ? */
-	if (!ch) {
-            unconv_num = 1;
-            if (len_left)
-	        unconv_num += (length - len_left);
-	    break;
-	}
-
-	/* same mb char data */
-        if (len_left)
-	    goto output;
-
-        /* next mb char data for single shift ? */
-	if (mb_parse_table && (num = mb_parse_table[ch]) ) {
-	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);
-            if (codeset != NULL) {
-		length = len_left = codeset->length;
-		mb = 0;
-		continue;
-	    }
-        }
-
-	/* next mb char data for byteM ? */
-	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))
-	    goto next_mb_char;
-
-	/* next mb char data for GL or GR side ? */
-	if ((codeset = GLGR_parse_codeset(ch)))
-	    goto next_mb_char;
-
-        /* can't find codeset for the ch */
-        unconv_num = 1;
-        break;
-
-next_mb_char:
-        length = len_left = codeset->length;
-	mb = 0;
-
-output:
-	mb = (mb << 8) | ch;  /* 1 byte left shift */
-	len_left--;
-
-        /* last of one mb char data */
-        if (!len_left) {
-            glyph_index = mb_to_gi(mb, codeset);
-            if (!(charset = gi_parse_charset(glyph_index, codeset))) {
-                unconv_num = length;
-                break;
-            }
-            char_len = charset->char_size;
-	    side = charset->side;
-
-            /* output glyph index */
-            if (codeset->ctconv)
-                glyph_index = conv_to_dest(codeset->ctconv, glyph_index);
-            if (*to_left < char_len) {
-                unconv_num = length;
-                break;
-            }
-
-	    if (outbufptr) {
-	        output_ulong_value(outbufptr, glyph_index, char_len, side);
-	        outbufptr += char_len;
-	    }
-
-            (*to_left) -= char_len;
-
-            break;
-        }
-
-    } /* end of while */
-
-    /* error end */
-    if (unconv_num) {
-        *from = (XPointer) ((const char *) *from + from_size);
-        *from_left = 0;
-        *to = (XPointer) outbufptr;
-	return -1;
-    }
-
-    /* nomal end */
-    *from = (XPointer) inbufptr;
-    *to = (XPointer) outbufptr;
-
-    if (num_args > 0)
-        *((XlcCharSet *) args[0]) = charset;
-
-    return 0;
-}
-
-static int
-mbstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    int ret;
-    XlcCharSet charset_old, charset = NULL;
-    XPointer tmp_args[1];
-
-    const char *inbufptr;
-    int	in_left;
-    char *outbufptr;
-    int	out_left;
-    tmp_args[0] = (XPointer) &charset;
-
-    ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, 1);
-    charset_old = charset;
-
-    while ( ret == 0 && *from_left && *to_left) {
-	inbufptr = *from;
-	in_left = *from_left;
-	outbufptr = *to;
-	out_left = *to_left;
-        ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, 1);
-        if (charset_old != charset) {
-           *from = (XPointer) inbufptr;
-           *from_left = in_left;
-           *to = (XPointer) outbufptr;
-           *to_left = out_left;
-           break;
-        }
-    }
-
-    if (num_args > 0)
-        *((XlcCharSet *) args[0]) = charset_old;
-
-    /* error end */
-    if (ret != 0)
-	return( -1 );
-
-    return(0);
-}
-
-static int
-wcstostr(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    char *encoding;
-    unsigned long mb, glyph_index;
-    wchar_t wc;
-
-    int length;
-    int unconv_num = 0;
-
-    CodeSet codeset;
-
-    const wchar_t *inbufptr = (const wchar_t *) *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    const char *default_string = XLC_PUBLIC(lcd, default_string);
-    int defstr_len = strlen(default_string);
-
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-        wc = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!wc) {
-            if (outbufptr) {*outbufptr++ = '\0';}
-            (*to_left)--;
-
-            continue;
-        }
-
-        /* convert */
-	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {
-
-	    /* output default_string of XDefaultString() */
-            if (*to_left < defstr_len)
-		break;
-	    if (outbufptr) {
-                strncpy((char *)outbufptr, default_string, defstr_len);
-	        outbufptr += defstr_len;
-            }
-	    (*to_left) -= defstr_len;
-
-            unconv_num++;
-
-        } else {
-            mb = gi_to_mb(glyph_index, codeset);
-
-	    if (check_string_encoding(codeset)) {
-	        if (codeset->parse_info) {
-                    Bool need_shift = False;
-                    switch (codeset->parse_info->type) {
-                        case E_LSL :
-                            if (codeset != state->GL_codeset) {
-                                need_shift = True;
-                                state->GL_codeset = codeset;
-                            }
-                            break;
-                        case E_LSR :
-                            if (codeset != state->GR_codeset) {
-                                need_shift = True;
-                                state->GR_codeset = codeset;
-                            }
-                            break;
-                        /* case E_SS */
-                        default:
-                            need_shift = True;
-                    }
-
-		    /* output shift sequence */
-                    if (need_shift) {
-		        encoding = codeset->parse_info->encoding;
-                        length = strlen(encoding);
-                        if (*to_left < length)
-		            break;
-
-	                if (outbufptr) {
-                            strncpy((char *)outbufptr, encoding, length);
-	                    outbufptr += length;
-                        }
-	                (*to_left) -= length;
-                    }
-                }
-
-                /* output characters */
-	        length = codeset->length;
-                if (*to_left < length)
-		    break;
-
-	        if (outbufptr) {
-	            output_ulong_value(outbufptr, mb, length, XlcNONE);
-	            outbufptr += length;
-	        }
-
-	        (*to_left) -= length;
-            } else {
-		unconv_num++;
-            }
-        }
-
-    } /* end of while */
-
-    *from = (XPointer) ((const wchar_t *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_wcstostr(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left) * MB_CUR_MAX;
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = stdc_wcstombs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = buf_ptr1 - buf_ptr2;
-
-    unconv_num2 = mbstostr(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-wctocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    wchar_t wc;
-    unsigned long glyph_index;
-
-    int char_len;
-    int unconv_num = 0;
-    XlcSide side;
-
-    CodeSet codeset;
-    XlcCharSet charset = NULL;
-
-    const wchar_t *inbufptr = (const wchar_t *) *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    if (*from_left && *to_left) {
-
-        wc = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!wc) {
-            unconv_num = 1;
-            goto end;
-        }
-
-        /* convert */
-	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {
-            unconv_num = 1;
-	    goto end;
-        }
-
-        if ( !(charset = gi_parse_charset(glyph_index, codeset)) ) {
-            unconv_num = 1;
-	    goto end;
-        }
-	char_len = charset->char_size;
-	side = charset->side;
-
-        /* output glyph index */
-	if (codeset->ctconv)
-            glyph_index = conv_to_dest(codeset->ctconv, glyph_index);
-        if (*to_left < char_len) {
-            unconv_num++;
-	    goto end;
-        }
-
-        if (outbufptr) {
-            output_ulong_value(outbufptr, glyph_index, char_len, side);
-            outbufptr += char_len;
-        }
-
-	(*to_left) -= char_len;
-
-    }
-
-end:
-
-     /* error end */
-    if (unconv_num) {
-        *from = (XPointer) ((const wchar_t *) *from + from_size);
-        *from_left = 0;
-        *to = (XPointer) outbufptr;
-        return -1;
-    }
-
-    /* nomal end */
-    *from = (XPointer) inbufptr;
-    *to = (XPointer) outbufptr;
-
-    if (num_args > 0)
-        *((XlcCharSet *) args[0]) = charset;
-
-    return 0;
-}
-
-static int
-stdc_wctocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const wchar_t *src = *((const wchar_t **) from);
-    wchar_t wch;
-    XPointer tmp_from, save_from = *from;
-    char tmp[32];
-    int length, ret, src_left = *from_left;
-    int from_size = *from_left;
-
-    if (src_left > 0 && *to_left > 0) {
-	if ((wch = *src)) {
-	    length = wctomb(tmp, wch);
-	} else {
-	    goto end;
-	}
-
-	if (length < 0)
-	    goto end;
-
-	tmp_from = (XPointer) tmp;
-	ret = mbtocs(conv, &tmp_from, &length, to, to_left, args, num_args);
-	if (ret < 0)
-	    goto end;
-
-	src++;
-	src_left--;
-    }
-
-end:
-     /* error end */
-    if (save_from == (XPointer) src) {
-        *from = (XPointer) ((const wchar_t *) *from + from_size);
-        *from_left = 0;
-	return -1;
-    }
-
-    /* nomal end */
-    *from = (XPointer) src;
-    *from_left = src_left;
-
-    return 0;
-}
-
-static int
-wcstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    int ret;
-    XlcCharSet charset_old, charset = NULL;
-    XPointer tmp_args[1];
-
-    const wchar_t *inbufptr;
-    int	in_left;
-    XPointer outbufptr;
-    int	out_left;
-    tmp_args[0] = (XPointer) &charset;
-
-    ret = wctocs(conv, from, from_left, to, to_left, tmp_args, 1);
-    charset_old = charset;
-
-    while ( ret == 0 && *from_left && *to_left) {
-	inbufptr = (const wchar_t *) *from;
-	in_left = *from_left;
-	outbufptr = *to;
-	out_left = *to_left;
-        ret = wctocs(conv, from, from_left, to, to_left, tmp_args, 1);
-        if (charset_old != charset) {
-           *from = (XPointer) inbufptr;
-           *from_left = in_left;
-           *to = (XPointer) outbufptr;
-           *to_left = out_left;
-           break;
-        }
-    }
-
-    if (num_args > 0)
-        *((XlcCharSet *) args[0]) = charset_old;
-
-    /* error end */
-    if (ret != 0)
-	return( -1 );
-
-    return(0);
-}
-
-#ifdef STDCVT
-
-static int
-stdc_wcstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    int ret;
-    XlcCharSet charset_old, charset = NULL;
-    XPointer tmp_args[1];
-
-    const wchar_t *inbufptr;
-    int	in_left;
-    XPointer outbufptr;
-    int	out_left;
-    tmp_args[0] = (XPointer) &charset;
-
-    ret = stdc_wctocs(conv, from, from_left, to, to_left, tmp_args, 1);
-    charset_old = charset;
-
-    while ( ret == 0 && *from_left && *to_left ) {
-	inbufptr = (const wchar_t *) *from;
-	in_left = *from_left;
-	outbufptr = *to;
-	out_left = *to_left;
-        ret = stdc_wctocs(conv, from, from_left, to, to_left, tmp_args, 1);
-        if (charset_old != charset) {
-           *from = (XPointer) inbufptr;
-           *from_left = in_left;
-           *to = (XPointer) outbufptr;
-           *to_left = out_left;
-           break;
-        }
-    }
-
-    if (num_args > 0)
-        *((XlcCharSet *) args[0]) = charset_old;
-
-    /* error end */
-    if (ret != 0)
-	return( -1 );
-
-    return(0);
-}
-
-#endif
-
-static int
-ctstombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left);
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = ctstowcs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);
-
-    unconv_num2 += wcstombs_org(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-cstombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left);
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = cstowcs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);
-
-    unconv_num2 += wcstombs_org(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-static int
-strtombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    char *encoding;
-    unsigned long mb, glyph_index;
-    unsigned char ch;
-
-    int length;
-    int unconv_num = 0;
-
-    CodeSet codeset;
-
-    const char *inbufptr = *from;
-    char *outbufptr = *to;
-    int from_size = *from_left;
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-        ch = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!ch) {
-            if (outbufptr) {*outbufptr++ = '\0';}
-            (*to_left)--;
-
-            continue;
-        }
-
-        /* convert */
-        if (isleftside(ch)) {
-	    glyph_index = ch;
-	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GL");
-	} else {
-	    glyph_index = ch & GL;
-	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GR");
-	}
-
-        if (!codeset) {
-	    unconv_num++;
-	    continue;
-        }
-
-        mb = gi_to_mb(glyph_index, codeset);
-	if (codeset->parse_info) {
-            Bool need_shift = False;
-            switch (codeset->parse_info->type) {
-                case E_LSL :
-                    if (codeset != state->GL_codeset) {
-                        need_shift = True;
-                        state->GL_codeset = codeset;
-                    }
-                    break;
-                case E_LSR :
-                    if (codeset != state->GR_codeset) {
-                        need_shift = True;
-                        state->GR_codeset = codeset;
-                    }
-                    break;
-                /* case E_SS */
-                default:
-                    need_shift = True;
-            }
-
-	    /* output shift sequence */
-            if (need_shift) {
-                encoding = codeset->parse_info->encoding;
-                length = strlen(encoding);
-                if (*to_left < length)
-		    break;
-	        if (outbufptr) {
-                    strncpy((char *)outbufptr, encoding, length);
-	            outbufptr += length;
-                }
-	        (*to_left) -= length;
-	    }
-        }
-
-        /* output characters */
-	length = codeset->length;
-        if (*to_left < length)
-	    break;
-
-        if (outbufptr) {
-            output_ulong_value(outbufptr, mb, length, XlcNONE);
-            outbufptr += length;
-        }
-
-	(*to_left) -= length;
-
-    } /* end of while */
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-strtowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-
-    unsigned char ch;
-    unsigned long glyph_index;
-    wchar_t wc;
-
-    int unconv_num = 0;
-    CodeSet codeset;
-
-    const char *inbufptr = *from;
-    wchar_t *outbufptr = (wchar_t *)*to;
-    int from_size = *from_left;
-
-    if (*from_left > *to_left)
-        *from_left = *to_left;
-
-    while (*from_left && *to_left) {
-
-        ch = *inbufptr++;
-        (*from_left)--;
-
-        /* null ? */
-        if (!ch) {
-            if (outbufptr) {*outbufptr++ = L'\0';}
-            (*to_left)--;
-
-            continue;
-        }
-
-        /* convert */
-        if (isleftside(ch)) {
-	    glyph_index = ch;
-	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GL");
-	} else {
-	    glyph_index = ch & GL;
-	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GR");
-	}
-
-        if (!codeset) {
-	    unconv_num++;
-	    continue;
-        }
-
-        gi_to_wc(lcd, glyph_index, codeset, &wc);
-	if (outbufptr) {*outbufptr++ = wc;}
-	(*to_left)--;
-
-    } /* end of while */
-
-    *from = (XPointer) ((const char *) *from + from_size);
-    *from_left = 0;
-    *to = (XPointer) outbufptr;
-
-    return unconv_num;
-}
-
-static int
-stdc_strtowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);
-    char *buf_ptr1 = buf;
-    int buf_left1 = (*from_left) * MB_CUR_MAX;
-    char *buf_ptr2 = buf_ptr1;
-    int buf_left2;
-    int unconv_num1 = 0, unconv_num2 = 0;
-
-    unconv_num1 = strtombs(conv,
-		from, from_left, &buf_ptr1, &buf_left1, args, num_args);
-    if (unconv_num1 < 0)
-        goto ret;
-
-    buf_left2 = buf_ptr1 - buf_ptr2;
-
-    unconv_num2 = stdc_mbstowcs(conv,
-		&buf_ptr2, &buf_left2, to, to_left, args, num_args);
-    if (unconv_num2 < 0)
-        goto ret;
-
-ret:
-    if (buf)
-	Xfree((char *)buf);
-
-    return (unconv_num1 + unconv_num2);
-}
-
-/* -------------------------------------------------------------------------- */
-/*				Close                                         */
-/* -------------------------------------------------------------------------- */
-
-static void
-close_converter(
-    XlcConv conv)
-{
-    if (conv->state) {
-	Xfree((char *) conv->state);
-    }
-
-    if (conv->methods) {
-	Xfree((char *) conv->methods);
-    }
-
-    Xfree((char *) conv);
-}
-
-/* -------------------------------------------------------------------------- */
-/*				Open                                          */
-/* -------------------------------------------------------------------------- */
-
-static XlcConv
-create_conv(
-    XLCd lcd,
-    XlcConvMethods methods)
-{
-    XlcConv conv;
-    State state;
-
-    conv = (XlcConv) Xcalloc(1, sizeof(XlcConvRec));
-    if (conv == NULL)
-	return (XlcConv) NULL;
-
-    conv->methods = (XlcConvMethods) Xmalloc(sizeof(XlcConvMethodsRec));
-    if (conv->methods == NULL)
-	goto err;
-    *conv->methods = *methods;
-    conv->methods->reset = init_state;
-
-    conv->state = Xcalloc(1, sizeof(StateRec));
-    if (conv->state == NULL)
-	goto err;
-
-    state = (State) conv->state;
-    state->lcd = lcd;
-
-    _XlcResetConverter(conv);
-
-    return conv;
-
-err:
-    close_converter(conv);
-
-    return (XlcConv) NULL;
-}
-
-static XlcConvMethodsRec mbstocts_methods = {
-    close_converter,
-    mbstocts,
-    NULL
-};
-
-static XlcConv
-open_mbstocts(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbstocts_methods);
-}
-
-static XlcConvMethodsRec mbstostr_methods = {
-    close_converter,
-    mbstostr,
-    NULL
-};
-
-static XlcConv
-open_mbstostr(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbstostr_methods);
-}
-
-static XlcConvMethodsRec mbstocs_methods = {
-    close_converter,
-    mbstocs,
-    NULL
-};
-
-static XlcConv
-open_mbstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbstocs_methods);
-}
-
-static XlcConvMethodsRec mbtocs_methods = {
-    close_converter,
-    mbtocs,
-    NULL
-};
-
-static XlcConv
-open_mbtocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbtocs_methods);
-}
-
-static XlcConvMethodsRec ctstombs_methods = {
-    close_converter,
-    ctstombs,
-    NULL
-};
-
-static XlcConv
-open_ctstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &ctstombs_methods);
-}
-
-static XlcConvMethodsRec cstombs_methods = {
-    close_converter,
-    cstombs,
-    NULL
-};
-
-static XlcConv
-open_cstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &cstombs_methods);
-}
-
-static XlcConvMethodsRec strtombs_methods = {
-    close_converter,
-    strtombs,
-    NULL
-};
-
-static XlcConv
-open_strtombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &strtombs_methods);
-}
-
-#ifdef STDCVT
-
-static XlcConvMethodsRec stdc_mbstowcs_methods = {
-    close_converter,
-    stdc_mbstowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_mbstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_mbstowcs_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstombs_methods = {
-    close_converter,
-    stdc_wcstombs,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstombs_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstocts_methods = {
-    close_converter,
-    stdc_wcstocts,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstocts(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstocts_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstostr_methods = {
-    close_converter,
-    stdc_wcstostr,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstostr(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstostr_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstocs_methods = {
-    close_converter,
-    stdc_wcstocs,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstocs_methods);
-}
-
-static XlcConvMethodsRec stdc_wctocs_methods = {
-    close_converter,
-    stdc_wctocs,
-    NULL
-};
-
-static XlcConv
-open_stdc_wctocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wctocs_methods);
-}
-
-static XlcConvMethodsRec stdc_ctstowcs_methods = {
-    close_converter,
-    stdc_ctstowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_ctstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_ctstowcs_methods);
-}
-
-static XlcConvMethodsRec stdc_cstowcs_methods = {
-    close_converter,
-    stdc_cstowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_cstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_cstowcs_methods);
-}
-
-static XlcConvMethodsRec stdc_strtowcs_methods = {
-    close_converter,
-    stdc_strtowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_strtowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_strtowcs_methods);
-}
-
-#endif /* STDCVT */
-
-static XlcConvMethodsRec mbstowcs_methods = {
-    close_converter,
-    mbstowcs_org,
-    NULL
-};
-
-static XlcConv
-open_mbstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbstowcs_methods);
-}
-
-static XlcConvMethodsRec wcstombs_methods = {
-    close_converter,
-    wcstombs_org,
-    NULL
-};
-
-static XlcConv
-open_wcstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wcstombs_methods);
-}
-
-static XlcConvMethodsRec wcstocts_methods = {
-    close_converter,
-    wcstocts,
-    NULL
-};
-
-static XlcConv
-open_wcstocts(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wcstocts_methods);
-}
-
-static XlcConvMethodsRec wcstostr_methods = {
-    close_converter,
-    wcstostr,
-    NULL
-};
-
-static XlcConv
-open_wcstostr(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wcstostr_methods);
-}
-
-static XlcConvMethodsRec wcstocs_methods = {
-    close_converter,
-    wcstocs,
-    NULL
-};
-
-static XlcConv
-open_wcstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wcstocs_methods);
-}
-
-static XlcConvMethodsRec wctocs_methods = {
-    close_converter,
-    wctocs,
-    NULL
-};
-
-static XlcConv
-open_wctocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wctocs_methods);
-}
-
-static XlcConvMethodsRec ctstowcs_methods = {
-    close_converter,
-    ctstowcs,
-    NULL
-};
-
-static XlcConv
-open_ctstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &ctstowcs_methods);
-}
-
-static XlcConvMethodsRec cstowcs_methods = {
-    close_converter,
-    cstowcs,
-    NULL
-};
-
-static XlcConv
-open_cstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &cstowcs_methods);
-}
-
-static XlcConvMethodsRec strtowcs_methods = {
-    close_converter,
-    strtowcs,
-    NULL
-};
-
-static XlcConv
-open_strtowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &strtowcs_methods);
-}
-
-/* -------------------------------------------------------------------------- */
-/*				Loader                                        */
-/* -------------------------------------------------------------------------- */
-
-XLCd
-_XlcGenericLoader(
-    const char *name)
-{
-    XLCd lcd;
-#ifdef STDCVT
-    XLCdGenericPart *gen;
-#endif
-
-    lcd = _XlcCreateLC(name, _XlcGenericMethods);
-
-    if (lcd == NULL)
-	return lcd;
-
-    default_GL_charset = _XlcGetCharSet("ISO8859-1:GL");
-    default_GR_charset = _XlcGetCharSet("ISO8859-1:GR");
-
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCompoundText, open_mbstocts);
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNString,       open_mbstostr);
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCharSet,      open_mbstocs);
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNChar,         open_mbtocs);
-    _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNMultiByte, open_ctstombs);
-    _XlcSetConverter(lcd, XlcNString,    lcd, XlcNMultiByte,    open_strtombs);
-    _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNMultiByte,    open_cstombs);
-
-#ifdef STDCVT
-     gen = XLC_GENERIC_PART(lcd);
-
-     if (gen->use_stdc_env != True) {
-#endif
-        _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNWideChar,     open_mbstowcs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNMultiByte,    open_wcstombs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCompoundText, open_wcstocts);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNString,       open_wcstostr);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCharSet,      open_wcstocs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNChar,         open_wctocs);
-        _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNWideChar,  open_ctstowcs);
-        _XlcSetConverter(lcd, XlcNString,    lcd, XlcNWideChar,     open_strtowcs);
-        _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNWideChar,     open_cstowcs);
-#ifdef STDCVT
-    }
-#endif
-
-#ifdef STDCVT
-    if (gen->use_stdc_env == True) {
-        _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNWideChar,     open_stdc_mbstowcs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNMultiByte,    open_stdc_wcstombs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCompoundText, open_stdc_wcstocts);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNString,       open_stdc_wcstostr);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCharSet,      open_stdc_wcstocs);
-        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNChar,         open_stdc_wctocs);
-        _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNWideChar,  open_stdc_ctstowcs);
-        _XlcSetConverter(lcd, XlcNString,    lcd, XlcNWideChar,     open_stdc_strtowcs);
-        _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNWideChar,     open_stdc_cstowcs);
-    }
-#endif
-
-    _XlcAddUtf8Converters(lcd);
-
-    return lcd;
-}
+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+/*

+ *  (c) Copyright 1995 FUJITSU LIMITED

+ *  This is source code modified by FUJITSU LIMITED under the Joint

+ *  Development Agreement for the CDE/Motif PST.

+ *

+ *   Modifier: Masayoshi Shimamura      FUJITSU LIMITED

+ *

+ */

+/*

+ *  2000

+ *  Modifier: Ivan Pascal      The XFree86 Project

+ */

+

+/*

+ * A generic locale loader for all kinds of ISO-2022 based codesets.

+ * Supports: all locales.

+ * How: Provides generic converters for ISO-2022 based codesets. Extensible as

+ *      far as ISO-2022 is extensible: codesets can be given by name in the

+ *      stream. Overall distinction between GL (0x00..0x7f) and GR (0x80..0xff).

+ *      In every chunk between escape sequences, the number of bytes per

+ *      character (char_size) is constant.

+ * Platforms: all systems.

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "XlcGeneric.h"

+#include <stdio.h>

+

+#if !defined(Lynx_22) && !defined(X_LOCALE)

+#define STDCVT

+#endif

+

+typedef struct _CTDataRec {

+    const char *name;

+    const char *encoding; /* Compound Text encoding */

+} CTDataRec, *CTData;

+

+static CTDataRec directionality_data[] =

+{

+    { "BEGIN_LEFT-TO-RIGHT_TEXT", "\2331]" },

+    { "BEGIN_RIGHT-TO-LEFT_TEXT", "\2332]" },

+    { "END_OF_STRING", "\233]" },

+};

+

+typedef struct _StateRec {

+    XLCd lcd;

+    /* CT state */

+    XlcCharSet charset;		/* charset of current state */

+    XlcCharSet GL_charset;	/* charset of initial state in GL */

+    XlcCharSet GR_charset;	/* charset of initial state in GR */

+    /* MB shift state */

+    CodeSet  GL_codeset;

+    CodeSet  GR_codeset;

+} StateRec, *State;

+

+#define GR      0x80    /* begins right-side (non-ascii) region */

+#define GL      0x7f    /* ends left-side (ascii) region        */

+#define ESC	0x1b

+#define CSI	0x9b

+#define STX	0x02

+

+#define isrightside(c)   ((c) & GR)

+#define isleftside(c)  (!isrightside(c))

+

+/* Forward declarations for local routines. */

+static int mbstocts (XlcConv conv, XPointer *from, int *from_left,

+		     XPointer *to, int *to_left, XPointer *args, int num_args);

+static int ctstombs (XlcConv conv, XPointer *from, int *from_left,

+		     XPointer *to, int *to_left, XPointer *args, int num_args);

+static int cstombs (XlcConv conv, XPointer *from, int *from_left,

+		    XPointer *to, int *to_left, XPointer *args, int num_args);

+

+/* ------------------------------------------------------------------------- */

+/*				Misc                                         */

+/* ------------------------------------------------------------------------- */

+

+static int

+compare(

+    const char *src,

+    const char *encoding,

+    int length)

+{

+    const char *start = src;

+

+    while (length-- > 0) {

+	if (*src++ != *encoding++)

+	    return 0;

+	if (*encoding == '\0')

+	    return src - start;

+    }

+

+    return 0;

+}

+

+static unsigned long

+conv_to_dest(

+    Conversion conv,

+    unsigned long code)

+{

+    int i;

+    int conv_num = conv->conv_num;

+    FontScope convlist = conv->convlist;

+

+    for (i = 0; i < conv_num; i++) {

+  	if (convlist[i].start <= code && code <= convlist[i].end) {

+	    switch (convlist[i].shift_direction) {

+	    case '+':

+	        return(code + convlist[i].shift);

+	    case '-':

+		return(code - convlist[i].shift);

+            default:

+		return(code);

+	    }

+	}

+    }

+

+    return(code);

+}

+

+static unsigned long

+conv_to_source(

+    Conversion conv,

+    unsigned long code)

+{

+    int i;

+    int conv_num;

+    FontScope convlist;

+    unsigned long start_p;

+    unsigned long start_m;

+    unsigned long end_p;

+    unsigned long end_m;

+

+    if (!conv)

+	return(code);

+

+    conv_num = conv->conv_num;

+    convlist = conv->convlist;

+

+    for (i = 0; i < conv_num; i++) {

+        switch (convlist[i].shift_direction) {

+	case '+':

+            start_p = convlist[i].start + convlist[i].shift;

+            end_p = convlist[i].end + convlist[i].shift;

+	    if (start_p <= code && code <= end_p)

+		return(code - convlist[i].shift);

+            break;

+	case '-':

+            start_m = convlist[i].start - convlist[i].shift;

+            end_m = convlist[i].end - convlist[i].shift;

+	    if (start_m <= code && code <= end_m)

+		return(code + convlist[i].shift);

+            break;

+        default:

+	    continue;

+	}

+    }

+

+    return(code);

+}

+

+static unsigned long

+mb_to_gi(

+    unsigned long mb,

+    CodeSet codeset)

+{

+    int i;

+    unsigned long mb_tmp, mask = 0;

+

+    if (codeset->mbconv) {

+	mb_tmp = conv_to_dest(codeset->mbconv, mb);

+	if (mb_tmp != mb)

+	    return(mb_tmp);

+    }

+

+    if (codeset->side == XlcC0 || codeset->side == XlcGL ||

+	codeset->side == XlcC1 || codeset->side == XlcGR) {

+

+        for (i = 0; i < codeset->length; i++)

+	    mask = (mask << 8) | GL;

+	mb = mb & mask;

+    }

+

+    return(mb);

+}

+

+static unsigned long

+gi_to_mb(

+    unsigned long glyph_index,

+    CodeSet codeset)

+{

+    int i;

+    unsigned long mask = 0;

+

+    if (codeset->side == XlcC1 || codeset->side == XlcGR) {

+        for (i = 0; i < codeset->length; i++)

+	    mask = (mask << 8) | GR;

+	glyph_index = glyph_index | mask;

+    }

+

+    if (codeset->mbconv)

+        return( conv_to_source(codeset->mbconv, glyph_index) );

+

+    return(glyph_index);

+}

+

+static Bool

+gi_to_wc(

+    XLCd lcd,

+    unsigned long glyph_index,

+    CodeSet codeset,

+    wchar_t *wc)

+{

+    unsigned char mask = 0;

+    unsigned long wc_encoding = codeset->wc_encoding;

+    int length = codeset->length;

+    unsigned long wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);

+

+    mask = (1 << wc_shift_bits) - 1 ;

+

+    for (*wc = 0, length--; length >= 0; length--)

+	*wc = (*wc << wc_shift_bits) | ((glyph_index >> (length * 8 )) & mask);

+

+    *wc = *wc | wc_encoding;

+

+    return(True);

+}

+

+static Bool

+wc_to_gi(

+    XLCd lcd,

+    wchar_t wc,

+    unsigned long *glyph_index,

+    CodeSet *codeset)

+{

+    int i;

+    unsigned char mask = 0;

+    unsigned long wc_encoding;

+    unsigned long wc_encode_mask = XLC_GENERIC(lcd, wc_encode_mask);

+    unsigned long wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);

+    int codeset_num = XLC_GENERIC(lcd, codeset_num);

+    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);

+

+    wc_encoding = wc & wc_encode_mask;

+    for (*codeset = NULL, i = 0; i < codeset_num; i++) {

+	if (wc_encoding == codeset_list[i]->wc_encoding) {

+	    *codeset = codeset_list[i];

+	    break;

+        }

+    }

+    if (*codeset == NULL)

+	return(False);

+

+    mask = (1 << wc_shift_bits) - 1 ;

+

+    wc = wc & ~wc_encode_mask;

+    for (*glyph_index = 0, i = (*codeset)->length - 1; i >= 0; i--)

+	*glyph_index = (*glyph_index << 8) |

+		      ( ((unsigned long)wc >> (i * wc_shift_bits)) & mask );

+

+    return(True);

+}

+

+static CodeSet

+mb_parse_codeset(

+    State state,

+    int num,

+    const char **inbufptr,

+    int *from_left)

+{

+    int len;

+    int from_len = (*from_left) + 1;

+    const char *src = (*inbufptr) - 1;

+    ParseInfo *mb_parse_list = XLC_GENERIC(state->lcd, mb_parse_list);

+    ParseInfo parse_info;

+    CodeSet codeset;

+

+    for (--num ; (parse_info = mb_parse_list[num]) != NULL; num++) {

+       len = compare(src, parse_info->encoding, from_len);

+       if (len > 0) {

+           codeset = parse_info->codeset;

+           if (parse_info->type == E_LSL)

+               state->GL_codeset = codeset;

+           else if (parse_info->type == E_LSR)

+               state->GR_codeset = codeset;

+           --len;

+           *inbufptr += len;

+           *from_left -= len;

+           return codeset;

+       }

+    }

+    return (CodeSet) NULL;

+}

+

+static CodeSet

+byteM_parse_codeset(

+    XLCd lcd,

+    const char *inbufptr)

+{

+    unsigned char ch;

+    CodeSet codeset;

+    ByteInfoList byteM;

+    ByteInfoListRec byteM_rec;

+    ByteInfo byteinfo;

+    ByteInfoRec byteinfo_rec;

+    Bool hit = False;

+    int i, j, k;

+

+    int codeset_num               = XLC_GENERIC(lcd, codeset_num);

+    CodeSet *codeset_list         = XLC_GENERIC(lcd, codeset_list);

+

+    for (i = 0; i < codeset_num; i++) {

+        codeset = codeset_list[i];

+        byteM = codeset->byteM;

+        if (codeset->side != XlcNONE || byteM == NULL)

+	    continue;

+

+        for (j = 0; j < codeset->length; j++) {

+	    ch = *((unsigned char *)(inbufptr + j));

+	    byteM_rec = byteM[j];

+	    byteinfo = byteM_rec.byteinfo;

+

+	    for (hit = False, k = 0; k < byteM_rec.byteinfo_num; k++) {

+	        byteinfo_rec = byteinfo[k];

+	        if (byteinfo_rec.start <= ch && ch <= byteinfo_rec.end) {

+	            hit = True;

+		    break;

+                }

+            }

+

+            if (!hit)

+		break;

+        }

+

+        if (hit)

+	    return(codeset);

+    }

+

+    return(NULL);

+}

+

+#define GLGR_parse_codeset(ch) \

+     (isrightside(ch) ? (state->GR_codeset) : \

+                        (state->GL_codeset) )

+

+static XlcCharSet

+gi_parse_charset(

+    unsigned long glyph_index,

+    CodeSet codeset)

+{

+    int i;

+    XlcCharSet *charset_list = codeset->charset_list;

+    int num_charsets = codeset->num_charsets;

+    ExtdSegment ctextseg = codeset->ctextseg;

+    XlcCharSet charset = NULL;

+    int area_num;

+    FontScope area;

+

+    /* lockup ct sequence */

+    for (i = 0; i < num_charsets; i++) {

+	charset = charset_list[i];

+        if (*charset->ct_sequence != '\0')

+	    break;

+    }

+    if (i >= num_charsets)

+	return(NULL);

+

+    if (charset->source != CSsrcStd)

+        return (charset);

+

+    if (!ctextseg)

+        return(charset);

+

+    area = ctextseg->area;

+    area_num = ctextseg->area_num;

+

+    for (i = 0; i < area_num; i++) {

+

+        if (area[i].start <= glyph_index && glyph_index <= area[i].end) {

+

+	    charset = ctextseg->charset;

+

+            if (*charset->ct_sequence == '\0')

+                return(NULL);

+

+	    break;

+	}

+    }

+

+    return(charset);

+}

+

+static Bool

+ct_parse_csi(

+    const char *inbufptr,

+    int *ctr_seq_len)

+{

+    int i;

+    int num = sizeof(directionality_data) / sizeof(directionality_data[0]);

+

+    for (i = 0; i < num; i++) {

+	if ( !(*ctr_seq_len = strlen(directionality_data[i].encoding)) )

+	    continue;

+

+	if ( strncmp(inbufptr, directionality_data[i].encoding,

+						*ctr_seq_len) == 0)

+            return(True);

+    }

+

+    return(False);

+}

+

+static int

+cmp_esc_sequence(

+    const char *inbufptr,

+    XlcCharSet charset)

+{

+    int seq_len, name_len, total_len;

+    unsigned char byte_m, byte_l;

+    const char *ct_sequence =  charset->ct_sequence;

+    const char *encoding_name = charset->encoding_name;

+

+    /* check esc sequence */

+    if ( !(seq_len = strlen(ct_sequence) ) )

+	return(0);

+    if ( strncmp(inbufptr, ct_sequence, seq_len) != 0)

+	return(0);

+

+    /* Standard Character Set Encoding ? */

+    if (charset->source == CSsrcStd)

+        return(seq_len);

+

+    /*

+     *   Non-Standard Character Set Encoding

+     *

+     * +--- ---+-----+-----+-----+----   ----+-----+-----+-------   ------+

+     * | ctseq |  M  |  L  |     encoding name     | STX |     contents   |

+     * +--- ---+-----+-----+-----+----   ----+-----+-----+-------   ------+

+     *  4bytes  1byte 1byte     variable length     1byte  variable length

+     * 	                   |                                              |

+     * 	                   +----------------------------------------------+

+     * 	                     rest length  = ((M - 128) * 128) + (L - 128)

+     */

+

+    /* get length of encoding name */

+    inbufptr += seq_len;

+    byte_m = *inbufptr++;

+    byte_l = *inbufptr++;

+    name_len = strlen(encoding_name);

+

+    if (((byte_m - 128) * 128 + (byte_l - 128) - 1) < name_len)

+	return(0);

+

+    if ( _XlcNCompareISOLatin1(inbufptr, encoding_name, name_len) != 0 )

+	return(0);

+

+    /* check STX (Start of Text) */

+    inbufptr = inbufptr + name_len;

+    if ( *inbufptr != STX )

+	return(0);

+

+    total_len = seq_len + name_len + 3;

+    return(total_len);

+}

+

+static Bool

+ct_parse_charset(

+    XLCd lcd,

+    const char *inbufptr,

+    XlcCharSet *charset,

+    int *ctr_seq_len)

+{

+    int i, j;

+    ExtdSegment ctextseg;

+    int num_charsets;

+    XlcCharSet *charset_list;

+    CodeSet codeset;

+    int codeset_num       = XLC_GENERIC(lcd, codeset_num);

+    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);

+    int segment_conv_num  = XLC_GENERIC(lcd, segment_conv_num);

+    SegConv segment_conv  = XLC_GENERIC(lcd, segment_conv);

+

+    /* get charset from XLC_XLOCALE by escape sequence */

+

+    for (i = 0; i < codeset_num; i++) {

+	codeset = codeset_list[i];

+

+	num_charsets = codeset->num_charsets;

+	charset_list = codeset->charset_list;

+	ctextseg     = codeset->ctextseg;

+

+	for (j = 0; j < num_charsets; j++) {

+	    *charset = charset_list[j];

+            if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))

+		return(True);

+	}

+

+	if (ctextseg) {

+	    *charset = ctextseg->charset;

+            if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))

+		return(True);

+	}

+    }

+

+    /* get charset from XLC_SEGMENTCONVERSION by escape sequence */

+

+    if (!segment_conv)

+	return(False);

+

+    for (i = 0; i < segment_conv_num; i++) {

+	*charset = segment_conv[i].source;

+        if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))

+	    return(True);

+	*charset = segment_conv[i].dest;

+        if ((*ctr_seq_len = cmp_esc_sequence(inbufptr, *charset)))

+	    return(True);

+    }

+

+    return(False);

+}

+

+static Bool

+segment_conversion(

+    XLCd lcd,

+    XlcCharSet *charset,

+    unsigned long *glyph_index)

+{

+    int i;

+    int segment_conv_num = XLC_GENERIC(lcd, segment_conv_num);

+    SegConv segment_conv = XLC_GENERIC(lcd, segment_conv);

+    FontScopeRec range;

+    ConversionRec conv_rec;

+

+    if (!segment_conv)

+	return(True);

+

+    for (i = 0; i < segment_conv_num; i++) {

+	if (segment_conv[i].source == *charset)

+	    break;

+    }

+

+    if (i >= segment_conv_num)

+	return(True);

+

+    range = segment_conv[i].range;

+    if (*glyph_index < range.start || range.end < *glyph_index)

+	return(True);

+

+    *charset = segment_conv[i].dest;

+    conv_rec.conv_num = segment_conv[i].conv_num;

+    conv_rec.convlist = segment_conv[i].conv;

+    *glyph_index = conv_to_dest(&conv_rec, *glyph_index);

+

+    return(True);

+}

+

+static CodeSet

+_XlcGetCodeSetFromName(

+    XLCd lcd,

+    const char *name)

+{

+    int i, j;

+    XlcCharSet charset;

+    int num_charsets;

+    XlcCharSet *charset_list;

+    CodeSet codeset;

+

+    int codeset_num       = XLC_GENERIC(lcd, codeset_num);

+    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);

+

+    for (i = 0; i < codeset_num; i++) {

+        codeset = codeset_list[i];

+

+        num_charsets = codeset->num_charsets;

+        charset_list = codeset->charset_list;

+

+        for (j = 0; j < num_charsets; j++) {

+            charset = charset_list[j];

+

+            if (!strlen(charset->name))

+                continue;

+            if ( strcmp(charset->name, name) == 0)

+                return(codeset);

+        }

+    }

+

+    return(NULL);

+}

+

+static Bool

+_XlcGetCodeSetFromCharSet(

+    XLCd lcd,

+    XlcCharSet charset,

+    CodeSet *codeset,

+    unsigned long *glyph_index)

+{

+    int j, num;

+    CodeSet *codeset_list = XLC_GENERIC(lcd, codeset_list);

+    XlcCharSet *charset_list;

+    int codeset_num, num_charsets;

+    Conversion ctconv;

+    unsigned long glyph_index_tmp = 0;

+    ExtdSegment ctextseg;

+

+    codeset_num = XLC_GENERIC(lcd, codeset_num);

+

+    for (num = 0 ; num < codeset_num; num++) {

+        *codeset = codeset_list[num];

+        ctconv = (*codeset)->ctconv;

+	ctextseg = (*codeset)->ctextseg;

+

+        num_charsets = (*codeset)->num_charsets;

+        charset_list = (*codeset)->charset_list;

+

+        glyph_index_tmp = conv_to_source(ctconv, *glyph_index);

+

+        if (charset->source == CSsrcStd) {

+

+            /* Standard Character Set Encoding */

+	    if (glyph_index_tmp == *glyph_index) {

+                for (j = 0; j < num_charsets; j++) {

+                    if (charset_list[j] == charset) {

+                        goto end_loop;

+                    }

+                }

+            }

+

+	} else {

+

+            /* Non-Standard Character Set Encoding */

+            for (j = 0; j < num_charsets; j++) {

+                if (charset_list[j] == charset) {

+                    goto end_loop;

+                }

+            }

+

+            if (glyph_index_tmp != *glyph_index) {

+		if (ctextseg && ctextseg->charset == charset) {

+		    goto end_loop;

+                }

+            }

+

+	}

+

+    }

+

+end_loop:

+    if (num < codeset_num) {

+	*glyph_index = glyph_index_tmp;

+	return(True);

+    }

+

+    return(False);

+}

+

+#define check_string_encoding(codeset)	(codeset->string_encoding)

+

+static void

+output_ulong_value(

+    char *outbufptr,

+    unsigned long code,

+    int length,

+    XlcSide side)

+{

+    int i;

+

+    for (i = (length - 1) * 8; i >= 0; i -= 8) {

+	*outbufptr = ( code >> i) & 0xff;

+

+	if (side == XlcC0 || side == XlcGL) {

+	    *outbufptr = *outbufptr & GL;

+	} else if (side == XlcC1 || side == XlcGR) {

+	    *outbufptr = *outbufptr | GR;

+	}

+

+	outbufptr++;

+    }

+}

+

+/* -------------------------------------------------------------------------- */

+/*				Init                                          */

+/* -------------------------------------------------------------------------- */

+

+static XlcCharSet default_GL_charset = 0;

+static XlcCharSet default_GR_charset = 0;

+

+static void

+init_state(

+    XlcConv conv)

+{

+    State state = (State) conv->state;

+

+    /* for CT */

+    state->charset = NULL;

+    state->GL_charset = default_GL_charset;

+    state->GR_charset = default_GR_charset;

+

+    /* for MB shift state */

+    state->GL_codeset = XLC_GENERIC(state->lcd, initial_state_GL);

+    state->GR_codeset = XLC_GENERIC(state->lcd, initial_state_GR);

+}

+

+/* -------------------------------------------------------------------------- */

+/*				Convert                                       */

+/* -------------------------------------------------------------------------- */

+

+static int

+mbstowcs_org(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long mb = 0;

+    wchar_t wc;

+

+    int length = 0, len_left = 0;

+    int unconv_num = 0;

+    int num;

+

+    CodeSet codeset = NULL;

+

+    const char *inbufptr = *from;

+    wchar_t *outbufptr = (wchar_t *) *to;

+    int from_size = *from_left;

+

+    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);

+

+    if (from == NULL || *from == NULL) {

+	_XlcResetConverter(conv);

+        return( 0 );

+    }

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+	ch = *inbufptr++;

+	(*from_left)--;

+

+	/* null ? */

+	if (!ch) {

+            if (outbufptr) {*outbufptr++ = L'\0';}

+	    (*to_left)--;

+

+	    /* error check */

+            if (len_left) {

+	        unconv_num += (length - len_left);

+		len_left = 0;

+            }

+

+	    continue;

+	}

+

+	/* same mb char data */

+        if (len_left)

+	    goto output_one_wc;

+

+        /* next mb char data for single shift ? */

+	if (mb_parse_table && (num = mb_parse_table[ch]) ) {

+	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);

+            if (codeset != NULL) {

+		length = len_left = codeset->length;

+		mb = 0;

+		continue;

+	    }

+        }

+

+	/* next mb char data for byteM ? */

+	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))

+	    goto next_mb_char;

+

+	/* next mb char data for GL or GR side ? */

+	if ((codeset = GLGR_parse_codeset(ch)))

+	    goto next_mb_char;

+

+        /* can't find codeset for the ch */

+        unconv_num++;

+        continue;

+

+next_mb_char:

+        length = len_left = codeset->length;

+	mb = 0;

+

+output_one_wc:

+	mb = (mb << 8) | ch;  /* 1 byte left shift */

+	len_left--;

+

+        /* last of one mb char data */

+        if (!len_left) {

+            gi_to_wc(lcd, mb_to_gi(mb, codeset), codeset, &wc);

+            if (outbufptr) {*outbufptr++ = wc;}

+	    (*to_left)--;

+        }

+

+    } /* end of while */

+

+    /* error check on last char */

+    if (len_left) {

+	inbufptr -= (length - len_left);

+	(*from_left) += (length - len_left);

+	unconv_num += (length - len_left);

+    }

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_mbstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const char *src = *((const char **) from);

+    wchar_t *dst = *((wchar_t **) to);

+    int src_left = *from_left;

+    int dst_left = *to_left;

+    int length, unconv_num = 0;

+

+    while (src_left > 0 && dst_left > 0) {

+	length = mbtowc(dst, src, src_left);

+

+	if (length > 0) {

+	    src += length;

+	    src_left -= length;

+	    if (dst)

+	        dst++;

+	    dst_left--;

+	} else if (length < 0) {

+	    src++;

+	    src_left--;

+	    unconv_num++;

+        } else {

+            /* null ? */

+            src++;

+            src_left--;

+            if (dst)

+                *dst++ = L'\0';

+            dst_left--;

+        }

+    }

+

+    *from = (XPointer) src;

+    if (dst)

+	*to = (XPointer) dst;

+    *from_left = src_left;

+    *to_left = dst_left;

+

+    return unconv_num;

+}

+

+static int

+wcstombs_org(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    char *encoding;

+    unsigned long mb, glyph_index;

+    wchar_t wc;

+

+    int length;

+    int unconv_num = 0;

+

+    CodeSet codeset;

+

+    const wchar_t *inbufptr = (const wchar_t *) *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    const char *default_string = XLC_PUBLIC(lcd, default_string);

+    int defstr_len = strlen(default_string);

+

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+        wc = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!wc) {

+            if (outbufptr) {*outbufptr++ = '\0';}

+            (*to_left)--;

+

+            continue;

+        }

+

+        /* convert */

+	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {

+

+	    /* output default_string of XDefaultString() */

+            if (*to_left < defstr_len)

+		break;

+	    if (outbufptr) {

+                strncpy((char *)outbufptr, default_string, defstr_len);

+                outbufptr += defstr_len;

+            }

+	    (*to_left) -= defstr_len;

+

+            unconv_num++;

+

+        } else {

+            mb = gi_to_mb(glyph_index, codeset);

+	    if (codeset->parse_info) {

+                Bool need_shift = False;

+                switch (codeset->parse_info->type) {

+                    case E_LSL :

+                        if (codeset != state->GL_codeset) {

+                            need_shift = True;

+                            state->GL_codeset = codeset;

+                        }

+                        break;

+                    case E_LSR :

+                        if (codeset != state->GR_codeset) {

+                            need_shift = True;

+                            state->GR_codeset = codeset;

+                        }

+                        break;

+                    /* case E_SS */

+                    default:

+                        need_shift = True;

+                }

+

+		/* output shift sequence */

+                if (need_shift) {

+		    encoding = codeset->parse_info->encoding;

+                    length = strlen(encoding);

+                    if (*to_left < length)

+		        break;

+	            if (outbufptr) {

+                        strncpy((char *)outbufptr, encoding, length);

+	                outbufptr += length;

+                    }

+	            (*to_left) -= length;

+                }

+            }

+

+            /* output characters */

+	    length = codeset->length;

+            if (*to_left < length)

+		break;

+

+	    if (outbufptr) {

+		output_ulong_value(outbufptr, mb, length, XlcNONE);

+	        outbufptr += length;

+	    }

+

+	    (*to_left) -= length;

+        }

+

+    } /* end of while */

+

+    *from = (XPointer) ((const wchar_t *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_wcstombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const wchar_t *src = *((const wchar_t **) from);

+    char *dst = *((char **) to);

+    int src_left = *from_left;

+    int dst_left = *to_left;

+    int length, unconv_num = 0;

+

+    while (src_left > 0 && dst_left >= MB_CUR_MAX) {

+	length = wctomb(dst, *src);		/* XXX */

+

+        if (length > 0) {

+	    src++;

+	    src_left--;

+	    if (dst)

+		dst += length;

+	    dst_left -= length;

+	} else if (length < 0) {

+	    src++;

+	    src_left--;

+	    unconv_num++;

+	}

+    }

+

+    *from = (XPointer) src;

+    if (dst)

+      *to = (XPointer) dst;

+    *from_left = src_left;

+    *to_left = dst_left;

+

+    return unconv_num;

+}

+

+static int

+wcstocts(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned long glyph_index;

+    wchar_t wc;

+

+    int total_len, seq_len, name_len;

+    int unconv_num = 0;

+    Bool first_flag = True, standard_flag;

+    XlcSide side;

+

+    CodeSet codeset;

+    XlcCharSet charset, old_charset = NULL;

+    const char *ct_sequence;

+

+    const wchar_t *inbufptr = (const wchar_t *) *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+    char *ext_seg_len = NULL;

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+        wc = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!wc) {

+            if (outbufptr) {*outbufptr++ = '\0';}

+            (*to_left)--;

+

+            continue;

+        }

+

+        /* convert */

+	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {

+            unconv_num++;

+	    continue;

+        }

+

+        /* parse charset */

+        if ( !(charset = gi_parse_charset(glyph_index, codeset)) ) {

+            unconv_num++;

+	    continue;

+        }

+

+        /* Standard Character Set Encoding ? */

+	standard_flag = charset->source == CSsrcStd ? True : False;

+

+        /*

+         *   Non-Standard Character Set Encoding

+         *

+         * +-----+-----+-----+-----+-----+-----+-----+----   ----+-----+-----+

+         * |     esc sequence      |  M  |  L  |     encoding name     | STX |

+         * +-----+-----+-----+-----+-----+-----+-----+----   ----+-----+-----+

+         *           4bytes         1byte 1byte     variable length     1byte

+         * 	                   |                                         |

+         * 	                   +-----------------------------------------+

+         * 	                     name length  = ((M - 128) * 128) + (L - 128)

+         */

+

+        /* make encoding data */

+	ct_sequence = charset->ct_sequence;

+	side = charset->side;

+        seq_len = strlen(ct_sequence);

+	if (standard_flag) {

+            name_len = 0;

+	    total_len = seq_len;

+	} else {

+            name_len = strlen(charset->encoding_name) + 1;

+	    total_len = seq_len + name_len + 2;

+	}

+

+        /* output escape sequence of CT */

+	if ( (charset != old_charset) &&

+	    !(first_flag && charset->string_encoding) ){

+

+            if ( (ext_seg_len != NULL) && outbufptr) {

+                int i = (outbufptr - ext_seg_len) - 2;

+                *ext_seg_len++ = i / 128 + 128;

+                *ext_seg_len   = i % 128 + 128;

+                ext_seg_len = NULL;

+            }

+

+	    if (*to_left < total_len + 1) {

+                unconv_num++;

+	        break;

+	    }

+

+	    if (outbufptr) {

+	        strcpy((char *)outbufptr, ct_sequence);

+		outbufptr += seq_len;

+

+                if (!standard_flag) {

+                    const char *i = charset->encoding_name;

+                    ext_seg_len = outbufptr;

+                    outbufptr += 2;

+	            for (; *i ; i++)

+                        *outbufptr++ = ((*i >= 'A') && (*i <= 'Z')) ?

+                                       *i - 'A' + 'a' : *i;

+		    *outbufptr++ = STX;

+                }

+	    }

+

+	    (*to_left) -= total_len;

+

+	    first_flag = False;

+	    old_charset = charset;

+	}

+

+        /* output glyph index */

+	if (codeset->ctconv)

+            glyph_index = conv_to_dest(codeset->ctconv, glyph_index);

+        if (*to_left < charset->char_size) {

+            unconv_num++;

+	    break;

+        }

+

+	if (outbufptr) {

+	   output_ulong_value(outbufptr, glyph_index, charset->char_size, side);

+	   outbufptr += charset->char_size;

+	}

+

+	(*to_left) -= charset->char_size;

+

+    } /* end of while */

+

+    if ( (ext_seg_len != NULL) && outbufptr) {

+        int i = (outbufptr - ext_seg_len) - 2;

+        *ext_seg_len++ = i / 128 + 128;

+        *ext_seg_len   = i % 128 + 128;

+    }

+

+    *from = (XPointer) ((const wchar_t *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_wcstocts(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left) * MB_CUR_MAX;

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = stdc_wcstombs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = buf_ptr1 - buf_ptr2;

+

+    unconv_num2 = mbstocts(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+ctstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long glyph_index = 0;

+    wchar_t wc;

+

+    int ctr_seq_len = 0, gi_len_left = 0, gi_len = 0;

+    int unconv_num = 0;

+

+    CodeSet codeset = NULL;

+    XlcCharSet charset_tmp;

+

+    const char *inbufptr = *from;

+    wchar_t *outbufptr = (wchar_t *) *to;

+    int from_size = *from_left;

+

+    _XlcResetConverter(conv); /* ??? */

+

+    if (from == NULL || *from == NULL) {

+	_XlcResetConverter(conv);

+        return( 0 );

+    }

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+	ch = *inbufptr++;

+	(*from_left)--;

+

+	/* null ? */

+	if (!ch) {

+            if (outbufptr) {*outbufptr++ = L'\0';}

+	    (*to_left)--;

+

+	    /* error check */

+            if (gi_len_left) {

+	        unconv_num += (gi_len - gi_len_left);

+		gi_len_left = 0;

+            }

+

+	    continue;

+	}

+

+	/* same glyph_index data */

+        if (gi_len_left)

+	    goto output_one_wc;

+

+        /* control sequence ? */

+        if (ch == CSI) {

+            if ( !ct_parse_csi(inbufptr - 1, &ctr_seq_len) )

+	        goto skip_the_seg;

+

+	    if (*from_left + 1 < ctr_seq_len) {

+		inbufptr--;

+		(*from_left)++;

+		unconv_num += *from_left;

+		break;

+	    }

+

+            /* skip the control sequence */

+	    inbufptr += (ctr_seq_len - 1);

+	    *from_left -= (ctr_seq_len - 1);

+

+            continue;

+	}

+

+        /* escape sequence ? */

+        if (ch == ESC) {

+	    if ( !ct_parse_charset(lcd,

+			inbufptr - 1, &state->charset, &ctr_seq_len) )

+		goto skip_the_seg;

+

+	    if (state->charset->side == XlcC0 ||

+		state->charset->side == XlcGL)

+	      {

+		state->GL_charset = state->charset;

+	      }

+	    else if (state->charset->side == XlcC1 ||

+		     state->charset->side == XlcGR)

+	      {

+		state->GR_charset = state->charset;

+	      }

+	    else if (state->charset->side == XlcGLGR)

+	      {

+		state->GL_charset = state->charset;

+		state->GR_charset = state->charset;

+	      }

+

+	    if (*from_left + 1 < ctr_seq_len) {

+		inbufptr--;

+		(*from_left)++;

+		unconv_num += *from_left;

+		break;

+	    }

+

+            /* skip the escape sequence */

+	    inbufptr += (ctr_seq_len - 1);

+	    *from_left -= (ctr_seq_len - 1);

+

+            continue;

+        }

+

+ 	/* check current state */

+	if (isleftside(ch))

+	  state->charset = state->GL_charset;

+	else

+	  state->charset = state->GR_charset;

+

+	gi_len = gi_len_left = state->charset->char_size;

+	glyph_index = 0;

+

+output_one_wc:

+        if (state->charset->side == XlcC1 || state->charset->side == XlcGR)

+            glyph_index = (glyph_index << 8) | (ch & GL);

+        else

+            glyph_index = (glyph_index << 8) | ch;

+

+	gi_len_left--;

+

+        /* last of one glyph_index data */

+        if (!gi_len_left) {

+

+	    /* segment conversion */

+	    charset_tmp = state->charset;

+	    segment_conversion(lcd, &charset_tmp, &glyph_index);

+

+            /* get codeset */

+            if ( !_XlcGetCodeSetFromCharSet(lcd, charset_tmp,

+						&codeset, &glyph_index) ) {

+		unconv_num += gi_len;

+		continue;

+            }

+

+            /* convert glyph index to wicd char */

+            gi_to_wc(lcd, glyph_index, codeset, &wc);

+            if (outbufptr) {*outbufptr++ = wc;}

+	    (*to_left)--;

+        }

+

+        continue;

+

+skip_the_seg:

+	/* skip until next escape or control sequence */

+        while ( *from_left ) {

+	    ch = *inbufptr++;

+	    (*from_left)--;

+	    unconv_num++;

+

+            if (ch == ESC || ch == CSI) {

+		inbufptr--;

+		(*from_left)++;

+		unconv_num--;

+		break;

+	    }

+        }

+

+        if ( !(*from_left) )

+	    break;

+

+    } /* end of while */

+

+    /* error check on last char */

+    if (gi_len_left) {

+	inbufptr -= (gi_len - gi_len_left);

+	(*from_left) += (gi_len - gi_len_left);

+	unconv_num += (gi_len - gi_len_left);

+    }

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+cstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long glyph_index = 0;

+    wchar_t wc;

+    int gi_len_left = 0, gi_len = 0;

+

+    int unconv_num = 0;

+

+    CodeSet codeset = NULL;

+    XlcCharSet charset, charset_tmp;

+

+    const char *inbufptr = *from;

+    wchar_t *outbufptr = (wchar_t *) *to;

+    int from_size = *from_left;

+

+    if (from == NULL || *from == NULL) {

+        return( 0 );

+    }

+

+    charset = (XlcCharSet) args[0];

+

+    while (*from_left && *to_left) {

+

+        if (!gi_len_left) {

+            gi_len_left = gi_len = charset->char_size;

+            glyph_index = 0;

+        }

+

+	ch = *inbufptr++;

+	(*from_left)--;

+

+	/* null ? */

+	if (!ch) {

+            if (outbufptr) {*outbufptr++ = L'\0';}

+	    (*to_left)--;

+

+	    /* error check */

+            if (gi_len_left) {

+	        unconv_num += (gi_len - gi_len_left);

+		gi_len_left = 0;

+            }

+	    continue;

+	}

+

+        if (charset->side == XlcC1 || charset->side == XlcGR)

+            glyph_index = (glyph_index << 8) | (ch & GL);

+        else

+            glyph_index = (glyph_index << 8) | ch;

+

+	gi_len_left--;

+

+        /* last of one glyph_index data */

+        if (!gi_len_left) {

+

+	    /* segment conversion */

+	    charset_tmp = charset;

+	    segment_conversion(lcd, &charset_tmp, &glyph_index);

+

+            /* get codeset */

+            if ( !_XlcGetCodeSetFromCharSet(lcd, charset_tmp,

+						&codeset, &glyph_index) ) {

+		unconv_num += gi_len;

+		continue;

+            }

+

+            /* convert glyph index to wicd char */

+            gi_to_wc(lcd, glyph_index, codeset, &wc);

+            if (outbufptr) {*outbufptr++ = wc;}

+	    (*to_left)--;

+        }

+

+    } /* end of while */

+

+    /* error check on last char */

+    if (gi_len_left) {

+	inbufptr -= (gi_len - gi_len_left);

+	(*from_left) += (gi_len - gi_len_left);

+	unconv_num += (gi_len - gi_len_left);

+    }

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_ctstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left) * MB_CUR_MAX;

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = ctstombs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = buf_ptr1 - buf_ptr2;

+

+    unconv_num2 = stdc_mbstowcs(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+stdc_cstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left) * MB_CUR_MAX;

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = cstombs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = buf_ptr1 - buf_ptr2;

+

+    unconv_num2 = stdc_mbstowcs(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+mbstocts(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left);

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = mbstowcs_org(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);

+

+    unconv_num2 += wcstocts(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+mbstostr(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long mb = 0;

+

+    int length = 0, len_left = 0;

+    int unconv_num = 0;

+    int num;

+

+    CodeSet codeset = NULL;

+

+    const char *inbufptr = *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);

+

+    if (from == NULL || *from == NULL) {

+	_XlcResetConverter(conv);

+        return( 0 );

+    }

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+	ch = *inbufptr++;

+	(*from_left)--;

+

+	/* null ? */

+	if (!ch) {

+            if (outbufptr) {*outbufptr++ = '\0';}

+	    (*to_left)--;

+

+            /* error check */

+            if (len_left) {

+                unconv_num += (length - len_left);

+                len_left = 0;

+            }

+

+	    continue;

+	}

+

+        /* same mb char data */

+        if (len_left)

+            goto output_one_mb;

+

+        /* next mb char data for single shift ? */

+	if (mb_parse_table && (num = mb_parse_table[ch]) ) {

+	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);

+            if (codeset != NULL) {

+		length = len_left = codeset->length;

+		mb = 0;

+		continue;

+	    }

+        }

+

+	/* next char data : byteM ? */

+	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))

+	    goto next_mb_char;

+

+	/* next char data : GL or GR side ? */

+	if ((codeset = GLGR_parse_codeset(ch)))

+	    goto next_mb_char;

+

+        /* can't find codeset for the ch */

+        unconv_num++;

+        continue;

+

+next_mb_char:

+        length = len_left = codeset->length;

+        mb = 0;

+

+output_one_mb:

+        mb = (mb << 8) | ch;  /* 1 byte left shift */

+        len_left--;

+

+        /* last of one mb char data */

+        if (!len_left) {

+            if (check_string_encoding(codeset)) {

+                if (outbufptr) {*outbufptr++ = mb & 0xff;}

+		(*to_left)--;

+            } else {

+	        unconv_num++;

+            }

+        }

+

+    } /* end of while */

+

+    /* error check on last char */

+    if (len_left) {

+        inbufptr -= (length - len_left);

+        (*from_left) += (length - len_left);

+        unconv_num += (length - len_left);

+    }

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+mbtocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long mb = 0;

+    unsigned long glyph_index;

+

+    int length = 0, len_left = 0, char_len;

+    int unconv_num = 0;

+    int num;

+    XlcSide side;

+

+    CodeSet codeset = NULL;

+    XlcCharSet charset = NULL;

+

+    const char *inbufptr = *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    unsigned char *mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);

+

+    if (from == NULL || *from == NULL) {

+	_XlcResetConverter(conv);

+        return( 0 );

+    }

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+	ch = *inbufptr++;

+	(*from_left)--;

+

+	/* null ? */

+	if (!ch) {

+            unconv_num = 1;

+            if (len_left)

+	        unconv_num += (length - len_left);

+	    break;

+	}

+

+	/* same mb char data */

+        if (len_left)

+	    goto output;

+

+        /* next mb char data for single shift ? */

+	if (mb_parse_table && (num = mb_parse_table[ch]) ) {

+	    codeset = mb_parse_codeset(state, num, &inbufptr, from_left);

+            if (codeset != NULL) {

+		length = len_left = codeset->length;

+		mb = 0;

+		continue;

+	    }

+        }

+

+	/* next mb char data for byteM ? */

+	if ((codeset = byteM_parse_codeset(lcd, (inbufptr - 1))))

+	    goto next_mb_char;

+

+	/* next mb char data for GL or GR side ? */

+	if ((codeset = GLGR_parse_codeset(ch)))

+	    goto next_mb_char;

+

+        /* can't find codeset for the ch */

+        unconv_num = 1;

+        break;

+

+next_mb_char:

+        length = len_left = codeset->length;

+	mb = 0;

+

+output:

+	mb = (mb << 8) | ch;  /* 1 byte left shift */

+	len_left--;

+

+        /* last of one mb char data */

+        if (!len_left) {

+            glyph_index = mb_to_gi(mb, codeset);

+            if (!(charset = gi_parse_charset(glyph_index, codeset))) {

+                unconv_num = length;

+                break;

+            }

+            char_len = charset->char_size;

+	    side = charset->side;

+

+            /* output glyph index */

+            if (codeset->ctconv)

+                glyph_index = conv_to_dest(codeset->ctconv, glyph_index);

+            if (*to_left < char_len) {

+                unconv_num = length;

+                break;

+            }

+

+	    if (outbufptr) {

+	        output_ulong_value(outbufptr, glyph_index, char_len, side);

+	        outbufptr += char_len;

+	    }

+

+            (*to_left) -= char_len;

+

+            break;

+        }

+

+    } /* end of while */

+

+    /* error end */

+    if (unconv_num) {

+        *from = (XPointer) ((const char *) *from + from_size);

+        *from_left = 0;

+        *to = (XPointer) outbufptr;

+	return -1;

+    }

+

+    /* nomal end */

+    *from = (XPointer) inbufptr;

+    *to = (XPointer) outbufptr;

+

+    if (num_args > 0)

+        *((XlcCharSet *) args[0]) = charset;

+

+    return 0;

+}

+

+static int

+mbstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    int ret;

+    XlcCharSet charset_old, charset = NULL;

+    XPointer tmp_args[1];

+

+    const char *inbufptr;

+    int	in_left;

+    char *outbufptr;

+    int	out_left;

+    tmp_args[0] = (XPointer) &charset;

+

+    ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, 1);

+    charset_old = charset;

+

+    while ( ret == 0 && *from_left && *to_left) {

+	inbufptr = *from;

+	in_left = *from_left;

+	outbufptr = *to;

+	out_left = *to_left;

+        ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, 1);

+        if (charset_old != charset) {

+           *from = (XPointer) inbufptr;

+           *from_left = in_left;

+           *to = (XPointer) outbufptr;

+           *to_left = out_left;

+           break;

+        }

+    }

+

+    if (num_args > 0)

+        *((XlcCharSet *) args[0]) = charset_old;

+

+    /* error end */

+    if (ret != 0)

+	return( -1 );

+

+    return(0);

+}

+

+static int

+wcstostr(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    char *encoding;

+    unsigned long mb, glyph_index;

+    wchar_t wc;

+

+    int length;

+    int unconv_num = 0;

+

+    CodeSet codeset;

+

+    const wchar_t *inbufptr = (const wchar_t *) *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    const char *default_string = XLC_PUBLIC(lcd, default_string);

+    int defstr_len = strlen(default_string);

+

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+        wc = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!wc) {

+            if (outbufptr) {*outbufptr++ = '\0';}

+            (*to_left)--;

+

+            continue;

+        }

+

+        /* convert */

+	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {

+

+	    /* output default_string of XDefaultString() */

+            if (*to_left < defstr_len)

+		break;

+	    if (outbufptr) {

+                strncpy((char *)outbufptr, default_string, defstr_len);

+	        outbufptr += defstr_len;

+            }

+	    (*to_left) -= defstr_len;

+

+            unconv_num++;

+

+        } else {

+            mb = gi_to_mb(glyph_index, codeset);

+

+	    if (check_string_encoding(codeset)) {

+	        if (codeset->parse_info) {

+                    Bool need_shift = False;

+                    switch (codeset->parse_info->type) {

+                        case E_LSL :

+                            if (codeset != state->GL_codeset) {

+                                need_shift = True;

+                                state->GL_codeset = codeset;

+                            }

+                            break;

+                        case E_LSR :

+                            if (codeset != state->GR_codeset) {

+                                need_shift = True;

+                                state->GR_codeset = codeset;

+                            }

+                            break;

+                        /* case E_SS */

+                        default:

+                            need_shift = True;

+                    }

+

+		    /* output shift sequence */

+                    if (need_shift) {

+		        encoding = codeset->parse_info->encoding;

+                        length = strlen(encoding);

+                        if (*to_left < length)

+		            break;

+

+	                if (outbufptr) {

+                            strncpy((char *)outbufptr, encoding, length);

+	                    outbufptr += length;

+                        }

+	                (*to_left) -= length;

+                    }

+                }

+

+                /* output characters */

+	        length = codeset->length;

+                if (*to_left < length)

+		    break;

+

+	        if (outbufptr) {

+	            output_ulong_value(outbufptr, mb, length, XlcNONE);

+	            outbufptr += length;

+	        }

+

+	        (*to_left) -= length;

+            } else {

+		unconv_num++;

+            }

+        }

+

+    } /* end of while */

+

+    *from = (XPointer) ((const wchar_t *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_wcstostr(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left) * MB_CUR_MAX;

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = stdc_wcstombs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = buf_ptr1 - buf_ptr2;

+

+    unconv_num2 = mbstostr(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+wctocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    wchar_t wc;

+    unsigned long glyph_index;

+

+    int char_len;

+    int unconv_num = 0;

+    XlcSide side;

+

+    CodeSet codeset;

+    XlcCharSet charset = NULL;

+

+    const wchar_t *inbufptr = (const wchar_t *) *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    if (*from_left && *to_left) {

+

+        wc = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!wc) {

+            unconv_num = 1;

+            goto end;

+        }

+

+        /* convert */

+	if ( !wc_to_gi(lcd, wc, &glyph_index, &codeset) ) {

+            unconv_num = 1;

+	    goto end;

+        }

+

+        if ( !(charset = gi_parse_charset(glyph_index, codeset)) ) {

+            unconv_num = 1;

+	    goto end;

+        }

+	char_len = charset->char_size;

+	side = charset->side;

+

+        /* output glyph index */

+	if (codeset->ctconv)

+            glyph_index = conv_to_dest(codeset->ctconv, glyph_index);

+        if (*to_left < char_len) {

+            unconv_num++;

+	    goto end;

+        }

+

+        if (outbufptr) {

+            output_ulong_value(outbufptr, glyph_index, char_len, side);

+            outbufptr += char_len;

+        }

+

+	(*to_left) -= char_len;

+

+    }

+

+end:

+

+     /* error end */

+    if (unconv_num) {

+        *from = (XPointer) ((const wchar_t *) *from + from_size);

+        *from_left = 0;

+        *to = (XPointer) outbufptr;

+        return -1;

+    }

+

+    /* nomal end */

+    *from = (XPointer) inbufptr;

+    *to = (XPointer) outbufptr;

+

+    if (num_args > 0)

+        *((XlcCharSet *) args[0]) = charset;

+

+    return 0;

+}

+

+static int

+stdc_wctocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const wchar_t *src = *((const wchar_t **) from);

+    wchar_t wch;

+    XPointer tmp_from, save_from = *from;

+    char tmp[32];

+    int length, ret, src_left = *from_left;

+    int from_size = *from_left;

+

+    if (src_left > 0 && *to_left > 0) {

+	if ((wch = *src)) {

+	    length = wctomb(tmp, wch);

+	} else {

+	    goto end;

+	}

+

+	if (length < 0)

+	    goto end;

+

+	tmp_from = (XPointer) tmp;

+	ret = mbtocs(conv, &tmp_from, &length, to, to_left, args, num_args);

+	if (ret < 0)

+	    goto end;

+

+	src++;

+	src_left--;

+    }

+

+end:

+     /* error end */

+    if (save_from == (XPointer) src) {

+        *from = (XPointer) ((const wchar_t *) *from + from_size);

+        *from_left = 0;

+	return -1;

+    }

+

+    /* nomal end */

+    *from = (XPointer) src;

+    *from_left = src_left;

+

+    return 0;

+}

+

+static int

+wcstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    int ret;

+    XlcCharSet charset_old, charset = NULL;

+    XPointer tmp_args[1];

+

+    const wchar_t *inbufptr;

+    int	in_left;

+    XPointer outbufptr;

+    int	out_left;

+    tmp_args[0] = (XPointer) &charset;

+

+    ret = wctocs(conv, from, from_left, to, to_left, tmp_args, 1);

+    charset_old = charset;

+

+    while ( ret == 0 && *from_left && *to_left) {

+	inbufptr = (const wchar_t *) *from;

+	in_left = *from_left;

+	outbufptr = *to;

+	out_left = *to_left;

+        ret = wctocs(conv, from, from_left, to, to_left, tmp_args, 1);

+        if (charset_old != charset) {

+           *from = (XPointer) inbufptr;

+           *from_left = in_left;

+           *to = (XPointer) outbufptr;

+           *to_left = out_left;

+           break;

+        }

+    }

+

+    if (num_args > 0)

+        *((XlcCharSet *) args[0]) = charset_old;

+

+    /* error end */

+    if (ret != 0)

+	return( -1 );

+

+    return(0);

+}

+

+#ifdef STDCVT

+

+static int

+stdc_wcstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    int ret;

+    XlcCharSet charset_old, charset = NULL;

+    XPointer tmp_args[1];

+

+    const wchar_t *inbufptr;

+    int	in_left;

+    XPointer outbufptr;

+    int	out_left;

+    tmp_args[0] = (XPointer) &charset;

+

+    ret = stdc_wctocs(conv, from, from_left, to, to_left, tmp_args, 1);

+    charset_old = charset;

+

+    while ( ret == 0 && *from_left && *to_left ) {

+	inbufptr = (const wchar_t *) *from;

+	in_left = *from_left;

+	outbufptr = *to;

+	out_left = *to_left;

+        ret = stdc_wctocs(conv, from, from_left, to, to_left, tmp_args, 1);

+        if (charset_old != charset) {

+           *from = (XPointer) inbufptr;

+           *from_left = in_left;

+           *to = (XPointer) outbufptr;

+           *to_left = out_left;

+           break;

+        }

+    }

+

+    if (num_args > 0)

+        *((XlcCharSet *) args[0]) = charset_old;

+

+    /* error end */

+    if (ret != 0)

+	return( -1 );

+

+    return(0);

+}

+

+#endif

+

+static int

+ctstombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left);

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = ctstowcs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);

+

+    unconv_num2 += wcstombs_org(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+cstombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * sizeof(wchar_t));

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left);

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = cstowcs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = (buf_ptr1 - buf_ptr2) / sizeof(wchar_t);

+

+    unconv_num2 += wcstombs_org(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+static int

+strtombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    char *encoding;

+    unsigned long mb, glyph_index;

+    unsigned char ch;

+

+    int length;

+    int unconv_num = 0;

+

+    CodeSet codeset;

+

+    const char *inbufptr = *from;

+    char *outbufptr = *to;

+    int from_size = *from_left;

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+        ch = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!ch) {

+            if (outbufptr) {*outbufptr++ = '\0';}

+            (*to_left)--;

+

+            continue;

+        }

+

+        /* convert */

+        if (isleftside(ch)) {

+	    glyph_index = ch;

+	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GL");

+	} else {

+	    glyph_index = ch & GL;

+	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GR");

+	}

+

+        if (!codeset) {

+	    unconv_num++;

+	    continue;

+        }

+

+        mb = gi_to_mb(glyph_index, codeset);

+	if (codeset->parse_info) {

+            Bool need_shift = False;

+            switch (codeset->parse_info->type) {

+                case E_LSL :

+                    if (codeset != state->GL_codeset) {

+                        need_shift = True;

+                        state->GL_codeset = codeset;

+                    }

+                    break;

+                case E_LSR :

+                    if (codeset != state->GR_codeset) {

+                        need_shift = True;

+                        state->GR_codeset = codeset;

+                    }

+                    break;

+                /* case E_SS */

+                default:

+                    need_shift = True;

+            }

+

+	    /* output shift sequence */

+            if (need_shift) {

+                encoding = codeset->parse_info->encoding;

+                length = strlen(encoding);

+                if (*to_left < length)

+		    break;

+	        if (outbufptr) {

+                    strncpy((char *)outbufptr, encoding, length);

+	            outbufptr += length;

+                }

+	        (*to_left) -= length;

+	    }

+        }

+

+        /* output characters */

+	length = codeset->length;

+        if (*to_left < length)

+	    break;

+

+        if (outbufptr) {

+            output_ulong_value(outbufptr, mb, length, XlcNONE);

+            outbufptr += length;

+        }

+

+	(*to_left) -= length;

+

+    } /* end of while */

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+strtowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+

+    unsigned char ch;

+    unsigned long glyph_index;

+    wchar_t wc;

+

+    int unconv_num = 0;

+    CodeSet codeset;

+

+    const char *inbufptr = *from;

+    wchar_t *outbufptr = (wchar_t *)*to;

+    int from_size = *from_left;

+

+    if (*from_left > *to_left)

+        *from_left = *to_left;

+

+    while (*from_left && *to_left) {

+

+        ch = *inbufptr++;

+        (*from_left)--;

+

+        /* null ? */

+        if (!ch) {

+            if (outbufptr) {*outbufptr++ = L'\0';}

+            (*to_left)--;

+

+            continue;

+        }

+

+        /* convert */

+        if (isleftside(ch)) {

+	    glyph_index = ch;

+	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GL");

+	} else {

+	    glyph_index = ch & GL;

+	    codeset = _XlcGetCodeSetFromName(lcd, "ISO8859-1:GR");

+	}

+

+        if (!codeset) {

+	    unconv_num++;

+	    continue;

+        }

+

+        gi_to_wc(lcd, glyph_index, codeset, &wc);

+	if (outbufptr) {*outbufptr++ = wc;}

+	(*to_left)--;

+

+    } /* end of while */

+

+    *from = (XPointer) ((const char *) *from + from_size);

+    *from_left = 0;

+    *to = (XPointer) outbufptr;

+

+    return unconv_num;

+}

+

+static int

+stdc_strtowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XPointer buf = Xmalloc((*from_left) * MB_CUR_MAX);

+    char *buf_ptr1 = buf;

+    int buf_left1 = (*from_left) * MB_CUR_MAX;

+    char *buf_ptr2 = buf_ptr1;

+    int buf_left2;

+    int unconv_num1 = 0, unconv_num2 = 0;

+

+    unconv_num1 = strtombs(conv,

+		from, from_left, &buf_ptr1, &buf_left1, args, num_args);

+    if (unconv_num1 < 0)

+        goto ret;

+

+    buf_left2 = buf_ptr1 - buf_ptr2;

+

+    unconv_num2 = stdc_mbstowcs(conv,

+		&buf_ptr2, &buf_left2, to, to_left, args, num_args);

+    if (unconv_num2 < 0)

+        goto ret;

+

+ret:

+    if (buf)

+	Xfree((char *)buf);

+

+    return (unconv_num1 + unconv_num2);

+}

+

+/* -------------------------------------------------------------------------- */

+/*				Close                                         */

+/* -------------------------------------------------------------------------- */

+

+static void

+close_converter(

+    XlcConv conv)

+{

+    if (conv->state) {

+	Xfree((char *) conv->state);

+    }

+

+    if (conv->methods) {

+	Xfree((char *) conv->methods);

+    }

+

+    Xfree((char *) conv);

+}

+

+/* -------------------------------------------------------------------------- */

+/*				Open                                          */

+/* -------------------------------------------------------------------------- */

+

+static XlcConv

+create_conv(

+    XLCd lcd,

+    XlcConvMethods methods)

+{

+    XlcConv conv;

+    State state;

+

+    conv = (XlcConv) Xcalloc(1, sizeof(XlcConvRec));

+    if (conv == NULL)

+	return (XlcConv) NULL;

+

+    conv->methods = (XlcConvMethods) Xmalloc(sizeof(XlcConvMethodsRec));

+    if (conv->methods == NULL)

+	goto err;

+    *conv->methods = *methods;

+    conv->methods->reset = init_state;

+

+    conv->state = Xcalloc(1, sizeof(StateRec));

+    if (conv->state == NULL)

+	goto err;

+

+    state = (State) conv->state;

+    state->lcd = lcd;

+

+    _XlcResetConverter(conv);

+

+    return conv;

+

+err:

+    close_converter(conv);

+

+    return (XlcConv) NULL;

+}

+

+static XlcConvMethodsRec mbstocts_methods = {

+    close_converter,

+    mbstocts,

+    NULL

+};

+

+static XlcConv

+open_mbstocts(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbstocts_methods);

+}

+

+static XlcConvMethodsRec mbstostr_methods = {

+    close_converter,

+    mbstostr,

+    NULL

+};

+

+static XlcConv

+open_mbstostr(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbstostr_methods);

+}

+

+static XlcConvMethodsRec mbstocs_methods = {

+    close_converter,

+    mbstocs,

+    NULL

+};

+

+static XlcConv

+open_mbstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbstocs_methods);

+}

+

+static XlcConvMethodsRec mbtocs_methods = {

+    close_converter,

+    mbtocs,

+    NULL

+};

+

+static XlcConv

+open_mbtocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbtocs_methods);

+}

+

+static XlcConvMethodsRec ctstombs_methods = {

+    close_converter,

+    ctstombs,

+    NULL

+};

+

+static XlcConv

+open_ctstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &ctstombs_methods);

+}

+

+static XlcConvMethodsRec cstombs_methods = {

+    close_converter,

+    cstombs,

+    NULL

+};

+

+static XlcConv

+open_cstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &cstombs_methods);

+}

+

+static XlcConvMethodsRec strtombs_methods = {

+    close_converter,

+    strtombs,

+    NULL

+};

+

+static XlcConv

+open_strtombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &strtombs_methods);

+}

+

+#ifdef STDCVT

+

+static XlcConvMethodsRec stdc_mbstowcs_methods = {

+    close_converter,

+    stdc_mbstowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_mbstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_mbstowcs_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstombs_methods = {

+    close_converter,

+    stdc_wcstombs,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstombs_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstocts_methods = {

+    close_converter,

+    stdc_wcstocts,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstocts(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstocts_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstostr_methods = {

+    close_converter,

+    stdc_wcstostr,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstostr(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstostr_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstocs_methods = {

+    close_converter,

+    stdc_wcstocs,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstocs_methods);

+}

+

+static XlcConvMethodsRec stdc_wctocs_methods = {

+    close_converter,

+    stdc_wctocs,

+    NULL

+};

+

+static XlcConv

+open_stdc_wctocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wctocs_methods);

+}

+

+static XlcConvMethodsRec stdc_ctstowcs_methods = {

+    close_converter,

+    stdc_ctstowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_ctstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_ctstowcs_methods);

+}

+

+static XlcConvMethodsRec stdc_cstowcs_methods = {

+    close_converter,

+    stdc_cstowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_cstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_cstowcs_methods);

+}

+

+static XlcConvMethodsRec stdc_strtowcs_methods = {

+    close_converter,

+    stdc_strtowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_strtowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_strtowcs_methods);

+}

+

+#endif /* STDCVT */

+

+static XlcConvMethodsRec mbstowcs_methods = {

+    close_converter,

+    mbstowcs_org,

+    NULL

+};

+

+static XlcConv

+open_mbstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbstowcs_methods);

+}

+

+static XlcConvMethodsRec wcstombs_methods = {

+    close_converter,

+    wcstombs_org,

+    NULL

+};

+

+static XlcConv

+open_wcstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wcstombs_methods);

+}

+

+static XlcConvMethodsRec wcstocts_methods = {

+    close_converter,

+    wcstocts,

+    NULL

+};

+

+static XlcConv

+open_wcstocts(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wcstocts_methods);

+}

+

+static XlcConvMethodsRec wcstostr_methods = {

+    close_converter,

+    wcstostr,

+    NULL

+};

+

+static XlcConv

+open_wcstostr(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wcstostr_methods);

+}

+

+static XlcConvMethodsRec wcstocs_methods = {

+    close_converter,

+    wcstocs,

+    NULL

+};

+

+static XlcConv

+open_wcstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wcstocs_methods);

+}

+

+static XlcConvMethodsRec wctocs_methods = {

+    close_converter,

+    wctocs,

+    NULL

+};

+

+static XlcConv

+open_wctocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wctocs_methods);

+}

+

+static XlcConvMethodsRec ctstowcs_methods = {

+    close_converter,

+    ctstowcs,

+    NULL

+};

+

+static XlcConv

+open_ctstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &ctstowcs_methods);

+}

+

+static XlcConvMethodsRec cstowcs_methods = {

+    close_converter,

+    cstowcs,

+    NULL

+};

+

+static XlcConv

+open_cstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &cstowcs_methods);

+}

+

+static XlcConvMethodsRec strtowcs_methods = {

+    close_converter,

+    strtowcs,

+    NULL

+};

+

+static XlcConv

+open_strtowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &strtowcs_methods);

+}

+

+/* -------------------------------------------------------------------------- */

+/*				Loader                                        */

+/* -------------------------------------------------------------------------- */

+

+XLCd

+_XlcGenericLoader(

+    const char *name)

+{

+    XLCd lcd;

+#ifdef STDCVT

+    XLCdGenericPart *gen;

+#endif

+

+    lcd = _XlcCreateLC(name, _XlcGenericMethods);

+

+    if (lcd == NULL)

+	return lcd;

+

+    default_GL_charset = _XlcGetCharSet("ISO8859-1:GL");

+    default_GR_charset = _XlcGetCharSet("ISO8859-1:GR");

+

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCompoundText, open_mbstocts);

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNString,       open_mbstostr);

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCharSet,      open_mbstocs);

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNChar,         open_mbtocs);

+    _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNMultiByte, open_ctstombs);

+    _XlcSetConverter(lcd, XlcNString,    lcd, XlcNMultiByte,    open_strtombs);

+    _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNMultiByte,    open_cstombs);

+

+#ifdef STDCVT

+     gen = XLC_GENERIC_PART(lcd);

+

+     if (gen->use_stdc_env != True) {

+#endif

+        _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNWideChar,     open_mbstowcs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNMultiByte,    open_wcstombs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCompoundText, open_wcstocts);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNString,       open_wcstostr);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCharSet,      open_wcstocs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNChar,         open_wctocs);

+        _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNWideChar,  open_ctstowcs);

+        _XlcSetConverter(lcd, XlcNString,    lcd, XlcNWideChar,     open_strtowcs);

+        _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNWideChar,     open_cstowcs);

+#ifdef STDCVT

+    }

+#endif

+

+#ifdef STDCVT

+    if (gen->use_stdc_env == True) {

+        _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNWideChar,     open_stdc_mbstowcs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNMultiByte,    open_stdc_wcstombs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCompoundText, open_stdc_wcstocts);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNString,       open_stdc_wcstostr);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNCharSet,      open_stdc_wcstocs);

+        _XlcSetConverter(lcd, XlcNWideChar,  lcd, XlcNChar,         open_stdc_wctocs);

+        _XlcSetConverter(lcd, XlcNCompoundText, lcd, XlcNWideChar,  open_stdc_ctstowcs);

+        _XlcSetConverter(lcd, XlcNString,    lcd, XlcNWideChar,     open_stdc_strtowcs);

+        _XlcSetConverter(lcd, XlcNCharSet,   lcd, XlcNWideChar,     open_stdc_cstowcs);

+    }

+#endif

+

+    _XlcAddUtf8Converters(lcd);

+

+    return lcd;

+}

diff --git a/libX11/modules/lc/gen/makefile b/libX11/modules/lc/gen/makefile
new file mode 100644
index 000000000..8fe90a5e6
--- /dev/null
+++ b/libX11/modules/lc/gen/makefile
@@ -0,0 +1,6 @@
+LIBRARY = liblcGenConvLoad
+
+CSRCS=lcGenConv.c
+
+INCLUDES += ..\..\..\include\X11 ..\..\..\src\xlibi18n ..\..\..\src
+
diff --git a/libX11/modules/lc/xlocale/lcJis.c b/libX11/modules/lc/xlocale/lcJis.c
index 551862d9b..c2ca2f560 100644
--- a/libX11/modules/lc/xlocale/lcJis.c
+++ b/libX11/modules/lc/xlocale/lcJis.c
@@ -1,944 +1,944 @@
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-
-/*
- * A Japanese JIS locale.
- * Supports: all locales with codeset JIS7.
- * How: Provides converters for JIS.
- * Platforms: Only those defining X_LOCALE (only Lynx, Linux-libc5, OS/2).
- */
-
-#ifdef X_LOCALE
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "XlcGeneric.h"
-#include <stdio.h>
-
-#if !defined(X_LOCALE)
-#define STDCVT
-#endif
-
-typedef struct _StateRec {
-    XLCd lcd;
-    XlcCharSet charset;
-    XlcCharSet GL_charset;
-    XlcCharSet GR_charset;
-} StateRec, *State;
-
-static void
-init_state(
-    XlcConv conv)
-{
-    State state = (State) conv->state;
-    XLCdGenericPart *gen = XLC_GENERIC_PART(state->lcd);
-    CodeSet codeset;
-
-    codeset = gen->initial_state_GL;
-    if (codeset && codeset->charset_list)
-	state->GL_charset = *codeset->charset_list;
-    codeset = gen->initial_state_GR;
-    if (codeset && codeset->charset_list)
-	state->GR_charset = *codeset->charset_list;
-
-    if (state->GL_charset == NULL)
-	if ((codeset = *gen->codeset_list) != NULL)
-	    state->GL_charset = *codeset->charset_list;
-}
-
-static int
-compare(
-    const char *src,
-    const char *encoding,
-    int length)
-{
-    const char *start = src;
-
-    while (length-- > 0) {
-	if (*src++ != *encoding++)
-	    return 0;
-	if (*encoding == '\0')
-	    return src - start;
-    }
-
-    return 0;
-}
-
-static int
-mbtocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-    const char *src;
-    char *dst;
-    unsigned char *mb_parse_table;
-    ParseInfo *parse_list, parse_info;
-    XlcCharSet charset;
-    int length, number, encoding_len = 0;
-    int i;
-
-    src = *((const char **) from);
-    dst = *((char **) to);
-
-    mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);
-    if (mb_parse_table != NULL) {
-	number = mb_parse_table[(unsigned char) *src];
-	if (number > 0) {
-	    parse_list = XLC_GENERIC(lcd, mb_parse_list) + number - 1;
-	    for ( ; (parse_info = *parse_list) != NULL; parse_list++) {
-		encoding_len = compare(src, parse_info->encoding, *from_left);
-		if (encoding_len > 0) {
-		    switch (parse_info->type) {
-			case E_SS:
-			    src += encoding_len;
-			    charset = *parse_info->codeset->charset_list;
-			    goto found;
-			case E_LSL:
-			case E_LSR:
-			    src += encoding_len;
-			    charset = *parse_info->codeset->charset_list;
-			    if (parse_info->type == E_LSL)
-			    	state->GL_charset = charset;
-			    else
-			    	state->GR_charset = charset;
-			    length = 0;
-			    goto end;
-			case E_GL:
-			    charset = state->GL_charset;
-			    goto found;
-			case E_GR:
-			    charset = state->GR_charset;
-			    goto found;
-			default:
-			    break;
-		    }
-		}
-	    }
-	}
-    }
-
-    if ((*src & 0x80) && state->GR_charset)
-	charset = state->GR_charset;
-    else
-	charset = state->GL_charset;
-
-found:
-    if (charset == NULL ||
-	(num_args == 2 && (XlcCharSet) args[1] != charset))
-	return -1;
-
-    length = charset->char_size;
-    if (length > *from_left - encoding_len)
-	return -1;
-
-    if (dst) {
-	if (length > *to_left)
-	    return -1;
-	if (charset->side == XlcGL) {
-	    for (i = 0; i < length; i++)
-		*dst++ = *src++ & 0x7f;
-	} else if (charset->side == XlcGR) {
-	    for (i = 0; i < length; i++)
-		*dst++ = *src++ | 0x80;
-	} else {
-	    for (i = 0; i < length; i++)
-		*dst++ = *src++;
-	}
-	*to = (XPointer) dst;
-	*to_left -= length;
-    }
-end:
-    *from = (XPointer) src;
-    *from_left -= encoding_len + length;
-    state->charset = charset;
-    if (num_args == 1)
-	*((XlcCharSet *) args[0]) = charset;
-
-    return 0;
-}
-
-static int
-mbstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XlcCharSet charset = NULL;
-    XPointer tmp_args[2], save_from = *from;
-    int ret, unconv_num = 0, tmp_num = 1;
-
-    tmp_args[0] = (XPointer) &charset;
-
-    while (*from_left > 0 && *to_left > 0) {
-	ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, tmp_num);
-	if (ret < 0)
-	    break;
-	unconv_num += ret;
-	if (tmp_num == 1 && charset) {
-	    tmp_args[1] = (XPointer) charset;
-	    tmp_num = 2;
-	}
-    }
-
-    if (save_from == *from)
-	return -1;
-
-    if (num_args > 0)
-	*((XlcCharSet *) args[0]) = charset;
-
-    return unconv_num;
-}
-
-static CodeSet
-wc_parse_codeset(
-    XLCd lcd,
-    const wchar_t *wcstr)
-{
-    CodeSet *codeset;
-    unsigned long wc_encoding;
-    int num;
-
-    wc_encoding = *wcstr & XLC_GENERIC(lcd, wc_encode_mask);
-    num = XLC_GENERIC(lcd, codeset_num);
-    codeset = XLC_GENERIC(lcd, codeset_list);
-    while (num-- > 0) {
-	if (wc_encoding == (*codeset)->wc_encoding)
-	    return *codeset;
-	codeset++;
-    }
-
-    return NULL;
-}
-
-static int
-wcstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-    const wchar_t *wcptr;
-    char *bufptr;
-    wchar_t wch;
-    char *tmpptr;
-    int length;
-    CodeSet codeset;
-    unsigned long wc_encoding;
-    int wcstr_len, buf_len;
-
-    if (from == NULL || *from == NULL)
-	return 0;
-
-    wcptr = *((const wchar_t **) from);
-    bufptr = *((char **) to);
-    wcstr_len = *from_left;
-    buf_len = *to_left;
-
-    codeset = wc_parse_codeset(lcd, wcptr);
-    if (codeset == NULL)
-	return -1;
-    wc_encoding = codeset->wc_encoding;
-
-    if (wcstr_len < buf_len / codeset->length)
-	buf_len = wcstr_len * codeset->length;
-
-    for ( ; wcstr_len > 0 && buf_len > 0; wcptr++, wcstr_len--) {
-	wch = *wcptr;
-	if ((wch & XLC_GENERIC(lcd, wc_encode_mask)) != wc_encoding)
-	    break;
-	length = codeset->length;
-	buf_len -= length;
-	bufptr += length;
-
-	tmpptr = bufptr - 1;
-	if ((*codeset->charset_list)->side == XlcGL) {
-	    while (length--) {
-		*tmpptr-- = (unsigned char) (wch & 0x7f);
-		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);
-	    }
-	} else if ((*codeset->charset_list)->side == XlcGR) {
-	    while (length--) {
-		*tmpptr-- = (unsigned char) (wch | 0x80);
-		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);
-	    }
-	} else {
-	    while (length--) {
-		*tmpptr-- = (unsigned char) wch;
-		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);
-	    }
-	}
-    }
-
-    if (num_args > 0)
-	*((XlcCharSet *) args[0]) = *codeset->charset_list;
-
-    *from_left -= wcptr - *((wchar_t **) from);
-    *from = (XPointer) wcptr;
-
-    *to_left -= bufptr - *((char **) to);
-    *to = bufptr;
-
-    return 0;
-}
-
-static CodeSet
-GetCodeSetFromCharSet(
-    XLCd lcd,
-    XlcCharSet charset)
-{
-    CodeSet *codeset = XLC_GENERIC(lcd, codeset_list);
-    XlcCharSet *charset_list;
-    int codeset_num, num_charsets;
-
-    codeset_num = XLC_GENERIC(lcd, codeset_num);
-
-    for ( ; codeset_num-- > 0; codeset++) {
-	num_charsets = (*codeset)->num_charsets;
-	charset_list = (*codeset)->charset_list;
-
-	for ( ; num_charsets-- > 0; charset_list++)
-	    if (*charset_list == charset)
-		return *codeset;
-    }
-
-    return (CodeSet) NULL;
-}
-
-static int
-cstombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    const char *csptr;
-    char *bufptr;
-    int csstr_len;
-    int buf_len;
-    int num, encoding_len = 0;
-    CodeSet codeset;
-    XlcCharSet charset;
-    EncodingType type;
-    int cvt_length;
-
-    csptr = *((const char **) from);
-    bufptr = *((char **) to);
-    csstr_len = *from_left;
-    buf_len = *to_left;
-
-    if (num_args < 1)
-	return -1;
-
-    charset = (XlcCharSet) args[0];
-
-    codeset = GetCodeSetFromCharSet(state->lcd, charset);
-    if (codeset == NULL)
-	return -1;
-
-    cvt_length = 0;
-    if (codeset->parse_info) {
-	switch (type = codeset->parse_info->type) {
-	    case E_SS:
-		encoding_len = strlen(codeset->parse_info->encoding);
-		break;
-	    case E_LSL:
-	    case E_LSR:
-		if (type == E_LSL) {
-		    if (charset == state->GL_charset)
-			break;
-		} else {
-		    if (charset == state->GR_charset)
-			break;
-		}
-		encoding_len = strlen(codeset->parse_info->encoding);
-		if (encoding_len > buf_len)
-		    return -1;
-		cvt_length += encoding_len;
-		if (bufptr) {
-		    strcpy(bufptr, codeset->parse_info->encoding);
-		    bufptr += encoding_len;
-		}
-		buf_len -= encoding_len;
-		encoding_len = 0;
-		if (type == E_LSL)
-		    state->GL_charset = charset;
-		else
-		    state->GR_charset = charset;
-		break;
-	    default:
-		break;
-	}
-    }
-
-    csstr_len /= codeset->length;
-    buf_len /= codeset->length + encoding_len;
-    if (csstr_len < buf_len)
-	buf_len = csstr_len;
-
-    cvt_length += buf_len * (encoding_len + codeset->length);
-    if (bufptr) {
-	while (buf_len--) {
-	    if (encoding_len) {
-		strcpy(bufptr, codeset->parse_info->encoding);
-		bufptr += encoding_len;
-	    }
-	    num = codeset->length;
-	    if (codeset->side == XlcGL) {
-		while (num--)
-		    *bufptr++ = *csptr++ & 0x7f;
-	    } else if (codeset->side == XlcGR) {
-		while (num--)
-		    *bufptr++ = *csptr++ | 0x80;
-	    } else {
-		while (num--)
-		    *bufptr++ = *csptr++;
-	    }
-    	}
-    }
-
-    *from_left -= csptr - *((char **) from);
-    *from = (XPointer) csptr;
-
-    if (bufptr)
-	*to = (XPointer) bufptr;
-    *to_left -= cvt_length;
-
-    return 0;
-}
-
-static int
-cstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    State state = (State) conv->state;
-    XLCd lcd = state->lcd;
-    const char *csptr;
-    wchar_t *bufptr;
-    int csstr_len;
-    int buf_len;
-    wchar_t wch;
-    unsigned long code_mask, wc_encoding;
-    int num, length, wc_shift_bits;
-    CodeSet codeset;
-
-    csptr = *((const char **) from);
-    bufptr = *((wchar_t **) to);
-    csstr_len = *from_left;
-    buf_len = *to_left;
-
-    if (num_args < 1)
-	return -1;
-
-    codeset = GetCodeSetFromCharSet(lcd, (XlcCharSet) args[0]);
-    if (codeset == NULL)
-	return -1;
-
-    length = codeset->length;
-    csstr_len /= length;
-    if (csstr_len < buf_len)
-	buf_len = csstr_len;
-
-    code_mask = ~XLC_GENERIC(lcd, wc_encode_mask);
-    wc_encoding = codeset->wc_encoding;
-    wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);
-
-    *to_left -= buf_len;
-
-    if (bufptr) {
-	while (buf_len--) {
-	    wch = (wchar_t) (*csptr++ & 0x7f);
-	    num = length - 1;
-	    while (num--)
-		wch = (wch << wc_shift_bits) | (*csptr++ & 0x7f);
-
-	    *bufptr++ = (wch & code_mask) | wc_encoding;
-	}
-    }
-
-    *from_left -= csptr - *((char **) from);
-    *from = (XPointer) csptr;
-
-    if (bufptr)
-	*to = (XPointer) bufptr;
-
-    return 0;
-}
-
-
-static void
-close_converter(
-    XlcConv conv)
-{
-    if (conv->state) {
-	Xfree((char *) conv->state);
-    }
-
-    Xfree((char *) conv);
-}
-
-static XlcConv
-create_conv(
-    XLCd lcd,
-    XlcConvMethods methods)
-{
-    XlcConv conv;
-    State state;
-
-    conv = (XlcConv) Xmalloc(sizeof(XlcConvRec));
-    if (conv == NULL)
-	return (XlcConv) NULL;
-
-    conv->methods = (XlcConvMethods) Xmalloc(sizeof(XlcConvMethodsRec));
-    if (conv->methods == NULL)
-	goto err;
-    *conv->methods = *methods;
-    if (XLC_PUBLIC(lcd, is_state_depend))
-	conv->methods->reset = init_state;
-
-    conv->state = Xcalloc(1, sizeof(StateRec));
-    if (conv->state == NULL)
-	goto err;
-
-    state = (State) conv->state;
-    state->lcd = lcd;
-    init_state(conv);
-
-    return conv;
-
-err:
-    close_converter(conv);
-
-    return (XlcConv) NULL;
-}
-
-static XlcConvMethodsRec mbstocs_methods = {
-    close_converter,
-    mbstocs,
-    NULL
-};
-
-static XlcConv
-open_mbstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbstocs_methods);
-}
-
-static XlcConvMethodsRec wcstocs_methods = {
-    close_converter,
-    wcstocs,
-    NULL
-};
-
-static XlcConv
-open_wcstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &wcstocs_methods);
-}
-
-static XlcConvMethodsRec mbtocs_methods = {
-    close_converter,
-    mbtocs,
-    NULL
-};
-
-static XlcConv
-open_mbtocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &mbtocs_methods);
-}
-
-static XlcConvMethodsRec cstombs_methods = {
-    close_converter,
-    cstombs,
-    NULL
-};
-
-static XlcConv
-open_cstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &cstombs_methods);
-}
-
-static XlcConvMethodsRec cstowcs_methods = {
-    close_converter,
-    cstowcs,
-    NULL
-};
-
-static XlcConv
-open_cstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &cstowcs_methods);
-}
-
-#ifdef STDCVT
-static int
-stdc_mbstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const char *src = *((const char **) from);
-    wchar_t *dst = *((wchar_t **) to);
-    int src_left = *from_left;
-    int dst_left = *to_left;
-    int length;
-
-    while (src_left > 0 && dst_left > 0) {
-	length = mbtowc(dst, src, src_left);
-	if (length < 0)
-	    break;
-
-	src += length;
-	src_left -= length;
-	if (dst)
-	    dst++;
-	dst_left--;
-
-	if (length == 0) {
-	    src++;
-	    src_left--;
-	    break;
-	}
-    }
-
-    if (*from_left == src_left)
-	return -1;
-
-    *from = (XPointer) src;
-    if (dst)
-	*to = (XPointer) dst;
-    *from_left = src_left;
-    *to_left = dst_left;
-
-    return 0;
-}
-
-static int
-stdc_wcstombs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const wchar_t *src = *((const wchar_t **) from);
-    char *dst = *((char **) to);
-    int src_left = *from_left;
-    int dst_left = *to_left;
-    int length;
-
-    while (src_left > 0 && dst_left > 0) {
-	length = wctomb(dst, *src);		/* XXX */
-	if (length < 0 || dst_left < length)
-	    break;
-
-	src++;
-	src_left--;
-	dst += length;
-	dst_left -= length;
-
-	if (length == 0) {
-	    dst++;
-	    dst_left--;
-	    break;
-	}
-    }
-
-    if (*from_left == src_left)
-	return -1;
-
-    *from = (XPointer) src;
-    *to = (XPointer) dst;
-    *from_left = src_left;
-    *to_left = dst_left;
-
-    return 0;
-}
-
-static int
-stdc_wcstocs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    const wchar_t *src = *((const wchar_t **) from);
-    wchar_t wch;
-    XlcCharSet charset = NULL;
-    XPointer tmp_args[2], tmp_from, save_from = *from;
-    char tmp[32];
-    int length, ret, src_left = *from_left;
-    int unconv_num = 0, tmp_num = 1;
-
-    tmp_args[0] = (XPointer) &charset;
-
-    while (src_left > 0 && *to_left > 0) {
-	if (wch = *src) {
-	    length = wctomb(tmp, wch);
-	} else {
-	    length = 1;
-	    *tmp = '\0';
-	}
-
-	if (length < 0)
-	    break;
-
-	tmp_from = (XPointer) tmp;
-	ret = mbtocs(conv, &tmp_from, &length, to, to_left, tmp_args, tmp_num);
-	if (ret < 0)
-	    break;
-	unconv_num += ret;
-	if (tmp_num == 1 && charset) {
-	    tmp_args[1] = (XPointer) charset;
-	    tmp_num = 2;
-	}
-
-	src++;
-	src_left--;
-    }
-
-    if (save_from == (XPointer) src)
-	return -1;
-
-    *from = (XPointer) src;
-    *from_left = src_left;
-
-    if (num_args > 0)
-	*((XlcCharSet *) args[0]) = charset;
-
-    return unconv_num;
-}
-
-#define DefineLocalBuf		char local_buf[BUFSIZ]
-#define AllocLocalBuf(length)	(length > BUFSIZ ? (char*) Xmalloc(length) : local_buf)
-#define FreeLocalBuf(ptr)	if (ptr != local_buf) Xfree(ptr)
-
-static int
-stdc_cstowcs(
-    XlcConv conv,
-    XPointer *from,
-    int *from_left,
-    XPointer *to,
-    int *to_left,
-    XPointer *args,
-    int num_args)
-{
-    XLCd lcd = ((State) conv->state)->lcd;
-    DefineLocalBuf;
-    XPointer buf, save_buf;
-    int length, left, ret;
-
-    left = length = *to_left * XLC_PUBLIC(lcd, mb_cur_max);
-    buf = save_buf = (XPointer) AllocLocalBuf(length);
-    if (buf == NULL)
-	return -1;
-
-    ret = cstombs(conv, from, from_left, &buf, &left, args, num_args);
-    if (ret < 0)
-	goto err;
-
-    buf = save_buf;
-    length -= left;
-    if (stdc_mbstowcs(conv, &buf, &length, to, to_left, args, num_args) < 0)
-	ret = -1;
-
-err:
-    FreeLocalBuf(save_buf);
-
-    return ret;
-}
-
-static XlcConvMethodsRec stdc_mbstowcs_methods = {
-    close_converter,
-    stdc_mbstowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_mbstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_mbstowcs_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstombs_methods = {
-    close_converter,
-    stdc_wcstombs,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstombs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstombs_methods);
-}
-
-static XlcConvMethodsRec stdc_wcstocs_methods = {
-    close_converter,
-    stdc_wcstocs,
-    NULL
-};
-
-static XlcConv
-open_stdc_wcstocs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_wcstocs_methods);
-}
-
-static XlcConvMethodsRec stdc_cstowcs_methods = {
-    close_converter,
-    stdc_cstowcs,
-    NULL
-};
-
-static XlcConv
-open_stdc_cstowcs(
-    XLCd from_lcd,
-    const char *from_type,
-    XLCd to_lcd,
-    const char *to_type)
-{
-    return create_conv(from_lcd, &stdc_cstowcs_methods);
-}
-#endif /* STDCVT */
-
-XLCd
-_XlcJisLoader(
-    const char *name)
-{
-    XLCd lcd;
-#ifdef STDCVT
-    XLCdGenericPart *gen;
-#endif
-
-    lcd = _XlcCreateLC(name, _XlcGenericMethods);
-    if (lcd == NULL)
-	return lcd;
-
-    if (!XLC_PUBLIC_PART(lcd)->codeset ||
-	(_XlcCompareISOLatin1(XLC_PUBLIC_PART(lcd)->codeset, "JIS7"))) {
-        _XlcDestroyLC(lcd);
-        return (XLCd) NULL;
-    }
-
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNChar, open_mbtocs);
-    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCharSet, open_mbstocs);
-    _XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNMultiByte, open_cstombs);
-
-#ifdef STDCVT
-    gen = XLC_GENERIC_PART(lcd);
-
-    if (gen->use_stdc_env == True) {
-	_XlcSetConverter(lcd,XlcNMultiByte,lcd,XlcNWideChar,open_stdc_mbstowcs);
-	_XlcSetConverter(lcd,XlcNWideChar,lcd,XlcNMultiByte,open_stdc_wcstombs);
-    }
-    if (gen->force_convert_to_mb == True) {
-	_XlcSetConverter(lcd, XlcNWideChar, lcd, XlcNCharSet,open_stdc_wcstocs);
-	_XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNWideChar,open_stdc_cstowcs);
-    } else {
-#endif
-    _XlcSetConverter(lcd, XlcNWideChar, lcd, XlcNCharSet, open_wcstocs);
-    _XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNWideChar, open_cstowcs);
-#ifdef STDCVT
-    }
-#endif
-
-    _XlcAddUtf8Converters(lcd);
-
-    return lcd;
-}
-
-#else
-typedef int dummy;
-#endif /* X_LOCALE */
+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+

+/*

+ * A Japanese JIS locale.

+ * Supports: all locales with codeset JIS7.

+ * How: Provides converters for JIS.

+ * Platforms: Only those defining X_LOCALE (only Lynx, Linux-libc5, OS/2).

+ */

+

+#ifdef X_LOCALE

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "XlcGeneric.h"

+#include <stdio.h>

+

+#if !defined(X_LOCALE)

+#define STDCVT

+#endif

+

+typedef struct _StateRec {

+    XLCd lcd;

+    XlcCharSet charset;

+    XlcCharSet GL_charset;

+    XlcCharSet GR_charset;

+} StateRec, *State;

+

+static void

+init_state(

+    XlcConv conv)

+{

+    State state = (State) conv->state;

+    XLCdGenericPart *gen = XLC_GENERIC_PART(state->lcd);

+    CodeSet codeset;

+

+    codeset = gen->initial_state_GL;

+    if (codeset && codeset->charset_list)

+	state->GL_charset = *codeset->charset_list;

+    codeset = gen->initial_state_GR;

+    if (codeset && codeset->charset_list)

+	state->GR_charset = *codeset->charset_list;

+

+    if (state->GL_charset == NULL)

+	if ((codeset = *gen->codeset_list) != NULL)

+	    state->GL_charset = *codeset->charset_list;

+}

+

+static int

+compare(

+    const char *src,

+    const char *encoding,

+    int length)

+{

+    const char *start = src;

+

+    while (length-- > 0) {

+	if (*src++ != *encoding++)

+	    return 0;

+	if (*encoding == '\0')

+	    return src - start;

+    }

+

+    return 0;

+}

+

+static int

+mbtocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+    const char *src;

+    char *dst;

+    unsigned char *mb_parse_table;

+    ParseInfo *parse_list, parse_info;

+    XlcCharSet charset;

+    int length, number, encoding_len = 0;

+    int i;

+

+    src = *((const char **) from);

+    dst = *((char **) to);

+

+    mb_parse_table = XLC_GENERIC(lcd, mb_parse_table);

+    if (mb_parse_table != NULL) {

+	number = mb_parse_table[(unsigned char) *src];

+	if (number > 0) {

+	    parse_list = XLC_GENERIC(lcd, mb_parse_list) + number - 1;

+	    for ( ; (parse_info = *parse_list) != NULL; parse_list++) {

+		encoding_len = compare(src, parse_info->encoding, *from_left);

+		if (encoding_len > 0) {

+		    switch (parse_info->type) {

+			case E_SS:

+			    src += encoding_len;

+			    charset = *parse_info->codeset->charset_list;

+			    goto found;

+			case E_LSL:

+			case E_LSR:

+			    src += encoding_len;

+			    charset = *parse_info->codeset->charset_list;

+			    if (parse_info->type == E_LSL)

+			    	state->GL_charset = charset;

+			    else

+			    	state->GR_charset = charset;

+			    length = 0;

+			    goto end;

+			case E_GL:

+			    charset = state->GL_charset;

+			    goto found;

+			case E_GR:

+			    charset = state->GR_charset;

+			    goto found;

+			default:

+			    break;

+		    }

+		}

+	    }

+	}

+    }

+

+    if ((*src & 0x80) && state->GR_charset)

+	charset = state->GR_charset;

+    else

+	charset = state->GL_charset;

+

+found:

+    if (charset == NULL ||

+	(num_args == 2 && (XlcCharSet) args[1] != charset))

+	return -1;

+

+    length = charset->char_size;

+    if (length > *from_left - encoding_len)

+	return -1;

+

+    if (dst) {

+	if (length > *to_left)

+	    return -1;

+	if (charset->side == XlcGL) {

+	    for (i = 0; i < length; i++)

+		*dst++ = *src++ & 0x7f;

+	} else if (charset->side == XlcGR) {

+	    for (i = 0; i < length; i++)

+		*dst++ = *src++ | 0x80;

+	} else {

+	    for (i = 0; i < length; i++)

+		*dst++ = *src++;

+	}

+	*to = (XPointer) dst;

+	*to_left -= length;

+    }

+end:

+    *from = (XPointer) src;

+    *from_left -= encoding_len + length;

+    state->charset = charset;

+    if (num_args == 1)

+	*((XlcCharSet *) args[0]) = charset;

+

+    return 0;

+}

+

+static int

+mbstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XlcCharSet charset = NULL;

+    XPointer tmp_args[2], save_from = *from;

+    int ret, unconv_num = 0, tmp_num = 1;

+

+    tmp_args[0] = (XPointer) &charset;

+

+    while (*from_left > 0 && *to_left > 0) {

+	ret = mbtocs(conv, from, from_left, to, to_left, tmp_args, tmp_num);

+	if (ret < 0)

+	    break;

+	unconv_num += ret;

+	if (tmp_num == 1 && charset) {

+	    tmp_args[1] = (XPointer) charset;

+	    tmp_num = 2;

+	}

+    }

+

+    if (save_from == *from)

+	return -1;

+

+    if (num_args > 0)

+	*((XlcCharSet *) args[0]) = charset;

+

+    return unconv_num;

+}

+

+static CodeSet

+wc_parse_codeset(

+    XLCd lcd,

+    const wchar_t *wcstr)

+{

+    CodeSet *codeset;

+    unsigned long wc_encoding;

+    int num;

+

+    wc_encoding = *wcstr & XLC_GENERIC(lcd, wc_encode_mask);

+    num = XLC_GENERIC(lcd, codeset_num);

+    codeset = XLC_GENERIC(lcd, codeset_list);

+    while (num-- > 0) {

+	if (wc_encoding == (*codeset)->wc_encoding)

+	    return *codeset;

+	codeset++;

+    }

+

+    return NULL;

+}

+

+static int

+wcstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+    const wchar_t *wcptr;

+    char *bufptr;

+    wchar_t wch;

+    char *tmpptr;

+    int length;

+    CodeSet codeset;

+    unsigned long wc_encoding;

+    int wcstr_len, buf_len;

+

+    if (from == NULL || *from == NULL)

+	return 0;

+

+    wcptr = *((const wchar_t **) from);

+    bufptr = *((char **) to);

+    wcstr_len = *from_left;

+    buf_len = *to_left;

+

+    codeset = wc_parse_codeset(lcd, wcptr);

+    if (codeset == NULL)

+	return -1;

+    wc_encoding = codeset->wc_encoding;

+

+    if (wcstr_len < buf_len / codeset->length)

+	buf_len = wcstr_len * codeset->length;

+

+    for ( ; wcstr_len > 0 && buf_len > 0; wcptr++, wcstr_len--) {

+	wch = *wcptr;

+	if ((wch & XLC_GENERIC(lcd, wc_encode_mask)) != wc_encoding)

+	    break;

+	length = codeset->length;

+	buf_len -= length;

+	bufptr += length;

+

+	tmpptr = bufptr - 1;

+	if ((*codeset->charset_list)->side == XlcGL) {

+	    while (length--) {

+		*tmpptr-- = (unsigned char) (wch & 0x7f);

+		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);

+	    }

+	} else if ((*codeset->charset_list)->side == XlcGR) {

+	    while (length--) {

+		*tmpptr-- = (unsigned char) (wch | 0x80);

+		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);

+	    }

+	} else {

+	    while (length--) {

+		*tmpptr-- = (unsigned char) wch;

+		wch >>= (wchar_t)XLC_GENERIC(lcd, wc_shift_bits);

+	    }

+	}

+    }

+

+    if (num_args > 0)

+	*((XlcCharSet *) args[0]) = *codeset->charset_list;

+

+    *from_left -= wcptr - *((wchar_t **) from);

+    *from = (XPointer) wcptr;

+

+    *to_left -= bufptr - *((char **) to);

+    *to = bufptr;

+

+    return 0;

+}

+

+static CodeSet

+GetCodeSetFromCharSet(

+    XLCd lcd,

+    XlcCharSet charset)

+{

+    CodeSet *codeset = XLC_GENERIC(lcd, codeset_list);

+    XlcCharSet *charset_list;

+    int codeset_num, num_charsets;

+

+    codeset_num = XLC_GENERIC(lcd, codeset_num);

+

+    for ( ; codeset_num-- > 0; codeset++) {

+	num_charsets = (*codeset)->num_charsets;

+	charset_list = (*codeset)->charset_list;

+

+	for ( ; num_charsets-- > 0; charset_list++)

+	    if (*charset_list == charset)

+		return *codeset;

+    }

+

+    return (CodeSet) NULL;

+}

+

+static int

+cstombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    const char *csptr;

+    char *bufptr;

+    int csstr_len;

+    int buf_len;

+    int num, encoding_len = 0;

+    CodeSet codeset;

+    XlcCharSet charset;

+    EncodingType type;

+    int cvt_length;

+

+    csptr = *((const char **) from);

+    bufptr = *((char **) to);

+    csstr_len = *from_left;

+    buf_len = *to_left;

+

+    if (num_args < 1)

+	return -1;

+

+    charset = (XlcCharSet) args[0];

+

+    codeset = GetCodeSetFromCharSet(state->lcd, charset);

+    if (codeset == NULL)

+	return -1;

+

+    cvt_length = 0;

+    if (codeset->parse_info) {

+	switch (type = codeset->parse_info->type) {

+	    case E_SS:

+		encoding_len = strlen(codeset->parse_info->encoding);

+		break;

+	    case E_LSL:

+	    case E_LSR:

+		if (type == E_LSL) {

+		    if (charset == state->GL_charset)

+			break;

+		} else {

+		    if (charset == state->GR_charset)

+			break;

+		}

+		encoding_len = strlen(codeset->parse_info->encoding);

+		if (encoding_len > buf_len)

+		    return -1;

+		cvt_length += encoding_len;

+		if (bufptr) {

+		    strcpy(bufptr, codeset->parse_info->encoding);

+		    bufptr += encoding_len;

+		}

+		buf_len -= encoding_len;

+		encoding_len = 0;

+		if (type == E_LSL)

+		    state->GL_charset = charset;

+		else

+		    state->GR_charset = charset;

+		break;

+	    default:

+		break;

+	}

+    }

+

+    csstr_len /= codeset->length;

+    buf_len /= codeset->length + encoding_len;

+    if (csstr_len < buf_len)

+	buf_len = csstr_len;

+

+    cvt_length += buf_len * (encoding_len + codeset->length);

+    if (bufptr) {

+	while (buf_len--) {

+	    if (encoding_len) {

+		strcpy(bufptr, codeset->parse_info->encoding);

+		bufptr += encoding_len;

+	    }

+	    num = codeset->length;

+	    if (codeset->side == XlcGL) {

+		while (num--)

+		    *bufptr++ = *csptr++ & 0x7f;

+	    } else if (codeset->side == XlcGR) {

+		while (num--)

+		    *bufptr++ = *csptr++ | 0x80;

+	    } else {

+		while (num--)

+		    *bufptr++ = *csptr++;

+	    }

+    	}

+    }

+

+    *from_left -= csptr - *((char **) from);

+    *from = (XPointer) csptr;

+

+    if (bufptr)

+	*to = (XPointer) bufptr;

+    *to_left -= cvt_length;

+

+    return 0;

+}

+

+static int

+cstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    State state = (State) conv->state;

+    XLCd lcd = state->lcd;

+    const char *csptr;

+    wchar_t *bufptr;

+    int csstr_len;

+    int buf_len;

+    wchar_t wch;

+    unsigned long code_mask, wc_encoding;

+    int num, length, wc_shift_bits;

+    CodeSet codeset;

+

+    csptr = *((const char **) from);

+    bufptr = *((wchar_t **) to);

+    csstr_len = *from_left;

+    buf_len = *to_left;

+

+    if (num_args < 1)

+	return -1;

+

+    codeset = GetCodeSetFromCharSet(lcd, (XlcCharSet) args[0]);

+    if (codeset == NULL)

+	return -1;

+

+    length = codeset->length;

+    csstr_len /= length;

+    if (csstr_len < buf_len)

+	buf_len = csstr_len;

+

+    code_mask = ~XLC_GENERIC(lcd, wc_encode_mask);

+    wc_encoding = codeset->wc_encoding;

+    wc_shift_bits = XLC_GENERIC(lcd, wc_shift_bits);

+

+    *to_left -= buf_len;

+

+    if (bufptr) {

+	while (buf_len--) {

+	    wch = (wchar_t) (*csptr++ & 0x7f);

+	    num = length - 1;

+	    while (num--)

+		wch = (wch << wc_shift_bits) | (*csptr++ & 0x7f);

+

+	    *bufptr++ = (wch & code_mask) | wc_encoding;

+	}

+    }

+

+    *from_left -= csptr - *((char **) from);

+    *from = (XPointer) csptr;

+

+    if (bufptr)

+	*to = (XPointer) bufptr;

+

+    return 0;

+}

+

+

+static void

+close_converter(

+    XlcConv conv)

+{

+    if (conv->state) {

+	Xfree((char *) conv->state);

+    }

+

+    Xfree((char *) conv);

+}

+

+static XlcConv

+create_conv(

+    XLCd lcd,

+    XlcConvMethods methods)

+{

+    XlcConv conv;

+    State state;

+

+    conv = (XlcConv) Xmalloc(sizeof(XlcConvRec));

+    if (conv == NULL)

+	return (XlcConv) NULL;

+

+    conv->methods = (XlcConvMethods) Xmalloc(sizeof(XlcConvMethodsRec));

+    if (conv->methods == NULL)

+	goto err;

+    *conv->methods = *methods;

+    if (XLC_PUBLIC(lcd, is_state_depend))

+	conv->methods->reset = init_state;

+

+    conv->state = Xcalloc(1, sizeof(StateRec));

+    if (conv->state == NULL)

+	goto err;

+

+    state = (State) conv->state;

+    state->lcd = lcd;

+    init_state(conv);

+

+    return conv;

+

+err:

+    close_converter(conv);

+

+    return (XlcConv) NULL;

+}

+

+static XlcConvMethodsRec mbstocs_methods = {

+    close_converter,

+    mbstocs,

+    NULL

+};

+

+static XlcConv

+open_mbstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbstocs_methods);

+}

+

+static XlcConvMethodsRec wcstocs_methods = {

+    close_converter,

+    wcstocs,

+    NULL

+};

+

+static XlcConv

+open_wcstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &wcstocs_methods);

+}

+

+static XlcConvMethodsRec mbtocs_methods = {

+    close_converter,

+    mbtocs,

+    NULL

+};

+

+static XlcConv

+open_mbtocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &mbtocs_methods);

+}

+

+static XlcConvMethodsRec cstombs_methods = {

+    close_converter,

+    cstombs,

+    NULL

+};

+

+static XlcConv

+open_cstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &cstombs_methods);

+}

+

+static XlcConvMethodsRec cstowcs_methods = {

+    close_converter,

+    cstowcs,

+    NULL

+};

+

+static XlcConv

+open_cstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &cstowcs_methods);

+}

+

+#ifdef STDCVT

+static int

+stdc_mbstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const char *src = *((const char **) from);

+    wchar_t *dst = *((wchar_t **) to);

+    int src_left = *from_left;

+    int dst_left = *to_left;

+    int length;

+

+    while (src_left > 0 && dst_left > 0) {

+	length = mbtowc(dst, src, src_left);

+	if (length < 0)

+	    break;

+

+	src += length;

+	src_left -= length;

+	if (dst)

+	    dst++;

+	dst_left--;

+

+	if (length == 0) {

+	    src++;

+	    src_left--;

+	    break;

+	}

+    }

+

+    if (*from_left == src_left)

+	return -1;

+

+    *from = (XPointer) src;

+    if (dst)

+	*to = (XPointer) dst;

+    *from_left = src_left;

+    *to_left = dst_left;

+

+    return 0;

+}

+

+static int

+stdc_wcstombs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const wchar_t *src = *((const wchar_t **) from);

+    char *dst = *((char **) to);

+    int src_left = *from_left;

+    int dst_left = *to_left;

+    int length;

+

+    while (src_left > 0 && dst_left > 0) {

+	length = wctomb(dst, *src);		/* XXX */

+	if (length < 0 || dst_left < length)

+	    break;

+

+	src++;

+	src_left--;

+	dst += length;

+	dst_left -= length;

+

+	if (length == 0) {

+	    dst++;

+	    dst_left--;

+	    break;

+	}

+    }

+

+    if (*from_left == src_left)

+	return -1;

+

+    *from = (XPointer) src;

+    *to = (XPointer) dst;

+    *from_left = src_left;

+    *to_left = dst_left;

+

+    return 0;

+}

+

+static int

+stdc_wcstocs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    const wchar_t *src = *((const wchar_t **) from);

+    wchar_t wch;

+    XlcCharSet charset = NULL;

+    XPointer tmp_args[2], tmp_from, save_from = *from;

+    char tmp[32];

+    int length, ret, src_left = *from_left;

+    int unconv_num = 0, tmp_num = 1;

+

+    tmp_args[0] = (XPointer) &charset;

+

+    while (src_left > 0 && *to_left > 0) {

+	if (wch = *src) {

+	    length = wctomb(tmp, wch);

+	} else {

+	    length = 1;

+	    *tmp = '\0';

+	}

+

+	if (length < 0)

+	    break;

+

+	tmp_from = (XPointer) tmp;

+	ret = mbtocs(conv, &tmp_from, &length, to, to_left, tmp_args, tmp_num);

+	if (ret < 0)

+	    break;

+	unconv_num += ret;

+	if (tmp_num == 1 && charset) {

+	    tmp_args[1] = (XPointer) charset;

+	    tmp_num = 2;

+	}

+

+	src++;

+	src_left--;

+    }

+

+    if (save_from == (XPointer) src)

+	return -1;

+

+    *from = (XPointer) src;

+    *from_left = src_left;

+

+    if (num_args > 0)

+	*((XlcCharSet *) args[0]) = charset;

+

+    return unconv_num;

+}

+

+#define DefineLocalBuf		char local_buf[BUFSIZ]

+#define AllocLocalBuf(length)	(length > BUFSIZ ? (char*) Xmalloc(length) : local_buf)

+#define FreeLocalBuf(ptr)	if (ptr != local_buf) Xfree(ptr)

+

+static int

+stdc_cstowcs(

+    XlcConv conv,

+    XPointer *from,

+    int *from_left,

+    XPointer *to,

+    int *to_left,

+    XPointer *args,

+    int num_args)

+{

+    XLCd lcd = ((State) conv->state)->lcd;

+    DefineLocalBuf;

+    XPointer buf, save_buf;

+    int length, left, ret;

+

+    left = length = *to_left * XLC_PUBLIC(lcd, mb_cur_max);

+    buf = save_buf = (XPointer) AllocLocalBuf(length);

+    if (buf == NULL)

+	return -1;

+

+    ret = cstombs(conv, from, from_left, &buf, &left, args, num_args);

+    if (ret < 0)

+	goto err;

+

+    buf = save_buf;

+    length -= left;

+    if (stdc_mbstowcs(conv, &buf, &length, to, to_left, args, num_args) < 0)

+	ret = -1;

+

+err:

+    FreeLocalBuf(save_buf);

+

+    return ret;

+}

+

+static XlcConvMethodsRec stdc_mbstowcs_methods = {

+    close_converter,

+    stdc_mbstowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_mbstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_mbstowcs_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstombs_methods = {

+    close_converter,

+    stdc_wcstombs,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstombs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstombs_methods);

+}

+

+static XlcConvMethodsRec stdc_wcstocs_methods = {

+    close_converter,

+    stdc_wcstocs,

+    NULL

+};

+

+static XlcConv

+open_stdc_wcstocs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_wcstocs_methods);

+}

+

+static XlcConvMethodsRec stdc_cstowcs_methods = {

+    close_converter,

+    stdc_cstowcs,

+    NULL

+};

+

+static XlcConv

+open_stdc_cstowcs(

+    XLCd from_lcd,

+    const char *from_type,

+    XLCd to_lcd,

+    const char *to_type)

+{

+    return create_conv(from_lcd, &stdc_cstowcs_methods);

+}

+#endif /* STDCVT */

+

+XLCd

+_XlcJisLoader(

+    const char *name)

+{

+    XLCd lcd;

+#ifdef STDCVT

+    XLCdGenericPart *gen;

+#endif

+

+    lcd = _XlcCreateLC(name, _XlcGenericMethods);

+    if (lcd == NULL)

+	return lcd;

+

+    if (!XLC_PUBLIC_PART(lcd)->codeset ||

+	(_XlcCompareISOLatin1(XLC_PUBLIC_PART(lcd)->codeset, "JIS7"))) {

+        _XlcDestroyLC(lcd);

+        return (XLCd) NULL;

+    }

+

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNChar, open_mbtocs);

+    _XlcSetConverter(lcd, XlcNMultiByte, lcd, XlcNCharSet, open_mbstocs);

+    _XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNMultiByte, open_cstombs);

+

+#ifdef STDCVT

+    gen = XLC_GENERIC_PART(lcd);

+

+    if (gen->use_stdc_env == True) {

+	_XlcSetConverter(lcd,XlcNMultiByte,lcd,XlcNWideChar,open_stdc_mbstowcs);

+	_XlcSetConverter(lcd,XlcNWideChar,lcd,XlcNMultiByte,open_stdc_wcstombs);

+    }

+    if (gen->force_convert_to_mb == True) {

+	_XlcSetConverter(lcd, XlcNWideChar, lcd, XlcNCharSet,open_stdc_wcstocs);

+	_XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNWideChar,open_stdc_cstowcs);

+    } else {

+#endif

+    _XlcSetConverter(lcd, XlcNWideChar, lcd, XlcNCharSet, open_wcstocs);

+    _XlcSetConverter(lcd, XlcNCharSet, lcd, XlcNWideChar, open_cstowcs);

+#ifdef STDCVT

+    }

+#endif

+

+    _XlcAddUtf8Converters(lcd);

+

+    return lcd;

+}

+

+#else

+typedef int dummy;

+#endif /* X_LOCALE */

diff --git a/libX11/modules/lc/xlocale/makefile b/libX11/modules/lc/xlocale/makefile
new file mode 100644
index 000000000..9649982bd
--- /dev/null
+++ b/libX11/modules/lc/xlocale/makefile
@@ -0,0 +1,8 @@
+LIBRARY = libxlocale
+
+CSRCS = \
+	lcEuc.c \
+	lcJis.c \
+	lcSjis.c
+
+INCLUDES += ..\..\..\include ..\..\..\include\X11 ..\..\..\src\xlibi18n  ..\..\..\src\xkb  ..\..\..\src\xcms ..\..\..\src
diff --git a/libX11/modules/om/generic/makefile b/libX11/modules/om/generic/makefile
new file mode 100644
index 000000000..cb8e59dfe
--- /dev/null
+++ b/libX11/modules/om/generic/makefile
@@ -0,0 +1,15 @@
+LIBRARY = libxomGeneric
+
+CSRCS = \
+	omDefault.c \
+	omGeneric.c \
+	omImText.c \
+	omText.c \
+	omTextEsc.c \
+	omTextExt.c \
+	omTextPer.c \
+	omXChar.c
+
+INCLUDES += ..\..\..\include\X11 ..\..\..\src\xlibi18n ..\..\..\src ..\..\..\src\xlibi18n
+
+
diff --git a/libX11/modules/om/generic/omGeneric.c b/libX11/modules/om/generic/omGeneric.c
index 7f02c8565..9f060cd5e 100644
--- a/libX11/modules/om/generic/omGeneric.c
+++ b/libX11/modules/om/generic/omGeneric.c
@@ -1,2169 +1,2170 @@
-/*  #define FONTDEBUG */
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-/*
- * Copyright 1995 by FUJITSU LIMITED
- * This is source code modified by FUJITSU LIMITED under the Joint
- * Development Agreement for the CDE/Motif PST.
- *
- * Modifier:  Takanori Tateno   FUJITSU LIMITED
- *
- */
-
-/*
- * Fixed the algorithms in parse_fontname() and parse_fontdata()
- * to improve the logic for determining which font should be
- * returned for a given CharSet.  We even added some comments
- * so that you can figure out what in the heck we're doing. We
- * realize this is a departure from the norm, but hey, we're
- * rebels! :-) :-)
- *
- * Modifiers: Jeff Walls, Paul Anderson: HEWLETT-PACKARD
- */
-/*
- * Cleaned up mess, removed some blabla
- * Egbert Eich, SuSE Linux AG
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "XomGeneric.h"
-#include "XlcGeneric.h"
-#include <X11/Xos.h>
-#include <X11/Xatom.h>
-#include <stdio.h>
-#include <string.h>
-#include <ctype.h>
-
-#define MAXFONTS		100
-#define	PIXEL_SIZE_FIELD	 7
-#define	POINT_SIZE_FIELD	 8
-#define	CHARSET_ENCODING_FIELD	14
-#define XLFD_MAX_LEN		255
-
-#if 0
-extern int _XmbDefaultTextEscapement(), _XwcDefaultTextEscapement(),
-	   _Xutf8DefaultTextEscapement();
-extern int _XmbDefaultTextExtents(), _XwcDefaultTextExtents(),
-	   _Xutf8DefaultTextExtents();
-extern Status _XmbDefaultTextPerCharExtents(), _XwcDefaultTextPerCharExtents(),
-	      _Xutf8DefaultTextPerCharExtents();
-extern int _XmbDefaultDrawString(), _XwcDefaultDrawString(),
-	   _Xutf8DefaultDrawString();
-extern void _XmbDefaultDrawImageString(), _XwcDefaultDrawImageString(),
-	    _Xutf8DefaultDrawImageString();
-
-extern int _XmbGenericTextEscapement(), _XwcGenericTextEscapement(),
-	   _Xutf8GenericTextEscapement();
-extern int _XmbGenericTextExtents(), _XwcGenericTextExtents(),
-	   _Xutf8GenericTextExtents();
-extern Status _XmbGenericTextPerCharExtents(), _XwcGenericTextPerCharExtents(),
-	      _Xutf8GenericTextPerCharExtents();
-extern int _XmbGenericDrawString(), _XwcGenericDrawString(),
-	   _Xutf8GenericDrawString();
-extern void _XmbGenericDrawImageString(), _XwcGenericDrawImageString(),
-	    _Xutf8GenericDrawImageString();
-
-extern void _XlcDbg_printValue (const char *str, char **value, int num);
-#endif
-
-/* For VW/UDC start */
-
-static FontData
-init_fontdata(
-    FontData	font_data,
-    int		font_data_count)
-{
-    FontData	fd;
-    int		i;
-
-    fd = (FontData)Xmalloc(sizeof(FontDataRec) * font_data_count);
-    if(fd == (FontData) NULL)
-	return False;
-
-    memset(fd, 0x00, sizeof(FontData) * font_data_count);
-    for(i = 0 ; i < font_data_count ; i++)
-	fd[i] = font_data[i];
-
-    return fd;
-}
-
-static VRotate
-init_vrotate(
-    FontData	font_data,
-    int		font_data_count,
-    int		type,
-    CodeRange	code_range,
-    int		code_range_num)
-{
-    VRotate	vrotate;
-    int		i;
-
-    if(type == VROTATE_NONE)
-	return (VRotate)NULL;
-
-    vrotate = (VRotate)Xmalloc(sizeof(VRotateRec) * font_data_count);
-    if(vrotate == (VRotate) NULL)
-	return False;
-
-    memset(vrotate, 0x00, sizeof(VRotateRec) * font_data_count);
-    for(i = 0 ; i < font_data_count ; i++) {
-	vrotate[i].charset_name = font_data[i].name;
-	vrotate[i].side = font_data[i].side;
-	if(type == VROTATE_PART) {
-	    vrotate[i].num_cr = code_range_num;
-	    vrotate[i].code_range = code_range;
-	}
-    }
-
-    return vrotate;
-}
-
-static Bool
-init_fontset(
-    XOC oc)
-{
-    XOCGenericPart *gen;
-    FontSet font_set;
-    OMData data;
-    int count;
-
-    count = XOM_GENERIC(oc->core.om)->data_num;
-    data = XOM_GENERIC(oc->core.om)->data;
-
-    font_set = (FontSet) Xmalloc(sizeof(FontSetRec) * count);
-    if (font_set == NULL)
-	return False;
-    memset((char *) font_set, 0x00, sizeof(FontSetRec) * count);
-
-    gen = XOC_GENERIC(oc);
-    gen->font_set_num = count;
-    gen->font_set = font_set;
-
-    for ( ; count-- > 0; data++, font_set++) {
-	font_set->charset_count = data->charset_count;
-	font_set->charset_list = data->charset_list;
-
-	if((font_set->font_data = init_fontdata(data->font_data,
-				  data->font_data_count)) == NULL)
-	    goto err;
-	font_set->font_data_count = data->font_data_count;
-	if((font_set->substitute = init_fontdata(data->substitute,
-				   data->substitute_num)) == NULL)
-	    goto err;
-	font_set->substitute_num = data->substitute_num;
-	if((font_set->vmap = init_fontdata(data->vmap,
-			     data->vmap_num)) == NULL)
-	    goto err;
-	font_set->vmap_num       = data->vmap_num;
-
-	if(data->vrotate_type != VROTATE_NONE) {
-	    /* A vrotate member is specified primary font data */
-	    /* as initial value.                               */
-	    if((font_set->vrotate = init_vrotate(data->font_data,
-						 data->font_data_count,
-						 data->vrotate_type,
-						 data->vrotate,
-						 data->vrotate_num)) == NULL)
-		goto err;
-	    font_set->vrotate_num = data->font_data_count;
-	}
-    }
-    return True;
-
-err:
-    if(font_set->font_data)
-	Xfree(font_set->font_data);
-    if(font_set->substitute)
-	Xfree(font_set->substitute);
-    if(font_set->vmap)
-	Xfree(font_set->vmap);
-    if(font_set->vrotate)
-	Xfree(font_set->vrotate);
-    if(font_set)
-	Xfree(font_set);
-    gen->font_set = (FontSet) NULL;
-    gen->font_set_num = 0;
-    return False;
-}
-
-/* For VW/UDC end */
-
-static char *
-get_prop_name(
-    Display *dpy,
-    XFontStruct	*fs)
-{
-    unsigned long fp;
-
-    if (XGetFontProperty(fs, XA_FONT, &fp))
-	return XGetAtomName(dpy, fp);
-
-    return (char *) NULL;
-}
-
-/* For VW/UDC start */
-
-static Bool
-load_fontdata(
-    XOC		oc,
-    FontData	font_data,
-    int		font_data_num)
-{
-    Display	*dpy = oc->core.om->core.display;
-    FontData	fd = font_data;
-
-    if(font_data == NULL) return(True);
-    for( ; font_data_num-- ; fd++) {
-	if(fd->xlfd_name != (char *) NULL && fd->font == NULL) {
-	    fd->font = XLoadQueryFont(dpy, fd->xlfd_name);
-	    if (fd->font == NULL){
-		return False;
-	    }
-	}
-    }
-    return True;
-}
-
-static Bool
-load_fontset_data(
-    XOC		oc,
-    FontSet	font_set)
-{
-    Display	*dpy = oc->core.om->core.display;
-
-    if(font_set->font_name == (char *)NULL) return False ;
-
-   /* If font_set->font is not NULL, it contains the *best*
-    * match font for this FontSet.
-    * -- jjw/pma (HP)
-    */
-    if(font_set->font == NULL) {
-       font_set->font = XLoadQueryFont(dpy, font_set->font_name);
-       if (font_set->font == NULL){
-		return False;
-       }
-    }
-    return True;
-}
-
-static Bool
-load_font(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set = gen->font_set;
-    int num = gen->font_set_num;
-
-    for ( ; num-- > 0; font_set++) {
-	if (font_set->font_name == NULL)
-	    continue;
-
-        if (load_fontset_data (oc, font_set) != True)
-	    return False;
-#ifndef TESTVERSION
-	if(load_fontdata(oc, font_set->font_data,
-			 font_set->font_data_count) != True)
-	    return False;
-
-	if(load_fontdata(oc, font_set->substitute,
-			 font_set->substitute_num) != True)
-	    return False;
-#endif
-
-/* Add 1996.05.20 */
-        if( oc->core.orientation == XOMOrientation_TTB_RTL ||
-            oc->core.orientation == XOMOrientation_TTB_LTR ){
-	    if (font_set->vpart_initialize == 0) {
-	       load_fontdata(oc, font_set->vmap, font_set->vmap_num);
-	       load_fontdata(oc, (FontData) font_set->vrotate,
-			 font_set->vrotate_num);
-                font_set->vpart_initialize = 1;
-	    }
-        }
-
-	if (font_set->font->min_byte1 || font_set->font->max_byte1)
-	    font_set->is_xchar2b = True;
-	else
-	    font_set->is_xchar2b = False;
-    }
-
-    return True;
-}
-
-/* For VW/UDC end */
-
-static Bool
-load_font_info(
-    XOC oc)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set = gen->font_set;
-    char **fn_list;
-    int fn_num, num = gen->font_set_num;
-
-    for ( ; num-- > 0; font_set++) {
-	if (font_set->font_name == NULL)
-	    continue;
-
-	if (font_set->info == NULL) {
-	    fn_list = XListFontsWithInfo(dpy, font_set->font_name, 1, &fn_num,
-					 &font_set->info);
-	    if (font_set->info == NULL)
-		return False;
-
-	    XFreeFontNames(fn_list);
-	}
-    }
-
-    return True;
-}
-
-/* For Vertical Writing start */
-
-static void
-check_fontset_extents(
-    XCharStruct		*overall,
-    int			*logical_ascent,
-    int                 *logical_descent,
-    XFontStruct		*font)
-{
-    overall->lbearing = min(overall->lbearing, font->min_bounds.lbearing);
-    overall->rbearing = max(overall->rbearing, font->max_bounds.rbearing);
-    overall->ascent   = max(overall->ascent,   font->max_bounds.ascent);
-    overall->descent  = max(overall->descent,  font->max_bounds.descent);
-    overall->width    = max(overall->width,    font->max_bounds.width);
-    *logical_ascent   = max(*logical_ascent,   font->ascent);
-    *logical_descent  = max(*logical_descent,  font->descent);
-}
-
-/* For Vertical Writing end */
-
-static void
-set_fontset_extents(
-    XOC oc)
-{
-    XRectangle *ink = &oc->core.font_set_extents.max_ink_extent;
-    XRectangle *logical = &oc->core.font_set_extents.max_logical_extent;
-    XFontStruct **font_list, *font;
-    XCharStruct overall;
-    int logical_ascent, logical_descent;
-    int	num = oc->core.font_info.num_font;
-
-    font_list = oc->core.font_info.font_struct_list;
-    font = *font_list++;
-    overall = font->max_bounds;
-    overall.lbearing = font->min_bounds.lbearing;
-    logical_ascent = font->ascent;
-    logical_descent = font->descent;
-
-    /* For Vertical Writing start */
-
-    while (--num > 0) {
-	font = *font_list++;
-	check_fontset_extents(&overall, &logical_ascent, &logical_descent,
-			      font);
-    }
-
-    {
-	XOCGenericPart  *gen = XOC_GENERIC(oc);
-	FontSet		font_set = gen->font_set;
-	FontData	font_data;
-	int		font_set_num = gen->font_set_num;
-	int		font_data_count;
-
-	for( ; font_set_num-- ; font_set++) {
-	    if(font_set->vmap_num > 0) {
-		font_data = font_set->vmap;
-		font_data_count = font_set->vmap_num;
-		for( ; font_data_count-- ; font_data++) {
-		    if(font_data->font != NULL) {
-			check_fontset_extents(&overall, &logical_ascent,
-					      &logical_descent,
-					      font_data->font);
-		    }
-		}
-	    }
-
-	    if(font_set->vrotate_num > 0 && font_set->vrotate != NULL) {
-		font_data = (FontData) font_set->vrotate;
-		font_data_count = font_set->vrotate_num;
-		for( ; font_data_count-- ; font_data++) {
-		    if(font_data->font != NULL) {
-			check_fontset_extents(&overall, &logical_ascent,
-					      &logical_descent,
-					      font_data->font);
-		    }
-		}
-	    }
-	}
-    }
-
-    /* For Vertical Writing start */
-
-    ink->x = overall.lbearing;
-    ink->y = -(overall.ascent);
-    ink->width = overall.rbearing - overall.lbearing;
-    ink->height = overall.ascent + overall.descent;
-
-    logical->x = 0;
-    logical->y = -(logical_ascent);
-    logical->width = overall.width;
-    logical->height = logical_ascent + logical_descent;
-}
-
-static Bool
-init_core_part(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set;
-    int font_set_num;
-    XFontStruct **font_struct_list;
-    char **font_name_list, *font_name_buf;
-    int	count, length;
-
-    font_set = gen->font_set;
-    font_set_num = gen->font_set_num;
-    count = length = 0;
-
-    for ( ; font_set_num-- > 0; font_set++) {
-	if (font_set->font_name == NULL)
-	    continue;
-
-	length += strlen(font_set->font_name) + 1;
-
-	count++;
-    }
-    if (count == 0)
-        return False;
-
-    font_struct_list = (XFontStruct **) Xmalloc(sizeof(XFontStruct *) * count);
-    if (font_struct_list == NULL)
-	return False;
-
-    font_name_list = (char **) Xmalloc(sizeof(char *) * count);
-    if (font_name_list == NULL)
-	goto err;
-
-    font_name_buf = (char *) Xmalloc(length);
-    if (font_name_buf == NULL)
-	goto err;
-
-    oc->core.font_info.num_font = count;
-    oc->core.font_info.font_name_list = font_name_list;
-    oc->core.font_info.font_struct_list = font_struct_list;
-
-    font_set = gen->font_set;
-    font_set_num = gen->font_set_num;
-
-    for (count = 0; font_set_num-- > 0; font_set++) {
-	if (font_set->font_name == NULL)
-	    continue;
-
-	font_set->id = count;
-	if (font_set->font)
-	    *font_struct_list++ = font_set->font;
-	else
-	    *font_struct_list++ = font_set->info;
-	strcpy(font_name_buf, font_set->font_name);
-	Xfree(font_set->font_name);
-	*font_name_list++ = font_set->font_name = font_name_buf;
-	font_name_buf += strlen(font_name_buf) + 1;
-
-	count++;
-    }
-
-    set_fontset_extents(oc);
-
-    return True;
-
-err:
-    if (font_name_list)
-	Xfree(font_name_list);
-    Xfree(font_struct_list);
-
-    return False;
-}
-
-static char *
-get_font_name(
-    XOC oc,
-    char *pattern)
-{
-    char **list, *name;
-    int count = 0;
-
-    list = XListFonts(oc->core.om->core.display, pattern, 1, &count);
-    if (list == NULL)
-	return NULL;
-
-    name = strdup(*list);
-
-    XFreeFontNames(list);
-
-    return name;
-}
-
-/* For VW/UDC start*/
-
-static char *
-get_rotate_fontname(
-    char *font_name)
-{
-    char *pattern = NULL, *ptr = NULL;
-    char *fields[CHARSET_ENCODING_FIELD];
-    char str_pixel[32], str_point[4];
-    char *rotate_font_ptr = NULL;
-    int pixel_size = 0;
-    int field_num = 0, len = 0;
-
-    if(font_name == (char *) NULL || (len = strlen(font_name)) <= 0
-       || len > XLFD_MAX_LEN)
-	return NULL;
-
-    pattern = strdup(font_name);
-    if(!pattern)
-	return NULL;
-
-    memset(fields, 0, sizeof(char *) * 14);
-    ptr = pattern;
-    while(isspace(*ptr)) {
-	ptr++;
-    }
-    if(*ptr == '-')
-	ptr++;
-
-    for(field_num = 0 ; field_num < CHARSET_ENCODING_FIELD && ptr && *ptr ;
-			ptr++, field_num++) {
-	fields[field_num] = ptr;
-
-	if((ptr = strchr(ptr, '-'))) {
-	    *ptr = '\0';
-	} else {
-	    field_num++;	/* Count last field */
-	    break;
-	}
-    }
-
-    if(field_num < CHARSET_ENCODING_FIELD)
-	goto free_pattern;
-
-    /* Pixel Size field : fields[6] */
-    for(ptr = fields[PIXEL_SIZE_FIELD - 1] ; ptr && *ptr; ptr++) {
-	if(!isdigit(*ptr)) {
-	    if(*ptr == '['){ /* 960730 */
-	        strcpy(pattern, font_name);
-		return(pattern);
-	    }
-	    goto free_pattern;
-	}
-    }
-    pixel_size = atoi(fields[PIXEL_SIZE_FIELD - 1]);
-    sprintf(str_pixel, "[ 0 ~%d %d 0 ]", pixel_size, pixel_size);
-    fields[6] = str_pixel;
-
-    /* Point Size field : fields[7] */
-    strcpy(str_point, "*");
-    fields[POINT_SIZE_FIELD - 1] = str_point;
-
-    len = 0;
-    for (field_num = 0; field_num < CHARSET_ENCODING_FIELD &&
-			fields[field_num]; field_num++) {
-	len += 1 + strlen(fields[field_num]);
-    }
-
-    /* Max XLFD length is 255 */
-    if (len > XLFD_MAX_LEN)
-	goto free_pattern;
-
-    rotate_font_ptr = (char *)Xmalloc(len + 1);
-    if(!rotate_font_ptr)
-	goto free_pattern;
-
-    rotate_font_ptr[0] = '\0';
-
-    for(field_num = 0 ; field_num < CHARSET_ENCODING_FIELD &&
-			fields[field_num] ; field_num++) {
-	strcat(rotate_font_ptr, "-");
-	strcat(rotate_font_ptr, fields[field_num]);
-    }
-
-free_pattern:
-    Xfree(pattern);
-
-    return rotate_font_ptr;
-}
-
-static Bool
-is_match_charset(
-    FontData	font_data,
-    char	*font_name)
-{
-    char *last;
-    int length, name_len;
-
-    name_len = strlen(font_name);
-    last = font_name + name_len;
-
-    length = strlen(font_data->name);
-    if (length > name_len)
-	return False;
-
-    if (_XlcCompareISOLatin1(last - length, font_data->name) == 0)
-	return True;
-
-    return False;
-}
-
-#if 0
-static char *
-get_font_name_from_list(
-    XOC oc,
-    char *pattern,
-    FontData    font_data)
-{
-    char **list, *name = (char *)NULL, *fname;
-    int count = 0, i;
-
-    list = XListFonts(oc->core.om->core.display, pattern, MAXFONTS, &count);
-    if (list == NULL)
-	return NULL;
-
-    for (i = 0; i < count; i++) {
-        fname = list[i];
-        if(is_match_charset(font_data, fname) == True) {
-            name = strdup(fname);
-            break;
-        }
-    }
-
-    XFreeFontNames(list);
-
-    return name;
-}
-#endif
-
-static int
-parse_all_name(
-    XOC		oc,
-    FontData	font_data,
-    char	*pattern)
-{
-
-#ifdef OLDCODE
-    if(is_match_charset(font_data, pattern) != True)
- 	return False;
-
-    font_data->xlfd_name = strdup(pattern);
-    if(font_data->xlfd_name == NULL)
-	return (-1);
-
-    return True;
-#else  /* OLDCODE */
-    Display *dpy = oc->core.om->core.display;
-    char **fn_list = NULL, *prop_fname = NULL;
-    int list_num;
-    XFontStruct *fs_list;
-    if(is_match_charset(font_data, pattern) != True) {
-	/*
-	 * pattern should not contain any wildcard (execpt '?')
-	 * this was probably added to make this case insensitive.
-	 */
-	if ((fn_list = XListFontsWithInfo(dpy, pattern,
-				      MAXFONTS,
-				      &list_num, &fs_list)) == NULL) {
-            return False;
-        }
-	/* shouldn't we loop here ? */
-        else if ((prop_fname = get_prop_name(dpy, fs_list)) == NULL) {
-            XFreeFontInfo(fn_list, fs_list, list_num);
-            return False;
-        }
-        else if ((is_match_charset(font_data, prop_fname) != True)) {
-            XFree(prop_fname);
-            XFreeFontInfo(fn_list, fs_list, list_num);
-            return False;
-        }
-        else {
-	    font_data->xlfd_name = prop_fname;
-            XFreeFontInfo(fn_list, fs_list, list_num);
-            return True;
-        }
-    }
-
-    font_data->xlfd_name = strdup(pattern);
-    if(font_data->xlfd_name == NULL)
-	return (-1);
-
-    return True;
-#endif /* OLDCODE */
-}
-
-static int
-parse_omit_name(
-    XOC		oc,
-    FontData	font_data,
-    char	*pattern)
-{
-    char*	last = (char *) NULL;
-    char*	base_name;
-    char	buf[XLFD_MAX_LEN + 1];
-    int		length = 0;
-    int		num_fields;
-   /*
-    * If the font specified by "pattern" is expandable to be
-    * a member of "font_data"'s FontSet, we've found a match.
-    */
-    if(is_match_charset(font_data, pattern) == True) {
-	if ((font_data->xlfd_name = get_font_name(oc, pattern)) != NULL) {
-	    return True;
-	}
-    }
-
-    length = strlen (pattern);
-
-    if (length > XLFD_MAX_LEN)
-	return -1;
-
-    strcpy(buf, pattern);
-    last = buf + length - 1;
-
-    /* Replace the original encoding with the encoding for this FontSet. */
-
-    /* Figure out how many fields have been specified in this xlfd. */
-    for (num_fields = 0, base_name = buf; *base_name != '\0'; base_name++)
-	if (*base_name == '-') num_fields++;
-
-    switch (num_fields) {
-    case 12:
-	/* This is the best way to have specifed the fontset.  In this
-	 * case, there is no original encoding. E.g.,
-         *       -*-*-*-*-*-*-14-*-*-*-*-*
-	 * To this, we'll append a dash:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-
-	 * then append the encoding to get:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0
-	 */
-	/*
-	 * Take care of:
-	 *       -*-*-*-*-*-*-14-*-*-*-*-
-	 */
-	if (*(last) == '-')
-	    *++last = '*';
-
-	*++last = '-';
-	break;
-    case 13:
-	/* Got the charset, not the encoding, zap the charset  In this
-	 * case, there is no original encoding, but there is a charset. E.g.,
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-jisx0212.1990
-	 * To this, we remove the charset:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-
-	 * then append the new encoding to get:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0
-	 */
-	last = strrchr (buf, '-');
-	num_fields = 12;
-	break;
-    case 14:
-	/* Both the charset and the encoding are specified.  Get rid
-	 * of them so that we can append the new charset encoding.  E.g.,
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-jisx0212.1990-0
-	 * To this, we'll remove the encoding and charset to get:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-
-	 * then append the new encoding to get:
-         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0
-	 */
-	last = strrchr (buf, '-');
-	*last = '\0';
-	last = strrchr (buf, '-');
-	num_fields = 12;
-	break;
-    default:
-	if (*last != '-')
-	    *++last = '-';
-	break;
-    }
-
-   /* At this point, "last" is pointing to the last "-" in the
-    * xlfd, and all xlfd's at this point take a form similar to:
-    *       -*-*-*-*-*-*-14-*-*-*-*-*-
-    * (i.e., no encoding).
-    * After the strcpy, we'll end up with something similar to:
-    *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0
-    *
-    * If the modified font is found in the current FontSet,
-    * we've found a match.
-    */
-
-    last++;
-
-    if ((last - buf) + strlen(font_data->name) > XLFD_MAX_LEN)
-	return -1;
-
-    strcpy(last, font_data->name);
-    if ((font_data->xlfd_name = get_font_name(oc, buf)) != NULL)
-	return True;
-
-    /* This may mot be needed anymore as XListFonts() takes care of this */
-    while (num_fields < 12) {
-	if ((last - buf) > (XLFD_MAX_LEN - 2))
-	    return -1;
-	*last = '*';
-	*(last + 1) = '-';
-	strcpy(last + 2, font_data->name);
-	num_fields++;
-	last+=2;
-	if ((font_data->xlfd_name = get_font_name(oc, buf)) != NULL)
-	    return True;
-    }
-
-
-    return False;
-}
-
-
-typedef enum{C_PRIMARY, C_SUBSTITUTE, C_VMAP, C_VROTATE } ClassType;
-
-static int
-parse_fontdata(
-    XOC		 oc,
-    FontSet      font_set,
-    FontData	 font_data,
-    int		 font_data_count,
-    char	 **name_list,
-    int		 name_list_count,
-    ClassType	 class,
-    FontDataRec *font_data_return)
-{
-
-    char	**cur_name_list = name_list;
-    char	*font_name      = (char *) NULL;
-    char	*pattern        = (char *) NULL;
-    int		found_num       = 0, ret = 0;
-    int		count           = name_list_count;
-
-    if(name_list == NULL || count <= 0) {
-	return False;
-    }
-
-    if(font_data == NULL || font_data_count <= 0) {
-	return False;
-    }
-
-    /* Loop through each font encoding defined in the "font_data" FontSet. */
-    for ( ; font_data_count-- > 0; font_data++) {
-	Bool	is_found = False;
-	font_name = (char *) NULL;
-	count = name_list_count;
-	cur_name_list = name_list;
-
-       /*
-	* Loop through each font specified by the user
-	* in the call to XCreateFontset().
-	*/
-	while (count-- > 0) {
-            pattern = *cur_name_list++;
-	    if (pattern == NULL || *pattern == '\0')
-		continue;
-#ifdef FONTDEBUG
-		fprintf(stderr,"Font pattern: %s %s\n",
-		pattern,font_data->name);
-#endif
-
-	    /*
-	     * If the current font is fully specified (i.e., the
-	     * xlfd contains no wildcards) and the font exists on
-	     * the X Server, we have a match.
-	     */
-	    if (strchr(pattern, '*') == NULL &&
-		(font_name = get_font_name(oc, pattern))) {
-               /*
-		* Find the full xlfd name for this font. If the font is
-		* already in xlfd format, it is simply returned.  If the
-		* font is an alias for another font, the xlfd of the
-		* aliased font is returned.
-		*/
-		ret = parse_all_name(oc, font_data, font_name);
-		Xfree(font_name);
-
-                if (ret == -1)    return -1;
-	        if (ret == False) continue;
-               /*
-		* Since there was an exact match of a fully-specified font
-		* or a font alias, we can return now since the desired font
-		* was found for the current font encoding for this FontSet.
-		*
-		* Previous implementations of this algorithm would
-		* not return here. Instead, they continued searching
-		* through the font encodings for this FontSet. The side-effect
-		* of that behavior is you may return a "substitute" match
-		* instead of an "exact" match.  We believe there should be a
-		* preference on exact matches.  Therefore, as soon as we
-		* find one, we bail.
-		*
-		* Also, previous implementations seemed to think it was
-		* important to find either a primary or substitute font
-		* for each Font encoding in the FontSet before returning an
-		* acceptable font.  We don't believe this is necessary.
-		* All the client cares about is finding a reasonable font
-		* for what was passed in.  If we find an exact match,
-		* there's no reason to look any further.
-		*
-		* -- jjw/pma (HP)
-		*/
-		if (font_data_return) {
-		    font_data_return->xlfd_name = strdup(font_data->xlfd_name);
-		    if (!font_data_return->xlfd_name) return -1;
-
-		    font_data_return->side      = font_data->side;
-		}
-#ifdef FONTDEBUG
-		fprintf(stderr,"XLFD name: %s\n",font_data->xlfd_name);
-#endif
-
-		return True;
-	    }
-	    /*
-	     * If the font name is not fully specified
-	     * (i.e., it has wildcards), we have more work to do.
-	     * See the comments in parse_omit_name()
-	     * for the list of things to do.
-	     */
-	    ret = parse_omit_name(oc, font_data, pattern);
-
-            if (ret == -1)    return -1;
-	    if (ret == False) continue;
-
-           /*
-	    * A font which matched the wild-carded specification was found.
-	    * Only update the return data if a font has not yet been found.
-	    * This maintains the convention that FontSets listed higher in
-	    * a CodeSet in the Locale Database have higher priority than
-	    * those FontSets listed lower in the CodeSet.  In the following
-	    * example:
-	    *
-	    * fs1 {
-	    *        charset     HP-JIS:GR
-	    *        font        JISX0208.1990-0:GL;\
-	    *                    JISX0208.1990-1:GR;\
-	    *                    JISX0208.1983-0:GL;\
-	    *                    JISX0208.1983-1:GR
-	    * }
-	    *
-	    * a font found in the JISX0208.1990-0 FontSet will have a
-	    * higher priority than a font found in the JISX0208.1983-0
-	    * FontSet.
-	    */
-	    if (font_data_return && font_data_return->xlfd_name == NULL) {
-
-#ifdef FONTDEBUG
-		fprintf(stderr,"XLFD name: %s\n",font_data->xlfd_name);
-#endif
-		font_data_return->xlfd_name = strdup(font_data->xlfd_name);
-                if (!font_data_return->xlfd_name) return -1;
-
-	        font_data_return->side      = font_data->side;
-	    }
-
-	    found_num++;
-	    is_found = True;
-
-	    break;
-	}
-
-	switch(class) {
-	  case C_PRIMARY:
-	       if(is_found == False) {
-		 /*
-		  * Did not find a font for the current FontSet.  Check the
-		  * FontSet's "substitute" font for a match.  If we find a
-		  * match, we'll keep searching in hopes of finding an exact
-		  * match later down the FontSet list.
-		  *
-		  * when we return and we have found a font font_data_return
-		  * contains the first (ie. best) match no matter if this
-		  * is a C_PRIMARY or a C_SUBSTITUTE font
-		  */
-		  ret = parse_fontdata(oc, font_set, font_set->substitute,
-				       font_set->substitute_num, name_list,
-				       name_list_count, C_SUBSTITUTE,
-				       font_data_return);
-                  if (ret == -1)    return -1;
-		  if (ret == False) continue;
-
-		  found_num++;
-		  is_found = True;
-               }
-#ifdef TESTVERSION
-	       else
-		   return True;
-#endif
-	       break;
-
-	  case C_SUBSTITUTE:
-	  case C_VMAP:
-	       if(is_found == True)
-		  return True;
-	       break;
-
-	  case C_VROTATE:
-	       if(is_found == True) {
-		  char	*rotate_name;
-
-		  if((rotate_name = get_rotate_fontname(font_data->xlfd_name))
-		     != NULL) {
-		      Xfree(font_data->xlfd_name);
-		      font_data->xlfd_name = rotate_name;
-
-		      return True;
-		  }
-		  Xfree(font_data->xlfd_name);
-		  font_data->xlfd_name = NULL;
-		  return False;
-	       }
-	       break;
-	}
-    }
-
-    if(class == C_PRIMARY && found_num >= 1)
-	return True;
-
-    return False;
-}
-
-
-static int
-parse_vw(
-    XOC		oc,
-    FontSet	font_set,
-    char	**name_list,
-    int		count)
-{
-    FontData	vmap = font_set->vmap;
-    VRotate	vrotate = font_set->vrotate;
-    int		vmap_num = font_set->vmap_num;
-    int		vrotate_num = font_set->vrotate_num;
-    int		ret = 0, i = 0;
-
-    if(vmap_num > 0) {
-	if(parse_fontdata(oc, font_set, vmap, vmap_num, name_list,
-			  count, C_VMAP,NULL) == -1)
-	    return (-1);
-    }
-
-    if(vrotate_num > 0) {
-	ret = parse_fontdata(oc, font_set, (FontData) vrotate, vrotate_num,
-			     name_list, count, C_VROTATE, NULL);
-	if(ret == -1) {
-	    return (-1);
-	} else if(ret == False) {
-	    CodeRange	code_range;
-	    int		num_cr;
-	    int		sub_num = font_set->substitute_num;
-
-	    code_range = vrotate[0].code_range; /* ? */
-	    num_cr = vrotate[0].num_cr;         /* ? */
-	    for(i = 0 ; i < vrotate_num ; i++) {
-		if(vrotate[i].xlfd_name)
-		    Xfree(vrotate[i].xlfd_name);
-	    }
-	    Xfree(vrotate);
-
-	    if(sub_num > 0) {
-		vrotate = font_set->vrotate = (VRotate)Xmalloc
-						(sizeof(VRotateRec) * sub_num);
-		if(font_set->vrotate == (VRotate)NULL)
-		    return (-1);
-		memset(font_set->vrotate, 0x00, sizeof(VRotateRec) * sub_num);
-
-		for(i = 0 ; i < sub_num ; i++) {
-		    vrotate[i].charset_name = font_set->substitute[i].name;
-		    vrotate[i].side = font_set->substitute[i].side;
-		    vrotate[i].code_range = code_range;
-		    vrotate[i].num_cr = num_cr;
-		}
-		vrotate_num = font_set->vrotate_num = sub_num;
-	    } else {
-		vrotate = font_set->vrotate = (VRotate)NULL;
-	    }
-
-	    ret = parse_fontdata(oc, font_set, (FontData) vrotate, vrotate_num,
-				 name_list, count, C_VROTATE, NULL);
-	    if(ret == -1)
-		return (-1);
-	}
-    }
-
-    return True;
-}
-
-static int
-parse_fontname(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet     font_set;
-    FontDataRec font_data_return;
-    char *base_name, **name_list;
-    int font_set_num = 0;
-    int found_num = 0;
-    int count = 0;
-    int	ret;
-    int i;
-
-    name_list = _XParseBaseFontNameList(oc->core.base_name_list, &count);
-    if (name_list == NULL)
-	return -1;
-
-    font_set = gen->font_set;
-    font_set_num = gen->font_set_num;
-
-   /* Loop through all of the CharSets defined in the Locale
-    * database for the current Locale.
-    */
-    for( ; font_set_num-- > 0 ; font_set++) {
-	if(font_set->font_name)
-	    continue;
-
-	if(font_set->font_data_count > 0) {
-
-           /*
-	    * If there are a non-zero number of FontSets defined
-	    * for this CharSet.
-            * Try to find a font for this CharSet.  If we find an
-	    * acceptable font, we save the information for return
-	    * to the client.  If we do not find an acceptable font,
-	    * a "missing_charset" will be reported to the client
-	    * for this CharSet.
-	    */
-	    font_data_return. xlfd_name = NULL;
-	    font_data_return.side       = XlcUnknown;
-
-	    ret = parse_fontdata(oc, font_set, font_set->font_data,
-				 font_set->font_data_count,
-				 name_list, count, C_PRIMARY,
-				 &font_data_return);
-	    if(ret == -1) {
-		goto err;
-	    } else if(ret == True) {
-		/*
-		 * We can't just loop thru fontset->font_data to
-		 * find the first (ie. best) match: parse_fontdata
-		 * will try a substitute font if no primary one could
-		 * be matched. It returns the required information in
-		 * font_data_return.
-		 */
-		font_set->font_name = strdup(font_data_return.xlfd_name);
-		if(font_set->font_name == (char *) NULL)
-		    goto err;
-
-		font_set->side = font_data_return.side;
-
-                Xfree (font_data_return.xlfd_name);
-                font_data_return.xlfd_name = NULL;
-
-		if(parse_vw(oc, font_set, name_list, count) == -1)
-		    goto err;
-		found_num++;
-	    }
-
-	} else if(font_set->substitute_num > 0) {
-           /*
-	    * If there are no FontSets defined for this
-	    * CharSet.  We can only find "substitute" fonts.
-	    */
-	    ret = parse_fontdata(oc, font_set, font_set->substitute,
-				 font_set->substitute_num,
-				 name_list, count, C_SUBSTITUTE, NULL);
-	    if(ret == -1) {
-		goto err;
-	    } else if(ret == True) {
-		for(i=0;i<font_set->substitute_num;i++){
-		    if(font_set->substitute[i].xlfd_name != NULL){
-			break;
-		    }
-		}
-		font_set->font_name = strdup(font_set->substitute[i].xlfd_name);
-		if(font_set->font_name == (char *) NULL)
-		    goto err;
-
-		font_set->side = font_set->substitute[i].side;
-		if(parse_vw(oc, font_set, name_list, count) == -1)
-		    goto err;
-
-		found_num++;
-	    }
-	}
-    }
-
-    base_name = strdup(oc->core.base_name_list);
-    if (base_name == NULL)
-	goto err;
-
-    oc->core.base_name_list = base_name;
-
-    XFreeStringList(name_list);
-
-    return found_num;
-
-err:
-    XFreeStringList(name_list);
-    /* Prevent this from being freed twice */
-    oc->core.base_name_list = NULL;
-
-    return -1;
-}
-
-/* For VW/UDC end*/
-
-static Bool
-set_missing_list(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set;
-    char **charset_list, *charset_buf;
-    int	count, length, font_set_num;
-    int result = 1;
-
-    font_set = gen->font_set;
-    font_set_num = gen->font_set_num;
-    count = length = 0;
-
-    for ( ; font_set_num-- > 0; font_set++) {
-	if (font_set->info || font_set->font) {
-	    continue;
-	}
-
-	/* Change 1996.01.23 start */
-	if(font_set->font_data_count <= 0 ||
-	   font_set->font_data == (FontData)NULL) {
-	    if(font_set->substitute_num <= 0 ||
-	       font_set->substitute == (FontData)NULL) {
-		if(font_set->charset_list != NULL){
-		 length +=
-		  strlen(font_set->charset_list[0]->encoding_name) + 1;
-		} else {
-		  length += 1;
-		}
-	    } else {
-		length += strlen(font_set->substitute->name) + 1;
-	    }
-	} else {
-	    length += strlen(font_set->font_data->name) + 1;
-	}
-	/* Change 1996.01.23 end */
-	count++;
-    }
-
-    if (count < 1) {
-	return True;
-    }
-
-    charset_list = (char **) Xmalloc(sizeof(char *) * count);
-    if (charset_list == NULL) {
-	return False;
-    }
-
-    charset_buf = (char *) Xmalloc(length);
-    if (charset_buf == NULL) {
-	Xfree(charset_list);
-	return False;
-    }
-
-    oc->core.missing_list.charset_list = charset_list;
-    oc->core.missing_list.charset_count = count;
-
-    font_set = gen->font_set;
-    font_set_num = gen->font_set_num;
-
-    for ( ; font_set_num-- > 0; font_set++) {
-	if (font_set->info || font_set->font) {
-	    continue;
-	}
-
-	/* Change 1996.01.23 start */
-	if(font_set->font_data_count <= 0 ||
-	   font_set->font_data == (FontData)NULL) {
-	    if(font_set->substitute_num <= 0 ||
-	       font_set->substitute == (FontData)NULL) {
-		if(font_set->charset_list != NULL){
-		 strcpy(charset_buf,
-			font_set->charset_list[0]->encoding_name);
-		} else {
-		 strcpy(charset_buf, "");
-		}
-		result = 0;
-	    } else {
-		strcpy(charset_buf, font_set->substitute->name);
-	    }
-	} else {
-	    strcpy(charset_buf, font_set->font_data->name);
-	}
-	/* Change 1996.01.23 end */
-	*charset_list++ = charset_buf;
-	charset_buf += strlen(charset_buf) + 1;
-    }
-
-    if(result == 0) {
-	return(False);
-    }
-
-    return True;
-}
-
-static Bool
-create_fontset(
-    XOC oc)
-{
-    XOMGenericPart *gen = XOM_GENERIC(oc->core.om);
-    int found_num;
-
-    if (init_fontset(oc) == False)
-        return False;
-
-    found_num = parse_fontname(oc);
-    if (found_num <= 0) {
-	if (found_num == 0)
-	    set_missing_list(oc);
-	return False;
-    }
-
-    if (gen->on_demand_loading == True) {
-	if (load_font_info(oc) == False)
-	    return False;
-    } else {
-	if (load_font(oc) == False)
-	    return False;
-    }
-
-    if (init_core_part(oc) == False)
-	return False;
-
-    if (set_missing_list(oc) == False)
-	return False;
-
-    return True;
-}
-
-/* For VW/UDC start */
-static void
-free_fontdataOC(
-    Display	*dpy,
-    FontData	font_data,
-    int		font_data_count)
-{
-    for( ; font_data_count-- ; font_data++) {
-	if(font_data->xlfd_name){
-	    Xfree(font_data->xlfd_name);
-	    font_data->xlfd_name = NULL;
-	}
-	if(font_data->font){				/* ADD 1996.01.7 */
-	    if(font_data->font->fid)			/* Add 1996.01.23 */
-		XFreeFont(dpy,font_data->font);		/* ADD 1996.01.7 */
-	    else					/* Add 1996.01.23 */
-		XFreeFontInfo(NULL, font_data->font, 1);/* Add 1996.01.23 */
-	    font_data->font = NULL;
-	}
-/*
- * font_data->name and font_data->scopes belong to the OM not OC.
- * To save space this data is shared between OM and OC. We are
- * not allowed to free it here.
- * It has been moved to free_fontdataOM()
- */
-/*
-	if(font_data->scopes){
-	    Xfree(font_data->scopes);
-	    font_data->scopes = NULL;
-	}
-	if(font_data->name){
-	    Xfree(font_data->name);
-	    font_data->name = NULL;
-	}
-*/
-    }
-}
-
-static void destroy_fontdata(
-    XOCGenericPart *gen,
-    Display *dpy)
-{
-    FontSet	font_set = (FontSet) NULL;
-    int		font_set_num = 0;
-
-    if (gen->font_set) {
-	font_set = gen->font_set;
-	font_set_num = gen->font_set_num;
-	for( ; font_set_num-- ; font_set++) {
-	    if (font_set->font) {
-		if(font_set->font->fid)
-		    XFreeFont(dpy,font_set->font);
-		else
-		    XFreeFontInfo(NULL, font_set->font, 1);
-		font_set->font = NULL;
-	    }
-	    if(font_set->font_data) {
-		if (font_set->info)
-		    XFreeFontInfo(NULL, font_set->info, 1);
-		free_fontdataOC(dpy,
-			font_set->font_data, font_set->font_data_count);
-		Xfree(font_set->font_data);
-		font_set->font_data = NULL;
-	    }
-	    if(font_set->substitute) {
-		free_fontdataOC(dpy,
-			font_set->substitute, font_set->substitute_num);
-		Xfree(font_set->substitute);
-		font_set->substitute = NULL;
-	    }
-	    if(font_set->vmap) {
-		free_fontdataOC(dpy,
-			font_set->vmap, font_set->vmap_num);
-		Xfree(font_set->vmap);
-		font_set->vmap = NULL;
-	    }
-	    if(font_set->vrotate) {
-		free_fontdataOC(dpy,
-			(FontData)font_set->vrotate,
-			      font_set->vrotate_num);
-		Xfree(font_set->vrotate);
-		font_set->vrotate = NULL;
-	    }
-	}
-	Xfree(gen->font_set);
-	gen->font_set = NULL;
-    }
-}
-/* For VW/UDC end */
-
-static void
-destroy_oc(
-    XOC oc)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-
-    if (gen->mbs_to_cs)
-	_XlcCloseConverter(gen->mbs_to_cs);
-
-    if (gen->wcs_to_cs)
-	_XlcCloseConverter(gen->wcs_to_cs);
-
-    if (gen->utf8_to_cs)
-	_XlcCloseConverter(gen->utf8_to_cs);
-
-/* For VW/UDC start */ /* Change 1996.01.8 */
-    destroy_fontdata(gen,dpy);
-/*
-*/
-/* For VW/UDC end */
-
-    if (oc->core.base_name_list)
-	Xfree(oc->core.base_name_list);
-
-    if (oc->core.font_info.font_name_list)
-	XFreeStringList(oc->core.font_info.font_name_list);
-
-    if (oc->core.font_info.font_struct_list) {
-	Xfree(oc->core.font_info.font_struct_list);
-    }
-
-    if (oc->core.missing_list.charset_list)
-	XFreeStringList(oc->core.missing_list.charset_list);
-
-#ifdef notdef
-    if (oc->core.res_name)
-	Xfree(oc->core.res_name);
-    if (oc->core.res_class)
-	Xfree(oc->core.res_class);
-#endif
-
-    Xfree(oc);
-}
-
-static char *
-set_oc_values(
-    XOC oc,
-    XlcArgList args,
-    int num_args)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set = gen->font_set;
-    char *ret;
-    int num = gen->font_set_num;
-
-    if (oc->core.resources == NULL)
-	return NULL;
-
-    ret = _XlcSetValues((XPointer) oc, oc->core.resources,
-			oc->core.num_resources, args, num_args, XlcSetMask);
-    if(ret != NULL){
-	return(ret);
-    } else {
-	for ( ; num-- > 0; font_set++) {
-	    if (font_set->font_name == NULL)
-	        continue;
-	    if (font_set->vpart_initialize != 0)
-	        continue;
-	    if( oc->core.orientation == XOMOrientation_TTB_RTL ||
-		oc->core.orientation == XOMOrientation_TTB_LTR ){
-	    	load_fontdata(oc, font_set->vmap, font_set->vmap_num);
-		load_fontdata(oc, (FontData) font_set->vrotate,
-			    font_set->vrotate_num);
-		font_set->vpart_initialize = 1;
-	    }
-	}
-	return(NULL);
-    }
-}
-
-static char *
-get_oc_values(
-    XOC oc,
-    XlcArgList args,
-    int num_args)
-{
-    if (oc->core.resources == NULL)
-	return NULL;
-
-    return _XlcGetValues((XPointer) oc, oc->core.resources,
-			 oc->core.num_resources, args, num_args, XlcGetMask);
-}
-
-static XOCMethodsRec oc_default_methods = {
-    destroy_oc,
-    set_oc_values,
-    get_oc_values,
-    _XmbDefaultTextEscapement,
-    _XmbDefaultTextExtents,
-    _XmbDefaultTextPerCharExtents,
-    _XmbDefaultDrawString,
-    _XmbDefaultDrawImageString,
-    _XwcDefaultTextEscapement,
-    _XwcDefaultTextExtents,
-    _XwcDefaultTextPerCharExtents,
-    _XwcDefaultDrawString,
-    _XwcDefaultDrawImageString,
-    _Xutf8DefaultTextEscapement,
-    _Xutf8DefaultTextExtents,
-    _Xutf8DefaultTextPerCharExtents,
-    _Xutf8DefaultDrawString,
-    _Xutf8DefaultDrawImageString
-};
-
-static XOCMethodsRec oc_generic_methods = {
-    destroy_oc,
-    set_oc_values,
-    get_oc_values,
-    _XmbGenericTextEscapement,
-    _XmbGenericTextExtents,
-    _XmbGenericTextPerCharExtents,
-    _XmbGenericDrawString,
-    _XmbGenericDrawImageString,
-    _XwcGenericTextEscapement,
-    _XwcGenericTextExtents,
-    _XwcGenericTextPerCharExtents,
-    _XwcGenericDrawString,
-    _XwcGenericDrawImageString,
-    _Xutf8GenericTextEscapement,
-    _Xutf8GenericTextExtents,
-    _Xutf8GenericTextPerCharExtents,
-    _Xutf8GenericDrawString,
-    _Xutf8GenericDrawImageString
-};
-
-typedef struct _XOCMethodsListRec {
-    const char *name;
-    XOCMethods methods;
-} XOCMethodsListRec, *XOCMethodsList;
-
-static XOCMethodsListRec oc_methods_list[] = {
-    { "default", &oc_default_methods },
-    { "generic", &oc_generic_methods }
-};
-
-static XlcResource oc_resources[] = {
-    { XNBaseFontName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.base_name_list), XlcCreateMask | XlcGetMask },
-    { XNOMAutomatic, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOCRec, core.om_automatic), XlcGetMask },
-    { XNMissingCharSet, NULLQUARK, sizeof(XOMCharSetList),
-      XOffsetOf(XOCRec, core.missing_list), XlcGetMask },
-    { XNDefaultString, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.default_string), XlcGetMask },
-    { XNOrientation, NULLQUARK, sizeof(XOrientation),
-      XOffsetOf(XOCRec, core.orientation), XlcDefaultMask | XlcSetMask | XlcGetMask },
-    { XNResourceName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.res_name), XlcSetMask | XlcGetMask },
-    { XNResourceClass, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.res_class), XlcSetMask | XlcGetMask },
-    { XNFontInfo, NULLQUARK, sizeof(XOMFontInfo),
-      XOffsetOf(XOCRec, core.font_info), XlcGetMask }
-};
-
-static XOC
-create_oc(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    XOC oc;
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    XOCMethodsList methods_list = oc_methods_list;
-    int count;
-
-    oc = Xcalloc(1, sizeof(XOCGenericRec));
-    if (oc == NULL)
-	return (XOC) NULL;
-
-    oc->core.om = om;
-
-    if (oc_resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(oc_resources, XlcNumber(oc_resources));
-
-    if (_XlcSetValues((XPointer) oc, oc_resources, XlcNumber(oc_resources),
-		      args, num_args, XlcCreateMask | XlcDefaultMask))
-	goto err;
-
-    if (oc->core.base_name_list == NULL)
-	goto err;
-
-    oc->core.resources = oc_resources;
-    oc->core.num_resources = XlcNumber(oc_resources);
-
-    if (create_fontset(oc) == False)
-	goto err;
-
-    oc->methods = &oc_generic_methods;
-
-    if (gen->object_name) {
-	count = XlcNumber(oc_methods_list);
-
-	for ( ; count-- > 0; methods_list++) {
-	    if (!_XlcCompareISOLatin1(gen->object_name, methods_list->name)) {
-		oc->methods = methods_list->methods;
-		break;
-	    }
-	}
-    }
-
-    return oc;
-
-err:
-    destroy_oc(oc);
-
-    return (XOC) NULL;
-}
-
-static void
-free_fontdataOM(
-    FontData	font_data,
-    int		font_data_count)
-{
-    for( ; font_data_count-- ; font_data++) {
-	if(font_data->name){
-	    Xfree(font_data->name);
-	    font_data->name = NULL;
-	}
-	if(font_data->scopes){
-	    Xfree(font_data->scopes);
-	    font_data->scopes = NULL;
-	}
-    }
-}
-
-static Status
-close_om(
-    XOM om)
-{
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData data;
-    int count;
-
-    if ((data = gen->data)) {
-	for (count = gen->data_num; count-- > 0; data++) {
-	    if (data->charset_list){
-		Xfree(data->charset_list);
-		data->charset_list = NULL;
-	    }
-	    /* free font_data for om */
-	    if (data->font_data) {
-		free_fontdataOM(data->font_data,data->font_data_count);
-		Xfree(data->font_data);
-		data->font_data = NULL;
-	    }
-	    /* free substitute for om */
-	    if (data->substitute) {
-		free_fontdataOM(data->substitute,data->substitute_num);
-		Xfree(data->substitute);
-		data->substitute = NULL;
-	    }
-	    /* free vmap for om */
-	    if (data->vmap) {
-		free_fontdataOM(data->vmap,data->vmap_num);
-		Xfree(data->vmap);
-		data->vmap = NULL;
-	    }
-	    /* free vrotate for om */
-	    if (data->vrotate) {
-		Xfree(data->vrotate);
-		data->vrotate = NULL;
-	    }
-	}
-	Xfree(gen->data);
-	gen->data = NULL;
-    }
-
-    if (gen->object_name){
-	Xfree(gen->object_name);
-	gen->object_name = NULL;
-    }
-
-    if (om->core.res_name){
-	Xfree(om->core.res_name);
-	om->core.res_name = NULL;
-    }
-    if (om->core.res_class){
-	Xfree(om->core.res_class);
-	om->core.res_class = NULL;
-    }
-    if (om->core.required_charset.charset_list &&
-	om->core.required_charset.charset_count > 0){
-	XFreeStringList(om->core.required_charset.charset_list);
-	om->core.required_charset.charset_list = NULL;
-    } else {
-	Xfree((char*)om->core.required_charset.charset_list);
-	om->core.required_charset.charset_list = NULL;
-    }
-    if (om->core.orientation_list.orientation){
-	Xfree(om->core.orientation_list.orientation);
-	om->core.orientation_list.orientation = NULL;
-    }
-
-    Xfree(om);
-
-    return 1;
-}
-
-static char *
-set_om_values(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    if (om->core.resources == NULL)
-	return NULL;
-
-    return _XlcSetValues((XPointer) om, om->core.resources,
-			 om->core.num_resources, args, num_args, XlcSetMask);
-}
-
-static char *
-get_om_values(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    if (om->core.resources == NULL)
-	return NULL;
-
-    return _XlcGetValues((XPointer) om, om->core.resources,
-			 om->core.num_resources, args, num_args, XlcGetMask);
-}
-
-static XOMMethodsRec methods = {
-    close_om,
-    set_om_values,
-    get_om_values,
-    create_oc
-};
-
-static XlcResource om_resources[] = {
-    { XNRequiredCharSet, NULLQUARK, sizeof(XOMCharSetList),
-      XOffsetOf(XOMRec, core.required_charset), XlcGetMask },
-    { XNQueryOrientation, NULLQUARK, sizeof(XOMOrientation),
-      XOffsetOf(XOMRec, core.orientation_list), XlcGetMask },
-    { XNDirectionalDependentDrawing, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOMRec, core.directional_dependent), XlcGetMask },
-    { XNContextualDrawing, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOMRec, core.contextual_drawing), XlcGetMask }
-};
-
-static XOM
-create_om(
-    XLCd lcd,
-    Display *dpy,
-    XrmDatabase rdb,
-    _Xconst char *res_name,
-    _Xconst char *res_class)
-{
-    XOM om;
-
-    om = Xcalloc(1, sizeof(XOMGenericRec));
-    if (om == NULL)
-	return (XOM) NULL;
-
-    om->methods = &methods;
-    om->core.lcd = lcd;
-    om->core.display = dpy;
-    om->core.rdb = rdb;
-    if (res_name) {
-	om->core.res_name = strdup(res_name);
-	if (om->core.res_name == NULL)
-	    goto err;
-    }
-    if (res_class) {
-	om->core.res_class = strdup(res_class);
-	if (om->core.res_class == NULL)
-	    goto err;
-    }
-
-    if (om_resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(om_resources, XlcNumber(om_resources));
-
-    om->core.resources = om_resources;
-    om->core.num_resources = XlcNumber(om_resources);
-
-    return om;
-
-err:
-    close_om(om);
-
-    return (XOM) NULL;
-}
-
-static OMData
-add_data(
-    XOM om)
-{
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData new;
-    int num;
-
-    if ((num = gen->data_num))
-        new = (OMData) Xrealloc(gen->data, (num + 1) * sizeof(OMDataRec));
-    else
-        new = (OMData) Xmalloc(sizeof(OMDataRec));
-
-    if (new == NULL)
-        return NULL;
-
-    gen->data_num = num + 1;
-    gen->data = new;
-
-    new += num;
-    bzero((char *) new, sizeof(OMDataRec));
-
-    return new;
-}
-
-/* For VW/UDC */
-
-FontData
-read_EncodingInfo(
-    int count,
-    char **value)
-{
-    FontData font_data,ret;
-    char *buf, *bufptr,*scp;
-    int len;
-    font_data = Xcalloc(count, sizeof(FontDataRec));
-    if (font_data == NULL)
-        return NULL;
-
-    ret = font_data;
-    for ( ; count-- > 0; font_data++) {
-/*
-        strcpy(buf, *value++);
-*/
-	buf = *value; value++;
-        if ((bufptr = strchr(buf, ':'))) {
-	    len = (int)(bufptr - buf);
-            bufptr++ ;
-	} else
-            len = strlen(buf);
-        font_data->name = (char *) Xmalloc(len + 1);
-        if (font_data->name == NULL) {
-            Xfree(font_data);
-            return NULL;
-	}
-        strncpy(font_data->name, buf,len);
-	font_data->name[len] = 0;
-        if (bufptr && _XlcCompareISOLatin1(bufptr, "GL") == 0)
-            font_data->side = XlcGL;
-        else if (bufptr && _XlcCompareISOLatin1(bufptr, "GR") == 0)
-            font_data->side = XlcGR;
-        else
-            font_data->side = XlcGLGR;
-
-        if (bufptr && (scp = strchr(bufptr, '['))){
-            font_data->scopes = _XlcParse_scopemaps(scp,&(font_data->scopes_num));
-        }
-    }
-    return(ret);
-}
-
-static CodeRange read_vrotate(
-    int count,
-    char **value,
-    int *type,
-    int *vrotate_num)
-{
-    CodeRange   range;
-    if(!strcmp(value[0],"all")){
-	*type 	     = VROTATE_ALL ;
-	*vrotate_num = 0 ;
-	return (NULL);
-    } else if(*(value[0]) == '['){
-	*type 	     = VROTATE_PART ;
-        range = (CodeRange) _XlcParse_scopemaps(value[0],vrotate_num);
-	return (range);
-    } else {
-	*type 	     = VROTATE_NONE ;
-	*vrotate_num = 0 ;
-	return (NULL);
-    }
-}
-
-static void read_vw(
-    XLCd    lcd,
-    OMData  font_set,
-    int     num)
-{
-    char **value, buf[BUFSIZ];
-    int count;
-
-    sprintf(buf, "fs%d.font.vertical_map", num);
-    _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-    if (count > 0){
-        _XlcDbg_printValue(buf,value,count);
-        font_set->vmap_num = count;
-        font_set->vmap = read_EncodingInfo(count,value);
-    }
-
-    sprintf(buf, "fs%d.font.vertical_rotate", num);
-    _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-    if (count > 0){
-        _XlcDbg_printValue(buf,value,count);
-        font_set->vrotate = read_vrotate(count,value,&(font_set->vrotate_type),
-				&(font_set->vrotate_num));
-    }
-}
-/* VW/UDC end */
-static Bool
-init_om(
-    XOM om)
-{
-    XLCd lcd = om->core.lcd;
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData data;
-    XlcCharSet *charset_list;
-    FontData font_data;
-    char **required_list;
-    XOrientation *orientation;
-    char **value, buf[BUFSIZ], *bufptr;
-    int count = 0, num = 0, length = 0;
-
-    _XlcGetResource(lcd, "XLC_FONTSET", "on_demand_loading", &value, &count);
-    if (count > 0 && _XlcCompareISOLatin1(*value, "True") == 0)
-	gen->on_demand_loading = True;
-
-    _XlcGetResource(lcd, "XLC_FONTSET", "object_name", &value, &count);
-    if (count > 0) {
-	gen->object_name = strdup(*value);
-	if (gen->object_name == NULL)
-	    return False;
-    }
-
-    for (num = 0; ; num++) {
-
-        sprintf(buf, "fs%d.charset.name", num);
-        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-
-        if( count < 1){
-            sprintf(buf, "fs%d.charset", num);
-            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-            if (count < 1)
-                break;
-        }
-
-	data = add_data(om);
-	if (data == NULL)
-	    return False;
-
-	charset_list = (XlcCharSet *) Xmalloc(sizeof(XlcCharSet) * count);
-	if (charset_list == NULL)
-	    return False;
-	data->charset_list = charset_list;
-	data->charset_count = count;
-
-	while (count-- > 0){
-	    *charset_list++ = _XlcGetCharSet(*value++);
-        }
-        sprintf(buf, "fs%d.charset.udc_area", num);
-        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-        if( count > 0){
-            UDCArea udc;
-            int i,flag = 0;
-            udc = (UDCArea)Xmalloc(count * sizeof(UDCAreaRec));
-	    if (udc == NULL)
-	        return False;
-            for(i=0;i<count;i++){
-                sscanf(value[i],"\\x%lx,\\x%lx", &(udc[i].start),
-		       &(udc[i].end));
-            }
-            for(i=0;i<data->charset_count;i++){
-		if(data->charset_list[i]->udc_area == NULL){
-		    data->charset_list[i]->udc_area     = udc;
-		    data->charset_list[i]->udc_area_num = count;
-		    flag = 1;
-		}
-            }
-	    if(flag == 0){
-		Xfree(udc);
-	    }
-        }
-
-        sprintf(buf, "fs%d.font.primary", num);
-        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-        if (count < 1){
-            sprintf(buf, "fs%d.font", num);
-            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-            if (count < 1)
-                return False;
-        }
-
-	font_data = read_EncodingInfo(count,value);
-	if (font_data == NULL)
-	    return False;
-
-	data->font_data = font_data;
-	data->font_data_count = count;
-
-        sprintf(buf, "fs%d.font.substitute", num);
-        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-        if (count > 0){
-            font_data = read_EncodingInfo(count,value);
-            if (font_data == NULL)
-	        return False;
-            data->substitute      = font_data;
-            data->substitute_num = count;
-        } else {
-            sprintf(buf, "fs%d.font", num);
-            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);
-            if (count < 1) {
-                data->substitute      = NULL;
-                data->substitute_num = 0;
-	    } else {
-                font_data = read_EncodingInfo(count,value);
-                data->substitute      = font_data;
-                data->substitute_num = count;
-	    }
-	}
-        read_vw(lcd,data,num);
-	length += strlen(data->font_data->name) + 1;
-    }
-
-    /* required charset list */
-    required_list = (char **) Xmalloc(sizeof(char *) * gen->data_num);
-    if (required_list == NULL)
-	return False;
-
-    om->core.required_charset.charset_list = required_list;
-    om->core.required_charset.charset_count = gen->data_num;
-
-    count = gen->data_num;
-    data = gen->data;
-
-    if (count > 0) {
-	bufptr = (char *) Xmalloc(length);
-	if (bufptr == NULL) {
-	    Xfree(required_list);
-	    return False;
-	}
-
-	for ( ; count-- > 0; data++) {
-	    strcpy(bufptr, data->font_data->name);
-	    *required_list++ = bufptr;
-	    bufptr += strlen(bufptr) + 1;
-	}
-    }
-
-    /* orientation list */
-    orientation = (XOrientation *) Xmalloc(sizeof(XOrientation) * 2);
-    if (orientation == NULL)
-	return False;
-
-    orientation[0] = XOMOrientation_LTR_TTB;
-    orientation[1] = XOMOrientation_TTB_RTL;
-    om->core.orientation_list.orientation = orientation;
-    om->core.orientation_list.num_orientation = 2;
-
-    /* directional dependent drawing */
-    om->core.directional_dependent = False;
-
-    /* contexual drawing */
-    om->core.contextual_drawing = False;
-
-    /* context dependent */
-    om->core.context_dependent = False;
-
-    return True;
-}
-
-XOM
-_XomGenericOpenOM(XLCd lcd, Display *dpy, XrmDatabase rdb,
-		  _Xconst char *res_name, _Xconst char *res_class)
-{
-    XOM om;
-
-    om = create_om(lcd, dpy, rdb, res_name, res_class);
-    if (om == NULL)
-	return (XOM) NULL;
-
-    if (init_om(om) == False)
-	goto err;
-
-    return om;
-
-err:
-    close_om(om);
-
-    return (XOM) NULL;
-}
-
-Bool
-_XInitOM(
-    XLCd lcd)
-{
-    lcd->methods->open_om = _XomGenericOpenOM;
-
-    return True;
-}
+/*  #define FONTDEBUG */

+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+/*

+ * Copyright 1995 by FUJITSU LIMITED

+ * This is source code modified by FUJITSU LIMITED under the Joint

+ * Development Agreement for the CDE/Motif PST.

+ *

+ * Modifier:  Takanori Tateno   FUJITSU LIMITED

+ *

+ */

+

+/*

+ * Fixed the algorithms in parse_fontname() and parse_fontdata()

+ * to improve the logic for determining which font should be

+ * returned for a given CharSet.  We even added some comments

+ * so that you can figure out what in the heck we're doing. We

+ * realize this is a departure from the norm, but hey, we're

+ * rebels! :-) :-)

+ *

+ * Modifiers: Jeff Walls, Paul Anderson: HEWLETT-PACKARD

+ */

+/*

+ * Cleaned up mess, removed some blabla

+ * Egbert Eich, SuSE Linux AG

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "XomGeneric.h"

+#include "XlcGeneric.h"

+#include <X11/Xos.h>

+#include <X11/Xatom.h>

+#include <stdio.h>

+#include <unistd.h>

+#include <string.h>

+#include <ctype.h>

+

+#define MAXFONTS		100

+#define	PIXEL_SIZE_FIELD	 7

+#define	POINT_SIZE_FIELD	 8

+#define	CHARSET_ENCODING_FIELD	14

+#define XLFD_MAX_LEN		255

+

+#if 0

+extern int _XmbDefaultTextEscapement(), _XwcDefaultTextEscapement(),

+	   _Xutf8DefaultTextEscapement();

+extern int _XmbDefaultTextExtents(), _XwcDefaultTextExtents(),

+	   _Xutf8DefaultTextExtents();

+extern Status _XmbDefaultTextPerCharExtents(), _XwcDefaultTextPerCharExtents(),

+	      _Xutf8DefaultTextPerCharExtents();

+extern int _XmbDefaultDrawString(), _XwcDefaultDrawString(),

+	   _Xutf8DefaultDrawString();

+extern void _XmbDefaultDrawImageString(), _XwcDefaultDrawImageString(),

+	    _Xutf8DefaultDrawImageString();

+

+extern int _XmbGenericTextEscapement(), _XwcGenericTextEscapement(),

+	   _Xutf8GenericTextEscapement();

+extern int _XmbGenericTextExtents(), _XwcGenericTextExtents(),

+	   _Xutf8GenericTextExtents();

+extern Status _XmbGenericTextPerCharExtents(), _XwcGenericTextPerCharExtents(),

+	      _Xutf8GenericTextPerCharExtents();

+extern int _XmbGenericDrawString(), _XwcGenericDrawString(),

+	   _Xutf8GenericDrawString();

+extern void _XmbGenericDrawImageString(), _XwcGenericDrawImageString(),

+	    _Xutf8GenericDrawImageString();

+

+extern void _XlcDbg_printValue (const char *str, char **value, int num);

+#endif

+

+/* For VW/UDC start */

+

+static FontData

+init_fontdata(

+    FontData	font_data,

+    int		font_data_count)

+{

+    FontData	fd;

+    int		i;

+

+    fd = (FontData)Xmalloc(sizeof(FontDataRec) * font_data_count);

+    if(fd == (FontData) NULL)

+	return False;

+

+    memset(fd, 0x00, sizeof(FontData) * font_data_count);

+    for(i = 0 ; i < font_data_count ; i++)

+	fd[i] = font_data[i];

+

+    return fd;

+}

+

+static VRotate

+init_vrotate(

+    FontData	font_data,

+    int		font_data_count,

+    int		type,

+    CodeRange	code_range,

+    int		code_range_num)

+{

+    VRotate	vrotate;

+    int		i;

+

+    if(type == VROTATE_NONE)

+	return (VRotate)NULL;

+

+    vrotate = (VRotate)Xmalloc(sizeof(VRotateRec) * font_data_count);

+    if(vrotate == (VRotate) NULL)

+	return False;

+

+    memset(vrotate, 0x00, sizeof(VRotateRec) * font_data_count);

+    for(i = 0 ; i < font_data_count ; i++) {

+	vrotate[i].charset_name = font_data[i].name;

+	vrotate[i].side = font_data[i].side;

+	if(type == VROTATE_PART) {

+	    vrotate[i].num_cr = code_range_num;

+	    vrotate[i].code_range = code_range;

+	}

+    }

+

+    return vrotate;

+}

+

+static Bool

+init_fontset(

+    XOC oc)

+{

+    XOCGenericPart *gen;

+    FontSet font_set;

+    OMData data;

+    int count;

+

+    count = XOM_GENERIC(oc->core.om)->data_num;

+    data = XOM_GENERIC(oc->core.om)->data;

+

+    font_set = (FontSet) Xmalloc(sizeof(FontSetRec) * count);

+    if (font_set == NULL)

+	return False;

+    memset((char *) font_set, 0x00, sizeof(FontSetRec) * count);

+

+    gen = XOC_GENERIC(oc);

+    gen->font_set_num = count;

+    gen->font_set = font_set;

+

+    for ( ; count-- > 0; data++, font_set++) {

+	font_set->charset_count = data->charset_count;

+	font_set->charset_list = data->charset_list;

+

+	if((font_set->font_data = init_fontdata(data->font_data,

+				  data->font_data_count)) == NULL)

+	    goto err;

+	font_set->font_data_count = data->font_data_count;

+	if((font_set->substitute = init_fontdata(data->substitute,

+				   data->substitute_num)) == NULL)

+	    goto err;

+	font_set->substitute_num = data->substitute_num;

+	if((font_set->vmap = init_fontdata(data->vmap,

+			     data->vmap_num)) == NULL)

+	    goto err;

+	font_set->vmap_num       = data->vmap_num;

+

+	if(data->vrotate_type != VROTATE_NONE) {

+	    /* A vrotate member is specified primary font data */

+	    /* as initial value.                               */

+	    if((font_set->vrotate = init_vrotate(data->font_data,

+						 data->font_data_count,

+						 data->vrotate_type,

+						 data->vrotate,

+						 data->vrotate_num)) == NULL)

+		goto err;

+	    font_set->vrotate_num = data->font_data_count;

+	}

+    }

+    return True;

+

+err:

+    if(font_set->font_data)

+	Xfree(font_set->font_data);

+    if(font_set->substitute)

+	Xfree(font_set->substitute);

+    if(font_set->vmap)

+	Xfree(font_set->vmap);

+    if(font_set->vrotate)

+	Xfree(font_set->vrotate);

+    if(font_set)

+	Xfree(font_set);

+    gen->font_set = (FontSet) NULL;

+    gen->font_set_num = 0;

+    return False;

+}

+

+/* For VW/UDC end */

+

+static char *

+get_prop_name(

+    Display *dpy,

+    XFontStruct	*fs)

+{

+    unsigned long fp;

+

+    if (XGetFontProperty(fs, XA_FONT, &fp))

+	return XGetAtomName(dpy, fp);

+

+    return (char *) NULL;

+}

+

+/* For VW/UDC start */

+

+static Bool

+load_fontdata(

+    XOC		oc,

+    FontData	font_data,

+    int		font_data_num)

+{

+    Display	*dpy = oc->core.om->core.display;

+    FontData	fd = font_data;

+

+    if(font_data == NULL) return(True);

+    for( ; font_data_num-- ; fd++) {

+	if(fd->xlfd_name != (char *) NULL && fd->font == NULL) {

+	    fd->font = XLoadQueryFont(dpy, fd->xlfd_name);

+	    if (fd->font == NULL){

+		return False;

+	    }

+	}

+    }

+    return True;

+}

+

+static Bool

+load_fontset_data(

+    XOC		oc,

+    FontSet	font_set)

+{

+    Display	*dpy = oc->core.om->core.display;

+

+    if(font_set->font_name == (char *)NULL) return False ;

+

+   /* If font_set->font is not NULL, it contains the *best*

+    * match font for this FontSet.

+    * -- jjw/pma (HP)

+    */

+    if(font_set->font == NULL) {

+       font_set->font = XLoadQueryFont(dpy, font_set->font_name);

+       if (font_set->font == NULL){

+		return False;

+       }

+    }

+    return True;

+}

+

+static Bool

+load_font(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set = gen->font_set;

+    int num = gen->font_set_num;

+

+    for ( ; num-- > 0; font_set++) {

+	if (font_set->font_name == NULL)

+	    continue;

+

+        if (load_fontset_data (oc, font_set) != True)

+	    return False;

+#ifndef TESTVERSION

+	if(load_fontdata(oc, font_set->font_data,

+			 font_set->font_data_count) != True)

+	    return False;

+

+	if(load_fontdata(oc, font_set->substitute,

+			 font_set->substitute_num) != True)

+	    return False;

+#endif

+

+/* Add 1996.05.20 */

+        if( oc->core.orientation == XOMOrientation_TTB_RTL ||

+            oc->core.orientation == XOMOrientation_TTB_LTR ){

+	    if (font_set->vpart_initialize == 0) {

+	       load_fontdata(oc, font_set->vmap, font_set->vmap_num);

+	       load_fontdata(oc, (FontData) font_set->vrotate,

+			 font_set->vrotate_num);

+                font_set->vpart_initialize = 1;

+	    }

+        }

+

+	if (font_set->font->min_byte1 || font_set->font->max_byte1)

+	    font_set->is_xchar2b = True;

+	else

+	    font_set->is_xchar2b = False;

+    }

+

+    return True;

+}

+

+/* For VW/UDC end */

+

+static Bool

+load_font_info(

+    XOC oc)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set = gen->font_set;

+    char **fn_list;

+    int fn_num, num = gen->font_set_num;

+

+    for ( ; num-- > 0; font_set++) {

+	if (font_set->font_name == NULL)

+	    continue;

+

+	if (font_set->info == NULL) {

+	    fn_list = XListFontsWithInfo(dpy, font_set->font_name, 1, &fn_num,

+					 &font_set->info);

+	    if (font_set->info == NULL)

+		return False;

+

+	    XFreeFontNames(fn_list);

+	}

+    }

+

+    return True;

+}

+

+/* For Vertical Writing start */

+

+static void

+check_fontset_extents(

+    XCharStruct		*overall,

+    int			*logical_ascent,

+    int                 *logical_descent,

+    XFontStruct		*font)

+{

+    overall->lbearing = min(overall->lbearing, font->min_bounds.lbearing);

+    overall->rbearing = max(overall->rbearing, font->max_bounds.rbearing);

+    overall->ascent   = max(overall->ascent,   font->max_bounds.ascent);

+    overall->descent  = max(overall->descent,  font->max_bounds.descent);

+    overall->width    = max(overall->width,    font->max_bounds.width);

+    *logical_ascent   = max(*logical_ascent,   font->ascent);

+    *logical_descent  = max(*logical_descent,  font->descent);

+}

+

+/* For Vertical Writing end */

+

+static void

+set_fontset_extents(

+    XOC oc)

+{

+    XRectangle *ink = &oc->core.font_set_extents.max_ink_extent;

+    XRectangle *logical = &oc->core.font_set_extents.max_logical_extent;

+    XFontStruct **font_list, *font;

+    XCharStruct overall;

+    int logical_ascent, logical_descent;

+    int	num = oc->core.font_info.num_font;

+

+    font_list = oc->core.font_info.font_struct_list;

+    font = *font_list++;

+    overall = font->max_bounds;

+    overall.lbearing = font->min_bounds.lbearing;

+    logical_ascent = font->ascent;

+    logical_descent = font->descent;

+

+    /* For Vertical Writing start */

+

+    while (--num > 0) {

+	font = *font_list++;

+	check_fontset_extents(&overall, &logical_ascent, &logical_descent,

+			      font);

+    }

+

+    {

+	XOCGenericPart  *gen = XOC_GENERIC(oc);

+	FontSet		font_set = gen->font_set;

+	FontData	font_data;

+	int		font_set_num = gen->font_set_num;

+	int		font_data_count;

+

+	for( ; font_set_num-- ; font_set++) {

+	    if(font_set->vmap_num > 0) {

+		font_data = font_set->vmap;

+		font_data_count = font_set->vmap_num;

+		for( ; font_data_count-- ; font_data++) {

+		    if(font_data->font != NULL) {

+			check_fontset_extents(&overall, &logical_ascent,

+					      &logical_descent,

+					      font_data->font);

+		    }

+		}

+	    }

+

+	    if(font_set->vrotate_num > 0 && font_set->vrotate != NULL) {

+		font_data = (FontData) font_set->vrotate;

+		font_data_count = font_set->vrotate_num;

+		for( ; font_data_count-- ; font_data++) {

+		    if(font_data->font != NULL) {

+			check_fontset_extents(&overall, &logical_ascent,

+					      &logical_descent,

+					      font_data->font);

+		    }

+		}

+	    }

+	}

+    }

+

+    /* For Vertical Writing start */

+

+    ink->x = overall.lbearing;

+    ink->y = -(overall.ascent);

+    ink->width = overall.rbearing - overall.lbearing;

+    ink->height = overall.ascent + overall.descent;

+

+    logical->x = 0;

+    logical->y = -(logical_ascent);

+    logical->width = overall.width;

+    logical->height = logical_ascent + logical_descent;

+}

+

+static Bool

+init_core_part(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set;

+    int font_set_num;

+    XFontStruct **font_struct_list;

+    char **font_name_list, *font_name_buf;

+    int	count, length;

+

+    font_set = gen->font_set;

+    font_set_num = gen->font_set_num;

+    count = length = 0;

+

+    for ( ; font_set_num-- > 0; font_set++) {

+	if (font_set->font_name == NULL)

+	    continue;

+

+	length += strlen(font_set->font_name) + 1;

+

+	count++;

+    }

+    if (count == 0)

+        return False;

+

+    font_struct_list = (XFontStruct **) Xmalloc(sizeof(XFontStruct *) * count);

+    if (font_struct_list == NULL)

+	return False;

+

+    font_name_list = (char **) Xmalloc(sizeof(char *) * count);

+    if (font_name_list == NULL)

+	goto err;

+

+    font_name_buf = (char *) Xmalloc(length);

+    if (font_name_buf == NULL)

+	goto err;

+

+    oc->core.font_info.num_font = count;

+    oc->core.font_info.font_name_list = font_name_list;

+    oc->core.font_info.font_struct_list = font_struct_list;

+

+    font_set = gen->font_set;

+    font_set_num = gen->font_set_num;

+

+    for (count = 0; font_set_num-- > 0; font_set++) {

+	if (font_set->font_name == NULL)

+	    continue;

+

+	font_set->id = count;

+	if (font_set->font)

+	    *font_struct_list++ = font_set->font;

+	else

+	    *font_struct_list++ = font_set->info;

+	strcpy(font_name_buf, font_set->font_name);

+	Xfree(font_set->font_name);

+	*font_name_list++ = font_set->font_name = font_name_buf;

+	font_name_buf += strlen(font_name_buf) + 1;

+

+	count++;

+    }

+

+    set_fontset_extents(oc);

+

+    return True;

+

+err:

+    if (font_name_list)

+	Xfree(font_name_list);

+    Xfree(font_struct_list);

+

+    return False;

+}

+

+static char *

+get_font_name(

+    XOC oc,

+    char *pattern)

+{

+    char **list, *name;

+    int count = 0;

+

+    list = XListFonts(oc->core.om->core.display, pattern, 1, &count);

+    if (list == NULL)

+	return NULL;

+

+    name = strdup(*list);

+

+    XFreeFontNames(list);

+

+    return name;

+}

+

+/* For VW/UDC start*/

+

+static char *

+get_rotate_fontname(

+    char *font_name)

+{

+    char *pattern = NULL, *ptr = NULL;

+    char *fields[CHARSET_ENCODING_FIELD];

+    char str_pixel[32], str_point[4];

+    char *rotate_font_ptr = NULL;

+    int pixel_size = 0;

+    int field_num = 0, len = 0;

+

+    if(font_name == (char *) NULL || (len = strlen(font_name)) <= 0

+       || len > XLFD_MAX_LEN)

+	return NULL;

+

+    pattern = strdup(font_name);

+    if(!pattern)

+	return NULL;

+

+    memset(fields, 0, sizeof(char *) * 14);

+    ptr = pattern;

+    while(isspace(*ptr)) {

+	ptr++;

+    }

+    if(*ptr == '-')

+	ptr++;

+

+    for(field_num = 0 ; field_num < CHARSET_ENCODING_FIELD && ptr && *ptr ;

+			ptr++, field_num++) {

+	fields[field_num] = ptr;

+

+	if((ptr = strchr(ptr, '-'))) {

+	    *ptr = '\0';

+	} else {

+	    field_num++;	/* Count last field */

+	    break;

+	}

+    }

+

+    if(field_num < CHARSET_ENCODING_FIELD)

+	goto free_pattern;

+

+    /* Pixel Size field : fields[6] */

+    for(ptr = fields[PIXEL_SIZE_FIELD - 1] ; ptr && *ptr; ptr++) {

+	if(!isdigit(*ptr)) {

+	    if(*ptr == '['){ /* 960730 */

+	        strcpy(pattern, font_name);

+		return(pattern);

+	    }

+	    goto free_pattern;

+	}

+    }

+    pixel_size = atoi(fields[PIXEL_SIZE_FIELD - 1]);

+    sprintf(str_pixel, "[ 0 ~%d %d 0 ]", pixel_size, pixel_size);

+    fields[6] = str_pixel;

+

+    /* Point Size field : fields[7] */

+    strcpy(str_point, "*");

+    fields[POINT_SIZE_FIELD - 1] = str_point;

+

+    len = 0;

+    for (field_num = 0; field_num < CHARSET_ENCODING_FIELD &&

+			fields[field_num]; field_num++) {

+	len += 1 + strlen(fields[field_num]);

+    }

+

+    /* Max XLFD length is 255 */

+    if (len > XLFD_MAX_LEN)

+	goto free_pattern;

+

+    rotate_font_ptr = (char *)Xmalloc(len + 1);

+    if(!rotate_font_ptr)

+	goto free_pattern;

+

+    rotate_font_ptr[0] = '\0';

+

+    for(field_num = 0 ; field_num < CHARSET_ENCODING_FIELD &&

+			fields[field_num] ; field_num++) {

+	strcat(rotate_font_ptr, "-");

+	strcat(rotate_font_ptr, fields[field_num]);

+    }

+

+free_pattern:

+    Xfree(pattern);

+

+    return rotate_font_ptr;

+}

+

+static Bool

+is_match_charset(

+    FontData	font_data,

+    char	*font_name)

+{

+    char *last;

+    int length, name_len;

+

+    name_len = strlen(font_name);

+    last = font_name + name_len;

+

+    length = strlen(font_data->name);

+    if (length > name_len)

+	return False;

+

+    if (_XlcCompareISOLatin1(last - length, font_data->name) == 0)

+	return True;

+

+    return False;

+}

+

+#if 0

+static char *

+get_font_name_from_list(

+    XOC oc,

+    char *pattern,

+    FontData    font_data)

+{

+    char **list, *name = (char *)NULL, *fname;

+    int count = 0, i;

+

+    list = XListFonts(oc->core.om->core.display, pattern, MAXFONTS, &count);

+    if (list == NULL)

+	return NULL;

+

+    for (i = 0; i < count; i++) {

+        fname = list[i];

+        if(is_match_charset(font_data, fname) == True) {

+            name = strdup(fname);

+            break;

+        }

+    }

+

+    XFreeFontNames(list);

+

+    return name;

+}

+#endif

+

+static int

+parse_all_name(

+    XOC		oc,

+    FontData	font_data,

+    char	*pattern)

+{

+

+#ifdef OLDCODE

+    if(is_match_charset(font_data, pattern) != True)

+ 	return False;

+

+    font_data->xlfd_name = strdup(pattern);

+    if(font_data->xlfd_name == NULL)

+	return (-1);

+

+    return True;

+#else  /* OLDCODE */

+    Display *dpy = oc->core.om->core.display;

+    char **fn_list = NULL, *prop_fname = NULL;

+    int list_num;

+    XFontStruct *fs_list;

+    if(is_match_charset(font_data, pattern) != True) {

+	/*

+	 * pattern should not contain any wildcard (execpt '?')

+	 * this was probably added to make this case insensitive.

+	 */

+	if ((fn_list = XListFontsWithInfo(dpy, pattern,

+				      MAXFONTS,

+				      &list_num, &fs_list)) == NULL) {

+            return False;

+        }

+	/* shouldn't we loop here ? */

+        else if ((prop_fname = get_prop_name(dpy, fs_list)) == NULL) {

+            XFreeFontInfo(fn_list, fs_list, list_num);

+            return False;

+        }

+        else if ((is_match_charset(font_data, prop_fname) != True)) {

+            XFree(prop_fname);

+            XFreeFontInfo(fn_list, fs_list, list_num);

+            return False;

+        }

+        else {

+	    font_data->xlfd_name = prop_fname;

+            XFreeFontInfo(fn_list, fs_list, list_num);

+            return True;

+        }

+    }

+

+    font_data->xlfd_name = strdup(pattern);

+    if(font_data->xlfd_name == NULL)

+	return (-1);

+

+    return True;

+#endif /* OLDCODE */

+}

+

+static int

+parse_omit_name(

+    XOC		oc,

+    FontData	font_data,

+    char	*pattern)

+{

+    char*	last = (char *) NULL;

+    char*	base_name;

+    char	buf[XLFD_MAX_LEN + 1];

+    int		length = 0;

+    int		num_fields;

+   /*

+    * If the font specified by "pattern" is expandable to be

+    * a member of "font_data"'s FontSet, we've found a match.

+    */

+    if(is_match_charset(font_data, pattern) == True) {

+	if ((font_data->xlfd_name = get_font_name(oc, pattern)) != NULL) {

+	    return True;

+	}

+    }

+

+    length = strlen (pattern);

+

+    if (length > XLFD_MAX_LEN)

+	return -1;

+

+    strcpy(buf, pattern);

+    last = buf + length - 1;

+

+    /* Replace the original encoding with the encoding for this FontSet. */

+

+    /* Figure out how many fields have been specified in this xlfd. */

+    for (num_fields = 0, base_name = buf; *base_name != '\0'; base_name++)

+	if (*base_name == '-') num_fields++;

+

+    switch (num_fields) {

+    case 12:

+	/* This is the best way to have specifed the fontset.  In this

+	 * case, there is no original encoding. E.g.,

+         *       -*-*-*-*-*-*-14-*-*-*-*-*

+	 * To this, we'll append a dash:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-

+	 * then append the encoding to get:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0

+	 */

+	/*

+	 * Take care of:

+	 *       -*-*-*-*-*-*-14-*-*-*-*-

+	 */

+	if (*(last) == '-')

+	    *++last = '*';

+

+	*++last = '-';

+	break;

+    case 13:

+	/* Got the charset, not the encoding, zap the charset  In this

+	 * case, there is no original encoding, but there is a charset. E.g.,

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-jisx0212.1990

+	 * To this, we remove the charset:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-

+	 * then append the new encoding to get:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0

+	 */

+	last = strrchr (buf, '-');

+	num_fields = 12;

+	break;

+    case 14:

+	/* Both the charset and the encoding are specified.  Get rid

+	 * of them so that we can append the new charset encoding.  E.g.,

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-jisx0212.1990-0

+	 * To this, we'll remove the encoding and charset to get:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-

+	 * then append the new encoding to get:

+         *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0

+	 */

+	last = strrchr (buf, '-');

+	*last = '\0';

+	last = strrchr (buf, '-');

+	num_fields = 12;

+	break;

+    default:

+	if (*last != '-')

+	    *++last = '-';

+	break;

+    }

+

+   /* At this point, "last" is pointing to the last "-" in the

+    * xlfd, and all xlfd's at this point take a form similar to:

+    *       -*-*-*-*-*-*-14-*-*-*-*-*-

+    * (i.e., no encoding).

+    * After the strcpy, we'll end up with something similar to:

+    *       -*-*-*-*-*-*-14-*-*-*-*-*-JISX0208.1990-0

+    *

+    * If the modified font is found in the current FontSet,

+    * we've found a match.

+    */

+

+    last++;

+

+    if ((last - buf) + strlen(font_data->name) > XLFD_MAX_LEN)

+	return -1;

+

+    strcpy(last, font_data->name);

+    if ((font_data->xlfd_name = get_font_name(oc, buf)) != NULL)

+	return True;

+

+    /* This may mot be needed anymore as XListFonts() takes care of this */

+    while (num_fields < 12) {

+	if ((last - buf) > (XLFD_MAX_LEN - 2))

+	    return -1;

+	*last = '*';

+	*(last + 1) = '-';

+	strcpy(last + 2, font_data->name);

+	num_fields++;

+	last+=2;

+	if ((font_data->xlfd_name = get_font_name(oc, buf)) != NULL)

+	    return True;

+    }

+

+

+    return False;

+}

+

+

+typedef enum{C_PRIMARY, C_SUBSTITUTE, C_VMAP, C_VROTATE } ClassType;

+

+static int

+parse_fontdata(

+    XOC		 oc,

+    FontSet      font_set,

+    FontData	 font_data,

+    int		 font_data_count,

+    char	 **name_list,

+    int		 name_list_count,

+    ClassType	 class,

+    FontDataRec *font_data_return)

+{

+

+    char	**cur_name_list = name_list;

+    char	*font_name      = (char *) NULL;

+    char	*pattern        = (char *) NULL;

+    int		found_num       = 0, ret = 0;

+    int		count           = name_list_count;

+

+    if(name_list == NULL || count <= 0) {

+	return False;

+    }

+

+    if(font_data == NULL || font_data_count <= 0) {

+	return False;

+    }

+

+    /* Loop through each font encoding defined in the "font_data" FontSet. */

+    for ( ; font_data_count-- > 0; font_data++) {

+	Bool	is_found = False;

+	font_name = (char *) NULL;

+	count = name_list_count;

+	cur_name_list = name_list;

+

+       /*

+	* Loop through each font specified by the user

+	* in the call to XCreateFontset().

+	*/

+	while (count-- > 0) {

+            pattern = *cur_name_list++;

+	    if (pattern == NULL || *pattern == '\0')

+		continue;

+#ifdef FONTDEBUG

+		fprintf(stderr,"Font pattern: %s %s\n",

+		pattern,font_data->name);

+#endif

+

+	    /*

+	     * If the current font is fully specified (i.e., the

+	     * xlfd contains no wildcards) and the font exists on

+	     * the X Server, we have a match.

+	     */

+	    if (strchr(pattern, '*') == NULL &&

+		(font_name = get_font_name(oc, pattern))) {

+               /*

+		* Find the full xlfd name for this font. If the font is

+		* already in xlfd format, it is simply returned.  If the

+		* font is an alias for another font, the xlfd of the

+		* aliased font is returned.

+		*/

+		ret = parse_all_name(oc, font_data, font_name);

+		Xfree(font_name);

+

+                if (ret == -1)    return -1;

+	        if (ret == False) continue;

+               /*

+		* Since there was an exact match of a fully-specified font

+		* or a font alias, we can return now since the desired font

+		* was found for the current font encoding for this FontSet.

+		*

+		* Previous implementations of this algorithm would

+		* not return here. Instead, they continued searching

+		* through the font encodings for this FontSet. The side-effect

+		* of that behavior is you may return a "substitute" match

+		* instead of an "exact" match.  We believe there should be a

+		* preference on exact matches.  Therefore, as soon as we

+		* find one, we bail.

+		*

+		* Also, previous implementations seemed to think it was

+		* important to find either a primary or substitute font

+		* for each Font encoding in the FontSet before returning an

+		* acceptable font.  We don't believe this is necessary.

+		* All the client cares about is finding a reasonable font

+		* for what was passed in.  If we find an exact match,

+		* there's no reason to look any further.

+		*

+		* -- jjw/pma (HP)

+		*/

+		if (font_data_return) {

+		    font_data_return->xlfd_name = strdup(font_data->xlfd_name);

+		    if (!font_data_return->xlfd_name) return -1;

+

+		    font_data_return->side      = font_data->side;

+		}

+#ifdef FONTDEBUG

+		fprintf(stderr,"XLFD name: %s\n",font_data->xlfd_name);

+#endif

+

+		return True;

+	    }

+	    /*

+	     * If the font name is not fully specified

+	     * (i.e., it has wildcards), we have more work to do.

+	     * See the comments in parse_omit_name()

+	     * for the list of things to do.

+	     */

+	    ret = parse_omit_name(oc, font_data, pattern);

+

+            if (ret == -1)    return -1;

+	    if (ret == False) continue;

+

+           /*

+	    * A font which matched the wild-carded specification was found.

+	    * Only update the return data if a font has not yet been found.

+	    * This maintains the convention that FontSets listed higher in

+	    * a CodeSet in the Locale Database have higher priority than

+	    * those FontSets listed lower in the CodeSet.  In the following

+	    * example:

+	    *

+	    * fs1 {

+	    *        charset     HP-JIS:GR

+	    *        font        JISX0208.1990-0:GL;\

+	    *                    JISX0208.1990-1:GR;\

+	    *                    JISX0208.1983-0:GL;\

+	    *                    JISX0208.1983-1:GR

+	    * }

+	    *

+	    * a font found in the JISX0208.1990-0 FontSet will have a

+	    * higher priority than a font found in the JISX0208.1983-0

+	    * FontSet.

+	    */

+	    if (font_data_return && font_data_return->xlfd_name == NULL) {

+

+#ifdef FONTDEBUG

+		fprintf(stderr,"XLFD name: %s\n",font_data->xlfd_name);

+#endif

+		font_data_return->xlfd_name = strdup(font_data->xlfd_name);

+                if (!font_data_return->xlfd_name) return -1;

+

+	        font_data_return->side      = font_data->side;

+	    }

+

+	    found_num++;

+	    is_found = True;

+

+	    break;

+	}

+

+	switch(class) {

+	  case C_PRIMARY:

+	       if(is_found == False) {

+		 /*

+		  * Did not find a font for the current FontSet.  Check the

+		  * FontSet's "substitute" font for a match.  If we find a

+		  * match, we'll keep searching in hopes of finding an exact

+		  * match later down the FontSet list.

+		  *

+		  * when we return and we have found a font font_data_return

+		  * contains the first (ie. best) match no matter if this

+		  * is a C_PRIMARY or a C_SUBSTITUTE font

+		  */

+		  ret = parse_fontdata(oc, font_set, font_set->substitute,

+				       font_set->substitute_num, name_list,

+				       name_list_count, C_SUBSTITUTE,

+				       font_data_return);

+                  if (ret == -1)    return -1;

+		  if (ret == False) continue;

+

+		  found_num++;

+		  is_found = True;

+               }

+#ifdef TESTVERSION

+	       else

+		   return True;

+#endif

+	       break;

+

+	  case C_SUBSTITUTE:

+	  case C_VMAP:

+	       if(is_found == True)

+		  return True;

+	       break;

+

+	  case C_VROTATE:

+	       if(is_found == True) {

+		  char	*rotate_name;

+

+		  if((rotate_name = get_rotate_fontname(font_data->xlfd_name))

+		     != NULL) {

+		      Xfree(font_data->xlfd_name);

+		      font_data->xlfd_name = rotate_name;

+

+		      return True;

+		  }

+		  Xfree(font_data->xlfd_name);

+		  font_data->xlfd_name = NULL;

+		  return False;

+	       }

+	       break;

+	}

+    }

+

+    if(class == C_PRIMARY && found_num >= 1)

+	return True;

+

+    return False;

+}

+

+

+static int

+parse_vw(

+    XOC		oc,

+    FontSet	font_set,

+    char	**name_list,

+    int		count)

+{

+    FontData	vmap = font_set->vmap;

+    VRotate	vrotate = font_set->vrotate;

+    int		vmap_num = font_set->vmap_num;

+    int		vrotate_num = font_set->vrotate_num;

+    int		ret = 0, i = 0;

+

+    if(vmap_num > 0) {

+	if(parse_fontdata(oc, font_set, vmap, vmap_num, name_list,

+			  count, C_VMAP,NULL) == -1)

+	    return (-1);

+    }

+

+    if(vrotate_num > 0) {

+	ret = parse_fontdata(oc, font_set, (FontData) vrotate, vrotate_num,

+			     name_list, count, C_VROTATE, NULL);

+	if(ret == -1) {

+	    return (-1);

+	} else if(ret == False) {

+	    CodeRange	code_range;

+	    int		num_cr;

+	    int		sub_num = font_set->substitute_num;

+

+	    code_range = vrotate[0].code_range; /* ? */

+	    num_cr = vrotate[0].num_cr;         /* ? */

+	    for(i = 0 ; i < vrotate_num ; i++) {

+		if(vrotate[i].xlfd_name)

+		    Xfree(vrotate[i].xlfd_name);

+	    }

+	    Xfree(vrotate);

+

+	    if(sub_num > 0) {

+		vrotate = font_set->vrotate = (VRotate)Xmalloc

+						(sizeof(VRotateRec) * sub_num);

+		if(font_set->vrotate == (VRotate)NULL)

+		    return (-1);

+		memset(font_set->vrotate, 0x00, sizeof(VRotateRec) * sub_num);

+

+		for(i = 0 ; i < sub_num ; i++) {

+		    vrotate[i].charset_name = font_set->substitute[i].name;

+		    vrotate[i].side = font_set->substitute[i].side;

+		    vrotate[i].code_range = code_range;

+		    vrotate[i].num_cr = num_cr;

+		}

+		vrotate_num = font_set->vrotate_num = sub_num;

+	    } else {

+		vrotate = font_set->vrotate = (VRotate)NULL;

+	    }

+

+	    ret = parse_fontdata(oc, font_set, (FontData) vrotate, vrotate_num,

+				 name_list, count, C_VROTATE, NULL);

+	    if(ret == -1)

+		return (-1);

+	}

+    }

+

+    return True;

+}

+

+static int

+parse_fontname(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet     font_set;

+    FontDataRec font_data_return;

+    char *base_name, **name_list;

+    int font_set_num = 0;

+    int found_num = 0;

+    int count = 0;

+    int	ret;

+    int i;

+

+    name_list = _XParseBaseFontNameList(oc->core.base_name_list, &count);

+    if (name_list == NULL)

+	return -1;

+

+    font_set = gen->font_set;

+    font_set_num = gen->font_set_num;

+

+   /* Loop through all of the CharSets defined in the Locale

+    * database for the current Locale.

+    */

+    for( ; font_set_num-- > 0 ; font_set++) {

+	if(font_set->font_name)

+	    continue;

+

+	if(font_set->font_data_count > 0) {

+

+           /*

+	    * If there are a non-zero number of FontSets defined

+	    * for this CharSet.

+            * Try to find a font for this CharSet.  If we find an

+	    * acceptable font, we save the information for return

+	    * to the client.  If we do not find an acceptable font,

+	    * a "missing_charset" will be reported to the client

+	    * for this CharSet.

+	    */

+	    font_data_return. xlfd_name = NULL;

+	    font_data_return.side       = XlcUnknown;

+

+	    ret = parse_fontdata(oc, font_set, font_set->font_data,

+				 font_set->font_data_count,

+				 name_list, count, C_PRIMARY,

+				 &font_data_return);

+	    if(ret == -1) {

+		goto err;

+	    } else if(ret == True) {

+		/*

+		 * We can't just loop thru fontset->font_data to

+		 * find the first (ie. best) match: parse_fontdata

+		 * will try a substitute font if no primary one could

+		 * be matched. It returns the required information in

+		 * font_data_return.

+		 */

+		font_set->font_name = strdup(font_data_return.xlfd_name);

+		if(font_set->font_name == (char *) NULL)

+		    goto err;

+

+		font_set->side = font_data_return.side;

+

+                Xfree (font_data_return.xlfd_name);

+                font_data_return.xlfd_name = NULL;

+

+		if(parse_vw(oc, font_set, name_list, count) == -1)

+		    goto err;

+		found_num++;

+	    }

+

+	} else if(font_set->substitute_num > 0) {

+           /*

+	    * If there are no FontSets defined for this

+	    * CharSet.  We can only find "substitute" fonts.

+	    */

+	    ret = parse_fontdata(oc, font_set, font_set->substitute,

+				 font_set->substitute_num,

+				 name_list, count, C_SUBSTITUTE, NULL);

+	    if(ret == -1) {

+		goto err;

+	    } else if(ret == True) {

+		for(i=0;i<font_set->substitute_num;i++){

+		    if(font_set->substitute[i].xlfd_name != NULL){

+			break;

+		    }

+		}

+		font_set->font_name = strdup(font_set->substitute[i].xlfd_name);

+		if(font_set->font_name == (char *) NULL)

+		    goto err;

+

+		font_set->side = font_set->substitute[i].side;

+		if(parse_vw(oc, font_set, name_list, count) == -1)

+		    goto err;

+

+		found_num++;

+	    }

+	}

+    }

+

+    base_name = strdup(oc->core.base_name_list);

+    if (base_name == NULL)

+	goto err;

+

+    oc->core.base_name_list = base_name;

+

+    XFreeStringList(name_list);

+

+    return found_num;

+

+err:

+    XFreeStringList(name_list);

+    /* Prevent this from being freed twice */

+    oc->core.base_name_list = NULL;

+

+    return -1;

+}

+

+/* For VW/UDC end*/

+

+static Bool

+set_missing_list(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set;

+    char **charset_list, *charset_buf;

+    int	count, length, font_set_num;

+    int result = 1;

+

+    font_set = gen->font_set;

+    font_set_num = gen->font_set_num;

+    count = length = 0;

+

+    for ( ; font_set_num-- > 0; font_set++) {

+	if (font_set->info || font_set->font) {

+	    continue;

+	}

+

+	/* Change 1996.01.23 start */

+	if(font_set->font_data_count <= 0 ||

+	   font_set->font_data == (FontData)NULL) {

+	    if(font_set->substitute_num <= 0 ||

+	       font_set->substitute == (FontData)NULL) {

+		if(font_set->charset_list != NULL){

+		 length +=

+		  strlen(font_set->charset_list[0]->encoding_name) + 1;

+		} else {

+		  length += 1;

+		}

+	    } else {

+		length += strlen(font_set->substitute->name) + 1;

+	    }

+	} else {

+	    length += strlen(font_set->font_data->name) + 1;

+	}

+	/* Change 1996.01.23 end */

+	count++;

+    }

+

+    if (count < 1) {

+	return True;

+    }

+

+    charset_list = (char **) Xmalloc(sizeof(char *) * count);

+    if (charset_list == NULL) {

+	return False;

+    }

+

+    charset_buf = (char *) Xmalloc(length);

+    if (charset_buf == NULL) {

+	Xfree(charset_list);

+	return False;

+    }

+

+    oc->core.missing_list.charset_list = charset_list;

+    oc->core.missing_list.charset_count = count;

+

+    font_set = gen->font_set;

+    font_set_num = gen->font_set_num;

+

+    for ( ; font_set_num-- > 0; font_set++) {

+	if (font_set->info || font_set->font) {

+	    continue;

+	}

+

+	/* Change 1996.01.23 start */

+	if(font_set->font_data_count <= 0 ||

+	   font_set->font_data == (FontData)NULL) {

+	    if(font_set->substitute_num <= 0 ||

+	       font_set->substitute == (FontData)NULL) {

+		if(font_set->charset_list != NULL){

+		 strcpy(charset_buf,

+			font_set->charset_list[0]->encoding_name);

+		} else {

+		 strcpy(charset_buf, "");

+		}

+		result = 0;

+	    } else {

+		strcpy(charset_buf, font_set->substitute->name);

+	    }

+	} else {

+	    strcpy(charset_buf, font_set->font_data->name);

+	}

+	/* Change 1996.01.23 end */

+	*charset_list++ = charset_buf;

+	charset_buf += strlen(charset_buf) + 1;

+    }

+

+    if(result == 0) {

+	return(False);

+    }

+

+    return True;

+}

+

+static Bool

+create_fontset(

+    XOC oc)

+{

+    XOMGenericPart *gen = XOM_GENERIC(oc->core.om);

+    int found_num;

+

+    if (init_fontset(oc) == False)

+        return False;

+

+    found_num = parse_fontname(oc);

+    if (found_num <= 0) {

+	if (found_num == 0)

+	    set_missing_list(oc);

+	return False;

+    }

+

+    if (gen->on_demand_loading == True) {

+	if (load_font_info(oc) == False)

+	    return False;

+    } else {

+	if (load_font(oc) == False)

+	    return False;

+    }

+

+    if (init_core_part(oc) == False)

+	return False;

+

+    if (set_missing_list(oc) == False)

+	return False;

+

+    return True;

+}

+

+/* For VW/UDC start */

+static void

+free_fontdataOC(

+    Display	*dpy,

+    FontData	font_data,

+    int		font_data_count)

+{

+    for( ; font_data_count-- ; font_data++) {

+	if(font_data->xlfd_name){

+	    Xfree(font_data->xlfd_name);

+	    font_data->xlfd_name = NULL;

+	}

+	if(font_data->font){				/* ADD 1996.01.7 */

+	    if(font_data->font->fid)			/* Add 1996.01.23 */

+		XFreeFont(dpy,font_data->font);		/* ADD 1996.01.7 */

+	    else					/* Add 1996.01.23 */

+		XFreeFontInfo(NULL, font_data->font, 1);/* Add 1996.01.23 */

+	    font_data->font = NULL;

+	}

+/*

+ * font_data->name and font_data->scopes belong to the OM not OC.

+ * To save space this data is shared between OM and OC. We are

+ * not allowed to free it here.

+ * It has been moved to free_fontdataOM()

+ */

+/*

+	if(font_data->scopes){

+	    Xfree(font_data->scopes);

+	    font_data->scopes = NULL;

+	}

+	if(font_data->name){

+	    Xfree(font_data->name);

+	    font_data->name = NULL;

+	}

+*/

+    }

+}

+

+static void destroy_fontdata(

+    XOCGenericPart *gen,

+    Display *dpy)

+{

+    FontSet	font_set = (FontSet) NULL;

+    int		font_set_num = 0;

+

+    if (gen->font_set) {

+	font_set = gen->font_set;

+	font_set_num = gen->font_set_num;

+	for( ; font_set_num-- ; font_set++) {

+	    if (font_set->font) {

+		if(font_set->font->fid)

+		    XFreeFont(dpy,font_set->font);

+		else

+		    XFreeFontInfo(NULL, font_set->font, 1);

+		font_set->font = NULL;

+	    }

+	    if(font_set->font_data) {

+		if (font_set->info)

+		    XFreeFontInfo(NULL, font_set->info, 1);

+		free_fontdataOC(dpy,

+			font_set->font_data, font_set->font_data_count);

+		Xfree(font_set->font_data);

+		font_set->font_data = NULL;

+	    }

+	    if(font_set->substitute) {

+		free_fontdataOC(dpy,

+			font_set->substitute, font_set->substitute_num);

+		Xfree(font_set->substitute);

+		font_set->substitute = NULL;

+	    }

+	    if(font_set->vmap) {

+		free_fontdataOC(dpy,

+			font_set->vmap, font_set->vmap_num);

+		Xfree(font_set->vmap);

+		font_set->vmap = NULL;

+	    }

+	    if(font_set->vrotate) {

+		free_fontdataOC(dpy,

+			(FontData)font_set->vrotate,

+			      font_set->vrotate_num);

+		Xfree(font_set->vrotate);

+		font_set->vrotate = NULL;

+	    }

+	}

+	Xfree(gen->font_set);

+	gen->font_set = NULL;

+    }

+}

+/* For VW/UDC end */

+

+static void

+destroy_oc(

+    XOC oc)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+

+    if (gen->mbs_to_cs)

+	_XlcCloseConverter(gen->mbs_to_cs);

+

+    if (gen->wcs_to_cs)

+	_XlcCloseConverter(gen->wcs_to_cs);

+

+    if (gen->utf8_to_cs)

+	_XlcCloseConverter(gen->utf8_to_cs);

+

+/* For VW/UDC start */ /* Change 1996.01.8 */

+    destroy_fontdata(gen,dpy);

+/*

+*/

+/* For VW/UDC end */

+

+    if (oc->core.base_name_list)

+	Xfree(oc->core.base_name_list);

+

+    if (oc->core.font_info.font_name_list)

+	XFreeStringList(oc->core.font_info.font_name_list);

+

+    if (oc->core.font_info.font_struct_list) {

+	Xfree(oc->core.font_info.font_struct_list);

+    }

+

+    if (oc->core.missing_list.charset_list)

+	XFreeStringList(oc->core.missing_list.charset_list);

+

+#ifdef notdef

+    if (oc->core.res_name)

+	Xfree(oc->core.res_name);

+    if (oc->core.res_class)

+	Xfree(oc->core.res_class);

+#endif

+

+    Xfree(oc);

+}

+

+static char *

+set_oc_values(

+    XOC oc,

+    XlcArgList args,

+    int num_args)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set = gen->font_set;

+    char *ret;

+    int num = gen->font_set_num;

+

+    if (oc->core.resources == NULL)

+	return NULL;

+

+    ret = _XlcSetValues((XPointer) oc, oc->core.resources,

+			oc->core.num_resources, args, num_args, XlcSetMask);

+    if(ret != NULL){

+	return(ret);

+    } else {

+	for ( ; num-- > 0; font_set++) {

+	    if (font_set->font_name == NULL)

+	        continue;

+	    if (font_set->vpart_initialize != 0)

+	        continue;

+	    if( oc->core.orientation == XOMOrientation_TTB_RTL ||

+		oc->core.orientation == XOMOrientation_TTB_LTR ){

+	    	load_fontdata(oc, font_set->vmap, font_set->vmap_num);

+		load_fontdata(oc, (FontData) font_set->vrotate,

+			    font_set->vrotate_num);

+		font_set->vpart_initialize = 1;

+	    }

+	}

+	return(NULL);

+    }

+}

+

+static char *

+get_oc_values(

+    XOC oc,

+    XlcArgList args,

+    int num_args)

+{

+    if (oc->core.resources == NULL)

+	return NULL;

+

+    return _XlcGetValues((XPointer) oc, oc->core.resources,

+			 oc->core.num_resources, args, num_args, XlcGetMask);

+}

+

+static XOCMethodsRec oc_default_methods = {

+    destroy_oc,

+    set_oc_values,

+    get_oc_values,

+    _XmbDefaultTextEscapement,

+    _XmbDefaultTextExtents,

+    _XmbDefaultTextPerCharExtents,

+    _XmbDefaultDrawString,

+    _XmbDefaultDrawImageString,

+    _XwcDefaultTextEscapement,

+    _XwcDefaultTextExtents,

+    _XwcDefaultTextPerCharExtents,

+    _XwcDefaultDrawString,

+    _XwcDefaultDrawImageString,

+    _Xutf8DefaultTextEscapement,

+    _Xutf8DefaultTextExtents,

+    _Xutf8DefaultTextPerCharExtents,

+    _Xutf8DefaultDrawString,

+    _Xutf8DefaultDrawImageString

+};

+

+static XOCMethodsRec oc_generic_methods = {

+    destroy_oc,

+    set_oc_values,

+    get_oc_values,

+    _XmbGenericTextEscapement,

+    _XmbGenericTextExtents,

+    _XmbGenericTextPerCharExtents,

+    _XmbGenericDrawString,

+    _XmbGenericDrawImageString,

+    _XwcGenericTextEscapement,

+    _XwcGenericTextExtents,

+    _XwcGenericTextPerCharExtents,

+    _XwcGenericDrawString,

+    _XwcGenericDrawImageString,

+    _Xutf8GenericTextEscapement,

+    _Xutf8GenericTextExtents,

+    _Xutf8GenericTextPerCharExtents,

+    _Xutf8GenericDrawString,

+    _Xutf8GenericDrawImageString

+};

+

+typedef struct _XOCMethodsListRec {

+    const char *name;

+    XOCMethods methods;

+} XOCMethodsListRec, *XOCMethodsList;

+

+static XOCMethodsListRec oc_methods_list[] = {

+    { "default", &oc_default_methods },

+    { "generic", &oc_generic_methods }

+};

+

+static XlcResource oc_resources[] = {

+    { XNBaseFontName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.base_name_list), XlcCreateMask | XlcGetMask },

+    { XNOMAutomatic, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOCRec, core.om_automatic), XlcGetMask },

+    { XNMissingCharSet, NULLQUARK, sizeof(XOMCharSetList),

+      XOffsetOf(XOCRec, core.missing_list), XlcGetMask },

+    { XNDefaultString, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.default_string), XlcGetMask },

+    { XNOrientation, NULLQUARK, sizeof(XOrientation),

+      XOffsetOf(XOCRec, core.orientation), XlcDefaultMask | XlcSetMask | XlcGetMask },

+    { XNResourceName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.res_name), XlcSetMask | XlcGetMask },

+    { XNResourceClass, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.res_class), XlcSetMask | XlcGetMask },

+    { XNFontInfo, NULLQUARK, sizeof(XOMFontInfo),

+      XOffsetOf(XOCRec, core.font_info), XlcGetMask }

+};

+

+static XOC

+create_oc(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    XOC oc;

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    XOCMethodsList methods_list = oc_methods_list;

+    int count;

+

+    oc = Xcalloc(1, sizeof(XOCGenericRec));

+    if (oc == NULL)

+	return (XOC) NULL;

+

+    oc->core.om = om;

+

+    if (oc_resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(oc_resources, XlcNumber(oc_resources));

+

+    if (_XlcSetValues((XPointer) oc, oc_resources, XlcNumber(oc_resources),

+		      args, num_args, XlcCreateMask | XlcDefaultMask))

+	goto err;

+

+    if (oc->core.base_name_list == NULL)

+	goto err;

+

+    oc->core.resources = oc_resources;

+    oc->core.num_resources = XlcNumber(oc_resources);

+

+    if (create_fontset(oc) == False)

+	goto err;

+

+    oc->methods = &oc_generic_methods;

+

+    if (gen->object_name) {

+	count = XlcNumber(oc_methods_list);

+

+	for ( ; count-- > 0; methods_list++) {

+	    if (!_XlcCompareISOLatin1(gen->object_name, methods_list->name)) {

+		oc->methods = methods_list->methods;

+		break;

+	    }

+	}

+    }

+

+    return oc;

+

+err:

+    destroy_oc(oc);

+

+    return (XOC) NULL;

+}

+

+static void

+free_fontdataOM(

+    FontData	font_data,

+    int		font_data_count)

+{

+    for( ; font_data_count-- ; font_data++) {

+	if(font_data->name){

+	    Xfree(font_data->name);

+	    font_data->name = NULL;

+	}

+	if(font_data->scopes){

+	    Xfree(font_data->scopes);

+	    font_data->scopes = NULL;

+	}

+    }

+}

+

+static Status

+close_om(

+    XOM om)

+{

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData data;

+    int count;

+

+    if ((data = gen->data)) {

+	for (count = gen->data_num; count-- > 0; data++) {

+	    if (data->charset_list){

+		Xfree(data->charset_list);

+		data->charset_list = NULL;

+	    }

+	    /* free font_data for om */

+	    if (data->font_data) {

+		free_fontdataOM(data->font_data,data->font_data_count);

+		Xfree(data->font_data);

+		data->font_data = NULL;

+	    }

+	    /* free substitute for om */

+	    if (data->substitute) {

+		free_fontdataOM(data->substitute,data->substitute_num);

+		Xfree(data->substitute);

+		data->substitute = NULL;

+	    }

+	    /* free vmap for om */

+	    if (data->vmap) {

+		free_fontdataOM(data->vmap,data->vmap_num);

+		Xfree(data->vmap);

+		data->vmap = NULL;

+	    }

+	    /* free vrotate for om */

+	    if (data->vrotate) {

+		Xfree(data->vrotate);

+		data->vrotate = NULL;

+	    }

+	}

+	Xfree(gen->data);

+	gen->data = NULL;

+    }

+

+    if (gen->object_name){

+	Xfree(gen->object_name);

+	gen->object_name = NULL;

+    }

+

+    if (om->core.res_name){

+	Xfree(om->core.res_name);

+	om->core.res_name = NULL;

+    }

+    if (om->core.res_class){

+	Xfree(om->core.res_class);

+	om->core.res_class = NULL;

+    }

+    if (om->core.required_charset.charset_list &&

+	om->core.required_charset.charset_count > 0){

+	XFreeStringList(om->core.required_charset.charset_list);

+	om->core.required_charset.charset_list = NULL;

+    } else {

+	Xfree((char*)om->core.required_charset.charset_list);

+	om->core.required_charset.charset_list = NULL;

+    }

+    if (om->core.orientation_list.orientation){

+	Xfree(om->core.orientation_list.orientation);

+	om->core.orientation_list.orientation = NULL;

+    }

+

+    Xfree(om);

+

+    return 1;

+}

+

+static char *

+set_om_values(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    if (om->core.resources == NULL)

+	return NULL;

+

+    return _XlcSetValues((XPointer) om, om->core.resources,

+			 om->core.num_resources, args, num_args, XlcSetMask);

+}

+

+static char *

+get_om_values(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    if (om->core.resources == NULL)

+	return NULL;

+

+    return _XlcGetValues((XPointer) om, om->core.resources,

+			 om->core.num_resources, args, num_args, XlcGetMask);

+}

+

+static XOMMethodsRec methods = {

+    close_om,

+    set_om_values,

+    get_om_values,

+    create_oc

+};

+

+static XlcResource om_resources[] = {

+    { XNRequiredCharSet, NULLQUARK, sizeof(XOMCharSetList),

+      XOffsetOf(XOMRec, core.required_charset), XlcGetMask },

+    { XNQueryOrientation, NULLQUARK, sizeof(XOMOrientation),

+      XOffsetOf(XOMRec, core.orientation_list), XlcGetMask },

+    { XNDirectionalDependentDrawing, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOMRec, core.directional_dependent), XlcGetMask },

+    { XNContextualDrawing, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOMRec, core.contextual_drawing), XlcGetMask }

+};

+

+static XOM

+create_om(

+    XLCd lcd,

+    Display *dpy,

+    XrmDatabase rdb,

+    _Xconst char *res_name,

+    _Xconst char *res_class)

+{

+    XOM om;

+

+    om = Xcalloc(1, sizeof(XOMGenericRec));

+    if (om == NULL)

+	return (XOM) NULL;

+

+    om->methods = &methods;

+    om->core.lcd = lcd;

+    om->core.display = dpy;

+    om->core.rdb = rdb;

+    if (res_name) {

+	om->core.res_name = strdup(res_name);

+	if (om->core.res_name == NULL)

+	    goto err;

+    }

+    if (res_class) {

+	om->core.res_class = strdup(res_class);

+	if (om->core.res_class == NULL)

+	    goto err;

+    }

+

+    if (om_resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(om_resources, XlcNumber(om_resources));

+

+    om->core.resources = om_resources;

+    om->core.num_resources = XlcNumber(om_resources);

+

+    return om;

+

+err:

+    close_om(om);

+

+    return (XOM) NULL;

+}

+

+static OMData

+add_data(

+    XOM om)

+{

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData new;

+    int num;

+

+    if ((num = gen->data_num))

+        new = (OMData) Xrealloc(gen->data, (num + 1) * sizeof(OMDataRec));

+    else

+        new = (OMData) Xmalloc(sizeof(OMDataRec));

+

+    if (new == NULL)

+        return NULL;

+

+    gen->data_num = num + 1;

+    gen->data = new;

+

+    new += num;

+    bzero((char *) new, sizeof(OMDataRec));

+

+    return new;

+}

+

+/* For VW/UDC */

+

+FontData

+read_EncodingInfo(

+    int count,

+    char **value)

+{

+    FontData font_data,ret;

+    char *buf, *bufptr,*scp;

+    int len;

+    font_data = Xcalloc(count, sizeof(FontDataRec));

+    if (font_data == NULL)

+        return NULL;

+

+    ret = font_data;

+    for ( ; count-- > 0; font_data++) {

+/*

+        strcpy(buf, *value++);

+*/

+	buf = *value; value++;

+        if ((bufptr = strchr(buf, ':'))) {

+	    len = (int)(bufptr - buf);

+            bufptr++ ;

+	} else

+            len = strlen(buf);

+        font_data->name = (char *) Xmalloc(len + 1);

+        if (font_data->name == NULL) {

+            Xfree(font_data);

+            return NULL;

+	}

+        strncpy(font_data->name, buf,len);

+	font_data->name[len] = 0;

+        if (bufptr && _XlcCompareISOLatin1(bufptr, "GL") == 0)

+            font_data->side = XlcGL;

+        else if (bufptr && _XlcCompareISOLatin1(bufptr, "GR") == 0)

+            font_data->side = XlcGR;

+        else

+            font_data->side = XlcGLGR;

+

+        if (bufptr && (scp = strchr(bufptr, '['))){

+            font_data->scopes = _XlcParse_scopemaps(scp,&(font_data->scopes_num));

+        }

+    }

+    return(ret);

+}

+

+static CodeRange read_vrotate(

+    int count,

+    char **value,

+    int *type,

+    int *vrotate_num)

+{

+    CodeRange   range;

+    if(!strcmp(value[0],"all")){

+	*type 	     = VROTATE_ALL ;

+	*vrotate_num = 0 ;

+	return (NULL);

+    } else if(*(value[0]) == '['){

+	*type 	     = VROTATE_PART ;

+        range = (CodeRange) _XlcParse_scopemaps(value[0],vrotate_num);

+	return (range);

+    } else {

+	*type 	     = VROTATE_NONE ;

+	*vrotate_num = 0 ;

+	return (NULL);

+    }

+}

+

+static void read_vw(

+    XLCd    lcd,

+    OMData  font_set,

+    int     num)

+{

+    char **value, buf[BUFSIZ];

+    int count;

+

+    sprintf(buf, "fs%d.font.vertical_map", num);

+    _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+    if (count > 0){

+        _XlcDbg_printValue(buf,value,count);

+        font_set->vmap_num = count;

+        font_set->vmap = read_EncodingInfo(count,value);

+    }

+

+    sprintf(buf, "fs%d.font.vertical_rotate", num);

+    _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+    if (count > 0){

+        _XlcDbg_printValue(buf,value,count);

+        font_set->vrotate = read_vrotate(count,value,&(font_set->vrotate_type),

+				&(font_set->vrotate_num));

+    }

+}

+/* VW/UDC end */

+static Bool

+init_om(

+    XOM om)

+{

+    XLCd lcd = om->core.lcd;

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData data;

+    XlcCharSet *charset_list;

+    FontData font_data;

+    char **required_list;

+    XOrientation *orientation;

+    char **value, buf[BUFSIZ], *bufptr;

+    int count = 0, num = 0, length = 0;

+

+    _XlcGetResource(lcd, "XLC_FONTSET", "on_demand_loading", &value, &count);

+    if (count > 0 && _XlcCompareISOLatin1(*value, "True") == 0)

+	gen->on_demand_loading = True;

+

+    _XlcGetResource(lcd, "XLC_FONTSET", "object_name", &value, &count);

+    if (count > 0) {

+	gen->object_name = strdup(*value);

+	if (gen->object_name == NULL)

+	    return False;

+    }

+

+    for (num = 0; ; num++) {

+

+        sprintf(buf, "fs%d.charset.name", num);

+        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+

+        if( count < 1){

+            sprintf(buf, "fs%d.charset", num);

+            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+            if (count < 1)

+                break;

+        }

+

+	data = add_data(om);

+	if (data == NULL)

+	    return False;

+

+	charset_list = (XlcCharSet *) Xmalloc(sizeof(XlcCharSet) * count);

+	if (charset_list == NULL)

+	    return False;

+	data->charset_list = charset_list;

+	data->charset_count = count;

+

+	while (count-- > 0){

+	    *charset_list++ = _XlcGetCharSet(*value++);

+        }

+        sprintf(buf, "fs%d.charset.udc_area", num);

+        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+        if( count > 0){

+            UDCArea udc;

+            int i,flag = 0;

+            udc = (UDCArea)Xmalloc(count * sizeof(UDCAreaRec));

+	    if (udc == NULL)

+	        return False;

+            for(i=0;i<count;i++){

+                sscanf(value[i],"\\x%lx,\\x%lx", &(udc[i].start),

+		       &(udc[i].end));

+            }

+            for(i=0;i<data->charset_count;i++){

+		if(data->charset_list[i]->udc_area == NULL){

+		    data->charset_list[i]->udc_area     = udc;

+		    data->charset_list[i]->udc_area_num = count;

+		    flag = 1;

+		}

+            }

+	    if(flag == 0){

+		Xfree(udc);

+	    }

+        }

+

+        sprintf(buf, "fs%d.font.primary", num);

+        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+        if (count < 1){

+            sprintf(buf, "fs%d.font", num);

+            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+            if (count < 1)

+                return False;

+        }

+

+	font_data = read_EncodingInfo(count,value);

+	if (font_data == NULL)

+	    return False;

+

+	data->font_data = font_data;

+	data->font_data_count = count;

+

+        sprintf(buf, "fs%d.font.substitute", num);

+        _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+        if (count > 0){

+            font_data = read_EncodingInfo(count,value);

+            if (font_data == NULL)

+	        return False;

+            data->substitute      = font_data;

+            data->substitute_num = count;

+        } else {

+            sprintf(buf, "fs%d.font", num);

+            _XlcGetResource(lcd, "XLC_FONTSET", buf, &value, &count);

+            if (count < 1) {

+                data->substitute      = NULL;

+                data->substitute_num = 0;

+	    } else {

+                font_data = read_EncodingInfo(count,value);

+                data->substitute      = font_data;

+                data->substitute_num = count;

+	    }

+	}

+        read_vw(lcd,data,num);

+	length += strlen(data->font_data->name) + 1;

+    }

+

+    /* required charset list */

+    required_list = (char **) Xmalloc(sizeof(char *) * gen->data_num);

+    if (required_list == NULL)

+	return False;

+

+    om->core.required_charset.charset_list = required_list;

+    om->core.required_charset.charset_count = gen->data_num;

+

+    count = gen->data_num;

+    data = gen->data;

+

+    if (count > 0) {

+	bufptr = (char *) Xmalloc(length);

+	if (bufptr == NULL) {

+	    Xfree(required_list);

+	    return False;

+	}

+

+	for ( ; count-- > 0; data++) {

+	    strcpy(bufptr, data->font_data->name);

+	    *required_list++ = bufptr;

+	    bufptr += strlen(bufptr) + 1;

+	}

+    }

+

+    /* orientation list */

+    orientation = (XOrientation *) Xmalloc(sizeof(XOrientation) * 2);

+    if (orientation == NULL)

+	return False;

+

+    orientation[0] = XOMOrientation_LTR_TTB;

+    orientation[1] = XOMOrientation_TTB_RTL;

+    om->core.orientation_list.orientation = orientation;

+    om->core.orientation_list.num_orientation = 2;

+

+    /* directional dependent drawing */

+    om->core.directional_dependent = False;

+

+    /* contexual drawing */

+    om->core.contextual_drawing = False;

+

+    /* context dependent */

+    om->core.context_dependent = False;

+

+    return True;

+}

+

+XOM

+_XomGenericOpenOM(XLCd lcd, Display *dpy, XrmDatabase rdb,

+		  _Xconst char *res_name, _Xconst char *res_class)

+{

+    XOM om;

+

+    om = create_om(lcd, dpy, rdb, res_name, res_class);

+    if (om == NULL)

+	return (XOM) NULL;

+

+    if (init_om(om) == False)

+	goto err;

+

+    return om;

+

+err:

+    close_om(om);

+

+    return (XOM) NULL;

+}

+

+Bool

+_XInitOM(

+    XLCd lcd)

+{

+    lcd->methods->open_om = _XomGenericOpenOM;

+

+    return True;

+}

diff --git a/libX11/nls/makefile b/libX11/nls/makefile
new file mode 100644
index 000000000..e6bf47297
--- /dev/null
+++ b/libX11/nls/makefile
@@ -0,0 +1,85 @@
+X11_LOCALEDATADIR = ..\..\xorg-server\locale

+

+x11localedir = $(X11_LOCALEDATADIR)

+x11locale_DATA = locale.alias locale.dir compose.dir

+locales = \

+	am_ET.UTF-8		\

+	armscii-8		\

+	C			\

+	el_GR.UTF-8		\

+	en_US.UTF-8		\

+	fi_FI.UTF-8		\

+	georgian-academy	\

+	georgian-ps		\

+	ibm-cp1133		\

+	iscii-dev		\

+	isiri-3342		\

+	iso8859-1		\

+	iso8859-10		\

+	iso8859-11		\

+	iso8859-13		\

+	iso8859-14		\

+	iso8859-15		\

+	iso8859-2		\

+	iso8859-3		\

+	iso8859-4		\

+	iso8859-5		\

+	iso8859-6		\

+	iso8859-7		\

+	iso8859-8		\

+	iso8859-9		\

+	iso8859-9e		\

+	ja			\

+	ja.JIS			\

+	ja_JP.UTF-8		\

+	ja.S90			\

+	ja.SJIS			\

+	ja.U90			\

+	ko			\

+	koi8-c			\

+	koi8-r			\

+	koi8-u			\

+	ko_KR.UTF-8		\

+	microsoft-cp1251	\

+	microsoft-cp1255	\

+	microsoft-cp1256	\

+	mulelao-1		\

+	nokhchi-1		\

+	pt_BR.UTF-8		\

+	ru_RU.UTF-8		\

+	tatar-cyr		\

+	th_TH			\

+	th_TH.UTF-8		\

+	tscii-0			\

+	vi_VN.tcvn		\

+	vi_VN.viscii		\

+	zh_CN			\

+	zh_CN.gb18030		\

+	zh_CN.gbk		\

+	zh_CN.UTF-8		\

+	zh_HK.big5		\

+	zh_HK.big5hkscs		\

+	zh_HK.UTF-8		\

+	zh_TW			\

+	zh_TW.big5		\

+	zh_TW.UTF-8

+

+include ../cpprules.mak

+

+

+$(X11_LOCALEDATADIR)\%: %.pre

+	cl /nologo /EP $< -DXCOMM\#\# > $<.l1

+	sed -e "/^[^\#][^        ]*:/s/://" -e "/^[^\#].*[        ].*:/d" < $<.l1 > $<.l2

+	type $<.l2 $<.l1 > $@

+	del $<.l1

+	del $<.l2

+

+# Per-locale data files

+

+nobase_dist_x11locale_DATA = $(locales:%=%\XI18N_OBJS)

+

+nobase_x11locale_DATA = $(locales:%=%\XLC_LOCALE) $(locales:%=%\Compose)

+

+all_DATA = $(nobase_dist_x11locale_DATA) $(nobase_x11locale_DATA) $(x11locale_DATA)

+

+all: $(all_DATA:%=$(X11_LOCALEDATADIR)\%)

diff --git a/libX11/specs/XIM/Makefile.am b/libX11/specs/XIM/Makefile.am
index 68b0b3f48..a7da39b6f 100644
--- a/libX11/specs/XIM/Makefile.am
+++ b/libX11/specs/XIM/Makefile.am
@@ -1,23 +1,23 @@
-
-if ENABLE_SPECS
-
-# Main DocBook/XML files (DOCTYPE book)
-docbook = xim.xml
-
-# Included chapters, appendix, images
-chapters =				\
-	dynamicflowsampleseq.svg	\
-	dynamicflow.svg			\
-	eventflow.svg			\
-	sampleprotocolflow1.svg		\
-	sampleprotocolflow2.svg		\
-	staticflowsampleseq.svg		\
-	staticflow.svg
-
-# The location where the DocBook/XML files and their generated formats are installed
-shelfdir = $(docdir)/XIM
-
-# Generate DocBook/XML output formats with or without stylesheets
-include $(top_srcdir)/docbook.am
-
-endif ENABLE_SPECS
+

+if ENABLE_SPECS

+

+# Main DocBook/XML files (DOCTYPE book)

+docbook = xim.xml

+

+# Included chapters, appendix, images

+chapters =				\

+	dynamicflowsampleseq.svg	\

+	dynamicflow.svg			\

+	eventflow.svg			\

+	sampleprotocolflow1.svg		\

+	sampleprotocolflow2.svg		\

+	staticflowsampleseq.svg		\

+	staticflow.svg

+

+# The location where the DocBook/XML files and their generated formats are installed

+shelfdir = $(docdir)/XIM

+

+# Generate DocBook/XML output formats with or without stylesheets

+include $(top_srcdir)/docbook.am

+

+endif ENABLE_SPECS

diff --git a/libX11/specs/i18n/framework/Makefile.am b/libX11/specs/i18n/framework/Makefile.am
index af7ae1d0e..38db989db 100644
--- a/libX11/specs/i18n/framework/Makefile.am
+++ b/libX11/specs/i18n/framework/Makefile.am
@@ -1,16 +1,16 @@
-
-if ENABLE_SPECS
-
-# Main DocBook/XML files (DOCTYPE book)
-docbook = framework.xml
-
-# Included chapters, appendix, images
-chapters = framework.svg
-
-# The location where the DocBook/XML files and their generated formats are installed
-shelfdir = $(docdir)/i18n/framework
-
-# Generate DocBook/XML output formats with or without stylesheets
-include $(top_srcdir)/docbook.am
-
-endif ENABLE_SPECS
+

+if ENABLE_SPECS

+

+# Main DocBook/XML files (DOCTYPE book)

+docbook = framework.xml

+

+# Included chapters, appendix, images

+chapters = framework.svg

+

+# The location where the DocBook/XML files and their generated formats are installed

+shelfdir = $(docdir)/i18n/framework

+

+# Generate DocBook/XML output formats with or without stylesheets

+include $(top_srcdir)/docbook.am

+

+endif ENABLE_SPECS

diff --git a/libX11/specs/i18n/localedb/Makefile.am b/libX11/specs/i18n/localedb/Makefile.am
index 68a917c95..e7ae3523f 100644
--- a/libX11/specs/i18n/localedb/Makefile.am
+++ b/libX11/specs/i18n/localedb/Makefile.am
@@ -1,13 +1,13 @@
-
-if ENABLE_SPECS
-
-# Main DocBook/XML files (DOCTYPE book)
-docbook = localedb.xml
-
-# The location where the DocBook/XML files and their generated formats are installed
-shelfdir = $(docdir)/i18n/localedb
-
-# Generate DocBook/XML output formats with or without stylesheets
-include $(top_srcdir)/docbook.am
-
-endif ENABLE_SPECS
+

+if ENABLE_SPECS

+

+# Main DocBook/XML files (DOCTYPE book)

+docbook = localedb.xml

+

+# The location where the DocBook/XML files and their generated formats are installed

+shelfdir = $(docdir)/i18n/localedb

+

+# Generate DocBook/XML output formats with or without stylesheets

+include $(top_srcdir)/docbook.am

+

+endif ENABLE_SPECS

diff --git a/libX11/specs/i18n/localedb/localedb.xml b/libX11/specs/i18n/localedb/localedb.xml
index c4f6d1377..7b27d9f0c 100644
--- a/libX11/specs/i18n/localedb/localedb.xml
+++ b/libX11/specs/i18n/localedb/localedb.xml
@@ -1,777 +1,777 @@
-<?xml version="1.0" encoding="UTF-8" ?>
-<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"
-                   "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">
-
-<book id="localedb">
-
-<bookinfo>
-   <title>X Locale Database Specification</title>
-   <authorgroup>
-      <author>
-         <firstname>Yoshio</firstname><surname>Horiuchi</surname>
-         <affiliation><orgname>IBM Japan</orgname></affiliation>
-      </author>
-   </authorgroup>
-   <copyright><year>1994</year><holder>IBM Corporation</holder></copyright>
-   <copyright><year>1994</year><holder>X Consortium</holder></copyright>
-
-
-<legalnotice>
-
-<para>
-License to use, copy, modify, and distribute this software and its documentation for
-any purpose and without fee is hereby granted, provided that the above copyright notice
-appear in all copies and that both that copyright notice and this permission notice
-appear in supporting documentation, and that the name of IBM not be used in advertising
-or publicity pertaining to distribution of the software without specific, written
-prior permission.
-</para>
-<para>
-IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED
-WARRANTIES OF MERCHANTABILITY, FITNESS, AND NONINFRINGEMENT OF THIRD PARTY RIGHTS,
-IN NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES
-OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
-AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
-WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-</para>
-
-<para>
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files
-(the &ldquo;Software&rdquo;), to deal in the Software without restriction,
-including without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to permit
-persons to whom the Software is furnished to do so, subject to the following
-conditions:
-</para>
-
-<para>
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
-</para>
-
-<para>
-THE SOFTWARE IS PROVIDED &ldquo;AS IS&rdquo;, WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN
-NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-THE SOFTWARE.
-</para>
-
-<para>
-Except as contained in this notice, the name of The Open Group shall not
-be used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from X Consortium.
-</para>
-
-<para>X Window System is a trademark of The Open Group.</para>
-
-</legalnotice>
-</bookinfo>
-
-<chapter id="localeDatabase">
-<title>LocaleDB</title>
-
-<sect1 id="General">
-<title>General</title>
-<para>
-An X Locale Database contains the subset of a user's environment that
-depends on language, in X Window System.  It is made up from one or more
-categories.  Each category consists of some classes and sub-classes.
-</para>
-
-<para>
-It is provided as a plain ASCII text file, so a user can change its
-contents easily.  It allows a user to customize the behavior of
-internationalized portion of Xlib without changing Xlib itself.
-</para>
-
-<para>
-This document describes;
-</para>
-
-<itemizedlist>
-  <listitem>
-    <para>
-Database Format Definition
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Contents of Database in sample implementation
-<!-- .RE -->
-    </para>
-  </listitem>
-</itemizedlist>
-
-<para>
-Since it is hard to define the set of required information for all
-platforms, only the flexible database format is defined.
-The available entries in database are implementation dependent.
-</para>
-
-</sect1>
-<sect1 id="Database_Format_Definition">
-<title>Database Format Definition</title>
-<para>
-The X Locale Database contains one or more category definitions.
-This section describes the format of each category definition.
-</para>
-
-<para>
-The category definition consists of one or more class definitions.
-Each class definition has a pair of class name and class value, or
-has several subclasses which are enclosed by the left brace ({) and
-the right brace (}).
-</para>
-
-<para>
-Comments can be placed by using the number sign character (#).
-Putting the number sign character on the top of the line indicates
-that the entire line is comment.  Also, putting any whitespace character
-followed by the number sign character indicates that a part of the line
-(from the number sign to the end of the line) is comment.
-A line can be continued by placing backslash (\) character as the
-last character on the line;  this continuation character will be
-discarded from the input.  Comment lines cannot be continued on
-a subsequent line using an escaped new line character.
-</para>
-
-<para>
-X Locale Database only accepts XPCS, the X Portable Character Set.
-The reserved symbols are;  the quotation mark("), the number sign (#),
-the semicolon(;), the backslash(\), the left brace({) and
-the right brace(}).
-</para>
-
-<para>
-The format of category definition is;
-</para>
-
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <colspec colname='c1' colwidth="3*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <colspec colname='c3' colwidth="6*" colsep="0"/>
-  <tbody>
-    <row rowsep="0">
-      <entry>CategoryDefinition</entry>
-      <entry>::=</entry>
-      <entry>CategoryHeader CategorySpec CategoryTrailer</entry>
-    </row>
-    <row rowsep="0">
-      <entry>CategoryHeader</entry>
-      <entry>::=</entry>
-      <entry>CategoryName NL</entry>
-    </row>
-    <row rowsep="0">
-      <entry>CategorySpec</entry>
-      <entry>::=</entry>
-      <entry>{ ClassSpec }</entry>
-    </row>
-    <row rowsep="0">
-      <entry>CategoryTrailer</entry>
-      <entry>::=</entry>
-      <entry>"END" Delimiter CategoryName NL</entry>
-    </row>
-    <row rowsep="0">
-      <entry>CategoryName</entry>
-      <entry>::=</entry>
-      <entry>String</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ClassSpec</entry>
-      <entry>::=</entry>
-      <entry>ClassName Delimiter ClassValue NL</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ClassName</entry>
-      <entry>::=</entry>
-      <entry>String</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ClassValue</entry>
-      <entry>::=</entry>
-      <entry>ValueList | "{" NL { ClassSpec } "}"</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ValueList</entry>
-      <entry>::=</entry>
-      <entry>Value | Value ";" ValueList</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Value</entry>
-      <entry>::=</entry>
-      <entry>ValuePiece | ValuePiece Value</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ValuePiece</entry>
-      <entry>::=</entry>
-      <entry>String | QuotedString | NumericString</entry>
-    </row>
-    <row rowsep="0">
-      <entry>String</entry>
-      <entry>::=</entry>
-      <entry>Char { Char }</entry>
-    </row>
-    <row rowsep="0">
-      <entry>QuotedString</entry>
-      <entry>::=</entry>
-      <entry>""" QuotedChar { QuotedChar } """</entry>
-    </row>
-    <row rowsep="0">
-      <entry>NumericString</entry>
-      <entry>::=</entry>
-      <entry>"\\o" OctDigit { OctDigit }</entry>
-    </row>
-    <row rowsep="0">
-      <entry></entry>
-      <entry>|</entry>
-      <entry>"\\d" DecDigit { DecDigit }</entry>
-    </row>
-    <row rowsep="0">
-      <entry></entry>
-      <entry>|</entry>
-      <entry>"\\x" HexDigit { HexDigit }</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Char</entry>
-      <entry>::=</entry>
-      <entry>&lt;XPCS except NL, Space or unescaped reserved symbols&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>QuotedChar</entry>
-      <entry>::=</entry>
-      <entry>&lt;XPCS except unescaped """&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>OctDigit</entry>
-      <entry>::=</entry>
-      <entry>&lt;character in the range of "0" - "7"&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>DecDigit</entry>
-      <entry>::=</entry>
-      <entry>&lt;character in the range of "0" - "9"&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>HexDigit</entry>
-      <entry>::=</entry>
-      <entry>&lt;character in the range of "0" - "9", "a" - "f", "A" - "F"&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Delimiter</entry>
-      <entry>::=</entry>
-      <entry>Space { Space }</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Space</entry>
-      <entry>::=</entry>
-      <entry>&lt;space&gt; | &lt;horizontal tab&gt;</entry>
-    </row>
-    <row rowsep="0">
-      <entry>NL</entry>
-      <entry>::=</entry>
-      <entry>&lt;newline&gt;</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-<para>
-Elements separated by vertical bar (|) are alternatives.  Curly
-braces ({...}) indicate zero or more repetitions of the enclosed
-elements.  Square brackets ([...]) indicate that the enclosed element
-is optional. Quotes ("...") are used around literal characters.
-</para>
-
-<para>
-The backslash, which is not the top character of the NumericString, is
-recognized as an escape character, so that the next one character is
-treated as a literal character.  For example, the two-character
-sequence, ""\"""(the backslash followed by the quotation mark) is
-recognized and replaced with a quotation mark character.
-Any whitespace character, that is not the Delimiter, unquoted and
-unescaped, is ignored.
-</para>
-
-</sect1>
-<sect1 id="Contents_of_Database_">
-<title>Contents of Database </title>
-<para>
-The available categories and classes depend on implementation, because
-different platform will require different information set.
-For example, some platform have system locale but some platform don't.
-Furthermore, there might be a difference in functionality even if the
-platform has system locale.
-</para>
-
-<para>
-In current sample implementation, categories listed below are available.
-</para>
-
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <colspec colname='c1' colwidth="2*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <tbody>
-    <row rowsep="0">
-      <entry>XLC_FONTSET:XFontSet relative information</entry>
-    </row>
-    <row rowsep="0">
-      <entry>XLC_XLOCALE:Character classification and conversion information</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-</sect1>
-<sect1 id="XLC_FONTSET_Category">
-<title>XLC_FONTSET Category</title>
-<para>
-The XLC_FONTSET category defines the XFontSet relative information.
-It contains the CHARSET_REGISTRY-CHARSET_ENCODING name and character
-mapping side (GL, GR, etc), and is used in Output Method (OM).
-</para>
-
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <thead>
-  <colspec colname='c1' colwidth="3*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <colspec colname='c3' colwidth="3*" colsep="0"/>
-    <row>
-      <entry>class</entry>
-      <entry>super class</entry>
-      <entry>description</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>fsN</entry>
-      <entry></entry>
-      <entry>Nth fontset (N=0,1,2, ...)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>charset</entry>
-      <entry>fsN</entry>
-      <entry>list of encoding name</entry>
-    </row>
-    <row rowsep="0">
-      <entry>font</entry>
-      <entry>fsN</entry>
-      <entry>list of font encoding name</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-<variablelist>
-  <varlistentry>
-    <term>fsN</term>
-    <listitem>
-      <para>
-Includes an encoding information for Nth charset, where N is
-the index number (0,1,2,...).  If there are 4 charsets available
-in current locale, 4 fontsets, fs0, fs1, fs2 and fs3, should be
-defined.
-This class has two subclasses, 'charset' and 'font'.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>charset</term>
-    <listitem>
-      <para>
-Specifies an encoding information to be used internally in Xlib
-for this fontset.  The format of value is;
-      </para>
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <colspec colname='c1' colwidth="3*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <colspec colname='c3' colwidth="4*" colsep="0"/>
-  <tbody>
-    <row rowsep="0">
-      <entry>EncodingInfo</entry>
-      <entry>::=</entry>
-      <entry>EncodingName [ ":" EncodingSide ]</entry>
-    </row>
-    <row rowsep="0">
-      <entry>EncodingName</entry>
-      <entry>::=</entry>
-      <entry>CHARSET_REGISTRY-CHARSET_ENCODING</entry>
-    </row>
-    <row rowsep="0">
-      <entry>EncodingSide</entry>
-      <entry>::=</entry>
-      <entry>"GL" | "GR"</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-<para>
-For detail definition of CHARSET_REGISTRY-CHARSET_ENCODING, refer
-"X Logical Font Descriptions" document.
-</para>
-<literallayout>
-example:
-     ISO8859-1:GL
-</literallayout>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>font</term>
-    <listitem>
-      <para>
-Specifies a list of encoding information which is used for searching
-appropriate font for this fontset.  The left most entry has highest
-priority.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect1>
-<sect1 id="XLC_XLOCALE_Category">
-<title>XLC_XLOCALE Category</title>
-<para>
-The XLC_XLOCALE category defines character classification, conversion
-and other character attributes.
-</para>
-
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <colspec colname='c1' colwidth="3*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <colspec colname='c3' colwidth="3*" colsep="0"/>
-  <thead>
-    <row>
-      <entry>class</entry>
-      <entry>super class</entry>
-      <entry>description</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>encoding_name</entry>
-      <entry></entry>
-      <entry>codeset name</entry>
-    </row>
-    <row rowsep="0">
-      <entry>mb_cur_max</entry>
-      <entry></entry>
-      <entry>MB_CUR_MAX</entry>
-    </row>
-    <row rowsep="0">
-      <entry>state_depend_encoding</entry>
-      <entry></entry>
-      <entry>state dependent or not</entry>
-    </row>
-    <row rowsep="0">
-      <entry>wc_encoding_mask</entry>
-      <entry></entry>
-      <entry>for parsing wc string</entry>
-    </row>
-    <row rowsep="0">
-      <entry>wc_shift_bits</entry>
-      <entry></entry>
-      <entry>for conversion between wc and mb</entry>
-    </row>
-    <row rowsep="0">
-      <entry>csN</entry>
-      <entry></entry>
-      <entry>Nth charset (N=0,1,2,...)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>side</entry>
-      <entry>csN</entry>
-      <entry>mapping side (GL, etc)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>length</entry>
-      <entry>csN</entry>
-      <entry>length of a character</entry>
-    </row>
-    <row rowsep="0">
-      <entry>mb_encoding</entry>
-      <entry>csN</entry>
-      <entry>for parsing mb string</entry>
-    </row>
-    <row rowsep="0">
-      <entry>wc_encoding</entry>
-      <entry>csN</entry>
-      <entry>for parsing wc string</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ct_encoding</entry>
-      <entry>csN</entry>
-      <entry>list of encoding name for ct</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-<variablelist>
-  <varlistentry>
-    <term>encoding_name</term>
-    <listitem>
-      <para>
-Specifies a codeset name of current locale.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>mb_cur_max</term>
-    <listitem>
-      <para>
-Specifies a maximum allowable number of bytes in a multi-byte character.
-It is corresponding to MB_CUR_MAX of "ISO/IEC 9899:1990 C Language Standard".
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>state_depend_encoding</term>
-    <listitem>
-      <para>
-Indicates a current locale is state dependent. The value should be
-specified "True" or "False".
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>wc_encoding_mask</term>
-    <listitem>
-      <para>
-Specifies a bit-mask for parsing wide-char string.  Each wide character is
-applied bit-and operation with this bit-mask, then is classified into
-the unique charset, by using 'wc_encoding'.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>wc_shift_bits</term>
-    <listitem>
-      <para>
-Specifies a number of bit to be shifted for converting from a multi-byte
-character to a wide character, and vice-versa.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>csN</term>
-    <listitem>
-      <para>
-<!-- .br -->
-Includes a character set information for Nth charset, where N is the
-index number (0,1,2,...).  If there are 4 charsets available in current
-locale, cs0, cs1, cs2 and cs3 should be defined. This class has five
-subclasses, 'side', 'length', 'mb_encoding' 'wc_encoding' and 'ct_encoding'.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>side</term>
-    <listitem>
-      <para>
-Specifies a mapping side of this charset. The format of this value is;
-      </para>
-      <literallayout>
-   Side    ::=  EncodingSide[":Default"]
-      </literallayout>
-      <para>
-The suffix ":Default" can be specified.  It indicates that a character
-belongs to the specified side is mapped to this charset in initial state.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>length</term>
-    <listitem>
-      <para>
-<!-- .br -->
-Specifies a number of bytes of a multi-byte character of this charset.
-It should not contain the length of any single-shift sequence.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>mb_encoding</term>
-    <listitem>
-      <para>
-Specifies a list of shift sequence for parsing multi-byte string.
-The format of this value is;
-      </para>
-<informaltable frame="none">
-  <tgroup cols='3' align='left'>
-  <colspec colname='c1' colwidth="3*" colsep="0"/>
-  <colspec colname='c2' colwidth="1*" colsep="0"/>
-  <colspec colname='c3' colwidth="5*" colsep="0"/>
-  <tbody>
-    <row rowsep="0">
-      <entry>MBEncoding</entry>
-      <entry>::=</entry>
-      <entry>ShiftType ShiftSequence</entry>
-    </row>
-    <row rowsep="0">
-      <entry></entry>
-      <entry>|</entry>
-      <entry>ShiftType ShiftSequence ";" MBEncoding</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ShiftType</entry>
-      <entry>::=</entry>
-      <entry>"&lt;SS&gt;"|"&lt;LSL&gt;"|"&lt;LSR&gt;"</entry>
-    </row>
-    <row rowsep="0">
-      <entry>ShiftSequence</entry>
-      <entry>::=</entry>
-      <entry>SequenceValue|SequenceValue ShiftSequence</entry>
-    </row>
-    <row rowsep="0">
-      <entry>SequenceValue</entry>
-      <entry>::=</entry>
-      <entry>NumericString</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-      <literallayout>
-example:
-     &lt;LSL&gt; \x1b \x28 \x4a; &lt;LSL&gt; \x1b \x28 \x42
-      </literallayout>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>wc_encoding</term>
-    <listitem>
-      <para>
-Specifies an integer value for parsing wide-char string.
-It is used to determine the charset for each wide character, after
-applying bit-and operation using 'wc_encoding_mask'.
-This value should be unique in all csN classes.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>ct_encoding</term>
-    <listitem>
-      <para>
-Specifies a list of encoding information that can be used for Compound
-Text.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-</sect1>
-
-<sect1 id="Sample_of_X_Locale_Database">
-<title>Sample of X Locale Database</title>
-<para>
-The following is sample X Locale Database file.
-</para>
-
-<literallayout class="monospaced">
-#  XLocale Database Sample for ja_JP.euc
-#
-
-#
-#      XLC_FONTSET category
-#
-XLC_FONTSET
-#      fs0 class (7 bit ASCII)
-fs0     {
-        charset              ISO8859-1:GL
-        font                 ISO8859-1:GL; JISX0201.1976-0:GL
-}
-#      fs1 class (Kanji)
-fs1     {
-        charset              JISX0208.1983-0:GL
-        font                 JISX0208.1983-0:GL
-}
-#      fs2 class (Half Kana)
-fs2     {
-        charset              JISX0201.1976-0:GR
-        font                 JISX0201.1976-0:GR
-}
-#      fs3 class (User Defined Character)
-# fs3     {
-#        charset             JISX0212.1990-0:GL
-#        font                JISX0212.1990-0:GL
-# }
-END XLC_FONTSET
-
-#
-#      XLC_XLOCALE category
-#
-XLC_XLOCALE
-
-encoding_name             ja.euc
-mb_cur_max                3
-state_depend_encoding     False
-
-wc_encoding_mask          \x00008080
-wc_shift_bits             8
-
-#      cs0 class
-cs0     {
-        side                 GL:Default
-        length               1
-        wc_encoding          \x00000000
-        ct_encoding          ISO8859-1:GL; JISX0201.1976-0:GL
-}
-#      cs1 class
-cs1     {
-        side                 GR:Default
-        length               2
-
-        wc_encoding          \x00008080
-
-        ct_encoding          JISX0208.1983-0:GL; JISX0208.1983-0:GR;\
-                             JISX0208.1983-1:GL; JISX0208.1983-1:GR
-}
-
-#      cs2 class
-cs2     {
-        side                 GR
-        length               1
-        mb_encoding          &lt;SS&gt; \x8e
-
-        wc_encoding          \x00000080
-
-        ct_encoding          JISX0201.1976-0:GR
-}
-
-#      cs3 class
-# cs3     {
-#         side               GL
-#         length             2
-#         mb_encoding        &lt;SS&gt; \x8f
-# #if HasWChar32
-#         wc_encoding        \x20000000
-# #else
-#         wc_encoding        \x00008000
-# #endif
-#         ct_encoding        JISX0212.1990-0:GL; JISX0212.1990-0:GR
-# }
-
-END XLC_XLOCALE
-</literallayout>
-</sect1>
-
-<sect1 id="Reference">
-<title>Reference</title>
-<para>
-[1] <emphasis remap='I'>ISO/IEC 9899:1990 C Language Standard</emphasis>
-</para>
-<para>
-[2] <emphasis remap='I'>X Logical Font Descriptions</emphasis>
-</para>
-
-</sect1>
-</chapter>
-</book>
+<?xml version="1.0" encoding="UTF-8" ?>

+<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"

+                   "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">

+

+<book id="localedb">

+

+<bookinfo>

+   <title>X Locale Database Specification</title>

+   <authorgroup>

+      <author>

+         <firstname>Yoshio</firstname><surname>Horiuchi</surname>

+         <affiliation><orgname>IBM Japan</orgname></affiliation>

+      </author>

+   </authorgroup>

+   <copyright><year>1994</year><holder>IBM Corporation</holder></copyright>

+   <copyright><year>1994</year><holder>X Consortium</holder></copyright>

+

+

+<legalnotice>

+

+<para>

+License to use, copy, modify, and distribute this software and its documentation for

+any purpose and without fee is hereby granted, provided that the above copyright notice

+appear in all copies and that both that copyright notice and this permission notice

+appear in supporting documentation, and that the name of IBM not be used in advertising

+or publicity pertaining to distribution of the software without specific, written

+prior permission.

+</para>

+<para>

+IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED

+WARRANTIES OF MERCHANTABILITY, FITNESS, AND NONINFRINGEMENT OF THIRD PARTY RIGHTS,

+IN NO EVENT SHALL IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES

+OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN

+AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION

+WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

+</para>

+

+<para>

+Permission is hereby granted, free of charge, to any person obtaining a copy

+of this software and associated documentation files

+(the &ldquo;Software&rdquo;), to deal in the Software without restriction,

+including without limitation the rights to use, copy, modify, merge, publish,

+distribute, sublicense, and/or sell copies of the Software, and to permit

+persons to whom the Software is furnished to do so, subject to the following

+conditions:

+</para>

+

+<para>

+The above copyright notice and this permission notice shall be included in all

+copies or substantial portions of the Software.

+</para>

+

+<para>

+THE SOFTWARE IS PROVIDED &ldquo;AS IS&rdquo;, WITHOUT WARRANTY OF ANY KIND,

+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN

+NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

+THE SOFTWARE.

+</para>

+

+<para>

+Except as contained in this notice, the name of The Open Group shall not

+be used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from X Consortium.

+</para>

+

+<para>X Window System is a trademark of The Open Group.</para>

+

+</legalnotice>

+</bookinfo>

+

+<chapter id="localeDatabase">

+<title>LocaleDB</title>

+

+<sect1 id="General">

+<title>General</title>

+<para>

+An X Locale Database contains the subset of a user's environment that

+depends on language, in X Window System.  It is made up from one or more

+categories.  Each category consists of some classes and sub-classes.

+</para>

+

+<para>

+It is provided as a plain ASCII text file, so a user can change its

+contents easily.  It allows a user to customize the behavior of

+internationalized portion of Xlib without changing Xlib itself.

+</para>

+

+<para>

+This document describes;

+</para>

+

+<itemizedlist>

+  <listitem>

+    <para>

+Database Format Definition

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Contents of Database in sample implementation

+<!-- .RE -->

+    </para>

+  </listitem>

+</itemizedlist>

+

+<para>

+Since it is hard to define the set of required information for all

+platforms, only the flexible database format is defined.

+The available entries in database are implementation dependent.

+</para>

+

+</sect1>

+<sect1 id="Database_Format_Definition">

+<title>Database Format Definition</title>

+<para>

+The X Locale Database contains one or more category definitions.

+This section describes the format of each category definition.

+</para>

+

+<para>

+The category definition consists of one or more class definitions.

+Each class definition has a pair of class name and class value, or

+has several subclasses which are enclosed by the left brace ({) and

+the right brace (}).

+</para>

+

+<para>

+Comments can be placed by using the number sign character (#).

+Putting the number sign character on the top of the line indicates

+that the entire line is comment.  Also, putting any whitespace character

+followed by the number sign character indicates that a part of the line

+(from the number sign to the end of the line) is comment.

+A line can be continued by placing backslash (\) character as the

+last character on the line;  this continuation character will be

+discarded from the input.  Comment lines cannot be continued on

+a subsequent line using an escaped new line character.

+</para>

+

+<para>

+X Locale Database only accepts XPCS, the X Portable Character Set.

+The reserved symbols are;  the quotation mark("), the number sign (#),

+the semicolon(;), the backslash(\), the left brace({) and

+the right brace(}).

+</para>

+

+<para>

+The format of category definition is;

+</para>

+

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <colspec colname='c1' colwidth="3*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <colspec colname='c3' colwidth="6*" colsep="0"/>

+  <tbody>

+    <row rowsep="0">

+      <entry>CategoryDefinition</entry>

+      <entry>::=</entry>

+      <entry>CategoryHeader CategorySpec CategoryTrailer</entry>

+    </row>

+    <row rowsep="0">

+      <entry>CategoryHeader</entry>

+      <entry>::=</entry>

+      <entry>CategoryName NL</entry>

+    </row>

+    <row rowsep="0">

+      <entry>CategorySpec</entry>

+      <entry>::=</entry>

+      <entry>{ ClassSpec }</entry>

+    </row>

+    <row rowsep="0">

+      <entry>CategoryTrailer</entry>

+      <entry>::=</entry>

+      <entry>"END" Delimiter CategoryName NL</entry>

+    </row>

+    <row rowsep="0">

+      <entry>CategoryName</entry>

+      <entry>::=</entry>

+      <entry>String</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ClassSpec</entry>

+      <entry>::=</entry>

+      <entry>ClassName Delimiter ClassValue NL</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ClassName</entry>

+      <entry>::=</entry>

+      <entry>String</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ClassValue</entry>

+      <entry>::=</entry>

+      <entry>ValueList | "{" NL { ClassSpec } "}"</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ValueList</entry>

+      <entry>::=</entry>

+      <entry>Value | Value ";" ValueList</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Value</entry>

+      <entry>::=</entry>

+      <entry>ValuePiece | ValuePiece Value</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ValuePiece</entry>

+      <entry>::=</entry>

+      <entry>String | QuotedString | NumericString</entry>

+    </row>

+    <row rowsep="0">

+      <entry>String</entry>

+      <entry>::=</entry>

+      <entry>Char { Char }</entry>

+    </row>

+    <row rowsep="0">

+      <entry>QuotedString</entry>

+      <entry>::=</entry>

+      <entry>""" QuotedChar { QuotedChar } """</entry>

+    </row>

+    <row rowsep="0">

+      <entry>NumericString</entry>

+      <entry>::=</entry>

+      <entry>"\\o" OctDigit { OctDigit }</entry>

+    </row>

+    <row rowsep="0">

+      <entry></entry>

+      <entry>|</entry>

+      <entry>"\\d" DecDigit { DecDigit }</entry>

+    </row>

+    <row rowsep="0">

+      <entry></entry>

+      <entry>|</entry>

+      <entry>"\\x" HexDigit { HexDigit }</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Char</entry>

+      <entry>::=</entry>

+      <entry>&lt;XPCS except NL, Space or unescaped reserved symbols&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>QuotedChar</entry>

+      <entry>::=</entry>

+      <entry>&lt;XPCS except unescaped """&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>OctDigit</entry>

+      <entry>::=</entry>

+      <entry>&lt;character in the range of "0" - "7"&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>DecDigit</entry>

+      <entry>::=</entry>

+      <entry>&lt;character in the range of "0" - "9"&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>HexDigit</entry>

+      <entry>::=</entry>

+      <entry>&lt;character in the range of "0" - "9", "a" - "f", "A" - "F"&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Delimiter</entry>

+      <entry>::=</entry>

+      <entry>Space { Space }</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Space</entry>

+      <entry>::=</entry>

+      <entry>&lt;space&gt; | &lt;horizontal tab&gt;</entry>

+    </row>

+    <row rowsep="0">

+      <entry>NL</entry>

+      <entry>::=</entry>

+      <entry>&lt;newline&gt;</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+<para>

+Elements separated by vertical bar (|) are alternatives.  Curly

+braces ({...}) indicate zero or more repetitions of the enclosed

+elements.  Square brackets ([...]) indicate that the enclosed element

+is optional. Quotes ("...") are used around literal characters.

+</para>

+

+<para>

+The backslash, which is not the top character of the NumericString, is

+recognized as an escape character, so that the next one character is

+treated as a literal character.  For example, the two-character

+sequence, ""\"""(the backslash followed by the quotation mark) is

+recognized and replaced with a quotation mark character.

+Any whitespace character, that is not the Delimiter, unquoted and

+unescaped, is ignored.

+</para>

+

+</sect1>

+<sect1 id="Contents_of_Database_">

+<title>Contents of Database </title>

+<para>

+The available categories and classes depend on implementation, because

+different platform will require different information set.

+For example, some platform have system locale but some platform don't.

+Furthermore, there might be a difference in functionality even if the

+platform has system locale.

+</para>

+

+<para>

+In current sample implementation, categories listed below are available.

+</para>

+

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <colspec colname='c1' colwidth="2*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <tbody>

+    <row rowsep="0">

+      <entry>XLC_FONTSET:XFontSet relative information</entry>

+    </row>

+    <row rowsep="0">

+      <entry>XLC_XLOCALE:Character classification and conversion information</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+</sect1>

+<sect1 id="XLC_FONTSET_Category">

+<title>XLC_FONTSET Category</title>

+<para>

+The XLC_FONTSET category defines the XFontSet relative information.

+It contains the CHARSET_REGISTRY-CHARSET_ENCODING name and character

+mapping side (GL, GR, etc), and is used in Output Method (OM).

+</para>

+

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <thead>

+  <colspec colname='c1' colwidth="3*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <colspec colname='c3' colwidth="3*" colsep="0"/>

+    <row>

+      <entry>class</entry>

+      <entry>super class</entry>

+      <entry>description</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>fsN</entry>

+      <entry></entry>

+      <entry>Nth fontset (N=0,1,2, ...)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>charset</entry>

+      <entry>fsN</entry>

+      <entry>list of encoding name</entry>

+    </row>

+    <row rowsep="0">

+      <entry>font</entry>

+      <entry>fsN</entry>

+      <entry>list of font encoding name</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+<variablelist>

+  <varlistentry>

+    <term>fsN</term>

+    <listitem>

+      <para>

+Includes an encoding information for Nth charset, where N is

+the index number (0,1,2,...).  If there are 4 charsets available

+in current locale, 4 fontsets, fs0, fs1, fs2 and fs3, should be

+defined.

+This class has two subclasses, 'charset' and 'font'.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>charset</term>

+    <listitem>

+      <para>

+Specifies an encoding information to be used internally in Xlib

+for this fontset.  The format of value is;

+      </para>

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <colspec colname='c1' colwidth="3*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <colspec colname='c3' colwidth="4*" colsep="0"/>

+  <tbody>

+    <row rowsep="0">

+      <entry>EncodingInfo</entry>

+      <entry>::=</entry>

+      <entry>EncodingName [ ":" EncodingSide ]</entry>

+    </row>

+    <row rowsep="0">

+      <entry>EncodingName</entry>

+      <entry>::=</entry>

+      <entry>CHARSET_REGISTRY-CHARSET_ENCODING</entry>

+    </row>

+    <row rowsep="0">

+      <entry>EncodingSide</entry>

+      <entry>::=</entry>

+      <entry>"GL" | "GR"</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+<para>

+For detail definition of CHARSET_REGISTRY-CHARSET_ENCODING, refer

+"X Logical Font Descriptions" document.

+</para>

+<literallayout>

+example:

+     ISO8859-1:GL

+</literallayout>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>font</term>

+    <listitem>

+      <para>

+Specifies a list of encoding information which is used for searching

+appropriate font for this fontset.  The left most entry has highest

+priority.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect1>

+<sect1 id="XLC_XLOCALE_Category">

+<title>XLC_XLOCALE Category</title>

+<para>

+The XLC_XLOCALE category defines character classification, conversion

+and other character attributes.

+</para>

+

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <colspec colname='c1' colwidth="3*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <colspec colname='c3' colwidth="3*" colsep="0"/>

+  <thead>

+    <row>

+      <entry>class</entry>

+      <entry>super class</entry>

+      <entry>description</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>encoding_name</entry>

+      <entry></entry>

+      <entry>codeset name</entry>

+    </row>

+    <row rowsep="0">

+      <entry>mb_cur_max</entry>

+      <entry></entry>

+      <entry>MB_CUR_MAX</entry>

+    </row>

+    <row rowsep="0">

+      <entry>state_depend_encoding</entry>

+      <entry></entry>

+      <entry>state dependent or not</entry>

+    </row>

+    <row rowsep="0">

+      <entry>wc_encoding_mask</entry>

+      <entry></entry>

+      <entry>for parsing wc string</entry>

+    </row>

+    <row rowsep="0">

+      <entry>wc_shift_bits</entry>

+      <entry></entry>

+      <entry>for conversion between wc and mb</entry>

+    </row>

+    <row rowsep="0">

+      <entry>csN</entry>

+      <entry></entry>

+      <entry>Nth charset (N=0,1,2,...)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>side</entry>

+      <entry>csN</entry>

+      <entry>mapping side (GL, etc)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>length</entry>

+      <entry>csN</entry>

+      <entry>length of a character</entry>

+    </row>

+    <row rowsep="0">

+      <entry>mb_encoding</entry>

+      <entry>csN</entry>

+      <entry>for parsing mb string</entry>

+    </row>

+    <row rowsep="0">

+      <entry>wc_encoding</entry>

+      <entry>csN</entry>

+      <entry>for parsing wc string</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ct_encoding</entry>

+      <entry>csN</entry>

+      <entry>list of encoding name for ct</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+<variablelist>

+  <varlistentry>

+    <term>encoding_name</term>

+    <listitem>

+      <para>

+Specifies a codeset name of current locale.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>mb_cur_max</term>

+    <listitem>

+      <para>

+Specifies a maximum allowable number of bytes in a multi-byte character.

+It is corresponding to MB_CUR_MAX of "ISO/IEC 9899:1990 C Language Standard".

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>state_depend_encoding</term>

+    <listitem>

+      <para>

+Indicates a current locale is state dependent. The value should be

+specified "True" or "False".

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>wc_encoding_mask</term>

+    <listitem>

+      <para>

+Specifies a bit-mask for parsing wide-char string.  Each wide character is

+applied bit-and operation with this bit-mask, then is classified into

+the unique charset, by using 'wc_encoding'.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>wc_shift_bits</term>

+    <listitem>

+      <para>

+Specifies a number of bit to be shifted for converting from a multi-byte

+character to a wide character, and vice-versa.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>csN</term>

+    <listitem>

+      <para>

+<!-- .br -->

+Includes a character set information for Nth charset, where N is the

+index number (0,1,2,...).  If there are 4 charsets available in current

+locale, cs0, cs1, cs2 and cs3 should be defined. This class has five

+subclasses, 'side', 'length', 'mb_encoding' 'wc_encoding' and 'ct_encoding'.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>side</term>

+    <listitem>

+      <para>

+Specifies a mapping side of this charset. The format of this value is;

+      </para>

+      <literallayout>

+   Side    ::=  EncodingSide[":Default"]

+      </literallayout>

+      <para>

+The suffix ":Default" can be specified.  It indicates that a character

+belongs to the specified side is mapped to this charset in initial state.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>length</term>

+    <listitem>

+      <para>

+<!-- .br -->

+Specifies a number of bytes of a multi-byte character of this charset.

+It should not contain the length of any single-shift sequence.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>mb_encoding</term>

+    <listitem>

+      <para>

+Specifies a list of shift sequence for parsing multi-byte string.

+The format of this value is;

+      </para>

+<informaltable frame="none">

+  <tgroup cols='3' align='left'>

+  <colspec colname='c1' colwidth="3*" colsep="0"/>

+  <colspec colname='c2' colwidth="1*" colsep="0"/>

+  <colspec colname='c3' colwidth="5*" colsep="0"/>

+  <tbody>

+    <row rowsep="0">

+      <entry>MBEncoding</entry>

+      <entry>::=</entry>

+      <entry>ShiftType ShiftSequence</entry>

+    </row>

+    <row rowsep="0">

+      <entry></entry>

+      <entry>|</entry>

+      <entry>ShiftType ShiftSequence ";" MBEncoding</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ShiftType</entry>

+      <entry>::=</entry>

+      <entry>"&lt;SS&gt;"|"&lt;LSL&gt;"|"&lt;LSR&gt;"</entry>

+    </row>

+    <row rowsep="0">

+      <entry>ShiftSequence</entry>

+      <entry>::=</entry>

+      <entry>SequenceValue|SequenceValue ShiftSequence</entry>

+    </row>

+    <row rowsep="0">

+      <entry>SequenceValue</entry>

+      <entry>::=</entry>

+      <entry>NumericString</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+      <literallayout>

+example:

+     &lt;LSL&gt; \x1b \x28 \x4a; &lt;LSL&gt; \x1b \x28 \x42

+      </literallayout>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>wc_encoding</term>

+    <listitem>

+      <para>

+Specifies an integer value for parsing wide-char string.

+It is used to determine the charset for each wide character, after

+applying bit-and operation using 'wc_encoding_mask'.

+This value should be unique in all csN classes.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>ct_encoding</term>

+    <listitem>

+      <para>

+Specifies a list of encoding information that can be used for Compound

+Text.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+</sect1>

+

+<sect1 id="Sample_of_X_Locale_Database">

+<title>Sample of X Locale Database</title>

+<para>

+The following is sample X Locale Database file.

+</para>

+

+<literallayout class="monospaced">

+#  XLocale Database Sample for ja_JP.euc

+#

+

+#

+#      XLC_FONTSET category

+#

+XLC_FONTSET

+#      fs0 class (7 bit ASCII)

+fs0     {

+        charset              ISO8859-1:GL

+        font                 ISO8859-1:GL; JISX0201.1976-0:GL

+}

+#      fs1 class (Kanji)

+fs1     {

+        charset              JISX0208.1983-0:GL

+        font                 JISX0208.1983-0:GL

+}

+#      fs2 class (Half Kana)

+fs2     {

+        charset              JISX0201.1976-0:GR

+        font                 JISX0201.1976-0:GR

+}

+#      fs3 class (User Defined Character)

+# fs3     {

+#        charset             JISX0212.1990-0:GL

+#        font                JISX0212.1990-0:GL

+# }

+END XLC_FONTSET

+

+#

+#      XLC_XLOCALE category

+#

+XLC_XLOCALE

+

+encoding_name             ja.euc

+mb_cur_max                3

+state_depend_encoding     False

+

+wc_encoding_mask          \x00008080

+wc_shift_bits             8

+

+#      cs0 class

+cs0     {

+        side                 GL:Default

+        length               1

+        wc_encoding          \x00000000

+        ct_encoding          ISO8859-1:GL; JISX0201.1976-0:GL

+}

+#      cs1 class

+cs1     {

+        side                 GR:Default

+        length               2

+

+        wc_encoding          \x00008080

+

+        ct_encoding          JISX0208.1983-0:GL; JISX0208.1983-0:GR;\

+                             JISX0208.1983-1:GL; JISX0208.1983-1:GR

+}

+

+#      cs2 class

+cs2     {

+        side                 GR

+        length               1

+        mb_encoding          &lt;SS&gt; \x8e

+

+        wc_encoding          \x00000080

+

+        ct_encoding          JISX0201.1976-0:GR

+}

+

+#      cs3 class

+# cs3     {

+#         side               GL

+#         length             2

+#         mb_encoding        &lt;SS&gt; \x8f

+# #if HasWChar32

+#         wc_encoding        \x20000000

+# #else

+#         wc_encoding        \x00008000

+# #endif

+#         ct_encoding        JISX0212.1990-0:GL; JISX0212.1990-0:GR

+# }

+

+END XLC_XLOCALE

+</literallayout>

+</sect1>

+

+<sect1 id="Reference">

+<title>Reference</title>

+<para>

+[1] <emphasis remap='I'>ISO/IEC 9899:1990 C Language Standard</emphasis>

+</para>

+<para>

+[2] <emphasis remap='I'>X Logical Font Descriptions</emphasis>

+</para>

+

+</sect1>

+</chapter>

+</book>

diff --git a/libX11/specs/i18n/trans/Makefile.am b/libX11/specs/i18n/trans/Makefile.am
index 40a135a2f..e3c499744 100644
--- a/libX11/specs/i18n/trans/Makefile.am
+++ b/libX11/specs/i18n/trans/Makefile.am
@@ -1,13 +1,13 @@
-
-if ENABLE_SPECS
-
-# Main DocBook/XML files (DOCTYPE book)
-docbook = trans.xml
-
-# The location where the DocBook/XML files and their generated formats are installed
-shelfdir = $(docdir)/i18n/trans
-
-# Generate DocBook/XML output formats with or without stylesheets
-include $(top_srcdir)/docbook.am
-
-endif ENABLE_SPECS
+

+if ENABLE_SPECS

+

+# Main DocBook/XML files (DOCTYPE book)

+docbook = trans.xml

+

+# The location where the DocBook/XML files and their generated formats are installed

+shelfdir = $(docdir)/i18n/trans

+

+# Generate DocBook/XML output formats with or without stylesheets

+include $(top_srcdir)/docbook.am

+

+endif ENABLE_SPECS

diff --git a/libX11/specs/i18n/trans/trans.xml b/libX11/specs/i18n/trans/trans.xml
index c8447f934..5018c9192 100644
--- a/libX11/specs/i18n/trans/trans.xml
+++ b/libX11/specs/i18n/trans/trans.xml
@@ -1,1979 +1,1979 @@
-<?xml version="1.0" encoding="UTF-8" ?>
-<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"
-                   "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">
-
-<book id="trans">
-
-<bookinfo>
-   <title>The XIM Transport Specification</title>
-   <subtitle>Revision 0.1</subtitle>
-   <releaseinfo>X Version 11, Release 7</releaseinfo>
-   <authorgroup>
-      <author>
-         <firstname>Takashi</firstname><surname>Fujiwara</surname>
-         <affiliation><orgname>FUJITSU LIMITED</orgname></affiliation>
-      </author>
-   </authorgroup>
-   <copyright><year>1994</year><holder>FUJITSU LIMITED</holder></copyright>
-   <copyright><year>1994</year><holder>X Consortium</holder></copyright>
-
-   <productnumber>Revision 0.1</productnumber>
-
-
-<abstract>
-<para>
-This specification describes the transport layer interfaces between Xlib and IM Server,
-which makes various channels usable such as X protocol or TCP/IP, DECnet and etc.
-</para>
-</abstract>
-
-<legalnotice>
-
-<para>
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files
-(the &ldquo;Software&rdquo;), to deal in the Software without restriction,
-including without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to permit
-persons to whom the Software is furnished to do so, subject to the following
-conditions:
-</para>
-
-<para>
-The above copyright notice and this permission notice shall be included in all
-copies or substantial portions of the Software.
-</para>
-
-<para>
-THE SOFTWARE IS PROVIDED &ldquo;AS IS&rdquo;, WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN
-NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-THE SOFTWARE.
-</para>
-
-<para>
-Except as contained in this notice, the name of The Open Group shall not
-be used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from X Consortium.
-</para>
-
-<para>X Window System is a trademark of The Open Group.</para>
-
-</legalnotice>
-</bookinfo>
-
-<chapter id="xim_transport_specification">
-<title>X Transport Specification</title>
-
-<sect1 id="Introduction">
-<title>Introduction</title>
-<!-- .XS -->
-<!-- (SN Introduction -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-The Xlib XIM implementation is layered into three functions, a protocol
-layer, an interface layer and a transport layer. The purpose of this
-layering is to make the protocol independent of transport implementation.
-Each function of these layers are:
-<!-- .RS 3 -->
-</para>
-<variablelist>
-  <varlistentry>
-    <term><emphasis>The protocol layer</emphasis></term>
-    <listitem>
-      <para>
-implements overall function of XIM and calls the interface layer
-functions when it needs to communicate to IM Server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term><emphasis>The interface layer</emphasis></term>
-    <listitem>
-      <para>
-separates the implementation of the transport layer from the protocol
-layer, in other words, it provides implementation independent hook for
-the transport layer functions.
-      </para>
-    </listitem>
-  </varlistentry>
-
-  <varlistentry>
-    <term><emphasis>The transport layer</emphasis></term>
-    <listitem>
-      <para>
-handles actual data communication with IM Server. It is done by a set
-of several functions named transporters.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This specification describes the interface layer and the transport
-layer, which makes various communication channels usable such as
-X protocol or, TCP/IP, DECnet, STREAM, etc., and provides
-the information needed for adding another new transport layer.
-In addition, sample implementations for the transporter using the
-X connection is described in section 4. <!-- xref -->
-</para>
-</sect1>
-
-<sect1 id="Initialization">
-<title>Initialization</title>
-
-<sect2 id="Registering_structure_to_initialize">
-<title>Registering structure to initialize</title>
-
-<para>
-The structure typed as TransportSW contains the list of the transport
-layer the specific implementations supports.
-</para>
-
-<literallayout class="monospaced">
-typedef struct {
-      char *transport_name;
-      Bool (*config);
-} TransportSW;
-</literallayout>
-
-<informaltable frame="none">
-  <tgroup cols="2">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="0"/>
-  <tbody>
-    <row rowsep="0">
-      <entry><emphasis>transport_name</emphasis></entry>
-      <entry>name of transport<footnote><para>Refer to "The Input Method Protocol: Appendix B</para></footnote></entry>
-    </row>
-    <row rowsep="0">
-      <entry><emphasis>config</emphasis></entry>
-      <entry>initial configuration function</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</informaltable>
-
-<para>
-A sample entry for the Xlib supporting transporters is shown below:
-</para>
-
-<literallayout class="monospaced">
-TransportSW _XimTransportRec[] = {
-/*     char <emphasis remap='I'>*</emphasis>:
- *     transport_name,     Bool <emphasis remap='I'>(*config)()</emphasis>
- */
-      "X",             _XimXConf,
-      "tcp",           _XimTransConf,
-      "local",         _XimTransConf,
-      "decnet",        _XimTransConf,
-      "streams",       _XimTransConf,
-      (char *)NULL,    (Bool (*)())NULL,
-};
-</literallayout>
-
-</sect2>
-<sect2 id="Initialization_function">
-<title>Initialization function</title>
-<!-- .XS -->
-<!-- (SN Initialization function -->
-<!-- .XE -->
-<para>
-The following function will be called once when Xlib configures the
-transporter functions.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>(*config)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>char<parameter> *transport_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>transport_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the data specific to the transporter, in IM Server address.<footnote><para>Refer to "The Input Method Protocol: Appendix B</para></footnote>
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This function must setup the transporter function pointers.
-</para>
-
-<para>
-<!-- .LP -->
-The actual <emphasis remap='I'>config</emphasis> function will be chosen by IM Server at the
-pre-connection time, matching by the <emphasis remap='I'>transport_name</emphasis> specified
-in the <function>_XimTransportRec</function> array; The specific members of XimProto
-structure listed below must be initialized so that point they
-appropriate transporter functions.
-</para>
-
-<para>
-If the specified transporter has been configured successfully, this
-function returns True. There is no Alternative Entry for config
-function itself.
-</para>
-
-<para>
-The structure XimProto contains the following function pointers:
-</para>
-
-<literallayout class="monospaced">
-Bool (*connect)();               /* Open connection */
-Bool (*shutdown)();              /* Close connection */
-Bool (*write)();                 /* Write data */
-Bool (*read)();                  /* Read data */
-Bool (*flush)();                 /* Flush data buffer */
-Bool (*register_dispatcher)();   /* Register asynchronous data handler */
-Bool (*call_dispatcher)();       /* Call dispatcher */
-</literallayout>
-
-<para>
-These functions are called when Xlib needs to communicate the
-IM Server. These functions must process the appropriate procedure
-described below.
-</para>
-
-</sect2>
-</sect1>
-<sect1 id="The_interface_transport_layer_functions">
-<title>The interface/transport layer functions</title>
-<para>
-Following functions are used for the transport interface.
-</para>
-
-<table frame="all" id="transport_layer_functions_2">
-  <title>The Transport Layer Functions</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="3*" colsep="1"/>
-  <colspec colname="col2" colwidth="3*" colsep="1"/>
-  <colspec colname="col3" colwidth="1*" colsep="1"/>
-  <thead>
-    <row>
-      <entry align="center">Alternate Entry (Interface Layer)</entry>
-      <entry align="center">XimProto member (Transport Layer)</entry>
-      <entry align="center">Section</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row>
-      <entry>_XimConnect</entry>
-      <entry>connect</entry>
-      <entry>3.1</entry>
-    </row>
-    <row>
-      <entry>_XimShutdown</entry>
-      <entry>shutdown</entry>
-      <entry>3.2</entry>
-    </row>
-    <row>
-      <entry>_XimWrite</entry>
-      <entry>write</entry>
-      <entry>3.3</entry>
-    </row>
-    <row>
-      <entry>_XimRead</entry>
-      <entry>read</entry>
-      <entry>3.4</entry>
-    </row>
-    <row>
-      <entry>_XimFlush</entry>
-      <entry>flush</entry>
-      <entry>3.5</entry>
-    </row>
-    <row>
-      <entry>_XimRegisterDispatcher</entry>
-      <entry>register_dispatcher</entry>
-      <entry>3.6</entry>
-    </row>
-    <row>
-      <entry>_XimCallDispatcher</entry>
-      <entry>call_dispatcher</entry>
-      <entry>3.7</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-The Protocol layer calls the above functions using the Alternative
-Entry in the left column. The transport implementation defines
-XimProto member function in the right column. The Alternative Entry is
-provided so as to make easier to implement the Protocol Layer.
-</para>
-
-<sect2 id="Opening_connection">
-<title>Opening connection</title>
-<para>
-<!-- .LP -->
-When <function>XOpenIM</function> is called, the following function is called to connect
-with the IM Server.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>(*connect)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This function must establishes the connection to the IM Server. If the
-connection is established successfully, this function returns True.
-The Alternative Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimConnect</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-</sect2>
-
-<sect2 id="Closing_connection">
-<title>Closing connection</title>
-<!-- .XS -->
-<!-- (SN Closing connection -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-When <function>XCloseIM</function> is called, the following function is called to
-disconnect the connection with the IM Server. The Alternative Entry
-for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> (*shutdown)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-<!-- .LP -->
-This function must close connection with the IM Server. If the
-connection is closed successfully, this function returns True. The
-Alternative Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>_XimShutdown</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect2>
-
-<sect2 id="Writing_data">
-<title>Writing data</title>
-<para>
-The following function is called, when Xlib needs to write data to the
-IM Server.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimWrite</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the length of writing data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the writing data.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This function writes the <emphasis remap='I'>data</emphasis> to the IM Server, regardless
-of the contents.  The number of bytes is passed to <emphasis remap='I'>len</emphasis>. The
-writing data is passed to <emphasis remap='I'>data</emphasis>. If data is sent successfully,
-the function returns True. Refer to "The Input Method Protocol" for
-the contents of the writing data. The Alternative Entry for this
-function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>_XimWrite</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the length of writing data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the writing data.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect2>
-<sect2 id="Reading_data">
-<title>Reading data</title>
-<para>
-The following function is called when Xlib waits for response from IM
-server synchronously.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimRead</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>XPointer<parameter> read_buf</parameter></paramdef>
-  <paramdef>int<parameter> buf_len</parameter></paramdef>
-  <paramdef>int<parameter> *ret_len</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>read_buf</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the buffer to store data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>buf_len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the size of the <emphasis remap='I'>buffer</emphasis>
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>ret_len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the length of stored data.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This function stores the read data in <emphasis remap='I'>read_buf</emphasis>, which size is
-specified as <emphasis remap='I'>buf_len</emphasis>. The size of data is set to <emphasis remap='I'>ret_len</emphasis>.
-This function return True, if the data is read normally or reading
-data is completed.
-</para>
-<para>
-The Alternative Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimRead</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> *ret_len</parameter></paramdef>
-  <paramdef>XPointer<parameter> buf</parameter></paramdef>
-  <paramdef>int<parameter> buf_len</parameter></paramdef>
-  <paramdef>Bool<parameter> (*predicate)()</parameter></paramdef>
-  <paramdef>XPointer<parameter> predicate_arg</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>ret_len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>buf</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the buffer to store data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>buf_len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the length of <emphasis remap='I'>buffer</emphasis>.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>predicate</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the predicate for the XIM data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>predicate_arg</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the predicate specific data.
-<!-- .sp 6p -->
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-The predicate procedure indicates whether the <emphasis remap='I'>data</emphasis> is for the
-XIM or not. <emphasis remap='I'>len</emphasis>
-This function stores the read data in <emphasis remap='I'>buf</emphasis>, which size
-is specified as <emphasis remap='I'>buf_len</emphasis>. The size of data is set to
-<emphasis remap='I'>ret_len</emphasis>.  If <emphasis remap='I'>preedicate()</emphasis>
-returns True, this function returns True.  If not, it calls the registered callback function.
-</para>
-
-<para>
-The procedure and its arguments are:
-</para>
-
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>void <function>(*predicate)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> data</parameter></paramdef>
-  <paramdef>XPointer<parameter> predicate_arg</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the buffer to store data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>predicate_arg</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the predicate specific data.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect2>
-<sect2 id="Flushing_buffer">
-<title>Flushing buffer</title>
-<para>
-The following function is called when Xlib needs to flush the data.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>void <function>(*flush)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-This function must flush the data stored in internal buffer on the
-transport layer. If data transfer is completed, the function returns
-True.  The Alternative Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>void <function> _XimFlush</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect2>
-<sect2 id="Registering_asynchronous_data_handler">
-<title>Registering asynchronous data handler</title>
-<para>
-Xlib needs to handle asynchronous response from IM Server. This is
-because some of the XIM data occur asynchronously to X events.
-</para>
-
-<para>
-Those data will be handled in the <emphasis remap='I'>Filter</emphasis>,
-and the <emphasis remap='I'>Filter</emphasis>
-will call asynchronous data handler in the protocol layer. Then it
-calls dispatchers in the transport layer. The dispatchers are
-implemented by the protocol layer. This function must store the
-information and prepare for later call of the dispatchers using
-<function>_XimCallDispatcher</function>.
-</para>
-
-<para>
-When multiple dispatchers are registered, they will be called
-sequentially in order of registration, on arrival of asynchronous
-data. The register_dispatcher is declared as following:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>(*register_dispatcher)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>Bool<parameter> (*dispatcher)()</parameter></paramdef>
-  <paramdef>XPointer<parameter> call_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>dispatcher</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the dispatcher function to register.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>call_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies a parameter for the <emphasis remap='I'>dispatcher</emphasis>.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-The dispatcher is a function of the following type:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>(*dispatcher)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> data</parameter></paramdef>
-  <paramdef>XPointer<parameter> call_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the buffer to store data.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>call_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies a parameter passed to the register_dispatcher.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-The dispatcher is provided by the protocol layer. They are called once
-for every asynchronous data, in order of registration. If the data is
-used, it must return True. otherwise, it must return False.
-</para>
-
-<para>
-If the dispatcher function returns True, the Transport Layer assume
-that the data has been processed by the upper layer.  The Alternative
-Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimRegisterDispatcher</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>Bool<parameter> (*dispatcher)()</parameter></paramdef>
-  <paramdef>XPointer<parameter> call_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>dispatcher</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the dispatcher function to register.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>call_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies a parameter for the <emphasis remap='I'>dispatcher</emphasis>.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-</sect2>
-<sect2 id="Calling_dispatcher">
-<title>Calling dispatcher</title>
-<para>
-The following function is used to call the registered dispatcher
-function, when the asynchronous response from IM Server has arrived.
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>(*call_dispatcher)</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>im</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies XIM structure address.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>len</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the size of <emphasis remap='I'>data</emphasis> buffer.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the buffer to store data.
-      </para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-The call_dispatcher must call the dispatcher function, in order of
-their registration. <emphasis remap='I'>len</emphasis> and <emphasis remap='I'>data</emphasis> are the data passed to
-register_dispatcher.
-</para>
-
-<para>
-The return values are checked at each invocation, and if it finds
-True, it immediately return with true for its return value.
-</para>
-
-<para>
-It is depend on the upper layer whether the read data is XIM
-Protocol packet unit or not.
-The Alternative Entry for this function is:
-</para>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function> _XimCallDispatcher</function></funcdef>
-  <paramdef>XIM<parameter> im</parameter></paramdef>
-  <paramdef>INT16<parameter> len</parameter></paramdef>
-  <paramdef>XPointer<parameter> call_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-</sect2>
-</sect1>
-<sect1 id="Sample_implementations_for_the_Transport_Layer">
-<title>Sample implementations for the Transport Layer</title>
-<para>
-Sample implementations for the transporter using the X connection is
-described here.
-</para>
-
-<sect2 id="X_Transport">
-<title>X Transport</title>
-<para>
-At the beginning of the X Transport connection for the XIM transport
-mechanism, two different windows must be created either in an Xlib XIM
-or in an IM Server, with which the Xlib and the IM Server exchange the
-XIM transports by using the ClientMessage events and Window Properties.
-In the following, the window created by the Xlib is referred as the
-"client communication window", and on the other hand, the window created
-by the IM Server is referred as the "IMS communication window".
-</para>
-
-<sect3 id="Connection">
-<title>Connection</title>
-<para>
-In order to establish a connection, a communication window is created.
-A ClientMessage in the following event's format is sent to the owner
-window of XIM_SERVER selection, which the IM Server has created.
-</para>
-
-<para>
-<!-- .LP -->
-Refer to "The Input Method Protocol" for the XIM_SERVER atom.
-</para>
-
-<table frame="none" id="transport_layer_functions">
-  <title>The ClientMessage sent to the IMS window.</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_CONNECT", false)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>32</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[0]</entry>
-      <entry>client communication window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[1]</entry>
-      <entry>client-major-transport-version(*1)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[2]</entry>
-      <entry>client-major-transport-version(*1)</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-In order to establish the connection (to notify the IM Server communication
-window), the IM Server sends a ClientMessage in the following event's
-format to the client communication window.
-</para>
-
-<table frame="none" id="clientmessage_sent_by_im_server">
-  <title>The ClientMessage sent by IM Server.</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_CONNECT", false)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>32</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[0]</entry>
-      <entry>client communication window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[1]</entry>
-      <entry>client-major-transport-version(*1)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[2]</entry>
-      <entry>client-major-transport-version(*1)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[3]</entry>
-      <entry>dividing size between ClientMessage and Property(*2)</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-(*1) major/minor-transport-version
-</para>
-
-<para>
-The read/write method is decided by the combination of
-major/minor-transport-version, as follows:
-</para>
-
-<table frame="all" id="readwrite_method_and_the_majorminor_transport_version">
-<title>The read/write method and the major/minor-transport-version</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="1"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3*" colsep="1"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="center"/>
-  <thead>
-    <row>
-      <entry spanname="span-horiz">Transport-version</entry>
-      <entry>read/write</entry>
-    </row>
-    <row>
-      <entry>major</entry>
-      <entry>minor</entry>
-      <entry></entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry morerows="2">0</entry>
-      <entry>0</entry>
-      <entry>only-CM &amp; Property-with-CM</entry>
-    </row>
-    <row rowsep="0">
-      <entry>1</entry>
-      <entry>only-CM &amp; multi-CM</entry>
-    </row>
-    <row rowsep="1">
-      <entry>2</entry>
-      <entry>only-CM &amp; multi-CM &amp; Property-with-CM</entry>
-    </row>
-    <row rowsep="1">
-      <entry>1</entry>
-      <entry>0</entry>
-      <entry>PropertyNotify</entry>
-    </row>
-    <row rowsep="0">
-      <entry morerows="1">2</entry>
-      <entry>0</entry>
-      <entry>only-CM &amp; PropertyNotify</entry>
-    </row>
-    <row>
-      <entry>1</entry>
-      <entry>only-CM &amp; multi-CM &amp; PropertyNotify</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<literallayout class="monospaced">
-only-CM            :    data is sent via a ClientMessage
-multi-CM           :    data is sent via multiple ClientMessages
-Property-with-CM   :    data is written in Property, and its Atom
-                        is send via ClientMessage
-PropertyNotify     :    data is written in Property, and its Atom
-                        is send via PropertyNotify
-
-</literallayout>
-
-
-<para>
-The method to decide major/minor-transport-version is as follows:
-</para>
-
-<itemizedlist>
-  <listitem>
-    <para>
-The client sends 0 as major/minor-transport-version to the IM Server.
-The client must support all methods in Table 4-3. <!-- xref -->
-The client may send another number as major/minor-transport-version to
-use other method than the above in the future.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-The IM Server sends its major/minor-transport-version number to
-the client. The client sends data using the method specified by the
-IM Server.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-If major/minor-transport-version number is not available, it is regarded
-as 0.
-    </para>
-  </listitem>
-</itemizedlist>
-
-<para>
-(*2) dividing size between ClientMessage and Property
-</para>
-
-<para>
-If data is sent via both of multi-CM and Property, specify the dividing
-size between ClientMessage and Property. The data, which is smaller than
-this size, is sent via multi-CM (or only-CM), and the data, which is
-lager than this size, is sent via Property.
-</para>
-
-</sect3>
-
-<sect3 id="read_write_">
-<title>read/write  </title>
-<para>
-The data is transferred via either ClientMessage or Window Property in
-the X Window System.
-</para>
-
-<sect4 id="Format_for_the_data_from_the_Client_to_the_IM_Server">
-<title>Format for the data from the Client to the IM Server</title>
-<para>
-<emphasis role="bold">ClientMessage</emphasis>
-</para>
-
-<para>
-If data is sent via ClientMessage event, the format is as follows:
-</para>
-
-<table frame="none" id="clientmessage_events_format_first_or_middle">
-  <title>The ClientMessage event's format (first or middle)</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_MOREDATA", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>char</entry>
-      <entry>data.b[20]</entry>
-      <entry>(read/write DATA : 20 byte)</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-
-
-<table frame="none" id="clientmessage_events_format_only_or_last">
-  <title>The ClientMessage event's format (only or last)</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>char</entry>
-      <entry>data.b[20]</entry>
-      <entry>(read/write DATA : MAX 20 byte)
-<footnote><para>If the data is smaller
-than 20 bytes, all data other than available data must be 0.
-</para></footnote>
-      </entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-<emphasis role="bold">Property</emphasis>
-</para>
-
-<para>
-In the case of large data, data will be sent via the Window Property
-for the efficiency.  There are the following two methods to notify
-Property, and transport-version is decided which method is used.
-</para>
-
-<itemizedlist>
-  <listitem>
-    <para>
-The XChangeProperty function is used to store data in the client
-communication window, and Atom of the stored data is notified to the
-IM Server via ClientMessage event.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-The XChangeProperty function is used to store data in the client
-communication window, and Atom of the stored data is notified to the
-IM Server via PropertyNotify event.
-    </para>
-  </listitem>
-</itemizedlist>
-
-<para>
-The arguments of the XChangeProperty are as follows:
-</para>
-
-
-<table frame="none" id="xchangeproperty_events_format">
-  <title>The XChangeProperty event's format</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Argument</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS communication window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>property</entry>
-      <entry>read/write property Atom (*1)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>mode</entry>
-      <entry>PropModeAppend</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_char</entry>
-      <entry>*data</entry>
-      <entry>read/write DATA</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>nelements</entry>
-      <entry>length of DATA</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-(*1) The read/write property ATOM allocates the following strings by
-<function>XInternAtom</function>.
-"_clientXXX"
-</para>
-
-<para>
-The client changes the property with the mode of PropModeAppend and
-the IM Server will read it with the delete mode i.e. (delete = True).
-</para>
-
-<para>
-If Atom is notified via ClientMessage event, the format of the ClientMessage
-is as follows:
-</para>
-
-<table frame="none" id="clientmessage_events_format_to_send_atom_of_property">
-  <title>The ClientMessage event's format to send Atom of property</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[0]</entry>
-      <entry>length of read/write property Atom</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[1]</entry>
-      <entry>read/write property Atom</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-</sect4>
-
-<sect4 id="Format_for_the_data_from_the_IM_Server_to_the_Client">
-<title>Format for the data from the IM Server to the Client</title>
-<para>
-<emphasis role="bold">ClientMessage</emphasis>
-</para>
-
-<para>
-The format of the ClientMessage is as follows:
-</para>
-
-<table frame="none" id="clientmessage_events_format_first_or_middle_2">
-  <title>The ClientMessage event's format (first or middle)</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_MOREDATA", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>char</entry>
-      <entry>data.b[20]</entry>
-      <entry>(read/write DATA : 20 byte)</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-
-
-
-
-<table frame="none" id="clientmessage_events_format_only_or_last_2">
-  <title>The ClientMessage event's format (only or last)</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>char</entry>
-      <entry>data.b[20]</entry>
-      <entry>(read/write DATA : MAX 20 byte) (*1)</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-(*1) If the data size is smaller than 20 bytes, all data other than available
-data must be 0.
-</para>
-
-<para>
-<emphasis role="bold">Property</emphasis>
-</para>
-
-<para>
-In the case of large data, data will be sent via the Window Property
-for the efficiency. There are the following two methods to notify
-Property, and transport-version is decided which method is used.
-</para>
-
-<itemizedlist>
-  <listitem>
-    <para>
-The XChangeProperty function is used to store data in the IMS
-communication window, and Atom of the property is sent via the
-ClientMessage event.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-The XChangeProperty function is used to store data in the IMS
-communication window, and Atom of the property is sent via
-PropertyNotify event.
-    </para>
-  </listitem>
-</itemizedlist>
-
-<para>
-The arguments of the XChangeProperty are as follows:
-</para>
-
-<table frame="none" id="xchangeproperty_events_format_b">
-  <title>The XChangeProperty event's format</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Argument</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS communication window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>property</entry>
-      <entry>read/write property Atom (*1)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>mode</entry>
-      <entry>PropModeAppend</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_char</entry>
-      <entry>*data</entry>
-      <entry>read/write DATA</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>nelements</entry>
-      <entry>length of DATA</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-<para>
-(*1) The read/write property ATOM allocates some strings, which are not
-allocated by the client, by <function>XInternAtom</function>.
-</para>
-
-<para>
-The IM Server changes the property with the mode of PropModeAppend and
-the client reads it with the delete mode, i.e. (delete = True).
-</para>
-
-<para>
-If Atom is notified via ClientMessage event, the format of the ClientMessage
-is as follows:
-</para>
-
-<table frame="none" id="clientmessage_events_format_to_send_atom_of_property_2">
-  <title>The ClientMessage event's format to send Atom of property</title>
-  <tgroup cols="3">
-  <colspec colname="col1" colwidth="1*" colsep="0"/>
-  <colspec colname="col2" colwidth="1*" colsep="1"/>
-  <colspec colname="col3" colwidth="3.5*" colsep="0"/>
-  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>
-  <thead>
-    <row>
-      <entry align="left" spanname="span-horiz">Structure Member</entry>
-      <entry align="left">Contents</entry>
-    </row>
-  </thead>
-  <tbody>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>type</entry>
-      <entry>ClientMessage</entry>
-    </row>
-    <row rowsep="0">
-      <entry>u_long</entry>
-      <entry>serial</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Bool</entry>
-      <entry>send_event</entry>
-      <entry>Set by the X Window System</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Display</entry>
-      <entry>*display</entry>
-      <entry>The display to which connects</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Window</entry>
-      <entry>window</entry>
-      <entry>IMS Window ID</entry>
-    </row>
-    <row rowsep="0">
-      <entry>Atom</entry>
-      <entry>message_type</entry>
-      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>
-    </row>
-    <row rowsep="0">
-      <entry>int</entry>
-      <entry>format</entry>
-      <entry>8</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[0]</entry>
-      <entry>length of read/write property Atom</entry>
-    </row>
-    <row rowsep="0">
-      <entry>long</entry>
-      <entry>data.1[1]</entry>
-      <entry>read/write property Atom</entry>
-    </row>
-  </tbody>
-  </tgroup>
-</table>
-
-</sect4>
-</sect3>
-<sect3 id="Closing_Connection">
-<title>Closing Connection</title>
-
-<para>
-If the client disconnect with the IM Server, shutdown function should
-free the communication window properties and etc..
-</para>
-
-</sect3>
-</sect2>
-</sect1>
-
-<sect1 id="References">
-<title>References</title>
-<para>
-[1] Masahiko Narita and Hideki Hiura, <emphasis remap='I'>"The Input Method Protocol"</emphasis>
-</para>
-</sect1>
-
-</chapter>
-</book>
+<?xml version="1.0" encoding="UTF-8" ?>

+<!DOCTYPE book PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"

+                   "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">

+

+<book id="trans">

+

+<bookinfo>

+   <title>The XIM Transport Specification</title>

+   <subtitle>Revision 0.1</subtitle>

+   <releaseinfo>X Version 11, Release 7</releaseinfo>

+   <authorgroup>

+      <author>

+         <firstname>Takashi</firstname><surname>Fujiwara</surname>

+         <affiliation><orgname>FUJITSU LIMITED</orgname></affiliation>

+      </author>

+   </authorgroup>

+   <copyright><year>1994</year><holder>FUJITSU LIMITED</holder></copyright>

+   <copyright><year>1994</year><holder>X Consortium</holder></copyright>

+

+   <productnumber>Revision 0.1</productnumber>

+

+

+<abstract>

+<para>

+This specification describes the transport layer interfaces between Xlib and IM Server,

+which makes various channels usable such as X protocol or TCP/IP, DECnet and etc.

+</para>

+</abstract>

+

+<legalnotice>

+

+<para>

+Permission is hereby granted, free of charge, to any person obtaining a copy

+of this software and associated documentation files

+(the &ldquo;Software&rdquo;), to deal in the Software without restriction,

+including without limitation the rights to use, copy, modify, merge, publish,

+distribute, sublicense, and/or sell copies of the Software, and to permit

+persons to whom the Software is furnished to do so, subject to the following

+conditions:

+</para>

+

+<para>

+The above copyright notice and this permission notice shall be included in all

+copies or substantial portions of the Software.

+</para>

+

+<para>

+THE SOFTWARE IS PROVIDED &ldquo;AS IS&rdquo;, WITHOUT WARRANTY OF ANY KIND,

+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN

+NO EVENT SHALL THE X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

+THE SOFTWARE.

+</para>

+

+<para>

+Except as contained in this notice, the name of The Open Group shall not

+be used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from X Consortium.

+</para>

+

+<para>X Window System is a trademark of The Open Group.</para>

+

+</legalnotice>

+</bookinfo>

+

+<chapter id="xim_transport_specification">

+<title>X Transport Specification</title>

+

+<sect1 id="Introduction">

+<title>Introduction</title>

+<!-- .XS -->

+<!-- (SN Introduction -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+The Xlib XIM implementation is layered into three functions, a protocol

+layer, an interface layer and a transport layer. The purpose of this

+layering is to make the protocol independent of transport implementation.

+Each function of these layers are:

+<!-- .RS 3 -->

+</para>

+<variablelist>

+  <varlistentry>

+    <term><emphasis>The protocol layer</emphasis></term>

+    <listitem>

+      <para>

+implements overall function of XIM and calls the interface layer

+functions when it needs to communicate to IM Server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term><emphasis>The interface layer</emphasis></term>

+    <listitem>

+      <para>

+separates the implementation of the transport layer from the protocol

+layer, in other words, it provides implementation independent hook for

+the transport layer functions.

+      </para>

+    </listitem>

+  </varlistentry>

+

+  <varlistentry>

+    <term><emphasis>The transport layer</emphasis></term>

+    <listitem>

+      <para>

+handles actual data communication with IM Server. It is done by a set

+of several functions named transporters.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This specification describes the interface layer and the transport

+layer, which makes various communication channels usable such as

+X protocol or, TCP/IP, DECnet, STREAM, etc., and provides

+the information needed for adding another new transport layer.

+In addition, sample implementations for the transporter using the

+X connection is described in section 4. <!-- xref -->

+</para>

+</sect1>

+

+<sect1 id="Initialization">

+<title>Initialization</title>

+

+<sect2 id="Registering_structure_to_initialize">

+<title>Registering structure to initialize</title>

+

+<para>

+The structure typed as TransportSW contains the list of the transport

+layer the specific implementations supports.

+</para>

+

+<literallayout class="monospaced">

+typedef struct {

+      char *transport_name;

+      Bool (*config);

+} TransportSW;

+</literallayout>

+

+<informaltable frame="none">

+  <tgroup cols="2">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="0"/>

+  <tbody>

+    <row rowsep="0">

+      <entry><emphasis>transport_name</emphasis></entry>

+      <entry>name of transport<footnote><para>Refer to "The Input Method Protocol: Appendix B</para></footnote></entry>

+    </row>

+    <row rowsep="0">

+      <entry><emphasis>config</emphasis></entry>

+      <entry>initial configuration function</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</informaltable>

+

+<para>

+A sample entry for the Xlib supporting transporters is shown below:

+</para>

+

+<literallayout class="monospaced">

+TransportSW _XimTransportRec[] = {

+/*     char <emphasis remap='I'>*</emphasis>:

+ *     transport_name,     Bool <emphasis remap='I'>(*config)()</emphasis>

+ */

+      "X",             _XimXConf,

+      "tcp",           _XimTransConf,

+      "local",         _XimTransConf,

+      "decnet",        _XimTransConf,

+      "streams",       _XimTransConf,

+      (char *)NULL,    (Bool (*)())NULL,

+};

+</literallayout>

+

+</sect2>

+<sect2 id="Initialization_function">

+<title>Initialization function</title>

+<!-- .XS -->

+<!-- (SN Initialization function -->

+<!-- .XE -->

+<para>

+The following function will be called once when Xlib configures the

+transporter functions.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>(*config)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>char<parameter> *transport_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>transport_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the data specific to the transporter, in IM Server address.<footnote><para>Refer to "The Input Method Protocol: Appendix B</para></footnote>

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This function must setup the transporter function pointers.

+</para>

+

+<para>

+<!-- .LP -->

+The actual <emphasis remap='I'>config</emphasis> function will be chosen by IM Server at the

+pre-connection time, matching by the <emphasis remap='I'>transport_name</emphasis> specified

+in the <function>_XimTransportRec</function> array; The specific members of XimProto

+structure listed below must be initialized so that point they

+appropriate transporter functions.

+</para>

+

+<para>

+If the specified transporter has been configured successfully, this

+function returns True. There is no Alternative Entry for config

+function itself.

+</para>

+

+<para>

+The structure XimProto contains the following function pointers:

+</para>

+

+<literallayout class="monospaced">

+Bool (*connect)();               /* Open connection */

+Bool (*shutdown)();              /* Close connection */

+Bool (*write)();                 /* Write data */

+Bool (*read)();                  /* Read data */

+Bool (*flush)();                 /* Flush data buffer */

+Bool (*register_dispatcher)();   /* Register asynchronous data handler */

+Bool (*call_dispatcher)();       /* Call dispatcher */

+</literallayout>

+

+<para>

+These functions are called when Xlib needs to communicate the

+IM Server. These functions must process the appropriate procedure

+described below.

+</para>

+

+</sect2>

+</sect1>

+<sect1 id="The_interface_transport_layer_functions">

+<title>The interface/transport layer functions</title>

+<para>

+Following functions are used for the transport interface.

+</para>

+

+<table frame="all" id="transport_layer_functions_2">

+  <title>The Transport Layer Functions</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="3*" colsep="1"/>

+  <colspec colname="col2" colwidth="3*" colsep="1"/>

+  <colspec colname="col3" colwidth="1*" colsep="1"/>

+  <thead>

+    <row>

+      <entry align="center">Alternate Entry (Interface Layer)</entry>

+      <entry align="center">XimProto member (Transport Layer)</entry>

+      <entry align="center">Section</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row>

+      <entry>_XimConnect</entry>

+      <entry>connect</entry>

+      <entry>3.1</entry>

+    </row>

+    <row>

+      <entry>_XimShutdown</entry>

+      <entry>shutdown</entry>

+      <entry>3.2</entry>

+    </row>

+    <row>

+      <entry>_XimWrite</entry>

+      <entry>write</entry>

+      <entry>3.3</entry>

+    </row>

+    <row>

+      <entry>_XimRead</entry>

+      <entry>read</entry>

+      <entry>3.4</entry>

+    </row>

+    <row>

+      <entry>_XimFlush</entry>

+      <entry>flush</entry>

+      <entry>3.5</entry>

+    </row>

+    <row>

+      <entry>_XimRegisterDispatcher</entry>

+      <entry>register_dispatcher</entry>

+      <entry>3.6</entry>

+    </row>

+    <row>

+      <entry>_XimCallDispatcher</entry>

+      <entry>call_dispatcher</entry>

+      <entry>3.7</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+The Protocol layer calls the above functions using the Alternative

+Entry in the left column. The transport implementation defines

+XimProto member function in the right column. The Alternative Entry is

+provided so as to make easier to implement the Protocol Layer.

+</para>

+

+<sect2 id="Opening_connection">

+<title>Opening connection</title>

+<para>

+<!-- .LP -->

+When <function>XOpenIM</function> is called, the following function is called to connect

+with the IM Server.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>(*connect)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This function must establishes the connection to the IM Server. If the

+connection is established successfully, this function returns True.

+The Alternative Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimConnect</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+</sect2>

+

+<sect2 id="Closing_connection">

+<title>Closing connection</title>

+<!-- .XS -->

+<!-- (SN Closing connection -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+When <function>XCloseIM</function> is called, the following function is called to

+disconnect the connection with the IM Server. The Alternative Entry

+for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> (*shutdown)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+<!-- .LP -->

+This function must close connection with the IM Server. If the

+connection is closed successfully, this function returns True. The

+Alternative Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>_XimShutdown</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect2>

+

+<sect2 id="Writing_data">

+<title>Writing data</title>

+<para>

+The following function is called, when Xlib needs to write data to the

+IM Server.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimWrite</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the length of writing data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the writing data.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This function writes the <emphasis remap='I'>data</emphasis> to the IM Server, regardless

+of the contents.  The number of bytes is passed to <emphasis remap='I'>len</emphasis>. The

+writing data is passed to <emphasis remap='I'>data</emphasis>. If data is sent successfully,

+the function returns True. Refer to "The Input Method Protocol" for

+the contents of the writing data. The Alternative Entry for this

+function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>_XimWrite</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the length of writing data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the writing data.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect2>

+<sect2 id="Reading_data">

+<title>Reading data</title>

+<para>

+The following function is called when Xlib waits for response from IM

+server synchronously.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimRead</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>XPointer<parameter> read_buf</parameter></paramdef>

+  <paramdef>int<parameter> buf_len</parameter></paramdef>

+  <paramdef>int<parameter> *ret_len</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>read_buf</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the buffer to store data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>buf_len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the size of the <emphasis remap='I'>buffer</emphasis>

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>ret_len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the length of stored data.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This function stores the read data in <emphasis remap='I'>read_buf</emphasis>, which size is

+specified as <emphasis remap='I'>buf_len</emphasis>. The size of data is set to <emphasis remap='I'>ret_len</emphasis>.

+This function return True, if the data is read normally or reading

+data is completed.

+</para>

+<para>

+The Alternative Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimRead</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> *ret_len</parameter></paramdef>

+  <paramdef>XPointer<parameter> buf</parameter></paramdef>

+  <paramdef>int<parameter> buf_len</parameter></paramdef>

+  <paramdef>Bool<parameter> (*predicate)()</parameter></paramdef>

+  <paramdef>XPointer<parameter> predicate_arg</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>ret_len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>buf</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the buffer to store data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>buf_len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the length of <emphasis remap='I'>buffer</emphasis>.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>predicate</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the predicate for the XIM data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>predicate_arg</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the predicate specific data.

+<!-- .sp 6p -->

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+The predicate procedure indicates whether the <emphasis remap='I'>data</emphasis> is for the

+XIM or not. <emphasis remap='I'>len</emphasis>

+This function stores the read data in <emphasis remap='I'>buf</emphasis>, which size

+is specified as <emphasis remap='I'>buf_len</emphasis>. The size of data is set to

+<emphasis remap='I'>ret_len</emphasis>.  If <emphasis remap='I'>preedicate()</emphasis>

+returns True, this function returns True.  If not, it calls the registered callback function.

+</para>

+

+<para>

+The procedure and its arguments are:

+</para>

+

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>void <function>(*predicate)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> data</parameter></paramdef>

+  <paramdef>XPointer<parameter> predicate_arg</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the buffer to store data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>predicate_arg</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the predicate specific data.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect2>

+<sect2 id="Flushing_buffer">

+<title>Flushing buffer</title>

+<para>

+The following function is called when Xlib needs to flush the data.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>void <function>(*flush)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+This function must flush the data stored in internal buffer on the

+transport layer. If data transfer is completed, the function returns

+True.  The Alternative Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>void <function> _XimFlush</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect2>

+<sect2 id="Registering_asynchronous_data_handler">

+<title>Registering asynchronous data handler</title>

+<para>

+Xlib needs to handle asynchronous response from IM Server. This is

+because some of the XIM data occur asynchronously to X events.

+</para>

+

+<para>

+Those data will be handled in the <emphasis remap='I'>Filter</emphasis>,

+and the <emphasis remap='I'>Filter</emphasis>

+will call asynchronous data handler in the protocol layer. Then it

+calls dispatchers in the transport layer. The dispatchers are

+implemented by the protocol layer. This function must store the

+information and prepare for later call of the dispatchers using

+<function>_XimCallDispatcher</function>.

+</para>

+

+<para>

+When multiple dispatchers are registered, they will be called

+sequentially in order of registration, on arrival of asynchronous

+data. The register_dispatcher is declared as following:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>(*register_dispatcher)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>Bool<parameter> (*dispatcher)()</parameter></paramdef>

+  <paramdef>XPointer<parameter> call_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>dispatcher</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the dispatcher function to register.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>call_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies a parameter for the <emphasis remap='I'>dispatcher</emphasis>.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+The dispatcher is a function of the following type:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>(*dispatcher)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> data</parameter></paramdef>

+  <paramdef>XPointer<parameter> call_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the size of the <emphasis remap='I'>data</emphasis> buffer.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the buffer to store data.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>call_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies a parameter passed to the register_dispatcher.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+The dispatcher is provided by the protocol layer. They are called once

+for every asynchronous data, in order of registration. If the data is

+used, it must return True. otherwise, it must return False.

+</para>

+

+<para>

+If the dispatcher function returns True, the Transport Layer assume

+that the data has been processed by the upper layer.  The Alternative

+Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimRegisterDispatcher</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>Bool<parameter> (*dispatcher)()</parameter></paramdef>

+  <paramdef>XPointer<parameter> call_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>dispatcher</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the dispatcher function to register.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>call_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies a parameter for the <emphasis remap='I'>dispatcher</emphasis>.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+</sect2>

+<sect2 id="Calling_dispatcher">

+<title>Calling dispatcher</title>

+<para>

+The following function is used to call the registered dispatcher

+function, when the asynchronous response from IM Server has arrived.

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>(*call_dispatcher)</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>im</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies XIM structure address.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>len</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the size of <emphasis remap='I'>data</emphasis> buffer.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the buffer to store data.

+      </para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+The call_dispatcher must call the dispatcher function, in order of

+their registration. <emphasis remap='I'>len</emphasis> and <emphasis remap='I'>data</emphasis> are the data passed to

+register_dispatcher.

+</para>

+

+<para>

+The return values are checked at each invocation, and if it finds

+True, it immediately return with true for its return value.

+</para>

+

+<para>

+It is depend on the upper layer whether the read data is XIM

+Protocol packet unit or not.

+The Alternative Entry for this function is:

+</para>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function> _XimCallDispatcher</function></funcdef>

+  <paramdef>XIM<parameter> im</parameter></paramdef>

+  <paramdef>INT16<parameter> len</parameter></paramdef>

+  <paramdef>XPointer<parameter> call_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+</sect2>

+</sect1>

+<sect1 id="Sample_implementations_for_the_Transport_Layer">

+<title>Sample implementations for the Transport Layer</title>

+<para>

+Sample implementations for the transporter using the X connection is

+described here.

+</para>

+

+<sect2 id="X_Transport">

+<title>X Transport</title>

+<para>

+At the beginning of the X Transport connection for the XIM transport

+mechanism, two different windows must be created either in an Xlib XIM

+or in an IM Server, with which the Xlib and the IM Server exchange the

+XIM transports by using the ClientMessage events and Window Properties.

+In the following, the window created by the Xlib is referred as the

+"client communication window", and on the other hand, the window created

+by the IM Server is referred as the "IMS communication window".

+</para>

+

+<sect3 id="Connection">

+<title>Connection</title>

+<para>

+In order to establish a connection, a communication window is created.

+A ClientMessage in the following event's format is sent to the owner

+window of XIM_SERVER selection, which the IM Server has created.

+</para>

+

+<para>

+<!-- .LP -->

+Refer to "The Input Method Protocol" for the XIM_SERVER atom.

+</para>

+

+<table frame="none" id="transport_layer_functions">

+  <title>The ClientMessage sent to the IMS window.</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_CONNECT", false)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>32</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[0]</entry>

+      <entry>client communication window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[1]</entry>

+      <entry>client-major-transport-version(*1)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[2]</entry>

+      <entry>client-major-transport-version(*1)</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+In order to establish the connection (to notify the IM Server communication

+window), the IM Server sends a ClientMessage in the following event's

+format to the client communication window.

+</para>

+

+<table frame="none" id="clientmessage_sent_by_im_server">

+  <title>The ClientMessage sent by IM Server.</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_CONNECT", false)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>32</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[0]</entry>

+      <entry>client communication window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[1]</entry>

+      <entry>client-major-transport-version(*1)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[2]</entry>

+      <entry>client-major-transport-version(*1)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[3]</entry>

+      <entry>dividing size between ClientMessage and Property(*2)</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+(*1) major/minor-transport-version

+</para>

+

+<para>

+The read/write method is decided by the combination of

+major/minor-transport-version, as follows:

+</para>

+

+<table frame="all" id="readwrite_method_and_the_majorminor_transport_version">

+<title>The read/write method and the major/minor-transport-version</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="1"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3*" colsep="1"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="center"/>

+  <thead>

+    <row>

+      <entry spanname="span-horiz">Transport-version</entry>

+      <entry>read/write</entry>

+    </row>

+    <row>

+      <entry>major</entry>

+      <entry>minor</entry>

+      <entry></entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry morerows="2">0</entry>

+      <entry>0</entry>

+      <entry>only-CM &amp; Property-with-CM</entry>

+    </row>

+    <row rowsep="0">

+      <entry>1</entry>

+      <entry>only-CM &amp; multi-CM</entry>

+    </row>

+    <row rowsep="1">

+      <entry>2</entry>

+      <entry>only-CM &amp; multi-CM &amp; Property-with-CM</entry>

+    </row>

+    <row rowsep="1">

+      <entry>1</entry>

+      <entry>0</entry>

+      <entry>PropertyNotify</entry>

+    </row>

+    <row rowsep="0">

+      <entry morerows="1">2</entry>

+      <entry>0</entry>

+      <entry>only-CM &amp; PropertyNotify</entry>

+    </row>

+    <row>

+      <entry>1</entry>

+      <entry>only-CM &amp; multi-CM &amp; PropertyNotify</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<literallayout class="monospaced">

+only-CM            :    data is sent via a ClientMessage

+multi-CM           :    data is sent via multiple ClientMessages

+Property-with-CM   :    data is written in Property, and its Atom

+                        is send via ClientMessage

+PropertyNotify     :    data is written in Property, and its Atom

+                        is send via PropertyNotify

+

+</literallayout>

+

+

+<para>

+The method to decide major/minor-transport-version is as follows:

+</para>

+

+<itemizedlist>

+  <listitem>

+    <para>

+The client sends 0 as major/minor-transport-version to the IM Server.

+The client must support all methods in Table 4-3. <!-- xref -->

+The client may send another number as major/minor-transport-version to

+use other method than the above in the future.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+The IM Server sends its major/minor-transport-version number to

+the client. The client sends data using the method specified by the

+IM Server.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+If major/minor-transport-version number is not available, it is regarded

+as 0.

+    </para>

+  </listitem>

+</itemizedlist>

+

+<para>

+(*2) dividing size between ClientMessage and Property

+</para>

+

+<para>

+If data is sent via both of multi-CM and Property, specify the dividing

+size between ClientMessage and Property. The data, which is smaller than

+this size, is sent via multi-CM (or only-CM), and the data, which is

+lager than this size, is sent via Property.

+</para>

+

+</sect3>

+

+<sect3 id="read_write_">

+<title>read/write  </title>

+<para>

+The data is transferred via either ClientMessage or Window Property in

+the X Window System.

+</para>

+

+<sect4 id="Format_for_the_data_from_the_Client_to_the_IM_Server">

+<title>Format for the data from the Client to the IM Server</title>

+<para>

+<emphasis role="bold">ClientMessage</emphasis>

+</para>

+

+<para>

+If data is sent via ClientMessage event, the format is as follows:

+</para>

+

+<table frame="none" id="clientmessage_events_format_first_or_middle">

+  <title>The ClientMessage event's format (first or middle)</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_MOREDATA", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>char</entry>

+      <entry>data.b[20]</entry>

+      <entry>(read/write DATA : 20 byte)</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+

+

+<table frame="none" id="clientmessage_events_format_only_or_last">

+  <title>The ClientMessage event's format (only or last)</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>char</entry>

+      <entry>data.b[20]</entry>

+      <entry>(read/write DATA : MAX 20 byte)

+<footnote><para>If the data is smaller

+than 20 bytes, all data other than available data must be 0.

+</para></footnote>

+      </entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+<emphasis role="bold">Property</emphasis>

+</para>

+

+<para>

+In the case of large data, data will be sent via the Window Property

+for the efficiency.  There are the following two methods to notify

+Property, and transport-version is decided which method is used.

+</para>

+

+<itemizedlist>

+  <listitem>

+    <para>

+The XChangeProperty function is used to store data in the client

+communication window, and Atom of the stored data is notified to the

+IM Server via ClientMessage event.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+The XChangeProperty function is used to store data in the client

+communication window, and Atom of the stored data is notified to the

+IM Server via PropertyNotify event.

+    </para>

+  </listitem>

+</itemizedlist>

+

+<para>

+The arguments of the XChangeProperty are as follows:

+</para>

+

+

+<table frame="none" id="xchangeproperty_events_format">

+  <title>The XChangeProperty event's format</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Argument</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS communication window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>property</entry>

+      <entry>read/write property Atom (*1)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>mode</entry>

+      <entry>PropModeAppend</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_char</entry>

+      <entry>*data</entry>

+      <entry>read/write DATA</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>nelements</entry>

+      <entry>length of DATA</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+(*1) The read/write property ATOM allocates the following strings by

+<function>XInternAtom</function>.

+"_clientXXX"

+</para>

+

+<para>

+The client changes the property with the mode of PropModeAppend and

+the IM Server will read it with the delete mode i.e. (delete = True).

+</para>

+

+<para>

+If Atom is notified via ClientMessage event, the format of the ClientMessage

+is as follows:

+</para>

+

+<table frame="none" id="clientmessage_events_format_to_send_atom_of_property">

+  <title>The ClientMessage event's format to send Atom of property</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[0]</entry>

+      <entry>length of read/write property Atom</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[1]</entry>

+      <entry>read/write property Atom</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+</sect4>

+

+<sect4 id="Format_for_the_data_from_the_IM_Server_to_the_Client">

+<title>Format for the data from the IM Server to the Client</title>

+<para>

+<emphasis role="bold">ClientMessage</emphasis>

+</para>

+

+<para>

+The format of the ClientMessage is as follows:

+</para>

+

+<table frame="none" id="clientmessage_events_format_first_or_middle_2">

+  <title>The ClientMessage event's format (first or middle)</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_MOREDATA", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>char</entry>

+      <entry>data.b[20]</entry>

+      <entry>(read/write DATA : 20 byte)</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+

+

+

+

+<table frame="none" id="clientmessage_events_format_only_or_last_2">

+  <title>The ClientMessage event's format (only or last)</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>char</entry>

+      <entry>data.b[20]</entry>

+      <entry>(read/write DATA : MAX 20 byte) (*1)</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+(*1) If the data size is smaller than 20 bytes, all data other than available

+data must be 0.

+</para>

+

+<para>

+<emphasis role="bold">Property</emphasis>

+</para>

+

+<para>

+In the case of large data, data will be sent via the Window Property

+for the efficiency. There are the following two methods to notify

+Property, and transport-version is decided which method is used.

+</para>

+

+<itemizedlist>

+  <listitem>

+    <para>

+The XChangeProperty function is used to store data in the IMS

+communication window, and Atom of the property is sent via the

+ClientMessage event.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+The XChangeProperty function is used to store data in the IMS

+communication window, and Atom of the property is sent via

+PropertyNotify event.

+    </para>

+  </listitem>

+</itemizedlist>

+

+<para>

+The arguments of the XChangeProperty are as follows:

+</para>

+

+<table frame="none" id="xchangeproperty_events_format_b">

+  <title>The XChangeProperty event's format</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Argument</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS communication window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>property</entry>

+      <entry>read/write property Atom (*1)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>mode</entry>

+      <entry>PropModeAppend</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_char</entry>

+      <entry>*data</entry>

+      <entry>read/write DATA</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>nelements</entry>

+      <entry>length of DATA</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+<para>

+(*1) The read/write property ATOM allocates some strings, which are not

+allocated by the client, by <function>XInternAtom</function>.

+</para>

+

+<para>

+The IM Server changes the property with the mode of PropModeAppend and

+the client reads it with the delete mode, i.e. (delete = True).

+</para>

+

+<para>

+If Atom is notified via ClientMessage event, the format of the ClientMessage

+is as follows:

+</para>

+

+<table frame="none" id="clientmessage_events_format_to_send_atom_of_property_2">

+  <title>The ClientMessage event's format to send Atom of property</title>

+  <tgroup cols="3">

+  <colspec colname="col1" colwidth="1*" colsep="0"/>

+  <colspec colname="col2" colwidth="1*" colsep="1"/>

+  <colspec colname="col3" colwidth="3.5*" colsep="0"/>

+  <spanspec namest="col1" nameend="col2" spanname="span-horiz" align="left"/>

+  <thead>

+    <row>

+      <entry align="left" spanname="span-horiz">Structure Member</entry>

+      <entry align="left">Contents</entry>

+    </row>

+  </thead>

+  <tbody>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>type</entry>

+      <entry>ClientMessage</entry>

+    </row>

+    <row rowsep="0">

+      <entry>u_long</entry>

+      <entry>serial</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Bool</entry>

+      <entry>send_event</entry>

+      <entry>Set by the X Window System</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Display</entry>

+      <entry>*display</entry>

+      <entry>The display to which connects</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Window</entry>

+      <entry>window</entry>

+      <entry>IMS Window ID</entry>

+    </row>

+    <row rowsep="0">

+      <entry>Atom</entry>

+      <entry>message_type</entry>

+      <entry>XInternAtom(display, "_XIM_PROTOCOL", False)</entry>

+    </row>

+    <row rowsep="0">

+      <entry>int</entry>

+      <entry>format</entry>

+      <entry>8</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[0]</entry>

+      <entry>length of read/write property Atom</entry>

+    </row>

+    <row rowsep="0">

+      <entry>long</entry>

+      <entry>data.1[1]</entry>

+      <entry>read/write property Atom</entry>

+    </row>

+  </tbody>

+  </tgroup>

+</table>

+

+</sect4>

+</sect3>

+<sect3 id="Closing_Connection">

+<title>Closing Connection</title>

+

+<para>

+If the client disconnect with the IM Server, shutdown function should

+free the communication window properties and etc..

+</para>

+

+</sect3>

+</sect2>

+</sect1>

+

+<sect1 id="References">

+<title>References</title>

+<para>

+[1] Masahiko Narita and Hideki Hiura, <emphasis remap='I'>"The Input Method Protocol"</emphasis>

+</para>

+</sect1>

+

+</chapter>

+</book>

diff --git a/libX11/specs/libX11/CH02.xml b/libX11/specs/libX11/CH02.xml
index f4ef1bcd8..4912f71ed 100644
--- a/libX11/specs/libX11/CH02.xml
+++ b/libX11/specs/libX11/CH02.xml
@@ -1,3489 +1,3489 @@
-<?xml version="1.0" encoding="UTF-8" ?>
-<!DOCTYPE chapter PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"
-	  "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">
-<chapter id="display_functions">
-<title>Display Functions</title>
-<para>
-Before your program can use a display, you must establish a connection
-to the X server.
-Once you have established a connection,
-you then can use the Xlib macros and functions discussed in this chapter
-to return information about the display.
-This chapter discusses how to:
-</para>
-<itemizedlist>
-  <listitem>
-    <para>
-Open (connect to) the display
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Obtain information about the display, image formats, or screens
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Generate a
-<systemitem>NoOperation</systemitem>
-protocol request
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Free client-created data
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Close (disconnect from) a display
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Use X Server connection close operations
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Use Xlib with threads
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Use internal connections
-    </para>
-  </listitem>
-</itemizedlist>
-<sect1 id="Opening_the_Display">
-<title>Opening the Display</title>
-<!-- .XS -->
-<!-- (SN Opening the Display -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-To open a connection to the X server that controls a display, use
-<function>XOpenDisplay</function>.
-<indexterm significance="preferred"><primary>XOpenDisplay</primary></indexterm>
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Display *<function>XOpenDisplay</function></funcdef>
-  <paramdef>char *<parameter>display_name</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display_name</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the hardware display name, which determines the display
-and communications domain to be used.
-On a <acronym>POSIX</acronym>-conformant system, if the display_name is NULL, 
-it defaults to the value of the DISPLAY environment variable. 
-<indexterm><primary>Environment</primary><secondary>DISPLAY</secondary></indexterm>
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The encoding and interpretation of the display name are
-implementation-dependent.
-Strings in the Host Portable Character Encoding are supported;
-support for other characters is implementation-dependent.
-On <acronym>POSIX</acronym>-conformant systems,
-the display name or DISPLAY environment variable can be a string in the format:
-</para>
-<!-- .LP -->
-<!-- .sM -->
-<literallayout class="monospaced">
-<!-- .TA 1i -->
-<!-- .ta 1i -->
-	<emphasis remap='I'>protocol</emphasis>/<emphasis remap='I'>hostname</emphasis>:<emphasis remap='I'>number</emphasis>.<emphasis remap='I'>screen_number</emphasis>
-</literallayout>
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>protocol</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies a protocol family or an alias for a protocol family.  Supported 
-protocol families are implementation dependent.  The protocol entry is 
-optional.  If protocol is not specified, the / separating protocol and 
-hostname must also not be specified.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>hostname</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the name of the host machine on which the display is physically
-attached.
-You follow the hostname with either a single colon (:) or a double colon (::).
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the number of the display server on that host machine.
-You may optionally follow this display number with a period (.).
-A single <acronym>CPU</acronym> can have more than one display.
-Multiple displays are usually numbered starting with zero.
-<indexterm><primary>Screen</primary></indexterm>
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the screen to be used on that server.
-Multiple screens can be controlled by a single X server.
-The screen_number sets an internal variable that can be accessed by
-using the 
-<function>DefaultScreen</function>
-macro or the 
-<function>XDefaultScreen</function>
-function if you are using languages other than C (see section 2.2.1).
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-For example, the following would specify screen 1 of display 0 on the 
-machine named ``dual-headed'':
-</para>
-<para>
-<!-- .LP -->
-<literallayout class="monospaced">
-dual-headed:0.1
-</literallayout>
-</para>
-<para>
-<!-- .LP -->
-The
-<function>XOpenDisplay</function>
-function returns a 
-<type>Display</type>
-structure that serves as the
-connection to the X server and that contains all the information
-about that X server.
-<function>XOpenDisplay</function>
-connects your application to the X server through <acronym>TCP</acronym>
-or DECnet communications protocols,
-or through some local inter-process communication protocol.
-<indexterm><primary>Protocol</primary><secondary><acronym>TCP</acronym></secondary></indexterm>
-<indexterm><primary>Protocol</primary><secondary>DECnet</secondary></indexterm>
-If the protocol is specified as "tcp", "inet", or "inet6", or
-if no protocol is specified and the hostname is a host machine name and a single colon (:)
-separates the hostname and display number,
-<function>XOpenDisplay</function>
-connects using <acronym>TCP</acronym> streams.  (If the protocol is specified as "inet", <acronym>TCP</acronym> over
-IPv4 is used.  If the protocol is specified as "inet6", <acronym>TCP</acronym> over IPv6 is used.
-Otherwise, the implementation determines which <acronym>IP</acronym> version is used.)
-If the hostname and protocol are both not specified,
-Xlib uses whatever it believes is the fastest transport.
-If the hostname is a host machine name and a double colon (::)
-separates the hostname and display number,
-<function>XOpenDisplay</function>
-connects using DECnet.
-A single X server can support any or all of these transport mechanisms
-simultaneously.
-A particular Xlib implementation can support many more of these transport
-mechanisms.
-</para>
-<para>
-<!-- .LP -->
-<indexterm><primary>Display</primary></indexterm>
-If successful, 
-<function>XOpenDisplay</function>
-returns a pointer to a 
-<type>Display</type>
-structure,
-which is defined in 
-<filename class="headerfile">&lt;X11/Xlib.h&gt;</filename>.
-<indexterm type="file"><primary><filename class="headerfile">X11/Xlib.h</filename></primary></indexterm>
-<indexterm><primary>Files</primary><secondary><filename class="headerfile">&lt;X11/Xlib.h&gt;</filename></secondary></indexterm>
-<indexterm><primary>Headers</primary><secondary><filename class="headerfile">&lt;X11/Xlib.h&gt;</filename></secondary></indexterm>
-If 
-<function>XOpenDisplay</function>
-does not succeed, it returns NULL.
-After a successful call to
-<function>XOpenDisplay</function>,
-all of the screens in the display can be used by the client.
-The screen number specified in the display_name argument is returned 
-by the 
-<function>DefaultScreen</function>
-macro (or the
-<function>XDefaultScreen</function>
-function).
-You can access elements of the
-<type>Display</type>
-and
-<type>Screen</type>
-structures only by using the information macros or functions.
-For information about using macros and functions to obtain information from 
-the
-<type>Display</type>
-structure,
-see section 2.2.1.
-</para>
-<para>
-<!-- .LP -->
-X servers may implement various types of access control mechanisms
-(see section 9.8).
-</para>
-</sect1>
-<sect1 id="Obtaining_Information_about_the_Display_Image_Formats_or_Screens">
-<title>Obtaining Information about the Display, Image Formats, or Screens</title>
-<!-- .XS -->
-<!-- (SN Obtaining Information about the Display, Image Formats, or Screens -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-The Xlib library provides a number of useful macros 
-and corresponding functions that return data from the 
-<type>Display</type>
-structure.
-The macros are used for C programming, 
-and their corresponding function equivalents are for other language bindings.
-This section discusses the:
-</para>
-<itemizedlist>
-  <listitem>
-    <para>
-Display macros
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Image format functions and macros
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-Screen information macros
-    </para>
-  </listitem>
-</itemizedlist>
-<para>
-<!-- .LP -->
-<indexterm ><primary>Display</primary><secondary>data structure</secondary></indexterm>
-All other members of the 
-<type>Display</type>
-structure (that is, those for which no macros are defined) are private to Xlib 
-and must not be used.
-Applications must never directly modify or inspect these private members of the 
-<type>Display</type>
-structure.
-<!-- .NT Note -->
-The
-<function>XDisplayWidth</function>,
-<function>XDisplayHeight</function>,
-<function>XDisplayCells</function>,
-<function>XDisplayPlanes</function>,
-<function>XDisplayWidthMM</function>,
-and
-<function>XDisplayHeightMM</function>
-functions in the next sections are misnamed.
-These functions really should be named Screen<emphasis remap='I'>whatever</emphasis> 
-and XScreen<emphasis remap='I'>whatever</emphasis>, not Display<emphasis remap='I'>whatever</emphasis> or XDisplay<emphasis remap='I'>whatever</emphasis>.
-Our apologies for the resulting confusion.
-<!-- .NE -->
-</para>
-<sect2 id="Display_Macros_">
-<title>Display Macros </title>
-<!-- .XS -->
-<!-- (SN Display Macros -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-Applications should not directly modify any part of the
-<type>Display</type>
-and
-<type>Screen</type>
-structures.
-The members should be considered read-only,
-although they may change as the result of other operations on the display.
-</para>
-<para>
-<!-- .LP  -->
-The following lists the C language macros,
-their corresponding function equivalents that are for other language bindings,
-and what data both can return.
-</para>
-<para>AllPlanes()</para>
-<para>XAllPlanes()</para>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>AllPlanes</primary></indexterm>
-<indexterm significance="preferred"><primary>XAllPlanes</primary></indexterm>
-Both return a value with all bits set to 1 suitable for use in a plane argument to
-a procedure.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-Both 
-<function>BlackPixel</function>
-and 
-<function>WhitePixel</function>
-can be used in implementing a monochrome application.
-These pixel values are for permanently allocated entries in the default
-colormap.
-The actual <acronym>RGB</acronym> (red, green, and blue) values are settable on some screens 
-and, in any case, may not actually be black or white.
-The names are intended to convey the expected relative intensity of the colors.
-<!-- .sM -->
-</para>
-<para>
-BlackPixel(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XBlackPixel</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>BlackPixel</primary></indexterm>
-<indexterm significance="preferred"><primary>XBlackPixel</primary></indexterm>
-Both return the black pixel value for the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-WhitePixel(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XWhitePixel</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>WhitePixel</primary></indexterm>
-<indexterm significance="preferred"><primary>XWhitePixel</primary></indexterm>
-Both return the white pixel value for the specified screen. 
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ConnectionNumber(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XConnectionNumber</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ConnectionNumber</primary></indexterm>
-<indexterm significance="preferred"><primary>XConnectionNumber</primary></indexterm>
-Both return a connection number for the specified display.
-On a <acronym>POSIX</acronym>-conformant system,
-this is the file descriptor of the connection.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultColormap(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Colormap <function>XDefaultColormap</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultColormap</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultColormap</primary></indexterm>
-Both return the default colormap ID for allocation on the specified screen.
-Most routine allocations of color should be made out of this colormap.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultDepth(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDefaultDepth</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultDepth</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultDepth</primary></indexterm>
-Both return the depth (number of planes) of the default root window for the
-specified screen.
-Other depths may also be supported on this screen (see
-<function>XMatchVisualInfo</function>).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<indexterm significance="preferred"><primary>XListDepths</primary></indexterm>
-To determine the number of depths that are available on a given screen, use
-<function>XListDepths</function>.
-<!-- .sM -->
-</para>
-<para>
-DefaultGC(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>GC <function>XDefaultGC</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-  <paramdef>int<parameter> *count_return</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-<!-- .ds Cn depths -->
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>count_return</emphasis>
-    </term>
-    <listitem>
-      <para>
-Returns the number of (Cn.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XListDepths</function>
-function returns the array of depths 
-that are available on the specified screen.
-If the specified screen_number is valid and sufficient memory for the array
-can be allocated,
-<function>XListDepths</function>
-sets count_return to the number of available depths.
-Otherwise, it does not set count_return and returns NULL.
-To release the memory allocated for the array of depths, use
-<function>XFree</function>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultGC(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>GC <function>XDefaultGC</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultGC</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultGC</primary></indexterm>
-Both return the default graphics context for the root window of the 
-specified screen.
-This GC is created for the convenience of simple applications
-and contains the default GC components with the foreground and
-background pixel values initialized to the black and white
-pixels for the screen, respectively.
-You can modify its contents freely because it is not used in any Xlib
-function.
-This GC should never be freed.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultRootWindow(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Window <function>XDefaultRootWindow</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultRootWindow</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultRootWindow</primary></indexterm>
-Both return the root window for the default screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultScreenOfDisplay(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Screen *<function>XDefaultScreenOfDisplay</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultScreenOfDisplay</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultScreenOfDisplay</primary></indexterm>
-Both return a pointer to the default screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ScreenOfDisplay(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Screen *<function>XScreenOfDisplay</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ScreenOfDisplay</primary></indexterm>
-<indexterm significance="preferred"><primary>XScreenOfDisplay</primary></indexterm>
-Both return a pointer to the indicated screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultScreen(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDefaultScreen</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultScreen</primary></indexterm>
-Both return the default screen number referenced by the 
-<function>XOpenDisplay</function>
-function. 
-This macro or function should be used to retrieve the screen number 
-in applications that will use only a single screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultVisual(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Visual *<function>XDefaultVisual</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultVisual</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultVisual</primary></indexterm>
-Both return the default visual type for the specified screen.
-For further information about visual types,
-see section 3.1.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayCells(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayCells</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayCells</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayCells</primary></indexterm>
-Both return the number of entries in the default colormap.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayPlanes(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayPlanes</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayPlanes</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayPlanes</primary></indexterm>
-Both return the depth of the root window of the specified screen.
-For an explanation of depth,
-see the glossary.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayString(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>char *<function>XDisplayString</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayString</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayString</primary></indexterm>
-Both return the string that was passed to 
-<function>XOpenDisplay</function>
-when the current display was opened. 
-On <acronym>POSIX</acronym>-conformant systems,
-if the passed string was NULL, these return the value of
-the DISPLAY environment variable when the current display was opened.
-<indexterm><primary><acronym>POSIX</acronym> System Call</primary><secondary>fork</secondary></indexterm>
-These are useful to applications that invoke the 
-<function>fork</function>
-system call and want to open a new connection to the same display from the 
-child process as well as for printing error messages.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>XExtendedMaxRequestSize</primary></indexterm>
-The
-<function>XExtendedMaxRequestSize</function>
-function returns zero if the specified display does not support an
-extended-length protocol encoding; otherwise,
-it returns the maximum request size (in 4-byte units) supported
-by the server using the extended-length encoding.
-The Xlib functions
-<function>XDrawLines</function>,
-<function>XDrawArcs</function>,
-<function>XFillPolygon</function>,
-<function>XChangeProperty</function>,
-<function>XSetClipRectangles</function>,
-and
-<function>XSetRegion</function>
-will use the extended-length encoding as necessary, if supported
-by the server.  Use of the extended-length encoding in other Xlib
-functions (for example,
-<function>XDrawPoints</function>,
-<function>XDrawRectangles</function>,
-<function>XDrawSegments</function>,
-<function>XFillArcs</function>,
-<function>XFillRectangles</function>,
-<function>XPutImage</function>)
-is permitted but not required; an Xlib implementation may choose to
-split the data across multiple smaller requests instead.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>XMaxRequestSize</primary></indexterm>
-The
-<function>XMaxRequestSize</function>
-function returns the maximum request size (in 4-byte units) supported
-by the server without using an extended-length protocol encoding.
-Single protocol requests to the server can be no larger than this size
-unless an extended-length protocol encoding is supported by the server.
-The protocol guarantees the size to be no smaller than 4096 units
-(16384 bytes).
-Xlib automatically breaks data up into multiple protocol requests
-as necessary for the following functions:
-<function>XDrawPoints</function>,
-<function>XDrawRectangles</function>,
-<function>XDrawSegments</function>,
-<function>XFillArcs</function>,
-<function>XFillRectangles</function>,
-and 
-<function>XPutImage</function>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>LastKnownRequestProcessed</primary></indexterm>
-<indexterm significance="preferred"><primary>XLastKnownRequestProcessed</primary></indexterm>
-Both extract the full serial number of the last request known by Xlib
-to have been processed by the X server.
-Xlib automatically sets this number when replies, events, and errors
-are received.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-NextRequest(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XNextRequest</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>NextRequest</primary></indexterm>
-<indexterm significance="preferred"><primary>XNextRequest</primary></indexterm>
-Both extract the full serial number that is to be used for the next
-request.
-Serial numbers are maintained separately for each display connection.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ProtocolVersion(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XProtocolVersion</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ProtocolVersion</primary></indexterm>
-<indexterm significance="preferred"><primary>XProtocolVersion</primary></indexterm>
-Both return the major version number (11) of the X protocol associated with 
-the connected display.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ProtocolRevision(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XProtocolRevision</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ProtocolRevision</primary></indexterm>
-<indexterm significance="preferred"><primary>XProtocolRevision</primary></indexterm>
-Both return the minor protocol revision number of the X server.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-QLength(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XQLength</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>QLength</primary></indexterm>
-<indexterm significance="preferred"><primary>XQLength</primary></indexterm>
-Both return the length of the event queue for the connected display.
-Note that there may be more events that have not been read into
-the queue yet (see
-<function>XEventsQueued</function>).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-RootWindow(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Window <function>XRootWindow</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm><primary>Window</primary><secondary>RootWindow</secondary></indexterm>
-<indexterm significance="preferred"><primary>RootWindow</primary></indexterm>
-<indexterm><primary>Window</primary><secondary>XRootWindow</secondary></indexterm>
-<indexterm significance="preferred"><primary>XRootWindow</primary></indexterm>
-Both return the root window.
-These are useful with functions that need a drawable of a particular screen
-and for creating top-level windows.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ScreenCount(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XScreenCount</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ScreenCount</primary></indexterm>
-<indexterm significance="preferred"><primary>XScreenCount</primary></indexterm>
-Both return the number of available screens.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ServerVendor(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>char *<function>XServerVendor</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ServerVendor</primary></indexterm>
-<indexterm significance="preferred"><primary>XServerVendor</primary></indexterm>
-Both return a pointer to a null-terminated string that provides
-some identification of the owner of the X server implementation.
-If the data returned by the server is in the Latin Portable Character Encoding,
-then the string is in the Host Portable Character Encoding.
-Otherwise, the contents of the string are implementation-dependent.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-VendorRelease(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XVendorRelease</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>VendorRelease</primary></indexterm>
-<indexterm significance="preferred"><primary>XVendorRelease</primary></indexterm>
-Both return a number related to a vendor's release of the X server.
-</para>
-</sect2>
-<sect2 id="Image_Format_Functions_and_Macros">
-<title>Image Format Functions and Macros</title>
-<!-- .XS -->
-<!-- (SN Image Format Functions and Macros -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-Applications are required to present data to the X server
-in a format that the server demands.
-To help simplify applications,
-most of the work required to convert the data is provided by Xlib
-(see sections 8.7 and 16.8).
-</para>
-<para>
-<!-- .LP -->
-The
-<structname>XPixmapFormatValues</structname>
-structure provides an interface to the pixmap format information
-that is returned at the time of a connection setup.
-It contains:
-</para>
-<para>
-<!-- .LP -->
-<!-- .sM -->
-<literallayout class="monospaced">
-<!-- .TA .5i 3i -->
-<!-- .ta .5i 3i -->
-typedef struct {
-	int depth;
-	int bits_per_pixel;
-	int scanline_pad;
-} XPixmapFormatValues;
-</literallayout>
-</para>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<!-- .sp -->
-To obtain the pixmap format information for a given display, use
-<function>XListPixmapFormats</function>.
-<indexterm significance="preferred"><primary>XListPixmapFormats</primary></indexterm>
-<!-- .sM -->
-</para>
-<para>
-ImageByteOrder(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XImageByteOrder</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> *count_return</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-<!-- .ds Cn pixmap formats that are supported by the display -->
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>count_return</emphasis>
-    </term>
-    <listitem>
-      <para>
-Returns the number of (Cn.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XListPixmapFormats</function>
-function returns an array of
-<structname>XPixmapFormatValues</structname>
-structures that describe the types of Z format images supported
-by the specified display.
-If insufficient memory is available,
-<function>XListPixmapFormats</function>
-returns NULL.
-To free the allocated storage for the
-<structname>XPixmapFormatValues</structname>
-structures, use
-<function>XFree</function>.
-</para>
-<para>
-<!-- .LP  -->
-The following lists the C language macros,
-their corresponding function equivalents that are for other language bindings,
-and what data they both return for the specified server and screen.
-These are often used by toolkits as well as by simple applications.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-ImageByteOrder(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XImageByteOrder</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>ImageByteOrder</primary></indexterm>
-<indexterm significance="preferred"><primary>XImageByteOrder</primary></indexterm>
-Both specify the required byte order for images for each scanline unit in 
-XY format (bitmap) or for each pixel value in 
-Z format.
-The macro or function can return either
-<symbol>LSBFirst</symbol>
-or 
-<symbol>MSBFirst</symbol>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-BitmapUnit(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XBitmapUnit</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>BitmapUnit</primary></indexterm>
-<indexterm significance="preferred"><primary>XBitmapUnit</primary></indexterm>
-Both return the size of a bitmap's scanline unit in bits.
-The scanline is calculated in multiples of this value.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-BitmapBitOrder(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XBitmapBitOrder</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>BitmapBitOrder</primary></indexterm>
-<indexterm significance="preferred"><primary>XBitmapBitOrder</primary></indexterm>
-Within each bitmap unit, the left-most bit in the bitmap as displayed
-on the screen is either the least significant or most significant bit in the
-unit.
-This macro or function can return 
-<symbol>LSBFirst</symbol>
-or 
-<symbol>MSBFirst</symbol>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-BitmapPad(<emphasis remap='I'>display</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XBitmapPad</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>BitmapPad</primary></indexterm>
-<indexterm significance="preferred"><primary>XBitmapPad</primary></indexterm>
-Each scanline must be padded to a multiple of bits returned
-by this macro or function.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayHeight(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayHeight</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayHeight</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayHeight</primary></indexterm>
-Both return an integer that describes the height of the screen
-in pixels.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayHeightMM(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayHeightMM</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayHeightMM</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayHeightMM</primary></indexterm>
-Both return the height of the specified screen in millimeters.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayWidth(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayWidth</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayWidth</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayWidth</primary></indexterm>
-Both return the width of the screen in pixels.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayWidthMM(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDisplayWidthMM</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> screen_number</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen_number</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate screen number on the host server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayWidthMM</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayWidthMM</primary></indexterm>
-Both return the width of the specified screen in millimeters.
-</para>
-</sect2>
-<sect2 id="Screen_Information_Macros">
-<title>Screen Information Macros</title>
-<!-- .XS -->
-<!-- (SN Screen Information Macros -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-The following lists the C language macros,
-their corresponding function equivalents that are for other language bindings,
-and what data they both can return.
-These macros or functions all take a pointer to the appropriate screen
-structure.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-BlackPixelOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XBlackPixelOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>BlackPixelOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XBlackPixelOfScreen</primary></indexterm>
-Both return the black pixel value of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-WhitePixelOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>unsigned long <function>XWhitePixelOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>WhitePixelOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XWhitePixelOfScreen</primary></indexterm>
-Both return the white pixel value of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-CellsOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XCellsOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>CellsOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XCellsOfScreen</primary></indexterm>
-Both return the number of colormap cells in the default colormap 
-of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultColormapOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Colormap <function>XDefaultColormapOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultColormapOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultColormapOfScreen</primary></indexterm>
-Both return the default colormap of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultDepthOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDefaultDepthOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultDepthOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultDepthOfScreen</primary></indexterm>
-Both return the depth of the root window.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultGCOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>GC <function>XDefaultGCOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultGCOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultGCOfScreen</primary></indexterm>
-Both return a default graphics context (GC) of the specified screen,
-which has the same depth as the root window of the screen.
-The GC must never be freed.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DefaultVisualOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Visual *<function>XDefaultVisualOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DefaultVisualOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDefaultVisualOfScreen</primary></indexterm>
-Both return the default visual of the specified screen.
-For information on visual types,
-see section 3.1.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DoesBackingStore(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XDoesBackingStore</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DoesBackingStore</primary></indexterm>
-<indexterm significance="preferred"><primary>XDoesBackingStore</primary></indexterm>
-Both return a value indicating whether the screen supports backing
-stores.
-The value returned can be one of 
-<symbol>WhenMapped</symbol>,
-<symbol>NotUseful</symbol>,
-or
-<symbol>Always</symbol>
-(see section 3.2.4).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DoesSaveUnders(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Bool <function>XDoesSaveUnders</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DoesSaveUnders</primary></indexterm>
-<indexterm significance="preferred"><primary>XDoesSaveUnders</primary></indexterm>
-Both return a Boolean value indicating whether the
-screen supports save unders.
-If
-<symbol>True</symbol>,
-the screen supports save unders.
-If
-<symbol>False</symbol>,
-the screen does not support save unders (see section 3.2.5).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-DisplayOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Display *<function>XDisplayOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>DisplayOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XDisplayOfScreen</primary></indexterm>
-Both return the display of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-<indexterm significance="preferred"><primary>XScreenNumberOfScreen</primary></indexterm>
-</para>
-<para>
-EventMaskOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>long <function>XEventMaskOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XScreenNumberOfScreen</function>
-function returns the screen index number of the specified screen.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-EventMaskOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>long <function>XEventMaskOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>EventMaskOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XEventMaskOfScreen</primary></indexterm>
-Both return the event mask of the root window for the specified screen
-at connection setup time.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-WidthOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XWidthOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>WidthOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XWidthOfScreen</primary></indexterm>
-Both return the width of the specified screen in pixels.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-HeightOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XHeightOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>HeightOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XHeightOfScreen</primary></indexterm>
-Both return the height of the specified screen in pixels.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-WidthMMOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XWidthMMOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>WidthMMOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XWidthMMOfScreen</primary></indexterm>
-Both return the width of the specified screen in millimeters.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-HeightMMOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XHeightMMOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>HeightMMOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XHeightMMOfScreen</primary></indexterm>
-Both return the height of the specified screen in millimeters.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-MaxCmapsOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XMaxCmapsOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>MaxCmapsOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XMaxCmapsOfScreen</primary></indexterm>
-Both return the maximum number of installed colormaps supported 
-by the specified screen (see section 9.3).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-MinCmapsOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XMinCmapsOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>MinCmapsOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XMinCmapsOfScreen</primary></indexterm>
-Both return the minimum number of installed colormaps supported 
-by the specified screen (see section 9.3).
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-PlanesOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>int <function>XPlanesOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>PlanesOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XPlanesOfScreen</primary></indexterm>
-Both return the depth of the root window.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-<!-- .sM -->
-</para>
-<para>
-RootWindowOfScreen(<emphasis remap='I'>screen</emphasis>)
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Window <function>XRootWindowOfScreen</function></funcdef>
-  <paramdef>Screen<parameter> *screen</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>screen</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the appropriate 
-<type>Screen</type>
-structure.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-<indexterm significance="preferred"><primary>RootWindowOfScreen</primary></indexterm>
-<indexterm significance="preferred"><primary>XRootWindowOfScreen</primary></indexterm>
-Both return the root window of the specified screen.
-</para>
-</sect2>
-</sect1>
-<sect1 id="Generating_a_NoOperation_Protocol_Request">
-<title>Generating a NoOperation Protocol Request</title>
-<!-- .XS -->
-<!-- (SN Generating a NoOperation Protocol Request -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-To execute a 
-<systemitem>NoOperation</systemitem>
-protocol request, use
-<function>XNoOp</function>.
-<indexterm significance="preferred"><primary>XNoOp</primary></indexterm>
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef><function>XNoOp</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term><emphasis remap='I'>display</emphasis></term>
-    <listitem>
-      <para>Specifies the connection to the X server.</para>
-    </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XNoOp</function>
-function sends a 
-<systemitem>NoOperation</systemitem>
-protocol request to the X server,
-thereby exercising the connection.
-</para>
-</sect1>
-<sect1 id="Freeing_Client_Created_Data">
-<title>Freeing Client-Created Data</title>
-<!-- .XS -->
-<!-- (SN Freeing Client-Created Data -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-To free in-memory data that was created by an Xlib function, use
-<function>XFree</function>.
-<indexterm significance="preferred"><primary>XFree</primary></indexterm>
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>XFree</funcdef>
-  <paramdef>void<parameter> *data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the data that is to be freed.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XFree</function>
-function is a general-purpose Xlib routine that frees the specified data.
-You must use it to free any objects that were allocated by Xlib,
-unless an alternate function is explicitly specified for the object.
-A NULL pointer cannot be passed to this function.
-</para>
-</sect1>
-<sect1 id="Closing_the_Display">
-<title>Closing the Display</title>
-<!-- .XS -->
-<!-- (SN Closing the Display -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-To close a display or disconnect from the X server, use
-<function>XCloseDisplay</function>.
-<indexterm significance="preferred"><primary>XCloseDisplay</primary></indexterm>
-</para>
-<para>
-<!-- .LP -->
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>XCloseDisplay</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XCloseDisplay</function>
-function closes the connection to the X server for the display specified in the
-<type>Display</type>
-structure and destroys all windows, resource IDs
-(<type>Window</type>,
-<type>Font</type>,
-<type>Pixmap</type>,
-<type>Colormap</type>,
-<type>Cursor</type>,
-and
-<type>GContext</type>),
-or other resources that the client has created
-on this display, unless the close-down mode of the resource has been changed
-(see
-<function>XSetCloseDownMode</function>).
-Therefore, these windows, resource IDs, and other resources should never be 
-referenced again or an error will be generated.
-Before exiting, you should call
-<function>XCloseDisplay</function>
-explicitly so that any pending errors are reported as
-<function>XCloseDisplay</function>
-performs a final
-<function>XSync</function>
-operation.
-<indexterm><primary>Resource IDs</primary></indexterm>
-<indexterm><primary>XCloseDisplay</primary></indexterm>
-</para>
-<para>
-<!-- .LP -->
-<function>XCloseDisplay</function>
-can generate a
-<errorname>BadGC</errorname>
-error.
-<!-- .sp -->
-</para>
-<para>
-<!-- .LP -->
-Xlib provides a function to permit the resources owned by a client
-to survive after the client's connection is closed.
-To change a client's close-down mode, use
-<function>XSetCloseDownMode</function>.
-<indexterm significance="preferred"><primary>XSetCloseDownMode</primary></indexterm>
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>XSetCloseDownMode</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> close_mode</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>close_mode</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the client close-down mode.
-You can pass 
-<symbol>DestroyAll</symbol>,
-<symbol>RetainPermanent</symbol>,
-or
-<symbol>RetainTemporary</symbol>.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XSetCloseDownMode</function>
-defines what will happen to the client's resources at connection close.
-A connection starts in
-<symbol>DestroyAll</symbol>
-mode.
-For information on what happens to the client's resources when the
-close_mode argument is
-<symbol>RetainPermanent</symbol>
-or
-<symbol>RetainTemporary</symbol>,
-see section 2.6.
-</para>
-<para>
-<!-- .LP -->
-<function>XSetCloseDownMode</function>
-can generate a
-<errorname>BadValue</errorname>
-error.
-</para>
-</sect1>
-<sect1 id="Using_X_Server_Connection_Close_Operations_">
-<title>Using X Server Connection Close Operations </title>
-<!-- .XS -->
-<!-- (SN Using X Server Connection Close Operations -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-When the X server's connection to a client is closed
-either by an explicit call to
-<function>XCloseDisplay</function>
-or by a process that exits, the X server performs the following
-automatic operations:
-</para>
-<itemizedlist>
-  <listitem>
-    <para>
-It disowns all selections owned by the client
-(see 
-<function>XSetSelectionOwner</function>).
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It performs an
-<function>XUngrabPointer</function>
-and
-<function>XUngrabKeyboard</function>
-if the client has actively grabbed the pointer 
-or the keyboard.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It performs an
-<function>XUngrabServer</function>
-if the client has grabbed the server.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It releases all passive grabs made by the client.  
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It marks all resources (including colormap entries) allocated 
-by the client either as permanent or temporary, 
-depending on whether the close-down mode is 
-<symbol>RetainPermanent</symbol>
-or
-<symbol>RetainTemporary</symbol>.
-However, this does not prevent other client applications from explicitly
-destroying the resources (see 
-<function>XSetCloseDownMode</function>).
-    </para>
-  </listitem>
-</itemizedlist>
-<para>
-<!-- .LP -->
-When the close-down mode is
-<symbol>DestroyAll</symbol>,
-the X server destroys all of a client's resources as follows:
-</para>
-<itemizedlist>
-  <listitem>
-    <para>
-It examines each window in the client's save-set to determine if it is an inferior
-(subwindow) of a window created by the client.
-(The save-set is a list of other clients' windows
-that are referred to as save-set windows.)
-If so, the X server reparents the save-set window to the closest ancestor so
-that the save-set window is not an inferior of a window created by the client.
-The reparenting leaves unchanged the absolute coordinates (with respect to
-the root window) of the upper-left outer corner of the save-set
-window.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It performs a
-<systemitem>MapWindow</systemitem>
-request on the save-set window if the save-set window is unmapped.
-The X server does this even if the save-set window was not an inferior of 
-a window created by the client.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It destroys all windows created by the client.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It performs the appropriate free request on each nonwindow resource created by
-the client in the server (for example, 
-<type>Font</type>,
-<type>Pixmap</type>,
-<type>Cursor</type>,
-<type>Colormap</type>,
-and 
-<type>GContext</type>).
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It frees all colors and colormap entries allocated by a client application.
-    </para>
-  </listitem>
-</itemizedlist>
-<para>
-<!-- .LP -->
-Additional processing occurs when the last connection to the X server closes.
-An X server goes through a cycle of having no connections and having some
-connections.
-When the last connection to the X server closes as a result of a connection
-closing with the close_mode of
-<symbol>DestroyAll</symbol>,
-the X server does the following: 
-</para>
-<itemizedlist>
-  <listitem>
-    <para>
-It resets its state as if it had just been
-started.  
-The X server begins by destroying all lingering resources from
-clients that have terminated in 
-<symbol>RetainPermanent</symbol>
-or
-<symbol>RetainTemporary</symbol>
-mode.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It deletes all but the predefined atom identifiers.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It deletes all properties on all root windows (see section 4.3).
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It resets all device maps and attributes 
-(for example, key click, bell volume, and acceleration) 
-as well as the access control list.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It restores the standard root tiles and cursors.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It restores the default font path.
-    </para>
-  </listitem>
-  <listitem>
-    <para>
-It restores the input focus to state
-<symbol>PointerRoot</symbol>.
-    </para>
-  </listitem>
-</itemizedlist>
-<para>
-<!-- .LP -->
-However, the X server does not reset if you close a connection with a close-down
-mode set to
-<symbol>RetainPermanent</symbol>
-or
-<symbol>RetainTemporary</symbol>.
-</para>
-</sect1>
-<sect1 id="Using_Xlib_with_Threads">
-<title>Using Xlib with Threads</title>
-<!-- .XS -->
-<!-- (SN Using Xlib with Threads -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-On systems that have threads, support may be provided to permit
-multiple threads to use Xlib concurrently.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To initialize support for concurrent threads, use
-<function>XInitThreads</function>.
-<indexterm significance="preferred"><primary>XInitThreads</primary></indexterm>
-<!-- .sM -->
-</para>
-<para>Status XInitThreads();</para>
-<!-- .FN -->
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XInitThreads</function>
-function initializes Xlib support for concurrent threads.
-This function must be the first Xlib function a
-multi-threaded program calls, and it must complete
-before any other Xlib call is made.
-This function returns a nonzero status if initialization was
-successful; otherwise, it returns zero.
-On systems that do not support threads, this function always returns zero.
-</para>
-<para>
-<!-- .LP -->
-It is only necessary to call this function if multiple threads
-might use Xlib concurrently.  If all calls to Xlib functions
-are protected by some other access mechanism (for example,
-a mutual exclusion lock in a toolkit or through explicit client
-programming), Xlib thread initialization is not required.
-It is recommended that single-threaded programs not call this function.
-
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To lock a display across several Xlib calls, use
-<function>XLockDisplay</function>.
-<indexterm significance="preferred"><primary>XLockDisplay</primary></indexterm>
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>XLockDisplay</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XLockDisplay</function>
-function locks out all other threads from using the specified display.
-Other threads attempting to use the display will block until
-the display is unlocked by this thread.
-Nested calls to
-<function>XLockDisplay</function>
-work correctly; the display will not actually be unlocked until
-<function>XUnlockDisplay</function>
-has been called the same number of times as
-<function>XLockDisplay</function>.
-This function has no effect unless Xlib was successfully initialized
-for threads using
-<function>XInitThreads</function>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To unlock a display, use
-<function>XUnlockDisplay</function>.
-<indexterm significance="preferred"><primary>XUnlockDisplay</primary></indexterm>
-<!-- .sM -->
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>XUnlockDisplay</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XUnlockDisplay</function>
-function allows other threads to use the specified display again.
-Any threads that have blocked on the display are allowed to continue.
-Nested locking works correctly; if
-<function>XLockDisplay</function>
-has been called multiple times by a thread, then
-<function>XUnlockDisplay</function>
-must be called an equal number of times before the display is
-actually unlocked.
-This function has no effect unless Xlib was successfully initialized
-for threads using
-<function>XInitThreads</function>.
-</para>
-</sect1>
-<sect1 id="Using_Internal_Connections">
-<title>Using Internal Connections</title>
-<!-- .XS -->
-<!-- (SN Using Internal Connections -->
-<!-- .XE -->
-<para>
-<!-- .LP -->
-In addition to the connection to the X server, an Xlib implementation
-may require connections to other kinds of servers (for example, to
-input method servers as described in chapter 13).  Toolkits and clients
-that use multiple displays, or that use displays in combination with
-other inputs, need to obtain these additional connections to correctly
-block until input is available and need to process that input
-when it is available.  Simple clients that use a single display and
-block for input in an Xlib event function do not need to use these
-facilities.
-</para>
-<para>
-<!-- .LP -->
-To track internal connections for a display, use
-<function>XAddConnectionWatch</function>.
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>type void XConnectionWatchProc</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>XPointer<parameter> client_data</parameter></paramdef>
-  <paramdef>int<parameter> fd</parameter></paramdef>
-  <paramdef>Bool<parameter> opening</parameter></paramdef>
-  <paramdef>XPointer<parameter> *watch_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Status XAddConnectionWatch</funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>XWatchProc<parameter> procedure</parameter></paramdef>
-  <paramdef>XPointer<parameter> client_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>procedure</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the procedure to be called.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>client_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the additional client data.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XAddConnectionWatch</function>
-function registers a procedure to be called each time Xlib opens or closes an
-internal connection for the specified display.  The procedure is passed the
-display, the specified client_data, the file descriptor for the connection,
-a Boolean indicating whether the connection is being opened or closed, and a
-pointer to a location for private watch data.  If opening is
-<symbol>True</symbol>,
-the procedure can store a pointer to private data in the location pointed
-to by watch_data;
-when the procedure is later called for this same connection and opening is
-<symbol>False</symbol>,
-the location pointed to by watch_data will hold this same private data pointer.
-</para>
-<para>
-<!-- .LP -->
-This function can be called at any time after a display is opened.
-If internal connections already exist, the registered procedure will
-immediately be called for each of them, before
-<function>XAddConnectionWatch</function>
-returns.
-<function>XAddConnectionWatch</function>
-returns a nonzero status if the procedure is successfully registered;
-otherwise, it returns zero.
-</para>
-<para>
-<!-- .LP -->
-The registered procedure should not call any Xlib functions.
-If the procedure directly or indirectly causes the state of internal
-connections or watch procedures to change, the result is not defined.
-If Xlib has been initialized for threads, the procedure is called with
-the display locked and the result of a call by the procedure to any
-Xlib function that locks the display is not defined unless the executing
-thread has externally locked the display using
-<function>XLockDisplay</function>.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To stop tracking internal connections for a display, use
-<function>XRemoveConnectionWatch</function>.
-<indexterm significance="preferred"><primary>XRemoveConnectionWatch</primary></indexterm>
-<!-- .sM -->
-</para>
-<para>
-()
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Status <function>XRemoveConnectionWatch</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>XWatchProc<parameter> procedure</parameter></paramdef>
-  <paramdef>XPointer<parameter> client_data</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>procedure</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the procedure to be called.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>client_data</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the additional client data.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XRemoveConnectionWatch</function>
-function removes a previously registered connection watch procedure.
-The client_data must match the client_data used when the procedure
-was initially registered.
-
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To process input on an internal connection, use
-<function>XProcessInternalConnection</function>.
-<indexterm significance="preferred"><primary>XProcessInternalConnection</primary></indexterm>
-<!-- .sM -->
-</para>
-<para>
-()
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>void <function>XProcessInternalConnection</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int<parameter> fd</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>fd</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the file descriptor.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XProcessInternalConnection</function>
-function processes input available on an internal connection.
-This function should be called for an internal connection only
-after an operating system facility (for example,
-<function>select</function>
-or
-<function>poll</function>)
-has indicated that input is available; otherwise,
-the effect is not defined.
-</para>
-<para>
-<!-- .LP -->
-<!-- .sp -->
-To obtain all of the current internal connections for a display, use
-<function>XInternalConnectionNumbers</function>.
-<indexterm significance="preferred"><primary>XInternalConnectionNumbers</primary></indexterm>
-<!-- .sM -->
-</para>
-<para>
-()
-</para>
-<funcsynopsis>
-<funcprototype>
-  <funcdef>Status <function>XInternalConnectionNumbers</function></funcdef>
-  <paramdef>Display<parameter> *display</parameter></paramdef>
-  <paramdef>int **<parameter> fd</parameter></paramdef>
-  <paramdef>int *<parameter> count_return</parameter></paramdef>
-</funcprototype>
-</funcsynopsis>
-<!-- .FN -->
-<variablelist>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>display</emphasis>
-    </term>
-    <listitem>
-      <para>
-Specifies the connection to the X server.
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>fd_return</emphasis>
-    </term>
-    <listitem>
-      <para>
-Returns the file descriptors.
-<!-- .ds Cn file descriptors -->
-      </para>
-    </listitem>
-  </varlistentry>
-  <varlistentry>
-    <term>
-      <emphasis remap='I'>count_return</emphasis>
-    </term>
-    <listitem>
-      <para>
-Returns the number of (Cn.
-    </para>
-  </listitem>
-  </varlistentry>
-</variablelist>
-<para>
-<!-- .LP -->
-<!-- .eM -->
-The
-<function>XInternalConnectionNumbers</function>
-function returns a list of the file descriptors for all internal
-connections currently open for the specified display.
-When the allocated list is no longer needed,
-free it by using
-<function>XFree</function>.
-This functions returns a nonzero status if the list is successfully allocated;
-otherwise, it returns zero.
-</para>
-</sect1>
-</chapter>
+<?xml version="1.0" encoding="UTF-8" ?>

+<!DOCTYPE chapter PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"

+	  "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">

+<chapter id="display_functions">

+<title>Display Functions</title>

+<para>

+Before your program can use a display, you must establish a connection

+to the X server.

+Once you have established a connection,

+you then can use the Xlib macros and functions discussed in this chapter

+to return information about the display.

+This chapter discusses how to:

+</para>

+<itemizedlist>

+  <listitem>

+    <para>

+Open (connect to) the display

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Obtain information about the display, image formats, or screens

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Generate a

+<systemitem>NoOperation</systemitem>

+protocol request

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Free client-created data

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Close (disconnect from) a display

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Use X Server connection close operations

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Use Xlib with threads

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Use internal connections

+    </para>

+  </listitem>

+</itemizedlist>

+<sect1 id="Opening_the_Display">

+<title>Opening the Display</title>

+<!-- .XS -->

+<!-- (SN Opening the Display -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+To open a connection to the X server that controls a display, use

+<function>XOpenDisplay</function>.

+<indexterm significance="preferred"><primary>XOpenDisplay</primary></indexterm>

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Display *<function>XOpenDisplay</function></funcdef>

+  <paramdef>char *<parameter>display_name</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display_name</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the hardware display name, which determines the display

+and communications domain to be used.

+On a <acronym>POSIX</acronym>-conformant system, if the display_name is NULL, 

+it defaults to the value of the DISPLAY environment variable. 

+<indexterm><primary>Environment</primary><secondary>DISPLAY</secondary></indexterm>

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The encoding and interpretation of the display name are

+implementation-dependent.

+Strings in the Host Portable Character Encoding are supported;

+support for other characters is implementation-dependent.

+On <acronym>POSIX</acronym>-conformant systems,

+the display name or DISPLAY environment variable can be a string in the format:

+</para>

+<!-- .LP -->

+<!-- .sM -->

+<literallayout class="monospaced">

+<!-- .TA 1i -->

+<!-- .ta 1i -->

+	<emphasis remap='I'>protocol</emphasis>/<emphasis remap='I'>hostname</emphasis>:<emphasis remap='I'>number</emphasis>.<emphasis remap='I'>screen_number</emphasis>

+</literallayout>

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>protocol</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies a protocol family or an alias for a protocol family.  Supported 

+protocol families are implementation dependent.  The protocol entry is 

+optional.  If protocol is not specified, the / separating protocol and 

+hostname must also not be specified.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>hostname</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the name of the host machine on which the display is physically

+attached.

+You follow the hostname with either a single colon (:) or a double colon (::).

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the number of the display server on that host machine.

+You may optionally follow this display number with a period (.).

+A single <acronym>CPU</acronym> can have more than one display.

+Multiple displays are usually numbered starting with zero.

+<indexterm><primary>Screen</primary></indexterm>

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the screen to be used on that server.

+Multiple screens can be controlled by a single X server.

+The screen_number sets an internal variable that can be accessed by

+using the 

+<function>DefaultScreen</function>

+macro or the 

+<function>XDefaultScreen</function>

+function if you are using languages other than C (see section 2.2.1).

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+For example, the following would specify screen 1 of display 0 on the 

+machine named ``dual-headed'':

+</para>

+<para>

+<!-- .LP -->

+<literallayout class="monospaced">

+dual-headed:0.1

+</literallayout>

+</para>

+<para>

+<!-- .LP -->

+The

+<function>XOpenDisplay</function>

+function returns a 

+<type>Display</type>

+structure that serves as the

+connection to the X server and that contains all the information

+about that X server.

+<function>XOpenDisplay</function>

+connects your application to the X server through <acronym>TCP</acronym>

+or DECnet communications protocols,

+or through some local inter-process communication protocol.

+<indexterm><primary>Protocol</primary><secondary><acronym>TCP</acronym></secondary></indexterm>

+<indexterm><primary>Protocol</primary><secondary>DECnet</secondary></indexterm>

+If the protocol is specified as "tcp", "inet", or "inet6", or

+if no protocol is specified and the hostname is a host machine name and a single colon (:)

+separates the hostname and display number,

+<function>XOpenDisplay</function>

+connects using <acronym>TCP</acronym> streams.  (If the protocol is specified as "inet", <acronym>TCP</acronym> over

+IPv4 is used.  If the protocol is specified as "inet6", <acronym>TCP</acronym> over IPv6 is used.

+Otherwise, the implementation determines which <acronym>IP</acronym> version is used.)

+If the hostname and protocol are both not specified,

+Xlib uses whatever it believes is the fastest transport.

+If the hostname is a host machine name and a double colon (::)

+separates the hostname and display number,

+<function>XOpenDisplay</function>

+connects using DECnet.

+A single X server can support any or all of these transport mechanisms

+simultaneously.

+A particular Xlib implementation can support many more of these transport

+mechanisms.

+</para>

+<para>

+<!-- .LP -->

+<indexterm><primary>Display</primary></indexterm>

+If successful, 

+<function>XOpenDisplay</function>

+returns a pointer to a 

+<type>Display</type>

+structure,

+which is defined in 

+<filename class="headerfile">&lt;X11/Xlib.h&gt;</filename>.

+<indexterm type="file"><primary><filename class="headerfile">X11/Xlib.h</filename></primary></indexterm>

+<indexterm><primary>Files</primary><secondary><filename class="headerfile">&lt;X11/Xlib.h&gt;</filename></secondary></indexterm>

+<indexterm><primary>Headers</primary><secondary><filename class="headerfile">&lt;X11/Xlib.h&gt;</filename></secondary></indexterm>

+If 

+<function>XOpenDisplay</function>

+does not succeed, it returns NULL.

+After a successful call to

+<function>XOpenDisplay</function>,

+all of the screens in the display can be used by the client.

+The screen number specified in the display_name argument is returned 

+by the 

+<function>DefaultScreen</function>

+macro (or the

+<function>XDefaultScreen</function>

+function).

+You can access elements of the

+<type>Display</type>

+and

+<type>Screen</type>

+structures only by using the information macros or functions.

+For information about using macros and functions to obtain information from 

+the

+<type>Display</type>

+structure,

+see section 2.2.1.

+</para>

+<para>

+<!-- .LP -->

+X servers may implement various types of access control mechanisms

+(see section 9.8).

+</para>

+</sect1>

+<sect1 id="Obtaining_Information_about_the_Display_Image_Formats_or_Screens">

+<title>Obtaining Information about the Display, Image Formats, or Screens</title>

+<!-- .XS -->

+<!-- (SN Obtaining Information about the Display, Image Formats, or Screens -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+The Xlib library provides a number of useful macros 

+and corresponding functions that return data from the 

+<type>Display</type>

+structure.

+The macros are used for C programming, 

+and their corresponding function equivalents are for other language bindings.

+This section discusses the:

+</para>

+<itemizedlist>

+  <listitem>

+    <para>

+Display macros

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Image format functions and macros

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+Screen information macros

+    </para>

+  </listitem>

+</itemizedlist>

+<para>

+<!-- .LP -->

+<indexterm ><primary>Display</primary><secondary>data structure</secondary></indexterm>

+All other members of the 

+<type>Display</type>

+structure (that is, those for which no macros are defined) are private to Xlib 

+and must not be used.

+Applications must never directly modify or inspect these private members of the 

+<type>Display</type>

+structure.

+<!-- .NT Note -->

+The

+<function>XDisplayWidth</function>,

+<function>XDisplayHeight</function>,

+<function>XDisplayCells</function>,

+<function>XDisplayPlanes</function>,

+<function>XDisplayWidthMM</function>,

+and

+<function>XDisplayHeightMM</function>

+functions in the next sections are misnamed.

+These functions really should be named Screen<emphasis remap='I'>whatever</emphasis> 

+and XScreen<emphasis remap='I'>whatever</emphasis>, not Display<emphasis remap='I'>whatever</emphasis> or XDisplay<emphasis remap='I'>whatever</emphasis>.

+Our apologies for the resulting confusion.

+<!-- .NE -->

+</para>

+<sect2 id="Display_Macros_">

+<title>Display Macros </title>

+<!-- .XS -->

+<!-- (SN Display Macros -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+Applications should not directly modify any part of the

+<type>Display</type>

+and

+<type>Screen</type>

+structures.

+The members should be considered read-only,

+although they may change as the result of other operations on the display.

+</para>

+<para>

+<!-- .LP  -->

+The following lists the C language macros,

+their corresponding function equivalents that are for other language bindings,

+and what data both can return.

+</para>

+<para>AllPlanes()</para>

+<para>XAllPlanes()</para>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>AllPlanes</primary></indexterm>

+<indexterm significance="preferred"><primary>XAllPlanes</primary></indexterm>

+Both return a value with all bits set to 1 suitable for use in a plane argument to

+a procedure.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+Both 

+<function>BlackPixel</function>

+and 

+<function>WhitePixel</function>

+can be used in implementing a monochrome application.

+These pixel values are for permanently allocated entries in the default

+colormap.

+The actual <acronym>RGB</acronym> (red, green, and blue) values are settable on some screens 

+and, in any case, may not actually be black or white.

+The names are intended to convey the expected relative intensity of the colors.

+<!-- .sM -->

+</para>

+<para>

+BlackPixel(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XBlackPixel</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>BlackPixel</primary></indexterm>

+<indexterm significance="preferred"><primary>XBlackPixel</primary></indexterm>

+Both return the black pixel value for the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+WhitePixel(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XWhitePixel</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>WhitePixel</primary></indexterm>

+<indexterm significance="preferred"><primary>XWhitePixel</primary></indexterm>

+Both return the white pixel value for the specified screen. 

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ConnectionNumber(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XConnectionNumber</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ConnectionNumber</primary></indexterm>

+<indexterm significance="preferred"><primary>XConnectionNumber</primary></indexterm>

+Both return a connection number for the specified display.

+On a <acronym>POSIX</acronym>-conformant system,

+this is the file descriptor of the connection.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultColormap(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Colormap <function>XDefaultColormap</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultColormap</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultColormap</primary></indexterm>

+Both return the default colormap ID for allocation on the specified screen.

+Most routine allocations of color should be made out of this colormap.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultDepth(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDefaultDepth</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultDepth</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultDepth</primary></indexterm>

+Both return the depth (number of planes) of the default root window for the

+specified screen.

+Other depths may also be supported on this screen (see

+<function>XMatchVisualInfo</function>).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<indexterm significance="preferred"><primary>XListDepths</primary></indexterm>

+To determine the number of depths that are available on a given screen, use

+<function>XListDepths</function>.

+<!-- .sM -->

+</para>

+<para>

+DefaultGC(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>GC <function>XDefaultGC</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+  <paramdef>int<parameter> *count_return</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+<!-- .ds Cn depths -->

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>count_return</emphasis>

+    </term>

+    <listitem>

+      <para>

+Returns the number of (Cn.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XListDepths</function>

+function returns the array of depths 

+that are available on the specified screen.

+If the specified screen_number is valid and sufficient memory for the array

+can be allocated,

+<function>XListDepths</function>

+sets count_return to the number of available depths.

+Otherwise, it does not set count_return and returns NULL.

+To release the memory allocated for the array of depths, use

+<function>XFree</function>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultGC(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>GC <function>XDefaultGC</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultGC</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultGC</primary></indexterm>

+Both return the default graphics context for the root window of the 

+specified screen.

+This GC is created for the convenience of simple applications

+and contains the default GC components with the foreground and

+background pixel values initialized to the black and white

+pixels for the screen, respectively.

+You can modify its contents freely because it is not used in any Xlib

+function.

+This GC should never be freed.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultRootWindow(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Window <function>XDefaultRootWindow</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultRootWindow</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultRootWindow</primary></indexterm>

+Both return the root window for the default screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultScreenOfDisplay(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Screen *<function>XDefaultScreenOfDisplay</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultScreenOfDisplay</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultScreenOfDisplay</primary></indexterm>

+Both return a pointer to the default screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ScreenOfDisplay(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Screen *<function>XScreenOfDisplay</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ScreenOfDisplay</primary></indexterm>

+<indexterm significance="preferred"><primary>XScreenOfDisplay</primary></indexterm>

+Both return a pointer to the indicated screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultScreen(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDefaultScreen</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultScreen</primary></indexterm>

+Both return the default screen number referenced by the 

+<function>XOpenDisplay</function>

+function. 

+This macro or function should be used to retrieve the screen number 

+in applications that will use only a single screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultVisual(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Visual *<function>XDefaultVisual</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultVisual</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultVisual</primary></indexterm>

+Both return the default visual type for the specified screen.

+For further information about visual types,

+see section 3.1.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayCells(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayCells</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayCells</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayCells</primary></indexterm>

+Both return the number of entries in the default colormap.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayPlanes(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayPlanes</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayPlanes</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayPlanes</primary></indexterm>

+Both return the depth of the root window of the specified screen.

+For an explanation of depth,

+see the glossary.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayString(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>char *<function>XDisplayString</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayString</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayString</primary></indexterm>

+Both return the string that was passed to 

+<function>XOpenDisplay</function>

+when the current display was opened. 

+On <acronym>POSIX</acronym>-conformant systems,

+if the passed string was NULL, these return the value of

+the DISPLAY environment variable when the current display was opened.

+<indexterm><primary><acronym>POSIX</acronym> System Call</primary><secondary>fork</secondary></indexterm>

+These are useful to applications that invoke the 

+<function>fork</function>

+system call and want to open a new connection to the same display from the 

+child process as well as for printing error messages.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>XExtendedMaxRequestSize</primary></indexterm>

+The

+<function>XExtendedMaxRequestSize</function>

+function returns zero if the specified display does not support an

+extended-length protocol encoding; otherwise,

+it returns the maximum request size (in 4-byte units) supported

+by the server using the extended-length encoding.

+The Xlib functions

+<function>XDrawLines</function>,

+<function>XDrawArcs</function>,

+<function>XFillPolygon</function>,

+<function>XChangeProperty</function>,

+<function>XSetClipRectangles</function>,

+and

+<function>XSetRegion</function>

+will use the extended-length encoding as necessary, if supported

+by the server.  Use of the extended-length encoding in other Xlib

+functions (for example,

+<function>XDrawPoints</function>,

+<function>XDrawRectangles</function>,

+<function>XDrawSegments</function>,

+<function>XFillArcs</function>,

+<function>XFillRectangles</function>,

+<function>XPutImage</function>)

+is permitted but not required; an Xlib implementation may choose to

+split the data across multiple smaller requests instead.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>XMaxRequestSize</primary></indexterm>

+The

+<function>XMaxRequestSize</function>

+function returns the maximum request size (in 4-byte units) supported

+by the server without using an extended-length protocol encoding.

+Single protocol requests to the server can be no larger than this size

+unless an extended-length protocol encoding is supported by the server.

+The protocol guarantees the size to be no smaller than 4096 units

+(16384 bytes).

+Xlib automatically breaks data up into multiple protocol requests

+as necessary for the following functions:

+<function>XDrawPoints</function>,

+<function>XDrawRectangles</function>,

+<function>XDrawSegments</function>,

+<function>XFillArcs</function>,

+<function>XFillRectangles</function>,

+and 

+<function>XPutImage</function>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+LastKnownRequestProcessed(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XLastKnownRequestProcessed</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>LastKnownRequestProcessed</primary></indexterm>

+<indexterm significance="preferred"><primary>XLastKnownRequestProcessed</primary></indexterm>

+Both extract the full serial number of the last request known by Xlib

+to have been processed by the X server.

+Xlib automatically sets this number when replies, events, and errors

+are received.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+NextRequest(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XNextRequest</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>NextRequest</primary></indexterm>

+<indexterm significance="preferred"><primary>XNextRequest</primary></indexterm>

+Both extract the full serial number that is to be used for the next

+request.

+Serial numbers are maintained separately for each display connection.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ProtocolVersion(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XProtocolVersion</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ProtocolVersion</primary></indexterm>

+<indexterm significance="preferred"><primary>XProtocolVersion</primary></indexterm>

+Both return the major version number (11) of the X protocol associated with 

+the connected display.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ProtocolRevision(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XProtocolRevision</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ProtocolRevision</primary></indexterm>

+<indexterm significance="preferred"><primary>XProtocolRevision</primary></indexterm>

+Both return the minor protocol revision number of the X server.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+QLength(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XQLength</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>QLength</primary></indexterm>

+<indexterm significance="preferred"><primary>XQLength</primary></indexterm>

+Both return the length of the event queue for the connected display.

+Note that there may be more events that have not been read into

+the queue yet (see

+<function>XEventsQueued</function>).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+RootWindow(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Window <function>XRootWindow</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm><primary>Window</primary><secondary>RootWindow</secondary></indexterm>

+<indexterm significance="preferred"><primary>RootWindow</primary></indexterm>

+<indexterm><primary>Window</primary><secondary>XRootWindow</secondary></indexterm>

+<indexterm significance="preferred"><primary>XRootWindow</primary></indexterm>

+Both return the root window.

+These are useful with functions that need a drawable of a particular screen

+and for creating top-level windows.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ScreenCount(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XScreenCount</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ScreenCount</primary></indexterm>

+<indexterm significance="preferred"><primary>XScreenCount</primary></indexterm>

+Both return the number of available screens.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ServerVendor(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>char *<function>XServerVendor</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ServerVendor</primary></indexterm>

+<indexterm significance="preferred"><primary>XServerVendor</primary></indexterm>

+Both return a pointer to a null-terminated string that provides

+some identification of the owner of the X server implementation.

+If the data returned by the server is in the Latin Portable Character Encoding,

+then the string is in the Host Portable Character Encoding.

+Otherwise, the contents of the string are implementation-dependent.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+VendorRelease(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XVendorRelease</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>VendorRelease</primary></indexterm>

+<indexterm significance="preferred"><primary>XVendorRelease</primary></indexterm>

+Both return a number related to a vendor's release of the X server.

+</para>

+</sect2>

+<sect2 id="Image_Format_Functions_and_Macros">

+<title>Image Format Functions and Macros</title>

+<!-- .XS -->

+<!-- (SN Image Format Functions and Macros -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+Applications are required to present data to the X server

+in a format that the server demands.

+To help simplify applications,

+most of the work required to convert the data is provided by Xlib

+(see sections 8.7 and 16.8).

+</para>

+<para>

+<!-- .LP -->

+The

+<structname>XPixmapFormatValues</structname>

+structure provides an interface to the pixmap format information

+that is returned at the time of a connection setup.

+It contains:

+</para>

+<para>

+<!-- .LP -->

+<!-- .sM -->

+<literallayout class="monospaced">

+<!-- .TA .5i 3i -->

+<!-- .ta .5i 3i -->

+typedef struct {

+	int depth;

+	int bits_per_pixel;

+	int scanline_pad;

+} XPixmapFormatValues;

+</literallayout>

+</para>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<!-- .sp -->

+To obtain the pixmap format information for a given display, use

+<function>XListPixmapFormats</function>.

+<indexterm significance="preferred"><primary>XListPixmapFormats</primary></indexterm>

+<!-- .sM -->

+</para>

+<para>

+ImageByteOrder(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XImageByteOrder</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> *count_return</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+<!-- .ds Cn pixmap formats that are supported by the display -->

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>count_return</emphasis>

+    </term>

+    <listitem>

+      <para>

+Returns the number of (Cn.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XListPixmapFormats</function>

+function returns an array of

+<structname>XPixmapFormatValues</structname>

+structures that describe the types of Z format images supported

+by the specified display.

+If insufficient memory is available,

+<function>XListPixmapFormats</function>

+returns NULL.

+To free the allocated storage for the

+<structname>XPixmapFormatValues</structname>

+structures, use

+<function>XFree</function>.

+</para>

+<para>

+<!-- .LP  -->

+The following lists the C language macros,

+their corresponding function equivalents that are for other language bindings,

+and what data they both return for the specified server and screen.

+These are often used by toolkits as well as by simple applications.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+ImageByteOrder(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XImageByteOrder</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>ImageByteOrder</primary></indexterm>

+<indexterm significance="preferred"><primary>XImageByteOrder</primary></indexterm>

+Both specify the required byte order for images for each scanline unit in 

+XY format (bitmap) or for each pixel value in 

+Z format.

+The macro or function can return either

+<symbol>LSBFirst</symbol>

+or 

+<symbol>MSBFirst</symbol>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+BitmapUnit(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XBitmapUnit</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>BitmapUnit</primary></indexterm>

+<indexterm significance="preferred"><primary>XBitmapUnit</primary></indexterm>

+Both return the size of a bitmap's scanline unit in bits.

+The scanline is calculated in multiples of this value.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+BitmapBitOrder(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XBitmapBitOrder</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>BitmapBitOrder</primary></indexterm>

+<indexterm significance="preferred"><primary>XBitmapBitOrder</primary></indexterm>

+Within each bitmap unit, the left-most bit in the bitmap as displayed

+on the screen is either the least significant or most significant bit in the

+unit.

+This macro or function can return 

+<symbol>LSBFirst</symbol>

+or 

+<symbol>MSBFirst</symbol>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+BitmapPad(<emphasis remap='I'>display</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XBitmapPad</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>BitmapPad</primary></indexterm>

+<indexterm significance="preferred"><primary>XBitmapPad</primary></indexterm>

+Each scanline must be padded to a multiple of bits returned

+by this macro or function.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayHeight(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayHeight</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayHeight</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayHeight</primary></indexterm>

+Both return an integer that describes the height of the screen

+in pixels.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayHeightMM(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayHeightMM</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayHeightMM</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayHeightMM</primary></indexterm>

+Both return the height of the specified screen in millimeters.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayWidth(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayWidth</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayWidth</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayWidth</primary></indexterm>

+Both return the width of the screen in pixels.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayWidthMM(<emphasis remap='I'>display</emphasis>, <emphasis remap='I'>screen_number</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDisplayWidthMM</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> screen_number</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen_number</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate screen number on the host server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayWidthMM</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayWidthMM</primary></indexterm>

+Both return the width of the specified screen in millimeters.

+</para>

+</sect2>

+<sect2 id="Screen_Information_Macros">

+<title>Screen Information Macros</title>

+<!-- .XS -->

+<!-- (SN Screen Information Macros -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+The following lists the C language macros,

+their corresponding function equivalents that are for other language bindings,

+and what data they both can return.

+These macros or functions all take a pointer to the appropriate screen

+structure.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+BlackPixelOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XBlackPixelOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>BlackPixelOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XBlackPixelOfScreen</primary></indexterm>

+Both return the black pixel value of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+WhitePixelOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>unsigned long <function>XWhitePixelOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>WhitePixelOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XWhitePixelOfScreen</primary></indexterm>

+Both return the white pixel value of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+CellsOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XCellsOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>CellsOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XCellsOfScreen</primary></indexterm>

+Both return the number of colormap cells in the default colormap 

+of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultColormapOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Colormap <function>XDefaultColormapOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultColormapOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultColormapOfScreen</primary></indexterm>

+Both return the default colormap of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultDepthOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDefaultDepthOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultDepthOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultDepthOfScreen</primary></indexterm>

+Both return the depth of the root window.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultGCOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>GC <function>XDefaultGCOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultGCOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultGCOfScreen</primary></indexterm>

+Both return a default graphics context (GC) of the specified screen,

+which has the same depth as the root window of the screen.

+The GC must never be freed.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DefaultVisualOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Visual *<function>XDefaultVisualOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DefaultVisualOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDefaultVisualOfScreen</primary></indexterm>

+Both return the default visual of the specified screen.

+For information on visual types,

+see section 3.1.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DoesBackingStore(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XDoesBackingStore</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DoesBackingStore</primary></indexterm>

+<indexterm significance="preferred"><primary>XDoesBackingStore</primary></indexterm>

+Both return a value indicating whether the screen supports backing

+stores.

+The value returned can be one of 

+<symbol>WhenMapped</symbol>,

+<symbol>NotUseful</symbol>,

+or

+<symbol>Always</symbol>

+(see section 3.2.4).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DoesSaveUnders(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Bool <function>XDoesSaveUnders</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DoesSaveUnders</primary></indexterm>

+<indexterm significance="preferred"><primary>XDoesSaveUnders</primary></indexterm>

+Both return a Boolean value indicating whether the

+screen supports save unders.

+If

+<symbol>True</symbol>,

+the screen supports save unders.

+If

+<symbol>False</symbol>,

+the screen does not support save unders (see section 3.2.5).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+DisplayOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Display *<function>XDisplayOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>DisplayOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XDisplayOfScreen</primary></indexterm>

+Both return the display of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+<indexterm significance="preferred"><primary>XScreenNumberOfScreen</primary></indexterm>

+</para>

+<para>

+EventMaskOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>long <function>XEventMaskOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XScreenNumberOfScreen</function>

+function returns the screen index number of the specified screen.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+EventMaskOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>long <function>XEventMaskOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>EventMaskOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XEventMaskOfScreen</primary></indexterm>

+Both return the event mask of the root window for the specified screen

+at connection setup time.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+WidthOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XWidthOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>WidthOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XWidthOfScreen</primary></indexterm>

+Both return the width of the specified screen in pixels.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+HeightOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XHeightOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>HeightOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XHeightOfScreen</primary></indexterm>

+Both return the height of the specified screen in pixels.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+WidthMMOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XWidthMMOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>WidthMMOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XWidthMMOfScreen</primary></indexterm>

+Both return the width of the specified screen in millimeters.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+HeightMMOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XHeightMMOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>HeightMMOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XHeightMMOfScreen</primary></indexterm>

+Both return the height of the specified screen in millimeters.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+MaxCmapsOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XMaxCmapsOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>MaxCmapsOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XMaxCmapsOfScreen</primary></indexterm>

+Both return the maximum number of installed colormaps supported 

+by the specified screen (see section 9.3).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+MinCmapsOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XMinCmapsOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>MinCmapsOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XMinCmapsOfScreen</primary></indexterm>

+Both return the minimum number of installed colormaps supported 

+by the specified screen (see section 9.3).

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+PlanesOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>int <function>XPlanesOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>PlanesOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XPlanesOfScreen</primary></indexterm>

+Both return the depth of the root window.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+<!-- .sM -->

+</para>

+<para>

+RootWindowOfScreen(<emphasis remap='I'>screen</emphasis>)

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Window <function>XRootWindowOfScreen</function></funcdef>

+  <paramdef>Screen<parameter> *screen</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>screen</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the appropriate 

+<type>Screen</type>

+structure.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+<indexterm significance="preferred"><primary>RootWindowOfScreen</primary></indexterm>

+<indexterm significance="preferred"><primary>XRootWindowOfScreen</primary></indexterm>

+Both return the root window of the specified screen.

+</para>

+</sect2>

+</sect1>

+<sect1 id="Generating_a_NoOperation_Protocol_Request">

+<title>Generating a NoOperation Protocol Request</title>

+<!-- .XS -->

+<!-- (SN Generating a NoOperation Protocol Request -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+To execute a 

+<systemitem>NoOperation</systemitem>

+protocol request, use

+<function>XNoOp</function>.

+<indexterm significance="preferred"><primary>XNoOp</primary></indexterm>

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef><function>XNoOp</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term><emphasis remap='I'>display</emphasis></term>

+    <listitem>

+      <para>Specifies the connection to the X server.</para>

+    </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XNoOp</function>

+function sends a 

+<systemitem>NoOperation</systemitem>

+protocol request to the X server,

+thereby exercising the connection.

+</para>

+</sect1>

+<sect1 id="Freeing_Client_Created_Data">

+<title>Freeing Client-Created Data</title>

+<!-- .XS -->

+<!-- (SN Freeing Client-Created Data -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+To free in-memory data that was created by an Xlib function, use

+<function>XFree</function>.

+<indexterm significance="preferred"><primary>XFree</primary></indexterm>

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>XFree</funcdef>

+  <paramdef>void<parameter> *data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the data that is to be freed.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XFree</function>

+function is a general-purpose Xlib routine that frees the specified data.

+You must use it to free any objects that were allocated by Xlib,

+unless an alternate function is explicitly specified for the object.

+A NULL pointer cannot be passed to this function.

+</para>

+</sect1>

+<sect1 id="Closing_the_Display">

+<title>Closing the Display</title>

+<!-- .XS -->

+<!-- (SN Closing the Display -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+To close a display or disconnect from the X server, use

+<function>XCloseDisplay</function>.

+<indexterm significance="preferred"><primary>XCloseDisplay</primary></indexterm>

+</para>

+<para>

+<!-- .LP -->

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>XCloseDisplay</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XCloseDisplay</function>

+function closes the connection to the X server for the display specified in the

+<type>Display</type>

+structure and destroys all windows, resource IDs

+(<type>Window</type>,

+<type>Font</type>,

+<type>Pixmap</type>,

+<type>Colormap</type>,

+<type>Cursor</type>,

+and

+<type>GContext</type>),

+or other resources that the client has created

+on this display, unless the close-down mode of the resource has been changed

+(see

+<function>XSetCloseDownMode</function>).

+Therefore, these windows, resource IDs, and other resources should never be 

+referenced again or an error will be generated.

+Before exiting, you should call

+<function>XCloseDisplay</function>

+explicitly so that any pending errors are reported as

+<function>XCloseDisplay</function>

+performs a final

+<function>XSync</function>

+operation.

+<indexterm><primary>Resource IDs</primary></indexterm>

+<indexterm><primary>XCloseDisplay</primary></indexterm>

+</para>

+<para>

+<!-- .LP -->

+<function>XCloseDisplay</function>

+can generate a

+<errorname>BadGC</errorname>

+error.

+<!-- .sp -->

+</para>

+<para>

+<!-- .LP -->

+Xlib provides a function to permit the resources owned by a client

+to survive after the client's connection is closed.

+To change a client's close-down mode, use

+<function>XSetCloseDownMode</function>.

+<indexterm significance="preferred"><primary>XSetCloseDownMode</primary></indexterm>

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>XSetCloseDownMode</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> close_mode</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>close_mode</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the client close-down mode.

+You can pass 

+<symbol>DestroyAll</symbol>,

+<symbol>RetainPermanent</symbol>,

+or

+<symbol>RetainTemporary</symbol>.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XSetCloseDownMode</function>

+defines what will happen to the client's resources at connection close.

+A connection starts in

+<symbol>DestroyAll</symbol>

+mode.

+For information on what happens to the client's resources when the

+close_mode argument is

+<symbol>RetainPermanent</symbol>

+or

+<symbol>RetainTemporary</symbol>,

+see section 2.6.

+</para>

+<para>

+<!-- .LP -->

+<function>XSetCloseDownMode</function>

+can generate a

+<errorname>BadValue</errorname>

+error.

+</para>

+</sect1>

+<sect1 id="Using_X_Server_Connection_Close_Operations_">

+<title>Using X Server Connection Close Operations </title>

+<!-- .XS -->

+<!-- (SN Using X Server Connection Close Operations -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+When the X server's connection to a client is closed

+either by an explicit call to

+<function>XCloseDisplay</function>

+or by a process that exits, the X server performs the following

+automatic operations:

+</para>

+<itemizedlist>

+  <listitem>

+    <para>

+It disowns all selections owned by the client

+(see 

+<function>XSetSelectionOwner</function>).

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It performs an

+<function>XUngrabPointer</function>

+and

+<function>XUngrabKeyboard</function>

+if the client has actively grabbed the pointer 

+or the keyboard.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It performs an

+<function>XUngrabServer</function>

+if the client has grabbed the server.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It releases all passive grabs made by the client.  

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It marks all resources (including colormap entries) allocated 

+by the client either as permanent or temporary, 

+depending on whether the close-down mode is 

+<symbol>RetainPermanent</symbol>

+or

+<symbol>RetainTemporary</symbol>.

+However, this does not prevent other client applications from explicitly

+destroying the resources (see 

+<function>XSetCloseDownMode</function>).

+    </para>

+  </listitem>

+</itemizedlist>

+<para>

+<!-- .LP -->

+When the close-down mode is

+<symbol>DestroyAll</symbol>,

+the X server destroys all of a client's resources as follows:

+</para>

+<itemizedlist>

+  <listitem>

+    <para>

+It examines each window in the client's save-set to determine if it is an inferior

+(subwindow) of a window created by the client.

+(The save-set is a list of other clients' windows

+that are referred to as save-set windows.)

+If so, the X server reparents the save-set window to the closest ancestor so

+that the save-set window is not an inferior of a window created by the client.

+The reparenting leaves unchanged the absolute coordinates (with respect to

+the root window) of the upper-left outer corner of the save-set

+window.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It performs a

+<systemitem>MapWindow</systemitem>

+request on the save-set window if the save-set window is unmapped.

+The X server does this even if the save-set window was not an inferior of 

+a window created by the client.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It destroys all windows created by the client.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It performs the appropriate free request on each nonwindow resource created by

+the client in the server (for example, 

+<type>Font</type>,

+<type>Pixmap</type>,

+<type>Cursor</type>,

+<type>Colormap</type>,

+and 

+<type>GContext</type>).

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It frees all colors and colormap entries allocated by a client application.

+    </para>

+  </listitem>

+</itemizedlist>

+<para>

+<!-- .LP -->

+Additional processing occurs when the last connection to the X server closes.

+An X server goes through a cycle of having no connections and having some

+connections.

+When the last connection to the X server closes as a result of a connection

+closing with the close_mode of

+<symbol>DestroyAll</symbol>,

+the X server does the following: 

+</para>

+<itemizedlist>

+  <listitem>

+    <para>

+It resets its state as if it had just been

+started.  

+The X server begins by destroying all lingering resources from

+clients that have terminated in 

+<symbol>RetainPermanent</symbol>

+or

+<symbol>RetainTemporary</symbol>

+mode.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It deletes all but the predefined atom identifiers.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It deletes all properties on all root windows (see section 4.3).

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It resets all device maps and attributes 

+(for example, key click, bell volume, and acceleration) 

+as well as the access control list.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It restores the standard root tiles and cursors.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It restores the default font path.

+    </para>

+  </listitem>

+  <listitem>

+    <para>

+It restores the input focus to state

+<symbol>PointerRoot</symbol>.

+    </para>

+  </listitem>

+</itemizedlist>

+<para>

+<!-- .LP -->

+However, the X server does not reset if you close a connection with a close-down

+mode set to

+<symbol>RetainPermanent</symbol>

+or

+<symbol>RetainTemporary</symbol>.

+</para>

+</sect1>

+<sect1 id="Using_Xlib_with_Threads">

+<title>Using Xlib with Threads</title>

+<!-- .XS -->

+<!-- (SN Using Xlib with Threads -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+On systems that have threads, support may be provided to permit

+multiple threads to use Xlib concurrently.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To initialize support for concurrent threads, use

+<function>XInitThreads</function>.

+<indexterm significance="preferred"><primary>XInitThreads</primary></indexterm>

+<!-- .sM -->

+</para>

+<para>Status XInitThreads();</para>

+<!-- .FN -->

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XInitThreads</function>

+function initializes Xlib support for concurrent threads.

+This function must be the first Xlib function a

+multi-threaded program calls, and it must complete

+before any other Xlib call is made.

+This function returns a nonzero status if initialization was

+successful; otherwise, it returns zero.

+On systems that do not support threads, this function always returns zero.

+</para>

+<para>

+<!-- .LP -->

+It is only necessary to call this function if multiple threads

+might use Xlib concurrently.  If all calls to Xlib functions

+are protected by some other access mechanism (for example,

+a mutual exclusion lock in a toolkit or through explicit client

+programming), Xlib thread initialization is not required.

+It is recommended that single-threaded programs not call this function.

+

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To lock a display across several Xlib calls, use

+<function>XLockDisplay</function>.

+<indexterm significance="preferred"><primary>XLockDisplay</primary></indexterm>

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>XLockDisplay</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XLockDisplay</function>

+function locks out all other threads from using the specified display.

+Other threads attempting to use the display will block until

+the display is unlocked by this thread.

+Nested calls to

+<function>XLockDisplay</function>

+work correctly; the display will not actually be unlocked until

+<function>XUnlockDisplay</function>

+has been called the same number of times as

+<function>XLockDisplay</function>.

+This function has no effect unless Xlib was successfully initialized

+for threads using

+<function>XInitThreads</function>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To unlock a display, use

+<function>XUnlockDisplay</function>.

+<indexterm significance="preferred"><primary>XUnlockDisplay</primary></indexterm>

+<!-- .sM -->

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>XUnlockDisplay</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XUnlockDisplay</function>

+function allows other threads to use the specified display again.

+Any threads that have blocked on the display are allowed to continue.

+Nested locking works correctly; if

+<function>XLockDisplay</function>

+has been called multiple times by a thread, then

+<function>XUnlockDisplay</function>

+must be called an equal number of times before the display is

+actually unlocked.

+This function has no effect unless Xlib was successfully initialized

+for threads using

+<function>XInitThreads</function>.

+</para>

+</sect1>

+<sect1 id="Using_Internal_Connections">

+<title>Using Internal Connections</title>

+<!-- .XS -->

+<!-- (SN Using Internal Connections -->

+<!-- .XE -->

+<para>

+<!-- .LP -->

+In addition to the connection to the X server, an Xlib implementation

+may require connections to other kinds of servers (for example, to

+input method servers as described in chapter 13).  Toolkits and clients

+that use multiple displays, or that use displays in combination with

+other inputs, need to obtain these additional connections to correctly

+block until input is available and need to process that input

+when it is available.  Simple clients that use a single display and

+block for input in an Xlib event function do not need to use these

+facilities.

+</para>

+<para>

+<!-- .LP -->

+To track internal connections for a display, use

+<function>XAddConnectionWatch</function>.

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>type void XConnectionWatchProc</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>XPointer<parameter> client_data</parameter></paramdef>

+  <paramdef>int<parameter> fd</parameter></paramdef>

+  <paramdef>Bool<parameter> opening</parameter></paramdef>

+  <paramdef>XPointer<parameter> *watch_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Status XAddConnectionWatch</funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>XWatchProc<parameter> procedure</parameter></paramdef>

+  <paramdef>XPointer<parameter> client_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>procedure</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the procedure to be called.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>client_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the additional client data.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XAddConnectionWatch</function>

+function registers a procedure to be called each time Xlib opens or closes an

+internal connection for the specified display.  The procedure is passed the

+display, the specified client_data, the file descriptor for the connection,

+a Boolean indicating whether the connection is being opened or closed, and a

+pointer to a location for private watch data.  If opening is

+<symbol>True</symbol>,

+the procedure can store a pointer to private data in the location pointed

+to by watch_data;

+when the procedure is later called for this same connection and opening is

+<symbol>False</symbol>,

+the location pointed to by watch_data will hold this same private data pointer.

+</para>

+<para>

+<!-- .LP -->

+This function can be called at any time after a display is opened.

+If internal connections already exist, the registered procedure will

+immediately be called for each of them, before

+<function>XAddConnectionWatch</function>

+returns.

+<function>XAddConnectionWatch</function>

+returns a nonzero status if the procedure is successfully registered;

+otherwise, it returns zero.

+</para>

+<para>

+<!-- .LP -->

+The registered procedure should not call any Xlib functions.

+If the procedure directly or indirectly causes the state of internal

+connections or watch procedures to change, the result is not defined.

+If Xlib has been initialized for threads, the procedure is called with

+the display locked and the result of a call by the procedure to any

+Xlib function that locks the display is not defined unless the executing

+thread has externally locked the display using

+<function>XLockDisplay</function>.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To stop tracking internal connections for a display, use

+<function>XRemoveConnectionWatch</function>.

+<indexterm significance="preferred"><primary>XRemoveConnectionWatch</primary></indexterm>

+<!-- .sM -->

+</para>

+<para>

+()

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Status <function>XRemoveConnectionWatch</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>XWatchProc<parameter> procedure</parameter></paramdef>

+  <paramdef>XPointer<parameter> client_data</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>procedure</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the procedure to be called.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>client_data</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the additional client data.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XRemoveConnectionWatch</function>

+function removes a previously registered connection watch procedure.

+The client_data must match the client_data used when the procedure

+was initially registered.

+

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To process input on an internal connection, use

+<function>XProcessInternalConnection</function>.

+<indexterm significance="preferred"><primary>XProcessInternalConnection</primary></indexterm>

+<!-- .sM -->

+</para>

+<para>

+()

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>void <function>XProcessInternalConnection</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int<parameter> fd</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>fd</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the file descriptor.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XProcessInternalConnection</function>

+function processes input available on an internal connection.

+This function should be called for an internal connection only

+after an operating system facility (for example,

+<function>select</function>

+or

+<function>poll</function>)

+has indicated that input is available; otherwise,

+the effect is not defined.

+</para>

+<para>

+<!-- .LP -->

+<!-- .sp -->

+To obtain all of the current internal connections for a display, use

+<function>XInternalConnectionNumbers</function>.

+<indexterm significance="preferred"><primary>XInternalConnectionNumbers</primary></indexterm>

+<!-- .sM -->

+</para>

+<para>

+()

+</para>

+<funcsynopsis>

+<funcprototype>

+  <funcdef>Status <function>XInternalConnectionNumbers</function></funcdef>

+  <paramdef>Display<parameter> *display</parameter></paramdef>

+  <paramdef>int **<parameter> fd</parameter></paramdef>

+  <paramdef>int *<parameter> count_return</parameter></paramdef>

+</funcprototype>

+</funcsynopsis>

+<!-- .FN -->

+<variablelist>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>display</emphasis>

+    </term>

+    <listitem>

+      <para>

+Specifies the connection to the X server.

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>fd_return</emphasis>

+    </term>

+    <listitem>

+      <para>

+Returns the file descriptors.

+<!-- .ds Cn file descriptors -->

+      </para>

+    </listitem>

+  </varlistentry>

+  <varlistentry>

+    <term>

+      <emphasis remap='I'>count_return</emphasis>

+    </term>

+    <listitem>

+      <para>

+Returns the number of (Cn.

+    </para>

+  </listitem>

+  </varlistentry>

+</variablelist>

+<para>

+<!-- .LP -->

+<!-- .eM -->

+The

+<function>XInternalConnectionNumbers</function>

+function returns a list of the file descriptors for all internal

+connections currently open for the specified display.

+When the allocated list is no longer needed,

+free it by using

+<function>XFree</function>.

+This functions returns a nonzero status if the list is successfully allocated;

+otherwise, it returns zero.

+</para>

+</sect1>

+</chapter>

diff --git a/libX11/specs/libX11/Makefile.am b/libX11/specs/libX11/Makefile.am
index b87e568cd..f91320c09 100644
--- a/libX11/specs/libX11/Makefile.am
+++ b/libX11/specs/libX11/Makefile.am
@@ -1,38 +1,38 @@
-
-if ENABLE_SPECS
-
-# Main DocBook/XML files (DOCTYPE book)
-docbook = libX11.xml
-
-# Included chapters, appendix, images
-chapters =		\
-	AppA.xml	\
-	AppB.xml	\
-	AppC.xml	\
-	AppD.xml	\
-	CH01.xml	\
-	CH02.xml	\
-	CH03.xml	\
-	CH04.xml	\
-	CH05.xml	\
-	CH06.xml	\
-	CH07.xml	\
-	CH08.xml	\
-	CH09.xml	\
-	CH10.xml	\
-	CH11.xml	\
-	CH12.xml	\
-	CH13.xml	\
-	CH14.xml	\
-	CH15.xml	\
-	CH16.xml	\
-	credits.xml	\
-	glossary.xml
-
-# The location where the DocBook/XML files and their generated formats are installed
-shelfdir = $(docdir)/libX11
-
-# Generate DocBook/XML output formats with or without stylesheets
-include $(top_srcdir)/docbook.am
-
-endif ENABLE_SPECS
+

+if ENABLE_SPECS

+

+# Main DocBook/XML files (DOCTYPE book)

+docbook = libX11.xml

+

+# Included chapters, appendix, images

+chapters =		\

+	AppA.xml	\

+	AppB.xml	\

+	AppC.xml	\

+	AppD.xml	\

+	CH01.xml	\

+	CH02.xml	\

+	CH03.xml	\

+	CH04.xml	\

+	CH05.xml	\

+	CH06.xml	\

+	CH07.xml	\

+	CH08.xml	\

+	CH09.xml	\

+	CH10.xml	\

+	CH11.xml	\

+	CH12.xml	\

+	CH13.xml	\

+	CH14.xml	\

+	CH15.xml	\

+	CH16.xml	\

+	credits.xml	\

+	glossary.xml

+

+# The location where the DocBook/XML files and their generated formats are installed

+shelfdir = $(docdir)/libX11

+

+# Generate DocBook/XML output formats with or without stylesheets

+include $(top_srcdir)/docbook.am

+

+endif ENABLE_SPECS

diff --git a/libX11/src/ConvSel.c b/libX11/src/ConvSel.c
index fb6e8e338..2dece58b5 100644
--- a/libX11/src/ConvSel.c
+++ b/libX11/src/ConvSel.c
@@ -49,5 +49,5 @@ XConvertSelection(
     req->time = time;
     UnlockDisplay(dpy);
     SyncHandle();
-    return 1;
+    return Success;
 }
diff --git a/libX11/src/CrGlCur.c b/libX11/src/CrGlCur.c
index 460660f81..4f332836b 100644
--- a/libX11/src/CrGlCur.c
+++ b/libX11/src/CrGlCur.c
@@ -1,260 +1,270 @@
-/*
-
-Copyright 1986, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-
-#ifdef USE_DYNAMIC_XCURSOR
-
-#ifdef __UNIXOS2__
-#define RTLD_LAZY 1
-#define LIBXCURSOR "Xcursor.dll"
-#endif
-#include <stdio.h>
-#include <string.h>
-#if defined(hpux)
-#include <dl.h>
-#else
-#include <dlfcn.h>
-#endif
-#include "Cr.h"
-
-#ifdef __CYGWIN__
-#define LIBXCURSOR "cygXcursor-1.dll"
-#endif
-
-#if defined(hpux)
-typedef shl_t	XModuleType;
-#else
-typedef void *XModuleType;
-#endif
-
-#ifndef LIBXCURSOR
-#define LIBXCURSOR "libXcursor.so.1"
-#endif
-
-static char libraryName[] = LIBXCURSOR;
-
-static XModuleType
-open_library (void)
-{
-    char	*library = libraryName;
-    char	*dot;
-    XModuleType	module;
-    for (;;)
-    {
-#if defined(hpux)
-	module = shl_load(library, BIND_DEFERRED, 0L);
-#else
-	module =  dlopen(library, RTLD_LAZY);
-#endif
-	if (module)
-	    return module;
-	dot = strrchr (library, '.');
-	if (!dot)
-	    break;
-	*dot = '\0';
-    }
-    return NULL;
-}
-
-static void *
-fetch_symbol (XModuleType module, const char *under_symbol)
-{
-    void *result = NULL;
-    const char *symbol = under_symbol + 1;
-#if defined(hpux)
-    int getsyms_cnt, i;
-    struct shl_symbol *symbols;
-
-    getsyms_cnt = shl_getsymbols(module, TYPE_PROCEDURE,
-				 EXPORT_SYMBOLS, malloc, &symbols);
-
-    for(i=0; i<getsyms_cnt; i++) {
-        if(!strcmp(symbols[i].name, symbol)) {
-	    result = symbols[i].value;
-	    break;
-         }
-    }
-
-    if(getsyms_cnt > 0) {
-        free(symbols);
-    }
-#else
-    result = dlsym (module, symbol);
-    if (!result)
-	result = dlsym (module, under_symbol);
-#endif
-    return result;
-}
-
-typedef void	(*NoticeCreateBitmapFunc) (Display	    *dpy,
-					   Pixmap	    pid,
-					   unsigned int width,
-					   unsigned int height);
-
-typedef void	(*NoticePutBitmapFunc) (Display	    *dpy,
-					Drawable    draw,
-					XImage	    *image);
-
-typedef Cursor	(*TryShapeBitmapCursorFunc) (Display	    *dpy,
-					     Pixmap	    source,
-					     Pixmap	    mask,
-					     XColor	    *foreground,
-					     XColor	    *background,
-					     unsigned int   x,
-					     unsigned int   y);
-
-typedef Cursor	(*TryShapeCursorFunc) (Display	    *dpy,
-				       Font	    source_font,
-				       Font	    mask_font,
-				       unsigned int source_char,
-				       unsigned int mask_char,
-				       XColor _Xconst *foreground,
-				       XColor _Xconst *background);
-
-static XModuleType  _XcursorModule;
-static Bool	    _XcursorModuleTried;
-
-#define GetFunc(type,name,ret) {\
-    static Bool	    been_here; \
-    static type	    staticFunc; \
-     \
-    _XLockMutex (_Xglobal_lock); \
-    if (!been_here) \
-    { \
-	been_here = True; \
-	if (!_XcursorModuleTried) \
-	{ \
-	    _XcursorModuleTried = True; \
-	    _XcursorModule = open_library (); \
-	} \
-	if (_XcursorModule) \
-	    staticFunc = (type) fetch_symbol (_XcursorModule, "_" name); \
-    } \
-    ret = staticFunc; \
-    _XUnlockMutex (_Xglobal_lock); \
-}
-
-static Cursor
-_XTryShapeCursor (Display	    *dpy,
-		  Font		    source_font,
-		  Font		    mask_font,
-		  unsigned int	    source_char,
-		  unsigned int	    mask_char,
-		  XColor _Xconst    *foreground,
-		  XColor _Xconst    *background)
-{
-    TryShapeCursorFunc		func;
-
-    GetFunc (TryShapeCursorFunc, "XcursorTryShapeCursor", func);
-    if (func)
-	return (*func) (dpy, source_font, mask_font, source_char, mask_char,
-			foreground, background);
-    return None;
-}
-
-void
-_XNoticeCreateBitmap (Display	    *dpy,
-		      Pixmap	    pid,
-		      unsigned int  width,
-		      unsigned int  height)
-{
-    NoticeCreateBitmapFunc  func;
-
-    GetFunc (NoticeCreateBitmapFunc, "XcursorNoticeCreateBitmap", func);
-    if (func)
-	(*func) (dpy, pid, width, height);
-}
-
-void
-_XNoticePutBitmap (Display	*dpy,
-		   Drawable	draw,
-		   XImage	*image)
-{
-    NoticePutBitmapFunc	func;
-
-    GetFunc (NoticePutBitmapFunc, "XcursorNoticePutBitmap", func);
-    if (func)
-	(*func) (dpy, draw, image);
-}
-
-Cursor
-_XTryShapeBitmapCursor (Display		*dpy,
-			Pixmap		source,
-			Pixmap		mask,
-			XColor		*foreground,
-			XColor		*background,
-			unsigned int	x,
-			unsigned int	y)
-{
-    TryShapeBitmapCursorFunc	func;
-
-    GetFunc (TryShapeBitmapCursorFunc, "XcursorTryShapeBitmapCursor", func);
-    if (func)
-	return (*func) (dpy, source, mask, foreground, background, x, y);
-    return None;
-}
-#endif
-
-Cursor XCreateGlyphCursor(
-     register Display *dpy,
-     Font source_font,
-     Font mask_font,
-     unsigned int source_char,
-     unsigned int mask_char,
-     XColor _Xconst *foreground,
-     XColor _Xconst *background)
-{
-    Cursor cid;
-    register xCreateGlyphCursorReq *req;
-
-#ifdef USE_DYNAMIC_XCURSOR
-    cid = _XTryShapeCursor (dpy, source_font, mask_font,
-			    source_char, mask_char, foreground, background);
-    if (cid)
-	return cid;
-#endif
-    LockDisplay(dpy);
-    GetReq(CreateGlyphCursor, req);
-    cid = req->cid = XAllocID(dpy);
-    req->source = source_font;
-    req->mask = mask_font;
-    req->sourceChar = source_char;
-    req->maskChar = mask_char;
-    req->foreRed = foreground->red;
-    req->foreGreen = foreground->green;
-    req->foreBlue = foreground->blue;
-    req->backRed = background->red;
-    req->backGreen = background->green;
-    req->backBlue = background->blue;
-    UnlockDisplay(dpy);
-    SyncHandle();
-    return (cid);
-}
-
+/*

+

+Copyright 1986, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included in

+all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+

+#ifdef USE_DYNAMIC_XCURSOR

+

+#ifdef __UNIXOS2__

+#define RTLD_LAZY 1

+#define LIBXCURSOR "Xcursor.dll"

+#endif

+#include <stdio.h>

+#include <string.h>

+#if defined(hpux)

+#include <dl.h>

+#else

+#include <dlfcn.h>

+#endif

+#include "Cr.h"

+

+#ifdef __CYGWIN__

+#define LIBXCURSOR "cygXcursor-1.dll"

+#endif

+

+#if defined(hpux)

+typedef shl_t	XModuleType;

+#else

+#ifdef _MSC_VER

+#include <X11/XWindows.h>

+typedef HANDLE XModuleType;

+#define dlsym GetProcAddress

+#else

+typedef void *XModuleType;

+#endif

+#endif

+

+#ifndef LIBXCURSOR

+#define LIBXCURSOR "libXcursor.so.1"

+#endif

+

+static char libraryName[] = LIBXCURSOR;

+

+static XModuleType

+open_library (void)

+{

+    char	*library = libraryName;

+    char	*dot;

+    XModuleType	module;

+    for (;;)

+    {

+#if defined(hpux)

+	module = shl_load(library, BIND_DEFERRED, 0L);

+#else

+#ifdef _MSC_VER

+	module =  LoadLibrary(library);

+#else

+	module =  dlopen(library, RTLD_LAZY);

+#endif

+#endif

+	if (module)

+	    return module;

+	dot = strrchr (library, '.');

+	if (!dot)

+	    break;

+	*dot = '\0';

+    }

+    return NULL;

+}

+

+static void *

+fetch_symbol (XModuleType module, const char *under_symbol)

+{

+    void *result = NULL;

+    const char *symbol = under_symbol + 1;

+#if defined(hpux)

+    int getsyms_cnt, i;

+    struct shl_symbol *symbols;

+

+    getsyms_cnt = shl_getsymbols(module, TYPE_PROCEDURE,

+				 EXPORT_SYMBOLS, malloc, &symbols);

+

+    for(i=0; i<getsyms_cnt; i++) {

+        if(!strcmp(symbols[i].name, symbol)) {

+	    result = symbols[i].value;

+	    break;

+         }

+    }

+

+    if(getsyms_cnt > 0) {

+        free(symbols);

+    }

+#else

+    result = dlsym (module, symbol);

+    if (!result)

+	result = dlsym (module, under_symbol);

+#endif

+    return result;

+}

+

+typedef void	(*NoticeCreateBitmapFunc) (Display	    *dpy,

+					   Pixmap	    pid,

+					   unsigned int width,

+					   unsigned int height);

+

+typedef void	(*NoticePutBitmapFunc) (Display	    *dpy,

+					Drawable    draw,

+					XImage	    *image);

+

+typedef Cursor	(*TryShapeBitmapCursorFunc) (Display	    *dpy,

+					     Pixmap	    source,

+					     Pixmap	    mask,

+					     XColor	    *foreground,

+					     XColor	    *background,

+					     unsigned int   x,

+					     unsigned int   y);

+

+typedef Cursor	(*TryShapeCursorFunc) (Display	    *dpy,

+				       Font	    source_font,

+				       Font	    mask_font,

+				       unsigned int source_char,

+				       unsigned int mask_char,

+				       XColor _Xconst *foreground,

+				       XColor _Xconst *background);

+

+static XModuleType  _XcursorModule;

+static Bool	    _XcursorModuleTried;

+

+#define GetFunc(type,name,ret) {\

+    static Bool	    been_here; \

+    static type	    staticFunc; \

+     \

+    _XLockMutex (_Xglobal_lock); \

+    if (!been_here) \

+    { \

+	been_here = True; \

+	if (!_XcursorModuleTried) \

+	{ \

+	    _XcursorModuleTried = True; \

+	    _XcursorModule = open_library (); \

+	} \

+	if (_XcursorModule) \

+	    staticFunc = (type) fetch_symbol (_XcursorModule, "_" name); \

+    } \

+    ret = staticFunc; \

+    _XUnlockMutex (_Xglobal_lock); \

+}

+

+static Cursor

+_XTryShapeCursor (Display	    *dpy,

+		  Font		    source_font,

+		  Font		    mask_font,

+		  unsigned int	    source_char,

+		  unsigned int	    mask_char,

+		  XColor _Xconst    *foreground,

+		  XColor _Xconst    *background)

+{

+    TryShapeCursorFunc		func;

+

+    GetFunc (TryShapeCursorFunc, "XcursorTryShapeCursor", func);

+    if (func)

+	return (*func) (dpy, source_font, mask_font, source_char, mask_char,

+			foreground, background);

+    return None;

+}

+

+void

+_XNoticeCreateBitmap (Display	    *dpy,

+		      Pixmap	    pid,

+		      unsigned int  width,

+		      unsigned int  height)

+{

+    NoticeCreateBitmapFunc  func;

+

+    GetFunc (NoticeCreateBitmapFunc, "XcursorNoticeCreateBitmap", func);

+    if (func)

+	(*func) (dpy, pid, width, height);

+}

+

+void

+_XNoticePutBitmap (Display	*dpy,

+		   Drawable	draw,

+		   XImage	*image)

+{

+    NoticePutBitmapFunc	func;

+

+    GetFunc (NoticePutBitmapFunc, "XcursorNoticePutBitmap", func);

+    if (func)

+	(*func) (dpy, draw, image);

+}

+

+Cursor

+_XTryShapeBitmapCursor (Display		*dpy,

+			Pixmap		source,

+			Pixmap		mask,

+			XColor		*foreground,

+			XColor		*background,

+			unsigned int	x,

+			unsigned int	y)

+{

+    TryShapeBitmapCursorFunc	func;

+

+    GetFunc (TryShapeBitmapCursorFunc, "XcursorTryShapeBitmapCursor", func);

+    if (func)

+	return (*func) (dpy, source, mask, foreground, background, x, y);

+    return None;

+}

+#endif

+

+Cursor XCreateGlyphCursor(

+     register Display *dpy,

+     Font source_font,

+     Font mask_font,

+     unsigned int source_char,

+     unsigned int mask_char,

+     XColor _Xconst *foreground,

+     XColor _Xconst *background)

+{

+    Cursor cid;

+    register xCreateGlyphCursorReq *req;

+

+#ifdef USE_DYNAMIC_XCURSOR

+    cid = _XTryShapeCursor (dpy, source_font, mask_font,

+			    source_char, mask_char, foreground, background);

+    if (cid)

+	return cid;

+#endif

+    LockDisplay(dpy);

+    GetReq(CreateGlyphCursor, req);

+    cid = req->cid = XAllocID(dpy);

+    req->source = source_font;

+    req->mask = mask_font;

+    req->sourceChar = source_char;

+    req->maskChar = mask_char;

+    req->foreRed = foreground->red;

+    req->foreGreen = foreground->green;

+    req->foreBlue = foreground->blue;

+    req->backRed = background->red;

+    req->backGreen = background->green;

+    req->backBlue = background->blue;

+    UnlockDisplay(dpy);

+    SyncHandle();

+    return (cid);

+}

+

diff --git a/libX11/src/FSWrap.c b/libX11/src/FSWrap.c
index 45a2c34e3..d97c39504 100644
--- a/libX11/src/FSWrap.c
+++ b/libX11/src/FSWrap.c
@@ -1,262 +1,262 @@
-
-/*
- * Copyright 1991 by the Open Software Foundation
- * Copyright 1993 by the TOSHIBA Corp.
- *
- * Permission to use, copy, modify, distribute, and sell this software and its
- * documentation for any purpose is hereby granted without fee, provided that
- * the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name Open Software Foundation
- * not be used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.  Open Software
- * Foundation makes no representations about the suitability of this
- * software for any purpose.  It is provided "as is" without express or
- * implied warranty.
- *
- * OPEN SOFTWARE FOUNDATION DISCLAIMS ALL WARRANTIES WITH REGARD TO
- * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
- * FITNESS, IN NO EVENT SHALL OPEN SOFTWARE FOUNDATIONN BE
- * LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
- * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- *		 M. Collins		OSF
- *
- *		 Katsuhisa Yano		TOSHIBA Corp.
- */
-
-/*
-
-Copyright 1991, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include <ctype.h>
-#include <X11/Xos.h>
-
-
-#define	XMAXLIST	256
-
-char **
-_XParseBaseFontNameList(
-    char           *str,
-    int            *num)
-{
-    char           *plist[XMAXLIST];
-    char          **list;
-    char           *ptr, *psave;
-
-    *num = 0;
-    if (!str || !*str) {
-	return (char **)NULL;
-    }
-    while (*str && isspace(*str))
-	str++;
-    if (!*str)
-	return (char **)NULL;
-
-    if (!(ptr = strdup(str))) {
-	return (char **)NULL;
-    }
-
-    psave = ptr;
-    /* somebody who specifies more than XMAXLIST basefontnames will lose */
-    while (*num < (sizeof plist / sizeof plist[0])) {
-	char	*back;
-
-	plist[*num] = ptr;
-	if ((ptr = strchr(ptr, ','))) {
-	    back = ptr;
-	} else {
-	    back = plist[*num] + strlen(plist[*num]);
-	}
-	while (isspace(*(back - 1)))
-	    back--;
-	*back = '\0';
-	(*num)++;
-	if (!ptr)
-	    break;
-	ptr++;
-	while (*ptr && isspace(*ptr))
-	    ptr++;
-	if (!*ptr)
-	    break;
-    }
-    if (!(list = (char **) Xmalloc((unsigned)sizeof(char *) * (*num + 1)))) {
-	Xfree(psave);
-	return (char **)NULL;
-    }
-    memcpy((char *)list, (char *)plist, sizeof(char *) * (*num));
-    *(list + *num) = NULL;
-
-    return list;
-}
-
-static char **
-copy_string_list(
-    char **string_list,
-    int list_count)
-{
-    char **string_list_ret, **list_src, **list_dst, *dst;
-    int length, count;
-
-    if (string_list == NULL || list_count == 0)
-	return (char **) NULL;
-
-    string_list_ret = (char **) Xmalloc(sizeof(char *) * list_count);
-    if (string_list_ret == NULL)
-	return (char **) NULL;
-
-    list_src = string_list;
-    count = list_count;
-    for (length = 0; count-- > 0; list_src++)
-	length += strlen(*list_src) + 1;
-
-    dst = (char *) Xmalloc(length);
-    if (dst == NULL) {
-	Xfree(string_list_ret);
-	return (char **) NULL;
-    }
-
-    list_src = string_list;
-    count = list_count;
-    list_dst = string_list_ret;
-    for ( ;  count-- > 0; list_src++) {
-	strcpy(dst, *list_src);
-	*list_dst++ = dst;
-	dst += strlen(dst) + 1;
-    }
-
-    return string_list_ret;
-}
-
-XFontSet
-XCreateFontSet (
-    Display        *dpy,
-    _Xconst char   *base_font_name_list,
-    char         ***missing_charset_list,
-    int            *missing_charset_count,
-    char          **def_string)
-{
-    XOM om;
-    XOC oc;
-    XOMCharSetList *list;
-
-    *missing_charset_list = NULL;
-    *missing_charset_count = 0;
-
-    om = XOpenOM(dpy, NULL, NULL, NULL);
-    if (om == NULL)
-	return (XFontSet) NULL;
-
-    if ((oc = XCreateOC(om, XNBaseFontName, base_font_name_list, NULL))) {
-	list = &oc->core.missing_list;
-	oc->core.om_automatic = True;
-    } else
-	list = &om->core.required_charset;
-
-    *missing_charset_list = copy_string_list(list->charset_list,
-					     list->charset_count);
-    *missing_charset_count = list->charset_count;
-
-    if (list->charset_list && *missing_charset_list == NULL)
-	oc = NULL;
-
-    if (oc && def_string) {
-	*def_string = oc->core.default_string;
-	if (!*def_string)
-	    *def_string = "";
-    }
-
-    if (oc == NULL)
-	XCloseOM(om);
-
-    return (XFontSet) oc;
-}
-
-int
-XFontsOfFontSet(
-    XFontSet        font_set,
-    XFontStruct  ***font_struct_list,
-    char         ***font_name_list)
-{
-    *font_name_list   = font_set->core.font_info.font_name_list;
-    *font_struct_list = font_set->core.font_info.font_struct_list;
-    return font_set->core.font_info.num_font;
-}
-
-char *
-XBaseFontNameListOfFontSet(XFontSet font_set)
-{
-    return font_set->core.base_name_list;
-}
-
-char *
-XLocaleOfFontSet(XFontSet font_set)
-{
-    return font_set->core.om->core.lcd->core->name;
-}
-
-Bool
-XContextDependentDrawing(XFontSet font_set)
-{
-    return font_set->core.om->core.context_dependent;
-}
-
-Bool
-XDirectionalDependentDrawing(XFontSet font_set)
-{
-    return font_set->core.om->core.directional_dependent;
-}
-
-Bool
-XContextualDrawing(XFontSet font_set)
-{
-    return font_set->core.om->core.contextual_drawing;
-}
-
-XFontSetExtents *
-XExtentsOfFontSet(XFontSet font_set)
-{
-    if (!font_set)
-	return NULL;
-    return &font_set->core.font_set_extents;
-}
-
-void
-XFreeFontSet(
-    Display        *dpy,
-    XFontSet        font_set)
-{
-    XCloseOM(font_set->core.om);
-}
+

+/*

+ * Copyright 1991 by the Open Software Foundation

+ * Copyright 1993 by the TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, distribute, and sell this software and its

+ * documentation for any purpose is hereby granted without fee, provided that

+ * the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name Open Software Foundation

+ * not be used in advertising or publicity pertaining to distribution of the

+ * software without specific, written prior permission.  Open Software

+ * Foundation makes no representations about the suitability of this

+ * software for any purpose.  It is provided "as is" without express or

+ * implied warranty.

+ *

+ * OPEN SOFTWARE FOUNDATION DISCLAIMS ALL WARRANTIES WITH REGARD TO

+ * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND

+ * FITNESS, IN NO EVENT SHALL OPEN SOFTWARE FOUNDATIONN BE

+ * LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

+ *

+ *		 M. Collins		OSF

+ *

+ *		 Katsuhisa Yano		TOSHIBA Corp.

+ */

+

+/*

+

+Copyright 1991, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include <ctype.h>

+#include <X11/Xos.h>

+#include <unistd.h>

+

+#define	XMAXLIST	256

+

+char **

+_XParseBaseFontNameList(

+    char           *str,

+    int            *num)

+{

+    char           *plist[XMAXLIST];

+    char          **list;

+    char           *ptr, *psave;

+

+    *num = 0;

+    if (!str || !*str) {

+	return (char **)NULL;

+    }

+    while (*str && isspace(*str))

+	str++;

+    if (!*str)

+	return (char **)NULL;

+

+    if (!(ptr = strdup(str))) {

+	return (char **)NULL;

+    }

+

+    psave = ptr;

+    /* somebody who specifies more than XMAXLIST basefontnames will lose */

+    while (*num < (sizeof plist / sizeof plist[0])) {

+	char	*back;

+

+	plist[*num] = ptr;

+	if ((ptr = strchr(ptr, ','))) {

+	    back = ptr;

+	} else {

+	    back = plist[*num] + strlen(plist[*num]);

+	}

+	while (isspace(*(back - 1)))

+	    back--;

+	*back = '\0';

+	(*num)++;

+	if (!ptr)

+	    break;

+	ptr++;

+	while (*ptr && isspace(*ptr))

+	    ptr++;

+	if (!*ptr)

+	    break;

+    }

+    if (!(list = (char **) Xmalloc((unsigned)sizeof(char *) * (*num + 1)))) {

+	Xfree(psave);

+	return (char **)NULL;

+    }

+    memcpy((char *)list, (char *)plist, sizeof(char *) * (*num));

+    *(list + *num) = NULL;

+

+    return list;

+}

+

+static char **

+copy_string_list(

+    char **string_list,

+    int list_count)

+{

+    char **string_list_ret, **list_src, **list_dst, *dst;

+    int length, count;

+

+    if (string_list == NULL || list_count == 0)

+	return (char **) NULL;

+

+    string_list_ret = (char **) Xmalloc(sizeof(char *) * list_count);

+    if (string_list_ret == NULL)

+	return (char **) NULL;

+

+    list_src = string_list;

+    count = list_count;

+    for (length = 0; count-- > 0; list_src++)

+	length += strlen(*list_src) + 1;

+

+    dst = (char *) Xmalloc(length);

+    if (dst == NULL) {

+	Xfree(string_list_ret);

+	return (char **) NULL;

+    }

+

+    list_src = string_list;

+    count = list_count;

+    list_dst = string_list_ret;

+    for ( ;  count-- > 0; list_src++) {

+	strcpy(dst, *list_src);

+	*list_dst++ = dst;

+	dst += strlen(dst) + 1;

+    }

+

+    return string_list_ret;

+}

+

+XFontSet

+XCreateFontSet (

+    Display        *dpy,

+    _Xconst char   *base_font_name_list,

+    char         ***missing_charset_list,

+    int            *missing_charset_count,

+    char          **def_string)

+{

+    XOM om;

+    XOC oc;

+    XOMCharSetList *list;

+

+    *missing_charset_list = NULL;

+    *missing_charset_count = 0;

+

+    om = XOpenOM(dpy, NULL, NULL, NULL);

+    if (om == NULL)

+	return (XFontSet) NULL;

+

+    if ((oc = XCreateOC(om, XNBaseFontName, base_font_name_list, NULL))) {

+	list = &oc->core.missing_list;

+	oc->core.om_automatic = True;

+    } else

+	list = &om->core.required_charset;

+

+    *missing_charset_list = copy_string_list(list->charset_list,

+					     list->charset_count);

+    *missing_charset_count = list->charset_count;

+

+    if (list->charset_list && *missing_charset_list == NULL)

+	oc = NULL;

+

+    if (oc && def_string) {

+	*def_string = oc->core.default_string;

+	if (!*def_string)

+	    *def_string = "";

+    }

+

+    if (oc == NULL)

+	XCloseOM(om);

+

+    return (XFontSet) oc;

+}

+

+int

+XFontsOfFontSet(

+    XFontSet        font_set,

+    XFontStruct  ***font_struct_list,

+    char         ***font_name_list)

+{

+    *font_name_list   = font_set->core.font_info.font_name_list;

+    *font_struct_list = font_set->core.font_info.font_struct_list;

+    return font_set->core.font_info.num_font;

+}

+

+char *

+XBaseFontNameListOfFontSet(XFontSet font_set)

+{

+    return font_set->core.base_name_list;

+}

+

+char *

+XLocaleOfFontSet(XFontSet font_set)

+{

+    return font_set->core.om->core.lcd->core->name;

+}

+

+Bool

+XContextDependentDrawing(XFontSet font_set)

+{

+    return font_set->core.om->core.context_dependent;

+}

+

+Bool

+XDirectionalDependentDrawing(XFontSet font_set)

+{

+    return font_set->core.om->core.directional_dependent;

+}

+

+Bool

+XContextualDrawing(XFontSet font_set)

+{

+    return font_set->core.om->core.contextual_drawing;

+}

+

+XFontSetExtents *

+XExtentsOfFontSet(XFontSet font_set)

+{

+    if (!font_set)

+	return NULL;

+    return &font_set->core.font_set_extents;

+}

+

+void

+XFreeFontSet(

+    Display        *dpy,

+    XFontSet        font_set)

+{

+    XCloseOM(font_set->core.om);

+}

diff --git a/libX11/src/GetDflt.c b/libX11/src/GetDflt.c
index dfda1c64d..0443e2d1a 100644
--- a/libX11/src/GetDflt.c
+++ b/libX11/src/GetDflt.c
@@ -160,9 +160,13 @@ InitDefaults(
      * ~/.Xdefaults.  Next, if there is an XENVIRONMENT environment variable,
      * then load that file.
      */
-
+     
     if (dpy->xdefaults == NULL) {
+	#ifdef _MSC_VER
+	const char *slashDotXdefaults = ".Xdefaults";
+	#else
 	const char *slashDotXdefaults = "/.Xdefaults";
+	#endif
 
 	(void) GetHomeDir (fname, PATH_MAX - strlen (slashDotXdefaults) - 1);
 	(void) strcat (fname, slashDotXdefaults);
@@ -172,7 +176,11 @@ InitDefaults(
     }
 
     if (!(xenv = getenv ("XENVIRONMENT"))) {
+	#ifdef _MSC_VER
+	const char *slashDotXdefaultsDash = ".Xdefaults-";
+	#else
 	const char *slashDotXdefaultsDash = "/.Xdefaults-";
+	#endif
 	int len;
 
 	(void) GetHomeDir (fname, PATH_MAX - strlen (slashDotXdefaultsDash) - 1);
diff --git a/libX11/src/InitExt.c b/libX11/src/InitExt.c
index 19515ccd0..f14da412c 100644
--- a/libX11/src/InitExt.c
+++ b/libX11/src/InitExt.c
@@ -1,409 +1,410 @@
-/*
-
-Copyright 1987, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xlibint.h>
-#include <X11/Xos.h>
-#include <stdio.h>
-
-/*
- * This routine is used to link a extension in so it will be called
- * at appropriate times.
- */
-
-XExtCodes *XInitExtension (
-	Display *dpy,
-	_Xconst char *name)
-{
-	XExtCodes codes;	/* temp. place for extension information. */
-	register _XExtension *ext;/* need a place to build it all */
-	if (!XQueryExtension(dpy, name,
-		&codes.major_opcode, &codes.first_event,
-		&codes.first_error)) return (NULL);
-
-	LockDisplay (dpy);
-	if (! (ext = (_XExtension *) Xcalloc (1, sizeof (_XExtension))) ||
-	    ! (ext->name = strdup(name))) {
-	    if (ext) Xfree((char *) ext);
-	    UnlockDisplay(dpy);
-	    return (XExtCodes *) NULL;
-	}
-	codes.extension = dpy->ext_number++;
-	ext->codes = codes;
-
-	/* chain it onto the display list */
-	ext->next = dpy->ext_procs;
-	dpy->ext_procs = ext;
-	UnlockDisplay (dpy);
-
-	return (&ext->codes);		/* tell him which extension */
-}
-
-XExtCodes *XAddExtension (Display *dpy)
-{
-    register _XExtension *ext;
-
-    LockDisplay (dpy);
-    if (! (ext = (_XExtension *) Xcalloc (1, sizeof (_XExtension)))) {
-	UnlockDisplay(dpy);
-	return (XExtCodes *) NULL;
-    }
-    ext->codes.extension = dpy->ext_number++;
-
-    /* chain it onto the display list */
-    ext->next = dpy->ext_procs;
-    dpy->ext_procs = ext;
-    UnlockDisplay (dpy);
-
-    return (&ext->codes);		/* tell him which extension */
-}
-
-static _XExtension *XLookupExtension (
-	register Display *dpy,	/* display */
-	register int extension)	/* extension number */
-{
-	register _XExtension *ext;
-	for (ext = dpy->ext_procs; ext; ext = ext->next)
-	    if (ext->codes.extension == extension) return (ext);
-	return (NULL);
-}
-
-XExtData **XEHeadOfExtensionList(XEDataObject object)
-{
-    return *(XExtData ***)&object;
-}
-
-int
-XAddToExtensionList(
-    XExtData **structure,
-    XExtData *ext_data)
-{
-    ext_data->next = *structure;
-    *structure = ext_data;
-    return 1;
-}
-
-XExtData *XFindOnExtensionList(
-    XExtData **structure,
-    int number)
-{
-    XExtData *ext;
-
-    ext = *structure;
-    while (ext && (ext->number != number))
-	ext = ext->next;
-    return ext;
-}
-
-/*
- * Routines to hang procs on the extension structure.
- */
-CreateGCType XESetCreateGC(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	CreateGCType proc)	/* routine to call when GC created */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register CreateGCType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->create_GC;
-	e->create_GC = proc;
-	UnlockDisplay(dpy);
-	return (CreateGCType)oldproc;
-}
-
-CopyGCType XESetCopyGC(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	CopyGCType proc)	/* routine to call when GC copied */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register CopyGCType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->copy_GC;
-	e->copy_GC = proc;
-	UnlockDisplay(dpy);
-	return (CopyGCType)oldproc;
-}
-
-FlushGCType XESetFlushGC(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	FlushGCType proc)	/* routine to call when GC copied */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register FlushGCType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->flush_GC;
-	e->flush_GC = proc;
-	UnlockDisplay(dpy);
-	return (FlushGCType)oldproc;
-}
-
-FreeGCType XESetFreeGC(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	FreeGCType proc)	/* routine to call when GC freed */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register FreeGCType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->free_GC;
-	e->free_GC = proc;
-	UnlockDisplay(dpy);
-	return (FreeGCType)oldproc;
-}
-
-CreateFontType XESetCreateFont(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	CreateFontType proc)	/* routine to call when font created */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register CreateFontType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->create_Font;
-	e->create_Font = proc;
-	UnlockDisplay(dpy);
-	return (CreateFontType)oldproc;
-}
-
-FreeFontType XESetFreeFont(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	FreeFontType proc)	/* routine to call when font freed */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register FreeFontType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->free_Font;
-	e->free_Font = proc;
-	UnlockDisplay(dpy);
-	return (FreeFontType)oldproc;
-}
-
-CloseDisplayType XESetCloseDisplay(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	CloseDisplayType proc)	/* routine to call when display closed */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register CloseDisplayType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->close_display;
-	e->close_display = proc;
-	UnlockDisplay(dpy);
-	return (CloseDisplayType)oldproc;
-}
-
-typedef Bool (*WireToEventType) (
-    Display*	/* display */,
-    XEvent*	/* re */,
-    xEvent*	/* event */
-);
-
-WireToEventType XESetWireToEvent(
-	Display *dpy,		/* display */
-	int event_number,	/* event routine to replace */
-	WireToEventType proc)	/* routine to call when converting event */
-{
-	register WireToEventType oldproc;
-	if (proc == NULL) proc = (WireToEventType)_XUnknownWireEvent;
-	LockDisplay (dpy);
-	oldproc = dpy->event_vec[event_number];
-	dpy->event_vec[event_number] = proc;
-	UnlockDisplay (dpy);
-	return (WireToEventType)oldproc;
-}
-
-typedef Bool (*WireToEventCookieType) (
-    Display*	/* display */,
-    XGenericEventCookie*	/* re */,
-    xEvent*	/* event */
-);
-
-WireToEventCookieType XESetWireToEventCookie(
-    Display *dpy,       /* display */
-    int extension,      /* extension major opcode */
-    WireToEventCookieType proc /* routine to call for generic events */
-    )
-{
-	WireToEventCookieType oldproc;
-	if (proc == NULL) proc = (WireToEventCookieType)_XUnknownWireEventCookie;
-	LockDisplay (dpy);
-	oldproc = dpy->generic_event_vec[extension & 0x7F];
-	dpy->generic_event_vec[extension & 0x7F] = proc;
-	UnlockDisplay (dpy);
-	return (WireToEventCookieType)oldproc;
-}
-
-typedef Bool (*CopyEventCookieType) (
-    Display*	/* display */,
-    XGenericEventCookie*	/* in */,
-    XGenericEventCookie*	/* out */
-);
-
-CopyEventCookieType XESetCopyEventCookie(
-    Display *dpy,       /* display */
-    int extension,      /* extension major opcode */
-    CopyEventCookieType proc /* routine to copy generic events */
-    )
-{
-	CopyEventCookieType oldproc;
-	if (proc == NULL) proc = (CopyEventCookieType)_XUnknownCopyEventCookie;
-	LockDisplay (dpy);
-	oldproc = dpy->generic_event_copy_vec[extension & 0x7F];
-	dpy->generic_event_copy_vec[extension & 0x7F] = proc;
-	UnlockDisplay (dpy);
-	return (CopyEventCookieType)oldproc;
-}
-
-
-typedef Status (*EventToWireType) (
-    Display*	/* display */,
-    XEvent*	/* re */,
-    xEvent*	/* event */
-);
-
-EventToWireType XESetEventToWire(
-	Display *dpy,		/* display */
-	int event_number,	/* event routine to replace */
-	EventToWireType proc)	/* routine to call when converting event */
-{
-	register EventToWireType oldproc;
-	if (proc == NULL) proc = (EventToWireType) _XUnknownNativeEvent;
-	LockDisplay (dpy);
-	oldproc = dpy->wire_vec[event_number];
-	dpy->wire_vec[event_number] = proc;
-	UnlockDisplay(dpy);
-	return (EventToWireType)oldproc;
-}
-
-typedef Bool (*WireToErrorType) (
-    Display*	/* display */,
-    XErrorEvent* /* he */,
-    xError*	/* we */
-);
-
-WireToErrorType XESetWireToError(
-	Display *dpy,		/* display */
-	int error_number,	/* error routine to replace */
-	WireToErrorType proc)	/* routine to call when converting error */
-{
-	register WireToErrorType oldproc = NULL;
-	if (proc == NULL) proc = (WireToErrorType)_XDefaultWireError;
-	LockDisplay (dpy);
-	if (!dpy->error_vec) {
-	    int i;
-	    dpy->error_vec = Xmalloc(256 * sizeof(oldproc));
-	    for (i = 1; i < 256; i++)
-		dpy->error_vec[i] = _XDefaultWireError;
-	}
-	if (dpy->error_vec) {
-	    oldproc = dpy->error_vec[error_number];
-	    dpy->error_vec[error_number] = proc;
-	}
-	UnlockDisplay (dpy);
-	return (WireToErrorType)oldproc;
-}
-
-ErrorType XESetError(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	ErrorType proc)		/* routine to call when X error happens */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register ErrorType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->error;
-	e->error = proc;
-	UnlockDisplay(dpy);
-	return (ErrorType)oldproc;
-}
-
-ErrorStringType XESetErrorString(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	ErrorStringType proc)	/* routine to call when I/O error happens */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register ErrorStringType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->error_string;
-	e->error_string = proc;
-	UnlockDisplay(dpy);
-	return (ErrorStringType)oldproc;
-}
-
-PrintErrorType XESetPrintErrorValues(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	PrintErrorType proc)	/* routine to call to print */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register PrintErrorType oldproc;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->error_values;
-	e->error_values = proc;
-	UnlockDisplay(dpy);
-	return (PrintErrorType)oldproc;
-}
-
-BeforeFlushType XESetBeforeFlush(
-	Display *dpy,		/* display */
-	int extension,		/* extension number */
-	BeforeFlushType proc)	/* routine to call on flush */
-{
-	register _XExtension *e;	/* for lookup of extension */
-	register BeforeFlushType oldproc;
-	register _XExtension *ext;
-	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);
-	LockDisplay(dpy);
-	oldproc = e->before_flush;
-	e->before_flush = proc;
-	for (ext = dpy->flushes; ext && ext != e; ext = ext->next)
-	    ;
-	if (!ext) {
-	    e->next_flush = dpy->flushes;
-	    dpy->flushes = e;
-	}
-	UnlockDisplay(dpy);
-	return (BeforeFlushType)oldproc;
-}
+/*

+

+Copyright 1987, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xlibint.h>

+#include <X11/Xos.h>

+#include <stdio.h>

+#include <unistd.h>

+

+/*

+ * This routine is used to link a extension in so it will be called

+ * at appropriate times.

+ */

+

+XExtCodes *XInitExtension (

+	Display *dpy,

+	_Xconst char *name)

+{

+	XExtCodes codes;	/* temp. place for extension information. */

+	register _XExtension *ext;/* need a place to build it all */

+	if (!XQueryExtension(dpy, name,

+		&codes.major_opcode, &codes.first_event,

+		&codes.first_error)) return (NULL);

+

+	LockDisplay (dpy);

+	if (! (ext = (_XExtension *) Xcalloc (1, sizeof (_XExtension))) ||

+	    ! (ext->name = strdup(name))) {

+	    if (ext) Xfree((char *) ext);

+	    UnlockDisplay(dpy);

+	    return (XExtCodes *) NULL;

+	}

+	codes.extension = dpy->ext_number++;

+	ext->codes = codes;

+

+	/* chain it onto the display list */

+	ext->next = dpy->ext_procs;

+	dpy->ext_procs = ext;

+	UnlockDisplay (dpy);

+

+	return (&ext->codes);		/* tell him which extension */

+}

+

+XExtCodes *XAddExtension (Display *dpy)

+{

+    register _XExtension *ext;

+

+    LockDisplay (dpy);

+    if (! (ext = (_XExtension *) Xcalloc (1, sizeof (_XExtension)))) {

+	UnlockDisplay(dpy);

+	return (XExtCodes *) NULL;

+    }

+    ext->codes.extension = dpy->ext_number++;

+

+    /* chain it onto the display list */

+    ext->next = dpy->ext_procs;

+    dpy->ext_procs = ext;

+    UnlockDisplay (dpy);

+

+    return (&ext->codes);		/* tell him which extension */

+}

+

+static _XExtension *XLookupExtension (

+	register Display *dpy,	/* display */

+	register int extension)	/* extension number */

+{

+	register _XExtension *ext;

+	for (ext = dpy->ext_procs; ext; ext = ext->next)

+	    if (ext->codes.extension == extension) return (ext);

+	return (NULL);

+}

+

+XExtData **XEHeadOfExtensionList(XEDataObject object)

+{

+    return *(XExtData ***)&object;

+}

+

+int

+XAddToExtensionList(

+    XExtData **structure,

+    XExtData *ext_data)

+{

+    ext_data->next = *structure;

+    *structure = ext_data;

+    return 1;

+}

+

+XExtData *XFindOnExtensionList(

+    XExtData **structure,

+    int number)

+{

+    XExtData *ext;

+

+    ext = *structure;

+    while (ext && (ext->number != number))

+	ext = ext->next;

+    return ext;

+}

+

+/*

+ * Routines to hang procs on the extension structure.

+ */

+CreateGCType XESetCreateGC(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	CreateGCType proc)	/* routine to call when GC created */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register CreateGCType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->create_GC;

+	e->create_GC = proc;

+	UnlockDisplay(dpy);

+	return (CreateGCType)oldproc;

+}

+

+CopyGCType XESetCopyGC(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	CopyGCType proc)	/* routine to call when GC copied */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register CopyGCType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->copy_GC;

+	e->copy_GC = proc;

+	UnlockDisplay(dpy);

+	return (CopyGCType)oldproc;

+}

+

+FlushGCType XESetFlushGC(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	FlushGCType proc)	/* routine to call when GC copied */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register FlushGCType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->flush_GC;

+	e->flush_GC = proc;

+	UnlockDisplay(dpy);

+	return (FlushGCType)oldproc;

+}

+

+FreeGCType XESetFreeGC(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	FreeGCType proc)	/* routine to call when GC freed */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register FreeGCType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->free_GC;

+	e->free_GC = proc;

+	UnlockDisplay(dpy);

+	return (FreeGCType)oldproc;

+}

+

+CreateFontType XESetCreateFont(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	CreateFontType proc)	/* routine to call when font created */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register CreateFontType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->create_Font;

+	e->create_Font = proc;

+	UnlockDisplay(dpy);

+	return (CreateFontType)oldproc;

+}

+

+FreeFontType XESetFreeFont(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	FreeFontType proc)	/* routine to call when font freed */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register FreeFontType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->free_Font;

+	e->free_Font = proc;

+	UnlockDisplay(dpy);

+	return (FreeFontType)oldproc;

+}

+

+CloseDisplayType XESetCloseDisplay(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	CloseDisplayType proc)	/* routine to call when display closed */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register CloseDisplayType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->close_display;

+	e->close_display = proc;

+	UnlockDisplay(dpy);

+	return (CloseDisplayType)oldproc;

+}

+

+typedef Bool (*WireToEventType) (

+    Display*	/* display */,

+    XEvent*	/* re */,

+    xEvent*	/* event */

+);

+

+WireToEventType XESetWireToEvent(

+	Display *dpy,		/* display */

+	int event_number,	/* event routine to replace */

+	WireToEventType proc)	/* routine to call when converting event */

+{

+	register WireToEventType oldproc;

+	if (proc == NULL) proc = (WireToEventType)_XUnknownWireEvent;

+	LockDisplay (dpy);

+	oldproc = dpy->event_vec[event_number];

+	dpy->event_vec[event_number] = proc;

+	UnlockDisplay (dpy);

+	return (WireToEventType)oldproc;

+}

+

+typedef Bool (*WireToEventCookieType) (

+    Display*	/* display */,

+    XGenericEventCookie*	/* re */,

+    xEvent*	/* event */

+);

+

+WireToEventCookieType XESetWireToEventCookie(

+    Display *dpy,       /* display */

+    int extension,      /* extension major opcode */

+    WireToEventCookieType proc /* routine to call for generic events */

+    )

+{

+	WireToEventCookieType oldproc;

+	if (proc == NULL) proc = (WireToEventCookieType)_XUnknownWireEventCookie;

+	LockDisplay (dpy);

+	oldproc = dpy->generic_event_vec[extension & 0x7F];

+	dpy->generic_event_vec[extension & 0x7F] = proc;

+	UnlockDisplay (dpy);

+	return (WireToEventCookieType)oldproc;

+}

+

+typedef Bool (*CopyEventCookieType) (

+    Display*	/* display */,

+    XGenericEventCookie*	/* in */,

+    XGenericEventCookie*	/* out */

+);

+

+CopyEventCookieType XESetCopyEventCookie(

+    Display *dpy,       /* display */

+    int extension,      /* extension major opcode */

+    CopyEventCookieType proc /* routine to copy generic events */

+    )

+{

+	CopyEventCookieType oldproc;

+	if (proc == NULL) proc = (CopyEventCookieType)_XUnknownCopyEventCookie;

+	LockDisplay (dpy);

+	oldproc = dpy->generic_event_copy_vec[extension & 0x7F];

+	dpy->generic_event_copy_vec[extension & 0x7F] = proc;

+	UnlockDisplay (dpy);

+	return (CopyEventCookieType)oldproc;

+}

+

+

+typedef Status (*EventToWireType) (

+    Display*	/* display */,

+    XEvent*	/* re */,

+    xEvent*	/* event */

+);

+

+EventToWireType XESetEventToWire(

+	Display *dpy,		/* display */

+	int event_number,	/* event routine to replace */

+	EventToWireType proc)	/* routine to call when converting event */

+{

+	register EventToWireType oldproc;

+	if (proc == NULL) proc = (EventToWireType) _XUnknownNativeEvent;

+	LockDisplay (dpy);

+	oldproc = dpy->wire_vec[event_number];

+	dpy->wire_vec[event_number] = proc;

+	UnlockDisplay(dpy);

+	return (EventToWireType)oldproc;

+}

+

+typedef Bool (*WireToErrorType) (

+    Display*	/* display */,

+    XErrorEvent* /* he */,

+    xError*	/* we */

+);

+

+WireToErrorType XESetWireToError(

+	Display *dpy,		/* display */

+	int error_number,	/* error routine to replace */

+	WireToErrorType proc)	/* routine to call when converting error */

+{

+	register WireToErrorType oldproc = NULL;

+	if (proc == NULL) proc = (WireToErrorType)_XDefaultWireError;

+	LockDisplay (dpy);

+	if (!dpy->error_vec) {

+	    int i;

+	    dpy->error_vec = Xmalloc(256 * sizeof(oldproc));

+	    for (i = 1; i < 256; i++)

+		dpy->error_vec[i] = _XDefaultWireError;

+	}

+	if (dpy->error_vec) {

+	    oldproc = dpy->error_vec[error_number];

+	    dpy->error_vec[error_number] = proc;

+	}

+	UnlockDisplay (dpy);

+	return (WireToErrorType)oldproc;

+}

+

+ErrorType XESetError(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	ErrorType proc)		/* routine to call when X error happens */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register ErrorType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->error;

+	e->error = proc;

+	UnlockDisplay(dpy);

+	return (ErrorType)oldproc;

+}

+

+ErrorStringType XESetErrorString(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	ErrorStringType proc)	/* routine to call when I/O error happens */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register ErrorStringType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->error_string;

+	e->error_string = proc;

+	UnlockDisplay(dpy);

+	return (ErrorStringType)oldproc;

+}

+

+PrintErrorType XESetPrintErrorValues(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	PrintErrorType proc)	/* routine to call to print */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register PrintErrorType oldproc;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->error_values;

+	e->error_values = proc;

+	UnlockDisplay(dpy);

+	return (PrintErrorType)oldproc;

+}

+

+BeforeFlushType XESetBeforeFlush(

+	Display *dpy,		/* display */

+	int extension,		/* extension number */

+	BeforeFlushType proc)	/* routine to call on flush */

+{

+	register _XExtension *e;	/* for lookup of extension */

+	register BeforeFlushType oldproc;

+	register _XExtension *ext;

+	if ((e = XLookupExtension (dpy, extension)) == NULL) return (NULL);

+	LockDisplay(dpy);

+	oldproc = e->before_flush;

+	e->before_flush = proc;

+	for (ext = dpy->flushes; ext && ext != e; ext = ext->next)

+	    ;

+	if (!ext) {

+	    e->next_flush = dpy->flushes;

+	    dpy->flushes = e;

+	}

+	UnlockDisplay(dpy);

+	return (BeforeFlushType)oldproc;

+}

diff --git a/libX11/src/KeyBind.c b/libX11/src/KeyBind.c
index 221cedd8c..82d85fbe7 100644
--- a/libX11/src/KeyBind.c
+++ b/libX11/src/KeyBind.c
@@ -1,1078 +1,1078 @@
-/*
-
-Copyright 1985, 1987, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-*/
-
-/* Beware, here be monsters (still under construction... - JG */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xlibint.h>
-#include <X11/Xutil.h>
-#define XK_MISCELLANY
-#define XK_LATIN1
-#define XK_LATIN2
-#define XK_LATIN3
-#define XK_LATIN4
-#define XK_LATIN8
-#define XK_LATIN9
-#define XK_CYRILLIC
-#define XK_GREEK
-#define XK_ARMENIAN
-#define XK_CAUCASUS
-#define XK_VIETNAMESE
-#define XK_XKB_KEYS
-#define XK_SINHALA
-#include <X11/keysymdef.h>
-#include <stdio.h>
-
-#ifdef USE_OWN_COMPOSE
-#include "imComp.h"
-
-#endif
-
-#include "Xresource.h"
-#include "Key.h"
-
-#ifdef XKB
-#include "XKBlib.h"
-#include "XKBlibint.h"
-#define	XKeycodeToKeysym	_XKeycodeToKeysym
-#define	XKeysymToKeycode	_XKeysymToKeycode
-#define	XLookupKeysym		_XLookupKeysym
-#define	XRefreshKeyboardMapping	_XRefreshKeyboardMapping
-#define	XLookupString		_XLookupString
-/* XKBBind.c */
-#else
-#define	XkbKeysymToModifiers	_XKeysymToModifiers
-#endif
-
-#define AllMods (ShiftMask|LockMask|ControlMask| \
-		 Mod1Mask|Mod2Mask|Mod3Mask|Mod4Mask|Mod5Mask)
-
-static void
-ComputeMaskFromKeytrans(
-    Display *dpy,
-    register struct _XKeytrans *p);
-
-struct _XKeytrans {
-	struct _XKeytrans *next;/* next on list */
-	char *string;		/* string to return when the time comes */
-	int len;		/* length of string (since NULL is legit)*/
-	KeySym key;		/* keysym rebound */
-	unsigned int state;	/* modifier state */
-	KeySym *modifiers;	/* modifier keysyms you want */
-	int mlen;		/* length of modifier list */
-};
-
-static KeySym
-KeyCodetoKeySym(register Display *dpy, KeyCode keycode, int col)
-{
-    register int per = dpy->keysyms_per_keycode;
-    register KeySym *syms;
-    KeySym lsym, usym;
-
-    if ((col < 0) || ((col >= per) && (col > 3)) ||
-	((int)keycode < dpy->min_keycode) || ((int)keycode > dpy->max_keycode))
-      return NoSymbol;
-
-    syms = &dpy->keysyms[(keycode - dpy->min_keycode) * per];
-    if (col < 4) {
-	if (col > 1) {
-	    while ((per > 2) && (syms[per - 1] == NoSymbol))
-		per--;
-	    if (per < 3)
-		col -= 2;
-	}
-	if ((per <= (col|1)) || (syms[col|1] == NoSymbol)) {
-	    XConvertCase(syms[col&~1], &lsym, &usym);
-	    if (!(col & 1))
-		return lsym;
-	    else if (usym == lsym)
-		return NoSymbol;
-	    else
-		return usym;
-	}
-    }
-    return syms[col];
-}
-
-KeySym
-XKeycodeToKeysym(Display *dpy,
-#if NeedWidePrototypes
-		 unsigned int kc,
-#else
-		 KeyCode kc,
-#endif
-		 int col)
-{
-    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))
-	return NoSymbol;
-    return KeyCodetoKeySym(dpy, kc, col);
-}
-
-KeyCode
-XKeysymToKeycode(
-    Display *dpy,
-    KeySym ks)
-{
-    register int i, j;
-
-    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))
-	return (KeyCode) 0;
-    for (j = 0; j < dpy->keysyms_per_keycode; j++) {
-	for (i = dpy->min_keycode; i <= dpy->max_keycode; i++) {
-	    if (KeyCodetoKeySym(dpy, (KeyCode) i, j) == ks)
-		return i;
-	}
-    }
-    return 0;
-}
-
-KeySym
-XLookupKeysym(
-    register XKeyEvent *event,
-    int col)
-{
-    if ((! event->display->keysyms) && (! _XKeyInitialize(event->display)))
-	return NoSymbol;
-    return KeyCodetoKeySym(event->display, event->keycode, col);
-}
-
-static void
-ResetModMap(
-    Display *dpy)
-{
-    register XModifierKeymap *map;
-    register int i, j, n;
-    KeySym sym;
-    register struct _XKeytrans *p;
-
-    map = dpy->modifiermap;
-    /* If any Lock key contains Caps_Lock, then interpret as Caps_Lock,
-     * else if any contains Shift_Lock, then interpret as Shift_Lock,
-     * else ignore Lock altogether.
-     */
-    dpy->lock_meaning = NoSymbol;
-    /* Lock modifiers are in the second row of the matrix */
-    n = 2 * map->max_keypermod;
-    for (i = map->max_keypermod; i < n; i++) {
-	for (j = 0; j < dpy->keysyms_per_keycode; j++) {
-	    sym = KeyCodetoKeySym(dpy, map->modifiermap[i], j);
-	    if (sym == XK_Caps_Lock) {
-		dpy->lock_meaning = XK_Caps_Lock;
-		break;
-	    } else if (sym == XK_Shift_Lock) {
-		dpy->lock_meaning = XK_Shift_Lock;
-	    }
-	    else if (sym == XK_ISO_Lock) {
-		dpy->lock_meaning = XK_Caps_Lock;
-		break;
-	    }
-	}
-    }
-    /* Now find any Mod<n> modifier acting as the Group or Numlock modifier */
-    dpy->mode_switch = 0;
-    dpy->num_lock = 0;
-    n *= 4;
-    for (i = 3*map->max_keypermod; i < n; i++) {
-	for (j = 0; j < dpy->keysyms_per_keycode; j++) {
-	    sym = KeyCodetoKeySym(dpy, map->modifiermap[i], j);
-	    if (sym == XK_Mode_switch)
-		dpy->mode_switch |= 1 << (i / map->max_keypermod);
-	    if (sym == XK_Num_Lock)
-		dpy->num_lock |= 1 << (i / map->max_keypermod);
-	}
-    }
-    for (p = dpy->key_bindings; p; p = p->next)
-	ComputeMaskFromKeytrans(dpy, p);
-}
-
-static int
-InitModMap(
-    Display *dpy)
-{
-    register XModifierKeymap *map;
-
-    if (! (map = XGetModifierMapping(dpy)))
-	return 0;
-    LockDisplay(dpy);
-    if (dpy->modifiermap)
-	XFreeModifiermap(dpy->modifiermap);
-    dpy->modifiermap = map;
-    dpy->free_funcs->modifiermap = XFreeModifiermap;
-    if (dpy->keysyms)
-	ResetModMap(dpy);
-    UnlockDisplay(dpy);
-    return 1;
-}
-
-int
-XRefreshKeyboardMapping(register XMappingEvent *event)
-{
-
-    if(event->request == MappingKeyboard) {
-	/* XXX should really only refresh what is necessary
-	 * for now, make initialize test fail
-	 */
-	LockDisplay(event->display);
-	if (event->display->keysyms) {
-	     Xfree ((char *)event->display->keysyms);
-	     event->display->keysyms = NULL;
-	}
-	UnlockDisplay(event->display);
-    }
-    if(event->request == MappingModifier) {
-	LockDisplay(event->display);
-	if (event->display->modifiermap) {
-	    XFreeModifiermap(event->display->modifiermap);
-	    event->display->modifiermap = NULL;
-	}
-	UnlockDisplay(event->display);
-	/* go ahead and get it now, since initialize test may not fail */
-	if (event->display->keysyms)
-	    (void) InitModMap(event->display);
-    }
-    return 1;
-}
-
-int
-_XKeyInitialize(
-    Display *dpy)
-{
-    int per, n;
-    KeySym *keysyms;
-
-    /*
-     * lets go get the keysyms from the server.
-     */
-    if (!dpy->keysyms) {
-	n = dpy->max_keycode - dpy->min_keycode + 1;
-	keysyms = XGetKeyboardMapping (dpy, (KeyCode) dpy->min_keycode,
-				       n, &per);
-	/* keysyms may be NULL */
-	if (! keysyms) return 0;
-
-	LockDisplay(dpy);
-	if (dpy->keysyms)
-	    Xfree ((char *)dpy->keysyms);
-	dpy->keysyms = keysyms;
-	dpy->keysyms_per_keycode = per;
-	if (dpy->modifiermap)
-	    ResetModMap(dpy);
-	UnlockDisplay(dpy);
-    }
-    if (!dpy->modifiermap)
-        return InitModMap(dpy);
-    return 1;
-}
-
-static void
-UCSConvertCase( register unsigned code,
-                KeySym *lower,
-                KeySym *upper )
-{
-    /* Case conversion for UCS, as in Unicode Data version 4.0.0 */
-    /* NB: Only converts simple one-to-one mappings. */
-
-    /* Tables are used where they take less space than     */
-    /* the code to work out the mappings. Zero values mean */
-    /* undefined code points.                              */
-
-    static unsigned short const IPAExt_upper_mapping[] = { /* part only */
-                            0x0181, 0x0186, 0x0255, 0x0189, 0x018A,
-    0x0258, 0x018F, 0x025A, 0x0190, 0x025C, 0x025D, 0x025E, 0x025F,
-    0x0193, 0x0261, 0x0262, 0x0194, 0x0264, 0x0265, 0x0266, 0x0267,
-    0x0197, 0x0196, 0x026A, 0x026B, 0x026C, 0x026D, 0x026E, 0x019C,
-    0x0270, 0x0271, 0x019D, 0x0273, 0x0274, 0x019F, 0x0276, 0x0277,
-    0x0278, 0x0279, 0x027A, 0x027B, 0x027C, 0x027D, 0x027E, 0x027F,
-    0x01A6, 0x0281, 0x0282, 0x01A9, 0x0284, 0x0285, 0x0286, 0x0287,
-    0x01AE, 0x0289, 0x01B1, 0x01B2, 0x028C, 0x028D, 0x028E, 0x028F,
-    0x0290, 0x0291, 0x01B7
-    };
-
-    static unsigned short const LatinExtB_upper_mapping[] = { /* first part only */
-    0x0180, 0x0181, 0x0182, 0x0182, 0x0184, 0x0184, 0x0186, 0x0187,
-    0x0187, 0x0189, 0x018A, 0x018B, 0x018B, 0x018D, 0x018E, 0x018F,
-    0x0190, 0x0191, 0x0191, 0x0193, 0x0194, 0x01F6, 0x0196, 0x0197,
-    0x0198, 0x0198, 0x019A, 0x019B, 0x019C, 0x019D, 0x0220, 0x019F,
-    0x01A0, 0x01A0, 0x01A2, 0x01A2, 0x01A4, 0x01A4, 0x01A6, 0x01A7,
-    0x01A7, 0x01A9, 0x01AA, 0x01AB, 0x01AC, 0x01AC, 0x01AE, 0x01AF,
-    0x01AF, 0x01B1, 0x01B2, 0x01B3, 0x01B3, 0x01B5, 0x01B5, 0x01B7,
-    0x01B8, 0x01B8, 0x01BA, 0x01BB, 0x01BC, 0x01BC, 0x01BE, 0x01F7,
-    0x01C0, 0x01C1, 0x01C2, 0x01C3, 0x01C4, 0x01C4, 0x01C4, 0x01C7,
-    0x01C7, 0x01C7, 0x01CA, 0x01CA, 0x01CA
-    };
-
-    static unsigned short const LatinExtB_lower_mapping[] = { /* first part only */
-    0x0180, 0x0253, 0x0183, 0x0183, 0x0185, 0x0185, 0x0254, 0x0188,
-    0x0188, 0x0256, 0x0257, 0x018C, 0x018C, 0x018D, 0x01DD, 0x0259,
-    0x025B, 0x0192, 0x0192, 0x0260, 0x0263, 0x0195, 0x0269, 0x0268,
-    0x0199, 0x0199, 0x019A, 0x019B, 0x026F, 0x0272, 0x019E, 0x0275,
-    0x01A1, 0x01A1, 0x01A3, 0x01A3, 0x01A5, 0x01A5, 0x0280, 0x01A8,
-    0x01A8, 0x0283, 0x01AA, 0x01AB, 0x01AD, 0x01AD, 0x0288, 0x01B0,
-    0x01B0, 0x028A, 0x028B, 0x01B4, 0x01B4, 0x01B6, 0x01B6, 0x0292,
-    0x01B9, 0x01B9, 0x01BA, 0x01BB, 0x01BD, 0x01BD, 0x01BE, 0x01BF,
-    0x01C0, 0x01C1, 0x01C2, 0x01C3, 0x01C6, 0x01C6, 0x01C6, 0x01C9,
-    0x01C9, 0x01C9, 0x01CC, 0x01CC, 0x01CC
-    };
-
-    static unsigned short const Greek_upper_mapping[] = {
-    0x0000, 0x0000, 0x0000, 0x0000, 0x0374, 0x0375, 0x0000, 0x0000,
-    0x0000, 0x0000, 0x037A, 0x0000, 0x0000, 0x0000, 0x037E, 0x0000,
-    0x0000, 0x0000, 0x0000, 0x0000, 0x0384, 0x0385, 0x0386, 0x0387,
-    0x0388, 0x0389, 0x038A, 0x0000, 0x038C, 0x0000, 0x038E, 0x038F,
-    0x0390, 0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397,
-    0x0398, 0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F,
-    0x03A0, 0x03A1, 0x0000, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7,
-    0x03A8, 0x03A9, 0x03AA, 0x03AB, 0x0386, 0x0388, 0x0389, 0x038A,
-    0x03B0, 0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397,
-    0x0398, 0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F,
-    0x03A0, 0x03A1, 0x03A3, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7,
-    0x03A8, 0x03A9, 0x03AA, 0x03AB, 0x038C, 0x038E, 0x038F, 0x0000,
-    0x0392, 0x0398, 0x03D2, 0x03D3, 0x03D4, 0x03A6, 0x03A0, 0x03D7,
-    0x03D8, 0x03D8, 0x03DA, 0x03DA, 0x03DC, 0x03DC, 0x03DE, 0x03DE,
-    0x03E0, 0x03E0, 0x03E2, 0x03E2, 0x03E4, 0x03E4, 0x03E6, 0x03E6,
-    0x03E8, 0x03E8, 0x03EA, 0x03EA, 0x03EC, 0x03EC, 0x03EE, 0x03EE,
-    0x039A, 0x03A1, 0x03F9, 0x03F3, 0x03F4, 0x0395, 0x03F6, 0x03F7,
-    0x03F7, 0x03F9, 0x03FA, 0x03FA, 0x0000, 0x0000, 0x0000, 0x0000
-    };
-
-    static unsigned short const Greek_lower_mapping[] = {
-    0x0000, 0x0000, 0x0000, 0x0000, 0x0374, 0x0375, 0x0000, 0x0000,
-    0x0000, 0x0000, 0x037A, 0x0000, 0x0000, 0x0000, 0x037E, 0x0000,
-    0x0000, 0x0000, 0x0000, 0x0000, 0x0384, 0x0385, 0x03AC, 0x0387,
-    0x03AD, 0x03AE, 0x03AF, 0x0000, 0x03CC, 0x0000, 0x03CD, 0x03CE,
-    0x0390, 0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7,
-    0x03B8, 0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF,
-    0x03C0, 0x03C1, 0x0000, 0x03C3, 0x03C4, 0x03C5, 0x03C6, 0x03C7,
-    0x03C8, 0x03C9, 0x03CA, 0x03CB, 0x03AC, 0x03AD, 0x03AE, 0x03AF,
-    0x03B0, 0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7,
-    0x03B8, 0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF,
-    0x03C0, 0x03C1, 0x03C2, 0x03C3, 0x03C4, 0x03C5, 0x03C6, 0x03C7,
-    0x03C8, 0x03C9, 0x03CA, 0x03CB, 0x03CC, 0x03CD, 0x03CE, 0x0000,
-    0x03D0, 0x03D1, 0x03D2, 0x03D3, 0x03D4, 0x03D5, 0x03D6, 0x03D7,
-    0x03D9, 0x03D9, 0x03DB, 0x03DB, 0x03DD, 0x03DD, 0x03DF, 0x03DF,
-    0x03E1, 0x03E1, 0x03E3, 0x03E3, 0x03E5, 0x03E5, 0x03E7, 0x03E7,
-    0x03E9, 0x03E9, 0x03EB, 0x03EB, 0x03ED, 0x03ED, 0x03EF, 0x03EF,
-    0x03F0, 0x03F1, 0x03F2, 0x03F3, 0x03B8, 0x03F5, 0x03F6, 0x03F8,
-    0x03F8, 0x03F2, 0x03FB, 0x03FB, 0x0000, 0x0000, 0x0000, 0x0000
-    };
-
-    static unsigned short const GreekExt_lower_mapping[] = {
-    0x1F00, 0x1F01, 0x1F02, 0x1F03, 0x1F04, 0x1F05, 0x1F06, 0x1F07,
-    0x1F00, 0x1F01, 0x1F02, 0x1F03, 0x1F04, 0x1F05, 0x1F06, 0x1F07,
-    0x1F10, 0x1F11, 0x1F12, 0x1F13, 0x1F14, 0x1F15, 0x0000, 0x0000,
-    0x1F10, 0x1F11, 0x1F12, 0x1F13, 0x1F14, 0x1F15, 0x0000, 0x0000,
-    0x1F20, 0x1F21, 0x1F22, 0x1F23, 0x1F24, 0x1F25, 0x1F26, 0x1F27,
-    0x1F20, 0x1F21, 0x1F22, 0x1F23, 0x1F24, 0x1F25, 0x1F26, 0x1F27,
-    0x1F30, 0x1F31, 0x1F32, 0x1F33, 0x1F34, 0x1F35, 0x1F36, 0x1F37,
-    0x1F30, 0x1F31, 0x1F32, 0x1F33, 0x1F34, 0x1F35, 0x1F36, 0x1F37,
-    0x1F40, 0x1F41, 0x1F42, 0x1F43, 0x1F44, 0x1F45, 0x0000, 0x0000,
-    0x1F40, 0x1F41, 0x1F42, 0x1F43, 0x1F44, 0x1F45, 0x0000, 0x0000,
-    0x1F50, 0x1F51, 0x1F52, 0x1F53, 0x1F54, 0x1F55, 0x1F56, 0x1F57,
-    0x0000, 0x1F51, 0x0000, 0x1F53, 0x0000, 0x1F55, 0x0000, 0x1F57,
-    0x1F60, 0x1F61, 0x1F62, 0x1F63, 0x1F64, 0x1F65, 0x1F66, 0x1F67,
-    0x1F60, 0x1F61, 0x1F62, 0x1F63, 0x1F64, 0x1F65, 0x1F66, 0x1F67,
-    0x1F70, 0x1F71, 0x1F72, 0x1F73, 0x1F74, 0x1F75, 0x1F76, 0x1F77,
-    0x1F78, 0x1F79, 0x1F7A, 0x1F7B, 0x1F7C, 0x1F7D, 0x0000, 0x0000,
-    0x1F80, 0x1F81, 0x1F82, 0x1F83, 0x1F84, 0x1F85, 0x1F86, 0x1F87,
-    0x1F80, 0x1F81, 0x1F82, 0x1F83, 0x1F84, 0x1F85, 0x1F86, 0x1F87,
-    0x1F90, 0x1F91, 0x1F92, 0x1F93, 0x1F94, 0x1F95, 0x1F96, 0x1F97,
-    0x1F90, 0x1F91, 0x1F92, 0x1F93, 0x1F94, 0x1F95, 0x1F96, 0x1F97,
-    0x1FA0, 0x1FA1, 0x1FA2, 0x1FA3, 0x1FA4, 0x1FA5, 0x1FA6, 0x1FA7,
-    0x1FA0, 0x1FA1, 0x1FA2, 0x1FA3, 0x1FA4, 0x1FA5, 0x1FA6, 0x1FA7,
-    0x1FB0, 0x1FB1, 0x1FB2, 0x1FB3, 0x1FB4, 0x0000, 0x1FB6, 0x1FB7,
-    0x1FB0, 0x1FB1, 0x1F70, 0x1F71, 0x1FB3, 0x1FBD, 0x1FBE, 0x1FBF,
-    0x1FC0, 0x1FC1, 0x1FC2, 0x1FC3, 0x1FC4, 0x0000, 0x1FC6, 0x1FC7,
-    0x1F72, 0x1F73, 0x1F74, 0x1F75, 0x1FC3, 0x1FCD, 0x1FCE, 0x1FCF,
-    0x1FD0, 0x1FD1, 0x1FD2, 0x1FD3, 0x0000, 0x0000, 0x1FD6, 0x1FD7,
-    0x1FD0, 0x1FD1, 0x1F76, 0x1F77, 0x0000, 0x1FDD, 0x1FDE, 0x1FDF,
-    0x1FE0, 0x1FE1, 0x1FE2, 0x1FE3, 0x1FE4, 0x1FE5, 0x1FE6, 0x1FE7,
-    0x1FE0, 0x1FE1, 0x1F7A, 0x1F7B, 0x1FE5, 0x1FED, 0x1FEE, 0x1FEF,
-    0x0000, 0x0000, 0x1FF2, 0x1FF3, 0x1FF4, 0x0000, 0x1FF6, 0x1FF7,
-    0x1F78, 0x1F79, 0x1F7C, 0x1F7D, 0x1FF3, 0x1FFD, 0x1FFE, 0x0000
-    };
-
-    static unsigned short const GreekExt_upper_mapping[] = {
-    0x1F08, 0x1F09, 0x1F0A, 0x1F0B, 0x1F0C, 0x1F0D, 0x1F0E, 0x1F0F,
-    0x1F08, 0x1F09, 0x1F0A, 0x1F0B, 0x1F0C, 0x1F0D, 0x1F0E, 0x1F0F,
-    0x1F18, 0x1F19, 0x1F1A, 0x1F1B, 0x1F1C, 0x1F1D, 0x0000, 0x0000,
-    0x1F18, 0x1F19, 0x1F1A, 0x1F1B, 0x1F1C, 0x1F1D, 0x0000, 0x0000,
-    0x1F28, 0x1F29, 0x1F2A, 0x1F2B, 0x1F2C, 0x1F2D, 0x1F2E, 0x1F2F,
-    0x1F28, 0x1F29, 0x1F2A, 0x1F2B, 0x1F2C, 0x1F2D, 0x1F2E, 0x1F2F,
-    0x1F38, 0x1F39, 0x1F3A, 0x1F3B, 0x1F3C, 0x1F3D, 0x1F3E, 0x1F3F,
-    0x1F38, 0x1F39, 0x1F3A, 0x1F3B, 0x1F3C, 0x1F3D, 0x1F3E, 0x1F3F,
-    0x1F48, 0x1F49, 0x1F4A, 0x1F4B, 0x1F4C, 0x1F4D, 0x0000, 0x0000,
-    0x1F48, 0x1F49, 0x1F4A, 0x1F4B, 0x1F4C, 0x1F4D, 0x0000, 0x0000,
-    0x1F50, 0x1F59, 0x1F52, 0x1F5B, 0x1F54, 0x1F5D, 0x1F56, 0x1F5F,
-    0x0000, 0x1F59, 0x0000, 0x1F5B, 0x0000, 0x1F5D, 0x0000, 0x1F5F,
-    0x1F68, 0x1F69, 0x1F6A, 0x1F6B, 0x1F6C, 0x1F6D, 0x1F6E, 0x1F6F,
-    0x1F68, 0x1F69, 0x1F6A, 0x1F6B, 0x1F6C, 0x1F6D, 0x1F6E, 0x1F6F,
-    0x1FBA, 0x1FBB, 0x1FC8, 0x1FC9, 0x1FCA, 0x1FCB, 0x1FDA, 0x1FDB,
-    0x1FF8, 0x1FF9, 0x1FEA, 0x1FEB, 0x1FFA, 0x1FFB, 0x0000, 0x0000,
-    0x1F88, 0x1F89, 0x1F8A, 0x1F8B, 0x1F8C, 0x1F8D, 0x1F8E, 0x1F8F,
-    0x1F88, 0x1F89, 0x1F8A, 0x1F8B, 0x1F8C, 0x1F8D, 0x1F8E, 0x1F8F,
-    0x1F98, 0x1F99, 0x1F9A, 0x1F9B, 0x1F9C, 0x1F9D, 0x1F9E, 0x1F9F,
-    0x1F98, 0x1F99, 0x1F9A, 0x1F9B, 0x1F9C, 0x1F9D, 0x1F9E, 0x1F9F,
-    0x1FA8, 0x1FA9, 0x1FAA, 0x1FAB, 0x1FAC, 0x1FAD, 0x1FAE, 0x1FAF,
-    0x1FA8, 0x1FA9, 0x1FAA, 0x1FAB, 0x1FAC, 0x1FAD, 0x1FAE, 0x1FAF,
-    0x1FB8, 0x1FB9, 0x1FB2, 0x1FBC, 0x1FB4, 0x0000, 0x1FB6, 0x1FB7,
-    0x1FB8, 0x1FB9, 0x1FBA, 0x1FBB, 0x1FBC, 0x1FBD, 0x0399, 0x1FBF,
-    0x1FC0, 0x1FC1, 0x1FC2, 0x1FCC, 0x1FC4, 0x0000, 0x1FC6, 0x1FC7,
-    0x1FC8, 0x1FC9, 0x1FCA, 0x1FCB, 0x1FCC, 0x1FCD, 0x1FCE, 0x1FCF,
-    0x1FD8, 0x1FD9, 0x1FD2, 0x1FD3, 0x0000, 0x0000, 0x1FD6, 0x1FD7,
-    0x1FD8, 0x1FD9, 0x1FDA, 0x1FDB, 0x0000, 0x1FDD, 0x1FDE, 0x1FDF,
-    0x1FE8, 0x1FE9, 0x1FE2, 0x1FE3, 0x1FE4, 0x1FEC, 0x1FE6, 0x1FE7,
-    0x1FE8, 0x1FE9, 0x1FEA, 0x1FEB, 0x1FEC, 0x1FED, 0x1FEE, 0x1FEF,
-    0x0000, 0x0000, 0x1FF2, 0x1FFC, 0x1FF4, 0x0000, 0x1FF6, 0x1FF7,
-    0x1FF8, 0x1FF9, 0x1FFA, 0x1FFB, 0x1FFC, 0x1FFD, 0x1FFE, 0x0000
-    };
-
-    *lower = code;
-    *upper = code;
-
-    /* Basic Latin and Latin-1 Supplement, U+0000 to U+00FF */
-    if (code <= 0x00ff) {
-        if (code >= 0x0041 && code <= 0x005a)             /* A-Z */
-            *lower += 0x20;
-        else if (code >= 0x0061 && code <= 0x007a)        /* a-z */
-            *upper -= 0x20;
-        else if ( (code >= 0x00c0 && code <= 0x00d6) ||
-	          (code >= 0x00d8 && code <= 0x00de) )
-            *lower += 0x20;
-        else if ( (code >= 0x00e0 && code <= 0x00f6) ||
-	          (code >= 0x00f8 && code <= 0x00fe) )
-            *upper -= 0x20;
-        else if (code == 0x00ff)      /* y with diaeresis */
-            *upper = 0x0178;
-        else if (code == 0x00b5)      /* micro sign */
-            *upper = 0x039c;
-	return;
-    }
-
-    /* Latin Extended-A, U+0100 to U+017F */
-    if (code >= 0x0100 && code <= 0x017f) {
-        if ( (code >= 0x0100 && code <= 0x012f) ||
-             (code >= 0x0132 && code <= 0x0137) ||
-             (code >= 0x014a && code <= 0x0177) ) {
-            *upper = code & ~1;
-            *lower = code | 1;
-        }
-        else if ( (code >= 0x0139 && code <= 0x0148) ||
-                  (code >= 0x0179 && code <= 0x017e) ) {
-            if (code & 1)
-	        *lower += 1;
-            else
-	        *upper -= 1;
-        }
-        else if (code == 0x0130)
-            *lower = 0x0069;
-        else if (code == 0x0131)
-            *upper = 0x0049;
-        else if (code == 0x0178)
-            *lower = 0x00ff;
-        else if (code == 0x017f)
-            *upper = 0x0053;
-        return;
-    }
-
-    /* Latin Extended-B, U+0180 to U+024F */
-    if (code >= 0x0180 && code <= 0x024f) {
-        if (code >= 0x01cd && code <= 0x01dc) {
-	    if (code & 1)
-	       *lower += 1;
-	    else
-	       *upper -= 1;
-        }
-        else if ( (code >= 0x01de && code <= 0x01ef) ||
-                  (code >= 0x01f4 && code <= 0x01f5) ||
-                  (code >= 0x01f8 && code <= 0x021f) ||
-                  (code >= 0x0222 && code <= 0x0233) ) {
-            *lower |= 1;
-            *upper &= ~1;
-        }
-        else if (code >= 0x0180 && code <= 0x01cc) {
-            *lower = LatinExtB_lower_mapping[code - 0x0180];
-            *upper = LatinExtB_upper_mapping[code - 0x0180];
-        }
-        else if (code == 0x01dd)
-            *upper = 0x018e;
-        else if (code == 0x01f1 || code == 0x01f2) {
-            *lower = 0x01f3;
-            *upper = 0x01f1;
-        }
-        else if (code == 0x01f3)
-            *upper = 0x01f1;
-        else if (code == 0x01f6)
-            *lower = 0x0195;
-        else if (code == 0x01f7)
-            *lower = 0x01bf;
-        else if (code == 0x0220)
-            *lower = 0x019e;
-        return;
-    }
-
-    /* IPA Extensions, U+0250 to U+02AF */
-    if (code >= 0x0253 && code <= 0x0292) {
-        *upper = IPAExt_upper_mapping[code - 0x0253];
-    }
-
-    /* Combining Diacritical Marks, U+0300 to U+036F */
-    if (code == 0x0345) {
-        *upper = 0x0399;
-    }
-
-    /* Greek and Coptic, U+0370 to U+03FF */
-    if (code >= 0x0370 && code <= 0x03ff) {
-        *lower = Greek_lower_mapping[code - 0x0370];
-        *upper = Greek_upper_mapping[code - 0x0370];
-        if (*upper == 0)
-            *upper = code;
-        if (*lower == 0)
-            *lower = code;
-    }
-
-    /* Cyrillic and Cyrillic Supplementary, U+0400 to U+052F */
-    if ( (code >= 0x0400 && code <= 0x04ff) ||
-         (code >= 0x0500 && code <= 0x052f) ) {
-        if (code >= 0x0400 && code <= 0x040f)
-            *lower += 0x50;
-        else if (code >= 0x0410 && code <= 0x042f)
-            *lower += 0x20;
-        else if (code >= 0x0430 && code <= 0x044f)
-            *upper -= 0x20;
-        else if (code >= 0x0450 && code <= 0x045f)
-            *upper -= 0x50;
-        else if ( (code >= 0x0460 && code <= 0x0481) ||
-                  (code >= 0x048a && code <= 0x04bf) ||
-	          (code >= 0x04d0 && code <= 0x04f5) ||
-	          (code >= 0x04f8 && code <= 0x04f9) ||
-                  (code >= 0x0500 && code <= 0x050f) ) {
-            *upper &= ~1;
-            *lower |= 1;
-        }
-        else if (code >= 0x04c1 && code <= 0x04ce) {
-	    if (code & 1)
-	        *lower += 1;
-	    else
-	        *upper -= 1;
-        }
-    }
-
-    /* Armenian, U+0530 to U+058F */
-    if (code >= 0x0530 && code <= 0x058f) {
-        if (code >= 0x0531 && code <= 0x0556)
-            *lower += 0x30;
-        else if (code >=0x0561 && code <= 0x0586)
-            *upper -= 0x30;
-    }
-
-    /* Latin Extended Additional, U+1E00 to U+1EFF */
-    if (code >= 0x1e00 && code <= 0x1eff) {
-        if ( (code >= 0x1e00 && code <= 0x1e95) ||
-             (code >= 0x1ea0 && code <= 0x1ef9) ) {
-            *upper &= ~1;
-            *lower |= 1;
-        }
-        else if (code == 0x1e9b)
-            *upper = 0x1e60;
-    }
-
-    /* Greek Extended, U+1F00 to U+1FFF */
-    if (code >= 0x1f00 && code <= 0x1fff) {
-        *lower = GreekExt_lower_mapping[code - 0x1f00];
-        *upper = GreekExt_upper_mapping[code - 0x1f00];
-        if (*upper == 0)
-            *upper = code;
-        if (*lower == 0)
-            *lower = code;
-    }
-
-    /* Letterlike Symbols, U+2100 to U+214F */
-    if (code >= 0x2100 && code <= 0x214f) {
-        switch (code) {
-        case 0x2126: *lower = 0x03c9; break;
-        case 0x212a: *lower = 0x006b; break;
-        case 0x212b: *lower = 0x00e5; break;
-        }
-    }
-    /* Number Forms, U+2150 to U+218F */
-    else if (code >= 0x2160 && code <= 0x216f)
-        *lower += 0x10;
-    else if (code >= 0x2170 && code <= 0x217f)
-        *upper -= 0x10;
-    /* Enclosed Alphanumerics, U+2460 to U+24FF */
-    else if (code >= 0x24b6 && code <= 0x24cf)
-        *lower += 0x1a;
-    else if (code >= 0x24d0 && code <= 0x24e9)
-        *upper -= 0x1a;
-    /* Halfwidth and Fullwidth Forms, U+FF00 to U+FFEF */
-    else if (code >= 0xff21 && code <= 0xff3a)
-        *lower += 0x20;
-    else if (code >= 0xff41 && code <= 0xff5a)
-        *upper -= 0x20;
-    /* Deseret, U+10400 to U+104FF */
-    else if (code >= 0x10400 && code <= 0x10427)
-        *lower += 0x28;
-    else if (code >= 0x10428 && code <= 0x1044f)
-        *upper -= 0x28;
-}
-
-void
-XConvertCase(
-    register KeySym sym,
-    KeySym *lower,
-    KeySym *upper)
-{
-    /* Latin 1 keysym */
-    if (sym < 0x100) {
-        UCSConvertCase(sym, lower, upper);
-	return;
-    }
-
-    /* Unicode keysym */
-    if ((sym & 0xff000000) == 0x01000000) {
-        UCSConvertCase((sym & 0x00ffffff), lower, upper);
-        *upper |= 0x01000000;
-        *lower |= 0x01000000;
-        return;
-    }
-
-    /* Legacy keysym */
-
-    *lower = sym;
-    *upper = sym;
-
-    switch(sym >> 8) {
-    case 1: /* Latin 2 */
-	/* Assume the KeySym is a legal value (ignore discontinuities) */
-	if (sym == XK_Aogonek)
-	    *lower = XK_aogonek;
-	else if (sym >= XK_Lstroke && sym <= XK_Sacute)
-	    *lower += (XK_lstroke - XK_Lstroke);
-	else if (sym >= XK_Scaron && sym <= XK_Zacute)
-	    *lower += (XK_scaron - XK_Scaron);
-	else if (sym >= XK_Zcaron && sym <= XK_Zabovedot)
-	    *lower += (XK_zcaron - XK_Zcaron);
-	else if (sym == XK_aogonek)
-	    *upper = XK_Aogonek;
-	else if (sym >= XK_lstroke && sym <= XK_sacute)
-	    *upper -= (XK_lstroke - XK_Lstroke);
-	else if (sym >= XK_scaron && sym <= XK_zacute)
-	    *upper -= (XK_scaron - XK_Scaron);
-	else if (sym >= XK_zcaron && sym <= XK_zabovedot)
-	    *upper -= (XK_zcaron - XK_Zcaron);
-	else if (sym >= XK_Racute && sym <= XK_Tcedilla)
-	    *lower += (XK_racute - XK_Racute);
-	else if (sym >= XK_racute && sym <= XK_tcedilla)
-	    *upper -= (XK_racute - XK_Racute);
-	break;
-    case 2: /* Latin 3 */
-	/* Assume the KeySym is a legal value (ignore discontinuities) */
-	if (sym >= XK_Hstroke && sym <= XK_Hcircumflex)
-	    *lower += (XK_hstroke - XK_Hstroke);
-	else if (sym >= XK_Gbreve && sym <= XK_Jcircumflex)
-	    *lower += (XK_gbreve - XK_Gbreve);
-	else if (sym >= XK_hstroke && sym <= XK_hcircumflex)
-	    *upper -= (XK_hstroke - XK_Hstroke);
-	else if (sym >= XK_gbreve && sym <= XK_jcircumflex)
-	    *upper -= (XK_gbreve - XK_Gbreve);
-	else if (sym >= XK_Cabovedot && sym <= XK_Scircumflex)
-	    *lower += (XK_cabovedot - XK_Cabovedot);
-	else if (sym >= XK_cabovedot && sym <= XK_scircumflex)
-	    *upper -= (XK_cabovedot - XK_Cabovedot);
-	break;
-    case 3: /* Latin 4 */
-	/* Assume the KeySym is a legal value (ignore discontinuities) */
-	if (sym >= XK_Rcedilla && sym <= XK_Tslash)
-	    *lower += (XK_rcedilla - XK_Rcedilla);
-	else if (sym >= XK_rcedilla && sym <= XK_tslash)
-	    *upper -= (XK_rcedilla - XK_Rcedilla);
-	else if (sym == XK_ENG)
-	    *lower = XK_eng;
-	else if (sym == XK_eng)
-	    *upper = XK_ENG;
-	else if (sym >= XK_Amacron && sym <= XK_Umacron)
-	    *lower += (XK_amacron - XK_Amacron);
-	else if (sym >= XK_amacron && sym <= XK_umacron)
-	    *upper -= (XK_amacron - XK_Amacron);
-	break;
-    case 6: /* Cyrillic */
-	/* Assume the KeySym is a legal value (ignore discontinuities) */
-	if (sym >= XK_Serbian_DJE && sym <= XK_Serbian_DZE)
-	    *lower -= (XK_Serbian_DJE - XK_Serbian_dje);
-	else if (sym >= XK_Serbian_dje && sym <= XK_Serbian_dze)
-	    *upper += (XK_Serbian_DJE - XK_Serbian_dje);
-	else if (sym >= XK_Cyrillic_YU && sym <= XK_Cyrillic_HARDSIGN)
-	    *lower -= (XK_Cyrillic_YU - XK_Cyrillic_yu);
-	else if (sym >= XK_Cyrillic_yu && sym <= XK_Cyrillic_hardsign)
-	    *upper += (XK_Cyrillic_YU - XK_Cyrillic_yu);
-        break;
-    case 7: /* Greek */
-	/* Assume the KeySym is a legal value (ignore discontinuities) */
-	if (sym >= XK_Greek_ALPHAaccent && sym <= XK_Greek_OMEGAaccent)
-	    *lower += (XK_Greek_alphaaccent - XK_Greek_ALPHAaccent);
-	else if (sym >= XK_Greek_alphaaccent && sym <= XK_Greek_omegaaccent &&
-		 sym != XK_Greek_iotaaccentdieresis &&
-		 sym != XK_Greek_upsilonaccentdieresis)
-	    *upper -= (XK_Greek_alphaaccent - XK_Greek_ALPHAaccent);
-	else if (sym >= XK_Greek_ALPHA && sym <= XK_Greek_OMEGA)
-	    *lower += (XK_Greek_alpha - XK_Greek_ALPHA);
-	else if (sym >= XK_Greek_alpha && sym <= XK_Greek_omega &&
-		 sym != XK_Greek_finalsmallsigma)
-	    *upper -= (XK_Greek_alpha - XK_Greek_ALPHA);
-        break;
-    case 0x13: /* Latin 9 */
-        if (sym == XK_OE)
-            *lower = XK_oe;
-        else if (sym == XK_oe)
-            *upper = XK_OE;
-        else if (sym == XK_Ydiaeresis)
-            *lower = XK_ydiaeresis;
-        break;
-    }
-}
-
-int
-_XTranslateKey(	register Display *dpy,
-		KeyCode keycode,
-		register unsigned int modifiers,
-		unsigned int *modifiers_return,
-		KeySym *keysym_return)
-{
-    int per;
-    register KeySym *syms;
-    KeySym sym, lsym, usym;
-
-    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))
-	return 0;
-    *modifiers_return = ((ShiftMask|LockMask)
-			 | dpy->mode_switch | dpy->num_lock);
-    if (((int)keycode < dpy->min_keycode) || ((int)keycode > dpy->max_keycode))
-    {
-	*keysym_return = NoSymbol;
-	return 1;
-    }
-    per = dpy->keysyms_per_keycode;
-    syms = &dpy->keysyms[(keycode - dpy->min_keycode) * per];
-    while ((per > 2) && (syms[per - 1] == NoSymbol))
-	per--;
-    if ((per > 2) && (modifiers & dpy->mode_switch)) {
-	syms += 2;
-	per -= 2;
-    }
-    if ((modifiers & dpy->num_lock) &&
-	(per > 1 && (IsKeypadKey(syms[1]) || IsPrivateKeypadKey(syms[1])))) {
-	if ((modifiers & ShiftMask) ||
-	    ((modifiers & LockMask) && (dpy->lock_meaning == XK_Shift_Lock)))
-	    *keysym_return = syms[0];
-	else
-	    *keysym_return = syms[1];
-    } else if (!(modifiers & ShiftMask) &&
-	(!(modifiers & LockMask) || (dpy->lock_meaning == NoSymbol))) {
-	if ((per == 1) || (syms[1] == NoSymbol))
-	    XConvertCase(syms[0], keysym_return, &usym);
-	else
-	    *keysym_return = syms[0];
-    } else if (!(modifiers & LockMask) ||
-	       (dpy->lock_meaning != XK_Caps_Lock)) {
-	if ((per == 1) || ((usym = syms[1]) == NoSymbol))
-	    XConvertCase(syms[0], &lsym, &usym);
-	*keysym_return = usym;
-    } else {
-	if ((per == 1) || ((sym = syms[1]) == NoSymbol))
-	    sym = syms[0];
-	XConvertCase(sym, &lsym, &usym);
-	if (!(modifiers & ShiftMask) && (sym != syms[0]) &&
-	    ((sym != usym) || (lsym == usym)))
-	    XConvertCase(syms[0], &lsym, &usym);
-	*keysym_return = usym;
-    }
-    if (*keysym_return == XK_VoidSymbol)
-	*keysym_return = NoSymbol;
-    return 1;
-}
-
-int
-_XTranslateKeySym(
-    Display *dpy,
-    register KeySym symbol,
-    unsigned int modifiers,
-    char *buffer,
-    int nbytes)
-{
-    register struct _XKeytrans *p;
-    int length;
-    unsigned long hiBytes;
-    register unsigned char c;
-
-    if (!symbol)
-	return 0;
-    /* see if symbol rebound, if so, return that string. */
-    for (p = dpy->key_bindings; p; p = p->next) {
-	if (((modifiers & AllMods) == p->state) && (symbol == p->key)) {
-	    length = p->len;
-	    if (length > nbytes) length = nbytes;
-	    memcpy (buffer, p->string, length);
-	    return length;
-	}
-    }
-    /* try to convert to Latin-1, handling control */
-    hiBytes = symbol >> 8;
-    if (!(nbytes &&
-	  ((hiBytes == 0) ||
-	   ((hiBytes == 0xFF) &&
-	    (((symbol >= XK_BackSpace) && (symbol <= XK_Clear)) ||
-	     (symbol == XK_Return) ||
-	     (symbol == XK_Escape) ||
-	     (symbol == XK_KP_Space) ||
-	     (symbol == XK_KP_Tab) ||
-	     (symbol == XK_KP_Enter) ||
-	     ((symbol >= XK_KP_Multiply) && (symbol <= XK_KP_9)) ||
-	     (symbol == XK_KP_Equal) ||
-	     (symbol == XK_Delete))))))
-	return 0;
-
-    /* if X keysym, convert to ascii by grabbing low 7 bits */
-    if (symbol == XK_KP_Space)
-	c = XK_space & 0x7F; /* patch encoding botch */
-    else if (hiBytes == 0xFF)
-	c = symbol & 0x7F;
-    else
-	c = symbol & 0xFF;
-    /* only apply Control key if it makes sense, else ignore it */
-    if (modifiers & ControlMask) {
-	if ((c >= '@' && c < '\177') || c == ' ') c &= 0x1F;
-	else if (c == '2') c = '\000';
-	else if (c >= '3' && c <= '7') c -= ('3' - '\033');
-	else if (c == '8') c = '\177';
-	else if (c == '/') c = '_' & 0x1F;
-    }
-    buffer[0] = c;
-    return 1;
-}
-
-/*ARGSUSED*/
-int
-XLookupString (
-    register XKeyEvent *event,
-    char *buffer,	/* buffer */
-    int nbytes,	/* space in buffer for characters */
-    KeySym *keysym,
-    XComposeStatus *status)	/* not implemented */
-{
-    unsigned int modifiers;
-    KeySym symbol;
-
-    if (! _XTranslateKey(event->display, event->keycode, event->state,
-		  &modifiers, &symbol))
-	return 0;
-
-#ifdef USE_OWN_COMPOSE
-    if ( status ) {
-	static int been_here= 0;
-	if ( !been_here ) {
-	    XimCompInitTables();
-	    been_here = 1;
-	}
-	if ( !XimCompLegalStatus(status) ) {
-	    status->compose_ptr = NULL;
-	    status->chars_matched = 0;
-	}
-	if ( ((status->chars_matched>0)&&(status->compose_ptr!=NULL)) ||
-		XimCompIsComposeKey(symbol,event->keycode,status) ) {
-	    XimCompRtrn rtrn;
-	    switch (XimCompProcessSym(status,symbol,&rtrn)) {
-		case XIM_COMP_IGNORE:
-		    break;
-		case XIM_COMP_IN_PROGRESS:
-		    if ( keysym!=NULL )
-			*keysym = NoSymbol;
-		    return 0;
-		case XIM_COMP_FAIL:
-		{
-		    int n = 0, len= 0;
-		    for (n=len=0;rtrn.sym[n]!=XK_VoidSymbol;n++) {
-			if ( nbytes-len > 0 ) {
-			    len+= _XTranslateKeySym(event->display,rtrn.sym[n],
-							event->state,
-							buffer+len,nbytes-len);
-			}
-		    }
-		    if ( keysym!=NULL ) {
-			if ( n==1 )	*keysym = rtrn.sym[0];
-			else		*keysym = NoSymbol;
-		    }
-		    return len;
-		}
-		case XIM_COMP_SUCCEED:
-		{
-		    int len,n = 0;
-
-		    symbol = rtrn.matchSym;
-		    if ( keysym!=NULL )	*keysym = symbol;
-		    if ( rtrn.str[0]!='\0' ) {
-			strncpy(buffer,rtrn.str,nbytes-1);
-			buffer[nbytes-1]= '\0';
-			len = strlen(buffer);
-		    }
-		    else {
-			len = _XTranslateKeySym(event->display,symbol,
-							event->state,
-							buffer,nbytes);
-		    }
-		    for (n=0;rtrn.sym[n]!=XK_VoidSymbol;n++) {
-			if ( nbytes-len > 0 ) {
-			    len+= _XTranslateKeySym(event->display,rtrn.sym[n],
-							event->state,
-							buffer+len,nbytes-len);
-			}
-		    }
-		    return len;
-		}
-	    }
-	}
-    }
-#endif
-
-    if (keysym)
-	*keysym = symbol;
-    /* arguable whether to use (event->state & ~modifiers) here */
-    return _XTranslateKeySym(event->display, symbol, event->state,
-			     buffer, nbytes);
-}
-
-static void
-_XFreeKeyBindings(
-    Display *dpy)
-{
-    register struct _XKeytrans *p, *np;
-
-    for (p = dpy->key_bindings; p; p = np) {
-	np = p->next;
-	Xfree(p->string);
-	Xfree((char *)p->modifiers);
-	Xfree((char *)p);
-    }
-}
-
-int
-XRebindKeysym (
-    Display *dpy,
-    KeySym keysym,
-    KeySym *mlist,
-    int nm,		/* number of modifiers in mlist */
-    _Xconst unsigned char *str,
-    int nbytes)
-{
-    register struct _XKeytrans *tmp, *p;
-    int nb;
-
-    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))
-	return 0;
-    LockDisplay(dpy);
-    tmp = dpy->key_bindings;
-    nb = sizeof(KeySym) * nm;
-
-    if ((! (p = (struct _XKeytrans *) Xcalloc( 1, sizeof(struct _XKeytrans)))) ||
-	((! (p->string = (char *) Xmalloc( (unsigned) nbytes))) &&
-	 (nbytes > 0)) ||
-	((! (p->modifiers = (KeySym *) Xmalloc( (unsigned) nb))) &&
-	 (nb > 0))) {
-	if (p) {
-	    if (p->string) Xfree(p->string);
-	    if (p->modifiers) Xfree((char *) p->modifiers);
-	    Xfree((char *) p);
-	}
-	UnlockDisplay(dpy);
-	return 0;
-    }
-
-    dpy->key_bindings = p;
-    dpy->free_funcs->key_bindings = _XFreeKeyBindings;
-    p->next = tmp;	/* chain onto list */
-    memcpy (p->string, (char *) str, nbytes);
-    p->len = nbytes;
-    memcpy ((char *) p->modifiers, (char *) mlist, nb);
-    p->key = keysym;
-    p->mlen = nm;
-    ComputeMaskFromKeytrans(dpy, p);
-    UnlockDisplay(dpy);
-    return 0;
-}
-
-unsigned
-_XKeysymToModifiers(
-    Display *dpy,
-    KeySym ks)
-{
-    CARD8 code,mods;
-    register KeySym *kmax;
-    register KeySym *k;
-    register XModifierKeymap *m;
-
-    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))
-	return 0;
-    kmax = dpy->keysyms +
-	   (dpy->max_keycode - dpy->min_keycode + 1) * dpy->keysyms_per_keycode;
-    k = dpy->keysyms;
-    m = dpy->modifiermap;
-    mods= 0;
-    while (k<kmax) {
-	if (*k == ks ) {
-	    register int j = m->max_keypermod<<3;
-
-	    code=(((k-dpy->keysyms)/dpy->keysyms_per_keycode)+dpy->min_keycode);
-
-	    while (--j >= 0) {
-		if (code == m->modifiermap[j])
-		    mods|= (1<<(j/m->max_keypermod));
-	    }
-	}
-	k++;
-    }
-    return mods;
-}
-
-/*
- * given a list of modifiers, computes the mask necessary for later matching.
- * This routine must lookup the key in the Keymap and then search to see
- * what modifier it is bound to, if any.  Sets the AnyModifier bit if it
- * can't map some keysym to a modifier.
- */
-static void
-ComputeMaskFromKeytrans(
-    Display *dpy,
-    register struct _XKeytrans *p)
-{
-    register int i;
-
-    p->state = AnyModifier;
-    for (i = 0; i < p->mlen; i++) {
-	p->state|= XkbKeysymToModifiers(dpy,p->modifiers[i]);
-    }
-    p->state &= AllMods;
-}
+/*

+

+Copyright 1985, 1987, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included in

+all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+*/

+

+/* Beware, here be monsters (still under construction... - JG */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xlibint.h>

+#include <X11/Xutil.h>

+#define XK_MISCELLANY

+#define XK_LATIN1

+#define XK_LATIN2

+#define XK_LATIN3

+#define XK_LATIN4

+#define XK_LATIN8

+#define XK_LATIN9

+#define XK_CYRILLIC

+#define XK_GREEK

+#define XK_ARMENIAN

+#define XK_CAUCASUS

+#define XK_VIETNAMESE

+#define XK_XKB_KEYS

+#define XK_SINHALA

+#include <X11/keysymdef.h>

+#include <stdio.h>

+

+#ifdef USE_OWN_COMPOSE

+#include "imComp.h"

+

+#endif

+

+#include "Xresource.h"

+#include "Key.h"

+

+#ifdef XKB

+#include "XKBlib.h"

+#include "XKBlibint.h"

+#define	XKeycodeToKeysym	_XKeycodeToKeysym

+#define	XKeysymToKeycode	_XKeysymToKeycode

+#define	XLookupKeysym		_XLookupKeysym

+#define	XRefreshKeyboardMapping	_XRefreshKeyboardMapping

+#define	XLookupString		_XLookupString

+/* XKBBind.c */

+#else

+#define	XkbKeysymToModifiers	_XKeysymToModifiers

+#endif

+

+#define AllMods (ShiftMask|LockMask|ControlMask| \

+		 Mod1Mask|Mod2Mask|Mod3Mask|Mod4Mask|Mod5Mask)

+

+static void

+ComputeMaskFromKeytrans(

+    Display *dpy,

+    register struct _XKeytrans *p);

+

+struct _XKeytrans {

+	struct _XKeytrans *next;/* next on list */

+	char *string;		/* string to return when the time comes */

+	int len;		/* length of string (since NULL is legit)*/

+	KeySym key;		/* keysym rebound */

+	unsigned int state;	/* modifier state */

+	KeySym *modifiers;	/* modifier keysyms you want */

+	int mlen;		/* length of modifier list */

+};

+

+static KeySym

+KeyCodetoKeySym(register Display *dpy, KeyCode keycode, int col)

+{

+    register int per = dpy->keysyms_per_keycode;

+    register KeySym *syms;

+    KeySym lsym, usym;

+

+    if ((col < 0) || ((col >= per) && (col > 3)) ||

+	((int)keycode < dpy->min_keycode) || ((int)keycode > dpy->max_keycode))

+      return NoSymbol;

+

+    syms = &dpy->keysyms[(keycode - dpy->min_keycode) * per];

+    if (col < 4) {

+	if (col > 1) {

+	    while ((per > 2) && (syms[per - 1] == NoSymbol))

+		per--;

+	    if (per < 3)

+		col -= 2;

+	}

+	if ((per <= (col|1)) || (syms[col|1] == NoSymbol)) {

+	    XConvertCase(syms[col&~1], &lsym, &usym);

+	    if (!(col & 1))

+		return lsym;

+	    else if (usym == lsym)

+		return NoSymbol;

+	    else

+		return usym;

+	}

+    }

+    return syms[col];

+}

+

+KeySym

+XKeycodeToKeysym(Display *dpy,

+#if NeedWidePrototypes

+		 unsigned int kc,

+#else

+		 KeyCode kc,

+#endif

+		 int col)

+{

+    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))

+	return NoSymbol;

+    return KeyCodetoKeySym(dpy, kc, col);

+}

+

+KeyCode

+XKeysymToKeycode(

+    Display *dpy,

+    KeySym ks)

+{

+    register int i, j;

+

+    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))

+	return (KeyCode) 0;

+    for (j = 0; j < dpy->keysyms_per_keycode; j++) {

+	for (i = dpy->min_keycode; i <= dpy->max_keycode; i++) {

+	    if (KeyCodetoKeySym(dpy, (KeyCode) i, j) == ks)

+		return i;

+	}

+    }

+    return 0;

+}

+

+KeySym

+XLookupKeysym(

+    register XKeyEvent *event,

+    int col)

+{

+    if ((! event->display->keysyms) && (! _XKeyInitialize(event->display)))

+	return NoSymbol;

+    return KeyCodetoKeySym(event->display, event->keycode, col);

+}

+

+static void

+ResetModMap(

+    Display *dpy)

+{

+    register XModifierKeymap *map;

+    register int i, j, n;

+    KeySym sym;

+    register struct _XKeytrans *p;

+

+    map = dpy->modifiermap;

+    /* If any Lock key contains Caps_Lock, then interpret as Caps_Lock,

+     * else if any contains Shift_Lock, then interpret as Shift_Lock,

+     * else ignore Lock altogether.

+     */

+    dpy->lock_meaning = NoSymbol;

+    /* Lock modifiers are in the second row of the matrix */

+    n = 2 * map->max_keypermod;

+    for (i = map->max_keypermod; i < n; i++) {

+	for (j = 0; j < dpy->keysyms_per_keycode; j++) {

+	    sym = KeyCodetoKeySym(dpy, map->modifiermap[i], j);

+	    if (sym == XK_Caps_Lock) {

+		dpy->lock_meaning = XK_Caps_Lock;

+		break;

+	    } else if (sym == XK_Shift_Lock) {

+		dpy->lock_meaning = XK_Shift_Lock;

+	    }

+	    else if (sym == XK_ISO_Lock) {

+		dpy->lock_meaning = XK_Caps_Lock;

+		break;

+	    }

+	}

+    }

+    /* Now find any Mod<n> modifier acting as the Group or Numlock modifier */

+    dpy->mode_switch = 0;

+    dpy->num_lock = 0;

+    n *= 4;

+    for (i = 3*map->max_keypermod; i < n; i++) {

+	for (j = 0; j < dpy->keysyms_per_keycode; j++) {

+	    sym = KeyCodetoKeySym(dpy, map->modifiermap[i], j);

+	    if (sym == XK_Mode_switch)

+		dpy->mode_switch |= 1 << (i / map->max_keypermod);

+	    if (sym == XK_Num_Lock)

+		dpy->num_lock |= 1 << (i / map->max_keypermod);

+	}

+    }

+    for (p = dpy->key_bindings; p; p = p->next)

+	ComputeMaskFromKeytrans(dpy, p);

+}

+

+static int

+InitModMap(

+    Display *dpy)

+{

+    register XModifierKeymap *map;

+

+    if (! (map = XGetModifierMapping(dpy)))

+	return 0;

+    LockDisplay(dpy);

+    if (dpy->modifiermap)

+	XFreeModifiermap(dpy->modifiermap);

+    dpy->modifiermap = map;

+    dpy->free_funcs->modifiermap = XFreeModifiermap;

+    if (dpy->keysyms)

+	ResetModMap(dpy);

+    UnlockDisplay(dpy);

+    return 1;

+}

+

+int

+XRefreshKeyboardMapping(register XMappingEvent *event)

+{

+

+    if(event->request == MappingKeyboard) {

+	/* XXX should really only refresh what is necessary

+	 * for now, make initialize test fail

+	 */

+	LockDisplay(event->display);

+	if (event->display->keysyms) {

+	     Xfree ((char *)event->display->keysyms);

+	     event->display->keysyms = NULL;

+	}

+	UnlockDisplay(event->display);

+    }

+    if(event->request == MappingModifier) {

+	LockDisplay(event->display);

+	if (event->display->modifiermap) {

+	    XFreeModifiermap(event->display->modifiermap);

+	    event->display->modifiermap = NULL;

+	}

+	UnlockDisplay(event->display);

+	/* go ahead and get it now, since initialize test may not fail */

+	if (event->display->keysyms)

+	    (void) InitModMap(event->display);

+    }

+    return 1;

+}

+

+int

+_XKeyInitialize(

+    Display *dpy)

+{

+    int per, n;

+    KeySym *keysyms;

+

+    /*

+     * lets go get the keysyms from the server.

+     */

+    if (!dpy->keysyms) {

+	n = dpy->max_keycode - dpy->min_keycode + 1;

+	keysyms = XGetKeyboardMapping (dpy, (KeyCode) dpy->min_keycode,

+				       n, &per);

+	/* keysyms may be NULL */

+	if (! keysyms) return 0;

+

+	LockDisplay(dpy);

+	if (dpy->keysyms)

+	    Xfree ((char *)dpy->keysyms);

+	dpy->keysyms = keysyms;

+	dpy->keysyms_per_keycode = per;

+	if (dpy->modifiermap)

+	    ResetModMap(dpy);

+	UnlockDisplay(dpy);

+    }

+    if (!dpy->modifiermap)

+        return InitModMap(dpy);

+    return 1;

+}

+

+static void

+UCSConvertCase( register unsigned code,

+                KeySym *lower,

+                KeySym *upper )

+{

+    /* Case conversion for UCS, as in Unicode Data version 4.0.0 */

+    /* NB: Only converts simple one-to-one mappings. */

+

+    /* Tables are used where they take less space than     */

+    /* the code to work out the mappings. Zero values mean */

+    /* undefined code points.                              */

+

+    static unsigned short const IPAExt_upper_mapping[] = { /* part only */

+                            0x0181, 0x0186, 0x0255, 0x0189, 0x018A,

+    0x0258, 0x018F, 0x025A, 0x0190, 0x025C, 0x025D, 0x025E, 0x025F,

+    0x0193, 0x0261, 0x0262, 0x0194, 0x0264, 0x0265, 0x0266, 0x0267,

+    0x0197, 0x0196, 0x026A, 0x026B, 0x026C, 0x026D, 0x026E, 0x019C,

+    0x0270, 0x0271, 0x019D, 0x0273, 0x0274, 0x019F, 0x0276, 0x0277,

+    0x0278, 0x0279, 0x027A, 0x027B, 0x027C, 0x027D, 0x027E, 0x027F,

+    0x01A6, 0x0281, 0x0282, 0x01A9, 0x0284, 0x0285, 0x0286, 0x0287,

+    0x01AE, 0x0289, 0x01B1, 0x01B2, 0x028C, 0x028D, 0x028E, 0x028F,

+    0x0290, 0x0291, 0x01B7

+    };

+

+    static unsigned short const LatinExtB_upper_mapping[] = { /* first part only */

+    0x0180, 0x0181, 0x0182, 0x0182, 0x0184, 0x0184, 0x0186, 0x0187,

+    0x0187, 0x0189, 0x018A, 0x018B, 0x018B, 0x018D, 0x018E, 0x018F,

+    0x0190, 0x0191, 0x0191, 0x0193, 0x0194, 0x01F6, 0x0196, 0x0197,

+    0x0198, 0x0198, 0x019A, 0x019B, 0x019C, 0x019D, 0x0220, 0x019F,

+    0x01A0, 0x01A0, 0x01A2, 0x01A2, 0x01A4, 0x01A4, 0x01A6, 0x01A7,

+    0x01A7, 0x01A9, 0x01AA, 0x01AB, 0x01AC, 0x01AC, 0x01AE, 0x01AF,

+    0x01AF, 0x01B1, 0x01B2, 0x01B3, 0x01B3, 0x01B5, 0x01B5, 0x01B7,

+    0x01B8, 0x01B8, 0x01BA, 0x01BB, 0x01BC, 0x01BC, 0x01BE, 0x01F7,

+    0x01C0, 0x01C1, 0x01C2, 0x01C3, 0x01C4, 0x01C4, 0x01C4, 0x01C7,

+    0x01C7, 0x01C7, 0x01CA, 0x01CA, 0x01CA

+    };

+

+    static unsigned short const LatinExtB_lower_mapping[] = { /* first part only */

+    0x0180, 0x0253, 0x0183, 0x0183, 0x0185, 0x0185, 0x0254, 0x0188,

+    0x0188, 0x0256, 0x0257, 0x018C, 0x018C, 0x018D, 0x01DD, 0x0259,

+    0x025B, 0x0192, 0x0192, 0x0260, 0x0263, 0x0195, 0x0269, 0x0268,

+    0x0199, 0x0199, 0x019A, 0x019B, 0x026F, 0x0272, 0x019E, 0x0275,

+    0x01A1, 0x01A1, 0x01A3, 0x01A3, 0x01A5, 0x01A5, 0x0280, 0x01A8,

+    0x01A8, 0x0283, 0x01AA, 0x01AB, 0x01AD, 0x01AD, 0x0288, 0x01B0,

+    0x01B0, 0x028A, 0x028B, 0x01B4, 0x01B4, 0x01B6, 0x01B6, 0x0292,

+    0x01B9, 0x01B9, 0x01BA, 0x01BB, 0x01BD, 0x01BD, 0x01BE, 0x01BF,

+    0x01C0, 0x01C1, 0x01C2, 0x01C3, 0x01C6, 0x01C6, 0x01C6, 0x01C9,

+    0x01C9, 0x01C9, 0x01CC, 0x01CC, 0x01CC

+    };

+

+    static unsigned short const Greek_upper_mapping[] = {

+    0x0000, 0x0000, 0x0000, 0x0000, 0x0374, 0x0375, 0x0000, 0x0000,

+    0x0000, 0x0000, 0x037A, 0x0000, 0x0000, 0x0000, 0x037E, 0x0000,

+    0x0000, 0x0000, 0x0000, 0x0000, 0x0384, 0x0385, 0x0386, 0x0387,

+    0x0388, 0x0389, 0x038A, 0x0000, 0x038C, 0x0000, 0x038E, 0x038F,

+    0x0390, 0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397,

+    0x0398, 0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F,

+    0x03A0, 0x03A1, 0x0000, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7,

+    0x03A8, 0x03A9, 0x03AA, 0x03AB, 0x0386, 0x0388, 0x0389, 0x038A,

+    0x03B0, 0x0391, 0x0392, 0x0393, 0x0394, 0x0395, 0x0396, 0x0397,

+    0x0398, 0x0399, 0x039A, 0x039B, 0x039C, 0x039D, 0x039E, 0x039F,

+    0x03A0, 0x03A1, 0x03A3, 0x03A3, 0x03A4, 0x03A5, 0x03A6, 0x03A7,

+    0x03A8, 0x03A9, 0x03AA, 0x03AB, 0x038C, 0x038E, 0x038F, 0x0000,

+    0x0392, 0x0398, 0x03D2, 0x03D3, 0x03D4, 0x03A6, 0x03A0, 0x03D7,

+    0x03D8, 0x03D8, 0x03DA, 0x03DA, 0x03DC, 0x03DC, 0x03DE, 0x03DE,

+    0x03E0, 0x03E0, 0x03E2, 0x03E2, 0x03E4, 0x03E4, 0x03E6, 0x03E6,

+    0x03E8, 0x03E8, 0x03EA, 0x03EA, 0x03EC, 0x03EC, 0x03EE, 0x03EE,

+    0x039A, 0x03A1, 0x03F9, 0x03F3, 0x03F4, 0x0395, 0x03F6, 0x03F7,

+    0x03F7, 0x03F9, 0x03FA, 0x03FA, 0x0000, 0x0000, 0x0000, 0x0000

+    };

+

+    static unsigned short const Greek_lower_mapping[] = {

+    0x0000, 0x0000, 0x0000, 0x0000, 0x0374, 0x0375, 0x0000, 0x0000,

+    0x0000, 0x0000, 0x037A, 0x0000, 0x0000, 0x0000, 0x037E, 0x0000,

+    0x0000, 0x0000, 0x0000, 0x0000, 0x0384, 0x0385, 0x03AC, 0x0387,

+    0x03AD, 0x03AE, 0x03AF, 0x0000, 0x03CC, 0x0000, 0x03CD, 0x03CE,

+    0x0390, 0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7,

+    0x03B8, 0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF,

+    0x03C0, 0x03C1, 0x0000, 0x03C3, 0x03C4, 0x03C5, 0x03C6, 0x03C7,

+    0x03C8, 0x03C9, 0x03CA, 0x03CB, 0x03AC, 0x03AD, 0x03AE, 0x03AF,

+    0x03B0, 0x03B1, 0x03B2, 0x03B3, 0x03B4, 0x03B5, 0x03B6, 0x03B7,

+    0x03B8, 0x03B9, 0x03BA, 0x03BB, 0x03BC, 0x03BD, 0x03BE, 0x03BF,

+    0x03C0, 0x03C1, 0x03C2, 0x03C3, 0x03C4, 0x03C5, 0x03C6, 0x03C7,

+    0x03C8, 0x03C9, 0x03CA, 0x03CB, 0x03CC, 0x03CD, 0x03CE, 0x0000,

+    0x03D0, 0x03D1, 0x03D2, 0x03D3, 0x03D4, 0x03D5, 0x03D6, 0x03D7,

+    0x03D9, 0x03D9, 0x03DB, 0x03DB, 0x03DD, 0x03DD, 0x03DF, 0x03DF,

+    0x03E1, 0x03E1, 0x03E3, 0x03E3, 0x03E5, 0x03E5, 0x03E7, 0x03E7,

+    0x03E9, 0x03E9, 0x03EB, 0x03EB, 0x03ED, 0x03ED, 0x03EF, 0x03EF,

+    0x03F0, 0x03F1, 0x03F2, 0x03F3, 0x03B8, 0x03F5, 0x03F6, 0x03F8,

+    0x03F8, 0x03F2, 0x03FB, 0x03FB, 0x0000, 0x0000, 0x0000, 0x0000

+    };

+

+    static unsigned short const GreekExt_lower_mapping[] = {

+    0x1F00, 0x1F01, 0x1F02, 0x1F03, 0x1F04, 0x1F05, 0x1F06, 0x1F07,

+    0x1F00, 0x1F01, 0x1F02, 0x1F03, 0x1F04, 0x1F05, 0x1F06, 0x1F07,

+    0x1F10, 0x1F11, 0x1F12, 0x1F13, 0x1F14, 0x1F15, 0x0000, 0x0000,

+    0x1F10, 0x1F11, 0x1F12, 0x1F13, 0x1F14, 0x1F15, 0x0000, 0x0000,

+    0x1F20, 0x1F21, 0x1F22, 0x1F23, 0x1F24, 0x1F25, 0x1F26, 0x1F27,

+    0x1F20, 0x1F21, 0x1F22, 0x1F23, 0x1F24, 0x1F25, 0x1F26, 0x1F27,

+    0x1F30, 0x1F31, 0x1F32, 0x1F33, 0x1F34, 0x1F35, 0x1F36, 0x1F37,

+    0x1F30, 0x1F31, 0x1F32, 0x1F33, 0x1F34, 0x1F35, 0x1F36, 0x1F37,

+    0x1F40, 0x1F41, 0x1F42, 0x1F43, 0x1F44, 0x1F45, 0x0000, 0x0000,

+    0x1F40, 0x1F41, 0x1F42, 0x1F43, 0x1F44, 0x1F45, 0x0000, 0x0000,

+    0x1F50, 0x1F51, 0x1F52, 0x1F53, 0x1F54, 0x1F55, 0x1F56, 0x1F57,

+    0x0000, 0x1F51, 0x0000, 0x1F53, 0x0000, 0x1F55, 0x0000, 0x1F57,

+    0x1F60, 0x1F61, 0x1F62, 0x1F63, 0x1F64, 0x1F65, 0x1F66, 0x1F67,

+    0x1F60, 0x1F61, 0x1F62, 0x1F63, 0x1F64, 0x1F65, 0x1F66, 0x1F67,

+    0x1F70, 0x1F71, 0x1F72, 0x1F73, 0x1F74, 0x1F75, 0x1F76, 0x1F77,

+    0x1F78, 0x1F79, 0x1F7A, 0x1F7B, 0x1F7C, 0x1F7D, 0x0000, 0x0000,

+    0x1F80, 0x1F81, 0x1F82, 0x1F83, 0x1F84, 0x1F85, 0x1F86, 0x1F87,

+    0x1F80, 0x1F81, 0x1F82, 0x1F83, 0x1F84, 0x1F85, 0x1F86, 0x1F87,

+    0x1F90, 0x1F91, 0x1F92, 0x1F93, 0x1F94, 0x1F95, 0x1F96, 0x1F97,

+    0x1F90, 0x1F91, 0x1F92, 0x1F93, 0x1F94, 0x1F95, 0x1F96, 0x1F97,

+    0x1FA0, 0x1FA1, 0x1FA2, 0x1FA3, 0x1FA4, 0x1FA5, 0x1FA6, 0x1FA7,

+    0x1FA0, 0x1FA1, 0x1FA2, 0x1FA3, 0x1FA4, 0x1FA5, 0x1FA6, 0x1FA7,

+    0x1FB0, 0x1FB1, 0x1FB2, 0x1FB3, 0x1FB4, 0x0000, 0x1FB6, 0x1FB7,

+    0x1FB0, 0x1FB1, 0x1F70, 0x1F71, 0x1FB3, 0x1FBD, 0x1FBE, 0x1FBF,

+    0x1FC0, 0x1FC1, 0x1FC2, 0x1FC3, 0x1FC4, 0x0000, 0x1FC6, 0x1FC7,

+    0x1F72, 0x1F73, 0x1F74, 0x1F75, 0x1FC3, 0x1FCD, 0x1FCE, 0x1FCF,

+    0x1FD0, 0x1FD1, 0x1FD2, 0x1FD3, 0x0000, 0x0000, 0x1FD6, 0x1FD7,

+    0x1FD0, 0x1FD1, 0x1F76, 0x1F77, 0x0000, 0x1FDD, 0x1FDE, 0x1FDF,

+    0x1FE0, 0x1FE1, 0x1FE2, 0x1FE3, 0x1FE4, 0x1FE5, 0x1FE6, 0x1FE7,

+    0x1FE0, 0x1FE1, 0x1F7A, 0x1F7B, 0x1FE5, 0x1FED, 0x1FEE, 0x1FEF,

+    0x0000, 0x0000, 0x1FF2, 0x1FF3, 0x1FF4, 0x0000, 0x1FF6, 0x1FF7,

+    0x1F78, 0x1F79, 0x1F7C, 0x1F7D, 0x1FF3, 0x1FFD, 0x1FFE, 0x0000

+    };

+

+    static unsigned short const GreekExt_upper_mapping[] = {

+    0x1F08, 0x1F09, 0x1F0A, 0x1F0B, 0x1F0C, 0x1F0D, 0x1F0E, 0x1F0F,

+    0x1F08, 0x1F09, 0x1F0A, 0x1F0B, 0x1F0C, 0x1F0D, 0x1F0E, 0x1F0F,

+    0x1F18, 0x1F19, 0x1F1A, 0x1F1B, 0x1F1C, 0x1F1D, 0x0000, 0x0000,

+    0x1F18, 0x1F19, 0x1F1A, 0x1F1B, 0x1F1C, 0x1F1D, 0x0000, 0x0000,

+    0x1F28, 0x1F29, 0x1F2A, 0x1F2B, 0x1F2C, 0x1F2D, 0x1F2E, 0x1F2F,

+    0x1F28, 0x1F29, 0x1F2A, 0x1F2B, 0x1F2C, 0x1F2D, 0x1F2E, 0x1F2F,

+    0x1F38, 0x1F39, 0x1F3A, 0x1F3B, 0x1F3C, 0x1F3D, 0x1F3E, 0x1F3F,

+    0x1F38, 0x1F39, 0x1F3A, 0x1F3B, 0x1F3C, 0x1F3D, 0x1F3E, 0x1F3F,

+    0x1F48, 0x1F49, 0x1F4A, 0x1F4B, 0x1F4C, 0x1F4D, 0x0000, 0x0000,

+    0x1F48, 0x1F49, 0x1F4A, 0x1F4B, 0x1F4C, 0x1F4D, 0x0000, 0x0000,

+    0x1F50, 0x1F59, 0x1F52, 0x1F5B, 0x1F54, 0x1F5D, 0x1F56, 0x1F5F,

+    0x0000, 0x1F59, 0x0000, 0x1F5B, 0x0000, 0x1F5D, 0x0000, 0x1F5F,

+    0x1F68, 0x1F69, 0x1F6A, 0x1F6B, 0x1F6C, 0x1F6D, 0x1F6E, 0x1F6F,

+    0x1F68, 0x1F69, 0x1F6A, 0x1F6B, 0x1F6C, 0x1F6D, 0x1F6E, 0x1F6F,

+    0x1FBA, 0x1FBB, 0x1FC8, 0x1FC9, 0x1FCA, 0x1FCB, 0x1FDA, 0x1FDB,

+    0x1FF8, 0x1FF9, 0x1FEA, 0x1FEB, 0x1FFA, 0x1FFB, 0x0000, 0x0000,

+    0x1F88, 0x1F89, 0x1F8A, 0x1F8B, 0x1F8C, 0x1F8D, 0x1F8E, 0x1F8F,

+    0x1F88, 0x1F89, 0x1F8A, 0x1F8B, 0x1F8C, 0x1F8D, 0x1F8E, 0x1F8F,

+    0x1F98, 0x1F99, 0x1F9A, 0x1F9B, 0x1F9C, 0x1F9D, 0x1F9E, 0x1F9F,

+    0x1F98, 0x1F99, 0x1F9A, 0x1F9B, 0x1F9C, 0x1F9D, 0x1F9E, 0x1F9F,

+    0x1FA8, 0x1FA9, 0x1FAA, 0x1FAB, 0x1FAC, 0x1FAD, 0x1FAE, 0x1FAF,

+    0x1FA8, 0x1FA9, 0x1FAA, 0x1FAB, 0x1FAC, 0x1FAD, 0x1FAE, 0x1FAF,

+    0x1FB8, 0x1FB9, 0x1FB2, 0x1FBC, 0x1FB4, 0x0000, 0x1FB6, 0x1FB7,

+    0x1FB8, 0x1FB9, 0x1FBA, 0x1FBB, 0x1FBC, 0x1FBD, 0x0399, 0x1FBF,

+    0x1FC0, 0x1FC1, 0x1FC2, 0x1FCC, 0x1FC4, 0x0000, 0x1FC6, 0x1FC7,

+    0x1FC8, 0x1FC9, 0x1FCA, 0x1FCB, 0x1FCC, 0x1FCD, 0x1FCE, 0x1FCF,

+    0x1FD8, 0x1FD9, 0x1FD2, 0x1FD3, 0x0000, 0x0000, 0x1FD6, 0x1FD7,

+    0x1FD8, 0x1FD9, 0x1FDA, 0x1FDB, 0x0000, 0x1FDD, 0x1FDE, 0x1FDF,

+    0x1FE8, 0x1FE9, 0x1FE2, 0x1FE3, 0x1FE4, 0x1FEC, 0x1FE6, 0x1FE7,

+    0x1FE8, 0x1FE9, 0x1FEA, 0x1FEB, 0x1FEC, 0x1FED, 0x1FEE, 0x1FEF,

+    0x0000, 0x0000, 0x1FF2, 0x1FFC, 0x1FF4, 0x0000, 0x1FF6, 0x1FF7,

+    0x1FF8, 0x1FF9, 0x1FFA, 0x1FFB, 0x1FFC, 0x1FFD, 0x1FFE, 0x0000

+    };

+

+    *lower = code;

+    *upper = code;

+

+    /* Basic Latin and Latin-1 Supplement, U+0000 to U+00FF */

+    if (code <= 0x00ff) {

+        if (code >= 0x0041 && code <= 0x005a)             /* A-Z */

+            *lower += 0x20;

+        else if (code >= 0x0061 && code <= 0x007a)        /* a-z */

+            *upper -= 0x20;

+        else if ( (code >= 0x00c0 && code <= 0x00d6) ||

+	          (code >= 0x00d8 && code <= 0x00de) )

+            *lower += 0x20;

+        else if ( (code >= 0x00e0 && code <= 0x00f6) ||

+	          (code >= 0x00f8 && code <= 0x00fe) )

+            *upper -= 0x20;

+        else if (code == 0x00ff)      /* y with diaeresis */

+            *upper = 0x0178;

+        else if (code == 0x00b5)      /* micro sign */

+            *upper = 0x039c;

+	return;

+    }

+

+    /* Latin Extended-A, U+0100 to U+017F */

+    if (code >= 0x0100 && code <= 0x017f) {

+        if ( (code >= 0x0100 && code <= 0x012f) ||

+             (code >= 0x0132 && code <= 0x0137) ||

+             (code >= 0x014a && code <= 0x0177) ) {

+            *upper = code & ~1;

+            *lower = code | 1;

+        }

+        else if ( (code >= 0x0139 && code <= 0x0148) ||

+                  (code >= 0x0179 && code <= 0x017e) ) {

+            if (code & 1)

+	        *lower += 1;

+            else

+	        *upper -= 1;

+        }

+        else if (code == 0x0130)

+            *lower = 0x0069;

+        else if (code == 0x0131)

+            *upper = 0x0049;

+        else if (code == 0x0178)

+            *lower = 0x00ff;

+        else if (code == 0x017f)

+            *upper = 0x0053;

+        return;

+    }

+

+    /* Latin Extended-B, U+0180 to U+024F */

+    if (code >= 0x0180 && code <= 0x024f) {

+        if (code >= 0x01cd && code <= 0x01dc) {

+	    if (code & 1)

+	       *lower += 1;

+	    else

+	       *upper -= 1;

+        }

+        else if ( (code >= 0x01de && code <= 0x01ef) ||

+                  (code >= 0x01f4 && code <= 0x01f5) ||

+                  (code >= 0x01f8 && code <= 0x021f) ||

+                  (code >= 0x0222 && code <= 0x0233) ) {

+            *lower |= 1;

+            *upper &= ~1;

+        }

+        else if (code >= 0x0180 && code <= 0x01cc) {

+            *lower = LatinExtB_lower_mapping[code - 0x0180];

+            *upper = LatinExtB_upper_mapping[code - 0x0180];

+        }

+        else if (code == 0x01dd)

+            *upper = 0x018e;

+        else if (code == 0x01f1 || code == 0x01f2) {

+            *lower = 0x01f3;

+            *upper = 0x01f1;

+        }

+        else if (code == 0x01f3)

+            *upper = 0x01f1;

+        else if (code == 0x01f6)

+            *lower = 0x0195;

+        else if (code == 0x01f7)

+            *lower = 0x01bf;

+        else if (code == 0x0220)

+            *lower = 0x019e;

+        return;

+    }

+

+    /* IPA Extensions, U+0250 to U+02AF */

+    if (code >= 0x0253 && code <= 0x0292) {

+        *upper = IPAExt_upper_mapping[code - 0x0253];

+    }

+

+    /* Combining Diacritical Marks, U+0300 to U+036F */

+    if (code == 0x0345) {

+        *upper = 0x0399;

+    }

+

+    /* Greek and Coptic, U+0370 to U+03FF */

+    if (code >= 0x0370 && code <= 0x03ff) {

+        *lower = Greek_lower_mapping[code - 0x0370];

+        *upper = Greek_upper_mapping[code - 0x0370];

+        if (*upper == 0)

+            *upper = code;

+        if (*lower == 0)

+            *lower = code;

+    }

+

+    /* Cyrillic and Cyrillic Supplementary, U+0400 to U+052F */

+    if ( (code >= 0x0400 && code <= 0x04ff) ||

+         (code >= 0x0500 && code <= 0x052f) ) {

+        if (code >= 0x0400 && code <= 0x040f)

+            *lower += 0x50;

+        else if (code >= 0x0410 && code <= 0x042f)

+            *lower += 0x20;

+        else if (code >= 0x0430 && code <= 0x044f)

+            *upper -= 0x20;

+        else if (code >= 0x0450 && code <= 0x045f)

+            *upper -= 0x50;

+        else if ( (code >= 0x0460 && code <= 0x0481) ||

+                  (code >= 0x048a && code <= 0x04bf) ||

+	          (code >= 0x04d0 && code <= 0x04f5) ||

+	          (code >= 0x04f8 && code <= 0x04f9) ||

+                  (code >= 0x0500 && code <= 0x050f) ) {

+            *upper &= ~1;

+            *lower |= 1;

+        }

+        else if (code >= 0x04c1 && code <= 0x04ce) {

+	    if (code & 1)

+	        *lower += 1;

+	    else

+	        *upper -= 1;

+        }

+    }

+

+    /* Armenian, U+0530 to U+058F */

+    if (code >= 0x0530 && code <= 0x058f) {

+        if (code >= 0x0531 && code <= 0x0556)

+            *lower += 0x30;

+        else if (code >=0x0561 && code <= 0x0586)

+            *upper -= 0x30;

+    }

+

+    /* Latin Extended Additional, U+1E00 to U+1EFF */

+    if (code >= 0x1e00 && code <= 0x1eff) {

+        if ( (code >= 0x1e00 && code <= 0x1e95) ||

+             (code >= 0x1ea0 && code <= 0x1ef9) ) {

+            *upper &= ~1;

+            *lower |= 1;

+        }

+        else if (code == 0x1e9b)

+            *upper = 0x1e60;

+    }

+

+    /* Greek Extended, U+1F00 to U+1FFF */

+    if (code >= 0x1f00 && code <= 0x1fff) {

+        *lower = GreekExt_lower_mapping[code - 0x1f00];

+        *upper = GreekExt_upper_mapping[code - 0x1f00];

+        if (*upper == 0)

+            *upper = code;

+        if (*lower == 0)

+            *lower = code;

+    }

+

+    /* Letterlike Symbols, U+2100 to U+214F */

+    if (code >= 0x2100 && code <= 0x214f) {

+        switch (code) {

+        case 0x2126: *lower = 0x03c9; break;

+        case 0x212a: *lower = 0x006b; break;

+        case 0x212b: *lower = 0x00e5; break;

+        }

+    }

+    /* Number Forms, U+2150 to U+218F */

+    else if (code >= 0x2160 && code <= 0x216f)

+        *lower += 0x10;

+    else if (code >= 0x2170 && code <= 0x217f)

+        *upper -= 0x10;

+    /* Enclosed Alphanumerics, U+2460 to U+24FF */

+    else if (code >= 0x24b6 && code <= 0x24cf)

+        *lower += 0x1a;

+    else if (code >= 0x24d0 && code <= 0x24e9)

+        *upper -= 0x1a;

+    /* Halfwidth and Fullwidth Forms, U+FF00 to U+FFEF */

+    else if (code >= 0xff21 && code <= 0xff3a)

+        *lower += 0x20;

+    else if (code >= 0xff41 && code <= 0xff5a)

+        *upper -= 0x20;

+    /* Deseret, U+10400 to U+104FF */

+    else if (code >= 0x10400 && code <= 0x10427)

+        *lower += 0x28;

+    else if (code >= 0x10428 && code <= 0x1044f)

+        *upper -= 0x28;

+}

+

+void

+XConvertCase(

+    register KeySym sym,

+    KeySym *lower,

+    KeySym *upper)

+{

+    /* Latin 1 keysym */

+    if (sym < 0x100) {

+        UCSConvertCase(sym, lower, upper);

+	return;

+    }

+

+    /* Unicode keysym */

+    if ((sym & 0xff000000) == 0x01000000) {

+        UCSConvertCase((sym & 0x00ffffff), lower, upper);

+        *upper |= 0x01000000;

+        *lower |= 0x01000000;

+        return;

+    }

+

+    /* Legacy keysym */

+

+    *lower = sym;

+    *upper = sym;

+

+    switch(sym >> 8) {

+    case 1: /* Latin 2 */

+	/* Assume the KeySym is a legal value (ignore discontinuities) */

+	if (sym == XK_Aogonek)

+	    *lower = XK_aogonek;

+	else if (sym >= XK_Lstroke && sym <= XK_Sacute)

+	    *lower += (XK_lstroke - XK_Lstroke);

+	else if (sym >= XK_Scaron && sym <= XK_Zacute)

+	    *lower += (XK_scaron - XK_Scaron);

+	else if (sym >= XK_Zcaron && sym <= XK_Zabovedot)

+	    *lower += (XK_zcaron - XK_Zcaron);

+	else if (sym == XK_aogonek)

+	    *upper = XK_Aogonek;

+	else if (sym >= XK_lstroke && sym <= XK_sacute)

+	    *upper -= (XK_lstroke - XK_Lstroke);

+	else if (sym >= XK_scaron && sym <= XK_zacute)

+	    *upper -= (XK_scaron - XK_Scaron);

+	else if (sym >= XK_zcaron && sym <= XK_zabovedot)

+	    *upper -= (XK_zcaron - XK_Zcaron);

+	else if (sym >= XK_Racute && sym <= XK_Tcedilla)

+	    *lower += (XK_racute - XK_Racute);

+	else if (sym >= XK_racute && sym <= XK_tcedilla)

+	    *upper -= (XK_racute - XK_Racute);

+	break;

+    case 2: /* Latin 3 */

+	/* Assume the KeySym is a legal value (ignore discontinuities) */

+	if (sym >= XK_Hstroke && sym <= XK_Hcircumflex)

+	    *lower += (XK_hstroke - XK_Hstroke);

+	else if (sym >= XK_Gbreve && sym <= XK_Jcircumflex)

+	    *lower += (XK_gbreve - XK_Gbreve);

+	else if (sym >= XK_hstroke && sym <= XK_hcircumflex)

+	    *upper -= (XK_hstroke - XK_Hstroke);

+	else if (sym >= XK_gbreve && sym <= XK_jcircumflex)

+	    *upper -= (XK_gbreve - XK_Gbreve);

+	else if (sym >= XK_Cabovedot && sym <= XK_Scircumflex)

+	    *lower += (XK_cabovedot - XK_Cabovedot);

+	else if (sym >= XK_cabovedot && sym <= XK_scircumflex)

+	    *upper -= (XK_cabovedot - XK_Cabovedot);

+	break;

+    case 3: /* Latin 4 */

+	/* Assume the KeySym is a legal value (ignore discontinuities) */

+	if (sym >= XK_Rcedilla && sym <= XK_Tslash)

+	    *lower += (XK_rcedilla - XK_Rcedilla);

+	else if (sym >= XK_rcedilla && sym <= XK_tslash)

+	    *upper -= (XK_rcedilla - XK_Rcedilla);

+	else if (sym == XK_ENG)

+	    *lower = XK_eng;

+	else if (sym == XK_eng)

+	    *upper = XK_ENG;

+	else if (sym >= XK_Amacron && sym <= XK_Umacron)

+	    *lower += (XK_amacron - XK_Amacron);

+	else if (sym >= XK_amacron && sym <= XK_umacron)

+	    *upper -= (XK_amacron - XK_Amacron);

+	break;

+    case 6: /* Cyrillic */

+	/* Assume the KeySym is a legal value (ignore discontinuities) */

+	if (sym >= XK_Serbian_DJE && sym <= XK_Serbian_DZE)

+	    *lower -= (XK_Serbian_DJE - XK_Serbian_dje);

+	else if (sym >= XK_Serbian_dje && sym <= XK_Serbian_dze)

+	    *upper += (XK_Serbian_DJE - XK_Serbian_dje);

+	else if (sym >= XK_Cyrillic_YU && sym <= XK_Cyrillic_HARDSIGN)

+	    *lower -= (XK_Cyrillic_YU - XK_Cyrillic_yu);

+	else if (sym >= XK_Cyrillic_yu && sym <= XK_Cyrillic_hardsign)

+	    *upper += (XK_Cyrillic_YU - XK_Cyrillic_yu);

+        break;

+    case 7: /* Greek */

+	/* Assume the KeySym is a legal value (ignore discontinuities) */

+	if (sym >= XK_Greek_ALPHAaccent && sym <= XK_Greek_OMEGAaccent)

+	    *lower += (XK_Greek_alphaaccent - XK_Greek_ALPHAaccent);

+	else if (sym >= XK_Greek_alphaaccent && sym <= XK_Greek_omegaaccent &&

+		 sym != XK_Greek_iotaaccentdieresis &&

+		 sym != XK_Greek_upsilonaccentdieresis)

+	    *upper -= (XK_Greek_alphaaccent - XK_Greek_ALPHAaccent);

+	else if (sym >= XK_Greek_ALPHA && sym <= XK_Greek_OMEGA)

+	    *lower += (XK_Greek_alpha - XK_Greek_ALPHA);

+	else if (sym >= XK_Greek_alpha && sym <= XK_Greek_omega &&

+		 sym != XK_Greek_finalsmallsigma)

+	    *upper -= (XK_Greek_alpha - XK_Greek_ALPHA);

+        break;

+    case 0x13: /* Latin 9 */

+        if (sym == XK_OE)

+            *lower = XK_oe;

+        else if (sym == XK_oe)

+            *upper = XK_OE;

+        else if (sym == XK_Ydiaeresis)

+            *lower = XK_ydiaeresis;

+        break;

+    }

+}

+

+int

+_XTranslateKey(	register Display *dpy,

+		KeyCode keycode,

+		register unsigned int modifiers,

+		unsigned int *modifiers_return,

+		KeySym *keysym_return)

+{

+    int per;

+    register KeySym *syms;

+    KeySym sym, lsym, usym;

+

+    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))

+	return 0;

+    *modifiers_return = ((ShiftMask|LockMask)

+			 | dpy->mode_switch | dpy->num_lock);

+    if (((int)keycode < dpy->min_keycode) || ((int)keycode > dpy->max_keycode))

+    {

+	*keysym_return = NoSymbol;

+	return 1;

+    }

+    per = dpy->keysyms_per_keycode;

+    syms = &dpy->keysyms[(keycode - dpy->min_keycode) * per];

+    while ((per > 2) && (syms[per - 1] == NoSymbol))

+	per--;

+    if ((per > 2) && (modifiers & dpy->mode_switch)) {

+	syms += 2;

+	per -= 2;

+    }

+    if ((modifiers & dpy->num_lock) &&

+	(per > 1 && (IsKeypadKey(syms[1]) || IsPrivateKeypadKey(syms[1])))) {

+	if ((modifiers & ShiftMask) ||

+	    ((modifiers & LockMask) && (dpy->lock_meaning == XK_Shift_Lock)))

+	    *keysym_return = syms[0];

+	else

+	    *keysym_return = syms[1];

+    } else if (!(modifiers & ShiftMask) &&

+	(!(modifiers & LockMask) || (dpy->lock_meaning == NoSymbol))) {

+	if ((per == 1) || (syms[1] == NoSymbol))

+	    XConvertCase(syms[0], keysym_return, &usym);

+	else

+	    *keysym_return = syms[0];

+    } else if (!(modifiers & LockMask) ||

+	       (dpy->lock_meaning != XK_Caps_Lock)) {

+	if ((per == 1) || ((usym = syms[1]) == NoSymbol))

+	    XConvertCase(syms[0], &lsym, &usym);

+	*keysym_return = usym;

+    } else {

+	if ((per == 1) || ((sym = syms[1]) == NoSymbol))

+	    sym = syms[0];

+	XConvertCase(sym, &lsym, &usym);

+	if (!(modifiers & ShiftMask) && (sym != syms[0]) &&

+	    ((sym != usym) || (lsym == usym)))

+	    XConvertCase(syms[0], &lsym, &usym);

+	*keysym_return = usym;

+    }

+    if (*keysym_return == XK_VoidSymbol)

+	*keysym_return = NoSymbol;

+    return 1;

+}

+

+int

+_XTranslateKeySym(

+    Display *dpy,

+    register KeySym symbol,

+    unsigned int modifiers,

+    char *buffer,

+    int nbytes)

+{

+    register struct _XKeytrans *p;

+    int length;

+    unsigned long hiBytes;

+    register unsigned char c;

+

+    if (!symbol)

+	return 0;

+    /* see if symbol rebound, if so, return that string. */

+    for (p = dpy->key_bindings; p; p = p->next) {

+	if (((modifiers & AllMods) == p->state) && (symbol == p->key)) {

+	    length = p->len;

+	    if (length > nbytes) length = nbytes;

+	    memcpy (buffer, p->string, length);

+	    return length;

+	}

+    }

+    /* try to convert to Latin-1, handling control */

+    hiBytes = symbol >> 8;

+    if (!(nbytes &&

+	  ((hiBytes == 0) ||

+	   ((hiBytes == 0xFF) &&

+	    (((symbol >= XK_BackSpace) && (symbol <= XK_Clear)) ||

+	     (symbol == XK_Return) ||

+	     (symbol == XK_Escape) ||

+	     (symbol == XK_KP_Space) ||

+	     (symbol == XK_KP_Tab) ||

+	     (symbol == XK_KP_Enter) ||

+	     ((symbol >= XK_KP_Multiply) && (symbol <= XK_KP_9)) ||

+	     (symbol == XK_KP_Equal) ||

+	     (symbol == XK_Delete))))))

+	return 0;

+

+    /* if X keysym, convert to ascii by grabbing low 7 bits */

+    if (symbol == XK_KP_Space)

+	c = XK_space & 0x7F; /* patch encoding botch */

+    else if (hiBytes == 0xFF)

+	c = symbol & 0x7F;

+    else

+	c = symbol & 0xFF;

+    /* only apply Control key if it makes sense, else ignore it */

+    if (modifiers & ControlMask) {

+	if ((c >= '@' && c < '\177') || c == ' ') c &= 0x1F;

+	else if (c == '2') c = '\000';

+	else if (c >= '3' && c <= '7') c -= ('3' - '\033');

+	else if (c == '8') c = '\177';

+	else if (c == '/') c = '_' & 0x1F;

+    }

+    buffer[0] = c;

+    return 1;

+}

+

+/*ARGSUSED*/

+int

+XLookupString (

+    register XKeyEvent *event,

+    char *buffer,	/* buffer */

+    int nbytes,	/* space in buffer for characters */

+    KeySym *keysym,

+    XComposeStatus *status)	/* not implemented */

+{

+    unsigned int modifiers;

+    KeySym symbol;

+

+    if (! _XTranslateKey(event->display, event->keycode, event->state,

+		  &modifiers, &symbol))

+	return 0;

+

+#ifdef USE_OWN_COMPOSE

+    if ( status ) {

+	static int been_here= 0;

+	if ( !been_here ) {

+	    XimCompInitTables();

+	    been_here = 1;

+	}

+	if ( !XimCompLegalStatus(status) ) {

+	    status->compose_ptr = NULL;

+	    status->chars_matched = 0;

+	}

+	if ( ((status->chars_matched>0)&&(status->compose_ptr!=NULL)) ||

+		XimCompIsComposeKey(symbol,event->keycode,status) ) {

+	    XimCompRtrn rtrn;

+	    switch (XimCompProcessSym(status,symbol,&rtrn)) {

+		case XIM_COMP_IGNORE:

+		    break;

+		case XIM_COMP_IN_PROGRESS:

+		    if ( keysym!=NULL )

+			*keysym = NoSymbol;

+		    return 0;

+		case XIM_COMP_FAIL:

+		{

+		    int n = 0, len= 0;

+		    for (n=len=0;rtrn.sym[n]!=XK_VoidSymbol;n++) {

+			if ( nbytes-len > 0 ) {

+			    len+= _XTranslateKeySym(event->display,rtrn.sym[n],

+							event->state,

+							buffer+len,nbytes-len);

+			}

+		    }

+		    if ( keysym!=NULL ) {

+			if ( n==1 )	*keysym = rtrn.sym[0];

+			else		*keysym = NoSymbol;

+		    }

+		    return len;

+		}

+		case XIM_COMP_SUCCEED:

+		{

+		    int len,n = 0;

+

+		    symbol = rtrn.matchSym;

+		    if ( keysym!=NULL )	*keysym = symbol;

+		    if ( rtrn.str[0]!='\0' ) {

+			strncpy(buffer,rtrn.str,nbytes-1);

+			buffer[nbytes-1]= '\0';

+			len = strlen(buffer);

+		    }

+		    else {

+			len = _XTranslateKeySym(event->display,symbol,

+							event->state,

+							buffer,nbytes);

+		    }

+		    for (n=0;rtrn.sym[n]!=XK_VoidSymbol;n++) {

+			if ( nbytes-len > 0 ) {

+			    len+= _XTranslateKeySym(event->display,rtrn.sym[n],

+							event->state,

+							buffer+len,nbytes-len);

+			}

+		    }

+		    return len;

+		}

+	    }

+	}

+    }

+#endif

+

+    if (keysym)

+	*keysym = symbol;

+    /* arguable whether to use (event->state & ~modifiers) here */

+    return _XTranslateKeySym(event->display, symbol, event->state,

+			     buffer, nbytes);

+}

+

+static void

+_XFreeKeyBindings(

+    Display *dpy)

+{

+    register struct _XKeytrans *p, *np;

+

+    for (p = dpy->key_bindings; p; p = np) {

+	np = p->next;

+	Xfree(p->string);

+	Xfree((char *)p->modifiers);

+	Xfree((char *)p);

+    }

+}

+

+int

+XRebindKeysym (

+    Display *dpy,

+    KeySym keysym,

+    KeySym *mlist,

+    int nm,		/* number of modifiers in mlist */

+    _Xconst unsigned char *str,

+    int nbytes)

+{

+    register struct _XKeytrans *tmp, *p;

+    int nb;

+

+    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))

+	return 0;

+    LockDisplay(dpy);

+    tmp = dpy->key_bindings;

+    nb = sizeof(KeySym) * nm;

+

+    if ((! (p = (struct _XKeytrans *) Xcalloc( 1, sizeof(struct _XKeytrans)))) ||

+	((! (p->string = (char *) Xmalloc( (unsigned) nbytes))) &&

+	 (nbytes > 0)) ||

+	((! (p->modifiers = (KeySym *) Xmalloc( (unsigned) nb))) &&

+	 (nb > 0))) {

+	if (p) {

+	    if (p->string) Xfree(p->string);

+	    if (p->modifiers) Xfree((char *) p->modifiers);

+	    Xfree((char *) p);

+	}

+	UnlockDisplay(dpy);

+	return 0;

+    }

+

+    dpy->key_bindings = p;

+    dpy->free_funcs->key_bindings = _XFreeKeyBindings;

+    p->next = tmp;	/* chain onto list */

+    memcpy (p->string, (char *) str, nbytes);

+    p->len = nbytes;

+    memcpy ((char *) p->modifiers, (char *) mlist, nb);

+    p->key = keysym;

+    p->mlen = nm;

+    ComputeMaskFromKeytrans(dpy, p);

+    UnlockDisplay(dpy);

+    return 0;

+}

+

+unsigned

+_XKeysymToModifiers(

+    Display *dpy,

+    KeySym ks)

+{

+    CARD8 code,mods;

+    register KeySym *kmax;

+    register KeySym *k;

+    register XModifierKeymap *m;

+

+    if ((! dpy->keysyms) && (! _XKeyInitialize(dpy)))

+	return 0;

+    kmax = dpy->keysyms +

+	   (dpy->max_keycode - dpy->min_keycode + 1) * dpy->keysyms_per_keycode;

+    k = dpy->keysyms;

+    m = dpy->modifiermap;

+    mods= 0;

+    while (k<kmax) {

+	if (*k == ks ) {

+	    register int j = m->max_keypermod<<3;

+

+	    code=(((k-dpy->keysyms)/dpy->keysyms_per_keycode)+dpy->min_keycode);

+

+	    while (--j >= 0) {

+		if (code == m->modifiermap[j])

+		    mods|= (1<<(j/m->max_keypermod));

+	    }

+	}

+	k++;

+    }

+    return mods;

+}

+

+/*

+ * given a list of modifiers, computes the mask necessary for later matching.

+ * This routine must lookup the key in the Keymap and then search to see

+ * what modifier it is bound to, if any.  Sets the AnyModifier bit if it

+ * can't map some keysym to a modifier.

+ */

+static void

+ComputeMaskFromKeytrans(

+    Display *dpy,

+    register struct _XKeytrans *p)

+{

+    register int i;

+

+    p->state = AnyModifier;

+    for (i = 0; i < p->mlen; i++) {

+	p->state|= XkbKeysymToModifiers(dpy,p->modifiers[i]);

+    }

+    p->state &= AllMods;

+}

diff --git a/libX11/src/Makefile.am b/libX11/src/Makefile.am
index 71e02e71b..ecf4a99aa 100644
--- a/libX11/src/Makefile.am
+++ b/libX11/src/Makefile.am
@@ -1,425 +1,425 @@
-if XKB
-XKB_SUBDIRS = xkb
-endif
-SUBDIRS = util xcms xlibi18n $(XKB_SUBDIRS)
-
-lib_LTLIBRARIES = libX11.la libX11-xcb.la
-
-BUILT_SOURCES=ks_tables.h
-CLEANFILES=ks_tables.h ks_tables_h
-
-AM_CPPFLAGS= \
-	-I$(top_srcdir)/include \
-	-I$(top_srcdir)/include/X11 \
-	-I$(top_builddir)/include \
-	-I$(top_builddir)/include/X11 \
-	-I$(top_srcdir)/src/xcms \
-	-I$(top_srcdir)/src/xkb \
-	-I$(top_srcdir)/src/xlibi18n \
-	-D_BSD_SOURCE -DX11_t -DTRANS_CLIENT
-
-AM_CFLAGS= \
-	$(X11_CFLAGS) \
-	$(BIGFONT_CFLAGS) \
-	$(XMALLOC_ZERO_CFLAGS) \
-	$(CWARNFLAGS)
-
-#
-# =============================== I18N =============================
-#
-
-I18N_LIBS = \
-	xlibi18n/libi18n.la
-
-#
-# =============================== XCMS =============================
-#
-
-XCMS_LIBS = \
-	xcms/libxcms.la
-
-#
-# =============================== XKB ==============================
-#
-
-XKB_LIBS = \
-	xkb/libxkb.la
-
-#
-# =============================== XLIB =============================
-#
-
-libX11_la_SOURCES = \
-                  AllCells.c \
-                  AllowEv.c \
-                  AllPlanes.c \
-                  AutoRep.c \
-                  Backgnd.c \
-                  BdrWidth.c \
-                  Bell.c \
-                  Border.c \
-                  ChAccCon.c \
-                  ChActPGb.c \
-                  ChClMode.c \
-                  ChCmap.c \
-                  ChGC.c \
-                  ChKeyCon.c \
-                  ChkIfEv.c \
-                  ChkMaskEv.c \
-                  ChkTypEv.c \
-                  ChkTypWEv.c \
-                  ChkWinEv.c \
-                  ChPntCon.c \
-                  ChProp.c \
-                  ChSaveSet.c \
-                  ChWAttrs.c \
-                  ChWindow.c \
-                  CirWin.c \
-                  CirWinDn.c \
-                  CirWinUp.c \
-                  ClDisplay.c \
-                  ClearArea.c \
-                  Clear.c \
-		  Cmap.h \
-                  ConfWind.c \
-                  Context.c \
-                  ConvSel.c \
-                  CopyArea.c \
-                  CopyCmap.c \
-                  CopyGC.c \
-                  CopyPlane.c \
-                  CrBFData.c \
-                  CrCmap.c \
-                  CrCursor.c \
-                  CrGC.c \
-                  CrGlCur.c \
-                  Cr.h \
-                  CrPFBData.c \
-                  CrPixmap.c \
-                  CrWindow.c \
-                  Cursor.c \
-                  DefCursor.c \
-                  DelProp.c \
-                  Depths.c \
-                  DestSubs.c \
-                  DestWind.c \
-                  DisName.c \
-                  DrArc.c \
-                  DrArcs.c \
-                  DrLine.c \
-                  DrLines.c \
-                  DrPoint.c \
-                  DrPoints.c \
-                  DrRect.c \
-                  DrRects.c \
-                  DrSegs.c \
-                  ErrDes.c \
-                  ErrHndlr.c \
-                  evtomask.c \
-                  EvToWire.c \
-                  FetchName.c \
-                  FillArc.c \
-                  FillArcs.c \
-                  FillPoly.c \
-                  FillRct.c \
-                  FillRcts.c \
-                  FilterEv.c \
-                  Flush.c \
-                  Font.c \
-                  FontInfo.c \
-                  FontNames.c \
-                  FreeCmap.c \
-                  FreeCols.c \
-                  FreeCurs.c \
-                  FreeEData.c \
-                  FreeEventData.c \
-                  FreeGC.c \
-                  FreePix.c \
-                  FSSaver.c \
-                  FSWrap.c \
-                  GCMisc.c \
-                  Geom.c \
-                  GetAtomNm.c \
-                  GetColor.c \
-                  GetDflt.c \
-                  GetEventData.c \
-                  GetFPath.c \
-                  GetFProp.c \
-                  GetGCVals.c \
-                  GetGeom.c \
-                  GetHColor.c \
-                  GetHints.c \
-                  GetIFocus.c \
-                  GetImage.c \
-                  GetKCnt.c \
-                  GetMoEv.c \
-                  GetNrmHint.c \
-                  GetPCnt.c \
-                  GetPntMap.c \
-                  GetProp.c \
-                  GetRGBCMap.c \
-                  GetSOwner.c \
-                  GetSSaver.c \
-                  GetStCmap.c \
-                  GetTxtProp.c \
-                  GetWAttrs.c \
-                  GetWMCMapW.c \
-                  GetWMProto.c \
-                  globals.c \
-                  GrButton.c \
-                  GrKeybd.c \
-                  GrKey.c \
-                  GrPointer.c \
-                  GrServer.c \
-                  Host.c \
-                  Iconify.c \
-                  IfEvent.c \
-		  imConv.c \
-                  ImText16.c \
-                  ImText.c \
-                  ImUtil.c \
-                  InitExt.c \
-                  InsCmap.c \
-                  IntAtom.c \
-                  KeyBind.c \
-                  Key.h \
-                  KeysymStr.c \
-                  KillCl.c \
-                  LiHosts.c \
-                  LiICmaps.c \
-                  LiProps.c \
-                  ListExt.c \
-                  LoadFont.c \
-                  LockDis.c \
-                  locking.c \
-                  locking.h \
-                  LookupCol.c \
-                  LowerWin.c \
-                  Macros.c \
-                  MapRaised.c \
-                  MapSubs.c \
-                  MapWindow.c \
-                  MaskEvent.c \
-                  Misc.c \
-                  ModMap.c \
-                  MoveWin.c \
-                  NextEvent.c \
-                  OCWrap.c \
-                  OMWrap.c \
-                  OpenDis.c \
-                  ParseCmd.c \
-                  ParseCol.c \
-                  ParseGeom.c \
-                  PeekEvent.c \
-                  PeekIfEv.c \
-                  Pending.c \
-                  PixFormats.c \
-                  PmapBgnd.c \
-                  PmapBord.c \
-                  poly.h \
-                  PolyReg.c \
-                  PolyTxt16.c \
-                  PolyTxt.c \
-                  PropAlloc.c \
-                  PutBEvent.c \
-                  PutImage.c \
-                  Quarks.c \
-                  QuBest.c \
-                  QuColor.c \
-                  QuColors.c \
-                  QuCurShp.c \
-                  QuExt.c \
-                  QuKeybd.c \
-                  QuPntr.c \
-                  QuStipShp.c \
-                  QuTextE16.c \
-                  QuTextExt.c \
-                  QuTileShp.c \
-                  QuTree.c \
-                  RaiseWin.c \
-                  RdBitF.c \
-                  RecolorC.c \
-                  ReconfWin.c \
-                  ReconfWM.c \
-                  Region.c \
-                  RegstFlt.c \
-                  RepWindow.c \
-                  RestackWs.c \
-                  RotProp.c \
-                  ScrResStr.c \
-                  SelInput.c \
-                  SendEvent.c \
-                  SetBack.c \
-                  SetClMask.c \
-                  SetClOrig.c \
-                  SetCRects.c \
-                  SetDashes.c \
-                  SetFont.c \
-                  SetFore.c \
-                  SetFPath.c \
-                  SetFunc.c \
-                  SetHints.c \
-                  SetIFocus.c \
-                  SetLocale.c \
-                  SetLStyle.c \
-                  SetNrmHint.c \
-                  SetPMask.c \
-                  SetPntMap.c \
-                  SetRGBCMap.c \
-                  SetSOwner.c \
-                  SetSSaver.c \
-                  SetState.c \
-                  SetStCmap.c \
-                  SetStip.c \
-                  SetTile.c \
-                  SetTSOrig.c \
-                  SetTxtProp.c \
-                  SetWMCMapW.c \
-                  SetWMProto.c \
-                  StBytes.c \
-                  StColor.c \
-                  StColors.c \
-                  StName.c \
-                  StNColor.c \
-                  StrKeysym.c \
-                  StrToText.c \
-                  Sync.c \
-                  Synchro.c \
-                  Text16.c \
-                  Text.c \
-                  TextExt16.c \
-                  TextExt.c \
-                  TextToStr.c \
-                  TrCoords.c \
-                  UndefCurs.c \
-                  UngrabBut.c \
-                  UngrabKbd.c \
-                  UngrabKey.c \
-                  UngrabPtr.c \
-                  UngrabSvr.c \
-                  UninsCmap.c \
-                  UnldFont.c \
-                  UnmapSubs.c \
-                  UnmapWin.c \
-                  utlist.h \
-                  VisUtil.c \
-                  WarpPtr.c \
-                  Window.c \
-                  WinEvent.c \
-                  Withdraw.c \
-                  WMGeom.c \
-                  WMProps.c \
-                  WrBitF.c \
-                  Xatomtype.h \
-                  xcb_disp.c \
-                  xcb_io.c \
-                  Xintatom.h \
-                  Xintconn.h \
-                  XlibAsync.c \
-                  XlibInt.c \
-                  Xprivate.h \
-                  XomGeneric.h \
-                  Xresinternal.h \
-                  Xrm.c \
-                  Xxcbint.h
-
-#
-# ========================= Extra stuff ============================
-#
-
-if OS2
-libX11_la_SOURCES+=os2Stubs.c
-endif OS2
-
-if UDC
-libX11_la_SOURCES+=udcInf.c
-endif
-
-if THRSTUBS
-libX11_la_SOURCES+=UIThrStubs.c
-endif
-
-x11datadir = @X11_DATADIR@
-x11data_DATA = XErrorDB
-
-EXTRA_DIST = \
-	$(x11data_DATA) \
-	os2Stubs.c \
-	udcInf.c \
-	UIThrStubs.c 
-
-libX11_xcb_la_SOURCES = x11_xcb.c Xxcbint.h
-libX11_xcb_la_LDFLAGS = -version-number 1:0:0 -no-undefined
-libX11_xcb_la_LIBADD = libX11.la
-
-#
-# Figure out which sub-libraries to link into Xlib
-#
-
-if XLOCALE
-USE_I18N_LIBS = $(I18N_LIBS)
-endif
-
-if XCMS
-USE_XCMS_LIBS = $(XCMS_LIBS)
-endif
-
-if XKB
-USE_XKB_LIBS = $(XKB_LIBS)
-endif
-
-libX11_la_LDFLAGS = -version-number 6:3:0 -no-undefined
-
-libX11_la_LIBADD = \
-	$(USE_I18N_LIBS) \
-	$(USE_XCMS_LIBS) \
-	$(USE_XKB_LIBS) \
-	$(X11_LIBS)
-
-preprocess: $(patsubst %.c,%.ii,$(libX11_la_SOURCES))
-.c.ii:
-	$(COMPILE) -E -o $@ `test -f '$<' || echo '$(srcdir)/'`$<
-
-if LINT
-# Check source code with tools like lint & sparse
-
-ALL_LINT_FLAGS=$(LINT_FLAGS) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
-		$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS)
-
-lint:	$(BUILT_SOURCES)
-	for f in $(libX11_la_SOURCES) ; do \
-		$(LINT) $(ALL_LINT_FLAGS) $$f ; \
-	done
-	@for subdir in $(SUBDIRS) ; do \
-		echo "Making $@ in src/$$subdir"; \
-		(cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) lint) ; \
-	done
-endif LINT
-
-if MAKE_LINT_LIB
-lintlibdir = $(libdir)
-
-lintlib_DATA = $(LINTLIB)
-
-lintlib_src = $(libX11_la_SOURCES) xcms/*.c xkb/*.c
-
-CLEANFILES += $(lintlib_DATA)
-
-$(LINTLIB): $(libX11_la_SOURCES)
-	$(AM_V_GEN)$(LINT) -y -oX11 -x $(ALL_LINT_FLAGS) $(lintlib_src)
-endif MAKE_LINT_LIB
-
-#
-# Building ks_tables.h requires the makekeys utility
-#
-
-KEYSYMDEFS=@KEYSYMDEFS@
-
-ks_tables.h: $(KEYSYMDEFS) $(top_builddir)/src/util/makekeys$(EXEEXT)
-	$(top_builddir)/src/util/makekeys $(KEYSYMDEFS) > ks_tables_h
-	mv ks_tables_h $@
-
-$(top_builddir)/src/util/makekeys$(EXEEXT): force
-	cd util && $(MAKE)
-
-force:
+if XKB

+XKB_SUBDIRS = xkb

+endif

+SUBDIRS = util xcms xlibi18n $(XKB_SUBDIRS)

+

+lib_LTLIBRARIES = libX11.la libX11-xcb.la

+

+BUILT_SOURCES=ks_tables.h

+CLEANFILES=ks_tables.h ks_tables_h

+

+AM_CPPFLAGS= \

+	-I$(top_srcdir)/include \

+	-I$(top_srcdir)/include/X11 \

+	-I$(top_builddir)/include \

+	-I$(top_builddir)/include/X11 \

+	-I$(top_srcdir)/src/xcms \

+	-I$(top_srcdir)/src/xkb \

+	-I$(top_srcdir)/src/xlibi18n \

+	-D_BSD_SOURCE -DX11_t -DTRANS_CLIENT

+

+AM_CFLAGS= \

+	$(X11_CFLAGS) \

+	$(BIGFONT_CFLAGS) \

+	$(XMALLOC_ZERO_CFLAGS) \

+	$(CWARNFLAGS)

+

+#

+# =============================== I18N =============================

+#

+

+I18N_LIBS = \

+	xlibi18n/libi18n.la

+

+#

+# =============================== XCMS =============================

+#

+

+XCMS_LIBS = \

+	xcms/libxcms.la

+

+#

+# =============================== XKB ==============================

+#

+

+XKB_LIBS = \

+	xkb/libxkb.la

+

+#

+# =============================== XLIB =============================

+#

+

+libX11_la_SOURCES = \

+                  AllCells.c \

+                  AllowEv.c \

+                  AllPlanes.c \

+                  AutoRep.c \

+                  Backgnd.c \

+                  BdrWidth.c \

+                  Bell.c \

+                  Border.c \

+                  ChAccCon.c \

+                  ChActPGb.c \

+                  ChClMode.c \

+                  ChCmap.c \

+                  ChGC.c \

+                  ChKeyCon.c \

+                  ChkIfEv.c \

+                  ChkMaskEv.c \

+                  ChkTypEv.c \

+                  ChkTypWEv.c \

+                  ChkWinEv.c \

+                  ChPntCon.c \

+                  ChProp.c \

+                  ChSaveSet.c \

+                  ChWAttrs.c \

+                  ChWindow.c \

+                  CirWin.c \

+                  CirWinDn.c \

+                  CirWinUp.c \

+                  ClDisplay.c \

+                  ClearArea.c \

+                  Clear.c \

+		  Cmap.h \

+                  ConfWind.c \

+                  Context.c \

+                  ConvSel.c \

+                  CopyArea.c \

+                  CopyCmap.c \

+                  CopyGC.c \

+                  CopyPlane.c \

+                  CrBFData.c \

+                  CrCmap.c \

+                  CrCursor.c \

+                  CrGC.c \

+                  CrGlCur.c \

+                  Cr.h \

+                  CrPFBData.c \

+                  CrPixmap.c \

+                  CrWindow.c \

+                  Cursor.c \

+                  DefCursor.c \

+                  DelProp.c \

+                  Depths.c \

+                  DestSubs.c \

+                  DestWind.c \

+                  DisName.c \

+                  DrArc.c \

+                  DrArcs.c \

+                  DrLine.c \

+                  DrLines.c \

+                  DrPoint.c \

+                  DrPoints.c \

+                  DrRect.c \

+                  DrRects.c \

+                  DrSegs.c \

+                  ErrDes.c \

+                  ErrHndlr.c \

+                  evtomask.c \

+                  EvToWire.c \

+                  FetchName.c \

+                  FillArc.c \

+                  FillArcs.c \

+                  FillPoly.c \

+                  FillRct.c \

+                  FillRcts.c \

+                  FilterEv.c \

+                  Flush.c \

+                  Font.c \

+                  FontInfo.c \

+                  FontNames.c \

+                  FreeCmap.c \

+                  FreeCols.c \

+                  FreeCurs.c \

+                  FreeEData.c \

+                  FreeEventData.c \

+                  FreeGC.c \

+                  FreePix.c \

+                  FSSaver.c \

+                  FSWrap.c \

+                  GCMisc.c \

+                  Geom.c \

+                  GetAtomNm.c \

+                  GetColor.c \

+                  GetDflt.c \

+                  GetEventData.c \

+                  GetFPath.c \

+                  GetFProp.c \

+                  GetGCVals.c \

+                  GetGeom.c \

+                  GetHColor.c \

+                  GetHints.c \

+                  GetIFocus.c \

+                  GetImage.c \

+                  GetKCnt.c \

+                  GetMoEv.c \

+                  GetNrmHint.c \

+                  GetPCnt.c \

+                  GetPntMap.c \

+                  GetProp.c \

+                  GetRGBCMap.c \

+                  GetSOwner.c \

+                  GetSSaver.c \

+                  GetStCmap.c \

+                  GetTxtProp.c \

+                  GetWAttrs.c \

+                  GetWMCMapW.c \

+                  GetWMProto.c \

+                  globals.c \

+                  GrButton.c \

+                  GrKeybd.c \

+                  GrKey.c \

+                  GrPointer.c \

+                  GrServer.c \

+                  Host.c \

+                  Iconify.c \

+                  IfEvent.c \

+		  imConv.c \

+                  ImText16.c \

+                  ImText.c \

+                  ImUtil.c \

+                  InitExt.c \

+                  InsCmap.c \

+                  IntAtom.c \

+                  KeyBind.c \

+                  Key.h \

+                  KeysymStr.c \

+                  KillCl.c \

+                  LiHosts.c \

+                  LiICmaps.c \

+                  LiProps.c \

+                  ListExt.c \

+                  LoadFont.c \

+                  LockDis.c \

+                  locking.c \

+                  locking.h \

+                  LookupCol.c \

+                  LowerWin.c \

+                  Macros.c \

+                  MapRaised.c \

+                  MapSubs.c \

+                  MapWindow.c \

+                  MaskEvent.c \

+                  Misc.c \

+                  ModMap.c \

+                  MoveWin.c \

+                  NextEvent.c \

+                  OCWrap.c \

+                  OMWrap.c \

+                  OpenDis.c \

+                  ParseCmd.c \

+                  ParseCol.c \

+                  ParseGeom.c \

+                  PeekEvent.c \

+                  PeekIfEv.c \

+                  Pending.c \

+                  PixFormats.c \

+                  PmapBgnd.c \

+                  PmapBord.c \

+                  poly.h \

+                  PolyReg.c \

+                  PolyTxt16.c \

+                  PolyTxt.c \

+                  PropAlloc.c \

+                  PutBEvent.c \

+                  PutImage.c \

+                  Quarks.c \

+                  QuBest.c \

+                  QuColor.c \

+                  QuColors.c \

+                  QuCurShp.c \

+                  QuExt.c \

+                  QuKeybd.c \

+                  QuPntr.c \

+                  QuStipShp.c \

+                  QuTextE16.c \

+                  QuTextExt.c \

+                  QuTileShp.c \

+                  QuTree.c \

+                  RaiseWin.c \

+                  RdBitF.c \

+                  RecolorC.c \

+                  ReconfWin.c \

+                  ReconfWM.c \

+                  Region.c \

+                  RegstFlt.c \

+                  RepWindow.c \

+                  RestackWs.c \

+                  RotProp.c \

+                  ScrResStr.c \

+                  SelInput.c \

+                  SendEvent.c \

+                  SetBack.c \

+                  SetClMask.c \

+                  SetClOrig.c \

+                  SetCRects.c \

+                  SetDashes.c \

+                  SetFont.c \

+                  SetFore.c \

+                  SetFPath.c \

+                  SetFunc.c \

+                  SetHints.c \

+                  SetIFocus.c \

+                  SetLocale.c \

+                  SetLStyle.c \

+                  SetNrmHint.c \

+                  SetPMask.c \

+                  SetPntMap.c \

+                  SetRGBCMap.c \

+                  SetSOwner.c \

+                  SetSSaver.c \

+                  SetState.c \

+                  SetStCmap.c \

+                  SetStip.c \

+                  SetTile.c \

+                  SetTSOrig.c \

+                  SetTxtProp.c \

+                  SetWMCMapW.c \

+                  SetWMProto.c \

+                  StBytes.c \

+                  StColor.c \

+                  StColors.c \

+                  StName.c \

+                  StNColor.c \

+                  StrKeysym.c \

+                  StrToText.c \

+                  Sync.c \

+                  Synchro.c \

+                  Text16.c \

+                  Text.c \

+                  TextExt16.c \

+                  TextExt.c \

+                  TextToStr.c \

+                  TrCoords.c \

+                  UndefCurs.c \

+                  UngrabBut.c \

+                  UngrabKbd.c \

+                  UngrabKey.c \

+                  UngrabPtr.c \

+                  UngrabSvr.c \

+                  UninsCmap.c \

+                  UnldFont.c \

+                  UnmapSubs.c \

+                  UnmapWin.c \

+                  utlist.h \

+                  VisUtil.c \

+                  WarpPtr.c \

+                  Window.c \

+                  WinEvent.c \

+                  Withdraw.c \

+                  WMGeom.c \

+                  WMProps.c \

+                  WrBitF.c \

+                  Xatomtype.h \

+                  xcb_disp.c \

+                  xcb_io.c \

+                  Xintatom.h \

+                  Xintconn.h \

+                  XlibAsync.c \

+                  XlibInt.c \

+                  Xprivate.h \

+                  XomGeneric.h \

+                  Xresinternal.h \

+                  Xrm.c \

+                  Xxcbint.h

+

+#

+# ========================= Extra stuff ============================

+#

+

+if OS2

+libX11_la_SOURCES+=os2Stubs.c

+endif OS2

+

+if UDC

+libX11_la_SOURCES+=udcInf.c

+endif

+

+if THRSTUBS

+libX11_la_SOURCES+=UIThrStubs.c

+endif

+

+x11datadir = @X11_DATADIR@

+x11data_DATA = XErrorDB

+

+EXTRA_DIST = \

+	$(x11data_DATA) \

+	os2Stubs.c \

+	udcInf.c \

+	UIThrStubs.c 

+

+libX11_xcb_la_SOURCES = x11_xcb.c Xxcbint.h

+libX11_xcb_la_LDFLAGS = -version-number 1:0:0 -no-undefined

+libX11_xcb_la_LIBADD = libX11.la

+

+#

+# Figure out which sub-libraries to link into Xlib

+#

+

+if XLOCALE

+USE_I18N_LIBS = $(I18N_LIBS)

+endif

+

+if XCMS

+USE_XCMS_LIBS = $(XCMS_LIBS)

+endif

+

+if XKB

+USE_XKB_LIBS = $(XKB_LIBS)

+endif

+

+libX11_la_LDFLAGS = -version-number 6:3:0 -no-undefined

+

+libX11_la_LIBADD = \

+	$(USE_I18N_LIBS) \

+	$(USE_XCMS_LIBS) \

+	$(USE_XKB_LIBS) \

+	$(X11_LIBS)

+

+preprocess: $(patsubst %.c,%.ii,$(libX11_la_SOURCES))

+.c.ii:

+	$(COMPILE) -E -o $@ `test -f '$<' || echo '$(srcdir)/'`$<

+

+if LINT

+# Check source code with tools like lint & sparse

+

+ALL_LINT_FLAGS=$(LINT_FLAGS) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \

+		$(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS)

+

+lint:	$(BUILT_SOURCES)

+	for f in $(libX11_la_SOURCES) ; do \

+		$(LINT) $(ALL_LINT_FLAGS) $$f ; \

+	done

+	@for subdir in $(SUBDIRS) ; do \

+		echo "Making $@ in src/$$subdir"; \

+		(cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) lint) ; \

+	done

+endif LINT

+

+if MAKE_LINT_LIB

+lintlibdir = $(libdir)

+

+lintlib_DATA = $(LINTLIB)

+

+lintlib_src = $(libX11_la_SOURCES) xcms/*.c xkb/*.c

+

+CLEANFILES += $(lintlib_DATA)

+

+$(LINTLIB): $(libX11_la_SOURCES)

+	$(AM_V_GEN)$(LINT) -y -oX11 -x $(ALL_LINT_FLAGS) $(lintlib_src)

+endif MAKE_LINT_LIB

+

+#

+# Building ks_tables.h requires the makekeys utility

+#

+

+KEYSYMDEFS=@KEYSYMDEFS@

+

+ks_tables.h: $(KEYSYMDEFS) $(top_builddir)/src/util/makekeys$(EXEEXT)

+	$(top_builddir)/src/util/makekeys $(KEYSYMDEFS) > ks_tables_h

+	mv ks_tables_h $@

+

+$(top_builddir)/src/util/makekeys$(EXEEXT): force

+	cd util && $(MAKE)

+

+force:

diff --git a/libX11/src/OpenDis.c b/libX11/src/OpenDis.c
index 0b779b0ad..e5336a847 100644
--- a/libX11/src/OpenDis.c
+++ b/libX11/src/OpenDis.c
@@ -32,6 +32,7 @@ in this Software without prior written authorization from The Open Group.
 #include <X11/Xatom.h>

 #include <X11/Xresource.h>

 #include <stdio.h>

+#include <unistd.h>

 #include "Xintconn.h"

 

 #ifdef XKB

diff --git a/libX11/src/Quarks.c b/libX11/src/Quarks.c
index 7a704b101..aa64392f6 100644
--- a/libX11/src/Quarks.c
+++ b/libX11/src/Quarks.c
@@ -1,413 +1,413 @@
-
-/***********************************************************
-Copyright 1987, 1988, 1990 by Digital Equipment Corporation, Maynard,
-
-                        All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the name Digital not be
-used in advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.
-
-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
-SOFTWARE.
-
-******************************************************************/
-/*
-
-Copyright 1987, 1988, 1990, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include <X11/Xresource.h>
-#include "Xresinternal.h"
-
-/* Not cost effective, at least for vanilla MIT clients */
-/* #define PERMQ */
-
-#ifdef PERMQ
-typedef unsigned char Bits;
-#endif
-typedef unsigned long Entry; /* dont confuse with EntryRec from Xintatom.h */
-
-static XrmQuark nextQuark = 1;	/* next available quark number */
-static unsigned long quarkMask = 0;
-static Entry zero = 0;
-static Entry *quarkTable = &zero; /* crock */
-static unsigned long quarkRehash;
-static XrmString **stringTable = NULL;
-#ifdef PERMQ
-static Bits **permTable = NULL;
-#endif
-static XrmQuark nextUniq = -1;	/* next quark from XrmUniqueQuark */
-
-#define QUANTUMSHIFT	8
-#define QUANTUMMASK	((1 << QUANTUMSHIFT) - 1)
-#define CHUNKPER	8
-#define CHUNKMASK	((CHUNKPER << QUANTUMSHIFT) - 1)
-
-#define LARGEQUARK	((Entry)0x80000000L)
-#define QUARKSHIFT	18
-#define QUARKMASK	((LARGEQUARK - 1) >> QUARKSHIFT)
-#define XSIGMASK	((1L << QUARKSHIFT) - 1)
-
-#define STRQUANTSIZE	(sizeof(XrmString) * (QUANTUMMASK + 1))
-#ifdef PERMQ
-#define QUANTSIZE	(STRQUANTSIZE + \
-			 (sizeof(Bits) * ((QUANTUMMASK + 1) >> 3))
-#else
-#define QUANTSIZE	STRQUANTSIZE
-#endif
-
-#define HASH(sig) ((sig) & quarkMask)
-#define REHASHVAL(sig) ((((sig) % quarkRehash) + 2) | 1)
-#define REHASH(idx,rehash) ((idx + rehash) & quarkMask)
-#define NAME(q) stringTable[(q) >> QUANTUMSHIFT][(q) & QUANTUMMASK]
-#ifdef PERMQ
-#define BYTEREF(q) permTable[(q) >> QUANTUMSHIFT][((q) & QUANTUMMASK) >> 3]
-#define ISPERM(q) (BYTEREF(q) & (1 << ((q) & 7)))
-#define SETPERM(q) BYTEREF(q) |= (1 << ((q) & 7))
-#define CLEARPERM(q) BYTEREF(q) &= ~(1 << ((q) & 7))
-#endif
-
-/* Permanent memory allocation */
-
-#define WALIGN sizeof(unsigned long)
-#define DALIGN sizeof(double)
-
-#define NEVERFREETABLESIZE ((8192-12) & ~(DALIGN-1))
-static char *neverFreeTable = NULL;
-static int  neverFreeTableSize = 0;
-
-static char *permalloc(unsigned int length)
-{
-    char *ret;
-
-    if (neverFreeTableSize < length) {
-	if (length >= NEVERFREETABLESIZE)
-	    return Xmalloc(length);
-	if (! (ret = Xmalloc(NEVERFREETABLESIZE)))
-	    return (char *) NULL;
-	neverFreeTableSize = NEVERFREETABLESIZE;
-	neverFreeTable = ret;
-    }
-    ret = neverFreeTable;
-    neverFreeTable += length;
-    neverFreeTableSize -= length;
-    return(ret);
-}
-
-#ifndef WORD64
-typedef struct {char a; double b;} TestType1;
-typedef struct {char a; unsigned long b;} TestType2;
-#endif
-
-#ifdef XTHREADS
-static char *_Xpermalloc(unsigned int length);
-
-char *Xpermalloc(unsigned int length)
-{
-    char *p;
-
-    _XLockMutex(_Xglobal_lock);
-    p = _Xpermalloc(length);
-    _XUnlockMutex(_Xglobal_lock);
-    return p;
-}
-#define Xpermalloc _Xpermalloc
-
-static
-#endif /* XTHREADS */
-char *Xpermalloc(unsigned int length)
-{
-    int i;
-
-    if (neverFreeTableSize && length < NEVERFREETABLESIZE) {
-#ifndef WORD64
-	if ((sizeof(TestType1) !=
-	     (sizeof(TestType2) - sizeof(unsigned long) + sizeof(double))) &&
-	    !(length & (DALIGN-1)) &&
-	    ((i = (NEVERFREETABLESIZE - neverFreeTableSize) & (DALIGN-1)))) {
-	    neverFreeTableSize -= DALIGN - i;
-	    neverFreeTable += DALIGN - i;
-	} else
-#endif
-	    if ((i = (NEVERFREETABLESIZE - neverFreeTableSize) & (WALIGN-1))) {
-		neverFreeTableSize -= WALIGN - i;
-		neverFreeTable += WALIGN - i;
-	    }
-    }
-    return permalloc(length);
-}
-
-static Bool
-ExpandQuarkTable(void)
-{
-    unsigned long oldmask, newmask;
-    register char c, *s;
-    register Entry *oldentries, *entries;
-    register Entry entry;
-    register int oldidx, newidx, rehash;
-    Signature sig;
-    XrmQuark q;
-
-    oldentries = quarkTable;
-    if ((oldmask = quarkMask))
-	newmask = (oldmask << 1) + 1;
-    else {
-	if (!stringTable) {
-	    stringTable = (XrmString **)Xmalloc(sizeof(XrmString *) *
-						CHUNKPER);
-	    if (!stringTable)
-		return False;
-	    stringTable[0] = (XrmString *)NULL;
-	}
-#ifdef PERMQ
-	if (!permTable)
-	    permTable = (Bits **)Xmalloc(sizeof(Bits *) * CHUNKPER);
-	if (!permTable)
-	    return False;
-#endif
-	stringTable[0] = (XrmString *)Xpermalloc(QUANTSIZE);
-	if (!stringTable[0])
-	    return False;
-#ifdef PERMQ
-	permTable[0] = (Bits *)((char *)stringTable[0] + STRQUANTSIZE);
-#endif
-	newmask = 0x1ff;
-    }
-    entries = Xcalloc(newmask + 1, sizeof(Entry));
-    if (!entries)
-	return False;
-    quarkTable = entries;
-    quarkMask = newmask;
-    quarkRehash = quarkMask - 2;
-    for (oldidx = 0; oldidx <= oldmask; oldidx++) {
-	if ((entry = oldentries[oldidx])) {
-	    if (entry & LARGEQUARK)
-		q = entry & (LARGEQUARK-1);
-	    else
-		q = (entry >> QUARKSHIFT) & QUARKMASK;
-	    for (sig = 0, s = NAME(q); (c = *s++); )
-		sig = (sig << 1) + c;
-	    newidx = HASH(sig);
-	    if (entries[newidx]) {
-		rehash = REHASHVAL(sig);
-		do {
-		    newidx = REHASH(newidx, rehash);
-		} while (entries[newidx]);
-	    }
-	    entries[newidx] = entry;
-	}
-    }
-    if (oldmask)
-	Xfree((char *)oldentries);
-    return True;
-}
-
-XrmQuark
-_XrmInternalStringToQuark(
-    register _Xconst char *name, register int len, register Signature sig,
-    Bool permstring)
-{
-    register XrmQuark q;
-    register Entry entry;
-    register int idx, rehash;
-    register int i;
-    register char *s1, *s2;
-    char *new;
-
-    rehash = 0;
-    idx = HASH(sig);
-    _XLockMutex(_Xglobal_lock);
-    while ((entry = quarkTable[idx])) {
-	if (entry & LARGEQUARK)
-	    q = entry & (LARGEQUARK-1);
-	else {
-	    if ((entry - sig) & XSIGMASK)
-		goto nomatch;
-	    q = (entry >> QUARKSHIFT) & QUARKMASK;
-	}
-	for (i = len, s1 = (char *)name, s2 = NAME(q); --i >= 0; ) {
-	    if (*s1++ != *s2++)
-		goto nomatch;
-	}
-	if (*s2) {
-nomatch:    if (!rehash)
-		rehash = REHASHVAL(sig);
-	    idx = REHASH(idx, rehash);
-	    continue;
-	}
-#ifdef PERMQ
-	if (permstring && !ISPERM(q)) {
-	    Xfree(NAME(q));
-	    NAME(q) = (char *)name;
-	    SETPERM(q);
-	}
-#endif
-	_XUnlockMutex(_Xglobal_lock);
-	return q;
-    }
-    if (nextUniq == nextQuark)
-	goto fail;
-    if ((nextQuark + (nextQuark >> 2)) > quarkMask) {
-	if (!ExpandQuarkTable())
-	    goto fail;
-	_XUnlockMutex(_Xglobal_lock);
-	return _XrmInternalStringToQuark(name, len, sig, permstring);
-    }
-    q = nextQuark;
-    if (!(q & QUANTUMMASK)) {
-	if (!(q & CHUNKMASK)) {
-	    if (!(new = Xrealloc((char *)stringTable,
-				 sizeof(XrmString *) *
-				 ((q >> QUANTUMSHIFT) + CHUNKPER))))
-		goto fail;
-	    stringTable = (XrmString **)new;
-#ifdef PERMQ
-	    if (!(new = Xrealloc((char *)permTable,
-				 sizeof(Bits *) *
-				 ((q >> QUANTUMSHIFT) + CHUNKPER))))
-		goto fail;
-	    permTable = (Bits **)new;
-#endif
-	}
-	new = Xpermalloc(QUANTSIZE);
-	if (!new)
-	    goto fail;
-	stringTable[q >> QUANTUMSHIFT] = (XrmString *)new;
-#ifdef PERMQ
-	permTable[q >> QUANTUMSHIFT] = (Bits *)(new + STRQUANTSIZE);
-#endif
-    }
-    if (!permstring) {
-	s2 = (char *)name;
-#ifdef PERMQ
-	name = Xmalloc(len+1);
-#else
-	name = permalloc(len+1);
-#endif
-	if (!name)
-	    goto fail;
-	for (i = len, s1 = (char *)name; --i >= 0; )
-	    *s1++ = *s2++;
-	*s1++ = '\0';
-#ifdef PERMQ
-	CLEARPERM(q);
-    }
-    else {
-	SETPERM(q);
-#endif
-    }
-    NAME(q) = (char *)name;
-    if (q <= QUARKMASK)
-	entry = (q << QUARKSHIFT) | (sig & XSIGMASK);
-    else
-	entry = q | LARGEQUARK;
-    quarkTable[idx] = entry;
-    nextQuark++;
-    _XUnlockMutex(_Xglobal_lock);
-    return q;
- fail:
-    _XUnlockMutex(_Xglobal_lock);
-    return NULLQUARK;
-}
-
-XrmQuark
-XrmStringToQuark(
-    _Xconst char *name)
-{
-    register char c, *tname;
-    register Signature sig = 0;
-
-    if (!name)
-	return (NULLQUARK);
-
-    for (tname = (char *)name; (c = *tname++); )
-	sig = (sig << 1) + c;
-
-    return _XrmInternalStringToQuark(name, tname-(char *)name-1, sig, False);
-}
-
-XrmQuark
-XrmPermStringToQuark(
-    _Xconst char *name)
-{
-    register char c, *tname;
-    register Signature sig = 0;
-
-    if (!name)
-	return (NULLQUARK);
-
-    for (tname = (char *)name; (c = *tname++); )
-	sig = (sig << 1) + c;
-
-    return _XrmInternalStringToQuark(name, tname-(char *)name-1, sig, True);
-}
-
-XrmQuark XrmUniqueQuark(void)
-{
-    XrmQuark q;
-
-    _XLockMutex(_Xglobal_lock);
-    if (nextUniq == nextQuark)
-	q = NULLQUARK;
-    else
-	q = nextUniq--;
-    _XUnlockMutex(_Xglobal_lock);
-    return q;
-}
-
-XrmString XrmQuarkToString(register XrmQuark quark)
-{
-    XrmString s;
-
-    _XLockMutex(_Xglobal_lock);
-    if (quark <= 0 || quark >= nextQuark)
-    	s = NULLSTRING;
-    else {
-#ifdef PERMQ
-	/* We have to mark the quark as permanent, since the caller might hold
-	 * onto the string pointer forver.
-	 */
-	SETPERM(quark);
-#endif
-	s = NAME(quark);
-    }
-    _XUnlockMutex(_Xglobal_lock);
-    return s;
-}
+

+/***********************************************************

+Copyright 1987, 1988, 1990 by Digital Equipment Corporation, Maynard,

+

+                        All Rights Reserved

+

+Permission to use, copy, modify, and distribute this software and its

+documentation for any purpose and without fee is hereby granted,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the name Digital not be

+used in advertising or publicity pertaining to distribution of the

+software without specific, written prior permission.

+

+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+SOFTWARE.

+

+******************************************************************/

+/*

+

+Copyright 1987, 1988, 1990, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include <X11/Xresource.h>

+#include "Xresinternal.h"

+

+/* Not cost effective, at least for vanilla MIT clients */

+/* #define PERMQ */

+

+#ifdef PERMQ

+typedef unsigned char Bits;

+#endif

+typedef unsigned long Entry; /* dont confuse with EntryRec from Xintatom.h */

+

+static XrmQuark nextQuark = 1;	/* next available quark number */

+static unsigned long quarkMask = 0;

+static Entry zero = 0;

+static Entry *quarkTable = &zero; /* crock */

+static unsigned long quarkRehash;

+static XrmString **stringTable = NULL;

+#ifdef PERMQ

+static Bits **permTable = NULL;

+#endif

+static XrmQuark nextUniq = -1;	/* next quark from XrmUniqueQuark */

+

+#define QUANTUMSHIFT	8

+#define QUANTUMMASK	((1 << QUANTUMSHIFT) - 1)

+#define CHUNKPER	8

+#define CHUNKMASK	((CHUNKPER << QUANTUMSHIFT) - 1)

+

+#define LARGEQUARK	((Entry)0x80000000L)

+#define QUARKSHIFT	18

+#define QUARKMASK	((LARGEQUARK - 1) >> QUARKSHIFT)

+#define XSIGMASK	((1L << QUARKSHIFT) - 1)

+

+#define STRQUANTSIZE	(sizeof(XrmString) * (QUANTUMMASK + 1))

+#ifdef PERMQ

+#define QUANTSIZE	(STRQUANTSIZE + \

+			 (sizeof(Bits) * ((QUANTUMMASK + 1) >> 3))

+#else

+#define QUANTSIZE	STRQUANTSIZE

+#endif

+

+#define HASH(sig) ((sig) & quarkMask)

+#define REHASHVAL(sig) ((((sig) % quarkRehash) + 2) | 1)

+#define REHASH(idx,rehash) ((idx + rehash) & quarkMask)

+#define NAME(q) stringTable[(q) >> QUANTUMSHIFT][(q) & QUANTUMMASK]

+#ifdef PERMQ

+#define BYTEREF(q) permTable[(q) >> QUANTUMSHIFT][((q) & QUANTUMMASK) >> 3]

+#define ISPERM(q) (BYTEREF(q) & (1 << ((q) & 7)))

+#define SETPERM(q) BYTEREF(q) |= (1 << ((q) & 7))

+#define CLEARPERM(q) BYTEREF(q) &= ~(1 << ((q) & 7))

+#endif

+

+/* Permanent memory allocation */

+

+#define WALIGN sizeof(unsigned long)

+#define DALIGN sizeof(double)

+

+#define NEVERFREETABLESIZE ((8192-12) & ~(DALIGN-1))

+static char *neverFreeTable = NULL;

+static int  neverFreeTableSize = 0;

+

+static char *permalloc(unsigned int length)

+{

+    char *ret;

+

+    if (neverFreeTableSize < length) {

+	if (length >= NEVERFREETABLESIZE)

+	    return Xmalloc(length);

+	if (! (ret = Xmalloc(NEVERFREETABLESIZE)))

+	    return (char *) NULL;

+	neverFreeTableSize = NEVERFREETABLESIZE;

+	neverFreeTable = ret;

+    }

+    ret = neverFreeTable;

+    neverFreeTable += length;

+    neverFreeTableSize -= length;

+    return(ret);

+}

+

+#ifndef WORD64

+typedef struct {char a; double b;} TestType1;

+typedef struct {char a; unsigned long b;} TestType2;

+#endif

+

+#ifdef XTHREADS

+static char *_Xpermalloc(unsigned int length);

+

+char *Xpermalloc(unsigned int length)

+{

+    char *p;

+

+    _XLockMutex(_Xglobal_lock);

+    p = _Xpermalloc(length);

+    _XUnlockMutex(_Xglobal_lock);

+    return p;

+}

+#define Xpermalloc _Xpermalloc

+

+static

+#endif /* XTHREADS */

+char *Xpermalloc(unsigned int length)

+{

+    int i;

+

+    if (neverFreeTableSize && length < NEVERFREETABLESIZE) {

+#ifndef WORD64

+	if ((sizeof(TestType1) !=

+	     (sizeof(TestType2) - sizeof(unsigned long) + sizeof(double))) &&

+	    !(length & (DALIGN-1)) &&

+	    ((i = (NEVERFREETABLESIZE - neverFreeTableSize) & (DALIGN-1)))) {

+	    neverFreeTableSize -= DALIGN - i;

+	    neverFreeTable += DALIGN - i;

+	} else

+#endif

+	    if ((i = (NEVERFREETABLESIZE - neverFreeTableSize) & (WALIGN-1))) {

+		neverFreeTableSize -= WALIGN - i;

+		neverFreeTable += WALIGN - i;

+	    }

+    }

+    return permalloc(length);

+}

+

+static Bool

+ExpandQuarkTable(void)

+{

+    unsigned long oldmask, newmask;

+    register char c, *s;

+    register Entry *oldentries, *entries;

+    register Entry entry;

+    register int oldidx, newidx, rehash;

+    Signature sig;

+    XrmQuark q;

+

+    oldentries = quarkTable;

+    if ((oldmask = quarkMask))

+	newmask = (oldmask << 1) + 1;

+    else {

+	if (!stringTable) {

+	    stringTable = (XrmString **)Xmalloc(sizeof(XrmString *) *

+						CHUNKPER);

+	    if (!stringTable)

+		return False;

+	    stringTable[0] = (XrmString *)NULL;

+	}

+#ifdef PERMQ

+	if (!permTable)

+	    permTable = (Bits **)Xmalloc(sizeof(Bits *) * CHUNKPER);

+	if (!permTable)

+	    return False;

+#endif

+	stringTable[0] = (XrmString *)Xpermalloc(QUANTSIZE);

+	if (!stringTable[0])

+	    return False;

+#ifdef PERMQ

+	permTable[0] = (Bits *)((char *)stringTable[0] + STRQUANTSIZE);

+#endif

+	newmask = 0x1ff;

+    }

+    entries = Xcalloc(newmask + 1, sizeof(Entry));

+    if (!entries)

+	return False;

+    quarkTable = entries;

+    quarkMask = newmask;

+    quarkRehash = quarkMask - 2;

+    for (oldidx = 0; oldidx <= oldmask; oldidx++) {

+	if ((entry = oldentries[oldidx])) {

+	    if (entry & LARGEQUARK)

+		q = entry & (LARGEQUARK-1);

+	    else

+		q = (entry >> QUARKSHIFT) & QUARKMASK;

+	    for (sig = 0, s = NAME(q); (c = *s++); )

+		sig = (sig << 1) + c;

+	    newidx = HASH(sig);

+	    if (entries[newidx]) {

+		rehash = REHASHVAL(sig);

+		do {

+		    newidx = REHASH(newidx, rehash);

+		} while (entries[newidx]);

+	    }

+	    entries[newidx] = entry;

+	}

+    }

+    if (oldmask)

+	Xfree((char *)oldentries);

+    return True;

+}

+

+XrmQuark

+_XrmInternalStringToQuark(

+    register _Xconst char *name, register int len, register Signature sig,

+    Bool permstring)

+{

+    register XrmQuark q;

+    register Entry entry;

+    register int idx, rehash;

+    register int i;

+    register char *s1, *s2;

+    char *new;

+

+    rehash = 0;

+    idx = HASH(sig);

+    _XLockMutex(_Xglobal_lock);

+    while ((entry = quarkTable[idx])) {

+	if (entry & LARGEQUARK)

+	    q = entry & (LARGEQUARK-1);

+	else {

+	    if ((entry - sig) & XSIGMASK)

+		goto nomatch;

+	    q = (entry >> QUARKSHIFT) & QUARKMASK;

+	}

+	for (i = len, s1 = (char *)name, s2 = NAME(q); --i >= 0; ) {

+	    if (*s1++ != *s2++)

+		goto nomatch;

+	}

+	if (*s2) {

+nomatch:    if (!rehash)

+		rehash = REHASHVAL(sig);

+	    idx = REHASH(idx, rehash);

+	    continue;

+	}

+#ifdef PERMQ

+	if (permstring && !ISPERM(q)) {

+	    Xfree(NAME(q));

+	    NAME(q) = (char *)name;

+	    SETPERM(q);

+	}

+#endif

+	_XUnlockMutex(_Xglobal_lock);

+	return q;

+    }

+    if (nextUniq == nextQuark)

+	goto fail;

+    if ((nextQuark + (nextQuark >> 2)) > quarkMask) {

+	if (!ExpandQuarkTable())

+	    goto fail;

+	_XUnlockMutex(_Xglobal_lock);

+	return _XrmInternalStringToQuark(name, len, sig, permstring);

+    }

+    q = nextQuark;

+    if (!(q & QUANTUMMASK)) {

+	if (!(q & CHUNKMASK)) {

+	    if (!(new = Xrealloc((char *)stringTable,

+				 sizeof(XrmString *) *

+				 ((q >> QUANTUMSHIFT) + CHUNKPER))))

+		goto fail;

+	    stringTable = (XrmString **)new;

+#ifdef PERMQ

+	    if (!(new = Xrealloc((char *)permTable,

+				 sizeof(Bits *) *

+				 ((q >> QUANTUMSHIFT) + CHUNKPER))))

+		goto fail;

+	    permTable = (Bits **)new;

+#endif

+	}

+	new = Xpermalloc(QUANTSIZE);

+	if (!new)

+	    goto fail;

+	stringTable[q >> QUANTUMSHIFT] = (XrmString *)new;

+#ifdef PERMQ

+	permTable[q >> QUANTUMSHIFT] = (Bits *)(new + STRQUANTSIZE);

+#endif

+    }

+    if (!permstring) {

+	s2 = (char *)name;

+#ifdef PERMQ

+	name = Xmalloc(len+1);

+#else

+	name = permalloc(len+1);

+#endif

+	if (!name)

+	    goto fail;

+	for (i = len, s1 = (char *)name; --i >= 0; )

+	    *s1++ = *s2++;

+	*s1++ = '\0';

+#ifdef PERMQ

+	CLEARPERM(q);

+    }

+    else {

+	SETPERM(q);

+#endif

+    }

+    NAME(q) = (char *)name;

+    if (q <= QUARKMASK)

+	entry = (q << QUARKSHIFT) | (sig & XSIGMASK);

+    else

+	entry = q | LARGEQUARK;

+    quarkTable[idx] = entry;

+    nextQuark++;

+    _XUnlockMutex(_Xglobal_lock);

+    return q;

+ fail:

+    _XUnlockMutex(_Xglobal_lock);

+    return NULLQUARK;

+}

+

+XrmQuark

+XrmStringToQuark(

+    _Xconst char *name)

+{

+    register char c, *tname;

+    register Signature sig = 0;

+

+    if (!name)

+	return (NULLQUARK);

+

+    for (tname = (char *)name; (c = *tname++); )

+	sig = (sig << 1) + c;

+

+    return _XrmInternalStringToQuark(name, tname-(char *)name-1, sig, False);

+}

+

+XrmQuark

+XrmPermStringToQuark(

+    _Xconst char *name)

+{

+    register char c, *tname;

+    register Signature sig = 0;

+

+    if (!name)

+	return (NULLQUARK);

+

+    for (tname = (char *)name; (c = *tname++); )

+	sig = (sig << 1) + c;

+

+    return _XrmInternalStringToQuark(name, tname-(char *)name-1, sig, True);

+}

+

+XrmQuark XrmUniqueQuark(void)

+{

+    XrmQuark q;

+

+    _XLockMutex(_Xglobal_lock);

+    if (nextUniq == nextQuark)

+	q = NULLQUARK;

+    else

+	q = nextUniq--;

+    _XUnlockMutex(_Xglobal_lock);

+    return q;

+}

+

+XrmString XrmQuarkToString(register XrmQuark quark)

+{

+    XrmString s;

+

+    _XLockMutex(_Xglobal_lock);

+    if (quark <= 0 || quark >= nextQuark)

+    	s = NULLSTRING;

+    else {

+#ifdef PERMQ

+	/* We have to mark the quark as permanent, since the caller might hold

+	 * onto the string pointer forver.

+	 */

+	SETPERM(quark);

+#endif

+	s = NAME(quark);

+    }

+    _XUnlockMutex(_Xglobal_lock);

+    return s;

+}

diff --git a/libX11/src/RdBitF.c b/libX11/src/RdBitF.c
index ab7d800d3..6b920c609 100644
--- a/libX11/src/RdBitF.c
+++ b/libX11/src/RdBitF.c
@@ -1,261 +1,262 @@
-/*
-
-Copyright 1987, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-/*
- *	Code to read bitmaps from disk files. Interprets
- *	data from X10 and X11 bitmap files and creates
- *	Pixmap representations of files. Returns Pixmap
- *	ID and specifics about image.
- *
- *	Modified for speedup by Jim Becker, changed image
- *	data parsing logic (removed some fscanf()s).
- *	Aug 5, 1988
- *
- * Note that this file and ../Xmu/RdBitF.c look very similar....  Keep them
- * that way (but don't use common source code so that people can have one
- * without the other).
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include <X11/Xos.h>
-#include "Xutil.h"
-#include <stdio.h>
-#include <ctype.h>
-
-
-#define MAX_SIZE 255
-
-/* shared data for the image read/parse logic */
-static const short hexTable[256] = {
-    ['0'] = 0,  ['1'] = 1,
-    ['2'] = 2,  ['3'] = 3,
-    ['4'] = 4,  ['5'] = 5,
-    ['6'] = 6,  ['7'] = 7,
-    ['8'] = 8,  ['9'] = 9,
-    ['A'] = 10, ['B'] = 11,
-    ['C'] = 12, ['D'] = 13,
-    ['E'] = 14, ['F'] = 15,
-    ['a'] = 10, ['b'] = 11,
-    ['c'] = 12, ['d'] = 13,
-    ['e'] = 14, ['f'] = 15,
-
-    [' '] = -1, [','] = -1,
-    ['}'] = -1, ['\n'] = -1,
-    ['\t'] = -1
-};
-
-/*
- *	read next hex value in the input stream, return -1 if EOF
- */
-static int
-NextInt (
-    FILE *fstream)
-{
-    int	ch;
-    int	value = 0;
-    int gotone = 0;
-    int done = 0;
-
-    /* loop, accumulate hex value until find delimiter  */
-    /* skip any initial delimiters found in read stream */
-
-    while (!done) {
-	ch = getc(fstream);
-	if (ch == EOF) {
-	    value	= -1;
-	    done++;
-	} else {
-	    /* trim high bits, check type and accumulate */
-	    ch &= 0xff;
-	    if (isascii(ch) && isxdigit(ch)) {
-		value = (value << 4) + hexTable[ch];
-		gotone++;
-	    } else if ((hexTable[ch]) < 0 && gotone)
-	      done++;
-	}
-    }
-    return value;
-}
-
-int
-XReadBitmapFileData (
-    _Xconst char *filename,
-    unsigned int *width,                /* RETURNED */
-    unsigned int *height,               /* RETURNED */
-    unsigned char **data,               /* RETURNED */
-    int *x_hot,                         /* RETURNED */
-    int *y_hot)                         /* RETURNED */
-{
-    FILE *fstream;			/* handle on file  */
-    unsigned char *bits = NULL;		/* working variable */
-    char line[MAX_SIZE];		/* input line from file */
-    int size;				/* number of bytes of data */
-    char name_and_type[MAX_SIZE];	/* an input line */
-    char *type;				/* for parsing */
-    int value;				/* from an input line */
-    int version10p;			/* boolean, old format */
-    int padding;			/* to handle alignment */
-    int bytes_per_line;			/* per scanline of data */
-    unsigned int ww = 0;		/* width */
-    unsigned int hh = 0;		/* height */
-    int hx = -1;			/* x hotspot */
-    int hy = -1;			/* y hotspot */
-
-#ifdef __UNIXOS2__
-    filename = __XOS2RedirRoot(filename);
-#endif
-    if (!(fstream = fopen(filename, "r")))
-	return BitmapOpenFailed;
-
-    /* error cleanup and return macro	*/
-#define	RETURN(code) \
-{ if (bits) Xfree ((char *)bits); fclose (fstream); return code; }
-
-    while (fgets(line, MAX_SIZE, fstream)) {
-	if (strlen(line) == MAX_SIZE-1)
-	    RETURN (BitmapFileInvalid);
-	if (sscanf(line,"#define %s %d",name_and_type,&value) == 2) {
-	    if (!(type = strrchr(name_and_type, '_')))
-	      type = name_and_type;
-	    else
-	      type++;
-
-	    if (!strcmp("width", type))
-	      ww = (unsigned int) value;
-	    if (!strcmp("height", type))
-	      hh = (unsigned int) value;
-	    if (!strcmp("hot", type)) {
-		if (type-- == name_and_type || type-- == name_and_type)
-		  continue;
-		if (!strcmp("x_hot", type))
-		  hx = value;
-		if (!strcmp("y_hot", type))
-		  hy = value;
-	    }
-	    continue;
-	}
-
-	if (sscanf(line, "static short %s = {", name_and_type) == 1)
-	  version10p = 1;
-	else if (sscanf(line,"static unsigned char %s = {",name_and_type) == 1)
-	  version10p = 0;
-	else if (sscanf(line, "static char %s = {", name_and_type) == 1)
-	  version10p = 0;
-	else
-	  continue;
-
-	if (!(type = strrchr(name_and_type, '_')))
-	  type = name_and_type;
-	else
-	  type++;
-
-	if (strcmp("bits[]", type))
-	  continue;
-
-	if (!ww || !hh)
-	  RETURN (BitmapFileInvalid);
-
-	if ((ww % 16) && ((ww % 16) < 9) && version10p)
-	  padding = 1;
-	else
-	  padding = 0;
-
-	bytes_per_line = (ww+7)/8 + padding;
-
-	size = bytes_per_line * hh;
-	bits = (unsigned char *) Xmalloc ((unsigned int) size);
-	if (!bits)
-	  RETURN (BitmapNoMemory);
-
-	if (version10p) {
-	    unsigned char *ptr;
-	    int bytes;
-
-	    for (bytes=0, ptr=bits; bytes<size; (bytes += 2)) {
-		if ((value = NextInt(fstream)) < 0)
-		  RETURN (BitmapFileInvalid);
-		*(ptr++) = value;
-		if (!padding || ((bytes+2) % bytes_per_line))
-		  *(ptr++) = value >> 8;
-	    }
-	} else {
-	    unsigned char *ptr;
-	    int bytes;
-
-	    for (bytes=0, ptr=bits; bytes<size; bytes++, ptr++) {
-		if ((value = NextInt(fstream)) < 0)
-		  RETURN (BitmapFileInvalid);
-		*ptr=value;
-	    }
-	}
-
-	/* If we got to this point, we read a full bitmap file. Break so we don't
-	 * start reading another one from the same file and leak the memory
-	 * allocated for the previous one. */
-	break;
-    }					/* end while */
-
-    fclose(fstream);
-    if (!bits)
-	return (BitmapFileInvalid);
-
-    *data = bits;
-    *width = ww;
-    *height = hh;
-    if (x_hot) *x_hot = hx;
-    if (y_hot) *y_hot = hy;
-
-    return (BitmapSuccess);
-}
-
-int
-XReadBitmapFile (
-    Display *display,
-    Drawable d,
-    _Xconst char *filename,
-    unsigned int *width,                /* RETURNED */
-    unsigned int *height,               /* RETURNED */
-    Pixmap *pixmap,                     /* RETURNED */
-    int *x_hot,                         /* RETURNED */
-    int *y_hot)                         /* RETURNED */
-{
-    unsigned char *data;
-    int res;
-
-    res = XReadBitmapFileData(filename, width, height, &data, x_hot, y_hot);
-    if (res != BitmapSuccess)
-	return res;
-    *pixmap = XCreateBitmapFromData(display, d, (char *)data, *width, *height);
-    Xfree((char *)data);
-    if (*pixmap == None)
-	return (BitmapNoMemory);
-    return (BitmapSuccess);
-}
+/*

+

+Copyright 1987, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+/*

+ *	Code to read bitmaps from disk files. Interprets

+ *	data from X10 and X11 bitmap files and creates

+ *	Pixmap representations of files. Returns Pixmap

+ *	ID and specifics about image.

+ *

+ *	Modified for speedup by Jim Becker, changed image

+ *	data parsing logic (removed some fscanf()s).

+ *	Aug 5, 1988

+ *

+ * Note that this file and ../Xmu/RdBitF.c look very similar....  Keep them

+ * that way (but don't use common source code so that people can have one

+ * without the other).

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include <X11/Xos.h>

+#include "Xutil.h"

+#include <stdio.h>

+#include <ctype.h>

+

+

+#define MAX_SIZE 255

+

+/* shared data for the image read/parse logic */

+static const signed char hexTable[256] = {

+    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

+  ,-1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, -1,  0,  0,  0

+  , 0,  1,  2,  3,  4,  5,  6,  7,  8,  9,  0,  0,  0,  0,  0,  0

+  , 0, 10, 11, 12, 13, 14, 15,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0, 10, 11, 12, 13, 14, 15,  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

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+  , 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0

+};

+

+/*

+ *	read next hex value in the input stream, return -1 if EOF

+ */

+static int

+NextInt (

+    FILE *fstream)

+{

+    int	ch;

+    int	value = 0;

+    int gotone = 0;

+    int done = 0;

+

+    /* loop, accumulate hex value until find delimiter  */

+    /* skip any initial delimiters found in read stream */

+

+    while (!done) {

+	ch = getc(fstream);

+	if (ch == EOF) {

+	    value	= -1;

+	    done++;

+	} else {

+	    /* trim high bits, check type and accumulate */

+	    ch &= 0xff;

+	    if (isascii(ch) && isxdigit(ch)) {

+		value = (value << 4) + hexTable[ch];

+		gotone++;

+	    } else if ((hexTable[ch]) < 0 && gotone)

+	      done++;

+	}

+    }

+    return value;

+}

+

+int

+XReadBitmapFileData (

+    _Xconst char *filename,

+    unsigned int *width,                /* RETURNED */

+    unsigned int *height,               /* RETURNED */

+    unsigned char **data,               /* RETURNED */

+    int *x_hot,                         /* RETURNED */

+    int *y_hot)                         /* RETURNED */

+{

+    FILE *fstream;			/* handle on file  */

+    unsigned char *bits = NULL;		/* working variable */

+    char line[MAX_SIZE];		/* input line from file */

+    int size;				/* number of bytes of data */

+    char name_and_type[MAX_SIZE];	/* an input line */

+    char *type;				/* for parsing */

+    int value;				/* from an input line */

+    int version10p;			/* boolean, old format */

+    int padding;			/* to handle alignment */

+    int bytes_per_line;			/* per scanline of data */

+    unsigned int ww = 0;		/* width */

+    unsigned int hh = 0;		/* height */

+    int hx = -1;			/* x hotspot */

+    int hy = -1;			/* y hotspot */

+

+#ifdef __UNIXOS2__

+    filename = __XOS2RedirRoot(filename);

+#endif

+    if (!(fstream = fopen(filename, "r")))

+	return BitmapOpenFailed;

+

+    /* error cleanup and return macro	*/

+#define	RETURN(code) \

+{ if (bits) Xfree ((char *)bits); fclose (fstream); return code; }

+

+    while (fgets(line, MAX_SIZE, fstream)) {

+	if (strlen(line) == MAX_SIZE-1)

+	    RETURN (BitmapFileInvalid);

+	if (sscanf(line,"#define %s %d",name_and_type,&value) == 2) {

+	    if (!(type = strrchr(name_and_type, '_')))

+	      type = name_and_type;

+	    else

+	      type++;

+

+	    if (!strcmp("width", type))

+	      ww = (unsigned int) value;

+	    if (!strcmp("height", type))

+	      hh = (unsigned int) value;

+	    if (!strcmp("hot", type)) {

+		if (type-- == name_and_type || type-- == name_and_type)

+		  continue;

+		if (!strcmp("x_hot", type))

+		  hx = value;

+		if (!strcmp("y_hot", type))

+		  hy = value;

+	    }

+	    continue;

+	}

+

+	if (sscanf(line, "static short %s = {", name_and_type) == 1)

+	  version10p = 1;

+	else if (sscanf(line,"static unsigned char %s = {",name_and_type) == 1)

+	  version10p = 0;

+	else if (sscanf(line, "static char %s = {", name_and_type) == 1)

+	  version10p = 0;

+	else

+	  continue;

+

+	if (!(type = strrchr(name_and_type, '_')))

+	  type = name_and_type;

+	else

+	  type++;

+

+	if (strcmp("bits[]", type))

+	  continue;

+

+	if (!ww || !hh)

+	  RETURN (BitmapFileInvalid);

+

+	if ((ww % 16) && ((ww % 16) < 9) && version10p)

+	  padding = 1;

+	else

+	  padding = 0;

+

+	bytes_per_line = (ww+7)/8 + padding;

+

+	size = bytes_per_line * hh;

+	bits = (unsigned char *) Xmalloc ((unsigned int) size);

+	if (!bits)

+	  RETURN (BitmapNoMemory);

+

+	if (version10p) {

+	    unsigned char *ptr;

+	    int bytes;

+

+	    for (bytes=0, ptr=bits; bytes<size; (bytes += 2)) {

+		if ((value = NextInt(fstream)) < 0)

+		  RETURN (BitmapFileInvalid);

+		*(ptr++) = value;

+		if (!padding || ((bytes+2) % bytes_per_line))

+		  *(ptr++) = value >> 8;

+	    }

+	} else {

+	    unsigned char *ptr;

+	    int bytes;

+

+	    for (bytes=0, ptr=bits; bytes<size; bytes++, ptr++) {

+		if ((value = NextInt(fstream)) < 0)

+		  RETURN (BitmapFileInvalid);

+		*ptr=value;

+	    }

+	}

+

+	/* If we got to this point, we read a full bitmap file. Break so we don't

+	 * start reading another one from the same file and leak the memory

+	 * allocated for the previous one. */

+	break;

+    }					/* end while */

+

+    fclose(fstream);

+    if (!bits)

+	return (BitmapFileInvalid);

+

+    *data = bits;

+    *width = ww;

+    *height = hh;

+    if (x_hot) *x_hot = hx;

+    if (y_hot) *y_hot = hy;

+

+    return (BitmapSuccess);

+}

+

+int

+XReadBitmapFile (

+    Display *display,

+    Drawable d,

+    _Xconst char *filename,

+    unsigned int *width,                /* RETURNED */

+    unsigned int *height,               /* RETURNED */

+    Pixmap *pixmap,                     /* RETURNED */

+    int *x_hot,                         /* RETURNED */

+    int *y_hot)                         /* RETURNED */

+{

+    unsigned char *data;

+    int res;

+

+    res = XReadBitmapFileData(filename, width, height, &data, x_hot, y_hot);

+    if (res != BitmapSuccess)

+	return res;

+    *pixmap = XCreateBitmapFromData(display, d, (char *)data, *width, *height);

+    Xfree((char *)data);

+    if (*pixmap == None)

+	return (BitmapNoMemory);

+    return (BitmapSuccess);

+}

diff --git a/libX11/src/SetLocale.c b/libX11/src/SetLocale.c
index c49cb2e4e..81c946cdf 100644
--- a/libX11/src/SetLocale.c
+++ b/libX11/src/SetLocale.c
@@ -1,253 +1,254 @@
-
-/*
- * Copyright 1990, 1991 by OMRON Corporation, NTT Software Corporation,
- *                      and Nippon Telegraph and Telephone Corporation
- *
- * Permission to use, copy, modify, distribute, and sell this software and its
- * documentation for any purpose is hereby granted without fee, provided that
- * the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the names of OMRON, NTT Software, and NTT
- * not be used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission. OMRON, NTT Software,
- * and NTT make no representations about the suitability of this
- * software for any purpose.  It is provided "as is" without express or
- * implied warranty.
- *
- * OMRON, NTT SOFTWARE, AND NTT, DISCLAIM ALL WARRANTIES WITH REGARD
- * TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
- * AND FITNESS, IN NO EVENT SHALL OMRON, NTT SOFTWARE, OR NTT, BE
- * LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
- * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
- * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
- * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- *	Authors: Li Yuhong		OMRON Corporation
- *		 Tetsuya Kato		NTT Software Corporation
- *		 Hiroshi Kuribayashi	OMRON Corporation
- *
- */
-/*
-
-Copyright 1987,1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include <X11/Xlocale.h>
-#include <X11/Xos.h>
-#include "XlcPubI.h"
-
-#define MAXLOCALE	64	/* buffer size of locale name */
-
-#ifdef X_LOCALE
-
-/* alternative setlocale() for when the OS does not provide one */
-
-char *
-_Xsetlocale(
-    int		  category,
-    _Xconst char  *name
-)
-{
-    static char *xsl_name;
-    char *old_name;
-    XrmMethods methods;
-    XPointer state;
-
-    if (category != LC_CTYPE && category != LC_ALL)
-	return NULL;
-    if (!name) {
-	if (xsl_name)
-	    return xsl_name;
-	return "C";
-    }
-    if (!*name)
-	name = getenv("LC_CTYPE");
-    if (!name || !*name)
-	name = getenv("LANG");
-    if (name && strlen(name) >= MAXLOCALE)
-	name = NULL;
-    if (!name || !*name || !_XOpenLC((char *) name))
-	name = "C";
-    old_name = xsl_name;
-    xsl_name = (char *)name;
-    methods = _XrmInitParseInfo(&state);
-    xsl_name = old_name;
-    if (!methods)
-	return NULL;
-    name = (*methods->lcname)(state);
-    xsl_name = strdup(name);
-    if (!xsl_name) {
-	xsl_name = old_name;
-	(*methods->destroy)(state);
-	return NULL;
-    }
-    if (old_name)
-	Xfree(old_name);
-    (*methods->destroy)(state);
-    return xsl_name;
-}
-
-#else /* X_LOCALE */
-
-#if defined(__APPLE__) || defined(__CYGWIN__)
-char *
-_Xsetlocale(
-    int           category,
-    _Xconst char  *name
-)
-{
-    return setlocale(category, name);
-}
-#endif /* __APPLE__ || __CYGWIN__ */
-
-/*
- * _XlcMapOSLocaleName is an implementation dependent routine that derives
- * the LC_CTYPE locale name as used in the sample implementation from that
- * returned by setlocale.
- *
- * Should match the code in Xt ExtractLocaleName.
- *
- * This function name is a bit of a misnomer. Even the siname parameter
- * name is a misnomer. On most modern operating systems this function is
- * a no-op, simply returning the osname; but on older operating systems
- * like Ultrix, or HPUX 9.x and earlier, when you set LANG=german.88591
- * then the string returned by setlocale(LC_ALL, "") will look something
- * like: "german.88591 german.88591 ... german.88591". Then this function
- * will pick out the LC_CTYPE component and return a pointer to that.
- */
-
-char *
-_XlcMapOSLocaleName(
-    char *osname,
-    char *siname)
-{
-#if defined(hpux) || defined(CSRG_BASED) || defined(sun) || defined(SVR4) || defined(sgi) || defined(__osf__) || defined(AIXV3) || defined(ultrix) || defined(WIN32) || defined(__UNIXOS2__) || defined(linux)
-# ifdef hpux
-#  ifndef _LastCategory
-   /* HPUX 9 and earlier */
-#   define SKIPCOUNT 2
-#   define STARTCHAR ':'
-#   define ENDCHAR ';'
-#  else
-   /* HPUX 10 */
-#   define ENDCHAR ' '
-#  endif
-# else
-#  ifdef ultrix
-#   define SKIPCOUNT 2
-#   define STARTCHAR '\001'
-#   define ENDCHAR '\001'
-#  else
-#   if defined(WIN32) || defined(__UNIXOS2__)
-#    define SKIPCOUNT 1
-#    define STARTCHAR '='
-#    define ENDCHAR ';'
-#    define WHITEFILL
-#   else
-#    if defined(__osf__) || (defined(AIXV3) && !defined(AIXV4))
-#     define STARTCHAR ' '
-#     define ENDCHAR ' '
-#    else
-#     if defined(linux)
-#      define STARTSTR "LC_CTYPE="
-#      define ENDCHAR ';'
-#     else
-#      if !defined(sun) || defined(SVR4)
-#       define STARTCHAR '/'
-#       define ENDCHAR '/'
-#      endif
-#     endif
-#    endif
-#   endif
-#  endif
-# endif
-
-    char           *start;
-    char           *end;
-    int             len;
-# ifdef SKIPCOUNT
-    int		    n;
-# endif
-
-    start = osname;
-# ifdef SKIPCOUNT
-    for (n = SKIPCOUNT;
-	 --n >= 0 && start && (start = strchr (start, STARTCHAR));
-	 start++)
-	;
-    if (!start)
-	start = osname;
-# endif
-# ifdef STARTCHAR
-    if (start && (start = strchr (start, STARTCHAR)))
-# elif  defined (STARTSTR)
-    if (start && (start = strstr (start,STARTSTR)))
-# endif
-    {
-# ifdef STARTCHAR
-	start++;
-# elif defined (STARTSTR)
-	start += strlen(STARTSTR);
-# endif
-	if ((end = strchr (start, ENDCHAR))) {
-	    len = end - start;
-	    if (len >= MAXLOCALE)
-		len = MAXLOCALE - 1;
-	    strncpy(siname, start, len);
-	    *(siname + len) = '\0';
-# ifdef WHITEFILL
-	    for (start = siname; start = strchr(start, ' '); )
-		*start++ = '-';
-# endif
-	    return siname;
-	} else  /* if no ENDCHAR is found we are at the end of the line */
-	    return start;
-    }
-# ifdef WHITEFILL
-    if (strchr(osname, ' ')) {
-	len = strlen(osname);
-	if (len >= MAXLOCALE - 1)
-	    len = MAXLOCALE - 1;
-	strncpy(siname, osname, len);
-	*(siname + len) = '\0';
-	for (start = siname; start = strchr(start, ' '); )
-	    *start++ = '-';
-	return siname;
-    }
-# endif
-# undef STARTCHAR
-# undef ENDCHAR
-# undef WHITEFILL
-#endif
-    return osname;
-}
-
-#endif  /* X_LOCALE */
+

+/*

+ * Copyright 1990, 1991 by OMRON Corporation, NTT Software Corporation,

+ *                      and Nippon Telegraph and Telephone Corporation

+ *

+ * Permission to use, copy, modify, distribute, and sell this software and its

+ * documentation for any purpose is hereby granted without fee, provided that

+ * the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the names of OMRON, NTT Software, and NTT

+ * not be used in advertising or publicity pertaining to distribution of the

+ * software without specific, written prior permission. OMRON, NTT Software,

+ * and NTT make no representations about the suitability of this

+ * software for any purpose.  It is provided "as is" without express or

+ * implied warranty.

+ *

+ * OMRON, NTT SOFTWARE, AND NTT, DISCLAIM ALL WARRANTIES WITH REGARD

+ * TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

+ * AND FITNESS, IN NO EVENT SHALL OMRON, NTT SOFTWARE, OR NTT, BE

+ * LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

+ *

+ *	Authors: Li Yuhong		OMRON Corporation

+ *		 Tetsuya Kato		NTT Software Corporation

+ *		 Hiroshi Kuribayashi	OMRON Corporation

+ *

+ */

+/*

+

+Copyright 1987,1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include <X11/Xlocale.h>

+#include <X11/Xos.h>

+#include "XlcPubI.h"

+#include <unistd.h>

+

+#define MAXLOCALE	64	/* buffer size of locale name */

+

+#ifdef X_LOCALE

+

+/* alternative setlocale() for when the OS does not provide one */

+

+char *

+_Xsetlocale(

+    int		  category,

+    _Xconst char  *name

+)

+{

+    static char *xsl_name;

+    char *old_name;

+    XrmMethods methods;

+    XPointer state;

+

+    if (category != LC_CTYPE && category != LC_ALL)

+	return NULL;

+    if (!name) {

+	if (xsl_name)

+	    return xsl_name;

+	return "C";

+    }

+    if (!*name)

+	name = getenv("LC_CTYPE");

+    if (!name || !*name)

+	name = getenv("LANG");

+    if (name && strlen(name) >= MAXLOCALE)

+	name = NULL;

+    if (!name || !*name || !_XOpenLC((char *) name))

+	name = "C";

+    old_name = xsl_name;

+    xsl_name = (char *)name;

+    methods = _XrmInitParseInfo(&state);

+    xsl_name = old_name;

+    if (!methods)

+	return NULL;

+    name = (*methods->lcname)(state);

+    xsl_name = strdup(name);

+    if (!xsl_name) {

+	xsl_name = old_name;

+	(*methods->destroy)(state);

+	return NULL;

+    }

+    if (old_name)

+	Xfree(old_name);

+    (*methods->destroy)(state);

+    return xsl_name;

+}

+

+#else /* X_LOCALE */

+

+#if defined(__APPLE__) || defined(__CYGWIN__)

+char *

+_Xsetlocale(

+    int           category,

+    _Xconst char  *name

+)

+{

+    return setlocale(category, name);

+}

+#endif /* __APPLE__ || __CYGWIN__ */

+

+/*

+ * _XlcMapOSLocaleName is an implementation dependent routine that derives

+ * the LC_CTYPE locale name as used in the sample implementation from that

+ * returned by setlocale.

+ *

+ * Should match the code in Xt ExtractLocaleName.

+ *

+ * This function name is a bit of a misnomer. Even the siname parameter

+ * name is a misnomer. On most modern operating systems this function is

+ * a no-op, simply returning the osname; but on older operating systems

+ * like Ultrix, or HPUX 9.x and earlier, when you set LANG=german.88591

+ * then the string returned by setlocale(LC_ALL, "") will look something

+ * like: "german.88591 german.88591 ... german.88591". Then this function

+ * will pick out the LC_CTYPE component and return a pointer to that.

+ */

+

+char *

+_XlcMapOSLocaleName(

+    char *osname,

+    char *siname)

+{

+#if defined(hpux) || defined(CSRG_BASED) || defined(sun) || defined(SVR4) || defined(sgi) || defined(__osf__) || defined(AIXV3) || defined(ultrix) || defined(WIN32) || defined(__UNIXOS2__) || defined(linux)

+# ifdef hpux

+#  ifndef _LastCategory

+   /* HPUX 9 and earlier */

+#   define SKIPCOUNT 2

+#   define STARTCHAR ':'

+#   define ENDCHAR ';'

+#  else

+   /* HPUX 10 */

+#   define ENDCHAR ' '

+#  endif

+# else

+#  ifdef ultrix

+#   define SKIPCOUNT 2

+#   define STARTCHAR '\001'

+#   define ENDCHAR '\001'

+#  else

+#   if defined(WIN32) || defined(__UNIXOS2__)

+#    define SKIPCOUNT 1

+#    define STARTCHAR '='

+#    define ENDCHAR ';'

+#    define WHITEFILL

+#   else

+#    if defined(__osf__) || (defined(AIXV3) && !defined(AIXV4))

+#     define STARTCHAR ' '

+#     define ENDCHAR ' '

+#    else

+#     if defined(linux)

+#      define STARTSTR "LC_CTYPE="

+#      define ENDCHAR ';'

+#     else

+#      if !defined(sun) || defined(SVR4)

+#       define STARTCHAR '/'

+#       define ENDCHAR '/'

+#      endif

+#     endif

+#    endif

+#   endif

+#  endif

+# endif

+

+    char           *start;

+    char           *end;

+    int             len;

+# ifdef SKIPCOUNT

+    int		    n;

+# endif

+

+    start = osname;

+# ifdef SKIPCOUNT

+    for (n = SKIPCOUNT;

+	 --n >= 0 && start && (start = strchr (start, STARTCHAR));

+	 start++)

+	;

+    if (!start)

+	start = osname;

+# endif

+# ifdef STARTCHAR

+    if (start && (start = strchr (start, STARTCHAR)))

+# elif  defined (STARTSTR)

+    if (start && (start = strstr (start,STARTSTR)))

+# endif

+    {

+# ifdef STARTCHAR

+	start++;

+# elif defined (STARTSTR)

+	start += strlen(STARTSTR);

+# endif

+	if ((end = strchr (start, ENDCHAR))) {

+	    len = end - start;

+	    if (len >= MAXLOCALE)

+		len = MAXLOCALE - 1;

+	    strncpy(siname, start, len);

+	    *(siname + len) = '\0';

+# ifdef WHITEFILL

+	    for (start = siname; start = strchr(start, ' '); )

+		*start++ = '-';

+# endif

+	    return siname;

+	} else  /* if no ENDCHAR is found we are at the end of the line */

+	    return start;

+    }

+# ifdef WHITEFILL

+    if (strchr(osname, ' ')) {

+	len = strlen(osname);

+	if (len >= MAXLOCALE - 1)

+	    len = MAXLOCALE - 1;

+	strncpy(siname, osname, len);

+	*(siname + len) = '\0';

+	for (start = siname; start = strchr(start, ' '); )

+	    *start++ = '-';

+	return siname;

+    }

+# endif

+# undef STARTCHAR

+# undef ENDCHAR

+# undef WHITEFILL

+#endif

+    return osname;

+}

+

+#endif  /* X_LOCALE */

diff --git a/libX11/src/StrKeysym.c b/libX11/src/StrKeysym.c
index 6e9c427f8..907db507b 100644
--- a/libX11/src/StrKeysym.c
+++ b/libX11/src/StrKeysym.c
@@ -39,12 +39,14 @@ in this Software without prior written authorization from The Open Group.
 

 #ifndef KEYSYMDB

 #ifndef XKEYSYMDB

-#define KEYSYMDB "/usr/lib/X11/XKeysymDB"

+#define KEYSYMDB "XKeysymDB"

 #else

 #define KEYSYMDB XKEYSYMDB

 #endif

 #endif

 

+#include <unistd.h>

+

 static Bool initialized;

 static XrmDatabase keysymdb;

 static XrmQuark Qkeysym[2];

diff --git a/libX11/src/XlibInt.c b/libX11/src/XlibInt.c
index 3db151e29..305670214 100644
--- a/libX11/src/XlibInt.c
+++ b/libX11/src/XlibInt.c
@@ -1,2158 +1,2177 @@
-/*
-
-Copyright 1985, 1986, 1987, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-/*
- *	XlibInt.c - Internal support routines for the C subroutine
- *	interface library (Xlib) to the X Window System Protocol V11.0.
- */
-
-#ifdef WIN32
-#define _XLIBINT_
-#endif
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xprivate.h"
-#include <X11/Xpoll.h>
-#include <assert.h>
-#include <stdio.h>
-#ifdef WIN32
-#include <direct.h>
-#endif
-
-#ifdef XTHREADS
-#include "locking.h"
-
-/* these pointers get initialized by XInitThreads */
-LockInfoPtr _Xglobal_lock = NULL;
-void (*_XCreateMutex_fn)(LockInfoPtr) = NULL;
-/* struct _XCVList *(*_XCreateCVL_fn)() = NULL; */
-void (*_XFreeMutex_fn)(LockInfoPtr) = NULL;
-void (*_XLockMutex_fn)(
-    LockInfoPtr /* lock */
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-    ) = NULL;
-void (*_XUnlockMutex_fn)(
-    LockInfoPtr /* lock */
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-    ) = NULL;
-xthread_t (*_Xthread_self_fn)(void) = NULL;
-
-#define XThread_Self()	((*_Xthread_self_fn)())
-
-#endif /* XTHREADS */
-
-/* check for both EAGAIN and EWOULDBLOCK, because some supposedly POSIX
- * systems are broken and return EWOULDBLOCK when they should return EAGAIN
- */
-#ifdef WIN32
-#define ETEST() (WSAGetLastError() == WSAEWOULDBLOCK)
-#else
-#ifdef __CYGWIN__ /* Cygwin uses ENOBUFS to signal socket is full */
-#define ETEST() (errno == EAGAIN || errno == EWOULDBLOCK || errno == ENOBUFS)
-#else
-#if defined(EAGAIN) && defined(EWOULDBLOCK)
-#define ETEST() (errno == EAGAIN || errno == EWOULDBLOCK)
-#else
-#ifdef EAGAIN
-#define ETEST() (errno == EAGAIN)
-#else
-#define ETEST() (errno == EWOULDBLOCK)
-#endif /* EAGAIN */
-#endif /* EAGAIN && EWOULDBLOCK */
-#endif /* __CYGWIN__ */
-#endif /* WIN32 */
-
-#ifdef WIN32
-#define ECHECK(err) (WSAGetLastError() == err)
-#define ESET(val) WSASetLastError(val)
-#else
-#ifdef __UNIXOS2__
-#define ECHECK(err) (errno == err)
-#define ESET(val)
-#else
-#define ECHECK(err) (errno == err)
-#define ESET(val) errno = val
-#endif
-#endif
-
-#if defined(LOCALCONN) || defined(LACHMAN)
-#ifdef EMSGSIZE
-#define ESZTEST() (ECHECK(EMSGSIZE) || ECHECK(ERANGE))
-#else
-#define ESZTEST() ECHECK(ERANGE)
-#endif
-#else
-#ifdef EMSGSIZE
-#define ESZTEST() ECHECK(EMSGSIZE)
-#endif
-#endif
-
-#ifdef __UNIXOS2__
-#include <limits.h>
-#define MAX_PATH _POSIX_PATH_MAX
-#endif
-
-/*
- * The following routines are internal routines used by Xlib for protocol
- * packet transmission and reception.
- *
- * _XIOError(Display *) will be called if any sort of system call error occurs.
- * This is assumed to be a fatal condition, i.e., XIOError should not return.
- *
- * _XError(Display *, xError *) will be called whenever an X_Error event is
- * received.  This is not assumed to be a fatal condition, i.e., it is
- * acceptable for this procedure to return.  However, XError should NOT
- * perform any operations (directly or indirectly) on the DISPLAY.
- *
- * Routines declared with a return type of 'Status' return 0 on failure,
- * and non 0 on success.  Routines with no declared return type don't
- * return anything.  Whenever possible routines that create objects return
- * the object they have created.
- */
-
-#define POLLFD_CACHE_SIZE 5
-
-/* initialize the struct array passed to poll() below */
-Bool _XPollfdCacheInit(
-    Display *dpy)
-{
-#ifdef USE_POLL
-    struct pollfd *pfp;
-
-    pfp = (struct pollfd *)Xmalloc(POLLFD_CACHE_SIZE * sizeof(struct pollfd));
-    if (!pfp)
-	return False;
-    pfp[0].fd = dpy->fd;
-    pfp[0].events = POLLIN;
-
-    dpy->filedes = (XPointer)pfp;
-#endif
-    return True;
-}
-
-void _XPollfdCacheAdd(
-    Display *dpy,
-    int fd)
-{
-#ifdef USE_POLL
-    struct pollfd *pfp = (struct pollfd *)dpy->filedes;
-
-    if (dpy->im_fd_length <= POLLFD_CACHE_SIZE) {
-	pfp[dpy->im_fd_length].fd = fd;
-	pfp[dpy->im_fd_length].events = POLLIN;
-    }
-#endif
-}
-
-/* ARGSUSED */
-void _XPollfdCacheDel(
-    Display *dpy,
-    int fd)			/* not used */
-{
-#ifdef USE_POLL
-    struct pollfd *pfp = (struct pollfd *)dpy->filedes;
-    struct _XConnectionInfo *conni;
-
-    /* just recalculate whole list */
-    if (dpy->im_fd_length <= POLLFD_CACHE_SIZE) {
-	int loc = 1;
-	for (conni = dpy->im_fd_info; conni; conni=conni->next) {
-	    pfp[loc].fd = conni->fd;
-	    pfp[loc].events = POLLIN;
-	    loc++;
-	}
-    }
-#endif
-}
-
-static int sync_hazard(Display *dpy)
-{
-    unsigned long span = dpy->request - dpy->last_request_read;
-    unsigned long hazard = min((dpy->bufmax - dpy->buffer) / SIZEOF(xReq), 65535 - 10);
-    return span >= 65535 - hazard - 10;
-}
-
-static
-void sync_while_locked(Display *dpy)
-{
-#ifdef XTHREADS
-    if (dpy->lock)
-        (*dpy->lock->user_lock_display)(dpy);
-#endif
-    UnlockDisplay(dpy);
-    SyncHandle();
-    InternalLockDisplay(dpy, /* don't skip user locks */ 0);
-#ifdef XTHREADS
-    if (dpy->lock)
-        (*dpy->lock->user_unlock_display)(dpy);
-#endif
-}
-
-void _XSeqSyncFunction(
-    register Display *dpy)
-{
-    xGetInputFocusReply rep;
-    register xReq *req;
-
-    if ((dpy->request - dpy->last_request_read) >= (65535 - BUFSIZE/SIZEOF(xReq))) {
-	GetEmptyReq(GetInputFocus, req);
-	(void) _XReply (dpy, (xReply *)&rep, 0, xTrue);
-	sync_while_locked(dpy);
-    } else if (sync_hazard(dpy))
-	_XSetPrivSyncFunction(dpy);
-}
-
-/* NOTE: only called if !XTHREADS, or when XInitThreads wasn't called. */
-static int
-_XPrivSyncFunction (Display *dpy)
-{
-#if XTHREADS
-    assert(!dpy->lock_fns);
-#endif
-    assert(dpy->synchandler == _XPrivSyncFunction);
-    assert((dpy->flags & XlibDisplayPrivSync) != 0);
-    dpy->synchandler = dpy->savedsynchandler;
-    dpy->savedsynchandler = NULL;
-    dpy->flags &= ~XlibDisplayPrivSync;
-    if(dpy->synchandler)
-        dpy->synchandler(dpy);
-    _XIDHandler(dpy);
-    _XSeqSyncFunction(dpy);
-    return 0;
-}
-
-void _XSetPrivSyncFunction(Display *dpy)
-{
-#ifdef XTHREADS
-    if (dpy->lock_fns)
-        return;
-#endif
-    if (!(dpy->flags & XlibDisplayPrivSync)) {
-	dpy->savedsynchandler = dpy->synchandler;
-	dpy->synchandler = _XPrivSyncFunction;
-	dpy->flags |= XlibDisplayPrivSync;
-    }
-}
-
-void _XSetSeqSyncFunction(Display *dpy)
-{
-    if (sync_hazard(dpy))
-	_XSetPrivSyncFunction (dpy);
-}
-
-#ifdef LONG64
-void _XRead32(
-    Display *dpy,
-    register long *data,
-    long len)
-{
-    register int *buf;
-    register long i;
-
-    if (len) {
-	(void) _XRead(dpy, (char *)data, len);
-	i = len >> 2;
-	buf = (int *)data + i;
-	data += i;
-	while (--i >= 0)
-	    *--data = *--buf;
-    }
-}
-#endif /* LONG64 */
-
-#ifdef WORD64
-
-/*
- * XXX This is a *really* stupid way of doing this....
- * PACKBUFFERSIZE must be a multiple of 4.
- */
-
-#define PACKBUFFERSIZE 4096
-
-
-/*
- * _XRead32 - Read bytes from the socket unpacking each 32 bits
- *            into a long (64 bits on a CRAY computer).
- *
- */
-static void _doXRead32(
-        register Display *dpy,
-        register long *data
-        register long size,
-	register char *packbuffer)
-{
- long *lpack,*lp;
- long mask32 = 0x00000000ffffffff;
- long maskw, nwords, i, bits;
-
-        _XReadPad (dpy, packbuffer, size);
-
-        lp = data;
-        lpack = (long *) packbuffer;
-        nwords = size >> 2;
-        bits = 32;
-
-        for(i=0;i<nwords;i++){
-            maskw = mask32 << bits;
-           *lp++ = ( *lpack & maskw ) >> bits;
-            bits = bits ^32;
-            if(bits){
-               lpack++;
-            }
-        }
-}
-
-void _XRead32(
-    Display *dpy,
-    long *data,
-    long len)
-{
-    char packbuffer[PACKBUFFERSIZE];
-    unsigned nunits = PACKBUFFERSIZE >> 2;
-
-    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {
-	_doXRead32 (dpy, data, PACKBUFFERSIZE, packbuffer);
-    }
-    if (len) _doXRead32 (dpy, data, len, packbuffer);
-}
-
-
-
-/*
- * _XRead16 - Read bytes from the socket unpacking each 16 bits
- *            into a long (64 bits on a CRAY computer).
- *
- */
-static _doXRead16(
-        register Display *dpy,
-        register short *data,
-        register long size,
-	char *packbuffer)
-{
-	long *lpack,*lp;
-	long mask16 = 0x000000000000ffff;
-	long maskw, nwords, i, bits;
-
-        (void) _XRead(dpy,packbuffer,size);	/* don't do a padded read... */
-
-        lp = (long *) data;
-        lpack = (long *) packbuffer;
-        nwords = size >> 1;  /* number of 16 bit words to be unpacked */
-        bits = 48;
-        for(i=0;i<nwords;i++){
-            maskw = mask16 << bits;
-           *lp++ = ( *lpack & maskw ) >> bits;
-            bits -= 16;
-            if(bits < 0){
-               lpack++;
-               bits = 48;
-            }
-        }
-}
-
-void _XRead16(
-    Display *dpy,
-    short *data,
-    long len)
-{
-    char packbuffer[PACKBUFFERSIZE];
-    unsigned nunits = PACKBUFFERSIZE >> 1;
-
-    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {
-	_doXRead16 (dpy, data, PACKBUFFERSIZE, packbuffer);
-    }
-    if (len) _doXRead16 (dpy, data, len, packbuffer);
-}
-
-void _XRead16Pad(
-    Display *dpy,
-    short *data,
-    long size)
-{
-    int slop = (size & 3);
-    short slopbuf[3];
-
-    _XRead16 (dpy, data, size);
-    if (slop > 0) {
-	_XRead16 (dpy, slopbuf, 4 - slop);
-    }
-}
-#endif /* WORD64 */
-
-/*
- * The hard part about this is that we only get 16 bits from a reply.
- * We have three values that will march along, with the following invariant:
- *	dpy->last_request_read <= rep->sequenceNumber <= dpy->request
- * We have to keep
- *	dpy->request - dpy->last_request_read < 2^16
- * or else we won't know for sure what value to use in events.  We do this
- * by forcing syncs when we get close.
- */
-
-unsigned long
-_XSetLastRequestRead(
-    register Display *dpy,
-    register xGenericReply *rep)
-{
-    register unsigned long	newseq, lastseq;
-
-    lastseq = dpy->last_request_read;
-    /*
-     * KeymapNotify has no sequence number, but is always guaranteed
-     * to immediately follow another event, except when generated via
-     * SendEvent (hmmm).
-     */
-    if ((rep->type & 0x7f) == KeymapNotify)
-	return(lastseq);
-
-    newseq = (lastseq & ~((unsigned long)0xffff)) | rep->sequenceNumber;
-
-    if (newseq < lastseq) {
-	newseq += 0x10000;
-	if (newseq > dpy->request) {
-	    (void) fprintf (stderr,
-	    "Xlib: sequence lost (0x%lx > 0x%lx) in reply type 0x%x!\n",
-			    newseq, dpy->request,
-			    (unsigned int) rep->type);
-	    newseq -= 0x10000;
-	}
-    }
-
-    dpy->last_request_read = newseq;
-    return(newseq);
-}
-
-/*
- * Support for internal connections, such as an IM might use.
- * By Stephen Gildea, X Consortium, September 1993
- */
-
-/* _XRegisterInternalConnection
- * Each IM (or Xlib extension) that opens a file descriptor that Xlib should
- * include in its select/poll mask must call this function to register the
- * fd with Xlib.  Any XConnectionWatchProc registered by XAddConnectionWatch
- * will also be called.
- *
- * Whenever Xlib detects input available on fd, it will call callback
- * with call_data to process it.  If non-Xlib code calls select/poll
- * and detects input available, it must call XProcessInternalConnection,
- * which will call the associated callback.
- *
- * Non-Xlib code can learn about these additional fds by calling
- * XInternalConnectionNumbers or, more typically, by registering
- * a XConnectionWatchProc with XAddConnectionWatch
- * to be called when fds are registered or unregistered.
- *
- * Returns True if registration succeeded, False if not, typically
- * because could not allocate memory.
- * Assumes Display locked when called.
- */
-Status
-_XRegisterInternalConnection(
-    Display* dpy,
-    int fd,
-    _XInternalConnectionProc callback,
-    XPointer call_data
-)
-{
-    struct _XConnectionInfo *new_conni, **iptr;
-    struct _XConnWatchInfo *watchers;
-    XPointer *wd;
-
-    new_conni = (struct _XConnectionInfo*)Xmalloc(sizeof(struct _XConnectionInfo));
-    if (!new_conni)
-	return 0;
-    new_conni->watch_data = (XPointer *)Xmalloc(dpy->watcher_count * sizeof(XPointer));
-    if (!new_conni->watch_data) {
-	Xfree(new_conni);
-	return 0;
-    }
-    new_conni->fd = fd;
-    new_conni->read_callback = callback;
-    new_conni->call_data = call_data;
-    new_conni->next = NULL;
-    /* link new structure onto end of list */
-    for (iptr = &dpy->im_fd_info; *iptr; iptr = &(*iptr)->next)
-	;
-    *iptr = new_conni;
-    dpy->im_fd_length++;
-    _XPollfdCacheAdd(dpy, fd);
-
-    for (watchers=dpy->conn_watchers, wd=new_conni->watch_data;
-	 watchers;
-	 watchers=watchers->next, wd++) {
-	*wd = NULL;		/* for cleanliness */
-	(*watchers->fn) (dpy, watchers->client_data, fd, True, wd);
-    }
-
-    return 1;
-}
-
-/* _XUnregisterInternalConnection
- * Each IM (or Xlib extension) that closes a file descriptor previously
- * registered with _XRegisterInternalConnection must call this function.
- * Any XConnectionWatchProc registered by XAddConnectionWatch
- * will also be called.
- *
- * Assumes Display locked when called.
- */
-void
-_XUnregisterInternalConnection(
-    Display* dpy,
-    int fd
-)
-{
-    struct _XConnectionInfo *info_list, **prev;
-    struct _XConnWatchInfo *watch;
-    XPointer *wd;
-
-    for (prev = &dpy->im_fd_info; (info_list = *prev);
-	 prev = &info_list->next) {
-	if (info_list->fd == fd) {
-	    *prev = info_list->next;
-	    dpy->im_fd_length--;
-	    for (watch=dpy->conn_watchers, wd=info_list->watch_data;
-		 watch;
-		 watch=watch->next, wd++) {
-		(*watch->fn) (dpy, watch->client_data, fd, False, wd);
-	    }
-	    if (info_list->watch_data)
-		Xfree (info_list->watch_data);
-	    Xfree (info_list);
-	    break;
-	}
-    }
-    _XPollfdCacheDel(dpy, fd);
-}
-
-/* XInternalConnectionNumbers
- * Returns an array of fds and an array of corresponding call data.
- * Typically a XConnectionWatchProc registered with XAddConnectionWatch
- * will be used instead of this function to discover
- * additional fds to include in the select/poll mask.
- *
- * The list is allocated with Xmalloc and should be freed by the caller
- * with Xfree;
- */
-Status
-XInternalConnectionNumbers(
-    Display *dpy,
-    int **fd_return,
-    int *count_return
-)
-{
-    int count;
-    struct _XConnectionInfo *info_list;
-    int *fd_list;
-
-    LockDisplay(dpy);
-    count = 0;
-    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next)
-	count++;
-    fd_list = (int*) Xmalloc (count * sizeof(int));
-    if (!fd_list) {
-	UnlockDisplay(dpy);
-	return 0;
-    }
-    count = 0;
-    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {
-	fd_list[count] = info_list->fd;
-	count++;
-    }
-    UnlockDisplay(dpy);
-
-    *fd_return = fd_list;
-    *count_return = count;
-    return 1;
-}
-
-void _XProcessInternalConnection(
-    Display *dpy,
-    struct _XConnectionInfo *conn_info)
-{
-    dpy->flags |= XlibDisplayProcConni;
-    UnlockDisplay(dpy);
-    (*conn_info->read_callback) (dpy, conn_info->fd, conn_info->call_data);
-    LockDisplay(dpy);
-    dpy->flags &= ~XlibDisplayProcConni;
-}
-
-/* XProcessInternalConnection
- * Call the _XInternalConnectionProc registered by _XRegisterInternalConnection
- * for this fd.
- * The Display is NOT locked during the call.
- */
-void
-XProcessInternalConnection(
-    Display* dpy,
-    int fd
-)
-{
-    struct _XConnectionInfo *info_list;
-
-    LockDisplay(dpy);
-    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {
-	if (info_list->fd == fd) {
-	    _XProcessInternalConnection(dpy, info_list);
-	    break;
-	}
-    }
-    UnlockDisplay(dpy);
-}
-
-/* XAddConnectionWatch
- * Register a callback to be called whenever _XRegisterInternalConnection
- * or _XUnregisterInternalConnection is called.
- * Callbacks are called with the Display locked.
- * If any connections are already registered, the callback is immediately
- * called for each of them.
- */
-Status
-XAddConnectionWatch(
-    Display* dpy,
-    XConnectionWatchProc callback,
-    XPointer client_data
-)
-{
-    struct _XConnWatchInfo *new_watcher, **wptr;
-    struct _XConnectionInfo *info_list;
-    XPointer *wd_array;
-
-    LockDisplay(dpy);
-
-    /* allocate new watch data */
-    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {
-	wd_array = (XPointer *)Xrealloc((char *)info_list->watch_data,
-					(dpy->watcher_count + 1) *
-					sizeof(XPointer));
-	if (!wd_array) {
-	    UnlockDisplay(dpy);
-	    return 0;
-	}
-	info_list->watch_data = wd_array;
-	wd_array[dpy->watcher_count] = NULL;	/* for cleanliness */
-    }
-
-    new_watcher = (struct _XConnWatchInfo*)Xmalloc(sizeof(struct _XConnWatchInfo));
-    if (!new_watcher) {
-	UnlockDisplay(dpy);
-	return 0;
-    }
-    new_watcher->fn = callback;
-    new_watcher->client_data = client_data;
-    new_watcher->next = NULL;
-
-    /* link new structure onto end of list */
-    for (wptr = &dpy->conn_watchers; *wptr; wptr = &(*wptr)->next)
-	;
-    *wptr = new_watcher;
-    dpy->watcher_count++;
-
-    /* call new watcher on all currently registered fds */
-    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {
-	(*callback) (dpy, client_data, info_list->fd, True,
-		     info_list->watch_data + dpy->watcher_count - 1);
-    }
-
-    UnlockDisplay(dpy);
-    return 1;
-}
-
-/* XRemoveConnectionWatch
- * Unregister a callback registered by XAddConnectionWatch.
- * Both callback and client_data must match what was passed to
- * XAddConnectionWatch.
- */
-void
-XRemoveConnectionWatch(
-    Display* dpy,
-    XConnectionWatchProc callback,
-    XPointer client_data
-)
-{
-    struct _XConnWatchInfo *watch;
-    struct _XConnWatchInfo *previous = NULL;
-    struct _XConnectionInfo *conni;
-    int counter = 0;
-
-    LockDisplay(dpy);
-    for (watch=dpy->conn_watchers; watch; watch=watch->next) {
-	if (watch->fn == callback  &&  watch->client_data == client_data) {
-	    if (previous)
-		previous->next = watch->next;
-	    else
-		dpy->conn_watchers = watch->next;
-	    Xfree (watch);
-	    dpy->watcher_count--;
-	    /* remove our watch_data for each connection */
-	    for (conni=dpy->im_fd_info; conni; conni=conni->next) {
-		/* don't bother realloc'ing; these arrays are small anyway */
-		/* overlapping */
-		memmove(conni->watch_data+counter,
-			conni->watch_data+counter+1,
-			dpy->watcher_count - counter);
-	    }
-	    break;
-	}
-	previous = watch;
-	counter++;
-    }
-    UnlockDisplay(dpy);
-}
-
-/* end of internal connections support */
-
-/* Cookie jar implementation
-   dpy->cookiejar is a linked list. _XEnq receives the events but leaves
-   them in the normal EQ. _XStoreEvent returns the cookie event (minus
-   data pointer) and adds it to the cookiejar. _XDeq just removes
-   the entry like any other event but resets the data pointer for
-   cookie events (to avoid double-free, the memory is re-used by Xlib).
-
-   _XFetchEventCookie (called from XGetEventData) removes a cookie from the
-   jar. _XFreeEventCookies removes all unclaimed cookies from the jar
-   (called by XNextEvent).
-
-   _XFreeDisplayStructure calls _XFreeEventCookies for each cookie in the
-   normal EQ.
- */
-
-#include "utlist.h"
-struct stored_event {
-    XGenericEventCookie ev;
-    struct stored_event *prev;
-    struct stored_event *next;
-};
-
-Bool
-_XIsEventCookie(Display *dpy, XEvent *ev)
-{
-    return (ev->xcookie.type == GenericEvent &&
-	    dpy->generic_event_vec[ev->xcookie.extension & 0x7F] != NULL);
-}
-
-/**
- * Free all events in the event list.
- */
-void
-_XFreeEventCookies(Display *dpy)
-{
-    struct stored_event **head, *e, *tmp;
-
-    if (!dpy->cookiejar)
-        return;
-
-    head = (struct stored_event**)&dpy->cookiejar;
-
-    DL_FOREACH_SAFE(*head, e, tmp) {
-        if (dpy->cookiejar == e)
-            dpy->cookiejar = NULL;
-        XFree(e->ev.data);
-        XFree(e);
-    }
-}
-
-/**
- * Add an event to the display's event list. This event must be freed on the
- * next call to XNextEvent().
- */
-void
-_XStoreEventCookie(Display *dpy, XEvent *event)
-{
-    XGenericEventCookie* cookie = &event->xcookie;
-    struct stored_event **head, *add;
-
-    if (!_XIsEventCookie(dpy, event))
-        return;
-
-    head = (struct stored_event**)(&dpy->cookiejar);
-
-    add = Xmalloc(sizeof(struct stored_event));
-    if (!add) {
-        ESET(ENOMEM);
-        _XIOError(dpy);
-    }
-    add->ev = *cookie;
-    DL_APPEND(*head, add);
-    cookie->data = NULL; /* don't return data yet, must be claimed */
-}
-
-/**
- * Return the event with the given cookie and remove it from the list.
- */
-Bool
-_XFetchEventCookie(Display *dpy, XGenericEventCookie* ev)
-{
-    Bool ret = False;
-    struct stored_event **head, *event;
-    head = (struct stored_event**)&dpy->cookiejar;
-
-    if (!_XIsEventCookie(dpy, (XEvent*)ev))
-        return ret;
-
-    DL_FOREACH(*head, event) {
-        if (event->ev.cookie == ev->cookie &&
-            event->ev.extension == ev->extension &&
-            event->ev.evtype == ev->evtype) {
-            *ev = event->ev;
-            DL_DELETE(*head, event);
-            Xfree(event);
-            ret = True;
-            break;
-        }
-    }
-
-    return ret;
-}
-
-Bool
-_XCopyEventCookie(Display *dpy, XGenericEventCookie *in, XGenericEventCookie *out)
-{
-    Bool ret = False;
-    int extension;
-
-    if (!_XIsEventCookie(dpy, (XEvent*)in) || !out)
-        return ret;
-
-    extension = in->extension & 0x7F;
-
-    if (!dpy->generic_event_copy_vec[extension])
-        return ret;
-
-    ret = ((*dpy->generic_event_copy_vec[extension])(dpy, in, out));
-    out->cookie = ret ? ++dpy->next_cookie  : 0;
-    return ret;
-}
-
-
-/*
- * _XEnq - Place event packets on the display's queue.
- * note that no squishing of move events in V11, since there
- * is pointer motion hints....
- */
-void _XEnq(
-	register Display *dpy,
-	register xEvent *event)
-{
-	register _XQEvent *qelt;
-	int type, extension;
-
-	if ((qelt = dpy->qfree)) {
-		/* If dpy->qfree is non-NULL do this, else malloc a new one. */
-		dpy->qfree = qelt->next;
-	}
-	else if ((qelt =
-	    (_XQEvent *) Xmalloc((unsigned)sizeof(_XQEvent))) == NULL) {
-		/* Malloc call failed! */
-		ESET(ENOMEM);
-		_XIOError(dpy);
-	}
-	qelt->next = NULL;
-
-	type = event->u.u.type & 0177;
-	extension = ((xGenericEvent*)event)->extension;
-
-	qelt->event.type = type;
-	/* If an extension has registerd a generic_event_vec handler, then
-	 * it can handle event cookies. Otherwise, proceed with the normal
-	 * event handlers.
-	 *
-	 * If the generic_event_vec is called, qelt->event is a event cookie
-	 * with the data pointer and the "free" pointer set. Data pointer is
-	 * some memory allocated by the extension.
-	 */
-        if (type == GenericEvent && dpy->generic_event_vec[extension & 0x7F]) {
-	    XGenericEventCookie *cookie = &qelt->event.xcookie;
-	    (*dpy->generic_event_vec[extension & 0x7F])(dpy, cookie, event);
-	    cookie->cookie = ++dpy->next_cookie;
-
-	    qelt->qserial_num = dpy->next_event_serial_num++;
-	    if (dpy->tail)	dpy->tail->next = qelt;
-	    else		dpy->head = qelt;
-
-	    dpy->tail = qelt;
-	    dpy->qlen++;
-	} else if ((*dpy->event_vec[type])(dpy, &qelt->event, event)) {
-	    qelt->qserial_num = dpy->next_event_serial_num++;
-	    if (dpy->tail)	dpy->tail->next = qelt;
-	    else 		dpy->head = qelt;
-
-	    dpy->tail = qelt;
-	    dpy->qlen++;
-	} else {
-	    /* ignored, or stashed away for many-to-one compression */
-	    qelt->next = dpy->qfree;
-	    dpy->qfree = qelt;
-	}
-}
-
-/*
- * _XDeq - Remove event packet from the display's queue.
- */
-void _XDeq(
-    register Display *dpy,
-    register _XQEvent *prev,	/* element before qelt */
-    register _XQEvent *qelt)	/* element to be unlinked */
-{
-    if (prev) {
-	if ((prev->next = qelt->next) == NULL)
-	    dpy->tail = prev;
-    } else {
-	/* no prev, so removing first elt */
-	if ((dpy->head = qelt->next) == NULL)
-	    dpy->tail = NULL;
-    }
-    qelt->qserial_num = 0;
-    qelt->next = dpy->qfree;
-    dpy->qfree = qelt;
-    dpy->qlen--;
-
-    if (_XIsEventCookie(dpy, &qelt->event)) {
-	XGenericEventCookie* cookie = &qelt->event.xcookie;
-	/* dpy->qfree is re-used, reset memory to avoid double free on
-	 * _XFreeDisplayStructure */
-	cookie->data = NULL;
-    }
-}
-
-/*
- * EventToWire in separate file in that often not needed.
- */
-
-/*ARGSUSED*/
-Bool
-_XUnknownWireEvent(
-    register Display *dpy,	/* pointer to display structure */
-    register XEvent *re,	/* pointer to where event should be reformatted */
-    register xEvent *event)	/* wire protocol event */
-{
-#ifdef notdef
-	(void) fprintf(stderr,
-	    "Xlib: unhandled wire event! event number = %d, display = %x\n.",
-			event->u.u.type, dpy);
-#endif
-	return(False);
-}
-
-Bool
-_XUnknownWireEventCookie(
-    Display *dpy,	/* pointer to display structure */
-    XGenericEventCookie *re,	/* pointer to where event should be reformatted */
-    xEvent *event)	/* wire protocol event */
-{
-#ifdef notdef
-	fprintf(stderr,
-	    "Xlib: unhandled wire cookie event! extension number = %d, display = %x\n.",
-			((xGenericEvent*)event)->extension, dpy);
-#endif
-	return(False);
-}
-
-Bool
-_XUnknownCopyEventCookie(
-    Display *dpy,	/* pointer to display structure */
-    XGenericEventCookie *in,	/* source */
-    XGenericEventCookie *out)	/* destination */
-{
-#ifdef notdef
-	fprintf(stderr,
-	    "Xlib: unhandled cookie event copy! extension number = %d, display = %x\n.",
-			in->extension, dpy);
-#endif
-	return(False);
-}
-
-/*ARGSUSED*/
-Status
-_XUnknownNativeEvent(
-    register Display *dpy,	/* pointer to display structure */
-    register XEvent *re,	/* pointer to where event should be reformatted */
-    register xEvent *event)	/* wire protocol event */
-{
-#ifdef notdef
-	(void) fprintf(stderr,
- 	   "Xlib: unhandled native event! event number = %d, display = %x\n.",
-			re->type, dpy);
-#endif
-	return(0);
-}
-/*
- * reformat a wire event into an XEvent structure of the right type.
- */
-Bool
-_XWireToEvent(
-    register Display *dpy,	/* pointer to display structure */
-    register XEvent *re,	/* pointer to where event should be reformatted */
-    register xEvent *event)	/* wire protocol event */
-{
-
-	re->type = event->u.u.type & 0x7f;
-	((XAnyEvent *)re)->serial = _XSetLastRequestRead(dpy,
-					(xGenericReply *)event);
-	((XAnyEvent *)re)->send_event = ((event->u.u.type & 0x80) != 0);
-	((XAnyEvent *)re)->display = dpy;
-
-	/* Ignore the leading bit of the event type since it is set when a
-		client sends an event rather than the server. */
-
-	switch (event-> u.u.type & 0177) {
-	      case KeyPress:
-	      case KeyRelease:
-	        {
-			register XKeyEvent *ev = (XKeyEvent*) re;
-			ev->root 	= event->u.keyButtonPointer.root;
-			ev->window 	= event->u.keyButtonPointer.event;
-			ev->subwindow 	= event->u.keyButtonPointer.child;
-			ev->time 	= event->u.keyButtonPointer.time;
-			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);
-			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);
-			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);
-			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);
-			ev->state	= event->u.keyButtonPointer.state;
-			ev->same_screen	= event->u.keyButtonPointer.sameScreen;
-			ev->keycode 	= event->u.u.detail;
-		}
-	      	break;
-	      case ButtonPress:
-	      case ButtonRelease:
-	        {
-			register XButtonEvent *ev =  (XButtonEvent *) re;
-			ev->root 	= event->u.keyButtonPointer.root;
-			ev->window 	= event->u.keyButtonPointer.event;
-			ev->subwindow 	= event->u.keyButtonPointer.child;
-			ev->time 	= event->u.keyButtonPointer.time;
-			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);
-			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);
-			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);
-			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);
-			ev->state	= event->u.keyButtonPointer.state;
-			ev->same_screen	= event->u.keyButtonPointer.sameScreen;
-			ev->button 	= event->u.u.detail;
-		}
-	        break;
-	      case MotionNotify:
-	        {
-			register XMotionEvent *ev =   (XMotionEvent *)re;
-			ev->root 	= event->u.keyButtonPointer.root;
-			ev->window 	= event->u.keyButtonPointer.event;
-			ev->subwindow 	= event->u.keyButtonPointer.child;
-			ev->time 	= event->u.keyButtonPointer.time;
-			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);
-			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);
-			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);
-			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);
-			ev->state	= event->u.keyButtonPointer.state;
-			ev->same_screen	= event->u.keyButtonPointer.sameScreen;
-			ev->is_hint 	= event->u.u.detail;
-		}
-	        break;
-	      case EnterNotify:
-	      case LeaveNotify:
-		{
-			register XCrossingEvent *ev   = (XCrossingEvent *) re;
-			ev->root	= event->u.enterLeave.root;
-			ev->window	= event->u.enterLeave.event;
-			ev->subwindow	= event->u.enterLeave.child;
-			ev->time	= event->u.enterLeave.time;
-			ev->x		= cvtINT16toInt(event->u.enterLeave.eventX);
-			ev->y		= cvtINT16toInt(event->u.enterLeave.eventY);
-			ev->x_root	= cvtINT16toInt(event->u.enterLeave.rootX);
-			ev->y_root	= cvtINT16toInt(event->u.enterLeave.rootY);
-			ev->state	= event->u.enterLeave.state;
-			ev->mode	= event->u.enterLeave.mode;
-			ev->same_screen = (event->u.enterLeave.flags &
-				ELFlagSameScreen) && True;
-			ev->focus	= (event->u.enterLeave.flags &
-			  	ELFlagFocus) && True;
-			ev->detail	= event->u.u.detail;
-		}
-		  break;
-	      case FocusIn:
-	      case FocusOut:
-		{
-			register XFocusChangeEvent *ev = (XFocusChangeEvent *) re;
-			ev->window 	= event->u.focus.window;
-			ev->mode	= event->u.focus.mode;
-			ev->detail	= event->u.u.detail;
-		}
-		  break;
-	      case KeymapNotify:
-		{
-			register XKeymapEvent *ev = (XKeymapEvent *) re;
-			ev->window	= None;
-			memcpy(&ev->key_vector[1],
-			       (char *)((xKeymapEvent *) event)->map,
-			       sizeof (((xKeymapEvent *) event)->map));
-		}
-		break;
-	      case Expose:
-		{
-			register XExposeEvent *ev = (XExposeEvent *) re;
-			ev->window	= event->u.expose.window;
-			ev->x		= event->u.expose.x;
-			ev->y		= event->u.expose.y;
-			ev->width	= event->u.expose.width;
-			ev->height	= event->u.expose.height;
-			ev->count	= event->u.expose.count;
-		}
-		break;
-	      case GraphicsExpose:
-		{
-		    register XGraphicsExposeEvent *ev =
-			(XGraphicsExposeEvent *) re;
-		    ev->drawable	= event->u.graphicsExposure.drawable;
-		    ev->x		= event->u.graphicsExposure.x;
-		    ev->y		= event->u.graphicsExposure.y;
-		    ev->width		= event->u.graphicsExposure.width;
-		    ev->height		= event->u.graphicsExposure.height;
-		    ev->count		= event->u.graphicsExposure.count;
-		    ev->major_code	= event->u.graphicsExposure.majorEvent;
-		    ev->minor_code	= event->u.graphicsExposure.minorEvent;
-		}
-		break;
-	      case NoExpose:
-		{
-		    register XNoExposeEvent *ev = (XNoExposeEvent *) re;
-		    ev->drawable	= event->u.noExposure.drawable;
-		    ev->major_code	= event->u.noExposure.majorEvent;
-		    ev->minor_code	= event->u.noExposure.minorEvent;
-		}
-		break;
-	      case VisibilityNotify:
-		{
-		    register XVisibilityEvent *ev = (XVisibilityEvent *) re;
-		    ev->window		= event->u.visibility.window;
-		    ev->state		= event->u.visibility.state;
-		}
-		break;
-	      case CreateNotify:
-		{
-		    register XCreateWindowEvent *ev =
-			 (XCreateWindowEvent *) re;
-		    ev->window		= event->u.createNotify.window;
-		    ev->parent		= event->u.createNotify.parent;
-		    ev->x		= cvtINT16toInt(event->u.createNotify.x);
-		    ev->y		= cvtINT16toInt(event->u.createNotify.y);
-		    ev->width		= event->u.createNotify.width;
-		    ev->height		= event->u.createNotify.height;
-		    ev->border_width	= event->u.createNotify.borderWidth;
-		    ev->override_redirect	= event->u.createNotify.override;
-		}
-		break;
-	      case DestroyNotify:
-		{
-		    register XDestroyWindowEvent *ev =
-				(XDestroyWindowEvent *) re;
-		    ev->window		= event->u.destroyNotify.window;
-		    ev->event		= event->u.destroyNotify.event;
-		}
-		break;
-	      case UnmapNotify:
-		{
-		    register XUnmapEvent *ev = (XUnmapEvent *) re;
-		    ev->window		= event->u.unmapNotify.window;
-		    ev->event		= event->u.unmapNotify.event;
-		    ev->from_configure	= event->u.unmapNotify.fromConfigure;
-		}
-		break;
-	      case MapNotify:
-		{
-		    register XMapEvent *ev = (XMapEvent *) re;
-		    ev->window		= event->u.mapNotify.window;
-		    ev->event		= event->u.mapNotify.event;
-		    ev->override_redirect	= event->u.mapNotify.override;
-		}
-		break;
-	      case MapRequest:
-		{
-		    register XMapRequestEvent *ev = (XMapRequestEvent *) re;
-		    ev->window		= event->u.mapRequest.window;
-		    ev->parent		= event->u.mapRequest.parent;
-		}
-		break;
-	      case ReparentNotify:
-		{
-		    register XReparentEvent *ev = (XReparentEvent *) re;
-		    ev->event		= event->u.reparent.event;
-		    ev->window		= event->u.reparent.window;
-		    ev->parent		= event->u.reparent.parent;
-		    ev->x		= cvtINT16toInt(event->u.reparent.x);
-		    ev->y		= cvtINT16toInt(event->u.reparent.y);
-		    ev->override_redirect	= event->u.reparent.override;
-		}
-		break;
-	      case ConfigureNotify:
-		{
-		    register XConfigureEvent *ev = (XConfigureEvent *) re;
-		    ev->event	= event->u.configureNotify.event;
-		    ev->window	= event->u.configureNotify.window;
-		    ev->above	= event->u.configureNotify.aboveSibling;
-		    ev->x	= cvtINT16toInt(event->u.configureNotify.x);
-		    ev->y	= cvtINT16toInt(event->u.configureNotify.y);
-		    ev->width	= event->u.configureNotify.width;
-		    ev->height	= event->u.configureNotify.height;
-		    ev->border_width  = event->u.configureNotify.borderWidth;
-		    ev->override_redirect = event->u.configureNotify.override;
-		}
-		break;
-	      case ConfigureRequest:
-		{
-		    register XConfigureRequestEvent *ev =
-		        (XConfigureRequestEvent *) re;
-		    ev->window		= event->u.configureRequest.window;
-		    ev->parent		= event->u.configureRequest.parent;
-		    ev->above		= event->u.configureRequest.sibling;
-		    ev->x		= cvtINT16toInt(event->u.configureRequest.x);
-		    ev->y		= cvtINT16toInt(event->u.configureRequest.y);
-		    ev->width		= event->u.configureRequest.width;
-		    ev->height		= event->u.configureRequest.height;
-		    ev->border_width	= event->u.configureRequest.borderWidth;
-		    ev->value_mask	= event->u.configureRequest.valueMask;
-		    ev->detail  	= event->u.u.detail;
-		}
-		break;
-	      case GravityNotify:
-		{
-		    register XGravityEvent *ev = (XGravityEvent *) re;
-		    ev->window		= event->u.gravity.window;
-		    ev->event		= event->u.gravity.event;
-		    ev->x		= cvtINT16toInt(event->u.gravity.x);
-		    ev->y		= cvtINT16toInt(event->u.gravity.y);
-		}
-		break;
-	      case ResizeRequest:
-		{
-		    register XResizeRequestEvent *ev =
-			(XResizeRequestEvent *) re;
-		    ev->window		= event->u.resizeRequest.window;
-		    ev->width		= event->u.resizeRequest.width;
-		    ev->height		= event->u.resizeRequest.height;
-		}
-		break;
-	      case CirculateNotify:
-		{
-		    register XCirculateEvent *ev = (XCirculateEvent *) re;
-		    ev->window		= event->u.circulate.window;
-		    ev->event		= event->u.circulate.event;
-		    ev->place		= event->u.circulate.place;
-		}
-		break;
-	      case CirculateRequest:
-		{
-		    register XCirculateRequestEvent *ev =
-		        (XCirculateRequestEvent *) re;
-		    ev->window		= event->u.circulate.window;
-		    ev->parent		= event->u.circulate.event;
-		    ev->place		= event->u.circulate.place;
-		}
-		break;
-	      case PropertyNotify:
-		{
-		    register XPropertyEvent *ev = (XPropertyEvent *) re;
-		    ev->window		= event->u.property.window;
-		    ev->atom		= event->u.property.atom;
-		    ev->time		= event->u.property.time;
-		    ev->state		= event->u.property.state;
-		}
-		break;
-	      case SelectionClear:
-		{
-		    register XSelectionClearEvent *ev =
-			 (XSelectionClearEvent *) re;
-		    ev->window		= event->u.selectionClear.window;
-		    ev->selection	= event->u.selectionClear.atom;
-		    ev->time		= event->u.selectionClear.time;
-		}
-		break;
-	      case SelectionRequest:
-		{
-		    register XSelectionRequestEvent *ev =
-		        (XSelectionRequestEvent *) re;
-		    ev->owner		= event->u.selectionRequest.owner;
-		    ev->requestor	= event->u.selectionRequest.requestor;
-		    ev->selection	= event->u.selectionRequest.selection;
-		    ev->target		= event->u.selectionRequest.target;
-		    ev->property	= event->u.selectionRequest.property;
-		    ev->time		= event->u.selectionRequest.time;
-		}
-		break;
-	      case SelectionNotify:
-		{
-		    register XSelectionEvent *ev = (XSelectionEvent *) re;
-		    ev->requestor	= event->u.selectionNotify.requestor;
-		    ev->selection	= event->u.selectionNotify.selection;
-		    ev->target		= event->u.selectionNotify.target;
-		    ev->property	= event->u.selectionNotify.property;
-		    ev->time		= event->u.selectionNotify.time;
-		}
-		break;
-	      case ColormapNotify:
-		{
-		    register XColormapEvent *ev = (XColormapEvent *) re;
-		    ev->window		= event->u.colormap.window;
-		    ev->colormap	= event->u.colormap.colormap;
-		    ev->new		= event->u.colormap.new;
-		    ev->state		= event->u.colormap.state;
-	        }
-		break;
-	      case ClientMessage:
-		{
-		   register int i;
-		   register XClientMessageEvent *ev
-		   			= (XClientMessageEvent *) re;
-		   ev->window		= event->u.clientMessage.window;
-		   ev->format		= event->u.u.detail;
-		   switch (ev->format) {
-			case 8:
-			   ev->message_type = event->u.clientMessage.u.b.type;
-			   for (i = 0; i < 20; i++)
-			     ev->data.b[i] = event->u.clientMessage.u.b.bytes[i];
-			   break;
-			case 16:
-			   ev->message_type = event->u.clientMessage.u.s.type;
-			   ev->data.s[0] = cvtINT16toShort(event->u.clientMessage.u.s.shorts0);
-			   ev->data.s[1] = cvtINT16toShort(event->u.clientMessage.u.s.shorts1);
-			   ev->data.s[2] = cvtINT16toShort(event->u.clientMessage.u.s.shorts2);
-			   ev->data.s[3] = cvtINT16toShort(event->u.clientMessage.u.s.shorts3);
-			   ev->data.s[4] = cvtINT16toShort(event->u.clientMessage.u.s.shorts4);
-			   ev->data.s[5] = cvtINT16toShort(event->u.clientMessage.u.s.shorts5);
-			   ev->data.s[6] = cvtINT16toShort(event->u.clientMessage.u.s.shorts6);
-			   ev->data.s[7] = cvtINT16toShort(event->u.clientMessage.u.s.shorts7);
-			   ev->data.s[8] = cvtINT16toShort(event->u.clientMessage.u.s.shorts8);
-			   ev->data.s[9] = cvtINT16toShort(event->u.clientMessage.u.s.shorts9);
-			   break;
-			case 32:
-			   ev->message_type = event->u.clientMessage.u.l.type;
-			   ev->data.l[0] = cvtINT32toLong(event->u.clientMessage.u.l.longs0);
-			   ev->data.l[1] = cvtINT32toLong(event->u.clientMessage.u.l.longs1);
-			   ev->data.l[2] = cvtINT32toLong(event->u.clientMessage.u.l.longs2);
-			   ev->data.l[3] = cvtINT32toLong(event->u.clientMessage.u.l.longs3);
-			   ev->data.l[4] = cvtINT32toLong(event->u.clientMessage.u.l.longs4);
-			   break;
-			default: /* XXX should never occur */
-				break;
-		    }
-	        }
-		break;
-	      case MappingNotify:
-		{
-		   register XMappingEvent *ev = (XMappingEvent *)re;
-		   ev->window		= 0;
-		   ev->first_keycode 	= event->u.mappingNotify.firstKeyCode;
-		   ev->request 		= event->u.mappingNotify.request;
-		   ev->count 		= event->u.mappingNotify.count;
-		}
-		break;
-	      default:
-		return(_XUnknownWireEvent(dpy, re, event));
-	}
-	return(True);
-}
-
-
-/*
- * _XDefaultIOError - Default fatal system error reporting routine.  Called
- * when an X internal system error is encountered.
- */
-int _XDefaultIOError(
-	Display *dpy)
-{
-	if (ECHECK(EPIPE)) {
-	    (void) fprintf (stderr,
-	"X connection to %s broken (explicit kill or server shutdown).\r\n",
-			    DisplayString (dpy));
-	} else {
-	    (void) fprintf (stderr,
-			"XIO:  fatal IO error %d (%s) on X server \"%s\"\r\n",
-#ifdef WIN32
-			WSAGetLastError(), strerror(WSAGetLastError()),
-#else
-			errno, strerror (errno),
-#endif
-			DisplayString (dpy));
-	    (void) fprintf (stderr,
-	 "      after %lu requests (%lu known processed) with %d events remaining.\r\n",
-			NextRequest(dpy) - 1, LastKnownRequestProcessed(dpy),
-			QLength(dpy));
-
-	}
-	exit(1);
-        return(0); /* dummy - function should never return */
-}
-
-
-static int _XPrintDefaultError(
-    Display *dpy,
-    XErrorEvent *event,
-    FILE *fp)
-{
-    char buffer[BUFSIZ];
-    char mesg[BUFSIZ];
-    char number[32];
-    const char *mtype = "XlibMessage";
-    register _XExtension *ext = (_XExtension *)NULL;
-    _XExtension *bext = (_XExtension *)NULL;
-    XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);
-    XGetErrorDatabaseText(dpy, mtype, "XError", "X Error", mesg, BUFSIZ);
-    (void) fprintf(fp, "%s:  %s\n  ", mesg, buffer);
-    XGetErrorDatabaseText(dpy, mtype, "MajorCode", "Request Major code %d",
-	mesg, BUFSIZ);
-    (void) fprintf(fp, mesg, event->request_code);
-    if (event->request_code < 128) {
-	sprintf(number, "%d", event->request_code);
-	XGetErrorDatabaseText(dpy, "XRequest", number, "", buffer, BUFSIZ);
-    } else {
-	for (ext = dpy->ext_procs;
-	     ext && (ext->codes.major_opcode != event->request_code);
-	     ext = ext->next)
-	  ;
-	if (ext) {
-	    strncpy(buffer, ext->name, BUFSIZ);
-	    buffer[BUFSIZ - 1] = '\0';
-        } else
-	    buffer[0] = '\0';
-    }
-    (void) fprintf(fp, " (%s)\n", buffer);
-    if (event->request_code >= 128) {
-	XGetErrorDatabaseText(dpy, mtype, "MinorCode", "Request Minor code %d",
-			      mesg, BUFSIZ);
-	fputs("  ", fp);
-	(void) fprintf(fp, mesg, event->minor_code);
-	if (ext) {
-	    sprintf(mesg, "%s.%d", ext->name, event->minor_code);
-	    XGetErrorDatabaseText(dpy, "XRequest", mesg, "", buffer, BUFSIZ);
-	    (void) fprintf(fp, " (%s)", buffer);
-	}
-	fputs("\n", fp);
-    }
-    if (event->error_code >= 128) {
-	/* kludge, try to find the extension that caused it */
-	buffer[0] = '\0';
-	for (ext = dpy->ext_procs; ext; ext = ext->next) {
-	    if (ext->error_string)
-		(*ext->error_string)(dpy, event->error_code, &ext->codes,
-				     buffer, BUFSIZ);
-	    if (buffer[0]) {
-		bext = ext;
-		break;
-	    }
-	    if (ext->codes.first_error &&
-		ext->codes.first_error < (int)event->error_code &&
-		(!bext || ext->codes.first_error > bext->codes.first_error))
-		bext = ext;
-	}
-	if (bext)
-	    sprintf(buffer, "%s.%d", bext->name,
-		    event->error_code - bext->codes.first_error);
-	else
-	    strcpy(buffer, "Value");
-	XGetErrorDatabaseText(dpy, mtype, buffer, "", mesg, BUFSIZ);
-	if (mesg[0]) {
-	    fputs("  ", fp);
-	    (void) fprintf(fp, mesg, event->resourceid);
-	    fputs("\n", fp);
-	}
-	/* let extensions try to print the values */
-	for (ext = dpy->ext_procs; ext; ext = ext->next) {
-	    if (ext->error_values)
-		(*ext->error_values)(dpy, event, fp);
-	}
-    } else if ((event->error_code == BadWindow) ||
-	       (event->error_code == BadPixmap) ||
-	       (event->error_code == BadCursor) ||
-	       (event->error_code == BadFont) ||
-	       (event->error_code == BadDrawable) ||
-	       (event->error_code == BadColor) ||
-	       (event->error_code == BadGC) ||
-	       (event->error_code == BadIDChoice) ||
-	       (event->error_code == BadValue) ||
-	       (event->error_code == BadAtom)) {
-	if (event->error_code == BadValue)
-	    XGetErrorDatabaseText(dpy, mtype, "Value", "Value 0x%x",
-				  mesg, BUFSIZ);
-	else if (event->error_code == BadAtom)
-	    XGetErrorDatabaseText(dpy, mtype, "AtomID", "AtomID 0x%x",
-				  mesg, BUFSIZ);
-	else
-	    XGetErrorDatabaseText(dpy, mtype, "ResourceID", "ResourceID 0x%x",
-				  mesg, BUFSIZ);
-	fputs("  ", fp);
-	(void) fprintf(fp, mesg, event->resourceid);
-	fputs("\n", fp);
-    }
-    XGetErrorDatabaseText(dpy, mtype, "ErrorSerial", "Error Serial #%d",
-			  mesg, BUFSIZ);
-    fputs("  ", fp);
-    (void) fprintf(fp, mesg, event->serial);
-    XGetErrorDatabaseText(dpy, mtype, "CurrentSerial", "Current Serial #%d",
-			  mesg, BUFSIZ);
-    fputs("\n  ", fp);
-    (void) fprintf(fp, mesg, dpy->request);
-    fputs("\n", fp);
-    if (event->error_code == BadImplementation) return 0;
-    return 1;
-}
-
-int _XDefaultError(
-	Display *dpy,
-	XErrorEvent *event)
-{
-    if (_XPrintDefaultError (dpy, event, stderr) == 0) return 0;
-    exit(1);
-    /*NOTREACHED*/
-}
-
-/*ARGSUSED*/
-Bool _XDefaultWireError(Display *display, XErrorEvent *he, xError *we)
-{
-    return True;
-}
-
-/*
- * _XError - upcall internal or user protocol error handler
- */
-int _XError (
-    Display *dpy,
-    register xError *rep)
-{
-    /*
-     * X_Error packet encountered!  We need to unpack the error before
-     * giving it to the user.
-     */
-    XEvent event; /* make it a large event */
-    register _XAsyncHandler *async, *next;
-
-    event.xerror.serial = _XSetLastRequestRead(dpy, (xGenericReply *)rep);
-
-    for (async = dpy->async_handlers; async; async = next) {
-	next = async->next;
-	if ((*async->handler)(dpy, (xReply *)rep,
-			      (char *)rep, SIZEOF(xError), async->data))
-	    return 0;
-    }
-
-    event.xerror.display = dpy;
-    event.xerror.type = X_Error;
-    event.xerror.resourceid = rep->resourceID;
-    event.xerror.error_code = rep->errorCode;
-    event.xerror.request_code = rep->majorCode;
-    event.xerror.minor_code = rep->minorCode;
-    if (dpy->error_vec &&
-	!(*dpy->error_vec[rep->errorCode])(dpy, &event.xerror, rep))
-	return 0;
-    if (_XErrorFunction != NULL) {
-	int rtn_val;
-#ifdef XTHREADS
-	if (dpy->lock)
-	    (*dpy->lock->user_lock_display)(dpy);
-	UnlockDisplay(dpy);
-#endif
-	rtn_val = (*_XErrorFunction)(dpy, (XErrorEvent *)&event); /* upcall */
-#ifdef XTHREADS
-	LockDisplay(dpy);
-	if (dpy->lock)
-	    (*dpy->lock->user_unlock_display)(dpy);
-#endif
-	return rtn_val;
-    } else {
-	return _XDefaultError(dpy, (XErrorEvent *)&event);
-    }
-}
-
-/*
- * _XIOError - call user connection error handler and exit
- */
-int
-_XIOError (
-    Display *dpy)
-{
-    dpy->flags |= XlibDisplayIOError;
-#ifdef WIN32
-    errno = WSAGetLastError();
-#endif
-
-    /* This assumes that the thread calling exit will call any atexit handlers.
-     * If this does not hold, then an alternate solution would involve
-     * registering an atexit handler to take over the lock, which would only
-     * assume that the same thread calls all the atexit handlers. */
-#ifdef XTHREADS
-    if (dpy->lock)
-	(*dpy->lock->user_lock_display)(dpy);
-#endif
-    UnlockDisplay(dpy);
-
-    if (_XIOErrorFunction != NULL)
-	(*_XIOErrorFunction)(dpy);
-    else
-	_XDefaultIOError(dpy);
-    exit (1);
-    return 0;
-}
-
-
-/*
- * This routine can be used to (cheaply) get some memory within a single
- * Xlib routine for scratch space.  A single buffer is reused each time
- * if possible.  To be MT safe, you can only call this between a call to
- * GetReq* and a call to Data* or _XSend*, or in a context when the thread
- * is guaranteed to not unlock the display.
- */
-char *_XAllocScratch(
-	register Display *dpy,
-	unsigned long nbytes)
-{
-	if (nbytes > dpy->scratch_length) {
-	    if (dpy->scratch_buffer) Xfree (dpy->scratch_buffer);
-	    if ((dpy->scratch_buffer = Xmalloc((unsigned) nbytes)))
-		dpy->scratch_length = nbytes;
-	    else dpy->scratch_length = 0;
-	}
-	return (dpy->scratch_buffer);
-}
-
-/*
- * Scratch space allocator you can call any time, multiple times, and be
- * MT safe, but you must hand the buffer back with _XFreeTemp.
- */
-char *_XAllocTemp(
-    register Display *dpy,
-    unsigned long nbytes)
-{
-    char *buf;
-
-    buf = _XAllocScratch(dpy, nbytes);
-    dpy->scratch_buffer = NULL;
-    dpy->scratch_length = 0;
-    return buf;
-}
-
-void _XFreeTemp(
-    register Display *dpy,
-    char *buf,
-    unsigned long nbytes)
-{
-    if (dpy->scratch_buffer)
-	Xfree(dpy->scratch_buffer);
-    dpy->scratch_buffer = buf;
-    dpy->scratch_length = nbytes;
-}
-
-/*
- * Given a visual id, find the visual structure for this id on this display.
- */
-Visual *_XVIDtoVisual(
-	Display *dpy,
-	VisualID id)
-{
-	register int i, j, k;
-	register Screen *sp;
-	register Depth *dp;
-	register Visual *vp;
-	for (i = 0; i < dpy->nscreens; i++) {
-		sp = &dpy->screens[i];
-		for (j = 0; j < sp->ndepths; j++) {
-			dp = &sp->depths[j];
-			/* if nvisuals == 0 then visuals will be NULL */
-			for (k = 0; k < dp->nvisuals; k++) {
-				vp = &dp->visuals[k];
-				if (vp->visualid == id) return (vp);
-			}
-		}
-	}
-	return (NULL);
-}
-
-int
-XFree (void *data)
-{
-	Xfree (data);
-	return 1;
-}
-
-#ifdef _XNEEDBCOPYFUNC
-void _Xbcopy(b1, b2, length)
-    register char *b1, *b2;
-    register length;
-{
-    if (b1 < b2) {
-	b2 += length;
-	b1 += length;
-	while (length--)
-	    *--b2 = *--b1;
-    } else {
-	while (length--)
-	    *b2++ = *b1++;
-    }
-}
-#endif
-
-#ifdef DataRoutineIsProcedure
-void Data(
-	Display *dpy,
-	char *data,
-	long len)
-{
-	if (dpy->bufptr + (len) <= dpy->bufmax) {
-		memcpy(dpy->bufptr, data, (int)len);
-		dpy->bufptr += ((len) + 3) & ~3;
-	} else {
-		_XSend(dpy, data, len);
-	}
-}
-#endif /* DataRoutineIsProcedure */
-
-
-#ifdef LONG64
-int
-_XData32(
-    Display *dpy,
-    register long *data,
-    unsigned len)
-{
-    register int *buf;
-    register long i;
-
-    while (len) {
-	buf = (int *)dpy->bufptr;
-	i = dpy->bufmax - (char *)buf;
-	if (!i) {
-	    _XFlush(dpy);
-	    continue;
-	}
-	if (len < i)
-	    i = len;
-	dpy->bufptr = (char *)buf + i;
-	len -= i;
-	i >>= 2;
-	while (--i >= 0)
-	    *buf++ = *data++;
-    }
-    return 0;
-}
-#endif /* LONG64 */
-
-#ifdef WORD64
-
-/*
- * XXX This is a *really* stupid way of doing this.  It should just use
- * dpy->bufptr directly, taking into account where in the word it is.
- */
-
-/*
- * Data16 - Place 16 bit data in the buffer.
- *
- * "dpy" is a pointer to a Display.
- * "data" is a pointer to the data.
- * "len" is the length in bytes of the data.
- */
-
-static doData16(
-    register Display *dpy,
-    short *data,
-    unsigned len,
-    char *packbuffer)
-{
-    long *lp,*lpack;
-    long i, nwords,bits;
-    long mask16 = 0x000000000000ffff;
-
-        lp = (long *)data;
-        lpack = (long *)packbuffer;
-
-/*  nwords is the number of 16 bit values to be packed,
- *  the low order 16 bits of each word will be packed
- *  into 64 bit words
- */
-        nwords = len >> 1;
-        bits = 48;
-
-        for(i=0;i<nwords;i++){
-	   if (bits == 48) *lpack = 0;
-           *lpack ^= (*lp & mask16) << bits;
-           bits -= 16 ;
-           lp++;
-           if(bits < 0){
-               lpack++;
-               bits = 48;
-           }
-        }
-        Data(dpy, packbuffer, len);
-}
-
-_XData16 (
-    Display *dpy,
-    short *data,
-    unsigned len)
-{
-    char packbuffer[PACKBUFFERSIZE];
-    unsigned nunits = PACKBUFFERSIZE >> 1;
-
-    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {
-	doData16 (dpy, data, PACKBUFFERSIZE, packbuffer);
-    }
-    if (len) doData16 (dpy, data, len, packbuffer);
-}
-
-/*
- * Data32 - Place 32 bit data in the buffer.
- *
- * "dpy" is a pointer to a Display.
- * "data" is a pointer to the data.
- * "len" is the length in bytes of the data.
- */
-
-static doData32(
-    register Display *dpy
-    long *data,
-    unsigned len,
-    char *packbuffer)
-{
-    long *lp,*lpack;
-    long i,bits,nwords;
-    long mask32 = 0x00000000ffffffff;
-
-        lpack = (long *) packbuffer;
-        lp = data;
-
-/*  nwords is the number of 32 bit values to be packed
- *  the low order 32 bits of each word will be packed
- *  into 64 bit words
- */
-        nwords = len >> 2;
-        bits = 32;
-
-        for(i=0;i<nwords;i++){
-	   if (bits == 32) *lpack = 0;
-           *lpack ^= (*lp & mask32) << bits;
-           bits = bits ^32;
-           lp++;
-           if(bits)
-              lpack++;
-        }
-        Data(dpy, packbuffer, len);
-}
-
-void _XData32(
-    Display *dpy,
-    long *data,
-    unsigned len)
-{
-    char packbuffer[PACKBUFFERSIZE];
-    unsigned nunits = PACKBUFFERSIZE >> 2;
-
-    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {
-	doData32 (dpy, data, PACKBUFFERSIZE, packbuffer);
-    }
-    if (len) doData32 (dpy, data, len, packbuffer);
-}
-
-#endif /* WORD64 */
-
-
-/* Make sure this produces the same string as DefineLocal/DefineSelf in xdm.
- * Otherwise, Xau will not be able to find your cookies in the Xauthority file.
- *
- * Note: POSIX says that the ``nodename'' member of utsname does _not_ have
- *       to have sufficient information for interfacing to the network,
- *       and so, you may be better off using gethostname (if it exists).
- */
-
-#if (defined(_POSIX_SOURCE) && !defined(AIXV3) && !defined(__QNX__)) || defined(hpux) || defined(SVR4)
-#define NEED_UTSNAME
-#include <sys/utsname.h>
-#else
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-#endif
-
-/*
- * _XGetHostname - similar to gethostname but allows special processing.
- */
-int _XGetHostname (
-    char *buf,
-    int maxlen)
-{
-    int len;
-
-#ifdef NEED_UTSNAME
-    struct utsname name;
-
-    if (maxlen <= 0 || buf == NULL)
-	return 0;
-
-    uname (&name);
-    len = strlen (name.nodename);
-    if (len >= maxlen) len = maxlen - 1;
-    strncpy (buf, name.nodename, len);
-    buf[len] = '\0';
-#else
-    if (maxlen <= 0 || buf == NULL)
-	return 0;
-
-    buf[0] = '\0';
-    (void) gethostname (buf, maxlen);
-    buf [maxlen - 1] = '\0';
-    len = strlen(buf);
-#endif /* NEED_UTSNAME */
-    return len;
-}
-
-
-/*
- * _XScreenOfWindow - get the Screen of a given window
- */
-
-Screen *_XScreenOfWindow(Display *dpy, Window w)
-{
-    register int i;
-    Window root;
-    int x, y;				/* dummy variables */
-    unsigned int width, height, bw, depth;  /* dummy variables */
-
-    if (XGetGeometry (dpy, w, &root, &x, &y, &width, &height,
-		      &bw, &depth) == False) {
-	return NULL;
-    }
-    for (i = 0; i < ScreenCount (dpy); i++) {	/* find root from list */
-	if (root == RootWindow (dpy, i)) {
-	    return ScreenOfDisplay (dpy, i);
-	}
-    }
-    return NULL;
-}
-
-
-#if defined(WIN32)
-
-/*
- * These functions are intended to be used internally to Xlib only.
- * These functions will always prefix the path with a DOS drive in the
- * form "<drive-letter>:". As such, these functions are only suitable
- * for use by Xlib function that supply a root-based path to some
- * particular file, e.g. <ProjectRoot>/lib/X11/locale/locale.dir will
- * be converted to "C:/usr/X11R6.3/lib/X11/locale/locale.dir".
- */
-
-static int access_file (path, pathbuf, len_pathbuf, pathret)
-    char* path;
-    char* pathbuf;
-    int len_pathbuf;
-    char** pathret;
-{
-    if (access (path, F_OK) == 0) {
-	if (strlen (path) < len_pathbuf)
-	    *pathret = pathbuf;
-	else
-	    *pathret = Xmalloc (strlen (path) + 1);
-	if (*pathret) {
-	    strcpy (*pathret, path);
-	    return 1;
-	}
-    }
-    return 0;
-}
-
-static int AccessFile (path, pathbuf, len_pathbuf, pathret)
-    char* path;
-    char* pathbuf;
-    int len_pathbuf;
-    char** pathret;
-{
-    unsigned long drives;
-    int i, len;
-    char* drive;
-    char buf[MAX_PATH];
-    char* bufp;
-
-    /* just try the "raw" name first and see if it works */
-    if (access_file (path, pathbuf, len_pathbuf, pathret))
-	return 1;
-
-    /* try the places set in the environment */
-    drive = getenv ("_XBASEDRIVE");
-#ifdef __UNIXOS2__
-    if (!drive)
-	drive = getenv ("X11ROOT");
-#endif
-    if (!drive)
-	drive = "C:";
-    len = strlen (drive) + strlen (path);
-    if (len < MAX_PATH) bufp = buf;
-    else bufp = Xmalloc (len + 1);
-    strcpy (bufp, drive);
-    strcat (bufp, path);
-    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
-	if (bufp != buf) Xfree (bufp);
-	return 1;
-    }
-
-#ifndef __UNIXOS2__
-    /* one last place to look */
-    drive = getenv ("HOMEDRIVE");
-    if (drive) {
-	len = strlen (drive) + strlen (path);
-	if (len < MAX_PATH) bufp = buf;
-	else bufp = Xmalloc (len + 1);
-	strcpy (bufp, drive);
-	strcat (bufp, path);
-	if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
-	    if (bufp != buf) Xfree (bufp);
-	    return 1;
-	}
-    }
-
-    /* tried everywhere else, go fishing */
-#define C_DRIVE ('C' - 'A')
-#define Z_DRIVE ('Z' - 'A')
-    /* does OS/2 (with or with gcc-emx) have getdrives? */
-    drives = _getdrives ();
-    for (i = C_DRIVE; i <= Z_DRIVE; i++) { /* don't check on A: or B: */
-	if ((1 << i) & drives) {
-	    len = 2 + strlen (path);
-	    if (len < MAX_PATH) bufp = buf;
-	    else bufp = Xmalloc (len + 1);
-	    *bufp = 'A' + i;
-	    *(bufp + 1) = ':';
-	    *(bufp + 2) = '\0';
-	    strcat (bufp, path);
-	    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {
-		if (bufp != buf) Xfree (bufp);
-		return 1;
-	    }
-	}
-    }
-#endif
-    return 0;
-}
-
-int _XOpenFile(path, flags)
-    _Xconst char* path;
-    int flags;
-{
-    char buf[MAX_PATH];
-    char* bufp = NULL;
-    int ret = -1;
-    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);
-
-    if (AccessFile (path, buf, MAX_PATH, &bufp))
-	ret = open (bufp, flags);
-
-    (void) SetErrorMode (olderror);
-
-    if (bufp != buf) Xfree (bufp);
-
-    return ret;
-}
-
-int _XOpenFileMode(path, flags, mode)
-    _Xconst char* path;
-    int flags;
-    mode_t mode;
-{
-    char buf[MAX_PATH];
-    char* bufp = NULL;
-    int ret = -1;
-    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);
-
-    if (AccessFile (path, buf, MAX_PATH, &bufp))
-	ret = open (bufp, flags, mode);
-
-    (void) SetErrorMode (olderror);
-
-    if (bufp != buf) Xfree (bufp);
-
-    return ret;
-}
-
-void* _XFopenFile(path, mode)
-    _Xconst char* path;
-    _Xconst char* mode;
-{
-    char buf[MAX_PATH];
-    char* bufp = NULL;
-    void* ret = NULL;
-    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);
-
-    if (AccessFile (path, buf, MAX_PATH, &bufp))
-	ret = fopen (bufp, mode);
-
-    (void) SetErrorMode (olderror);
-
-    if (bufp != buf) Xfree (bufp);
-
-    return ret;
-}
-
-int _XAccessFile(path)
-    _Xconst char* path;
-{
-    char buf[MAX_PATH];
-    char* bufp;
-    int ret = -1;
-    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);
-
-    ret = AccessFile (path, buf, MAX_PATH, &bufp);
-
-    (void) SetErrorMode (olderror);
-
-    if (bufp != buf) Xfree (bufp);
-
-    return ret;
-}
-
-#endif
-
-#ifdef WIN32
-#undef _Xdebug
-int _Xdebug = 0;
-int *_Xdebug_p = &_Xdebug;
-void (**_XCreateMutex_fn_p)(LockInfoPtr) = &_XCreateMutex_fn;
-void (**_XFreeMutex_fn_p)(LockInfoPtr) = &_XFreeMutex_fn;
-void (**_XLockMutex_fn_p)(LockInfoPtr
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-        ) = &_XLockMutex_fn;
-void (**_XUnlockMutex_fn_p)(LockInfoPtr
-#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)
-    , char * /* file */
-    , int /* line */
-#endif
-        ) = &_XUnlockMutex_fn;
-LockInfoPtr *_Xglobal_lock_p = &_Xglobal_lock;
-#endif
+/*

+

+Copyright 1985, 1986, 1987, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+/*

+ *	XlibInt.c - Internal support routines for the C subroutine

+ *	interface library (Xlib) to the X Window System Protocol V11.0.

+ */

+

+#ifdef WIN32

+#define _XLIBINT_

+#include <X11\Xw32defs.h>

+#endif

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xprivate.h"

+#include <X11/Xpoll.h>

+#include <assert.h>

+#include <stdio.h>

+#ifdef WIN32

+#include <direct.h>

+#endif

+

+#ifdef XTHREADS

+#include "locking.h"

+

+/* these pointers get initialized by XInitThreads */

+LockInfoPtr _Xglobal_lock = NULL;

+void (*_XCreateMutex_fn)(LockInfoPtr) = NULL;

+/* struct _XCVList *(*_XCreateCVL_fn)() = NULL; */

+void (*_XFreeMutex_fn)(LockInfoPtr) = NULL;

+void (*_XLockMutex_fn)(

+    LockInfoPtr /* lock */

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+    ) = NULL;

+void (*_XUnlockMutex_fn)(

+    LockInfoPtr /* lock */

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+    ) = NULL;

+xthread_t (*_Xthread_self_fn)(void) = NULL;

+

+#define XThread_Self()	((*_Xthread_self_fn)())

+

+#endif /* XTHREADS */

+

+/* check for both EAGAIN and EWOULDBLOCK, because some supposedly POSIX

+ * systems are broken and return EWOULDBLOCK when they should return EAGAIN

+ */

+#ifdef WIN32

+#define ETEST() (WSAGetLastError() == WSAEWOULDBLOCK)

+#else

+#ifdef __CYGWIN__ /* Cygwin uses ENOBUFS to signal socket is full */

+#define ETEST() (errno == EAGAIN || errno == EWOULDBLOCK || errno == ENOBUFS)

+#else

+#if defined(EAGAIN) && defined(EWOULDBLOCK)

+#define ETEST() (errno == EAGAIN || errno == EWOULDBLOCK)

+#else

+#ifdef EAGAIN

+#define ETEST() (errno == EAGAIN)

+#else

+#define ETEST() (errno == EWOULDBLOCK)

+#endif /* EAGAIN */

+#endif /* EAGAIN && EWOULDBLOCK */

+#endif /* __CYGWIN__ */

+#endif /* WIN32 */

+

+#ifdef WIN32

+#define ECHECK(err) (WSAGetLastError() == err)

+#define ESET(val) WSASetLastError(val)

+#else

+#ifdef __UNIXOS2__

+#define ECHECK(err) (errno == err)

+#define ESET(val)

+#else

+#define ECHECK(err) (errno == err)

+#define ESET(val) errno = val

+#endif

+#endif

+

+#if defined(LOCALCONN) || defined(LACHMAN)

+#ifdef EMSGSIZE

+#define ESZTEST() (ECHECK(EMSGSIZE) || ECHECK(ERANGE))

+#else

+#define ESZTEST() ECHECK(ERANGE)

+#endif

+#else

+#ifdef EMSGSIZE

+#define ESZTEST() ECHECK(EMSGSIZE)

+#endif

+#endif

+

+#ifdef __UNIXOS2__

+#include <limits.h>

+#define MAX_PATH _POSIX_PATH_MAX

+#endif

+

+/*

+ * The following routines are internal routines used by Xlib for protocol

+ * packet transmission and reception.

+ *

+ * _XIOError(Display *) will be called if any sort of system call error occurs.

+ * This is assumed to be a fatal condition, i.e., XIOError should not return.

+ *

+ * _XError(Display *, xError *) will be called whenever an X_Error event is

+ * received.  This is not assumed to be a fatal condition, i.e., it is

+ * acceptable for this procedure to return.  However, XError should NOT

+ * perform any operations (directly or indirectly) on the DISPLAY.

+ *

+ * Routines declared with a return type of 'Status' return 0 on failure,

+ * and non 0 on success.  Routines with no declared return type don't

+ * return anything.  Whenever possible routines that create objects return

+ * the object they have created.

+ */

+

+#define POLLFD_CACHE_SIZE 5

+

+#if _WIN32_WINNT < _WIN32_WINNT_VISTA

+struct pollfd {

+

+    SOCKET  fd;

+    SHORT   events;

+    SHORT   revents;

+

+};

+#define POLLRDNORM  0x0100

+#define POLLRDBAND  0x0200

+#define POLLIN      (POLLRDNORM | POLLRDBAND)

+#endif

+

+/* initialize the struct array passed to poll() below */

+Bool _XPollfdCacheInit(

+    Display *dpy)

+{

+#ifdef USE_POLL

+    struct pollfd *pfp;

+

+    pfp = (struct pollfd *)Xmalloc(POLLFD_CACHE_SIZE * sizeof(struct pollfd));

+    if (!pfp)

+	return False;

+    pfp[0].fd = dpy->fd;

+    pfp[0].events = POLLIN;

+

+    dpy->filedes = (XPointer)pfp;

+#endif

+    return True;

+}

+

+void _XPollfdCacheAdd(

+    Display *dpy,

+    int fd)

+{

+#ifdef USE_POLL

+    struct pollfd *pfp = (struct pollfd *)dpy->filedes;

+

+    if (dpy->im_fd_length <= POLLFD_CACHE_SIZE) {

+	pfp[dpy->im_fd_length].fd = fd;

+	pfp[dpy->im_fd_length].events = POLLIN;

+    }

+#endif

+}

+

+/* ARGSUSED */

+void _XPollfdCacheDel(

+    Display *dpy,

+    int fd)			/* not used */

+{

+#ifdef USE_POLL

+    struct pollfd *pfp = (struct pollfd *)dpy->filedes;

+    struct _XConnectionInfo *conni;

+

+    /* just recalculate whole list */

+    if (dpy->im_fd_length <= POLLFD_CACHE_SIZE) {

+	int loc = 1;

+	for (conni = dpy->im_fd_info; conni; conni=conni->next) {

+	    pfp[loc].fd = conni->fd;

+	    pfp[loc].events = POLLIN;

+	    loc++;

+	}

+    }

+#endif

+}

+

+#ifdef _MSC_VER

+#undef min

+#define min __min

+#endif

+

+static int sync_hazard(Display *dpy)

+{

+    unsigned long span = dpy->request - dpy->last_request_read;

+    unsigned long hazard = min((dpy->bufmax - dpy->buffer) / SIZEOF(xReq), 65535 - 10);

+    return span >= 65535 - hazard - 10;

+}

+

+static

+void sync_while_locked(Display *dpy)

+{

+#ifdef XTHREADS

+    if (dpy->lock)

+        (*dpy->lock->user_lock_display)(dpy);

+#endif

+    UnlockDisplay(dpy);

+    SyncHandle();

+    InternalLockDisplay(dpy, /* don't skip user locks */ 0);

+#ifdef XTHREADS

+    if (dpy->lock)

+        (*dpy->lock->user_unlock_display)(dpy);

+#endif

+}

+

+void _XSeqSyncFunction(

+    register Display *dpy)

+{

+    xGetInputFocusReply rep;

+    register xReq *req;

+

+    if ((dpy->request - dpy->last_request_read) >= (65535 - BUFSIZE/SIZEOF(xReq))) {

+	GetEmptyReq(GetInputFocus, req);

+	(void) _XReply (dpy, (xReply *)&rep, 0, xTrue);

+	sync_while_locked(dpy);

+    } else if (sync_hazard(dpy))

+	_XSetPrivSyncFunction(dpy);

+}

+

+/* NOTE: only called if !XTHREADS, or when XInitThreads wasn't called. */

+static int

+_XPrivSyncFunction (Display *dpy)

+{

+#ifdef XTHREADS

+    assert(!dpy->lock_fns);

+#endif

+    assert(dpy->synchandler == _XPrivSyncFunction);

+    assert((dpy->flags & XlibDisplayPrivSync) != 0);

+    dpy->synchandler = dpy->savedsynchandler;

+    dpy->savedsynchandler = NULL;

+    dpy->flags &= ~XlibDisplayPrivSync;

+    if(dpy->synchandler)

+        dpy->synchandler(dpy);

+    _XIDHandler(dpy);

+    _XSeqSyncFunction(dpy);

+    return 0;

+}

+

+void _XSetPrivSyncFunction(Display *dpy)

+{

+#ifdef XTHREADS

+    if (dpy->lock_fns)

+        return;

+#endif

+    if (!(dpy->flags & XlibDisplayPrivSync)) {

+	dpy->savedsynchandler = dpy->synchandler;

+	dpy->synchandler = _XPrivSyncFunction;

+	dpy->flags |= XlibDisplayPrivSync;

+    }

+}

+

+void _XSetSeqSyncFunction(Display *dpy)

+{

+    if (sync_hazard(dpy))

+	_XSetPrivSyncFunction (dpy);

+}

+

+#ifdef LONG64

+void _XRead32(

+    Display *dpy,

+    register long *data,

+    long len)

+{

+    register int *buf;

+    register long i;

+

+    if (len) {

+	(void) _XRead(dpy, (char *)data, len);

+	i = len >> 2;

+	buf = (int *)data + i;

+	data += i;

+	while (--i >= 0)

+	    *--data = *--buf;

+    }

+}

+#endif /* LONG64 */

+

+#ifdef WORD64

+

+/*

+ * XXX This is a *really* stupid way of doing this....

+ * PACKBUFFERSIZE must be a multiple of 4.

+ */

+

+#define PACKBUFFERSIZE 4096

+

+

+/*

+ * _XRead32 - Read bytes from the socket unpacking each 32 bits

+ *            into a long (64 bits on a CRAY computer).

+ *

+ */

+static void _doXRead32(

+        register Display *dpy,

+        register long *data

+        register long size,

+	register char *packbuffer)

+{

+ long *lpack,*lp;

+ long mask32 = 0x00000000ffffffff;

+ long maskw, nwords, i, bits;

+

+        _XReadPad (dpy, packbuffer, size);

+

+        lp = data;

+        lpack = (long *) packbuffer;

+        nwords = size >> 2;

+        bits = 32;

+

+        for(i=0;i<nwords;i++){

+            maskw = mask32 << bits;

+           *lp++ = ( *lpack & maskw ) >> bits;

+            bits = bits ^32;

+            if(bits){

+               lpack++;

+            }

+        }

+}

+

+void _XRead32(

+    Display *dpy,

+    long *data,

+    long len)

+{

+    char packbuffer[PACKBUFFERSIZE];

+    unsigned nunits = PACKBUFFERSIZE >> 2;

+

+    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {

+	_doXRead32 (dpy, data, PACKBUFFERSIZE, packbuffer);

+    }

+    if (len) _doXRead32 (dpy, data, len, packbuffer);

+}

+

+

+

+/*

+ * _XRead16 - Read bytes from the socket unpacking each 16 bits

+ *            into a long (64 bits on a CRAY computer).

+ *

+ */

+static _doXRead16(

+        register Display *dpy,

+        register short *data,

+        register long size,

+	char *packbuffer)

+{

+	long *lpack,*lp;

+	long mask16 = 0x000000000000ffff;

+	long maskw, nwords, i, bits;

+

+        (void) _XRead(dpy,packbuffer,size);	/* don't do a padded read... */

+

+        lp = (long *) data;

+        lpack = (long *) packbuffer;

+        nwords = size >> 1;  /* number of 16 bit words to be unpacked */

+        bits = 48;

+        for(i=0;i<nwords;i++){

+            maskw = mask16 << bits;

+           *lp++ = ( *lpack & maskw ) >> bits;

+            bits -= 16;

+            if(bits < 0){

+               lpack++;

+               bits = 48;

+            }

+        }

+}

+

+void _XRead16(

+    Display *dpy,

+    short *data,

+    long len)

+{

+    char packbuffer[PACKBUFFERSIZE];

+    unsigned nunits = PACKBUFFERSIZE >> 1;

+

+    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {

+	_doXRead16 (dpy, data, PACKBUFFERSIZE, packbuffer);

+    }

+    if (len) _doXRead16 (dpy, data, len, packbuffer);

+}

+

+void _XRead16Pad(

+    Display *dpy,

+    short *data,

+    long size)

+{

+    int slop = (size & 3);

+    short slopbuf[3];

+

+    _XRead16 (dpy, data, size);

+    if (slop > 0) {

+	_XRead16 (dpy, slopbuf, 4 - slop);

+    }

+}

+#endif /* WORD64 */

+

+/*

+ * The hard part about this is that we only get 16 bits from a reply.

+ * We have three values that will march along, with the following invariant:

+ *	dpy->last_request_read <= rep->sequenceNumber <= dpy->request

+ * We have to keep

+ *	dpy->request - dpy->last_request_read < 2^16

+ * or else we won't know for sure what value to use in events.  We do this

+ * by forcing syncs when we get close.

+ */

+

+unsigned long

+_XSetLastRequestRead(

+    register Display *dpy,

+    register xGenericReply *rep)

+{

+    register unsigned long	newseq, lastseq;

+

+    lastseq = dpy->last_request_read;

+    /*

+     * KeymapNotify has no sequence number, but is always guaranteed

+     * to immediately follow another event, except when generated via

+     * SendEvent (hmmm).

+     */

+    if ((rep->type & 0x7f) == KeymapNotify)

+	return(lastseq);

+

+    newseq = (lastseq & ~((unsigned long)0xffff)) | rep->sequenceNumber;

+

+    if (newseq < lastseq) {

+	newseq += 0x10000;

+	if (newseq > dpy->request) {

+	    (void) fprintf (stderr,

+	    "Xlib: sequence lost (0x%lx > 0x%lx) in reply type 0x%x!\n",

+			    newseq, dpy->request,

+			    (unsigned int) rep->type);

+	    newseq -= 0x10000;

+	}

+    }

+

+    dpy->last_request_read = newseq;

+    return(newseq);

+}

+

+/*

+ * Support for internal connections, such as an IM might use.

+ * By Stephen Gildea, X Consortium, September 1993

+ */

+

+/* _XRegisterInternalConnection

+ * Each IM (or Xlib extension) that opens a file descriptor that Xlib should

+ * include in its select/poll mask must call this function to register the

+ * fd with Xlib.  Any XConnectionWatchProc registered by XAddConnectionWatch

+ * will also be called.

+ *

+ * Whenever Xlib detects input available on fd, it will call callback

+ * with call_data to process it.  If non-Xlib code calls select/poll

+ * and detects input available, it must call XProcessInternalConnection,

+ * which will call the associated callback.

+ *

+ * Non-Xlib code can learn about these additional fds by calling

+ * XInternalConnectionNumbers or, more typically, by registering

+ * a XConnectionWatchProc with XAddConnectionWatch

+ * to be called when fds are registered or unregistered.

+ *

+ * Returns True if registration succeeded, False if not, typically

+ * because could not allocate memory.

+ * Assumes Display locked when called.

+ */

+Status

+_XRegisterInternalConnection(

+    Display* dpy,

+    int fd,

+    _XInternalConnectionProc callback,

+    XPointer call_data

+)

+{

+    struct _XConnectionInfo *new_conni, **iptr;

+    struct _XConnWatchInfo *watchers;

+    XPointer *wd;

+

+    new_conni = (struct _XConnectionInfo*)Xmalloc(sizeof(struct _XConnectionInfo));

+    if (!new_conni)

+	return 0;

+    new_conni->watch_data = (XPointer *)Xmalloc(dpy->watcher_count * sizeof(XPointer));

+    if (!new_conni->watch_data) {

+	Xfree(new_conni);

+	return 0;

+    }

+    new_conni->fd = fd;

+    new_conni->read_callback = callback;

+    new_conni->call_data = call_data;

+    new_conni->next = NULL;

+    /* link new structure onto end of list */

+    for (iptr = &dpy->im_fd_info; *iptr; iptr = &(*iptr)->next)

+	;

+    *iptr = new_conni;

+    dpy->im_fd_length++;

+    _XPollfdCacheAdd(dpy, fd);

+

+    for (watchers=dpy->conn_watchers, wd=new_conni->watch_data;

+	 watchers;

+	 watchers=watchers->next, wd++) {

+	*wd = NULL;		/* for cleanliness */

+	(*watchers->fn) (dpy, watchers->client_data, fd, True, wd);

+    }

+

+    return 1;

+}

+

+/* _XUnregisterInternalConnection

+ * Each IM (or Xlib extension) that closes a file descriptor previously

+ * registered with _XRegisterInternalConnection must call this function.

+ * Any XConnectionWatchProc registered by XAddConnectionWatch

+ * will also be called.

+ *

+ * Assumes Display locked when called.

+ */

+void

+_XUnregisterInternalConnection(

+    Display* dpy,

+    int fd

+)

+{

+    struct _XConnectionInfo *info_list, **prev;

+    struct _XConnWatchInfo *watch;

+    XPointer *wd;

+

+    for (prev = &dpy->im_fd_info; (info_list = *prev);

+	 prev = &info_list->next) {

+	if (info_list->fd == fd) {

+	    *prev = info_list->next;

+	    dpy->im_fd_length--;

+	    for (watch=dpy->conn_watchers, wd=info_list->watch_data;

+		 watch;

+		 watch=watch->next, wd++) {

+		(*watch->fn) (dpy, watch->client_data, fd, False, wd);

+	    }

+	    if (info_list->watch_data)

+		Xfree (info_list->watch_data);

+	    Xfree (info_list);

+	    break;

+	}

+    }

+    _XPollfdCacheDel(dpy, fd);

+}

+

+/* XInternalConnectionNumbers

+ * Returns an array of fds and an array of corresponding call data.

+ * Typically a XConnectionWatchProc registered with XAddConnectionWatch

+ * will be used instead of this function to discover

+ * additional fds to include in the select/poll mask.

+ *

+ * The list is allocated with Xmalloc and should be freed by the caller

+ * with Xfree;

+ */

+Status

+XInternalConnectionNumbers(

+    Display *dpy,

+    int **fd_return,

+    int *count_return

+)

+{

+    int count;

+    struct _XConnectionInfo *info_list;

+    int *fd_list;

+

+    LockDisplay(dpy);

+    count = 0;

+    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next)

+	count++;

+    fd_list = (int*) Xmalloc (count * sizeof(int));

+    if (!fd_list) {

+	UnlockDisplay(dpy);

+	return 0;

+    }

+    count = 0;

+    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {

+	fd_list[count] = info_list->fd;

+	count++;

+    }

+    UnlockDisplay(dpy);

+

+    *fd_return = fd_list;

+    *count_return = count;

+    return 1;

+}

+

+void _XProcessInternalConnection(

+    Display *dpy,

+    struct _XConnectionInfo *conn_info)

+{

+    dpy->flags |= XlibDisplayProcConni;

+    UnlockDisplay(dpy);

+    (*conn_info->read_callback) (dpy, conn_info->fd, conn_info->call_data);

+    LockDisplay(dpy);

+    dpy->flags &= ~XlibDisplayProcConni;

+}

+

+/* XProcessInternalConnection

+ * Call the _XInternalConnectionProc registered by _XRegisterInternalConnection

+ * for this fd.

+ * The Display is NOT locked during the call.

+ */

+void

+XProcessInternalConnection(

+    Display* dpy,

+    int fd

+)

+{

+    struct _XConnectionInfo *info_list;

+

+    LockDisplay(dpy);

+    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {

+	if (info_list->fd == fd) {

+	    _XProcessInternalConnection(dpy, info_list);

+	    break;

+	}

+    }

+    UnlockDisplay(dpy);

+}

+

+/* XAddConnectionWatch

+ * Register a callback to be called whenever _XRegisterInternalConnection

+ * or _XUnregisterInternalConnection is called.

+ * Callbacks are called with the Display locked.

+ * If any connections are already registered, the callback is immediately

+ * called for each of them.

+ */

+Status

+XAddConnectionWatch(

+    Display* dpy,

+    XConnectionWatchProc callback,

+    XPointer client_data

+)

+{

+    struct _XConnWatchInfo *new_watcher, **wptr;

+    struct _XConnectionInfo *info_list;

+    XPointer *wd_array;

+

+    LockDisplay(dpy);

+

+    /* allocate new watch data */

+    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {

+	wd_array = (XPointer *)Xrealloc((char *)info_list->watch_data,

+					(dpy->watcher_count + 1) *

+					sizeof(XPointer));

+	if (!wd_array) {

+	    UnlockDisplay(dpy);

+	    return 0;

+	}

+	info_list->watch_data = wd_array;

+	wd_array[dpy->watcher_count] = NULL;	/* for cleanliness */

+    }

+

+    new_watcher = (struct _XConnWatchInfo*)Xmalloc(sizeof(struct _XConnWatchInfo));

+    if (!new_watcher) {

+	UnlockDisplay(dpy);

+	return 0;

+    }

+    new_watcher->fn = callback;

+    new_watcher->client_data = client_data;

+    new_watcher->next = NULL;

+

+    /* link new structure onto end of list */

+    for (wptr = &dpy->conn_watchers; *wptr; wptr = &(*wptr)->next)

+	;

+    *wptr = new_watcher;

+    dpy->watcher_count++;

+

+    /* call new watcher on all currently registered fds */

+    for (info_list=dpy->im_fd_info; info_list; info_list=info_list->next) {

+	(*callback) (dpy, client_data, info_list->fd, True,

+		     info_list->watch_data + dpy->watcher_count - 1);

+    }

+

+    UnlockDisplay(dpy);

+    return 1;

+}

+

+/* XRemoveConnectionWatch

+ * Unregister a callback registered by XAddConnectionWatch.

+ * Both callback and client_data must match what was passed to

+ * XAddConnectionWatch.

+ */

+void

+XRemoveConnectionWatch(

+    Display* dpy,

+    XConnectionWatchProc callback,

+    XPointer client_data

+)

+{

+    struct _XConnWatchInfo *watch;

+    struct _XConnWatchInfo *previous = NULL;

+    struct _XConnectionInfo *conni;

+    int counter = 0;

+

+    LockDisplay(dpy);

+    for (watch=dpy->conn_watchers; watch; watch=watch->next) {

+	if (watch->fn == callback  &&  watch->client_data == client_data) {

+	    if (previous)

+		previous->next = watch->next;

+	    else

+		dpy->conn_watchers = watch->next;

+	    Xfree (watch);

+	    dpy->watcher_count--;

+	    /* remove our watch_data for each connection */

+	    for (conni=dpy->im_fd_info; conni; conni=conni->next) {

+		/* don't bother realloc'ing; these arrays are small anyway */

+		/* overlapping */

+		memmove(conni->watch_data+counter,

+			conni->watch_data+counter+1,

+			dpy->watcher_count - counter);

+	    }

+	    break;

+	}

+	previous = watch;

+	counter++;

+    }

+    UnlockDisplay(dpy);

+}

+

+/* end of internal connections support */

+

+/* Cookie jar implementation

+   dpy->cookiejar is a linked list. _XEnq receives the events but leaves

+   them in the normal EQ. _XStoreEvent returns the cookie event (minus

+   data pointer) and adds it to the cookiejar. _XDeq just removes

+   the entry like any other event but resets the data pointer for

+   cookie events (to avoid double-free, the memory is re-used by Xlib).

+

+   _XFetchEventCookie (called from XGetEventData) removes a cookie from the

+   jar. _XFreeEventCookies removes all unclaimed cookies from the jar

+   (called by XNextEvent).

+

+   _XFreeDisplayStructure calls _XFreeEventCookies for each cookie in the

+   normal EQ.

+ */

+

+#include "utlist.h"

+struct stored_event {

+    XGenericEventCookie ev;

+    struct stored_event *prev;

+    struct stored_event *next;

+};

+

+Bool

+_XIsEventCookie(Display *dpy, XEvent *ev)

+{

+    return (ev->xcookie.type == GenericEvent &&

+	    dpy->generic_event_vec[ev->xcookie.extension & 0x7F] != NULL);

+}

+

+/**

+ * Free all events in the event list.

+ */

+void

+_XFreeEventCookies(Display *dpy)

+{

+    struct stored_event **head, *e, *tmp;

+

+    if (!dpy->cookiejar)

+        return;

+

+    head = (struct stored_event**)&dpy->cookiejar;

+

+    DL_FOREACH_SAFE(*head, e, tmp) {

+        if (dpy->cookiejar == e)

+            dpy->cookiejar = NULL;

+        XFree(e->ev.data);

+        XFree(e);

+    }

+}

+

+/**

+ * Add an event to the display's event list. This event must be freed on the

+ * next call to XNextEvent().

+ */

+void

+_XStoreEventCookie(Display *dpy, XEvent *event)

+{

+    XGenericEventCookie* cookie = &event->xcookie;

+    struct stored_event **head, *add;

+

+    if (!_XIsEventCookie(dpy, event))

+        return;

+

+    head = (struct stored_event**)(&dpy->cookiejar);

+

+    add = Xmalloc(sizeof(struct stored_event));

+    if (!add) {

+        ESET(ENOMEM);

+        _XIOError(dpy);

+    }

+    add->ev = *cookie;

+    DL_APPEND(*head, add);

+    cookie->data = NULL; /* don't return data yet, must be claimed */

+}

+

+/**

+ * Return the event with the given cookie and remove it from the list.

+ */

+Bool

+_XFetchEventCookie(Display *dpy, XGenericEventCookie* ev)

+{

+    Bool ret = False;

+    struct stored_event **head, *event;

+    head = (struct stored_event**)&dpy->cookiejar;

+

+    if (!_XIsEventCookie(dpy, (XEvent*)ev))

+        return ret;

+

+    DL_FOREACH(*head, event) {

+        if (event->ev.cookie == ev->cookie &&

+            event->ev.extension == ev->extension &&

+            event->ev.evtype == ev->evtype) {

+            *ev = event->ev;

+            DL_DELETE(*head, event);

+            Xfree(event);

+            ret = True;

+            break;

+        }

+    }

+

+    return ret;

+}

+

+Bool

+_XCopyEventCookie(Display *dpy, XGenericEventCookie *in, XGenericEventCookie *out)

+{

+    Bool ret = False;

+    int extension;

+

+    if (!_XIsEventCookie(dpy, (XEvent*)in) || !out)

+        return ret;

+

+    extension = in->extension & 0x7F;

+

+    if (!dpy->generic_event_copy_vec[extension])

+        return ret;

+

+    ret = ((*dpy->generic_event_copy_vec[extension])(dpy, in, out));

+    out->cookie = ret ? ++dpy->next_cookie  : 0;

+    return ret;

+}

+

+

+/*

+ * _XEnq - Place event packets on the display's queue.

+ * note that no squishing of move events in V11, since there

+ * is pointer motion hints....

+ */

+void _XEnq(

+	register Display *dpy,

+	register xEvent *event)

+{

+	register _XQEvent *qelt;

+	int type, extension;

+

+	if ((qelt = dpy->qfree)) {

+		/* If dpy->qfree is non-NULL do this, else malloc a new one. */

+		dpy->qfree = qelt->next;

+	}

+	else if ((qelt =

+	    (_XQEvent *) Xmalloc((unsigned)sizeof(_XQEvent))) == NULL) {

+		/* Malloc call failed! */

+		ESET(ENOMEM);

+		_XIOError(dpy);

+	}

+	qelt->next = NULL;

+

+	type = event->u.u.type & 0177;

+	extension = ((xGenericEvent*)event)->extension;

+

+	qelt->event.type = type;

+	/* If an extension has registerd a generic_event_vec handler, then

+	 * it can handle event cookies. Otherwise, proceed with the normal

+	 * event handlers.

+	 *

+	 * If the generic_event_vec is called, qelt->event is a event cookie

+	 * with the data pointer and the "free" pointer set. Data pointer is

+	 * some memory allocated by the extension.

+	 */

+        if (type == GenericEvent && dpy->generic_event_vec[extension & 0x7F]) {

+	    XGenericEventCookie *cookie = &qelt->event.xcookie;

+	    (*dpy->generic_event_vec[extension & 0x7F])(dpy, cookie, event);

+	    cookie->cookie = ++dpy->next_cookie;

+

+	    qelt->qserial_num = dpy->next_event_serial_num++;

+	    if (dpy->tail)	dpy->tail->next = qelt;

+	    else		dpy->head = qelt;

+

+	    dpy->tail = qelt;

+	    dpy->qlen++;

+	} else if ((*dpy->event_vec[type])(dpy, &qelt->event, event)) {

+	    qelt->qserial_num = dpy->next_event_serial_num++;

+	    if (dpy->tail)	dpy->tail->next = qelt;

+	    else 		dpy->head = qelt;

+

+	    dpy->tail = qelt;

+	    dpy->qlen++;

+	} else {

+	    /* ignored, or stashed away for many-to-one compression */

+	    qelt->next = dpy->qfree;

+	    dpy->qfree = qelt;

+	}

+}

+

+/*

+ * _XDeq - Remove event packet from the display's queue.

+ */

+void _XDeq(

+    register Display *dpy,

+    register _XQEvent *prev,	/* element before qelt */

+    register _XQEvent *qelt)	/* element to be unlinked */

+{

+    if (prev) {

+	if ((prev->next = qelt->next) == NULL)

+	    dpy->tail = prev;

+    } else {

+	/* no prev, so removing first elt */

+	if ((dpy->head = qelt->next) == NULL)

+	    dpy->tail = NULL;

+    }

+    qelt->qserial_num = 0;

+    qelt->next = dpy->qfree;

+    dpy->qfree = qelt;

+    dpy->qlen--;

+

+    if (_XIsEventCookie(dpy, &qelt->event)) {

+	XGenericEventCookie* cookie = &qelt->event.xcookie;

+	/* dpy->qfree is re-used, reset memory to avoid double free on

+	 * _XFreeDisplayStructure */

+	cookie->data = NULL;

+    }

+}

+

+/*

+ * EventToWire in separate file in that often not needed.

+ */

+

+/*ARGSUSED*/

+Bool

+_XUnknownWireEvent(

+    register Display *dpy,	/* pointer to display structure */

+    register XEvent *re,	/* pointer to where event should be reformatted */

+    register xEvent *event)	/* wire protocol event */

+{

+#ifdef notdef

+	(void) fprintf(stderr,

+	    "Xlib: unhandled wire event! event number = %d, display = %x\n.",

+			event->u.u.type, dpy);

+#endif

+	return(False);

+}

+

+Bool

+_XUnknownWireEventCookie(

+    Display *dpy,	/* pointer to display structure */

+    XGenericEventCookie *re,	/* pointer to where event should be reformatted */

+    xEvent *event)	/* wire protocol event */

+{

+#ifdef notdef

+	fprintf(stderr,

+	    "Xlib: unhandled wire cookie event! extension number = %d, display = %x\n.",

+			((xGenericEvent*)event)->extension, dpy);

+#endif

+	return(False);

+}

+

+Bool

+_XUnknownCopyEventCookie(

+    Display *dpy,	/* pointer to display structure */

+    XGenericEventCookie *in,	/* source */

+    XGenericEventCookie *out)	/* destination */

+{

+#ifdef notdef

+	fprintf(stderr,

+	    "Xlib: unhandled cookie event copy! extension number = %d, display = %x\n.",

+			in->extension, dpy);

+#endif

+	return(False);

+}

+

+/*ARGSUSED*/

+Status

+_XUnknownNativeEvent(

+    register Display *dpy,	/* pointer to display structure */

+    register XEvent *re,	/* pointer to where event should be reformatted */

+    register xEvent *event)	/* wire protocol event */

+{

+#ifdef notdef

+	(void) fprintf(stderr,

+ 	   "Xlib: unhandled native event! event number = %d, display = %x\n.",

+			re->type, dpy);

+#endif

+	return(0);

+}

+/*

+ * reformat a wire event into an XEvent structure of the right type.

+ */

+Bool

+_XWireToEvent(

+    register Display *dpy,	/* pointer to display structure */

+    register XEvent *re,	/* pointer to where event should be reformatted */

+    register xEvent *event)	/* wire protocol event */

+{

+

+	re->type = event->u.u.type & 0x7f;

+	((XAnyEvent *)re)->serial = _XSetLastRequestRead(dpy,

+					(xGenericReply *)event);

+	((XAnyEvent *)re)->send_event = ((event->u.u.type & 0x80) != 0);

+	((XAnyEvent *)re)->display = dpy;

+

+	/* Ignore the leading bit of the event type since it is set when a

+		client sends an event rather than the server. */

+

+	switch (event-> u.u.type & 0177) {

+	      case KeyPress:

+	      case KeyRelease:

+	        {

+			register XKeyEvent *ev = (XKeyEvent*) re;

+			ev->root 	= event->u.keyButtonPointer.root;

+			ev->window 	= event->u.keyButtonPointer.event;

+			ev->subwindow 	= event->u.keyButtonPointer.child;

+			ev->time 	= event->u.keyButtonPointer.time;

+			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);

+			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);

+			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);

+			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);

+			ev->state	= event->u.keyButtonPointer.state;

+			ev->same_screen	= event->u.keyButtonPointer.sameScreen;

+			ev->keycode 	= event->u.u.detail;

+		}

+	      	break;

+	      case ButtonPress:

+	      case ButtonRelease:

+	        {

+			register XButtonEvent *ev =  (XButtonEvent *) re;

+			ev->root 	= event->u.keyButtonPointer.root;

+			ev->window 	= event->u.keyButtonPointer.event;

+			ev->subwindow 	= event->u.keyButtonPointer.child;

+			ev->time 	= event->u.keyButtonPointer.time;

+			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);

+			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);

+			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);

+			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);

+			ev->state	= event->u.keyButtonPointer.state;

+			ev->same_screen	= event->u.keyButtonPointer.sameScreen;

+			ev->button 	= event->u.u.detail;

+		}

+	        break;

+	      case MotionNotify:

+	        {

+			register XMotionEvent *ev =   (XMotionEvent *)re;

+			ev->root 	= event->u.keyButtonPointer.root;

+			ev->window 	= event->u.keyButtonPointer.event;

+			ev->subwindow 	= event->u.keyButtonPointer.child;

+			ev->time 	= event->u.keyButtonPointer.time;

+			ev->x 		= cvtINT16toInt(event->u.keyButtonPointer.eventX);

+			ev->y 		= cvtINT16toInt(event->u.keyButtonPointer.eventY);

+			ev->x_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootX);

+			ev->y_root 	= cvtINT16toInt(event->u.keyButtonPointer.rootY);

+			ev->state	= event->u.keyButtonPointer.state;

+			ev->same_screen	= event->u.keyButtonPointer.sameScreen;

+			ev->is_hint 	= event->u.u.detail;

+		}

+	        break;

+	      case EnterNotify:

+	      case LeaveNotify:

+		{

+			register XCrossingEvent *ev   = (XCrossingEvent *) re;

+			ev->root	= event->u.enterLeave.root;

+			ev->window	= event->u.enterLeave.event;

+			ev->subwindow	= event->u.enterLeave.child;

+			ev->time	= event->u.enterLeave.time;

+			ev->x		= cvtINT16toInt(event->u.enterLeave.eventX);

+			ev->y		= cvtINT16toInt(event->u.enterLeave.eventY);

+			ev->x_root	= cvtINT16toInt(event->u.enterLeave.rootX);

+			ev->y_root	= cvtINT16toInt(event->u.enterLeave.rootY);

+			ev->state	= event->u.enterLeave.state;

+			ev->mode	= event->u.enterLeave.mode;

+			ev->same_screen = (event->u.enterLeave.flags &

+				ELFlagSameScreen) && True;

+			ev->focus	= (event->u.enterLeave.flags &

+			  	ELFlagFocus) && True;

+			ev->detail	= event->u.u.detail;

+		}

+		  break;

+	      case FocusIn:

+	      case FocusOut:

+		{

+			register XFocusChangeEvent *ev = (XFocusChangeEvent *) re;

+			ev->window 	= event->u.focus.window;

+			ev->mode	= event->u.focus.mode;

+			ev->detail	= event->u.u.detail;

+		}

+		  break;

+	      case KeymapNotify:

+		{

+			register XKeymapEvent *ev = (XKeymapEvent *) re;

+			ev->window	= None;

+			memcpy(&ev->key_vector[1],

+			       (char *)((xKeymapEvent *) event)->map,

+			       sizeof (((xKeymapEvent *) event)->map));

+		}

+		break;

+	      case Expose:

+		{

+			register XExposeEvent *ev = (XExposeEvent *) re;

+			ev->window	= event->u.expose.window;

+			ev->x		= event->u.expose.x;

+			ev->y		= event->u.expose.y;

+			ev->width	= event->u.expose.width;

+			ev->height	= event->u.expose.height;

+			ev->count	= event->u.expose.count;

+		}

+		break;

+	      case GraphicsExpose:

+		{

+		    register XGraphicsExposeEvent *ev =

+			(XGraphicsExposeEvent *) re;

+		    ev->drawable	= event->u.graphicsExposure.drawable;

+		    ev->x		= event->u.graphicsExposure.x;

+		    ev->y		= event->u.graphicsExposure.y;

+		    ev->width		= event->u.graphicsExposure.width;

+		    ev->height		= event->u.graphicsExposure.height;

+		    ev->count		= event->u.graphicsExposure.count;

+		    ev->major_code	= event->u.graphicsExposure.majorEvent;

+		    ev->minor_code	= event->u.graphicsExposure.minorEvent;

+		}

+		break;

+	      case NoExpose:

+		{

+		    register XNoExposeEvent *ev = (XNoExposeEvent *) re;

+		    ev->drawable	= event->u.noExposure.drawable;

+		    ev->major_code	= event->u.noExposure.majorEvent;

+		    ev->minor_code	= event->u.noExposure.minorEvent;

+		}

+		break;

+	      case VisibilityNotify:

+		{

+		    register XVisibilityEvent *ev = (XVisibilityEvent *) re;

+		    ev->window		= event->u.visibility.window;

+		    ev->state		= event->u.visibility.state;

+		}

+		break;

+	      case CreateNotify:

+		{

+		    register XCreateWindowEvent *ev =

+			 (XCreateWindowEvent *) re;

+		    ev->window		= event->u.createNotify.window;

+		    ev->parent		= event->u.createNotify.parent;

+		    ev->x		= cvtINT16toInt(event->u.createNotify.x);

+		    ev->y		= cvtINT16toInt(event->u.createNotify.y);

+		    ev->width		= event->u.createNotify.width;

+		    ev->height		= event->u.createNotify.height;

+		    ev->border_width	= event->u.createNotify.borderWidth;

+		    ev->override_redirect	= event->u.createNotify.override;

+		}

+		break;

+	      case DestroyNotify:

+		{

+		    register XDestroyWindowEvent *ev =

+				(XDestroyWindowEvent *) re;

+		    ev->window		= event->u.destroyNotify.window;

+		    ev->event		= event->u.destroyNotify.event;

+		}

+		break;

+	      case UnmapNotify:

+		{

+		    register XUnmapEvent *ev = (XUnmapEvent *) re;

+		    ev->window		= event->u.unmapNotify.window;

+		    ev->event		= event->u.unmapNotify.event;

+		    ev->from_configure	= event->u.unmapNotify.fromConfigure;

+		}

+		break;

+	      case MapNotify:

+		{

+		    register XMapEvent *ev = (XMapEvent *) re;

+		    ev->window		= event->u.mapNotify.window;

+		    ev->event		= event->u.mapNotify.event;

+		    ev->override_redirect	= event->u.mapNotify.override;

+		}

+		break;

+	      case MapRequest:

+		{

+		    register XMapRequestEvent *ev = (XMapRequestEvent *) re;

+		    ev->window		= event->u.mapRequest.window;

+		    ev->parent		= event->u.mapRequest.parent;

+		}

+		break;

+	      case ReparentNotify:

+		{

+		    register XReparentEvent *ev = (XReparentEvent *) re;

+		    ev->event		= event->u.reparent.event;

+		    ev->window		= event->u.reparent.window;

+		    ev->parent		= event->u.reparent.parent;

+		    ev->x		= cvtINT16toInt(event->u.reparent.x);

+		    ev->y		= cvtINT16toInt(event->u.reparent.y);

+		    ev->override_redirect	= event->u.reparent.override;

+		}

+		break;

+	      case ConfigureNotify:

+		{

+		    register XConfigureEvent *ev = (XConfigureEvent *) re;

+		    ev->event	= event->u.configureNotify.event;

+		    ev->window	= event->u.configureNotify.window;

+		    ev->above	= event->u.configureNotify.aboveSibling;

+		    ev->x	= cvtINT16toInt(event->u.configureNotify.x);

+		    ev->y	= cvtINT16toInt(event->u.configureNotify.y);

+		    ev->width	= event->u.configureNotify.width;

+		    ev->height	= event->u.configureNotify.height;

+		    ev->border_width  = event->u.configureNotify.borderWidth;

+		    ev->override_redirect = event->u.configureNotify.override;

+		}

+		break;

+	      case ConfigureRequest:

+		{

+		    register XConfigureRequestEvent *ev =

+		        (XConfigureRequestEvent *) re;

+		    ev->window		= event->u.configureRequest.window;

+		    ev->parent		= event->u.configureRequest.parent;

+		    ev->above		= event->u.configureRequest.sibling;

+		    ev->x		= cvtINT16toInt(event->u.configureRequest.x);

+		    ev->y		= cvtINT16toInt(event->u.configureRequest.y);

+		    ev->width		= event->u.configureRequest.width;

+		    ev->height		= event->u.configureRequest.height;

+		    ev->border_width	= event->u.configureRequest.borderWidth;

+		    ev->value_mask	= event->u.configureRequest.valueMask;

+		    ev->detail  	= event->u.u.detail;

+		}

+		break;

+	      case GravityNotify:

+		{

+		    register XGravityEvent *ev = (XGravityEvent *) re;

+		    ev->window		= event->u.gravity.window;

+		    ev->event		= event->u.gravity.event;

+		    ev->x		= cvtINT16toInt(event->u.gravity.x);

+		    ev->y		= cvtINT16toInt(event->u.gravity.y);

+		}

+		break;

+	      case ResizeRequest:

+		{

+		    register XResizeRequestEvent *ev =

+			(XResizeRequestEvent *) re;

+		    ev->window		= event->u.resizeRequest.window;

+		    ev->width		= event->u.resizeRequest.width;

+		    ev->height		= event->u.resizeRequest.height;

+		}

+		break;

+	      case CirculateNotify:

+		{

+		    register XCirculateEvent *ev = (XCirculateEvent *) re;

+		    ev->window		= event->u.circulate.window;

+		    ev->event		= event->u.circulate.event;

+		    ev->place		= event->u.circulate.place;

+		}

+		break;

+	      case CirculateRequest:

+		{

+		    register XCirculateRequestEvent *ev =

+		        (XCirculateRequestEvent *) re;

+		    ev->window		= event->u.circulate.window;

+		    ev->parent		= event->u.circulate.event;

+		    ev->place		= event->u.circulate.place;

+		}

+		break;

+	      case PropertyNotify:

+		{

+		    register XPropertyEvent *ev = (XPropertyEvent *) re;

+		    ev->window		= event->u.property.window;

+		    ev->atom		= event->u.property.atom;

+		    ev->time		= event->u.property.time;

+		    ev->state		= event->u.property.state;

+		}

+		break;

+	      case SelectionClear:

+		{

+		    register XSelectionClearEvent *ev =

+			 (XSelectionClearEvent *) re;

+		    ev->window		= event->u.selectionClear.window;

+		    ev->selection	= event->u.selectionClear.atom;

+		    ev->time		= event->u.selectionClear.time;

+		}

+		break;

+	      case SelectionRequest:

+		{

+		    register XSelectionRequestEvent *ev =

+		        (XSelectionRequestEvent *) re;

+		    ev->owner		= event->u.selectionRequest.owner;

+		    ev->requestor	= event->u.selectionRequest.requestor;

+		    ev->selection	= event->u.selectionRequest.selection;

+		    ev->target		= event->u.selectionRequest.target;

+		    ev->property	= event->u.selectionRequest.property;

+		    ev->time		= event->u.selectionRequest.time;

+		}

+		break;

+	      case SelectionNotify:

+		{

+		    register XSelectionEvent *ev = (XSelectionEvent *) re;

+		    ev->requestor	= event->u.selectionNotify.requestor;

+		    ev->selection	= event->u.selectionNotify.selection;

+		    ev->target		= event->u.selectionNotify.target;

+		    ev->property	= event->u.selectionNotify.property;

+		    ev->time		= event->u.selectionNotify.time;

+		}

+		break;

+	      case ColormapNotify:

+		{

+		    register XColormapEvent *ev = (XColormapEvent *) re;

+		    ev->window		= event->u.colormap.window;

+		    ev->colormap	= event->u.colormap.colormap;

+		    ev->new		= event->u.colormap.new;

+		    ev->state		= event->u.colormap.state;

+	        }

+		break;

+	      case ClientMessage:

+		{

+		   register int i;

+		   register XClientMessageEvent *ev

+		   			= (XClientMessageEvent *) re;

+		   ev->window		= event->u.clientMessage.window;

+		   ev->format		= event->u.u.detail;

+		   switch (ev->format) {

+			case 8:

+			   ev->message_type = event->u.clientMessage.u.b.type;

+			   for (i = 0; i < 20; i++)

+			     ev->data.b[i] = event->u.clientMessage.u.b.bytes[i];

+			   break;

+			case 16:

+			   ev->message_type = event->u.clientMessage.u.s.type;

+			   ev->data.s[0] = cvtINT16toShort(event->u.clientMessage.u.s.shorts0);

+			   ev->data.s[1] = cvtINT16toShort(event->u.clientMessage.u.s.shorts1);

+			   ev->data.s[2] = cvtINT16toShort(event->u.clientMessage.u.s.shorts2);

+			   ev->data.s[3] = cvtINT16toShort(event->u.clientMessage.u.s.shorts3);

+			   ev->data.s[4] = cvtINT16toShort(event->u.clientMessage.u.s.shorts4);

+			   ev->data.s[5] = cvtINT16toShort(event->u.clientMessage.u.s.shorts5);

+			   ev->data.s[6] = cvtINT16toShort(event->u.clientMessage.u.s.shorts6);

+			   ev->data.s[7] = cvtINT16toShort(event->u.clientMessage.u.s.shorts7);

+			   ev->data.s[8] = cvtINT16toShort(event->u.clientMessage.u.s.shorts8);

+			   ev->data.s[9] = cvtINT16toShort(event->u.clientMessage.u.s.shorts9);

+			   break;

+			case 32:

+			   ev->message_type = event->u.clientMessage.u.l.type;

+			   ev->data.l[0] = cvtINT32toLong(event->u.clientMessage.u.l.longs0);

+			   ev->data.l[1] = cvtINT32toLong(event->u.clientMessage.u.l.longs1);

+			   ev->data.l[2] = cvtINT32toLong(event->u.clientMessage.u.l.longs2);

+			   ev->data.l[3] = cvtINT32toLong(event->u.clientMessage.u.l.longs3);

+			   ev->data.l[4] = cvtINT32toLong(event->u.clientMessage.u.l.longs4);

+			   break;

+			default: /* XXX should never occur */

+				break;

+		    }

+	        }

+		break;

+	      case MappingNotify:

+		{

+		   register XMappingEvent *ev = (XMappingEvent *)re;

+		   ev->window		= 0;

+		   ev->first_keycode 	= event->u.mappingNotify.firstKeyCode;

+		   ev->request 		= event->u.mappingNotify.request;

+		   ev->count 		= event->u.mappingNotify.count;

+		}

+		break;

+	      default:

+		return(_XUnknownWireEvent(dpy, re, event));

+	}

+	return(True);

+}

+

+

+/*

+ * _XDefaultIOError - Default fatal system error reporting routine.  Called

+ * when an X internal system error is encountered.

+ */

+int _XDefaultIOError(

+	Display *dpy)

+{

+	if (ECHECK(EPIPE)) {

+	    (void) fprintf (stderr,

+	"X connection to %s broken (explicit kill or server shutdown).\r\n",

+			    DisplayString (dpy));

+	} else {

+	    (void) fprintf (stderr,

+			"XIO:  fatal IO error %d (%s) on X server \"%s\"\r\n",

+#ifdef WIN32

+			WSAGetLastError(), strerror(WSAGetLastError()),

+#else

+			errno, strerror (errno),

+#endif

+			DisplayString (dpy));

+	    (void) fprintf (stderr,

+	 "      after %lu requests (%lu known processed) with %d events remaining.\r\n",

+			NextRequest(dpy) - 1, LastKnownRequestProcessed(dpy),

+			QLength(dpy));

+

+	}

+	exit(1);

+        return(0); /* dummy - function should never return */

+}

+

+

+static int _XPrintDefaultError(

+    Display *dpy,

+    XErrorEvent *event,

+    FILE *fp)

+{

+    char buffer[BUFSIZ];

+    char mesg[BUFSIZ];

+    char number[32];

+    const char *mtype = "XlibMessage";

+    register _XExtension *ext = (_XExtension *)NULL;

+    _XExtension *bext = (_XExtension *)NULL;

+    XGetErrorText(dpy, event->error_code, buffer, BUFSIZ);

+    XGetErrorDatabaseText(dpy, mtype, "XError", "X Error", mesg, BUFSIZ);

+    (void) fprintf(fp, "%s:  %s\n  ", mesg, buffer);

+    XGetErrorDatabaseText(dpy, mtype, "MajorCode", "Request Major code %d",

+	mesg, BUFSIZ);

+    (void) fprintf(fp, mesg, event->request_code);

+    if (event->request_code < 128) {

+	sprintf(number, "%d", event->request_code);

+	XGetErrorDatabaseText(dpy, "XRequest", number, "", buffer, BUFSIZ);

+    } else {

+	for (ext = dpy->ext_procs;

+	     ext && (ext->codes.major_opcode != event->request_code);

+	     ext = ext->next)

+	  ;

+	if (ext) {

+	    strncpy(buffer, ext->name, BUFSIZ);

+	    buffer[BUFSIZ - 1] = '\0';

+        } else

+	    buffer[0] = '\0';

+    }

+    (void) fprintf(fp, " (%s)\n", buffer);

+    if (event->request_code >= 128) {

+	XGetErrorDatabaseText(dpy, mtype, "MinorCode", "Request Minor code %d",

+			      mesg, BUFSIZ);

+	fputs("  ", fp);

+	(void) fprintf(fp, mesg, event->minor_code);

+	if (ext) {

+	    sprintf(mesg, "%s.%d", ext->name, event->minor_code);

+	    XGetErrorDatabaseText(dpy, "XRequest", mesg, "", buffer, BUFSIZ);

+	    (void) fprintf(fp, " (%s)", buffer);

+	}

+	fputs("\n", fp);

+    }

+    if (event->error_code >= 128) {

+	/* kludge, try to find the extension that caused it */

+	buffer[0] = '\0';

+	for (ext = dpy->ext_procs; ext; ext = ext->next) {

+	    if (ext->error_string)

+		(*ext->error_string)(dpy, event->error_code, &ext->codes,

+				     buffer, BUFSIZ);

+	    if (buffer[0]) {

+		bext = ext;

+		break;

+	    }

+	    if (ext->codes.first_error &&

+		ext->codes.first_error < (int)event->error_code &&

+		(!bext || ext->codes.first_error > bext->codes.first_error))

+		bext = ext;

+	}

+	if (bext)

+	    sprintf(buffer, "%s.%d", bext->name,

+		    event->error_code - bext->codes.first_error);

+	else

+	    strcpy(buffer, "Value");

+	XGetErrorDatabaseText(dpy, mtype, buffer, "", mesg, BUFSIZ);

+	if (mesg[0]) {

+	    fputs("  ", fp);

+	    (void) fprintf(fp, mesg, event->resourceid);

+	    fputs("\n", fp);

+	}

+	/* let extensions try to print the values */

+	for (ext = dpy->ext_procs; ext; ext = ext->next) {

+	    if (ext->error_values)

+		(*ext->error_values)(dpy, event, fp);

+	}

+    } else if ((event->error_code == BadWindow) ||

+	       (event->error_code == BadPixmap) ||

+	       (event->error_code == BadCursor) ||

+	       (event->error_code == BadFont) ||

+	       (event->error_code == BadDrawable) ||

+	       (event->error_code == BadColor) ||

+	       (event->error_code == BadGC) ||

+	       (event->error_code == BadIDChoice) ||

+	       (event->error_code == BadValue) ||

+	       (event->error_code == BadAtom)) {

+	if (event->error_code == BadValue)

+	    XGetErrorDatabaseText(dpy, mtype, "Value", "Value 0x%x",

+				  mesg, BUFSIZ);

+	else if (event->error_code == BadAtom)

+	    XGetErrorDatabaseText(dpy, mtype, "AtomID", "AtomID 0x%x",

+				  mesg, BUFSIZ);

+	else

+	    XGetErrorDatabaseText(dpy, mtype, "ResourceID", "ResourceID 0x%x",

+				  mesg, BUFSIZ);

+	fputs("  ", fp);

+	(void) fprintf(fp, mesg, event->resourceid);

+	fputs("\n", fp);

+    }

+    XGetErrorDatabaseText(dpy, mtype, "ErrorSerial", "Error Serial #%d",

+			  mesg, BUFSIZ);

+    fputs("  ", fp);

+    (void) fprintf(fp, mesg, event->serial);

+    XGetErrorDatabaseText(dpy, mtype, "CurrentSerial", "Current Serial #%d",

+			  mesg, BUFSIZ);

+    fputs("\n  ", fp);

+    (void) fprintf(fp, mesg, dpy->request);

+    fputs("\n", fp);

+    if (event->error_code == BadImplementation) return 0;

+    return 1;

+}

+

+int _XDefaultError(

+	Display *dpy,

+	XErrorEvent *event)

+{

+    if (_XPrintDefaultError (dpy, event, stderr) == 0) return 0;

+    exit(1);

+    /*NOTREACHED*/

+}

+

+/*ARGSUSED*/

+Bool _XDefaultWireError(Display *display, XErrorEvent *he, xError *we)

+{

+    return True;

+}

+

+/*

+ * _XError - upcall internal or user protocol error handler

+ */

+int _XError (

+    Display *dpy,

+    register xError *rep)

+{

+    /*

+     * X_Error packet encountered!  We need to unpack the error before

+     * giving it to the user.

+     */

+    XEvent event; /* make it a large event */

+    register _XAsyncHandler *async, *next;

+

+    event.xerror.serial = _XSetLastRequestRead(dpy, (xGenericReply *)rep);

+

+    for (async = dpy->async_handlers; async; async = next) {

+	next = async->next;

+	if ((*async->handler)(dpy, (xReply *)rep,

+			      (char *)rep, SIZEOF(xError), async->data))

+	    return 0;

+    }

+

+    event.xerror.display = dpy;

+    event.xerror.type = X_Error;

+    event.xerror.resourceid = rep->resourceID;

+    event.xerror.error_code = rep->errorCode;

+    event.xerror.request_code = rep->majorCode;

+    event.xerror.minor_code = rep->minorCode;

+    if (dpy->error_vec &&

+	!(*dpy->error_vec[rep->errorCode])(dpy, &event.xerror, rep))

+	return 0;

+    if (_XErrorFunction != NULL) {

+	int rtn_val;

+#ifdef XTHREADS

+	if (dpy->lock)

+	    (*dpy->lock->user_lock_display)(dpy);

+	UnlockDisplay(dpy);

+#endif

+	rtn_val = (*_XErrorFunction)(dpy, (XErrorEvent *)&event); /* upcall */

+#ifdef XTHREADS

+	LockDisplay(dpy);

+	if (dpy->lock)

+	    (*dpy->lock->user_unlock_display)(dpy);

+#endif

+	return rtn_val;

+    } else {

+	return _XDefaultError(dpy, (XErrorEvent *)&event);

+    }

+}

+

+/*

+ * _XIOError - call user connection error handler and exit

+ */

+int

+_XIOError (

+    Display *dpy)

+{

+    dpy->flags |= XlibDisplayIOError;

+#ifdef WIN32

+    errno = WSAGetLastError();

+#endif

+

+    /* This assumes that the thread calling exit will call any atexit handlers.

+     * If this does not hold, then an alternate solution would involve

+     * registering an atexit handler to take over the lock, which would only

+     * assume that the same thread calls all the atexit handlers. */

+#ifdef XTHREADS

+    if (dpy->lock)

+	(*dpy->lock->user_lock_display)(dpy);

+#endif

+    UnlockDisplay(dpy);

+

+    if (_XIOErrorFunction != NULL)

+	(*_XIOErrorFunction)(dpy);

+    else

+	_XDefaultIOError(dpy);

+    exit (1);

+    return 0;

+}

+

+

+/*

+ * This routine can be used to (cheaply) get some memory within a single

+ * Xlib routine for scratch space.  A single buffer is reused each time

+ * if possible.  To be MT safe, you can only call this between a call to

+ * GetReq* and a call to Data* or _XSend*, or in a context when the thread

+ * is guaranteed to not unlock the display.

+ */

+char *_XAllocScratch(

+	register Display *dpy,

+	unsigned long nbytes)

+{

+	if (nbytes > dpy->scratch_length) {

+	    if (dpy->scratch_buffer) Xfree (dpy->scratch_buffer);

+	    if ((dpy->scratch_buffer = Xmalloc((unsigned) nbytes)))

+		dpy->scratch_length = nbytes;

+	    else dpy->scratch_length = 0;

+	}

+	return (dpy->scratch_buffer);

+}

+

+/*

+ * Scratch space allocator you can call any time, multiple times, and be

+ * MT safe, but you must hand the buffer back with _XFreeTemp.

+ */

+char *_XAllocTemp(

+    register Display *dpy,

+    unsigned long nbytes)

+{

+    char *buf;

+

+    buf = _XAllocScratch(dpy, nbytes);

+    dpy->scratch_buffer = NULL;

+    dpy->scratch_length = 0;

+    return buf;

+}

+

+void _XFreeTemp(

+    register Display *dpy,

+    char *buf,

+    unsigned long nbytes)

+{

+    if (dpy->scratch_buffer)

+	Xfree(dpy->scratch_buffer);

+    dpy->scratch_buffer = buf;

+    dpy->scratch_length = nbytes;

+}

+

+/*

+ * Given a visual id, find the visual structure for this id on this display.

+ */

+Visual *_XVIDtoVisual(

+	Display *dpy,

+	VisualID id)

+{

+	register int i, j, k;

+	register Screen *sp;

+	register Depth *dp;

+	register Visual *vp;

+	for (i = 0; i < dpy->nscreens; i++) {

+		sp = &dpy->screens[i];

+		for (j = 0; j < sp->ndepths; j++) {

+			dp = &sp->depths[j];

+			/* if nvisuals == 0 then visuals will be NULL */

+			for (k = 0; k < dp->nvisuals; k++) {

+				vp = &dp->visuals[k];

+				if (vp->visualid == id) return (vp);

+			}

+		}

+	}

+	return (NULL);

+}

+

+int

+XFree (void *data)

+{

+	Xfree (data);

+	return 1;

+}

+

+#ifdef _XNEEDBCOPYFUNC

+void _Xbcopy(b1, b2, length)

+    register char *b1, *b2;

+    register length;

+{

+    if (b1 < b2) {

+	b2 += length;

+	b1 += length;

+	while (length--)

+	    *--b2 = *--b1;

+    } else {

+	while (length--)

+	    *b2++ = *b1++;

+    }

+}

+#endif

+

+#ifdef DataRoutineIsProcedure

+void Data(

+	Display *dpy,

+	char *data,

+	long len)

+{

+	if (dpy->bufptr + (len) <= dpy->bufmax) {

+		memcpy(dpy->bufptr, data, (int)len);

+		dpy->bufptr += ((len) + 3) & ~3;

+	} else {

+		_XSend(dpy, data, len);

+	}

+}

+#endif /* DataRoutineIsProcedure */

+

+

+#ifdef LONG64

+int

+_XData32(

+    Display *dpy,

+    register long *data,

+    unsigned len)

+{

+    register int *buf;

+    register long i;

+

+    while (len) {

+	buf = (int *)dpy->bufptr;

+	i = dpy->bufmax - (char *)buf;

+	if (!i) {

+	    _XFlush(dpy);

+	    continue;

+	}

+	if (len < i)

+	    i = len;

+	dpy->bufptr = (char *)buf + i;

+	len -= i;

+	i >>= 2;

+	while (--i >= 0)

+	    *buf++ = *data++;

+    }

+    return 0;

+}

+#endif /* LONG64 */

+

+#ifdef WORD64

+

+/*

+ * XXX This is a *really* stupid way of doing this.  It should just use

+ * dpy->bufptr directly, taking into account where in the word it is.

+ */

+

+/*

+ * Data16 - Place 16 bit data in the buffer.

+ *

+ * "dpy" is a pointer to a Display.

+ * "data" is a pointer to the data.

+ * "len" is the length in bytes of the data.

+ */

+

+static doData16(

+    register Display *dpy,

+    short *data,

+    unsigned len,

+    char *packbuffer)

+{

+    long *lp,*lpack;

+    long i, nwords,bits;

+    long mask16 = 0x000000000000ffff;

+

+        lp = (long *)data;

+        lpack = (long *)packbuffer;

+

+/*  nwords is the number of 16 bit values to be packed,

+ *  the low order 16 bits of each word will be packed

+ *  into 64 bit words

+ */

+        nwords = len >> 1;

+        bits = 48;

+

+        for(i=0;i<nwords;i++){

+	   if (bits == 48) *lpack = 0;

+           *lpack ^= (*lp & mask16) << bits;

+           bits -= 16 ;

+           lp++;

+           if(bits < 0){

+               lpack++;

+               bits = 48;

+           }

+        }

+        Data(dpy, packbuffer, len);

+}

+

+_XData16 (

+    Display *dpy,

+    short *data,

+    unsigned len)

+{

+    char packbuffer[PACKBUFFERSIZE];

+    unsigned nunits = PACKBUFFERSIZE >> 1;

+

+    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {

+	doData16 (dpy, data, PACKBUFFERSIZE, packbuffer);

+    }

+    if (len) doData16 (dpy, data, len, packbuffer);

+}

+

+/*

+ * Data32 - Place 32 bit data in the buffer.

+ *

+ * "dpy" is a pointer to a Display.

+ * "data" is a pointer to the data.

+ * "len" is the length in bytes of the data.

+ */

+

+static doData32(

+    register Display *dpy

+    long *data,

+    unsigned len,

+    char *packbuffer)

+{

+    long *lp,*lpack;

+    long i,bits,nwords;

+    long mask32 = 0x00000000ffffffff;

+

+        lpack = (long *) packbuffer;

+        lp = data;

+

+/*  nwords is the number of 32 bit values to be packed

+ *  the low order 32 bits of each word will be packed

+ *  into 64 bit words

+ */

+        nwords = len >> 2;

+        bits = 32;

+

+        for(i=0;i<nwords;i++){

+	   if (bits == 32) *lpack = 0;

+           *lpack ^= (*lp & mask32) << bits;

+           bits = bits ^32;

+           lp++;

+           if(bits)

+              lpack++;

+        }

+        Data(dpy, packbuffer, len);

+}

+

+void _XData32(

+    Display *dpy,

+    long *data,

+    unsigned len)

+{

+    char packbuffer[PACKBUFFERSIZE];

+    unsigned nunits = PACKBUFFERSIZE >> 2;

+

+    for (; len > PACKBUFFERSIZE; len -= PACKBUFFERSIZE, data += nunits) {

+	doData32 (dpy, data, PACKBUFFERSIZE, packbuffer);

+    }

+    if (len) doData32 (dpy, data, len, packbuffer);

+}

+

+#endif /* WORD64 */

+

+

+/* Make sure this produces the same string as DefineLocal/DefineSelf in xdm.

+ * Otherwise, Xau will not be able to find your cookies in the Xauthority file.

+ *

+ * Note: POSIX says that the ``nodename'' member of utsname does _not_ have

+ *       to have sufficient information for interfacing to the network,

+ *       and so, you may be better off using gethostname (if it exists).

+ */

+

+#if (defined(_POSIX_SOURCE) && !defined(AIXV3) && !defined(__QNX__)) || defined(hpux) || defined(SVR4)

+#define NEED_UTSNAME

+#include <sys/utsname.h>

+#else

+#ifdef HAVE_UNISTD_H

+#include <unistd.h>

+#endif

+#endif

+

+/*

+ * _XGetHostname - similar to gethostname but allows special processing.

+ */

+int _XGetHostname (

+    char *buf,

+    int maxlen)

+{

+    int len;

+

+#ifdef NEED_UTSNAME

+    struct utsname name;

+

+    if (maxlen <= 0 || buf == NULL)

+	return 0;

+

+    uname (&name);

+    len = strlen (name.nodename);

+    if (len >= maxlen) len = maxlen - 1;

+    strncpy (buf, name.nodename, len);

+    buf[len] = '\0';

+#else

+    if (maxlen <= 0 || buf == NULL)

+	return 0;

+

+    buf[0] = '\0';

+    (void) gethostname (buf, maxlen);

+    buf [maxlen - 1] = '\0';

+    len = strlen(buf);

+#endif /* NEED_UTSNAME */

+    return len;

+}

+

+

+/*

+ * _XScreenOfWindow - get the Screen of a given window

+ */

+

+Screen *_XScreenOfWindow(Display *dpy, Window w)

+{

+    register int i;

+    Window root;

+    int x, y;				/* dummy variables */

+    unsigned int width, height, bw, depth;  /* dummy variables */

+

+    if (XGetGeometry (dpy, w, &root, &x, &y, &width, &height,

+		      &bw, &depth) == False) {

+	return NULL;

+    }

+    for (i = 0; i < ScreenCount (dpy); i++) {	/* find root from list */

+	if (root == RootWindow (dpy, i)) {

+	    return ScreenOfDisplay (dpy, i);

+	}

+    }

+    return NULL;

+}

+

+

+#if defined(WIN32)

+

+/*

+ * These functions are intended to be used internally to Xlib only.

+ * These functions will always prefix the path with a DOS drive in the

+ * form "<drive-letter>:". As such, these functions are only suitable

+ * for use by Xlib function that supply a root-based path to some

+ * particular file, e.g. <ProjectRoot>/lib/X11/locale/locale.dir will

+ * be converted to "C:/usr/X11R6.3/lib/X11/locale/locale.dir".

+ */

+

+static int access_file (path, pathbuf, len_pathbuf, pathret)

+    char* path;

+    char* pathbuf;

+    int len_pathbuf;

+    char** pathret;

+{

+    if (access (path, F_OK) == 0) {

+	if (strlen (path) < len_pathbuf)

+	    *pathret = pathbuf;

+	else

+	    *pathret = Xmalloc (strlen (path) + 1);

+	if (*pathret) {

+	    strcpy (*pathret, path);

+	    return 1;

+	}

+    }

+    return 0;

+}

+

+static int AccessFile (path, pathbuf, len_pathbuf, pathret)

+    char* path;

+    char* pathbuf;

+    int len_pathbuf;

+    char** pathret;

+{

+    unsigned long drives;

+    int i, len;

+    char* drive;

+    char buf[MAX_PATH];

+    char* bufp;

+

+    /* just try the "raw" name first and see if it works */

+    if (access_file (path, pathbuf, len_pathbuf, pathret))

+	return 1;

+

+    /* try the places set in the environment */

+    drive = getenv ("_XBASEDRIVE");

+#ifdef __UNIXOS2__

+    if (!drive)

+	drive = getenv ("X11ROOT");

+#endif

+    if (!drive)

+	drive = "C:";

+    len = strlen (drive) + strlen (path);

+    if (len < MAX_PATH) bufp = buf;

+    else bufp = Xmalloc (len + 1);

+    strcpy (bufp, drive);

+    strcat (bufp, path);

+    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

+	if (bufp != buf) Xfree (bufp);

+	return 1;

+    }

+

+#ifndef __UNIXOS2__

+    /* one last place to look */

+    drive = getenv ("HOMEDRIVE");

+    if (drive) {

+	len = strlen (drive) + strlen (path);

+	if (len < MAX_PATH) bufp = buf;

+	else bufp = Xmalloc (len + 1);

+	strcpy (bufp, drive);

+	strcat (bufp, path);

+	if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

+	    if (bufp != buf) Xfree (bufp);

+	    return 1;

+	}

+    }

+

+    /* tried everywhere else, go fishing */

+#define C_DRIVE ('C' - 'A')

+#define Z_DRIVE ('Z' - 'A')

+    /* does OS/2 (with or with gcc-emx) have getdrives? */

+    drives = _getdrives ();

+    for (i = C_DRIVE; i <= Z_DRIVE; i++) { /* don't check on A: or B: */

+	if ((1 << i) & drives) {

+	    len = 2 + strlen (path);

+	    if (len < MAX_PATH) bufp = buf;

+	    else bufp = Xmalloc (len + 1);

+	    *bufp = 'A' + i;

+	    *(bufp + 1) = ':';

+	    *(bufp + 2) = '\0';

+	    strcat (bufp, path);

+	    if (access_file (bufp, pathbuf, len_pathbuf, pathret)) {

+		if (bufp != buf) Xfree (bufp);

+		return 1;

+	    }

+	}

+    }

+#endif

+    return 0;

+}

+

+int _XOpenFile(path, flags)

+    _Xconst char* path;

+    int flags;

+{

+    char buf[MAX_PATH];

+    char* bufp = NULL;

+    int ret = -1;

+    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);

+

+    if (AccessFile (path, buf, MAX_PATH, &bufp))

+	ret = open (bufp, flags);

+

+    (void) SetErrorMode (olderror);

+

+    if (bufp != buf) Xfree (bufp);

+

+    return ret;

+}

+

+int _XOpenFileMode(path, flags, mode)

+    _Xconst char* path;

+    int flags;

+    mode_t mode;

+{

+    char buf[MAX_PATH];

+    char* bufp = NULL;

+    int ret = -1;

+    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);

+

+    if (AccessFile (path, buf, MAX_PATH, &bufp))

+	ret = open (bufp, flags, mode);

+

+    (void) SetErrorMode (olderror);

+

+    if (bufp != buf) Xfree (bufp);

+

+    return ret;

+}

+

+void* _XFopenFile(path, mode)

+    _Xconst char* path;

+    _Xconst char* mode;

+{

+    char buf[MAX_PATH];

+    char* bufp = NULL;

+    void* ret = NULL;

+    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);

+

+    if (AccessFile (path, buf, MAX_PATH, &bufp))

+	ret = fopen (bufp, mode);

+

+    (void) SetErrorMode (olderror);

+

+    if (bufp != buf) Xfree (bufp);

+

+    return ret;

+}

+

+int _XAccessFile(path)

+    _Xconst char* path;

+{

+    char buf[MAX_PATH];

+    char* bufp;

+    int ret = -1;

+    UINT olderror = SetErrorMode (SEM_FAILCRITICALERRORS);

+

+    ret = AccessFile (path, buf, MAX_PATH, &bufp);

+

+    (void) SetErrorMode (olderror);

+

+    if (bufp != buf) Xfree (bufp);

+

+    return ret;

+}

+

+#endif

+

+#ifdef WIN32

+#undef _Xdebug

+int _Xdebug = 0;

+int *_Xdebug_p = &_Xdebug;

+void (**_XCreateMutex_fn_p)(LockInfoPtr) = &_XCreateMutex_fn;

+void (**_XFreeMutex_fn_p)(LockInfoPtr) = &_XFreeMutex_fn;

+void (**_XLockMutex_fn_p)(LockInfoPtr

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+        ) = &_XLockMutex_fn;

+void (**_XUnlockMutex_fn_p)(LockInfoPtr

+#if defined(XTHREADS_WARN) || defined(XTHREADS_FILE_LINE)

+    , char * /* file */

+    , int /* line */

+#endif

+        ) = &_XUnlockMutex_fn;

+LockInfoPtr *_Xglobal_lock_p = &_Xglobal_lock;

+#endif

diff --git a/libX11/src/Xrm.c b/libX11/src/Xrm.c
index 53467aedc..7dff61e68 100644
--- a/libX11/src/Xrm.c
+++ b/libX11/src/Xrm.c
@@ -1,2660 +1,2660 @@
-
-/***********************************************************
-Copyright 1987, 1988, 1990 by Digital Equipment Corporation, Maynard
-
-                        All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
-supporting documentation, and that the name Digital not be
-used in advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.
-
-DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
-ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
-DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
-ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
-SOFTWARE.
-
-******************************************************************/
-/*
-
-Copyright 1987, 1988, 1990, 1998  The Open Group
-
-Permission to use, copy, modify, distribute, and sell this software and its
-documentation for any purpose is hereby granted without fee, provided that
-the above copyright notice appear in all copies and that both that
-copyright notice and this permission notice appear in supporting
-documentation.
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
-IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR
-OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
-ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
-OTHER DEALINGS IN THE SOFTWARE.
-
-Except as contained in this notice, the name of The Open Group shall
-not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization
-from The Open Group.
-
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include	<stdio.h>
-#include	<ctype.h>
-#include	"Xlibint.h"
-#include	<X11/Xresource.h>
-#include	"Xlcint.h"
-#ifdef XTHREADS
-#include	"locking.h"
-#endif
-#include	<X11/Xos.h>
-#include	<sys/stat.h>
-#include "Xresinternal.h"
-#include "Xresource.h"
-
-/*
-
-These Xrm routines allow very fast lookup of resources in the resource
-database.  Several usage patterns are exploited:
-
-(1) Widgets get a lot of resources at one time.  Rather than look up each from
-scratch, we can precompute the prioritized list of database levels once, then
-search for each resource starting at the beginning of the list.
-
-(2) Many database levels don't contain any leaf resource nodes.  There is no
-point in looking for resources on a level that doesn't contain any.  This
-information is kept on a per-level basis.
-
-(3) Sometimes the widget instance tree is structured such that you get the same
-class name repeated on the fully qualified widget name.  This can result in the
-same database level occuring multiple times on the search list.  The code below
-only checks to see if you get two identical search lists in a row, rather than
-look back through all database levels, but in practice this removes all
-duplicates I've ever observed.
-
-Joel McCormack
-
-*/
-
-/*
-
-The Xrm representation has been completely redesigned to substantially reduce
-memory and hopefully improve performance.
-
-The database is structured into two kinds of tables: LTables that contain
-only values, and NTables that contain only other tables.
-
-Some invariants:
-
-The next pointer of the top-level node table points to the top-level leaf
-table, if any.
-
-Within an LTable, for a given name, the tight value always precedes the
-loose value, and if both are present the loose value is always right after
-the tight value.
-
-Within an NTable, all of the entries for a given name are contiguous,
-in the order tight NTable, loose NTable, tight LTable, loose LTable.
-
-Bob Scheifler
-
-*/
-
-static XrmQuark XrmQString, XrmQANY;
-
-typedef	Bool (*DBEnumProc)(
-    XrmDatabase*	/* db */,
-    XrmBindingList	/* bindings */,
-    XrmQuarkList	/* quarks */,
-    XrmRepresentation*	/* type */,
-    XrmValue*		/* value */,
-    XPointer		/* closure */
-);
-
-typedef struct _VEntry {
-    struct _VEntry	*next;		/* next in chain */
-    XrmQuark		name;		/* name of this entry */
-    unsigned int	tight:1;	/* 1 if it is a tight binding */
-    unsigned int	string:1;	/* 1 if type is String */
-    unsigned int	size:30;	/* size of value */
-} VEntryRec, *VEntry;
-
-
-typedef struct _DEntry {
-    VEntryRec		entry;		/* entry */
-    XrmRepresentation	type;		/* representation type */
-} DEntryRec, *DEntry;
-
-/* the value is right after the structure */
-#define StringValue(ve) (XPointer)((ve) + 1)
-#define RepType(ve) ((DEntry)(ve))->type
-/* the value is right after the structure */
-#define DataValue(ve) (XPointer)(((DEntry)(ve)) + 1)
-#define RawValue(ve) (char *)((ve)->string ? StringValue(ve) : DataValue(ve))
-
-typedef struct _NTable {
-    struct _NTable	*next;		/* next in chain */
-    XrmQuark		name;		/* name of this entry */
-    unsigned int	tight:1;	/* 1 if it is a tight binding */
-    unsigned int	leaf:1;		/* 1 if children are values */
-    unsigned int	hasloose:1;	/* 1 if has loose children */
-    unsigned int	hasany:1;	/* 1 if has ANY entry */
-    unsigned int	pad:4;		/* unused */
-    unsigned int	mask:8;		/* hash size - 1 */
-    unsigned int	entries:16;	/* number of children */
-} NTableRec, *NTable;
-
-/* the buckets are right after the structure */
-#define NodeBuckets(ne) ((NTable *)((ne) + 1))
-#define NodeHash(ne,q) NodeBuckets(ne)[(q) & (ne)->mask]
-
-/* leaf tables have an extra level of indirection for the buckets,
- * so that resizing can be done without invalidating a search list.
- * This is completely ugly, and wastes some memory, but the Xlib
- * spec doesn't really specify whether invalidation is OK, and the
- * old implementation did not invalidate.
- */
-typedef struct _LTable {
-    NTableRec		table;
-    VEntry		*buckets;
-} LTableRec, *LTable;
-
-#define LeafHash(le,q) (le)->buckets[(q) & (le)->table.mask]
-
-/* An XrmDatabase just holds a pointer to the first top-level table.
- * The type name is no longer descriptive, but better to not change
- * the Xresource.h header file.  This type also gets used to define
- * XrmSearchList, which is a complete crock, but we'll just leave it
- * and caste types as required.
- */
-typedef struct _XrmHashBucketRec {
-    NTable table;
-    XPointer mbstate;
-    XrmMethods methods;
-#ifdef XTHREADS
-    LockInfoRec linfo;
-#endif
-} XrmHashBucketRec;
-
-/* closure used in get/put resource */
-typedef struct _VClosure {
-    XrmRepresentation	*type;		/* type of value */
-    XrmValuePtr		value;		/* value itself */
-} VClosureRec, *VClosure;
-
-/* closure used in get search list */
-typedef struct _SClosure {
-    LTable		*list;		/* search list */
-    int			idx;		/* index of last filled element */
-    int			limit;		/* maximum index */
-} SClosureRec, *SClosure;
-
-/* placed in XrmSearchList to indicate next table is loose only */
-#define LOOSESEARCH ((LTable)1)
-
-/* closure used in enumerate database */
-typedef struct _EClosure {
-    XrmDatabase db;			/* the database */
-    DBEnumProc proc;			/* the user proc */
-    XPointer closure;			/* the user closure */
-    XrmBindingList bindings;		/* binding list */
-    XrmQuarkList quarks;		/* quark list */
-    int mode;				/* XrmEnum<kind> */
-} EClosureRec, *EClosure;
-
-/* types for typecasting ETable based functions to NTable based functions */
-typedef Bool (*getNTableSProcp)(
-    NTable              table,
-    XrmNameList         names,
-    XrmClassList        classes,
-    SClosure            closure);
-typedef Bool (*getNTableVProcp)(
-    NTable              table,
-    XrmNameList         names,
-    XrmClassList        classes,
-    VClosure            closure);
-typedef Bool (*getNTableEProcp)(
-    NTable              table,
-    XrmNameList         names,
-    XrmClassList        classes,
-    register int        level,
-    EClosure            closure);
-
-/* predicate to determine when to resize a hash table */
-#define GrowthPred(n,m) ((unsigned)(n) > (((m) + 1) << 2))
-
-#define GROW(prev) \
-    if (GrowthPred((*prev)->entries, (*prev)->mask)) \
-	GrowTable(prev)
-
-/* pick a reasonable value for maximum depth of resource database */
-#define MAXDBDEPTH 100
-
-/* macro used in get/search functions */
-
-/* find an entry named ename, with leafness given by leaf */
-#define NFIND(ename) \
-    q = ename; \
-    entry = NodeHash(table, q); \
-    while (entry && entry->name != q) \
-	entry = entry->next; \
-    if (leaf && entry && !entry->leaf) { \
-	entry = entry->next; \
-	if (entry && !entry->leaf) \
-	    entry = entry->next; \
-	if (entry && entry->name != q) \
-	    entry = (NTable)NULL; \
-    }
-
-/* resourceQuarks keeps track of what quarks have been associated with values
- * in all LTables.  If a quark has never been used in an LTable, we don't need
- * to bother looking for it.
- */
-
-static unsigned char *resourceQuarks = (unsigned char *)NULL;
-static XrmQuark maxResourceQuark = -1;
-
-/* determines if a quark has been used for a value in any database */
-#define IsResourceQuark(q)  ((q) > 0 && (q) <= maxResourceQuark && \
-			     resourceQuarks[(q) >> 3] & (1 << ((q) & 7)))
-
-typedef unsigned char XrmBits;
-
-#define BSLASH  ((XrmBits) (1 << 5))
-#define NORMAL	((XrmBits) (1 << 4))
-#define EOQ	((XrmBits) (1 << 3))
-#define SEP	((XrmBits) (1 << 2))
-#define ENDOF	((XrmBits) (1 << 1))
-#define SPACE	(NORMAL|EOQ|SEP|(XrmBits)0)
-#define RSEP	(NORMAL|EOQ|SEP|(XrmBits)1)
-#define EOS	(EOQ|SEP|ENDOF|(XrmBits)0)
-#define EOL	(EOQ|SEP|ENDOF|(XrmBits)1)
-#define BINDING	(NORMAL|EOQ)
-#define ODIGIT	(NORMAL|(XrmBits)1)
-
-#define next_char(ch,str) xrmtypes[(unsigned char)((ch) = *(++(str)))]
-#define next_mbchar(ch,len,str) xrmtypes[(unsigned char)(ch = (*db->methods->mbchar)(db->mbstate, str, &len), str += len, ch)]
-
-#define is_space(bits)		((bits) == SPACE)
-#define is_EOQ(bits)		((bits) & EOQ)
-#define is_EOF(bits)		((bits) == EOS)
-#define is_EOL(bits)		((bits) & ENDOF)
-#define is_binding(bits)	((bits) == BINDING)
-#define is_odigit(bits)		((bits) == ODIGIT)
-#define is_separator(bits)	((bits) & SEP)
-#define is_nonpcs(bits)		(!(bits))
-#define is_normal(bits)		((bits) & NORMAL)
-#define is_simple(bits)		((bits) & (NORMAL|BSLASH))
-#define is_special(bits)	((bits) & (ENDOF|BSLASH))
-
-/* parsing types */
-static XrmBits const xrmtypes[256] = {
-    EOS,0,0,0,0,0,0,0,
-    0,SPACE,EOL,0,0,
-#if defined(WIN32) || defined(__UNIXOS2__)
-                    EOL,	/* treat CR the same as LF, just in case */
-#else
-                    0,
-#endif
-                      0,0,
-    0,0,0,0,0,0,0,0,
-    0,0,0,0,0,0,0,0,
-    SPACE,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,BINDING,NORMAL,NORMAL,NORMAL,BINDING,NORMAL,
-    ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,
-    NORMAL,NORMAL,RSEP,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,BSLASH,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,
-    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,0
-    /* The rest will be automatically initialized to zero. */
-};
-
-void XrmInitialize(void)
-{
-    XrmQString = XrmPermStringToQuark("String");
-    XrmQANY = XrmPermStringToQuark("?");
-}
-
-XrmDatabase XrmGetDatabase(
-    Display *display)
-{
-    XrmDatabase retval;
-    LockDisplay(display);
-    retval = display->db;
-    UnlockDisplay(display);
-    return retval;
-}
-
-void XrmSetDatabase(
-    Display *display,
-    XrmDatabase database)
-{
-    LockDisplay(display);
-    /* destroy database if set up imlicitely by XGetDefault() */
-    if (display->db && (display->flags & XlibDisplayDfltRMDB)) {
-	XrmDestroyDatabase(display->db);
-	display->flags &= ~XlibDisplayDfltRMDB;
-    }
-    display->db = database;
-    UnlockDisplay(display);
-}
-
-void
-XrmStringToQuarkList(
-    register _Xconst char  *name,
-    register XrmQuarkList quarks)   /* RETURN */
-{
-    register XrmBits		bits;
-    register Signature  	sig = 0;
-    register char       	ch, *tname;
-    register int 		i = 0;
-
-    if ((tname = (char *)name)) {
-	tname--;
-	while (!is_EOF(bits = next_char(ch, tname))) {
-	    if (is_binding (bits)) {
-		if (i) {
-		    /* Found a complete name */
-		    *quarks++ = _XrmInternalStringToQuark(name,tname - name,
-							  sig, False);
-		    i = 0;
-		    sig = 0;
-		}
-		name = tname+1;
-	    }
-	    else {
-		sig = (sig << 1) + ch; /* Compute the signature. */
-		i++;
-	    }
-	}
-	*quarks++ = _XrmInternalStringToQuark(name, tname - name, sig, False);
-    }
-    *quarks = NULLQUARK;
-}
-
-void
-XrmStringToBindingQuarkList(
-    register _Xconst char   *name,
-    register XrmBindingList bindings,   /* RETURN */
-    register XrmQuarkList   quarks)     /* RETURN */
-{
-    register XrmBits		bits;
-    register Signature  	sig = 0;
-    register char       	ch, *tname;
-    register XrmBinding 	binding;
-    register int 		i = 0;
-
-    if ((tname = (char *)name)) {
-	tname--;
-	binding = XrmBindTightly;
-	while (!is_EOF(bits = next_char(ch, tname))) {
-	    if (is_binding (bits)) {
-		if (i) {
-		    /* Found a complete name */
-		    *bindings++ = binding;
-		    *quarks++ = _XrmInternalStringToQuark(name, tname - name,
-							  sig, False);
-
-		    i = 0;
-		    sig = 0;
-		    binding = XrmBindTightly;
-		}
-		name = tname+1;
-
-		if (ch == '*')
-		    binding = XrmBindLoosely;
-	    }
-	    else {
-		sig = (sig << 1) + ch; /* Compute the signature. */
-		i++;
-	    }
-	}
-	*bindings = binding;
-	*quarks++ = _XrmInternalStringToQuark(name, tname - name, sig, False);
-    }
-    *quarks = NULLQUARK;
-}
-
-#ifdef DEBUG
-
-static void PrintQuarkList(
-    XrmQuarkList    quarks,
-    FILE	    *stream)
-{
-    Bool	    firstNameSeen;
-
-    for (firstNameSeen = False; *quarks; quarks++) {
-	if (firstNameSeen) {
-	    (void) fprintf(stream, ".");
-	}
-	firstNameSeen = True;
-	(void) fputs(XrmQuarkToString(*quarks), stream);
-    }
-} /* PrintQuarkList */
-
-#endif /* DEBUG */
-
-
-/*
- * Fallback methods for Xrm parsing.
- * Simulate a C locale. No state needed here.
- */
-
-static void
-c_mbnoop(
-    XPointer state)
-{
-}
-
-static char
-c_mbchar(
-    XPointer state,
-    const char *str,
-    int *lenp)
-{
-    *lenp = 1;
-    return *str;
-}
-
-static const char *
-c_lcname(
-    XPointer state)
-{
-    return "C";
-}
-
-static const XrmMethodsRec mb_methods = {
-    c_mbnoop,	/* mbinit */
-    c_mbchar,	/* mbchar */
-    c_mbnoop,	/* mbfinish */
-    c_lcname,	/* lcname */
-    c_mbnoop	/* destroy */
-};
-
-
-static XrmDatabase NewDatabase(void)
-{
-    register XrmDatabase db;
-
-    db = (XrmDatabase) Xmalloc(sizeof(XrmHashBucketRec));
-    if (db) {
-	_XCreateMutex(&db->linfo);
-	db->table = (NTable)NULL;
-	db->mbstate = (XPointer)NULL;
-	db->methods = _XrmInitParseInfo(&db->mbstate);
-	if (!db->methods)
-	    db->methods = &mb_methods;
-    }
-    return db;
-}
-
-/* move all values from ftable to ttable, and free ftable's buckets.
- * ttable is quaranteed empty to start with.
- */
-static void MoveValues(
-    LTable ftable,
-    register LTable ttable)
-{
-    register VEntry fentry, nfentry;
-    register VEntry *prev;
-    register VEntry *bucket;
-    register VEntry tentry;
-    register int i;
-
-    for (i = ftable->table.mask, bucket = ftable->buckets; i >= 0; i--) {
-	for (fentry = *bucket++; fentry; fentry = nfentry) {
-	    prev = &LeafHash(ttable, fentry->name);
-	    tentry = *prev;
-	    *prev = fentry;
-	    /* chain on all with same name, to preserve invariant order */
-	    while ((nfentry = fentry->next) && nfentry->name == fentry->name)
-		fentry = nfentry;
-	    fentry->next = tentry;
-	}
-    }
-    Xfree((char *)ftable->buckets);
-}
-
-/* move all tables from ftable to ttable, and free ftable.
- * ttable is quaranteed empty to start with.
- */
-static void MoveTables(
-    NTable ftable,
-    register NTable ttable)
-{
-    register NTable fentry, nfentry;
-    register NTable *prev;
-    register NTable *bucket;
-    register NTable tentry;
-    register int i;
-
-    for (i = ftable->mask, bucket = NodeBuckets(ftable); i >= 0; i--) {
-	for (fentry = *bucket++; fentry; fentry = nfentry) {
-	    prev = &NodeHash(ttable, fentry->name);
-	    tentry = *prev;
-	    *prev = fentry;
-	    /* chain on all with same name, to preserve invariant order */
-	    while ((nfentry = fentry->next) && nfentry->name == fentry->name)
-		fentry = nfentry;
-	    fentry->next = tentry;
-	}
-    }
-    Xfree((char *)ftable);
-}
-
-/* grow the table, based on current number of entries */
-static void GrowTable(
-    NTable *prev)
-{
-    register NTable table;
-    register int i;
-
-    table = *prev;
-    i = table->mask;
-    if (i == 255) /* biggest it gets */
-	return;
-    while (i < 255 && GrowthPred(table->entries, i))
-	i = (i << 1) + 1;
-    i++; /* i is now the new size */
-    if (table->leaf) {
-	register LTable ltable;
-	LTableRec otable;
-
-	ltable = (LTable)table;
-	/* cons up a copy to make MoveValues look symmetric */
-	otable = *ltable;
-	ltable->buckets = Xcalloc(i, sizeof(VEntry));
-	if (!ltable->buckets) {
-	    ltable->buckets = otable.buckets;
-	    return;
-	}
-	ltable->table.mask = i - 1;
-	MoveValues(&otable, ltable);
-    } else {
-	register NTable ntable;
-
-	ntable = Xcalloc(1, sizeof(NTableRec) + (i * sizeof(NTable)));
-	if (!ntable)
-	    return;
-	*ntable = *table;
-	ntable->mask = i - 1;
-	*prev = ntable;
-	MoveTables(table, ntable);
-    }
-}
-
-/* merge values from ftable into *pprev, destroy ftable in the process */
-static void MergeValues(
-    LTable ftable,
-    NTable *pprev,
-    Bool override)
-{
-    register VEntry fentry, tentry;
-    register VEntry *prev;
-    register LTable ttable;
-    VEntry *bucket;
-    int i;
-    register XrmQuark q;
-
-    ttable = (LTable)*pprev;
-    if (ftable->table.hasloose)
-	ttable->table.hasloose = 1;
-    for (i = ftable->table.mask, bucket = ftable->buckets;
-	 i >= 0;
-	 i--, bucket++) {
-	for (fentry = *bucket; fentry; ) {
-	    q = fentry->name;
-	    prev = &LeafHash(ttable, q);
-	    tentry = *prev;
-	    while (tentry && tentry->name != q)
-		tentry = *(prev = &tentry->next);
-	    /* note: test intentionally uses fentry->name instead of q */
-	    /* permits serendipitous inserts */
-	    while (tentry && tentry->name == fentry->name) {
-		/* if tentry is earlier, skip it */
-		if (!fentry->tight && tentry->tight) {
-		    tentry = *(prev = &tentry->next);
-		    continue;
-		}
-		if (fentry->tight != tentry->tight) {
-		    /* no match, chain in fentry */
-		    *prev = fentry;
-		    prev = &fentry->next;
-		    fentry = *prev;
-		    *prev = tentry;
-		    ttable->table.entries++;
-		} else if (override) {
-		    /* match, chain in fentry, splice out and free tentry */
-		    *prev = fentry;
-		    prev = &fentry->next;
-		    fentry = *prev;
-		    *prev = tentry->next;
-		    /* free the overridden entry */
-		    Xfree((char *)tentry);
-		    /* get next tentry */
-		    tentry = *prev;
-		} else {
-		    /* match, discard fentry */
-		    prev = &tentry->next;
-		    tentry = fentry; /* use as a temp var */
-		    fentry = fentry->next;
-		    /* free the overpowered entry */
-		    Xfree((char *)tentry);
-		    /* get next tentry */
-		    tentry = *prev;
-		}
-		if (!fentry)
-		    break;
-	    }
-	    /* at this point, tentry cannot match any fentry named q */
-	    /* chain in all bindings together, preserve invariant order */
-	    while (fentry && fentry->name == q) {
-		*prev = fentry;
-		prev = &fentry->next;
-		fentry = *prev;
-		*prev = tentry;
-		ttable->table.entries++;
-	    }
-	}
-    }
-    Xfree((char *)ftable->buckets);
-    Xfree((char *)ftable);
-    /* resize if necessary, now that we're all done */
-    GROW(pprev);
-}
-
-/* merge tables from ftable into *pprev, destroy ftable in the process */
-static void MergeTables(
-    NTable ftable,
-    NTable *pprev,
-    Bool override)
-{
-    register NTable fentry, tentry;
-    NTable nfentry;
-    register NTable *prev;
-    register NTable ttable;
-    NTable *bucket;
-    int i;
-    register XrmQuark q;
-
-    ttable = *pprev;
-    if (ftable->hasloose)
-	ttable->hasloose = 1;
-    if (ftable->hasany)
-	ttable->hasany = 1;
-    for (i = ftable->mask, bucket = NodeBuckets(ftable);
-	 i >= 0;
-	 i--, bucket++) {
-	for (fentry = *bucket; fentry; ) {
-	    q = fentry->name;
-	    prev = &NodeHash(ttable, q);
-	    tentry = *prev;
-	    while (tentry && tentry->name != q)
-		tentry = *(prev = &tentry->next);
-	    /* note: test intentionally uses fentry->name instead of q */
-	    /* permits serendipitous inserts */
-	    while (tentry && tentry->name == fentry->name) {
-		/* if tentry is earlier, skip it */
-		if ((fentry->leaf && !tentry->leaf) ||
-		    (!fentry->tight && tentry->tight &&
-		     (fentry->leaf || !tentry->leaf))) {
-		    tentry = *(prev = &tentry->next);
-		    continue;
-		}
-		nfentry = fentry->next;
-		if (fentry->leaf != tentry->leaf ||
-		    fentry->tight != tentry->tight) {
-		    /* no match, just chain in */
-		    *prev = fentry;
-		    *(prev = &fentry->next) = tentry;
-		    ttable->entries++;
-		} else {
-		    if (fentry->leaf)
-			MergeValues((LTable)fentry, prev, override);
-		    else
-			MergeTables(fentry, prev, override);
-		    /* bump to next tentry */
-		    tentry = *(prev = &(*prev)->next);
-		}
-		/* bump to next fentry */
-		fentry = nfentry;
-		if (!fentry)
-		    break;
-	    }
-	    /* at this point, tentry cannot match any fentry named q */
-	    /* chain in all bindings together, preserve invariant order */
-	    while (fentry && fentry->name == q) {
-		*prev = fentry;
-		prev = &fentry->next;
-		fentry = *prev;
-		*prev = tentry;
-		ttable->entries++;
-	    }
-	}
-    }
-    Xfree((char *)ftable);
-    /* resize if necessary, now that we're all done */
-    GROW(pprev);
-}
-
-void XrmCombineDatabase(
-    XrmDatabase	from, XrmDatabase *into,
-    Bool override)
-{
-    register NTable *prev;
-    register NTable ftable, ttable, nftable;
-
-    if (!*into) {
-	*into = from;
-    } else if (from) {
-	_XLockMutex(&from->linfo);
-	_XLockMutex(&(*into)->linfo);
-	if ((ftable = from->table)) {
-	    prev = &(*into)->table;
-	    ttable = *prev;
-	    if (!ftable->leaf) {
-		nftable = ftable->next;
-		if (ttable && !ttable->leaf) {
-		    /* both have node tables, merge them */
-		    MergeTables(ftable, prev, override);
-		    /* bump to into's leaf table, if any */
-		    ttable = *(prev = &(*prev)->next);
-		} else {
-		    /* into has no node table, link from's in */
-		    *prev = ftable;
-		    *(prev = &ftable->next) = ttable;
-		}
-		/* bump to from's leaf table, if any */
-		ftable = nftable;
-	    } else {
-		/* bump to into's leaf table, if any */
-		if (ttable && !ttable->leaf)
-		    ttable = *(prev = &ttable->next);
-	    }
-	    if (ftable) {
-		/* if into has a leaf, merge, else insert */
-		if (ttable)
-		    MergeValues((LTable)ftable, prev, override);
-		else
-		    *prev = ftable;
-	    }
-	}
-	(from->methods->destroy)(from->mbstate);
-	_XUnlockMutex(&from->linfo);
-	_XFreeMutex(&from->linfo);
-	Xfree((char *)from);
-	_XUnlockMutex(&(*into)->linfo);
-    }
-}
-
-void XrmMergeDatabases(
-    XrmDatabase	from, XrmDatabase *into)
-{
-    XrmCombineDatabase(from, into, True);
-}
-
-/* store a value in the database, overriding any existing entry */
-static void PutEntry(
-    XrmDatabase		db,
-    XrmBindingList	bindings,
-    XrmQuarkList	quarks,
-    XrmRepresentation	type,
-    XrmValuePtr		value)
-{
-    register NTable *pprev, *prev;
-    register NTable table;
-    register XrmQuark q;
-    register VEntry *vprev;
-    register VEntry entry;
-    NTable *nprev, *firstpprev;
-
-#define NEWTABLE(q,i) \
-    table = (NTable)Xmalloc(sizeof(LTableRec)); \
-    if (!table) \
-	return; \
-    table->name = q; \
-    table->hasloose = 0; \
-    table->hasany = 0; \
-    table->mask = 0; \
-    table->entries = 0; \
-    if (quarks[i]) { \
-	table->leaf = 0; \
-	nprev = NodeBuckets(table); \
-    } else { \
-	table->leaf = 1; \
-	if (!(nprev = (NTable *)Xmalloc(sizeof(VEntry *)))) {\
-	    Xfree(table); \
-	    return; \
-        } \
-	((LTable)table)->buckets = (VEntry *)nprev; \
-    } \
-    *nprev = (NTable)NULL; \
-    table->next = *prev; \
-    *prev = table
-
-    if (!db || !*quarks)
-	return;
-    table = *(prev = &db->table);
-    /* if already at leaf, bump to the leaf table */
-    if (!quarks[1] && table && !table->leaf)
-	table = *(prev = &table->next);
-    pprev = prev;
-    if (!table || (quarks[1] && table->leaf)) {
-	/* no top-level node table, create one and chain it in */
-	NEWTABLE(NULLQUARK,1);
-	table->tight = 1; /* arbitrary */
-	prev = nprev;
-    } else {
-	/* search along until we need a value */
-	while (quarks[1]) {
-	    q = *quarks;
-	    table = *(prev = &NodeHash(table, q));
-	    while (table && table->name != q)
-		table = *(prev = &table->next);
-	    if (!table)
-		break; /* not found */
-	    if (quarks[2]) {
-		if (table->leaf)
-		    break; /* not found */
-	    } else {
-		if (!table->leaf) {
-		    /* bump to leaf table, if any */
-		    table = *(prev = &table->next);
-		    if (!table || table->name != q)
-			break; /* not found */
-		    if (!table->leaf) {
-			/* bump to leaf table, if any */
-			table = *(prev = &table->next);
-			if (!table || table->name != q)
-			    break; /* not found */
-		    }
-		}
-	    }
-	    if (*bindings == XrmBindTightly) {
-		if (!table->tight)
-		    break; /* not found */
-	    } else {
-		if (table->tight) {
-		    /* bump to loose table, if any */
-		    table = *(prev = &table->next);
-		    if (!table || table->name != q ||
-			!quarks[2] != table->leaf)
-			break; /* not found */
-		}
-	    }
-	    /* found that one, bump to next quark */
-	    pprev = prev;
-	    quarks++;
-	    bindings++;
-	}
-	if (!quarks[1]) {
-	    /* found all the way to a leaf */
-	    q = *quarks;
-	    entry = *(vprev = &LeafHash((LTable)table, q));
-	    while (entry && entry->name != q)
-		entry = *(vprev = &entry->next);
-	    /* if want loose and have tight, bump to next entry */
-	    if (entry && *bindings == XrmBindLoosely && entry->tight)
-		entry = *(vprev = &entry->next);
-	    if (entry && entry->name == q &&
-		(*bindings == XrmBindTightly) == entry->tight) {
-		/* match, need to override */
-		if ((type == XrmQString) == entry->string &&
-		    entry->size == value->size) {
-		    /* update type if not String, can be different */
-		    if (!entry->string)
-			RepType(entry) = type;
-		    /* identical size, just overwrite value */
-		    memcpy(RawValue(entry), (char *)value->addr, value->size);
-		    return;
-		}
-		/* splice out and free old entry */
-		*vprev = entry->next;
-		Xfree((char *)entry);
-		(*pprev)->entries--;
-	    }
-	    /* this is where to insert */
-	    prev = (NTable *)vprev;
-	}
-    }
-    /* keep the top table, because we may have to grow it */
-    firstpprev = pprev;
-    /* iterate until we get to the leaf */
-    while (quarks[1]) {
-	/* build a new table and chain it in */
-	NEWTABLE(*quarks,2);
-	if (*quarks++ == XrmQANY)
-	    (*pprev)->hasany = 1;
-	if (*bindings++ == XrmBindTightly) {
-	    table->tight = 1;
-	} else {
-	    table->tight = 0;
-	    (*pprev)->hasloose = 1;
-	}
-	(*pprev)->entries++;
-	pprev = prev;
-	prev = nprev;
-    }
-    /* now allocate the value entry */
-    entry = (VEntry)Xmalloc(((type == XrmQString) ?
-			     sizeof(VEntryRec) : sizeof(DEntryRec)) +
-			    value->size);
-    if (!entry)
-	return;
-    entry->name = q = *quarks;
-    if (*bindings == XrmBindTightly) {
-	entry->tight = 1;
-    } else {
-	entry->tight = 0;
-	(*pprev)->hasloose = 1;
-    }
-    /* chain it in, with a bit of type cast ugliness */
-    entry->next = *((VEntry *)prev);
-    *((VEntry *)prev) = entry;
-    entry->size = value->size;
-    if (type == XrmQString) {
-	entry->string = 1;
-    } else {
-	entry->string = 0;
-	RepType(entry) = type;
-    }
-    /* save a copy of the value */
-    memcpy(RawValue(entry), (char *)value->addr, value->size);
-    (*pprev)->entries++;
-    /* this is a new leaf, need to remember it for search lists */
-    if (q > maxResourceQuark) {
-	unsigned oldsize = (maxResourceQuark + 1) >> 3;
-	unsigned size = ((q | 0x7f) + 1) >> 3; /* reallocate in chunks */
-	if (resourceQuarks) {
-	    unsigned char *prevQuarks = resourceQuarks;
-
-	    resourceQuarks = (unsigned char *)Xrealloc((char *)resourceQuarks,
-						       size);
-	    if (!resourceQuarks) {
-		Xfree(prevQuarks);
-	    }
-	} else
-	    resourceQuarks = (unsigned char *)Xmalloc(size);
-	if (resourceQuarks) {
-	    bzero((char *)&resourceQuarks[oldsize], size - oldsize);
-	    maxResourceQuark = (size << 3) - 1;
-	} else {
-	    maxResourceQuark = -1;
-	}
-    }
-    if (q > 0 && resourceQuarks)
-	resourceQuarks[q >> 3] |= 1 << (q & 0x7);
-    GROW(firstpprev);
-
-#undef NEWTABLE
-}
-
-void XrmQPutResource(
-    XrmDatabase		*pdb,
-    XrmBindingList      bindings,
-    XrmQuarkList	quarks,
-    XrmRepresentation	type,
-    XrmValuePtr		value)
-{
-    if (!*pdb) *pdb = NewDatabase();
-    _XLockMutex(&(*pdb)->linfo);
-    PutEntry(*pdb, bindings, quarks, type, value);
-    _XUnlockMutex(&(*pdb)->linfo);
-}
-
-void
-XrmPutResource(
-    XrmDatabase     *pdb,
-    _Xconst char    *specifier,
-    _Xconst char    *type,
-    XrmValuePtr	    value)
-{
-    XrmBinding	    bindings[MAXDBDEPTH+1];
-    XrmQuark	    quarks[MAXDBDEPTH+1];
-
-    if (!*pdb) *pdb = NewDatabase();
-    _XLockMutex(&(*pdb)->linfo);
-    XrmStringToBindingQuarkList(specifier, bindings, quarks);
-    PutEntry(*pdb, bindings, quarks, XrmStringToQuark(type), value);
-    _XUnlockMutex(&(*pdb)->linfo);
-}
-
-void
-XrmQPutStringResource(
-    XrmDatabase     *pdb,
-    XrmBindingList  bindings,
-    XrmQuarkList    quarks,
-    _Xconst char    *str)
-{
-    XrmValue	value;
-
-    if (!*pdb) *pdb = NewDatabase();
-    value.addr = (XPointer) str;
-    value.size = strlen(str)+1;
-    _XLockMutex(&(*pdb)->linfo);
-    PutEntry(*pdb, bindings, quarks, XrmQString, &value);
-    _XUnlockMutex(&(*pdb)->linfo);
-}
-
-/*	Function Name: GetDatabase
- *	Description: Parses a string and stores it as a database.
- *	Arguments: db - the database.
- *                 str - a pointer to the string containing the database.
- *                 filename - source filename, if any.
- *                 doall - whether to do all lines or just one
- */
-
-/*
- * This function is highly optimized to inline as much as possible.
- * Be very careful with modifications, or simplifications, as they
- * may adversely affect the performance.
- *
- * Chris Peterson, MIT X Consortium		5/17/90.
- */
-
-/*
- * Xlib spec says max 100 quarks in a lookup, will stop and return if
- * return if any single production's lhs has more than 100 components.
- */
-#define QLIST_SIZE 100
-
-/*
- * This should be big enough to handle things like the XKeysymDB or biggish
- * ~/.Xdefaults or app-defaults files. Anything bigger will be allocated on
- * the heap.
- */
-#define DEF_BUFF_SIZE 8192
-
-static void GetIncludeFile(
-    XrmDatabase db,
-    _Xconst char *base,
-    _Xconst char *fname,
-    int fnamelen);
-
-static void GetDatabase(
-    XrmDatabase db,
-    _Xconst register char *str,
-    _Xconst char *filename,
-    Bool doall)
-{
-    char *rhs;
-    char *lhs, lhs_s[DEF_BUFF_SIZE];
-    XrmQuark quarks[QLIST_SIZE + 1];	/* allow for a terminal NullQuark */
-    XrmBinding bindings[QLIST_SIZE + 1];
-
-    register char *ptr;
-    register XrmBits bits = 0;
-    register char c;
-    register Signature sig;
-    register char *ptr_max;
-    register int num_quarks;
-    register XrmBindingList t_bindings;
-
-    int len, alloc_chars;
-    unsigned long str_len;
-    XrmValue value;
-    Bool only_pcs;
-    Bool dolines;
-
-    if (!db)
-	return;
-
-    /*
-     * if strlen (str) < DEF_BUFF_SIZE allocate buffers on the stack for
-     * speed otherwise malloc the buffer. From a buffer overflow standpoint
-     * we can be sure that neither: a) a component on the lhs, or b) a
-     * value on the rhs, will be longer than the overall length of str,
-     * i.e. strlen(str).
-     *
-     * This should give good performance when parsing "*foo: bar" type
-     * databases as might be passed with -xrm command line options; but
-     * with larger databases, e.g. .Xdefaults, app-defaults, or KeysymDB
-     * files, the size of the buffers will be overly large. One way
-     * around this would be to double-parse each production with a resulting
-     * performance hit. In any event we can be assured that a lhs component
-     * name or a rhs value won't be longer than str itself.
-     */
-
-    str_len = strlen (str);
-    if (DEF_BUFF_SIZE > str_len) lhs = lhs_s;
-    else if ((lhs = (char*) Xmalloc (str_len)) == NULL)
-	return;
-
-    alloc_chars = DEF_BUFF_SIZE < str_len ? str_len : DEF_BUFF_SIZE;
-    if ((rhs = (char*) Xmalloc (alloc_chars)) == NULL) {
-	if (lhs != lhs_s) Xfree (lhs);
-	return;
-    }
-
-    (*db->methods->mbinit)(db->mbstate);
-    str--;
-    dolines = True;
-    while (!is_EOF(bits) && dolines) {
-	dolines = doall;
-
-	/*
-	 * First: Remove extra whitespace.
-	 */
-
-	do {
-	    bits = next_char(c, str);
-	} while is_space(bits);
-
-	/*
-	 * Ignore empty lines.
-	 */
-
-	if (is_EOL(bits))
-	    continue;		/* start a new line. */
-
-	/*
-	 * Second: check the first character in a line to see if it is
-	 * "!" signifying a comment, or "#" signifying a directive.
-	 */
-
-	if (c == '!') { /* Comment, spin to next newline */
-	    while (is_simple(bits = next_char(c, str))) {}
-	    if (is_EOL(bits))
-		continue;
-	    while (!is_EOL(bits = next_mbchar(c, len, str))) {}
-	    str--;
-	    continue;		/* start a new line. */
-	}
-
-	if (c == '#') { /* Directive */
-	    /* remove extra whitespace */
-	    only_pcs = True;
-	    while (is_space(bits = next_char(c, str))) {};
-	    /* only "include" directive is currently defined */
-	    if (!strncmp(str, "include", 7)) {
-		str += (7-1);
-		/* remove extra whitespace */
-		while (is_space(bits = next_char(c, str))) {};
-		/* must have a starting " */
-		if (c == '"') {
-		    _Xconst char *fname = str+1;
-		    len = 0;
-		    do {
-			if (only_pcs) {
-			    bits = next_char(c, str);
-			    if (is_nonpcs(bits))
-				only_pcs = False;
-			}
-			if (!only_pcs)
-			    bits = next_mbchar(c, len, str);
-		    } while (c != '"' && !is_EOL(bits));
-		    /* must have an ending " */
-		    if (c == '"')
-			GetIncludeFile(db, filename, fname, str - len - fname);
-		}
-	    }
-	    /* spin to next newline */
-	    if (only_pcs) {
-		while (is_simple(bits))
-		    bits = next_char(c, str);
-		if (is_EOL(bits))
-		    continue;
-	    }
-	    while (!is_EOL(bits))
-		bits = next_mbchar(c, len, str);
-	    str--;
-	    continue;		/* start a new line. */
-	}
-
-	/*
-	 * Third: loop through the LHS of the resource specification
-	 * storing characters and converting this to a Quark.
-	 */
-
-	num_quarks = 0;
-	t_bindings = bindings;
-
-	sig = 0;
-	ptr = lhs;
-	*t_bindings = XrmBindTightly;
-	for(;;) {
-	    if (!is_binding(bits)) {
-		while (!is_EOQ(bits)) {
-		    *ptr++ = c;
-		    sig = (sig << 1) + c; /* Compute the signature. */
-		    bits = next_char(c, str);
-		}
-
-		quarks[num_quarks++] =
-			_XrmInternalStringToQuark(lhs, ptr - lhs, sig, False);
-
-		if (num_quarks > QLIST_SIZE) {
-		    Xfree(rhs);
-		    if (lhs != lhs_s) Xfree (lhs);
-		    (*db->methods->mbfinish)(db->mbstate);
-		    return;
-		}
-
-		if (is_separator(bits))  {
-		    if (!is_space(bits))
-			break;
-
-		    /* Remove white space */
-		    do {
-			*ptr++ = c;
-			sig = (sig << 1) + c; /* Compute the signature. */
-		    } while (is_space(bits = next_char(c, str)));
-
-		    /*
-		     * The spec doesn't permit it, but support spaces
-		     * internal to resource name/class
-		     */
-
-		    if (is_separator(bits))
-			break;
-		    num_quarks--;
-		    continue;
-		}
-
-		if (c == '.')
-		    *(++t_bindings) = XrmBindTightly;
-		else
-		    *(++t_bindings) = XrmBindLoosely;
-
-		sig = 0;
-		ptr = lhs;
-	    }
-	    else {
-		/*
-		 * Magic unspecified feature #254.
-		 *
-		 * If two separators appear with no Text between them then
-		 * ignore them.
-		 *
-		 * If anyone of those separators is a '*' then the binding
-		 * will be loose, otherwise it will be tight.
-		 */
-
-		if (c == '*')
-		    *t_bindings = XrmBindLoosely;
-	    }
-
-	    bits = next_char(c, str);
-	}
-
-	quarks[num_quarks] = NULLQUARK;
-
-	/*
-	 * Make sure that there is a ':' in this line.
-	 */
-
-	if (c != ':') {
-	    char oldc;
-
-	    /*
-	     * A parsing error has occured, toss everything on the line
-	     * a new_line can still be escaped with a '\'.
-	     */
-
-	    while (is_normal(bits))
-		bits = next_char(c, str);
-	    if (is_EOL(bits))
-		continue;
-	    bits = next_mbchar(c, len, str);
-	    do {
-		oldc = c;
-		bits = next_mbchar(c, len, str);
-	    } while (c && (c != '\n' || oldc == '\\'));
-	    str--;
-	    continue;
-	}
-
-	/*
-	 * I now have a quark and binding list for the entire left hand
-	 * side.  "c" currently points to the ":" separating the left hand
-	 * side for the right hand side.  It is time to begin processing
-	 * the right hand side.
-	 */
-
-	/*
-	 * Fourth: Remove more whitespace
-	 */
-
-	for(;;) {
-	    if (is_space(bits = next_char(c, str)))
-		continue;
-	    if (c != '\\')
-		break;
-	    bits = next_char(c, str);
-	    if (c == '\n')
-		continue;
-	    str--;
-	    bits = BSLASH;
-	    c = '\\';
-	    break;
-	}
-
-	/*
-	 * Fifth: Process the right hand side.
-	 */
-
-	ptr = rhs;
-	ptr_max = ptr + alloc_chars - 4;
-	only_pcs = True;
-	len = 1;
-
-	for(;;) {
-
-	    /*
-	     * Tight loop for the normal case:  Non backslash, non-end of value
-	     * character that will fit into the allocated buffer.
-	     */
-
-	    if (only_pcs) {
-		while (is_normal(bits) && ptr < ptr_max) {
-		    *ptr++ = c;
-		    bits = next_char(c, str);
-		}
-		if (is_EOL(bits))
-		    break;
-		if (is_nonpcs(bits)) {
-		    only_pcs = False;
-		    bits = next_mbchar(c, len, str);
-		}
-	    }
-	    while (!is_special(bits) && ptr + len <= ptr_max) {
-		len = -len;
-		while (len)
-		    *ptr++ = str[len++];
-		if (*str == '\0') {
-		    bits = EOS;
-		    break;
-		}
-		bits = next_mbchar(c, len, str);
-	    }
-
-	    if (is_EOL(bits)) {
-		str--;
-		break;
-	    }
-
-	    if (c == '\\') {
-		/*
-		 * We need to do some magic after a backslash.
-		 */
-		Bool read_next = True;
-
-		if (only_pcs) {
-		    bits = next_char(c, str);
-		    if (is_nonpcs(bits))
-			only_pcs = False;
-		}
-		if (!only_pcs)
-		    bits = next_mbchar(c, len, str);
-
-		if (is_EOL(bits)) {
-		    if (is_EOF(bits))
-			continue;
-		} else if (c == 'n') {
-		    /*
-		     * "\n" means insert a newline.
-		     */
-		    *ptr++ = '\n';
-		} else if (c == '\\') {
-		    /*
-		     * "\\" completes to just one backslash.
-		     */
-		    *ptr++ = '\\';
-		} else {
-		    /*
-		     * pick up to three octal digits after the '\'.
-		     */
-		    char temp[3];
-		    int count = 0;
-		    while (is_odigit(bits) && count < 3) {
-			temp[count++] = c;
-			if (only_pcs) {
-			    bits = next_char(c, str);
-			    if (is_nonpcs(bits))
-				only_pcs = False;
-			}
-			if (!only_pcs)
-			    bits = next_mbchar(c, len, str);
-		    }
-
-		    /*
-		     * If we found three digits then insert that octal code
-		     * into the value string as a character.
-		     */
-
-		    if (count == 3) {
-			*ptr++ = (unsigned char) ((temp[0] - '0') * 0100 +
-						  (temp[1] - '0') * 010 +
-						  (temp[2] - '0'));
-		    }
-		    else {
-			int tcount;
-
-			/*
-			 * Otherwise just insert those characters into the
-			 * string, since no special processing is needed on
-			 * numerics we can skip the special processing.
-			 */
-
-			for (tcount = 0; tcount < count; tcount++) {
-			    *ptr++ = temp[tcount]; /* print them in
-						      the correct order */
-			}
-		    }
-		    read_next = False;
-		}
-		if (read_next) {
-		    if (only_pcs) {
-			bits = next_char(c, str);
-			if (is_nonpcs(bits))
-			    only_pcs = False;
-		    }
-		    if (!only_pcs)
-			bits = next_mbchar(c, len, str);
-		}
-	    }
-
-	    /*
-	     * It is important to make sure that there is room for at least
-	     * four more characters in the buffer, since I can add that
-	     * many characters into the buffer after a backslash has occured.
-	     */
-
-	    if (ptr + len > ptr_max) {
-		char * temp_str;
-
-		alloc_chars += BUFSIZ/10;
-		temp_str = Xrealloc(rhs, sizeof(char) * alloc_chars);
-
-		if (!temp_str) {
-		    Xfree(rhs);
-		    if (lhs != lhs_s) Xfree (lhs);
-		    (*db->methods->mbfinish)(db->mbstate);
-		    return;
-		}
-
-		ptr = temp_str + (ptr - rhs); /* reset pointer. */
-		rhs = temp_str;
-		ptr_max = rhs + alloc_chars - 4;
-	    }
-	}
-
-	/*
-	 * Lastly: Terminate the value string, and store this entry
-	 * 	   into the database.
-	 */
-
-	*ptr++ = '\0';
-
-	/* Store it in database */
-	value.size = ptr - rhs;
-	value.addr = (XPointer) rhs;
-
-	PutEntry(db, bindings, quarks, XrmQString, &value);
-    }
-
-    if (lhs != lhs_s) Xfree (lhs);
-    Xfree (rhs);
-
-    (*db->methods->mbfinish)(db->mbstate);
-}
-
-void
-XrmPutStringResource(
-    XrmDatabase *pdb,
-    _Xconst char*specifier,
-    _Xconst char*str)
-{
-    XrmValue	value;
-    XrmBinding	bindings[MAXDBDEPTH+1];
-    XrmQuark	quarks[MAXDBDEPTH+1];
-
-    if (!*pdb) *pdb = NewDatabase();
-    XrmStringToBindingQuarkList(specifier, bindings, quarks);
-    value.addr = (XPointer) str;
-    value.size = strlen(str)+1;
-    _XLockMutex(&(*pdb)->linfo);
-    PutEntry(*pdb, bindings, quarks, XrmQString, &value);
-    _XUnlockMutex(&(*pdb)->linfo);
-}
-
-
-void
-XrmPutLineResource(
-    XrmDatabase *pdb,
-    _Xconst char*line)
-{
-    if (!*pdb) *pdb = NewDatabase();
-    _XLockMutex(&(*pdb)->linfo);
-    GetDatabase(*pdb, line, (char *)NULL, False);
-    _XUnlockMutex(&(*pdb)->linfo);
-}
-
-XrmDatabase
-XrmGetStringDatabase(
-    _Xconst char    *data)
-{
-    XrmDatabase     db;
-
-    db = NewDatabase();
-    _XLockMutex(&db->linfo);
-    GetDatabase(db, data, (char *)NULL, True);
-    _XUnlockMutex(&db->linfo);
-    return db;
-}
-
-/*	Function Name: ReadInFile
- *	Description: Reads the file into a buffer.
- *	Arguments: filename - the name of the file.
- *	Returns: An allocated string containing the contents of the file.
- */
-
-static char *
-ReadInFile(_Xconst char *filename)
-{
-    register int fd, size;
-    char * filebuf;
-
-#ifdef __UNIXOS2__
-    filename = __XOS2RedirRoot(filename);
-#endif
-
-    /*
-     * MS-Windows and OS/2 note: Default open mode includes O_TEXT
-     */
-    if ( (fd = _XOpenFile (filename, O_RDONLY)) == -1 )
-	return (char *)NULL;
-
-    /*
-     * MS-Windows and OS/2 note: depending on how the sources are
-     * untarred, the newlines in resource files may or may not have
-     * been expanded to CRLF. Either way the size returned by fstat
-     * is sufficient to read the file into because in text-mode any
-     * CRLFs in a file will be converted to newlines (LF) with the
-     * result that the number of bytes actually read with be <=
-     * to the size returned by fstat.
-     */
-    {
-	struct stat status_buffer;
-	if ( (fstat(fd, &status_buffer)) == -1 ) {
-	    close (fd);
-	    return (char *)NULL;
-	} else
-	    size = status_buffer.st_size;
-    }
-
-    if (!(filebuf = Xmalloc(size + 1))) { /* leave room for '\0' */
-	close(fd);
-	return (char *)NULL;
-    }
-    size = read (fd, filebuf, size);
-
-#ifdef __UNIXOS2__
-    { /* kill CRLF */
-      int i,k;
-      for (i=k=0; i<size; i++)
-	if (filebuf[i] != 0x0d) {
-	   filebuf[k++] = filebuf[i];
-	}
-	filebuf[k] = 0;
-    }
-#endif
-
-    if (size < 0) {
-	close (fd);
-	Xfree(filebuf);
-	return (char *)NULL;
-    }
-    close (fd);
-
-    filebuf[size] = '\0';	/* NULL terminate it. */
-    return filebuf;
-}
-
-static void
-GetIncludeFile(
-    XrmDatabase db,
-    _Xconst char *base,
-    _Xconst char *fname,
-    int fnamelen)
-{
-    int len;
-    char *str;
-    char realfname[BUFSIZ];
-
-    if (fnamelen <= 0 || fnamelen >= BUFSIZ)
-	return;
-    if (*fname != '/' && base && (str = strrchr(base, '/'))) {
-	len = str - base + 1;
-	if (len + fnamelen >= BUFSIZ)
-	    return;
-	strncpy(realfname, base, len);
-	strncpy(realfname + len, fname, fnamelen);
-	realfname[len + fnamelen] = '\0';
-    } else {
-	strncpy(realfname, fname, fnamelen);
-	realfname[fnamelen] = '\0';
-    }
-    if (!(str = ReadInFile(realfname)))
-	return;
-    GetDatabase(db, str, realfname, True);
-    Xfree(str);
-}
-
-XrmDatabase
-XrmGetFileDatabase(
-    _Xconst char    *filename)
-{
-    XrmDatabase db;
-    char *str;
-
-    if (!(str = ReadInFile(filename)))
-	return (XrmDatabase)NULL;
-
-    db = NewDatabase();
-    _XLockMutex(&db->linfo);
-    GetDatabase(db, str, filename, True);
-    _XUnlockMutex(&db->linfo);
-    Xfree(str);
-    return db;
-}
-
-Status
-XrmCombineFileDatabase(
-    _Xconst char    *filename,
-    XrmDatabase     *target,
-    Bool             override)
-{
-    XrmDatabase db;
-    char *str;
-
-    if (!(str = ReadInFile(filename)))
-	return 0;
-    if (override) {
-	db = *target;
-	if (!db)
-	    *target = db = NewDatabase();
-    } else
-	db = NewDatabase();
-    _XLockMutex(&db->linfo);
-    GetDatabase(db, str, filename, True);
-    _XUnlockMutex(&db->linfo);
-    Xfree(str);
-    if (!override)
-	XrmCombineDatabase(db, target, False);
-    return 1;
-}
-
-/* call the user proc for every value in the table, arbitrary order.
- * stop if user proc returns True.  level is current depth in database.
- */
-/*ARGSUSED*/
-static Bool EnumLTable(
-    LTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    register int	level,
-    register EClosure	closure)
-{
-    register VEntry *bucket;
-    register int i;
-    register VEntry entry;
-    XrmValue value;
-    XrmRepresentation type;
-    Bool tightOk;
-
-    closure->bindings[level] = (table->table.tight ?
-				XrmBindTightly : XrmBindLoosely);
-    closure->quarks[level] = table->table.name;
-    level++;
-    tightOk = !*names;
-    closure->quarks[level + 1] = NULLQUARK;
-    for (i = table->table.mask, bucket = table->buckets;
-	 i >= 0;
-	 i--, bucket++) {
-	for (entry = *bucket; entry; entry = entry->next) {
-	    if (entry->tight && !tightOk)
-		continue;
-	    closure->bindings[level] = (entry->tight ?
-					XrmBindTightly : XrmBindLoosely);
-	    closure->quarks[level] = entry->name;
-	    value.size = entry->size;
-	    if (entry->string) {
-		type = XrmQString;
-		value.addr = StringValue(entry);
-	    } else {
-		type = RepType(entry);
-		value.addr = DataValue(entry);
-	    }
-	    if ((*closure->proc)(&closure->db, closure->bindings+1,
-				 closure->quarks+1, &type, &value,
-				 closure->closure))
-		return True;
-	}
-    }
-    return False;
-}
-
-static Bool EnumAllNTable(
-    NTable		table,
-    register int	level,
-    register EClosure	closure)
-{
-    register NTable *bucket;
-    register int i;
-    register NTable entry;
-    XrmQuark empty = NULLQUARK;
-
-    if (level >= MAXDBDEPTH)
-	return False;
-    for (i = table->mask, bucket = NodeBuckets(table);
-	 i >= 0;
-	 i--, bucket++) {
-	for (entry = *bucket; entry; entry = entry->next) {
-	    if (entry->leaf) {
-		if (EnumLTable((LTable)entry, &empty, &empty, level, closure))
-		    return True;
-	    } else {
-		closure->bindings[level] = (entry->tight ?
-					    XrmBindTightly : XrmBindLoosely);
-		closure->quarks[level] = entry->name;
-		if (EnumAllNTable(entry, level+1, closure))
-		    return True;
-	    }
-	}
-    }
-    return False;
-}
-
-/* recurse on every table in the table, arbitrary order.
- * stop if user proc returns True.  level is current depth in database.
- */
-static Bool EnumNTable(
-    NTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    register int	level,
-    register EClosure	closure)
-{
-    register NTable	entry;
-    register XrmQuark	q;
-    register unsigned int leaf;
-    Bool (*get)(
-            NTable		table,
-            XrmNameList		names,
-            XrmClassList 	classes,
-            register int	level,
-            EClosure		closure);
-    Bool bilevel;
-
-/* find entries named ename, leafness leaf, tight or loose, and call get */
-#define ITIGHTLOOSE(ename) \
-    NFIND(ename); \
-    if (entry) { \
-	if (leaf == entry->leaf) { \
-	    if (!leaf && !entry->tight && entry->next && \
-		entry->next->name == q && entry->next->tight && \
-		(bilevel || entry->next->hasloose) && \
-		EnumLTable((LTable)entry->next, names+1, classes+1, \
-			   level, closure)) \
-		return True; \
-	    if ((*get)(entry, names+1, classes+1, level, closure)) \
-		return True; \
-	    if (entry->tight && (entry = entry->next) && \
-		entry->name == q && leaf == entry->leaf && \
-		(*get)(entry, names+1, classes+1, level, closure)) \
-		return True; \
-	} else if (entry->leaf) { \
-	    if ((bilevel || entry->hasloose) && \
-		EnumLTable((LTable)entry, names+1, classes+1, level, closure))\
-		return True; \
-	    if (entry->tight && (entry = entry->next) && \
-		entry->name == q && (bilevel || entry->hasloose) && \
-		EnumLTable((LTable)entry, names+1, classes+1, level, closure))\
-		return True; \
-	} \
-    }
-
-/* find entries named ename, leafness leaf, loose only, and call get */
-#define ILOOSE(ename) \
-    NFIND(ename); \
-    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \
-	entry = (NTable)NULL; \
-    if (entry) { \
-	if (leaf == entry->leaf) { \
-	    if ((*get)(entry, names+1, classes+1, level, closure)) \
-		return True; \
-	} else if (entry->leaf && (bilevel || entry->hasloose)) { \
-	    if (EnumLTable((LTable)entry, names+1, classes+1, level, closure))\
-		return True; \
-	} \
-    }
-
-    if (level >= MAXDBDEPTH)
-	return False;
-    closure->bindings[level] = (table->tight ?
-				XrmBindTightly : XrmBindLoosely);
-    closure->quarks[level] = table->name;
-    level++;
-    if (!*names) {
-	if (EnumAllNTable(table, level, closure))
-	    return True;
-    } else {
-	if (names[1] || closure->mode == XrmEnumAllLevels) {
-	    get = EnumNTable; /* recurse */
-	    leaf = 0;
-	    bilevel = !names[1];
-	} else {
-	    get = (getNTableEProcp)EnumLTable; /* bottom of recursion */
-	    leaf = 1;
-	    bilevel = False;
-	}
-	if (table->hasloose && closure->mode == XrmEnumAllLevels) {
-	    NTable *bucket;
-	    int i;
-	    XrmQuark empty = NULLQUARK;
-
-	    for (i = table->mask, bucket = NodeBuckets(table);
-		 i >= 0;
-		 i--, bucket++) {
-		q = NULLQUARK;
-		for (entry = *bucket; entry; entry = entry->next) {
-		    if (!entry->tight && entry->name != q &&
-			entry->name != *names && entry->name != *classes) {
-			q = entry->name;
-			if (entry->leaf) {
-			    if (EnumLTable((LTable)entry, &empty, &empty,
-					   level, closure))
-				return True;
-			} else {
-			    if (EnumNTable(entry, &empty, &empty,
-					   level, closure))
-				return True;
-			}
-		    }
-		}
-	    }
-	}
-
-	ITIGHTLOOSE(*names);   /* do name, tight and loose */
-	ITIGHTLOOSE(*classes); /* do class, tight and loose */
-	if (table->hasany) {
-	    ITIGHTLOOSE(XrmQANY); /* do ANY, tight and loose */
-	}
-	if (table->hasloose) {
-	    while (1) {
-		names++;
-		classes++;
-		if (!*names)
-		    break;
-		if (!names[1] && closure->mode != XrmEnumAllLevels) {
-		    get = (getNTableEProcp)EnumLTable; /* bottom of recursion */
-		    leaf = 1;
-		}
-		ILOOSE(*names);   /* loose names */
-		ILOOSE(*classes); /* loose classes */
-		if (table->hasany) {
-		    ILOOSE(XrmQANY); /* loose ANY */
-		}
-	    }
-	    names--;
-	    classes--;
-	}
-    }
-    /* now look for matching leaf nodes */
-    entry = table->next;
-    if (!entry)
-	return False;
-    if (entry->leaf) {
-	if (entry->tight && !table->tight)
-	    entry = entry->next;
-    } else {
-	entry = entry->next;
-	if (!entry || !entry->tight)
-	    return False;
-    }
-    if (!entry || entry->name != table->name)
-	return False;
-    /* found one */
-    level--;
-    if ((!*names || entry->hasloose) &&
-	EnumLTable((LTable)entry, names, classes, level, closure))
-	return True;
-    if (entry->tight && entry == table->next && (entry = entry->next) &&
-	entry->name == table->name && (!*names || entry->hasloose))
-	return EnumLTable((LTable)entry, names, classes, level, closure);
-    return False;
-
-#undef ITIGHTLOOSE
-#undef ILOOSE
-}
-
-/* call the proc for every value in the database, arbitrary order.
- * stop if the proc returns True.
- */
-Bool XrmEnumerateDatabase(
-    XrmDatabase		db,
-    XrmNameList		names,
-    XrmClassList	classes,
-    int			mode,
-    DBEnumProc		proc,
-    XPointer		closure)
-{
-    XrmBinding  bindings[MAXDBDEPTH+2];
-    XrmQuark	quarks[MAXDBDEPTH+2];
-    register NTable table;
-    EClosureRec	eclosure;
-    Bool retval = False;
-
-    if (!db)
-	return False;
-    _XLockMutex(&db->linfo);
-    eclosure.db = db;
-    eclosure.proc = proc;
-    eclosure.closure = closure;
-    eclosure.bindings = bindings;
-    eclosure.quarks = quarks;
-    eclosure.mode = mode;
-    table = db->table;
-    if (table && !table->leaf && !*names && mode == XrmEnumOneLevel)
-	table = table->next;
-    if (table) {
-	if (!table->leaf)
-	    retval = EnumNTable(table, names, classes, 0, &eclosure);
-	else
-	    retval = EnumLTable((LTable)table, names, classes, 0, &eclosure);
-    }
-    _XUnlockMutex(&db->linfo);
-    return retval;
-}
-
-static void PrintBindingQuarkList(
-    XrmBindingList      bindings,
-    XrmQuarkList	quarks,
-    FILE		*stream)
-{
-    Bool	firstNameSeen;
-
-    for (firstNameSeen = False; *quarks; bindings++, quarks++) {
-	if (*bindings == XrmBindLoosely) {
-	    (void) fprintf(stream, "*");
-	} else if (firstNameSeen) {
-	    (void) fprintf(stream, ".");
-	}
-	firstNameSeen = True;
-	(void) fputs(XrmQuarkToString(*quarks), stream);
-    }
-}
-
-/* output out the entry in correct file syntax */
-/*ARGSUSED*/
-static Bool DumpEntry(
-    XrmDatabase		*db,
-    XrmBindingList      bindings,
-    XrmQuarkList	quarks,
-    XrmRepresentation   *type,
-    XrmValuePtr		value,
-    XPointer		data)
-{
-    FILE			*stream = (FILE *)data;
-    register unsigned int	i;
-    register char		*s;
-    register char		c;
-
-    if (*type != XrmQString)
-	(void) putc('!', stream);
-    PrintBindingQuarkList(bindings, quarks, stream);
-    s = value->addr;
-    i = value->size;
-    if (*type == XrmQString) {
-	(void) fputs(":\t", stream);
-	if (i)
-	    i--;
-    }
-    else
-	(void) fprintf(stream, "=%s:\t", XrmRepresentationToString(*type));
-    if (i && (*s == ' ' || *s == '\t'))
-	(void) putc('\\', stream); /* preserve leading whitespace */
-    while (i--) {
-	c = *s++;
-	if (c == '\n') {
-	    if (i)
-		(void) fputs("\\n\\\n", stream);
-	    else
-		(void) fputs("\\n", stream);
-	} else if (c == '\\')
-	    (void) fputs("\\\\", stream);
-	else if ((c < ' ' && c != '\t') ||
-		 ((unsigned char)c >= 0x7f && (unsigned char)c < 0xa0))
-	    (void) fprintf(stream, "\\%03o", (unsigned char)c);
-	else
-	    (void) putc(c, stream);
-    }
-    (void) putc('\n', stream);
-    return ferror(stream) != 0;
-}
-
-#ifdef DEBUG
-
-void PrintTable(
-    NTable table,
-    FILE *file)
-{
-    XrmBinding  bindings[MAXDBDEPTH+1];
-    XrmQuark	quarks[MAXDBDEPTH+1];
-    EClosureRec closure;
-    XrmQuark	empty = NULLQUARK;
-
-    closure.db = (XrmDatabase)NULL;
-    closure.proc = DumpEntry;
-    closure.closure = (XPointer)file;
-    closure.bindings = bindings;
-    closure.quarks = quarks;
-    closure.mode = XrmEnumAllLevels;
-    if (table->leaf)
-	EnumLTable((LTable)table, &empty, &empty, 0, &closure);
-    else
-	EnumNTable(table, &empty, &empty, 0, &closure);
-}
-
-#endif /* DEBUG */
-
-void
-XrmPutFileDatabase(
-    XrmDatabase db,
-    _Xconst char *fileName)
-{
-    FILE	*file;
-    XrmQuark empty = NULLQUARK;
-
-    if (!db) return;
-    if (!(file = fopen(fileName, "w"))) return;
-    if (XrmEnumerateDatabase(db, &empty, &empty, XrmEnumAllLevels,
-			     DumpEntry, (XPointer) file))
-	unlink((char *)fileName);
-    fclose(file);
-}
-
-/* macros used in get/search functions */
-
-/* find entries named ename, leafness leaf, tight or loose, and call get */
-#define GTIGHTLOOSE(ename,looseleaf) \
-    NFIND(ename); \
-    if (entry) { \
-	if (leaf == entry->leaf) { \
-	    if (!leaf && !entry->tight && entry->next && \
-		entry->next->name == q && entry->next->tight && \
-		entry->next->hasloose && \
-		looseleaf((LTable)entry->next, names+1, classes+1, closure)) \
-		return True; \
-	    if ((*get)(entry, names+1, classes+1, closure)) \
-		return True; \
-	    if (entry->tight && (entry = entry->next) && \
-		entry->name == q && leaf == entry->leaf && \
-		(*get)(entry, names+1, classes+1, closure)) \
-		return True; \
-	} else if (entry->leaf) { \
-	    if (entry->hasloose && \
-		looseleaf((LTable)entry, names+1, classes+1, closure)) \
-		return True; \
-	    if (entry->tight && (entry = entry->next) && \
-		entry->name == q && entry->hasloose && \
-		looseleaf((LTable)entry, names+1, classes+1, closure)) \
-		return True; \
-	} \
-    }
-
-/* find entries named ename, leafness leaf, loose only, and call get */
-#define GLOOSE(ename,looseleaf) \
-    NFIND(ename); \
-    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \
-	entry = (NTable)NULL; \
-    if (entry) { \
-	if (leaf == entry->leaf) { \
-	    if ((*get)(entry, names+1, classes+1, closure)) \
-		return True; \
-	} else if (entry->leaf && entry->hasloose) { \
-	    if (looseleaf((LTable)entry, names+1, classes+1, closure)) \
-		return True; \
-	} \
-    }
-
-/* add tight/loose entry to the search list, return True if list is full */
-/*ARGSUSED*/
-static Bool AppendLEntry(
-    LTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    register SClosure	closure)
-{
-    /* check for duplicate */
-    if (closure->idx >= 0 && closure->list[closure->idx] == table)
-	return False;
-    if (closure->idx == closure->limit)
-	return True;
-    /* append it */
-    closure->idx++;
-    closure->list[closure->idx] = table;
-    return False;
-}
-
-/* add loose entry to the search list, return True if list is full */
-/*ARGSUSED*/
-static Bool AppendLooseLEntry(
-    LTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    register SClosure	closure)
-{
-    /* check for duplicate */
-    if (closure->idx >= 0 && closure->list[closure->idx] == table)
-	return False;
-    if (closure->idx >= closure->limit - 1)
-	return True;
-    /* append it */
-    closure->idx++;
-    closure->list[closure->idx] = LOOSESEARCH;
-    closure->idx++;
-    closure->list[closure->idx] = table;
-    return False;
-}
-
-/* search for a leaf table */
-static Bool SearchNEntry(
-    NTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    SClosure		closure)
-{
-    register NTable	entry;
-    register XrmQuark	q;
-    register unsigned int leaf;
-    Bool		(*get)(
-            NTable		table,
-            XrmNameList		names,
-            XrmClassList 	classes,
-            SClosure		closure);
-
-    if (names[1]) {
-	get = SearchNEntry; /* recurse */
-	leaf = 0;
-    } else {
-	get = (getNTableSProcp)AppendLEntry; /* bottom of recursion */
-	leaf = 1;
-    }
-    GTIGHTLOOSE(*names, AppendLooseLEntry);   /* do name, tight and loose */
-    GTIGHTLOOSE(*classes, AppendLooseLEntry); /* do class, tight and loose */
-    if (table->hasany) {
-	GTIGHTLOOSE(XrmQANY, AppendLooseLEntry); /* do ANY, tight and loose */
-    }
-    if (table->hasloose) {
-	while (1) {
-	    names++;
-	    classes++;
-	    if (!*names)
-		break;
-	    if (!names[1]) {
-		get = (getNTableSProcp)AppendLEntry; /* bottom of recursion */
-		leaf = 1;
-	    }
-	    GLOOSE(*names, AppendLooseLEntry);   /* loose names */
-	    GLOOSE(*classes, AppendLooseLEntry); /* loose classes */
-	    if (table->hasany) {
-		GLOOSE(XrmQANY, AppendLooseLEntry); /* loose ANY */
-	    }
-	}
-    }
-    /* now look for matching leaf nodes */
-    entry = table->next;
-    if (!entry)
-	return False;
-    if (entry->leaf) {
-	if (entry->tight && !table->tight)
-	    entry = entry->next;
-    } else {
-	entry = entry->next;
-	if (!entry || !entry->tight)
-	    return False;
-    }
-    if (!entry || entry->name != table->name)
-	return False;
-    /* found one */
-    if (entry->hasloose &&
-	AppendLooseLEntry((LTable)entry, names, classes, closure))
-	return True;
-    if (entry->tight && entry == table->next && (entry = entry->next) &&
-	entry->name == table->name && entry->hasloose)
-	return AppendLooseLEntry((LTable)entry, names, classes, closure);
-    return False;
-}
-
-Bool XrmQGetSearchList(
-    XrmDatabase     db,
-    XrmNameList	    names,
-    XrmClassList    classes,
-    XrmSearchList   searchList,	/* RETURN */
-    int		    listLength)
-{
-    register NTable	table;
-    SClosureRec		closure;
-
-    if (listLength <= 0)
-	return False;
-    closure.list = (LTable *)searchList;
-    closure.idx = -1;
-    closure.limit = listLength - 2;
-    if (db) {
-	_XLockMutex(&db->linfo);
-	table = db->table;
-	if (*names) {
-	    if (table && !table->leaf) {
-		if (SearchNEntry(table, names, classes, &closure)) {
-		    _XUnlockMutex(&db->linfo);
-		    return False;
-		}
-	    } else if (table && table->hasloose &&
-		       AppendLooseLEntry((LTable)table, names, classes,
-					 &closure)) {
-		_XUnlockMutex(&db->linfo);
-		return False;
-	    }
-	} else {
-	    if (table && !table->leaf)
-		table = table->next;
-	    if (table &&
-		AppendLEntry((LTable)table, names, classes, &closure)) {
-		_XUnlockMutex(&db->linfo);
-		return False;
-	    }
-	}
-	_XUnlockMutex(&db->linfo);
-    }
-    closure.list[closure.idx + 1] = (LTable)NULL;
-    return True;
-}
-
-Bool XrmQGetSearchResource(
-	     XrmSearchList	searchList,
-    register XrmName		name,
-    register XrmClass		class,
-    	     XrmRepresentation	*pType,  /* RETURN */
-    	     XrmValue		*pValue) /* RETURN */
-{
-    register LTable *list;
-    register LTable table;
-    register VEntry entry = NULL;
-    int flags;
-
-/* find tight or loose entry */
-#define VTIGHTLOOSE(q) \
-    entry = LeafHash(table, q); \
-    while (entry && entry->name != q) \
-	entry = entry->next; \
-    if (entry) \
-	break
-
-/* find loose entry */
-#define VLOOSE(q) \
-    entry = LeafHash(table, q); \
-    while (entry && entry->name != q) \
-	entry = entry->next; \
-    if (entry) { \
-	if (!entry->tight) \
-	    break; \
-	if ((entry = entry->next) && entry->name == q) \
-	    break; \
-    }
-
-    list = (LTable *)searchList;
-    /* figure out which combination of name and class we need to search for */
-    flags = 0;
-    if (IsResourceQuark(name))
-	flags = 2;
-    if (IsResourceQuark(class))
-	flags |= 1;
-    if (!flags) {
-	/* neither name nor class has ever been used to name a resource */
-	table = (LTable)NULL;
-    } else if (flags == 3) {
-	/* both name and class */
-	while ((table = *list++)) {
-	    if (table != LOOSESEARCH) {
-		VTIGHTLOOSE(name);  /* do name, tight and loose */
-		VTIGHTLOOSE(class); /* do class, tight and loose */
-	    } else {
-		table = *list++;
-		VLOOSE(name);  /* do name, loose only */
-		VLOOSE(class); /* do class, loose only */
-	    }
-	}
-    } else {
-	/* just one of name or class */
-	if (flags == 1)
-	    name = class;
-	while ((table = *list++)) {
-	    if (table != LOOSESEARCH) {
-		VTIGHTLOOSE(name); /* tight and loose */
-	    } else {
-		table = *list++;
-		VLOOSE(name); /* loose only */
-	    }
-	}
-    }
-    if (table) {
-	/* found a match */
-	if (entry->string) {
-	    *pType = XrmQString;
-	    pValue->addr = StringValue(entry);
-	} else {
-	    *pType = RepType(entry);
-	    pValue->addr = DataValue(entry);
-	}
-	pValue->size = entry->size;
-	return True;
-    }
-    *pType = NULLQUARK;
-    pValue->addr = (XPointer)NULL;
-    pValue->size = 0;
-    return False;
-
-#undef VTIGHTLOOSE
-#undef VLOOSE
-}
-
-/* look for a tight/loose value */
-static Bool GetVEntry(
-    LTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    VClosure		closure)
-{
-    register VEntry entry;
-    register XrmQuark q;
-
-    /* try name first */
-    q = *names;
-    entry = LeafHash(table, q);
-    while (entry && entry->name != q)
-	entry = entry->next;
-    if (!entry) {
-	/* not found, try class */
-	q = *classes;
-	entry = LeafHash(table, q);
-	while (entry && entry->name != q)
-	    entry = entry->next;
-	if (!entry)
-	    return False;
-    }
-    if (entry->string) {
-	*closure->type = XrmQString;
-	closure->value->addr = StringValue(entry);
-    } else {
-	*closure->type = RepType(entry);
-	closure->value->addr = DataValue(entry);
-    }
-    closure->value->size = entry->size;
-    return True;
-}
-
-/* look for a loose value */
-static Bool GetLooseVEntry(
-    LTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    VClosure		closure)
-{
-    register VEntry	entry;
-    register XrmQuark	q;
-
-#define VLOOSE(ename) \
-    q = ename; \
-    entry = LeafHash(table, q); \
-    while (entry && entry->name != q) \
-	entry = entry->next; \
-    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \
-	entry = (VEntry)NULL;
-
-    /* bump to last component */
-    while (names[1]) {
-	names++;
-	classes++;
-    }
-    VLOOSE(*names);  /* do name, loose only */
-    if (!entry) {
-	VLOOSE(*classes); /* do class, loose only */
-	if (!entry)
-	    return False;
-    }
-    if (entry->string) {
-	*closure->type = XrmQString;
-	closure->value->addr = StringValue(entry);
-    } else {
-	*closure->type = RepType(entry);
-	closure->value->addr = DataValue(entry);
-    }
-    closure->value->size = entry->size;
-    return True;
-
-#undef VLOOSE
-}
-
-/* recursive search for a value */
-static Bool GetNEntry(
-    NTable		table,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    VClosure		closure)
-{
-    register NTable	entry;
-    register XrmQuark	q;
-    register unsigned int leaf;
-    Bool		(*get)(
-            NTable              table,
-            XrmNameList         names,
-            XrmClassList        classes,
-            VClosure            closure);
-    NTable		otable;
-
-    if (names[2]) {
-	get = GetNEntry; /* recurse */
-	leaf = 0;
-    } else {
-	get = (getNTableVProcp)GetVEntry; /* bottom of recursion */
-	leaf = 1;
-    }
-    GTIGHTLOOSE(*names, GetLooseVEntry);   /* do name, tight and loose */
-    GTIGHTLOOSE(*classes, GetLooseVEntry); /* do class, tight and loose */
-    if (table->hasany) {
-	GTIGHTLOOSE(XrmQANY, GetLooseVEntry); /* do ANY, tight and loose */
-    }
-    if (table->hasloose) {
-	while (1) {
-	    names++;
-	    classes++;
-	    if (!names[1])
-		break;
-	    if (!names[2]) {
-		get = (getNTableVProcp)GetVEntry; /* bottom of recursion */
-		leaf = 1;
-	    }
-	    GLOOSE(*names, GetLooseVEntry);   /* do name, loose only */
-	    GLOOSE(*classes, GetLooseVEntry); /* do class, loose only */
-	    if (table->hasany) {
-		GLOOSE(XrmQANY, GetLooseVEntry); /* do ANY, loose only */
-	    }
-	}
-    }
-    /* look for matching leaf tables */
-    otable = table;
-    table = table->next;
-    if (!table)
-	return False;
-    if (table->leaf) {
-	if (table->tight && !otable->tight)
-	    table = table->next;
-    } else {
-	table = table->next;
-	if (!table || !table->tight)
-	    return False;
-    }
-    if (!table || table->name != otable->name)
-	return False;
-    /* found one */
-    if (table->hasloose &&
-	GetLooseVEntry((LTable)table, names, classes, closure))
-	return True;
-    if (table->tight && table == otable->next) {
-	table = table->next;
-	if (table && table->name == otable->name && table->hasloose)
-	    return GetLooseVEntry((LTable)table, names, classes, closure);
-    }
-    return False;
-}
-
-Bool XrmQGetResource(
-    XrmDatabase         db,
-    XrmNameList		names,
-    XrmClassList 	classes,
-    XrmRepresentation	*pType,  /* RETURN */
-    XrmValuePtr		pValue)  /* RETURN */
-{
-    register NTable table;
-    VClosureRec closure;
-
-    if (db && *names) {
-	_XLockMutex(&db->linfo);
-	closure.type = pType;
-	closure.value = pValue;
-	table = db->table;
-	if (names[1]) {
-	    if (table && !table->leaf) {
-		if (GetNEntry(table, names, classes, &closure)) {
-		    _XUnlockMutex(&db->linfo);
-		    return True;
-		}
-	    } else if (table && table->hasloose &&
-		    GetLooseVEntry((LTable)table, names, classes, &closure)) {
-		_XUnlockMutex (&db->linfo);
-		return True;
-	    }
-	} else {
-	    if (table && !table->leaf)
-		table = table->next;
-	    if (table && GetVEntry((LTable)table, names, classes, &closure)) {
-		_XUnlockMutex(&db->linfo);
-		return True;
-	    }
-	}
-	_XUnlockMutex(&db->linfo);
-    }
-    *pType = NULLQUARK;
-    pValue->addr = (XPointer)NULL;
-    pValue->size = 0;
-    return False;
-}
-
-Bool
-XrmGetResource(XrmDatabase db, _Xconst char *name_str, _Xconst char *class_str,
-	       XrmString *pType_str, XrmValuePtr pValue)
-{
-    XrmName		names[MAXDBDEPTH+1];
-    XrmClass		classes[MAXDBDEPTH+1];
-    XrmRepresentation   fromType;
-    Bool		result;
-
-    XrmStringToNameList(name_str, names);
-    XrmStringToClassList(class_str, classes);
-    result = XrmQGetResource(db, names, classes, &fromType, pValue);
-    (*pType_str) = XrmQuarkToString(fromType);
-    return result;
-}
-
-/* destroy all values, plus table itself */
-static void DestroyLTable(
-    LTable table)
-{
-    register int i;
-    register VEntry *buckets;
-    register VEntry entry, next;
-
-    buckets = table->buckets;
-    for (i = table->table.mask; i >= 0; i--, buckets++) {
-	for (next = *buckets; (entry = next); ) {
-	    next = entry->next;
-	    Xfree((char *)entry);
-	}
-    }
-    Xfree((char *)table->buckets);
-    Xfree((char *)table);
-}
-
-/* destroy all contained tables, plus table itself */
-static void DestroyNTable(
-    NTable table)
-{
-    register int i;
-    register NTable *buckets;
-    register NTable entry, next;
-
-    buckets = NodeBuckets(table);
-    for (i = table->mask; i >= 0; i--, buckets++) {
-	for (next = *buckets; (entry = next); ) {
-	    next = entry->next;
-	    if (entry->leaf)
-		DestroyLTable((LTable)entry);
-	    else
-		DestroyNTable(entry);
-	}
-    }
-    Xfree((char *)table);
-}
-
-const char *
-XrmLocaleOfDatabase(
-    XrmDatabase db)
-{
-    const char* retval;
-    _XLockMutex(&db->linfo);
-    retval = (*db->methods->lcname)(db->mbstate);
-    _XUnlockMutex(&db->linfo);
-    return retval;
-}
-
-void XrmDestroyDatabase(
-    XrmDatabase   db)
-{
-    register NTable table, next;
-
-    if (db) {
-	_XLockMutex(&db->linfo);
-	for (next = db->table; (table = next); ) {
-	    next = table->next;
-	    if (table->leaf)
-		DestroyLTable((LTable)table);
-	    else
-		DestroyNTable(table);
-	}
-	_XUnlockMutex(&db->linfo);
-	_XFreeMutex(&db->linfo);
-	(*db->methods->destroy)(db->mbstate);
-	Xfree((char *)db);
-    }
-}
+

+/***********************************************************

+Copyright 1987, 1988, 1990 by Digital Equipment Corporation, Maynard

+

+                        All Rights Reserved

+

+Permission to use, copy, modify, and distribute this software and its

+documentation for any purpose and without fee is hereby granted,

+provided that the above copyright notice appear in all copies and that

+both that copyright notice and this permission notice appear in

+supporting documentation, and that the name Digital not be

+used in advertising or publicity pertaining to distribution of the

+software without specific, written prior permission.

+

+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+SOFTWARE.

+

+******************************************************************/

+/*

+

+Copyright 1987, 1988, 1990, 1998  The Open Group

+

+Permission to use, copy, modify, distribute, and sell this software and its

+documentation for any purpose is hereby granted without fee, provided that

+the above copyright notice appear in all copies and that both that

+copyright notice and this permission notice appear in supporting

+documentation.

+

+The above copyright notice and this permission notice shall be included

+in all copies or substantial portions of the Software.

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS

+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

+IN NO EVENT SHALL THE OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR

+OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,

+ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

+OTHER DEALINGS IN THE SOFTWARE.

+

+Except as contained in this notice, the name of The Open Group shall

+not be used in advertising or otherwise to promote the sale, use or

+other dealings in this Software without prior written authorization

+from The Open Group.

+

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include	<stdio.h>

+#include	<ctype.h>

+#include	"Xlibint.h"

+#include	<X11/Xresource.h>

+#include	"Xlcint.h"

+#ifdef XTHREADS

+#include	"locking.h"

+#endif

+#include	<X11/Xos.h>

+#include	<sys/stat.h>

+#include "Xresinternal.h"

+#include "Xresource.h"

+

+/*

+

+These Xrm routines allow very fast lookup of resources in the resource

+database.  Several usage patterns are exploited:

+

+(1) Widgets get a lot of resources at one time.  Rather than look up each from

+scratch, we can precompute the prioritized list of database levels once, then

+search for each resource starting at the beginning of the list.

+

+(2) Many database levels don't contain any leaf resource nodes.  There is no

+point in looking for resources on a level that doesn't contain any.  This

+information is kept on a per-level basis.

+

+(3) Sometimes the widget instance tree is structured such that you get the same

+class name repeated on the fully qualified widget name.  This can result in the

+same database level occuring multiple times on the search list.  The code below

+only checks to see if you get two identical search lists in a row, rather than

+look back through all database levels, but in practice this removes all

+duplicates I've ever observed.

+

+Joel McCormack

+

+*/

+

+/*

+

+The Xrm representation has been completely redesigned to substantially reduce

+memory and hopefully improve performance.

+

+The database is structured into two kinds of tables: LTables that contain

+only values, and NTables that contain only other tables.

+

+Some invariants:

+

+The next pointer of the top-level node table points to the top-level leaf

+table, if any.

+

+Within an LTable, for a given name, the tight value always precedes the

+loose value, and if both are present the loose value is always right after

+the tight value.

+

+Within an NTable, all of the entries for a given name are contiguous,

+in the order tight NTable, loose NTable, tight LTable, loose LTable.

+

+Bob Scheifler

+

+*/

+

+static XrmQuark XrmQString, XrmQANY;

+

+typedef	Bool (*DBEnumProc)(

+    XrmDatabase*	/* db */,

+    XrmBindingList	/* bindings */,

+    XrmQuarkList	/* quarks */,

+    XrmRepresentation*	/* type */,

+    XrmValue*		/* value */,

+    XPointer		/* closure */

+);

+

+typedef struct _VEntry {

+    struct _VEntry	*next;		/* next in chain */

+    XrmQuark		name;		/* name of this entry */

+    unsigned int	tight:1;	/* 1 if it is a tight binding */

+    unsigned int	string:1;	/* 1 if type is String */

+    unsigned int	size:30;	/* size of value */

+} VEntryRec, *VEntry;

+

+

+typedef struct _DEntry {

+    VEntryRec		entry;		/* entry */

+    XrmRepresentation	type;		/* representation type */

+} DEntryRec, *DEntry;

+

+/* the value is right after the structure */

+#define StringValue(ve) (XPointer)((ve) + 1)

+#define RepType(ve) ((DEntry)(ve))->type

+/* the value is right after the structure */

+#define DataValue(ve) (XPointer)(((DEntry)(ve)) + 1)

+#define RawValue(ve) (char *)((ve)->string ? StringValue(ve) : DataValue(ve))

+

+typedef struct _NTable {

+    struct _NTable	*next;		/* next in chain */

+    XrmQuark		name;		/* name of this entry */

+    unsigned int	tight:1;	/* 1 if it is a tight binding */

+    unsigned int	leaf:1;		/* 1 if children are values */

+    unsigned int	hasloose:1;	/* 1 if has loose children */

+    unsigned int	hasany:1;	/* 1 if has ANY entry */

+    unsigned int	pad:4;		/* unused */

+    unsigned int	mask:8;		/* hash size - 1 */

+    unsigned int	entries:16;	/* number of children */

+} NTableRec, *NTable;

+

+/* the buckets are right after the structure */

+#define NodeBuckets(ne) ((NTable *)((ne) + 1))

+#define NodeHash(ne,q) NodeBuckets(ne)[(q) & (ne)->mask]

+

+/* leaf tables have an extra level of indirection for the buckets,

+ * so that resizing can be done without invalidating a search list.

+ * This is completely ugly, and wastes some memory, but the Xlib

+ * spec doesn't really specify whether invalidation is OK, and the

+ * old implementation did not invalidate.

+ */

+typedef struct _LTable {

+    NTableRec		table;

+    VEntry		*buckets;

+} LTableRec, *LTable;

+

+#define LeafHash(le,q) (le)->buckets[(q) & (le)->table.mask]

+

+/* An XrmDatabase just holds a pointer to the first top-level table.

+ * The type name is no longer descriptive, but better to not change

+ * the Xresource.h header file.  This type also gets used to define

+ * XrmSearchList, which is a complete crock, but we'll just leave it

+ * and caste types as required.

+ */

+typedef struct _XrmHashBucketRec {

+    NTable table;

+    XPointer mbstate;

+    XrmMethods methods;

+#ifdef XTHREADS

+    LockInfoRec linfo;

+#endif

+} XrmHashBucketRec;

+

+/* closure used in get/put resource */

+typedef struct _VClosure {

+    XrmRepresentation	*type;		/* type of value */

+    XrmValuePtr		value;		/* value itself */

+} VClosureRec, *VClosure;

+

+/* closure used in get search list */

+typedef struct _SClosure {

+    LTable		*list;		/* search list */

+    int			idx;		/* index of last filled element */

+    int			limit;		/* maximum index */

+} SClosureRec, *SClosure;

+

+/* placed in XrmSearchList to indicate next table is loose only */

+#define LOOSESEARCH ((LTable)1)

+

+/* closure used in enumerate database */

+typedef struct _EClosure {

+    XrmDatabase db;			/* the database */

+    DBEnumProc proc;			/* the user proc */

+    XPointer closure;			/* the user closure */

+    XrmBindingList bindings;		/* binding list */

+    XrmQuarkList quarks;		/* quark list */

+    int mode;				/* XrmEnum<kind> */

+} EClosureRec, *EClosure;

+

+/* types for typecasting ETable based functions to NTable based functions */

+typedef Bool (*getNTableSProcp)(

+    NTable              table,

+    XrmNameList         names,

+    XrmClassList        classes,

+    SClosure            closure);

+typedef Bool (*getNTableVProcp)(

+    NTable              table,

+    XrmNameList         names,

+    XrmClassList        classes,

+    VClosure            closure);

+typedef Bool (*getNTableEProcp)(

+    NTable              table,

+    XrmNameList         names,

+    XrmClassList        classes,

+    register int        level,

+    EClosure            closure);

+

+/* predicate to determine when to resize a hash table */

+#define GrowthPred(n,m) ((unsigned)(n) > (((m) + 1) << 2))

+

+#define GROW(prev) \

+    if (GrowthPred((*prev)->entries, (*prev)->mask)) \

+	GrowTable(prev)

+

+/* pick a reasonable value for maximum depth of resource database */

+#define MAXDBDEPTH 100

+

+/* macro used in get/search functions */

+

+/* find an entry named ename, with leafness given by leaf */

+#define NFIND(ename) \

+    q = ename; \

+    entry = NodeHash(table, q); \

+    while (entry && entry->name != q) \

+	entry = entry->next; \

+    if (leaf && entry && !entry->leaf) { \

+	entry = entry->next; \

+	if (entry && !entry->leaf) \

+	    entry = entry->next; \

+	if (entry && entry->name != q) \

+	    entry = (NTable)NULL; \

+    }

+

+/* resourceQuarks keeps track of what quarks have been associated with values

+ * in all LTables.  If a quark has never been used in an LTable, we don't need

+ * to bother looking for it.

+ */

+

+static unsigned char *resourceQuarks = (unsigned char *)NULL;

+static XrmQuark maxResourceQuark = -1;

+

+/* determines if a quark has been used for a value in any database */

+#define IsResourceQuark(q)  ((q) > 0 && (q) <= maxResourceQuark && \

+			     resourceQuarks[(q) >> 3] & (1 << ((q) & 7)))

+

+typedef unsigned char XrmBits;

+

+#define BSLASH  ((XrmBits) (1 << 5))

+#define NORMAL	((XrmBits) (1 << 4))

+#define EOQ	((XrmBits) (1 << 3))

+#define SEP	((XrmBits) (1 << 2))

+#define ENDOF	((XrmBits) (1 << 1))

+#define SPACE	(NORMAL|EOQ|SEP|(XrmBits)0)

+#define RSEP	(NORMAL|EOQ|SEP|(XrmBits)1)

+#define EOS	(EOQ|SEP|ENDOF|(XrmBits)0)

+#define EOL	(EOQ|SEP|ENDOF|(XrmBits)1)

+#define BINDING	(NORMAL|EOQ)

+#define ODIGIT	(NORMAL|(XrmBits)1)

+

+#define next_char(ch,str) xrmtypes[(unsigned char)((ch) = *(++(str)))]

+#define next_mbchar(ch,len,str) xrmtypes[(unsigned char)(ch = (*db->methods->mbchar)(db->mbstate, str, &len), str += len, ch)]

+

+#define is_space(bits)		((bits) == SPACE)

+#define is_EOQ(bits)		((bits) & EOQ)

+#define is_EOF(bits)		((bits) == EOS)

+#define is_EOL(bits)		((bits) & ENDOF)

+#define is_binding(bits)	((bits) == BINDING)

+#define is_odigit(bits)		((bits) == ODIGIT)

+#define is_separator(bits)	((bits) & SEP)

+#define is_nonpcs(bits)		(!(bits))

+#define is_normal(bits)		((bits) & NORMAL)

+#define is_simple(bits)		((bits) & (NORMAL|BSLASH))

+#define is_special(bits)	((bits) & (ENDOF|BSLASH))

+

+/* parsing types */

+static XrmBits const xrmtypes[256] = {

+    EOS,0,0,0,0,0,0,0,

+    0,SPACE,EOL,0,0,

+#if defined(WIN32) || defined(__UNIXOS2__)

+                    EOL,	/* treat CR the same as LF, just in case */

+#else

+                    0,

+#endif

+                      0,0,

+    0,0,0,0,0,0,0,0,

+    0,0,0,0,0,0,0,0,

+    SPACE,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,BINDING,NORMAL,NORMAL,NORMAL,BINDING,NORMAL,

+    ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,ODIGIT,

+    NORMAL,NORMAL,RSEP,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,BSLASH,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,

+    NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,NORMAL,0

+    /* The rest will be automatically initialized to zero. */

+};

+

+void XrmInitialize(void)

+{

+    XrmQString = XrmPermStringToQuark("String");

+    XrmQANY = XrmPermStringToQuark("?");

+}

+

+XrmDatabase XrmGetDatabase(

+    Display *display)

+{

+    XrmDatabase retval;

+    LockDisplay(display);

+    retval = display->db;

+    UnlockDisplay(display);

+    return retval;

+}

+

+void XrmSetDatabase(

+    Display *display,

+    XrmDatabase database)

+{

+    LockDisplay(display);

+    /* destroy database if set up imlicitely by XGetDefault() */

+    if (display->db && (display->flags & XlibDisplayDfltRMDB)) {

+	XrmDestroyDatabase(display->db);

+	display->flags &= ~XlibDisplayDfltRMDB;

+    }

+    display->db = database;

+    UnlockDisplay(display);

+}

+

+void

+XrmStringToQuarkList(

+    register _Xconst char  *name,

+    register XrmQuarkList quarks)   /* RETURN */

+{

+    register XrmBits		bits;

+    register Signature  	sig = 0;

+    register char       	ch, *tname;

+    register int 		i = 0;

+

+    if ((tname = (char *)name)) {

+	tname--;

+	while (!is_EOF(bits = next_char(ch, tname))) {

+	    if (is_binding (bits)) {

+		if (i) {

+		    /* Found a complete name */

+		    *quarks++ = _XrmInternalStringToQuark(name,tname - name,

+							  sig, False);

+		    i = 0;

+		    sig = 0;

+		}

+		name = tname+1;

+	    }

+	    else {

+		sig = (sig << 1) + ch; /* Compute the signature. */

+		i++;

+	    }

+	}

+	*quarks++ = _XrmInternalStringToQuark(name, tname - name, sig, False);

+    }

+    *quarks = NULLQUARK;

+}

+

+void

+XrmStringToBindingQuarkList(

+    register _Xconst char   *name,

+    register XrmBindingList bindings,   /* RETURN */

+    register XrmQuarkList   quarks)     /* RETURN */

+{

+    register XrmBits		bits;

+    register Signature  	sig = 0;

+    register char       	ch, *tname;

+    register XrmBinding 	binding;

+    register int 		i = 0;

+

+    if ((tname = (char *)name)) {

+	tname--;

+	binding = XrmBindTightly;

+	while (!is_EOF(bits = next_char(ch, tname))) {

+	    if (is_binding (bits)) {

+		if (i) {

+		    /* Found a complete name */

+		    *bindings++ = binding;

+		    *quarks++ = _XrmInternalStringToQuark(name, tname - name,

+							  sig, False);

+

+		    i = 0;

+		    sig = 0;

+		    binding = XrmBindTightly;

+		}

+		name = tname+1;

+

+		if (ch == '*')

+		    binding = XrmBindLoosely;

+	    }

+	    else {

+		sig = (sig << 1) + ch; /* Compute the signature. */

+		i++;

+	    }

+	}

+	*bindings = binding;

+	*quarks++ = _XrmInternalStringToQuark(name, tname - name, sig, False);

+    }

+    *quarks = NULLQUARK;

+}

+

+#ifdef DEBUG

+

+static void PrintQuarkList(

+    XrmQuarkList    quarks,

+    FILE	    *stream)

+{

+    Bool	    firstNameSeen;

+

+    for (firstNameSeen = False; *quarks; quarks++) {

+	if (firstNameSeen) {

+	    (void) fprintf(stream, ".");

+	}

+	firstNameSeen = True;

+	(void) fputs(XrmQuarkToString(*quarks), stream);

+    }

+} /* PrintQuarkList */

+

+#endif /* DEBUG */

+

+

+/*

+ * Fallback methods for Xrm parsing.

+ * Simulate a C locale. No state needed here.

+ */

+

+static void

+c_mbnoop(

+    XPointer state)

+{

+}

+

+static char

+c_mbchar(

+    XPointer state,

+    const char *str,

+    int *lenp)

+{

+    *lenp = 1;

+    return *str;

+}

+

+static const char *

+c_lcname(

+    XPointer state)

+{

+    return "C";

+}

+

+static const XrmMethodsRec mb_methods = {

+    c_mbnoop,	/* mbinit */

+    c_mbchar,	/* mbchar */

+    c_mbnoop,	/* mbfinish */

+    c_lcname,	/* lcname */

+    c_mbnoop	/* destroy */

+};

+

+

+static XrmDatabase NewDatabase(void)

+{

+    register XrmDatabase db;

+

+    db = (XrmDatabase) Xmalloc(sizeof(XrmHashBucketRec));

+    if (db) {

+	_XCreateMutex(&db->linfo);

+	db->table = (NTable)NULL;

+	db->mbstate = (XPointer)NULL;

+	db->methods = _XrmInitParseInfo(&db->mbstate);

+	if (!db->methods)

+	    db->methods = &mb_methods;

+    }

+    return db;

+}

+

+/* move all values from ftable to ttable, and free ftable's buckets.

+ * ttable is quaranteed empty to start with.

+ */

+static void MoveValues(

+    LTable ftable,

+    register LTable ttable)

+{

+    register VEntry fentry, nfentry;

+    register VEntry *prev;

+    register VEntry *bucket;

+    register VEntry tentry;

+    register int i;

+

+    for (i = ftable->table.mask, bucket = ftable->buckets; i >= 0; i--) {

+	for (fentry = *bucket++; fentry; fentry = nfentry) {

+	    prev = &LeafHash(ttable, fentry->name);

+	    tentry = *prev;

+	    *prev = fentry;

+	    /* chain on all with same name, to preserve invariant order */

+	    while ((nfentry = fentry->next) && nfentry->name == fentry->name)

+		fentry = nfentry;

+	    fentry->next = tentry;

+	}

+    }

+    Xfree((char *)ftable->buckets);

+}

+

+/* move all tables from ftable to ttable, and free ftable.

+ * ttable is quaranteed empty to start with.

+ */

+static void MoveTables(

+    NTable ftable,

+    register NTable ttable)

+{

+    register NTable fentry, nfentry;

+    register NTable *prev;

+    register NTable *bucket;

+    register NTable tentry;

+    register int i;

+

+    for (i = ftable->mask, bucket = NodeBuckets(ftable); i >= 0; i--) {

+	for (fentry = *bucket++; fentry; fentry = nfentry) {

+	    prev = &NodeHash(ttable, fentry->name);

+	    tentry = *prev;

+	    *prev = fentry;

+	    /* chain on all with same name, to preserve invariant order */

+	    while ((nfentry = fentry->next) && nfentry->name == fentry->name)

+		fentry = nfentry;

+	    fentry->next = tentry;

+	}

+    }

+    Xfree((char *)ftable);

+}

+

+/* grow the table, based on current number of entries */

+static void GrowTable(

+    NTable *prev)

+{

+    register NTable table;

+    register int i;

+

+    table = *prev;

+    i = table->mask;

+    if (i == 255) /* biggest it gets */

+	return;

+    while (i < 255 && GrowthPred(table->entries, i))

+	i = (i << 1) + 1;

+    i++; /* i is now the new size */

+    if (table->leaf) {

+	register LTable ltable;

+	LTableRec otable;

+

+	ltable = (LTable)table;

+	/* cons up a copy to make MoveValues look symmetric */

+	otable = *ltable;

+	ltable->buckets = Xcalloc(i, sizeof(VEntry));

+	if (!ltable->buckets) {

+	    ltable->buckets = otable.buckets;

+	    return;

+	}

+	ltable->table.mask = i - 1;

+	MoveValues(&otable, ltable);

+    } else {

+	register NTable ntable;

+

+	ntable = Xcalloc(1, sizeof(NTableRec) + (i * sizeof(NTable)));

+	if (!ntable)

+	    return;

+	*ntable = *table;

+	ntable->mask = i - 1;

+	*prev = ntable;

+	MoveTables(table, ntable);

+    }

+}

+

+/* merge values from ftable into *pprev, destroy ftable in the process */

+static void MergeValues(

+    LTable ftable,

+    NTable *pprev,

+    Bool override)

+{

+    register VEntry fentry, tentry;

+    register VEntry *prev;

+    register LTable ttable;

+    VEntry *bucket;

+    int i;

+    register XrmQuark q;

+

+    ttable = (LTable)*pprev;

+    if (ftable->table.hasloose)

+	ttable->table.hasloose = 1;

+    for (i = ftable->table.mask, bucket = ftable->buckets;

+	 i >= 0;

+	 i--, bucket++) {

+	for (fentry = *bucket; fentry; ) {

+	    q = fentry->name;

+	    prev = &LeafHash(ttable, q);

+	    tentry = *prev;

+	    while (tentry && tentry->name != q)

+		tentry = *(prev = &tentry->next);

+	    /* note: test intentionally uses fentry->name instead of q */

+	    /* permits serendipitous inserts */

+	    while (tentry && tentry->name == fentry->name) {

+		/* if tentry is earlier, skip it */

+		if (!fentry->tight && tentry->tight) {

+		    tentry = *(prev = &tentry->next);

+		    continue;

+		}

+		if (fentry->tight != tentry->tight) {

+		    /* no match, chain in fentry */

+		    *prev = fentry;

+		    prev = &fentry->next;

+		    fentry = *prev;

+		    *prev = tentry;

+		    ttable->table.entries++;

+		} else if (override) {

+		    /* match, chain in fentry, splice out and free tentry */

+		    *prev = fentry;

+		    prev = &fentry->next;

+		    fentry = *prev;

+		    *prev = tentry->next;

+		    /* free the overridden entry */

+		    Xfree((char *)tentry);

+		    /* get next tentry */

+		    tentry = *prev;

+		} else {

+		    /* match, discard fentry */

+		    prev = &tentry->next;

+		    tentry = fentry; /* use as a temp var */

+		    fentry = fentry->next;

+		    /* free the overpowered entry */

+		    Xfree((char *)tentry);

+		    /* get next tentry */

+		    tentry = *prev;

+		}

+		if (!fentry)

+		    break;

+	    }

+	    /* at this point, tentry cannot match any fentry named q */

+	    /* chain in all bindings together, preserve invariant order */

+	    while (fentry && fentry->name == q) {

+		*prev = fentry;

+		prev = &fentry->next;

+		fentry = *prev;

+		*prev = tentry;

+		ttable->table.entries++;

+	    }

+	}

+    }

+    Xfree((char *)ftable->buckets);

+    Xfree((char *)ftable);

+    /* resize if necessary, now that we're all done */

+    GROW(pprev);

+}

+

+/* merge tables from ftable into *pprev, destroy ftable in the process */

+static void MergeTables(

+    NTable ftable,

+    NTable *pprev,

+    Bool override)

+{

+    register NTable fentry, tentry;

+    NTable nfentry;

+    register NTable *prev;

+    register NTable ttable;

+    NTable *bucket;

+    int i;

+    register XrmQuark q;

+

+    ttable = *pprev;

+    if (ftable->hasloose)

+	ttable->hasloose = 1;

+    if (ftable->hasany)

+	ttable->hasany = 1;

+    for (i = ftable->mask, bucket = NodeBuckets(ftable);

+	 i >= 0;

+	 i--, bucket++) {

+	for (fentry = *bucket; fentry; ) {

+	    q = fentry->name;

+	    prev = &NodeHash(ttable, q);

+	    tentry = *prev;

+	    while (tentry && tentry->name != q)

+		tentry = *(prev = &tentry->next);

+	    /* note: test intentionally uses fentry->name instead of q */

+	    /* permits serendipitous inserts */

+	    while (tentry && tentry->name == fentry->name) {

+		/* if tentry is earlier, skip it */

+		if ((fentry->leaf && !tentry->leaf) ||

+		    (!fentry->tight && tentry->tight &&

+		     (fentry->leaf || !tentry->leaf))) {

+		    tentry = *(prev = &tentry->next);

+		    continue;

+		}

+		nfentry = fentry->next;

+		if (fentry->leaf != tentry->leaf ||

+		    fentry->tight != tentry->tight) {

+		    /* no match, just chain in */

+		    *prev = fentry;

+		    *(prev = &fentry->next) = tentry;

+		    ttable->entries++;

+		} else {

+		    if (fentry->leaf)

+			MergeValues((LTable)fentry, prev, override);

+		    else

+			MergeTables(fentry, prev, override);

+		    /* bump to next tentry */

+		    tentry = *(prev = &(*prev)->next);

+		}

+		/* bump to next fentry */

+		fentry = nfentry;

+		if (!fentry)

+		    break;

+	    }

+	    /* at this point, tentry cannot match any fentry named q */

+	    /* chain in all bindings together, preserve invariant order */

+	    while (fentry && fentry->name == q) {

+		*prev = fentry;

+		prev = &fentry->next;

+		fentry = *prev;

+		*prev = tentry;

+		ttable->entries++;

+	    }

+	}

+    }

+    Xfree((char *)ftable);

+    /* resize if necessary, now that we're all done */

+    GROW(pprev);

+}

+

+void XrmCombineDatabase(

+    XrmDatabase	from, XrmDatabase *into,

+    Bool override)

+{

+    register NTable *prev;

+    register NTable ftable, ttable, nftable;

+

+    if (!*into) {

+	*into = from;

+    } else if (from) {

+	_XLockMutex(&from->linfo);

+	_XLockMutex(&(*into)->linfo);

+	if ((ftable = from->table)) {

+	    prev = &(*into)->table;

+	    ttable = *prev;

+	    if (!ftable->leaf) {

+		nftable = ftable->next;

+		if (ttable && !ttable->leaf) {

+		    /* both have node tables, merge them */

+		    MergeTables(ftable, prev, override);

+		    /* bump to into's leaf table, if any */

+		    ttable = *(prev = &(*prev)->next);

+		} else {

+		    /* into has no node table, link from's in */

+		    *prev = ftable;

+		    *(prev = &ftable->next) = ttable;

+		}

+		/* bump to from's leaf table, if any */

+		ftable = nftable;

+	    } else {

+		/* bump to into's leaf table, if any */

+		if (ttable && !ttable->leaf)

+		    ttable = *(prev = &ttable->next);

+	    }

+	    if (ftable) {

+		/* if into has a leaf, merge, else insert */

+		if (ttable)

+		    MergeValues((LTable)ftable, prev, override);

+		else

+		    *prev = ftable;

+	    }

+	}

+	(from->methods->destroy)(from->mbstate);

+	_XUnlockMutex(&from->linfo);

+	_XFreeMutex(&from->linfo);

+	Xfree((char *)from);

+	_XUnlockMutex(&(*into)->linfo);

+    }

+}

+

+void XrmMergeDatabases(

+    XrmDatabase	from, XrmDatabase *into)

+{

+    XrmCombineDatabase(from, into, True);

+}

+

+/* store a value in the database, overriding any existing entry */

+static void PutEntry(

+    XrmDatabase		db,

+    XrmBindingList	bindings,

+    XrmQuarkList	quarks,

+    XrmRepresentation	type,

+    XrmValuePtr		value)

+{

+    register NTable *pprev, *prev;

+    register NTable table;

+    register XrmQuark q;

+    register VEntry *vprev;

+    register VEntry entry;

+    NTable *nprev, *firstpprev;

+

+#define NEWTABLE(q,i) \

+    table = (NTable)Xmalloc(sizeof(LTableRec)); \

+    if (!table) \

+	return; \

+    table->name = q; \

+    table->hasloose = 0; \

+    table->hasany = 0; \

+    table->mask = 0; \

+    table->entries = 0; \

+    if (quarks[i]) { \

+	table->leaf = 0; \

+	nprev = NodeBuckets(table); \

+    } else { \

+	table->leaf = 1; \

+	if (!(nprev = (NTable *)Xmalloc(sizeof(VEntry *)))) {\

+	    Xfree(table); \

+	    return; \

+        } \

+	((LTable)table)->buckets = (VEntry *)nprev; \

+    } \

+    *nprev = (NTable)NULL; \

+    table->next = *prev; \

+    *prev = table

+

+    if (!db || !*quarks)

+	return;

+    table = *(prev = &db->table);

+    /* if already at leaf, bump to the leaf table */

+    if (!quarks[1] && table && !table->leaf)

+	table = *(prev = &table->next);

+    pprev = prev;

+    if (!table || (quarks[1] && table->leaf)) {

+	/* no top-level node table, create one and chain it in */

+	NEWTABLE(NULLQUARK,1);

+	table->tight = 1; /* arbitrary */

+	prev = nprev;

+    } else {

+	/* search along until we need a value */

+	while (quarks[1]) {

+	    q = *quarks;

+	    table = *(prev = &NodeHash(table, q));

+	    while (table && table->name != q)

+		table = *(prev = &table->next);

+	    if (!table)

+		break; /* not found */

+	    if (quarks[2]) {

+		if (table->leaf)

+		    break; /* not found */

+	    } else {

+		if (!table->leaf) {

+		    /* bump to leaf table, if any */

+		    table = *(prev = &table->next);

+		    if (!table || table->name != q)

+			break; /* not found */

+		    if (!table->leaf) {

+			/* bump to leaf table, if any */

+			table = *(prev = &table->next);

+			if (!table || table->name != q)

+			    break; /* not found */

+		    }

+		}

+	    }

+	    if (*bindings == XrmBindTightly) {

+		if (!table->tight)

+		    break; /* not found */

+	    } else {

+		if (table->tight) {

+		    /* bump to loose table, if any */

+		    table = *(prev = &table->next);

+		    if (!table || table->name != q ||

+			!quarks[2] != table->leaf)

+			break; /* not found */

+		}

+	    }

+	    /* found that one, bump to next quark */

+	    pprev = prev;

+	    quarks++;

+	    bindings++;

+	}

+	if (!quarks[1]) {

+	    /* found all the way to a leaf */

+	    q = *quarks;

+	    entry = *(vprev = &LeafHash((LTable)table, q));

+	    while (entry && entry->name != q)

+		entry = *(vprev = &entry->next);

+	    /* if want loose and have tight, bump to next entry */

+	    if (entry && *bindings == XrmBindLoosely && entry->tight)

+		entry = *(vprev = &entry->next);

+	    if (entry && entry->name == q &&

+		(*bindings == XrmBindTightly) == entry->tight) {

+		/* match, need to override */

+		if ((type == XrmQString) == entry->string &&

+		    entry->size == value->size) {

+		    /* update type if not String, can be different */

+		    if (!entry->string)

+			RepType(entry) = type;

+		    /* identical size, just overwrite value */

+		    memcpy(RawValue(entry), (char *)value->addr, value->size);

+		    return;

+		}

+		/* splice out and free old entry */

+		*vprev = entry->next;

+		Xfree((char *)entry);

+		(*pprev)->entries--;

+	    }

+	    /* this is where to insert */

+	    prev = (NTable *)vprev;

+	}

+    }

+    /* keep the top table, because we may have to grow it */

+    firstpprev = pprev;

+    /* iterate until we get to the leaf */

+    while (quarks[1]) {

+	/* build a new table and chain it in */

+	NEWTABLE(*quarks,2);

+	if (*quarks++ == XrmQANY)

+	    (*pprev)->hasany = 1;

+	if (*bindings++ == XrmBindTightly) {

+	    table->tight = 1;

+	} else {

+	    table->tight = 0;

+	    (*pprev)->hasloose = 1;

+	}

+	(*pprev)->entries++;

+	pprev = prev;

+	prev = nprev;

+    }

+    /* now allocate the value entry */

+    entry = (VEntry)Xmalloc(((type == XrmQString) ?

+			     sizeof(VEntryRec) : sizeof(DEntryRec)) +

+			    value->size);

+    if (!entry)

+	return;

+    entry->name = q = *quarks;

+    if (*bindings == XrmBindTightly) {

+	entry->tight = 1;

+    } else {

+	entry->tight = 0;

+	(*pprev)->hasloose = 1;

+    }

+    /* chain it in, with a bit of type cast ugliness */

+    entry->next = *((VEntry *)prev);

+    *((VEntry *)prev) = entry;

+    entry->size = value->size;

+    if (type == XrmQString) {

+	entry->string = 1;

+    } else {

+	entry->string = 0;

+	RepType(entry) = type;

+    }

+    /* save a copy of the value */

+    memcpy(RawValue(entry), (char *)value->addr, value->size);

+    (*pprev)->entries++;

+    /* this is a new leaf, need to remember it for search lists */

+    if (q > maxResourceQuark) {

+	unsigned oldsize = (maxResourceQuark + 1) >> 3;

+	unsigned size = ((q | 0x7f) + 1) >> 3; /* reallocate in chunks */

+	if (resourceQuarks) {

+	    unsigned char *prevQuarks = resourceQuarks;

+

+	    resourceQuarks = (unsigned char *)Xrealloc((char *)resourceQuarks,

+						       size);

+	    if (!resourceQuarks) {

+		Xfree(prevQuarks);

+	    }

+	} else

+	    resourceQuarks = (unsigned char *)Xmalloc(size);

+	if (resourceQuarks) {

+	    bzero((char *)&resourceQuarks[oldsize], size - oldsize);

+	    maxResourceQuark = (size << 3) - 1;

+	} else {

+	    maxResourceQuark = -1;

+	}

+    }

+    if (q > 0 && resourceQuarks)

+	resourceQuarks[q >> 3] |= 1 << (q & 0x7);

+    GROW(firstpprev);

+

+#undef NEWTABLE

+}

+

+void XrmQPutResource(

+    XrmDatabase		*pdb,

+    XrmBindingList      bindings,

+    XrmQuarkList	quarks,

+    XrmRepresentation	type,

+    XrmValuePtr		value)

+{

+    if (!*pdb) *pdb = NewDatabase();

+    _XLockMutex(&(*pdb)->linfo);

+    PutEntry(*pdb, bindings, quarks, type, value);

+    _XUnlockMutex(&(*pdb)->linfo);

+}

+

+void

+XrmPutResource(

+    XrmDatabase     *pdb,

+    _Xconst char    *specifier,

+    _Xconst char    *type,

+    XrmValuePtr	    value)

+{

+    XrmBinding	    bindings[MAXDBDEPTH+1];

+    XrmQuark	    quarks[MAXDBDEPTH+1];

+

+    if (!*pdb) *pdb = NewDatabase();

+    _XLockMutex(&(*pdb)->linfo);

+    XrmStringToBindingQuarkList(specifier, bindings, quarks);

+    PutEntry(*pdb, bindings, quarks, XrmStringToQuark(type), value);

+    _XUnlockMutex(&(*pdb)->linfo);

+}

+

+void

+XrmQPutStringResource(

+    XrmDatabase     *pdb,

+    XrmBindingList  bindings,

+    XrmQuarkList    quarks,

+    _Xconst char    *str)

+{

+    XrmValue	value;

+

+    if (!*pdb) *pdb = NewDatabase();

+    value.addr = (XPointer) str;

+    value.size = strlen(str)+1;

+    _XLockMutex(&(*pdb)->linfo);

+    PutEntry(*pdb, bindings, quarks, XrmQString, &value);

+    _XUnlockMutex(&(*pdb)->linfo);

+}

+

+/*	Function Name: GetDatabase

+ *	Description: Parses a string and stores it as a database.

+ *	Arguments: db - the database.

+ *                 str - a pointer to the string containing the database.

+ *                 filename - source filename, if any.

+ *                 doall - whether to do all lines or just one

+ */

+

+/*

+ * This function is highly optimized to inline as much as possible.

+ * Be very careful with modifications, or simplifications, as they

+ * may adversely affect the performance.

+ *

+ * Chris Peterson, MIT X Consortium		5/17/90.

+ */

+

+/*

+ * Xlib spec says max 100 quarks in a lookup, will stop and return if

+ * return if any single production's lhs has more than 100 components.

+ */

+#define QLIST_SIZE 100

+

+/*

+ * This should be big enough to handle things like the XKeysymDB or biggish

+ * ~/.Xdefaults or app-defaults files. Anything bigger will be allocated on

+ * the heap.

+ */

+#define DEF_BUFF_SIZE 8192

+

+static void GetIncludeFile(

+    XrmDatabase db,

+    _Xconst char *base,

+    _Xconst char *fname,

+    int fnamelen);

+

+static void GetDatabase(

+    XrmDatabase db,

+    _Xconst register char *str,

+    _Xconst char *filename,

+    Bool doall)

+{

+    char *rhs;

+    char *lhs, lhs_s[DEF_BUFF_SIZE];

+    XrmQuark quarks[QLIST_SIZE + 1];	/* allow for a terminal NullQuark */

+    XrmBinding bindings[QLIST_SIZE + 1];

+

+    register char *ptr;

+    register XrmBits bits = 0;

+    register char c;

+    register Signature sig;

+    register char *ptr_max;

+    register int num_quarks;

+    register XrmBindingList t_bindings;

+

+    int len, alloc_chars;

+    unsigned long str_len;

+    XrmValue value;

+    Bool only_pcs;

+    Bool dolines;

+

+    if (!db)

+	return;

+

+    /*

+     * if strlen (str) < DEF_BUFF_SIZE allocate buffers on the stack for

+     * speed otherwise malloc the buffer. From a buffer overflow standpoint

+     * we can be sure that neither: a) a component on the lhs, or b) a

+     * value on the rhs, will be longer than the overall length of str,

+     * i.e. strlen(str).

+     *

+     * This should give good performance when parsing "*foo: bar" type

+     * databases as might be passed with -xrm command line options; but

+     * with larger databases, e.g. .Xdefaults, app-defaults, or KeysymDB

+     * files, the size of the buffers will be overly large. One way

+     * around this would be to double-parse each production with a resulting

+     * performance hit. In any event we can be assured that a lhs component

+     * name or a rhs value won't be longer than str itself.

+     */

+

+    str_len = strlen (str);

+    if (DEF_BUFF_SIZE > str_len) lhs = lhs_s;

+    else if ((lhs = (char*) Xmalloc (str_len)) == NULL)

+	return;

+

+    alloc_chars = DEF_BUFF_SIZE < str_len ? str_len : DEF_BUFF_SIZE;

+    if ((rhs = (char*) Xmalloc (alloc_chars)) == NULL) {

+	if (lhs != lhs_s) Xfree (lhs);

+	return;

+    }

+

+    (*db->methods->mbinit)(db->mbstate);

+    str--;

+    dolines = True;

+    while (!is_EOF(bits) && dolines) {

+	dolines = doall;

+

+	/*

+	 * First: Remove extra whitespace.

+	 */

+

+	do {

+	    bits = next_char(c, str);

+	} while is_space(bits);

+

+	/*

+	 * Ignore empty lines.

+	 */

+

+	if (is_EOL(bits))

+	    continue;		/* start a new line. */

+

+	/*

+	 * Second: check the first character in a line to see if it is

+	 * "!" signifying a comment, or "#" signifying a directive.

+	 */

+

+	if (c == '!') { /* Comment, spin to next newline */

+	    while (is_simple(bits = next_char(c, str))) {}

+	    if (is_EOL(bits))

+		continue;

+	    while (!is_EOL(bits = next_mbchar(c, len, str))) {}

+	    str--;

+	    continue;		/* start a new line. */

+	}

+

+	if (c == '#') { /* Directive */

+	    /* remove extra whitespace */

+	    only_pcs = True;

+	    while (is_space(bits = next_char(c, str))) {};

+	    /* only "include" directive is currently defined */

+	    if (!strncmp(str, "include", 7)) {

+		str += (7-1);

+		/* remove extra whitespace */

+		while (is_space(bits = next_char(c, str))) {};

+		/* must have a starting " */

+		if (c == '"') {

+		    _Xconst char *fname = str+1;

+		    len = 0;

+		    do {

+			if (only_pcs) {

+			    bits = next_char(c, str);

+			    if (is_nonpcs(bits))

+				only_pcs = False;

+			}

+			if (!only_pcs)

+			    bits = next_mbchar(c, len, str);

+		    } while (c != '"' && !is_EOL(bits));

+		    /* must have an ending " */

+		    if (c == '"')

+			GetIncludeFile(db, filename, fname, str - len - fname);

+		}

+	    }

+	    /* spin to next newline */

+	    if (only_pcs) {

+		while (is_simple(bits))

+		    bits = next_char(c, str);

+		if (is_EOL(bits))

+		    continue;

+	    }

+	    while (!is_EOL(bits))

+		bits = next_mbchar(c, len, str);

+	    str--;

+	    continue;		/* start a new line. */

+	}

+

+	/*

+	 * Third: loop through the LHS of the resource specification

+	 * storing characters and converting this to a Quark.

+	 */

+

+	num_quarks = 0;

+	t_bindings = bindings;

+

+	sig = 0;

+	ptr = lhs;

+	*t_bindings = XrmBindTightly;

+	for(;;) {

+	    if (!is_binding(bits)) {

+		while (!is_EOQ(bits)) {

+		    *ptr++ = c;

+		    sig = (sig << 1) + c; /* Compute the signature. */

+		    bits = next_char(c, str);

+		}

+

+		quarks[num_quarks++] =

+			_XrmInternalStringToQuark(lhs, ptr - lhs, sig, False);

+

+		if (num_quarks > QLIST_SIZE) {

+		    Xfree(rhs);

+		    if (lhs != lhs_s) Xfree (lhs);

+		    (*db->methods->mbfinish)(db->mbstate);

+		    return;

+		}

+

+		if (is_separator(bits))  {

+		    if (!is_space(bits))

+			break;

+

+		    /* Remove white space */

+		    do {

+			*ptr++ = c;

+			sig = (sig << 1) + c; /* Compute the signature. */

+		    } while (is_space(bits = next_char(c, str)));

+

+		    /*

+		     * The spec doesn't permit it, but support spaces

+		     * internal to resource name/class

+		     */

+

+		    if (is_separator(bits))

+			break;

+		    num_quarks--;

+		    continue;

+		}

+

+		if (c == '.')

+		    *(++t_bindings) = XrmBindTightly;

+		else

+		    *(++t_bindings) = XrmBindLoosely;

+

+		sig = 0;

+		ptr = lhs;

+	    }

+	    else {

+		/*

+		 * Magic unspecified feature #254.

+		 *

+		 * If two separators appear with no Text between them then

+		 * ignore them.

+		 *

+		 * If anyone of those separators is a '*' then the binding

+		 * will be loose, otherwise it will be tight.

+		 */

+

+		if (c == '*')

+		    *t_bindings = XrmBindLoosely;

+	    }

+

+	    bits = next_char(c, str);

+	}

+

+	quarks[num_quarks] = NULLQUARK;

+

+	/*

+	 * Make sure that there is a ':' in this line.

+	 */

+

+	if (c != ':') {

+	    char oldc;

+

+	    /*

+	     * A parsing error has occured, toss everything on the line

+	     * a new_line can still be escaped with a '\'.

+	     */

+

+	    while (is_normal(bits))

+		bits = next_char(c, str);

+	    if (is_EOL(bits))

+		continue;

+	    bits = next_mbchar(c, len, str);

+	    do {

+		oldc = c;

+		bits = next_mbchar(c, len, str);

+	    } while (c && (c != '\n' || oldc == '\\'));

+	    str--;

+	    continue;

+	}

+

+	/*

+	 * I now have a quark and binding list for the entire left hand

+	 * side.  "c" currently points to the ":" separating the left hand

+	 * side for the right hand side.  It is time to begin processing

+	 * the right hand side.

+	 */

+

+	/*

+	 * Fourth: Remove more whitespace

+	 */

+

+	for(;;) {

+	    if (is_space(bits = next_char(c, str)))

+		continue;

+	    if (c != '\\')

+		break;

+	    bits = next_char(c, str);

+	    if (c == '\n')

+		continue;

+	    str--;

+	    bits = BSLASH;

+	    c = '\\';

+	    break;

+	}

+

+	/*

+	 * Fifth: Process the right hand side.

+	 */

+

+	ptr = rhs;

+	ptr_max = ptr + alloc_chars - 4;

+	only_pcs = True;

+	len = 1;

+

+	for(;;) {

+

+	    /*

+	     * Tight loop for the normal case:  Non backslash, non-end of value

+	     * character that will fit into the allocated buffer.

+	     */

+

+	    if (only_pcs) {

+		while (is_normal(bits) && ptr < ptr_max) {

+		    *ptr++ = c;

+		    bits = next_char(c, str);

+		}

+		if (is_EOL(bits))

+		    break;

+		if (is_nonpcs(bits)) {

+		    only_pcs = False;

+		    bits = next_mbchar(c, len, str);

+		}

+	    }

+	    while (!is_special(bits) && ptr + len <= ptr_max) {

+		len = -len;

+		while (len)

+		    *ptr++ = str[len++];

+		if (*str == '\0') {

+		    bits = EOS;

+		    break;

+		}

+		bits = next_mbchar(c, len, str);

+	    }

+

+	    if (is_EOL(bits)) {

+		str--;

+		break;

+	    }

+

+	    if (c == '\\') {

+		/*

+		 * We need to do some magic after a backslash.

+		 */

+		Bool read_next = True;

+

+		if (only_pcs) {

+		    bits = next_char(c, str);

+		    if (is_nonpcs(bits))

+			only_pcs = False;

+		}

+		if (!only_pcs)

+		    bits = next_mbchar(c, len, str);

+

+		if (is_EOL(bits)) {

+		    if (is_EOF(bits))

+			continue;

+		} else if (c == 'n') {

+		    /*

+		     * "\n" means insert a newline.

+		     */

+		    *ptr++ = '\n';

+		} else if (c == '\\') {

+		    /*

+		     * "\\" completes to just one backslash.

+		     */

+		    *ptr++ = '\\';

+		} else {

+		    /*

+		     * pick up to three octal digits after the '\'.

+		     */

+		    char temp[3];

+		    int count = 0;

+		    while (is_odigit(bits) && count < 3) {

+			temp[count++] = c;

+			if (only_pcs) {

+			    bits = next_char(c, str);

+			    if (is_nonpcs(bits))

+				only_pcs = False;

+			}

+			if (!only_pcs)

+			    bits = next_mbchar(c, len, str);

+		    }

+

+		    /*

+		     * If we found three digits then insert that octal code

+		     * into the value string as a character.

+		     */

+

+		    if (count == 3) {

+			*ptr++ = (unsigned char) ((temp[0] - '0') * 0100 +

+						  (temp[1] - '0') * 010 +

+						  (temp[2] - '0'));

+		    }

+		    else {

+			int tcount;

+

+			/*

+			 * Otherwise just insert those characters into the

+			 * string, since no special processing is needed on

+			 * numerics we can skip the special processing.

+			 */

+

+			for (tcount = 0; tcount < count; tcount++) {

+			    *ptr++ = temp[tcount]; /* print them in

+						      the correct order */

+			}

+		    }

+		    read_next = False;

+		}

+		if (read_next) {

+		    if (only_pcs) {

+			bits = next_char(c, str);

+			if (is_nonpcs(bits))

+			    only_pcs = False;

+		    }

+		    if (!only_pcs)

+			bits = next_mbchar(c, len, str);

+		}

+	    }

+

+	    /*

+	     * It is important to make sure that there is room for at least

+	     * four more characters in the buffer, since I can add that

+	     * many characters into the buffer after a backslash has occured.

+	     */

+

+	    if (ptr + len > ptr_max) {

+		char * temp_str;

+

+		alloc_chars += BUFSIZ/10;

+		temp_str = Xrealloc(rhs, sizeof(char) * alloc_chars);

+

+		if (!temp_str) {

+		    Xfree(rhs);

+		    if (lhs != lhs_s) Xfree (lhs);

+		    (*db->methods->mbfinish)(db->mbstate);

+		    return;

+		}

+

+		ptr = temp_str + (ptr - rhs); /* reset pointer. */

+		rhs = temp_str;

+		ptr_max = rhs + alloc_chars - 4;

+	    }

+	}

+

+	/*

+	 * Lastly: Terminate the value string, and store this entry

+	 * 	   into the database.

+	 */

+

+	*ptr++ = '\0';

+

+	/* Store it in database */

+	value.size = ptr - rhs;

+	value.addr = (XPointer) rhs;

+

+	PutEntry(db, bindings, quarks, XrmQString, &value);

+    }

+

+    if (lhs != lhs_s) Xfree (lhs);

+    Xfree (rhs);

+

+    (*db->methods->mbfinish)(db->mbstate);

+}

+

+void

+XrmPutStringResource(

+    XrmDatabase *pdb,

+    _Xconst char*specifier,

+    _Xconst char*str)

+{

+    XrmValue	value;

+    XrmBinding	bindings[MAXDBDEPTH+1];

+    XrmQuark	quarks[MAXDBDEPTH+1];

+

+    if (!*pdb) *pdb = NewDatabase();

+    XrmStringToBindingQuarkList(specifier, bindings, quarks);

+    value.addr = (XPointer) str;

+    value.size = strlen(str)+1;

+    _XLockMutex(&(*pdb)->linfo);

+    PutEntry(*pdb, bindings, quarks, XrmQString, &value);

+    _XUnlockMutex(&(*pdb)->linfo);

+}

+

+

+void

+XrmPutLineResource(

+    XrmDatabase *pdb,

+    _Xconst char*line)

+{

+    if (!*pdb) *pdb = NewDatabase();

+    _XLockMutex(&(*pdb)->linfo);

+    GetDatabase(*pdb, line, (char *)NULL, False);

+    _XUnlockMutex(&(*pdb)->linfo);

+}

+

+XrmDatabase

+XrmGetStringDatabase(

+    _Xconst char    *data)

+{

+    XrmDatabase     db;

+

+    db = NewDatabase();

+    _XLockMutex(&db->linfo);

+    GetDatabase(db, data, (char *)NULL, True);

+    _XUnlockMutex(&db->linfo);

+    return db;

+}

+

+/*	Function Name: ReadInFile

+ *	Description: Reads the file into a buffer.

+ *	Arguments: filename - the name of the file.

+ *	Returns: An allocated string containing the contents of the file.

+ */

+

+static char *

+ReadInFile(_Xconst char *filename)

+{

+    register int fd, size;

+    char * filebuf;

+

+#ifdef __UNIXOS2__

+    filename = __XOS2RedirRoot(filename);

+#endif

+

+    /*

+     * MS-Windows and OS/2 note: Default open mode includes O_TEXT

+     */

+    if ( (fd = _XOpenFile (filename, O_RDONLY)) == -1 )

+	return (char *)NULL;

+

+    /*

+     * MS-Windows and OS/2 note: depending on how the sources are

+     * untarred, the newlines in resource files may or may not have

+     * been expanded to CRLF. Either way the size returned by fstat

+     * is sufficient to read the file into because in text-mode any

+     * CRLFs in a file will be converted to newlines (LF) with the

+     * result that the number of bytes actually read with be <=

+     * to the size returned by fstat.

+     */

+    {

+	struct stat status_buffer;

+	if ( (fstat(fd, &status_buffer)) == -1 ) {

+	    close (fd);

+	    return (char *)NULL;

+	} else

+	    size = status_buffer.st_size;

+    }

+

+    if (!(filebuf = Xmalloc(size + 1))) { /* leave room for '\0' */

+	close(fd);

+	return (char *)NULL;

+    }

+    size = read (fd, filebuf, size);

+

+#ifdef __UNIXOS2__

+    { /* kill CRLF */

+      int i,k;

+      for (i=k=0; i<size; i++)

+	if (filebuf[i] != 0x0d) {

+	   filebuf[k++] = filebuf[i];

+	}

+	filebuf[k] = 0;

+    }

+#endif

+

+    if (size < 0) {

+	close (fd);

+	Xfree(filebuf);

+	return (char *)NULL;

+    }

+    close (fd);

+

+    filebuf[size] = '\0';	/* NULL terminate it. */

+    return filebuf;

+}

+

+static void

+GetIncludeFile(

+    XrmDatabase db,

+    _Xconst char *base,

+    _Xconst char *fname,

+    int fnamelen)

+{

+    int len;

+    char *str;

+    char realfname[BUFSIZ];

+

+    if (fnamelen <= 0 || fnamelen >= BUFSIZ)

+	return;

+    if (*fname != '/' && base && (str = strrchr(base, '/'))) {

+	len = str - base + 1;

+	if (len + fnamelen >= BUFSIZ)

+	    return;

+	strncpy(realfname, base, len);

+	strncpy(realfname + len, fname, fnamelen);

+	realfname[len + fnamelen] = '\0';

+    } else {

+	strncpy(realfname, fname, fnamelen);

+	realfname[fnamelen] = '\0';

+    }

+    if (!(str = ReadInFile(realfname)))

+	return;

+    GetDatabase(db, str, realfname, True);

+    Xfree(str);

+}

+

+XrmDatabase

+XrmGetFileDatabase(

+    _Xconst char    *filename)

+{

+    XrmDatabase db;

+    char *str;

+

+    if (!(str = ReadInFile(filename)))

+	return (XrmDatabase)NULL;

+

+    db = NewDatabase();

+    _XLockMutex(&db->linfo);

+    GetDatabase(db, str, filename, True);

+    _XUnlockMutex(&db->linfo);

+    Xfree(str);

+    return db;

+}

+

+Status

+XrmCombineFileDatabase(

+    _Xconst char    *filename,

+    XrmDatabase     *target,

+    Bool             override)

+{

+    XrmDatabase db;

+    char *str;

+

+    if (!(str = ReadInFile(filename)))

+	return 0;

+    if (override) {

+	db = *target;

+	if (!db)

+	    *target = db = NewDatabase();

+    } else

+	db = NewDatabase();

+    _XLockMutex(&db->linfo);

+    GetDatabase(db, str, filename, True);

+    _XUnlockMutex(&db->linfo);

+    Xfree(str);

+    if (!override)

+	XrmCombineDatabase(db, target, False);

+    return 1;

+}

+

+/* call the user proc for every value in the table, arbitrary order.

+ * stop if user proc returns True.  level is current depth in database.

+ */

+/*ARGSUSED*/

+static Bool EnumLTable(

+    LTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    register int	level,

+    register EClosure	closure)

+{

+    register VEntry *bucket;

+    register int i;

+    register VEntry entry;

+    XrmValue value;

+    XrmRepresentation type;

+    Bool tightOk;

+

+    closure->bindings[level] = (table->table.tight ?

+				XrmBindTightly : XrmBindLoosely);

+    closure->quarks[level] = table->table.name;

+    level++;

+    tightOk = !*names;

+    closure->quarks[level + 1] = NULLQUARK;

+    for (i = table->table.mask, bucket = table->buckets;

+	 i >= 0;

+	 i--, bucket++) {

+	for (entry = *bucket; entry; entry = entry->next) {

+	    if (entry->tight && !tightOk)

+		continue;

+	    closure->bindings[level] = (entry->tight ?

+					XrmBindTightly : XrmBindLoosely);

+	    closure->quarks[level] = entry->name;

+	    value.size = entry->size;

+	    if (entry->string) {

+		type = XrmQString;

+		value.addr = StringValue(entry);

+	    } else {

+		type = RepType(entry);

+		value.addr = DataValue(entry);

+	    }

+	    if ((*closure->proc)(&closure->db, closure->bindings+1,

+				 closure->quarks+1, &type, &value,

+				 closure->closure))

+		return True;

+	}

+    }

+    return False;

+}

+

+static Bool EnumAllNTable(

+    NTable		table,

+    register int	level,

+    register EClosure	closure)

+{

+    register NTable *bucket;

+    register int i;

+    register NTable entry;

+    XrmQuark empty = NULLQUARK;

+

+    if (level >= MAXDBDEPTH)

+	return False;

+    for (i = table->mask, bucket = NodeBuckets(table);

+	 i >= 0;

+	 i--, bucket++) {

+	for (entry = *bucket; entry; entry = entry->next) {

+	    if (entry->leaf) {

+		if (EnumLTable((LTable)entry, &empty, &empty, level, closure))

+		    return True;

+	    } else {

+		closure->bindings[level] = (entry->tight ?

+					    XrmBindTightly : XrmBindLoosely);

+		closure->quarks[level] = entry->name;

+		if (EnumAllNTable(entry, level+1, closure))

+		    return True;

+	    }

+	}

+    }

+    return False;

+}

+

+/* recurse on every table in the table, arbitrary order.

+ * stop if user proc returns True.  level is current depth in database.

+ */

+static Bool EnumNTable(

+    NTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    register int	level,

+    register EClosure	closure)

+{

+    register NTable	entry;

+    register XrmQuark	q;

+    register unsigned int leaf;

+    Bool (*get)(

+            NTable		table,

+            XrmNameList		names,

+            XrmClassList 	classes,

+            register int	level,

+            EClosure		closure);

+    Bool bilevel;

+

+/* find entries named ename, leafness leaf, tight or loose, and call get */

+#define ITIGHTLOOSE(ename) \

+    NFIND(ename); \

+    if (entry) { \

+	if (leaf == entry->leaf) { \

+	    if (!leaf && !entry->tight && entry->next && \

+		entry->next->name == q && entry->next->tight && \

+		(bilevel || entry->next->hasloose) && \

+		EnumLTable((LTable)entry->next, names+1, classes+1, \

+			   level, closure)) \

+		return True; \

+	    if ((*get)(entry, names+1, classes+1, level, closure)) \

+		return True; \

+	    if (entry->tight && (entry = entry->next) && \

+		entry->name == q && leaf == entry->leaf && \

+		(*get)(entry, names+1, classes+1, level, closure)) \

+		return True; \

+	} else if (entry->leaf) { \

+	    if ((bilevel || entry->hasloose) && \

+		EnumLTable((LTable)entry, names+1, classes+1, level, closure))\

+		return True; \

+	    if (entry->tight && (entry = entry->next) && \

+		entry->name == q && (bilevel || entry->hasloose) && \

+		EnumLTable((LTable)entry, names+1, classes+1, level, closure))\

+		return True; \

+	} \

+    }

+

+/* find entries named ename, leafness leaf, loose only, and call get */

+#define ILOOSE(ename) \

+    NFIND(ename); \

+    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \

+	entry = (NTable)NULL; \

+    if (entry) { \

+	if (leaf == entry->leaf) { \

+	    if ((*get)(entry, names+1, classes+1, level, closure)) \

+		return True; \

+	} else if (entry->leaf && (bilevel || entry->hasloose)) { \

+	    if (EnumLTable((LTable)entry, names+1, classes+1, level, closure))\

+		return True; \

+	} \

+    }

+

+    if (level >= MAXDBDEPTH)

+	return False;

+    closure->bindings[level] = (table->tight ?

+				XrmBindTightly : XrmBindLoosely);

+    closure->quarks[level] = table->name;

+    level++;

+    if (!*names) {

+	if (EnumAllNTable(table, level, closure))

+	    return True;

+    } else {

+	if (names[1] || closure->mode == XrmEnumAllLevels) {

+	    get = EnumNTable; /* recurse */

+	    leaf = 0;

+	    bilevel = !names[1];

+	} else {

+	    get = (getNTableEProcp)EnumLTable; /* bottom of recursion */

+	    leaf = 1;

+	    bilevel = False;

+	}

+	if (table->hasloose && closure->mode == XrmEnumAllLevels) {

+	    NTable *bucket;

+	    int i;

+	    XrmQuark empty = NULLQUARK;

+

+	    for (i = table->mask, bucket = NodeBuckets(table);

+		 i >= 0;

+		 i--, bucket++) {

+		q = NULLQUARK;

+		for (entry = *bucket; entry; entry = entry->next) {

+		    if (!entry->tight && entry->name != q &&

+			entry->name != *names && entry->name != *classes) {

+			q = entry->name;

+			if (entry->leaf) {

+			    if (EnumLTable((LTable)entry, &empty, &empty,

+					   level, closure))

+				return True;

+			} else {

+			    if (EnumNTable(entry, &empty, &empty,

+					   level, closure))

+				return True;

+			}

+		    }

+		}

+	    }

+	}

+

+	ITIGHTLOOSE(*names);   /* do name, tight and loose */

+	ITIGHTLOOSE(*classes); /* do class, tight and loose */

+	if (table->hasany) {

+	    ITIGHTLOOSE(XrmQANY); /* do ANY, tight and loose */

+	}

+	if (table->hasloose) {

+	    while (1) {

+		names++;

+		classes++;

+		if (!*names)

+		    break;

+		if (!names[1] && closure->mode != XrmEnumAllLevels) {

+		    get = (getNTableEProcp)EnumLTable; /* bottom of recursion */

+		    leaf = 1;

+		}

+		ILOOSE(*names);   /* loose names */

+		ILOOSE(*classes); /* loose classes */

+		if (table->hasany) {

+		    ILOOSE(XrmQANY); /* loose ANY */

+		}

+	    }

+	    names--;

+	    classes--;

+	}

+    }

+    /* now look for matching leaf nodes */

+    entry = table->next;

+    if (!entry)

+	return False;

+    if (entry->leaf) {

+	if (entry->tight && !table->tight)

+	    entry = entry->next;

+    } else {

+	entry = entry->next;

+	if (!entry || !entry->tight)

+	    return False;

+    }

+    if (!entry || entry->name != table->name)

+	return False;

+    /* found one */

+    level--;

+    if ((!*names || entry->hasloose) &&

+	EnumLTable((LTable)entry, names, classes, level, closure))

+	return True;

+    if (entry->tight && entry == table->next && (entry = entry->next) &&

+	entry->name == table->name && (!*names || entry->hasloose))

+	return EnumLTable((LTable)entry, names, classes, level, closure);

+    return False;

+

+#undef ITIGHTLOOSE

+#undef ILOOSE

+}

+

+/* call the proc for every value in the database, arbitrary order.

+ * stop if the proc returns True.

+ */

+Bool XrmEnumerateDatabase(

+    XrmDatabase		db,

+    XrmNameList		names,

+    XrmClassList	classes,

+    int			mode,

+    DBEnumProc		proc,

+    XPointer		closure)

+{

+    XrmBinding  bindings[MAXDBDEPTH+2];

+    XrmQuark	quarks[MAXDBDEPTH+2];

+    register NTable table;

+    EClosureRec	eclosure;

+    Bool retval = False;

+

+    if (!db)

+	return False;

+    _XLockMutex(&db->linfo);

+    eclosure.db = db;

+    eclosure.proc = proc;

+    eclosure.closure = closure;

+    eclosure.bindings = bindings;

+    eclosure.quarks = quarks;

+    eclosure.mode = mode;

+    table = db->table;

+    if (table && !table->leaf && !*names && mode == XrmEnumOneLevel)

+	table = table->next;

+    if (table) {

+	if (!table->leaf)

+	    retval = EnumNTable(table, names, classes, 0, &eclosure);

+	else

+	    retval = EnumLTable((LTable)table, names, classes, 0, &eclosure);

+    }

+    _XUnlockMutex(&db->linfo);

+    return retval;

+}

+

+static void PrintBindingQuarkList(

+    XrmBindingList      bindings,

+    XrmQuarkList	quarks,

+    FILE		*stream)

+{

+    Bool	firstNameSeen;

+

+    for (firstNameSeen = False; *quarks; bindings++, quarks++) {

+	if (*bindings == XrmBindLoosely) {

+	    (void) fprintf(stream, "*");

+	} else if (firstNameSeen) {

+	    (void) fprintf(stream, ".");

+	}

+	firstNameSeen = True;

+	(void) fputs(XrmQuarkToString(*quarks), stream);

+    }

+}

+

+/* output out the entry in correct file syntax */

+/*ARGSUSED*/

+static Bool DumpEntry(

+    XrmDatabase		*db,

+    XrmBindingList      bindings,

+    XrmQuarkList	quarks,

+    XrmRepresentation   *type,

+    XrmValuePtr		value,

+    XPointer		data)

+{

+    FILE			*stream = (FILE *)data;

+    register unsigned int	i;

+    register char		*s;

+    register char		c;

+

+    if (*type != XrmQString)

+	(void) putc('!', stream);

+    PrintBindingQuarkList(bindings, quarks, stream);

+    s = value->addr;

+    i = value->size;

+    if (*type == XrmQString) {

+	(void) fputs(":\t", stream);

+	if (i)

+	    i--;

+    }

+    else

+	(void) fprintf(stream, "=%s:\t", XrmRepresentationToString(*type));

+    if (i && (*s == ' ' || *s == '\t'))

+	(void) putc('\\', stream); /* preserve leading whitespace */

+    while (i--) {

+	c = *s++;

+	if (c == '\n') {

+	    if (i)

+		(void) fputs("\\n\\\n", stream);

+	    else

+		(void) fputs("\\n", stream);

+	} else if (c == '\\')

+	    (void) fputs("\\\\", stream);

+	else if ((c < ' ' && c != '\t') ||

+		 ((unsigned char)c >= 0x7f && (unsigned char)c < 0xa0))

+	    (void) fprintf(stream, "\\%03o", (unsigned char)c);

+	else

+	    (void) putc(c, stream);

+    }

+    (void) putc('\n', stream);

+    return ferror(stream) != 0;

+}

+

+#ifdef DEBUG

+

+void PrintTable(

+    NTable table,

+    FILE *file)

+{

+    XrmBinding  bindings[MAXDBDEPTH+1];

+    XrmQuark	quarks[MAXDBDEPTH+1];

+    EClosureRec closure;

+    XrmQuark	empty = NULLQUARK;

+

+    closure.db = (XrmDatabase)NULL;

+    closure.proc = DumpEntry;

+    closure.closure = (XPointer)file;

+    closure.bindings = bindings;

+    closure.quarks = quarks;

+    closure.mode = XrmEnumAllLevels;

+    if (table->leaf)

+	EnumLTable((LTable)table, &empty, &empty, 0, &closure);

+    else

+	EnumNTable(table, &empty, &empty, 0, &closure);

+}

+

+#endif /* DEBUG */

+

+void

+XrmPutFileDatabase(

+    XrmDatabase db,

+    _Xconst char *fileName)

+{

+    FILE	*file;

+    XrmQuark empty = NULLQUARK;

+

+    if (!db) return;

+    if (!(file = fopen(fileName, "w"))) return;

+    if (XrmEnumerateDatabase(db, &empty, &empty, XrmEnumAllLevels,

+			     DumpEntry, (XPointer) file))

+	unlink((char *)fileName);

+    fclose(file);

+}

+

+/* macros used in get/search functions */

+

+/* find entries named ename, leafness leaf, tight or loose, and call get */

+#define GTIGHTLOOSE(ename,looseleaf) \

+    NFIND(ename); \

+    if (entry) { \

+	if (leaf == entry->leaf) { \

+	    if (!leaf && !entry->tight && entry->next && \

+		entry->next->name == q && entry->next->tight && \

+		entry->next->hasloose && \

+		looseleaf((LTable)entry->next, names+1, classes+1, closure)) \

+		return True; \

+	    if ((*get)(entry, names+1, classes+1, closure)) \

+		return True; \

+	    if (entry->tight && (entry = entry->next) && \

+		entry->name == q && leaf == entry->leaf && \

+		(*get)(entry, names+1, classes+1, closure)) \

+		return True; \

+	} else if (entry->leaf) { \

+	    if (entry->hasloose && \

+		looseleaf((LTable)entry, names+1, classes+1, closure)) \

+		return True; \

+	    if (entry->tight && (entry = entry->next) && \

+		entry->name == q && entry->hasloose && \

+		looseleaf((LTable)entry, names+1, classes+1, closure)) \

+		return True; \

+	} \

+    }

+

+/* find entries named ename, leafness leaf, loose only, and call get */

+#define GLOOSE(ename,looseleaf) \

+    NFIND(ename); \

+    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \

+	entry = (NTable)NULL; \

+    if (entry) { \

+	if (leaf == entry->leaf) { \

+	    if ((*get)(entry, names+1, classes+1, closure)) \

+		return True; \

+	} else if (entry->leaf && entry->hasloose) { \

+	    if (looseleaf((LTable)entry, names+1, classes+1, closure)) \

+		return True; \

+	} \

+    }

+

+/* add tight/loose entry to the search list, return True if list is full */

+/*ARGSUSED*/

+static Bool AppendLEntry(

+    LTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    register SClosure	closure)

+{

+    /* check for duplicate */

+    if (closure->idx >= 0 && closure->list[closure->idx] == table)

+	return False;

+    if (closure->idx == closure->limit)

+	return True;

+    /* append it */

+    closure->idx++;

+    closure->list[closure->idx] = table;

+    return False;

+}

+

+/* add loose entry to the search list, return True if list is full */

+/*ARGSUSED*/

+static Bool AppendLooseLEntry(

+    LTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    register SClosure	closure)

+{

+    /* check for duplicate */

+    if (closure->idx >= 0 && closure->list[closure->idx] == table)

+	return False;

+    if (closure->idx >= closure->limit - 1)

+	return True;

+    /* append it */

+    closure->idx++;

+    closure->list[closure->idx] = LOOSESEARCH;

+    closure->idx++;

+    closure->list[closure->idx] = table;

+    return False;

+}

+

+/* search for a leaf table */

+static Bool SearchNEntry(

+    NTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    SClosure		closure)

+{

+    register NTable	entry;

+    register XrmQuark	q;

+    register unsigned int leaf;

+    Bool		(*get)(

+            NTable		table,

+            XrmNameList		names,

+            XrmClassList 	classes,

+            SClosure		closure);

+

+    if (names[1]) {

+	get = SearchNEntry; /* recurse */

+	leaf = 0;

+    } else {

+	get = (getNTableSProcp)AppendLEntry; /* bottom of recursion */

+	leaf = 1;

+    }

+    GTIGHTLOOSE(*names, AppendLooseLEntry);   /* do name, tight and loose */

+    GTIGHTLOOSE(*classes, AppendLooseLEntry); /* do class, tight and loose */

+    if (table->hasany) {

+	GTIGHTLOOSE(XrmQANY, AppendLooseLEntry); /* do ANY, tight and loose */

+    }

+    if (table->hasloose) {

+	while (1) {

+	    names++;

+	    classes++;

+	    if (!*names)

+		break;

+	    if (!names[1]) {

+		get = (getNTableSProcp)AppendLEntry; /* bottom of recursion */

+		leaf = 1;

+	    }

+	    GLOOSE(*names, AppendLooseLEntry);   /* loose names */

+	    GLOOSE(*classes, AppendLooseLEntry); /* loose classes */

+	    if (table->hasany) {

+		GLOOSE(XrmQANY, AppendLooseLEntry); /* loose ANY */

+	    }

+	}

+    }

+    /* now look for matching leaf nodes */

+    entry = table->next;

+    if (!entry)

+	return False;

+    if (entry->leaf) {

+	if (entry->tight && !table->tight)

+	    entry = entry->next;

+    } else {

+	entry = entry->next;

+	if (!entry || !entry->tight)

+	    return False;

+    }

+    if (!entry || entry->name != table->name)

+	return False;

+    /* found one */

+    if (entry->hasloose &&

+	AppendLooseLEntry((LTable)entry, names, classes, closure))

+	return True;

+    if (entry->tight && entry == table->next && (entry = entry->next) &&

+	entry->name == table->name && entry->hasloose)

+	return AppendLooseLEntry((LTable)entry, names, classes, closure);

+    return False;

+}

+

+Bool XrmQGetSearchList(

+    XrmDatabase     db,

+    XrmNameList	    names,

+    XrmClassList    classes,

+    XrmSearchList   searchList,	/* RETURN */

+    int		    listLength)

+{

+    register NTable	table;

+    SClosureRec		closure;

+

+    if (listLength <= 0)

+	return False;

+    closure.list = (LTable *)searchList;

+    closure.idx = -1;

+    closure.limit = listLength - 2;

+    if (db) {

+	_XLockMutex(&db->linfo);

+	table = db->table;

+	if (*names) {

+	    if (table && !table->leaf) {

+		if (SearchNEntry(table, names, classes, &closure)) {

+		    _XUnlockMutex(&db->linfo);

+		    return False;

+		}

+	    } else if (table && table->hasloose &&

+		       AppendLooseLEntry((LTable)table, names, classes,

+					 &closure)) {

+		_XUnlockMutex(&db->linfo);

+		return False;

+	    }

+	} else {

+	    if (table && !table->leaf)

+		table = table->next;

+	    if (table &&

+		AppendLEntry((LTable)table, names, classes, &closure)) {

+		_XUnlockMutex(&db->linfo);

+		return False;

+	    }

+	}

+	_XUnlockMutex(&db->linfo);

+    }

+    closure.list[closure.idx + 1] = (LTable)NULL;

+    return True;

+}

+

+Bool XrmQGetSearchResource(

+	     XrmSearchList	searchList,

+    register XrmName		name,

+    register XrmClass		class,

+    	     XrmRepresentation	*pType,  /* RETURN */

+    	     XrmValue		*pValue) /* RETURN */

+{

+    register LTable *list;

+    register LTable table;

+    register VEntry entry = NULL;

+    int flags;

+

+/* find tight or loose entry */

+#define VTIGHTLOOSE(q) \

+    entry = LeafHash(table, q); \

+    while (entry && entry->name != q) \

+	entry = entry->next; \

+    if (entry) \

+	break

+

+/* find loose entry */

+#define VLOOSE(q) \

+    entry = LeafHash(table, q); \

+    while (entry && entry->name != q) \

+	entry = entry->next; \

+    if (entry) { \

+	if (!entry->tight) \

+	    break; \

+	if ((entry = entry->next) && entry->name == q) \

+	    break; \

+    }

+

+    list = (LTable *)searchList;

+    /* figure out which combination of name and class we need to search for */

+    flags = 0;

+    if (IsResourceQuark(name))

+	flags = 2;

+    if (IsResourceQuark(class))

+	flags |= 1;

+    if (!flags) {

+	/* neither name nor class has ever been used to name a resource */

+	table = (LTable)NULL;

+    } else if (flags == 3) {

+	/* both name and class */

+	while ((table = *list++)) {

+	    if (table != LOOSESEARCH) {

+		VTIGHTLOOSE(name);  /* do name, tight and loose */

+		VTIGHTLOOSE(class); /* do class, tight and loose */

+	    } else {

+		table = *list++;

+		VLOOSE(name);  /* do name, loose only */

+		VLOOSE(class); /* do class, loose only */

+	    }

+	}

+    } else {

+	/* just one of name or class */

+	if (flags == 1)

+	    name = class;

+	while ((table = *list++)) {

+	    if (table != LOOSESEARCH) {

+		VTIGHTLOOSE(name); /* tight and loose */

+	    } else {

+		table = *list++;

+		VLOOSE(name); /* loose only */

+	    }

+	}

+    }

+    if (table) {

+	/* found a match */

+	if (entry->string) {

+	    *pType = XrmQString;

+	    pValue->addr = StringValue(entry);

+	} else {

+	    *pType = RepType(entry);

+	    pValue->addr = DataValue(entry);

+	}

+	pValue->size = entry->size;

+	return True;

+    }

+    *pType = NULLQUARK;

+    pValue->addr = (XPointer)NULL;

+    pValue->size = 0;

+    return False;

+

+#undef VTIGHTLOOSE

+#undef VLOOSE

+}

+

+/* look for a tight/loose value */

+static Bool GetVEntry(

+    LTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    VClosure		closure)

+{

+    register VEntry entry;

+    register XrmQuark q;

+

+    /* try name first */

+    q = *names;

+    entry = LeafHash(table, q);

+    while (entry && entry->name != q)

+	entry = entry->next;

+    if (!entry) {

+	/* not found, try class */

+	q = *classes;

+	entry = LeafHash(table, q);

+	while (entry && entry->name != q)

+	    entry = entry->next;

+	if (!entry)

+	    return False;

+    }

+    if (entry->string) {

+	*closure->type = XrmQString;

+	closure->value->addr = StringValue(entry);

+    } else {

+	*closure->type = RepType(entry);

+	closure->value->addr = DataValue(entry);

+    }

+    closure->value->size = entry->size;

+    return True;

+}

+

+/* look for a loose value */

+static Bool GetLooseVEntry(

+    LTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    VClosure		closure)

+{

+    register VEntry	entry;

+    register XrmQuark	q;

+

+#define VLOOSE(ename) \

+    q = ename; \

+    entry = LeafHash(table, q); \

+    while (entry && entry->name != q) \

+	entry = entry->next; \

+    if (entry && entry->tight && (entry = entry->next) && entry->name != q) \

+	entry = (VEntry)NULL;

+

+    /* bump to last component */

+    while (names[1]) {

+	names++;

+	classes++;

+    }

+    VLOOSE(*names);  /* do name, loose only */

+    if (!entry) {

+	VLOOSE(*classes); /* do class, loose only */

+	if (!entry)

+	    return False;

+    }

+    if (entry->string) {

+	*closure->type = XrmQString;

+	closure->value->addr = StringValue(entry);

+    } else {

+	*closure->type = RepType(entry);

+	closure->value->addr = DataValue(entry);

+    }

+    closure->value->size = entry->size;

+    return True;

+

+#undef VLOOSE

+}

+

+/* recursive search for a value */

+static Bool GetNEntry(

+    NTable		table,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    VClosure		closure)

+{

+    register NTable	entry;

+    register XrmQuark	q;

+    register unsigned int leaf;

+    Bool		(*get)(

+            NTable              table,

+            XrmNameList         names,

+            XrmClassList        classes,

+            VClosure            closure);

+    NTable		otable;

+

+    if (names[2]) {

+	get = GetNEntry; /* recurse */

+	leaf = 0;

+    } else {

+	get = (getNTableVProcp)GetVEntry; /* bottom of recursion */

+	leaf = 1;

+    }

+    GTIGHTLOOSE(*names, GetLooseVEntry);   /* do name, tight and loose */

+    GTIGHTLOOSE(*classes, GetLooseVEntry); /* do class, tight and loose */

+    if (table->hasany) {

+	GTIGHTLOOSE(XrmQANY, GetLooseVEntry); /* do ANY, tight and loose */

+    }

+    if (table->hasloose) {

+	while (1) {

+	    names++;

+	    classes++;

+	    if (!names[1])

+		break;

+	    if (!names[2]) {

+		get = (getNTableVProcp)GetVEntry; /* bottom of recursion */

+		leaf = 1;

+	    }

+	    GLOOSE(*names, GetLooseVEntry);   /* do name, loose only */

+	    GLOOSE(*classes, GetLooseVEntry); /* do class, loose only */

+	    if (table->hasany) {

+		GLOOSE(XrmQANY, GetLooseVEntry); /* do ANY, loose only */

+	    }

+	}

+    }

+    /* look for matching leaf tables */

+    otable = table;

+    table = table->next;

+    if (!table)

+	return False;

+    if (table->leaf) {

+	if (table->tight && !otable->tight)

+	    table = table->next;

+    } else {

+	table = table->next;

+	if (!table || !table->tight)

+	    return False;

+    }

+    if (!table || table->name != otable->name)

+	return False;

+    /* found one */

+    if (table->hasloose &&

+	GetLooseVEntry((LTable)table, names, classes, closure))

+	return True;

+    if (table->tight && table == otable->next) {

+	table = table->next;

+	if (table && table->name == otable->name && table->hasloose)

+	    return GetLooseVEntry((LTable)table, names, classes, closure);

+    }

+    return False;

+}

+

+Bool XrmQGetResource(

+    XrmDatabase         db,

+    XrmNameList		names,

+    XrmClassList 	classes,

+    XrmRepresentation	*pType,  /* RETURN */

+    XrmValuePtr		pValue)  /* RETURN */

+{

+    register NTable table;

+    VClosureRec closure;

+

+    if (db && *names) {

+	_XLockMutex(&db->linfo);

+	closure.type = pType;

+	closure.value = pValue;

+	table = db->table;

+	if (names[1]) {

+	    if (table && !table->leaf) {

+		if (GetNEntry(table, names, classes, &closure)) {

+		    _XUnlockMutex(&db->linfo);

+		    return True;

+		}

+	    } else if (table && table->hasloose &&

+		    GetLooseVEntry((LTable)table, names, classes, &closure)) {

+		_XUnlockMutex (&db->linfo);

+		return True;

+	    }

+	} else {

+	    if (table && !table->leaf)

+		table = table->next;

+	    if (table && GetVEntry((LTable)table, names, classes, &closure)) {

+		_XUnlockMutex(&db->linfo);

+		return True;

+	    }

+	}

+	_XUnlockMutex(&db->linfo);

+    }

+    *pType = NULLQUARK;

+    pValue->addr = (XPointer)NULL;

+    pValue->size = 0;

+    return False;

+}

+

+Bool

+XrmGetResource(XrmDatabase db, _Xconst char *name_str, _Xconst char *class_str,

+	       XrmString *pType_str, XrmValuePtr pValue)

+{

+    XrmName		names[MAXDBDEPTH+1];

+    XrmClass		classes[MAXDBDEPTH+1];

+    XrmRepresentation   fromType;

+    Bool		result;

+

+    XrmStringToNameList(name_str, names);

+    XrmStringToClassList(class_str, classes);

+    result = XrmQGetResource(db, names, classes, &fromType, pValue);

+    (*pType_str) = XrmQuarkToString(fromType);

+    return result;

+}

+

+/* destroy all values, plus table itself */

+static void DestroyLTable(

+    LTable table)

+{

+    register int i;

+    register VEntry *buckets;

+    register VEntry entry, next;

+

+    buckets = table->buckets;

+    for (i = table->table.mask; i >= 0; i--, buckets++) {

+	for (next = *buckets; (entry = next); ) {

+	    next = entry->next;

+	    Xfree((char *)entry);

+	}

+    }

+    Xfree((char *)table->buckets);

+    Xfree((char *)table);

+}

+

+/* destroy all contained tables, plus table itself */

+static void DestroyNTable(

+    NTable table)

+{

+    register int i;

+    register NTable *buckets;

+    register NTable entry, next;

+

+    buckets = NodeBuckets(table);

+    for (i = table->mask; i >= 0; i--, buckets++) {

+	for (next = *buckets; (entry = next); ) {

+	    next = entry->next;

+	    if (entry->leaf)

+		DestroyLTable((LTable)entry);

+	    else

+		DestroyNTable(entry);

+	}

+    }

+    Xfree((char *)table);

+}

+

+const char *

+XrmLocaleOfDatabase(

+    XrmDatabase db)

+{

+    const char* retval;

+    _XLockMutex(&db->linfo);

+    retval = (*db->methods->lcname)(db->mbstate);

+    _XUnlockMutex(&db->linfo);

+    return retval;

+}

+

+void XrmDestroyDatabase(

+    XrmDatabase   db)

+{

+    register NTable table, next;

+

+    if (db) {

+	_XLockMutex(&db->linfo);

+	for (next = db->table; (table = next); ) {

+	    next = table->next;

+	    if (table->leaf)

+		DestroyLTable((LTable)table);

+	    else

+		DestroyNTable(table);

+	}

+	_XUnlockMutex(&db->linfo);

+	_XFreeMutex(&db->linfo);

+	(*db->methods->destroy)(db->mbstate);

+	Xfree((char *)db);

+    }

+}

diff --git a/libX11/src/config.h b/libX11/src/config.h
new file mode 100644
index 000000000..abbac6e3b
--- /dev/null
+++ b/libX11/src/config.h
@@ -0,0 +1,243 @@
+/* src/config.h.in.  Generated from configure.ac by autoheader.  */
+
+/* Define to 1 if `struct sockaddr_in' has a `sin_len' member */
+/* #undef BSD44SOCKETS */
+
+/* Include compose table cache support */
+#define COMPOSECACHE 1
+
+/* Has getresuid() & getresgid() functions */
+/* #undef HASGETRESUID */
+
+/* Has issetugid() function */
+/* #undef HASSETUGID */
+
+/* Has shm*() functions */
+//MH#define HAS_SHM 1
+
+/* Define to 1 if you have the `authdes_create' function. */
+/* #undef HAVE_AUTHDES_CREATE */
+
+/* Define to 1 if you have the `authdes_seccreate' function. */
+/* #undef HAVE_AUTHDES_SECCREATE */
+
+/* Define to 1 if you have the <dlfcn.h> header file. */
+#define HAVE_DLFCN_H 1
+
+/* Define to 1 if you have the <endian.h> header file. */
+#define HAVE_ENDIAN_H 1
+
+/* Use dlopen to load shared libraries */
+#define HAVE_DLOPEN 1
+
+/* Define to 1 if you have the <dl.h> header file. */
+/* #undef HAVE_DL_H */
+
+/* Define to 1 if you have the `getpagesize' function. */
+#define HAVE_GETPAGESIZE 1
+
+/* Define to 1 if you have the <inttypes.h> header file. */
+#define HAVE_INTTYPES_H 1
+
+/* launchd support available */
+/* #undef HAVE_LAUNCHD */
+
+/* Define to 1 if you have the <memory.h> header file. */
+#define HAVE_MEMORY_H 1
+
+/* Define to 1 if you have the `poll' function. */
+#define HAVE_POLL 1
+
+/* Define to 1 if you have a working `mmap' system call. */
+#define HAVE_MMAP 1
+
+/* Use shl_load to load shared libraries */
+/* #undef HAVE_SHL_LOAD */
+
+/* Define to 1 if the system has the type `socklen_t'. */
+#define HAVE_SOCKLEN_T 0
+
+/* Define to 1 if you have the <stdint.h> header file. */
+#define HAVE_STDINT_H 1
+
+/* Define to 1 if you have the <stdlib.h> header file. */
+#define HAVE_STDLIB_H 1
+
+/* Define to 1 if you have the <strings.h> header file. */
+#define HAVE_STRINGS_H 1
+
+/* Define to 1 if you have the <string.h> header file. */
+#define HAVE_STRING_H 1
+
+/* Define to 1 if you have the <sys/poll.h> header file. */
+#define HAVE_SYS_POLL_H 1
+
+/* Define to 1 if you have the `strtol' function. */
+#define HAVE_STRTOL 1
+
+/* Define to 1 if you have the <sys/stat.h> header file. */
+#define HAVE_SYS_STAT_H 1
+
+/* Define to 1 if you have the <sys/types.h> header file. */
+#define HAVE_SYS_TYPES_H 1
+
+/* Define to 1 if you have the <unistd.h> header file. */
+#define HAVE_UNISTD_H 1
+
+/* Support IPv6 for TCP connections */
+/* #undef IPv6 */
+
+/* Support dynamically loaded font modules */
+#define LOADABLEFONTS 1
+
+/* Support os-specific local connections */
+/* #undef LOCALCONN */
+
+/* Define to the sub-directory in which libtool stores uninstalled libraries.
+   */
+#define LT_OBJDIR ".libs/"
+
+/* Disable XLOCALEDIR environment variable */
+#define NO_XLOCALEDIR 1
+
+/* Name of package */
+#define PACKAGE "libX11"
+
+/* Define to the address where bug reports for this package should be sent. */
+#define PACKAGE_BUGREPORT "https://bugs.freedesktop.org/enter_bug.cgi?product=xorg"
+
+/* Define to the full name of this package. */
+#define PACKAGE_NAME "libX11"
+
+/* Define to the full name and version of this package. */
+#define PACKAGE_STRING "libX11 1.1.5"
+
+/* Define to the one symbol short name of this package. */
+#define PACKAGE_TARNAME "libX11"
+
+/* Define to the version of this package. */
+#define PACKAGE_VERSION "1.1.5"
+
+/* Major version of this package */
+#define PACKAGE_VERSION_MAJOR 1
+
+/* Minor version of this package */
+#define PACKAGE_VERSION_MINOR 1
+
+/* Patch version of this package */
+#define PACKAGE_VERSION_PATCHLEVEL 5
+
+/* Define as the return type of signal handlers (`int' or `void'). */
+/* #undef RETSIGTYPE */
+
+/* Support Secure RPC ("SUN-DES-1") authentication for X11 clients */
+/* #undef SECURE_RPC */
+
+/* Define to 1 if you have the ANSI C header files. */
+#define STDC_HEADERS 1
+
+/* Support TCP socket connections */
+#define TCPCONN 1
+
+/* launchd support available */
+/* #undef TRANS_REOPEN */
+
+/* Support UNIX socket connections */
+#define UNIXCONN 1
+
+/* Split some i18n functions into loadable modules */
+/* #undef USE_DYNAMIC_LC */
+
+/* Use the X cursor library to load cursors */
+#define USE_DYNAMIC_XCURSOR 1
+
+/* poll() function is available */
+#define USE_POLL 1
+
+/* Use XCB for low-level protocol implementation */
+#define USE_XCB 1
+
+/* Version number of package */
+#define VERSION "1.1.5"
+
+/* Support bdf format bitmap font files */
+#define XFONT_BDFFORMAT 1
+
+/* Location of libX11 data */
+#define X11_DATADIR "/usr/share/X11"
+
+/* Location of libX11 library data */
+#define X11_LIBDIR "/usr/lib/X11"
+
+/* Include support for XCMS */
+#define XCMS 1
+
+/* Location of error message database */
+#define XERRORDB "XErrorDB"
+
+/* Enable XF86BIGFONT extension */
+/* #undef XF86BIGFONT */
+
+/* Use XKB */
+#define XKB 1
+
+/* Location of keysym database */
+#define XKEYSYMDB "XKeysymDB"
+
+/* support for X Locales */
+#define XLOCALE 1
+
+/* Location of libX11 locale data */
+#define XLOCALEDATADIR "locale"
+
+/* Location of libX11 locale data */
+#define XLOCALEDIR "locale"
+
+/* Location of libX11 locale libraries */
+#define XLOCALELIBDIR "locale"
+
+/* Whether libX11 is compiled with thread support */
+#define XTHREADS /**/
+
+/* Whether libX11 needs to use MT safe API's */
+#define XUSE_MTSAFE_API /**/
+
+/* Enable GNU and other extensions to the C environment for glibc */
+/* #undef _GNU_SOURCE */
+
+/* Support bitmap font files */
+#define XFONT_BITMAP 1
+
+/* Support built-in fonts */
+#define XFONT_BUILTINS 1
+
+/* Support the X Font Services Protocol */
+#define XFONT_FC 1
+
+/* Support fonts in files */
+#define XFONT_FONTFILE 1
+
+/* Support FreeType rasterizer for nearly all font file formats */
+#define XFONT_FREETYPE 1
+
+/* Support pcf format bitmap font files */
+#define XFONT_PCFFORMAT 1
+
+/* Support snf format bitmap font files */
+#define XFONT_SNFFORMAT 1
+
+/* Support Speedo font files */
+#define XFONT_SPEEDO 1
+
+/* Support IBM Type 1 rasterizer for Type1 font files */
+#define XFONT_TYPE1 1
+
+/* Support bzip2 for bitmap fonts */
+/* #undef X_BZIP2_FONT_COMPRESSION */
+
+/* Support gzip for bitmap fonts */
+#define X_GZIP_FONT_COMPRESSION 1
+
+#define INCL_WINSOCK_API_TYPEDEFS 1
+#include <X11/Xwinsock.h>
+#include <X11/Xwindows.h>
diff --git a/libX11/src/genhextable.py b/libX11/src/genhextable.py
new file mode 100644
index 000000000..2a45a9e83
--- /dev/null
+++ b/libX11/src/genhextable.py
@@ -0,0 +1,39 @@
+import sys

+

+HexTable={

+    '0' : 0,  '1' : 1,

+    '2' : 2,  '3' : 3,

+    '4' : 4,  '5' : 5,

+    '6' : 6,  '7' : 7,

+    '8' : 8,  '9' : 9,

+    'A' : 10, 'B' : 11,

+    'C' : 12, 'D' : 13,

+    'E' : 14, 'F' : 15,

+    'a' : 10, 'b' : 11,

+    'c' : 12, 'd' : 13,

+    'e' : 14, 'f' : 15,

+

+    ' ' : -1, ',' : -1,

+    '}' : -1, '\n' : -1,

+    '\t' : -1

+}

+

+OutHexTable=[0]*256

+

+for Char,Val in HexTable.iteritems():

+  OutHexTable[ord(Char)]=Val

+  

+print "static const short hexTable[256] = {"

+i=0

+for Item in OutHexTable:

+  if i==0:

+    PreFix="   "

+  elif i%16 == 0:

+    PreFix="\n  ,"

+  else:

+    PreFix=", "

+  i+=1

+  Val="%d"%Item

+  if len(Val)==1: Val = " "+Val

+  sys.stdout.write("%s%s"%(PreFix,Val))

+print "\n};"  
\ No newline at end of file
diff --git a/libX11/src/makefile b/libX11/src/makefile
new file mode 100644
index 000000000..e89f573c7
--- /dev/null
+++ b/libX11/src/makefile
@@ -0,0 +1,278 @@
+LIBRARY=libx11
+
+DEFINES += X11_t TRANS_CLIENT
+
+CSRCS = \
+                  AllCells.c \
+                  AllowEv.c \
+                  AllPlanes.c \
+                  AutoRep.c \
+                  Backgnd.c \
+                  BdrWidth.c \
+                  Bell.c \
+                  Border.c \
+                  ChAccCon.c \
+                  ChActPGb.c \
+                  ChClMode.c \
+                  ChCmap.c \
+                  ChGC.c \
+                  ChKeyCon.c \
+                  ChkIfEv.c \
+                  ChkMaskEv.c \
+                  ChkTypEv.c \
+                  ChkTypWEv.c \
+                  ChkWinEv.c \
+                  ChPntCon.c \
+                  ChProp.c \
+                  ChSaveSet.c \
+                  ChWAttrs.c \
+                  ChWindow.c \
+                  CirWin.c \
+                  CirWinDn.c \
+                  CirWinUp.c \
+                  ClDisplay.c \
+                  ClearArea.c \
+                  Clear.c \
+                  ConfWind.c \
+                  Context.c \
+                  ConvSel.c \
+                  CopyArea.c \
+                  CopyCmap.c \
+                  CopyGC.c \
+                  CopyPlane.c \
+                  CrBFData.c \
+                  CrCmap.c \
+                  CrCursor.c \
+                  CrGC.c \
+                  CrGlCur.c \
+                  CrPFBData.c \
+                  CrPixmap.c \
+                  CrWindow.c \
+                  Cursor.c \
+                  DefCursor.c \
+                  DelProp.c \
+                  Depths.c \
+                  DestSubs.c \
+                  DestWind.c \
+                  DisName.c \
+                  DrArc.c \
+                  DrArcs.c \
+                  DrLine.c \
+                  DrLines.c \
+                  DrPoint.c \
+                  DrPoints.c \
+                  DrRect.c \
+                  DrRects.c \
+                  DrSegs.c \
+                  ErrDes.c \
+                  ErrHndlr.c \
+                  evtomask.c \
+                  EvToWire.c \
+                  FetchName.c \
+                  FillArc.c \
+                  FillArcs.c \
+                  FillPoly.c \
+                  FillRct.c \
+                  FillRcts.c \
+                  FilterEv.c \
+                  Flush.c \
+                  Font.c \
+                  FontInfo.c \
+                  FontNames.c \
+                  FreeCmap.c \
+                  FreeCols.c \
+                  FreeCurs.c \
+                  FreeEData.c \
+                  FreeEventData.c \
+                  FreeGC.c \
+                  FreePix.c \
+                  FSSaver.c \
+                  FSWrap.c \
+                  GCMisc.c \
+                  Geom.c \
+                  GetAtomNm.c \
+                  GetColor.c \
+                  GetDflt.c \
+                  GetEventData.c \
+                  GetFPath.c \
+                  GetFProp.c \
+                  GetGCVals.c \
+                  GetGeom.c \
+                  GetHColor.c \
+                  GetHints.c \
+                  GetIFocus.c \
+                  GetImage.c \
+                  GetKCnt.c \
+                  GetMoEv.c \
+                  GetNrmHint.c \
+                  GetPCnt.c \
+                  GetPntMap.c \
+                  GetProp.c \
+                  GetRGBCMap.c \
+                  GetSOwner.c \
+                  GetSSaver.c \
+                  GetStCmap.c \
+                  GetTxtProp.c \
+                  GetWAttrs.c \
+                  GetWMCMapW.c \
+                  GetWMProto.c \
+                  globals.c \
+                  GrButton.c \
+                  GrKeybd.c \
+                  GrKey.c \
+                  GrPointer.c \
+                  GrServer.c \
+                  Host.c \
+                  Iconify.c \
+                  IfEvent.c \
+                  imConv.c \
+                  ImText16.c \
+                  ImText.c \
+                  ImUtil.c \
+                  InitExt.c \
+                  InsCmap.c \
+                  IntAtom.c \
+                  KeyBind.c \
+                  KeysymStr.c \
+                  KillCl.c \
+                  LiHosts.c \
+                  LiICmaps.c \
+                  LiProps.c \
+                  ListExt.c \
+                  LoadFont.c \
+                  LockDis.c \
+                  locking.c \
+                  LookupCol.c \
+                  LowerWin.c \
+                  Macros.c \
+                  MapRaised.c \
+                  MapSubs.c \
+                  MapWindow.c \
+                  MaskEvent.c \
+                  Misc.c \
+                  ModMap.c \
+                  MoveWin.c \
+                  NextEvent.c \
+                  OCWrap.c \
+                  OMWrap.c \
+                  OpenDis.c \
+                  ParseCmd.c \
+                  ParseCol.c \
+                  ParseGeom.c \
+                  PeekEvent.c \
+                  PeekIfEv.c \
+                  Pending.c \
+                  PixFormats.c \
+                  PmapBgnd.c \
+                  PmapBord.c \
+                  PolyReg.c \
+                  PolyTxt16.c \
+                  PolyTxt.c \
+                  PropAlloc.c \
+                  PutBEvent.c \
+                  PutImage.c \
+                  Quarks.c \
+                  QuBest.c \
+                  QuColor.c \
+                  QuColors.c \
+                  QuCurShp.c \
+                  QuExt.c \
+                  QuKeybd.c \
+                  QuPntr.c \
+                  QuStipShp.c \
+                  QuTextE16.c \
+                  QuTextExt.c \
+                  QuTileShp.c \
+                  QuTree.c \
+                  RaiseWin.c \
+                  RdBitF.c \
+                  RecolorC.c \
+                  ReconfWin.c \
+                  ReconfWM.c \
+                  Region.c \
+                  RegstFlt.c \
+                  RepWindow.c \
+                  RestackWs.c \
+                  RotProp.c \
+                  ScrResStr.c \
+                  SelInput.c \
+                  SendEvent.c \
+                  SetBack.c \
+                  SetClMask.c \
+                  SetClOrig.c \
+                  SetCRects.c \
+                  SetDashes.c \
+                  SetFont.c \
+                  SetFore.c \
+                  SetFPath.c \
+                  SetFunc.c \
+                  SetHints.c \
+                  SetIFocus.c \
+                  SetLocale.c \
+                  SetLStyle.c \
+                  SetNrmHint.c \
+                  SetPMask.c \
+                  SetPntMap.c \
+                  SetRGBCMap.c \
+                  SetSOwner.c \
+                  SetSSaver.c \
+                  SetState.c \
+                  SetStCmap.c \
+                  SetStip.c \
+                  SetTile.c \
+                  SetTSOrig.c \
+                  SetTxtProp.c \
+                  SetWMCMapW.c \
+                  SetWMProto.c \
+                  StBytes.c \
+                  StColor.c \
+                  StColors.c \
+                  StName.c \
+                  StNColor.c \
+                  StrKeysym.c \
+                  StrToText.c \
+                  Sync.c \
+                  Synchro.c \
+                  Text16.c \
+                  Text.c \
+                  TextExt16.c \
+                  TextExt.c \
+                  TextToStr.c \
+                  TrCoords.c \
+                  UndefCurs.c \
+                  UngrabBut.c \
+                  UngrabKbd.c \
+                  UngrabKey.c \
+                  UngrabPtr.c \
+                  UngrabSvr.c \
+                  UninsCmap.c \
+                  UnldFont.c \
+                  UnmapSubs.c \
+                  UnmapWin.c \
+                  VisUtil.c \
+                  WarpPtr.c \
+                  Window.c \
+                  WinEvent.c \
+                  Withdraw.c \
+                  WMGeom.c \
+                  WMProps.c \
+                  WrBitF.c \
+                  xcb_disp.c \
+                  xcb_io.c \
+                  XlibAsync.c \
+                  XlibInt.c \
+                  Xrm.c \
+
+
+INCLUDES := . xcms xlibi18n xkb $(MHMAKECONF)\X11 $(OBJDIR) $(INCLUDES)
+
+KEYSYMDEF = $(MHMAKECONF)/X11/keysymdef.h
+
+$(OBJDIR)\$(LIBRARY).lib: $(OBJDIR)\ks_tables.h
+
+load_makefile util\makefile MAKESERVER=$(MAKESERVER) DEBUG=$(DEBUG)
+
+$(OBJDIR)\ks_tables.h: $(KEYSYMDEF) util\$(OBJDIR)\makekeys.exe
+	util\$(OBJDIR)\makekeys $(relpath $<) > $(relpath $@)
+
+
diff --git a/libX11/src/util/makefile b/libX11/src/util/makefile
new file mode 100644
index 000000000..27da68335
--- /dev/null
+++ b/libX11/src/util/makefile
@@ -0,0 +1,6 @@
+TTYAPP=makekeys
+
+DEFINES += X11_t TRANS_CLIENT
+
+CSRCS = makekeys.c
+
diff --git a/libX11/src/util/makekeys.c b/libX11/src/util/makekeys.c
index 85ce75268..fb758b9cb 100644
--- a/libX11/src/util/makekeys.c
+++ b/libX11/src/util/makekeys.c
@@ -33,6 +33,7 @@ from The Open Group.
 #include <X11/keysymdef.h>

 #include <stdio.h>

 #include <stdlib.h>

+#include <unistd.h>

 

 typedef unsigned long Signature;

 

@@ -157,7 +158,7 @@ main(int argc, char *argv[])
     num_found = 0;

     for (z = ksnum; z < KTNUM; z++) {

 	max_rehash = 0;

-	for (name = tab, i = z; --i >= 0;)

+	for (name = &tab[0], i = z; --i >= 0;)

 		*name++ = 0;

 	for (i = 0; i < ksnum; i++) {

 	    name = info[i].name;

diff --git a/libX11/src/xcb_io.c b/libX11/src/xcb_io.c
index afb0267ca..9f49cdd50 100644
--- a/libX11/src/xcb_io.c
+++ b/libX11/src/xcb_io.c
@@ -21,6 +21,9 @@
 #ifdef HAVE_SYS_SELECT_H

 #include <sys/select.h>

 #endif

+#include <sys/time.h>

+

+#include <X11/Xtrans/Xtrans.h>

 

 static void return_socket(void *closure)

 {

diff --git a/libX11/src/xcms/LRGB.c b/libX11/src/xcms/LRGB.c
index 5ecb7d120..2dc5a20cf 100644
--- a/libX11/src/xcms/LRGB.c
+++ b/libX11/src/xcms/LRGB.c
@@ -1,1844 +1,1844 @@
-
-/*
- * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
- * 	All Rights Reserved
- *
- * This file is a component of an X Window System-specific implementation
- * of Xcms based on the TekColor Color Management System.  Permission is
- * hereby granted to use, copy, modify, sell, and otherwise distribute this
- * software and its documentation for any purpose and without fee, provided
- * that this copyright, permission, and disclaimer notice is reproduced in
- * all copies of this software and in supporting documentation.  TekColor
- * is a trademark of Tektronix, Inc.
- *
- * Tektronix makes no representation about the suitability of this software
- * for any purpose.  It is provided "as is" and with all faults.
- *
- * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
- * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
- * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
- * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
- * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
- * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
- *
- *
- *	NAME
- *		XcmsLRGB.c
- *
- *	DESCRIPTION
- *		This file contains the conversion routines:
- *		    1. CIE XYZ to RGB intensity
- *		    2. RGB intensity to device RGB
- *		    3. device RGB to RGB intensity
- *		    4. RGB intensity to CIE XYZ
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include <X11/Xos.h>
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xcmsint.h"
-#include "Cv.h"
-
-/*
- *      LOCAL DEFINES
- *		#define declarations local to this package.
- */
-#define EPS	0.001
-#ifndef MIN
-#define MIN(x,y) ((x) > (y) ? (y) : (x))
-#endif /* MIN */
-#ifndef MAX
-#define MAX(x,y) ((x) > (y) ? (x) : (y))
-#endif /* MAX */
-#ifndef MIN3
-#define MIN3(x,y,z) ((x) > (MIN((y), (z))) ? (MIN((y), (z))) : (x))
-#endif /* MIN3 */
-#ifndef MAX3
-#define MAX3(x,y,z) ((x) > (MAX((y), (z))) ? (x) : (MAX((y), (z))))
-#endif /* MAX3 */
-
-/*
- *      LOCAL TYPEDEFS
- *              typedefs local to this package (for use with local vars).
- *
- */
-
-/*
- *      FORWARD DECLARATIONS
- */
-static void LINEAR_RGB_FreeSCCData(XPointer pScreenDataTemp);
-static int LINEAR_RGB_InitSCCData(Display *dpy,
-    int screenNumber, XcmsPerScrnInfo *pPerScrnInfo);
-static int XcmsLRGB_RGB_ParseString(register char *spec, XcmsColor *pColor);
-static int XcmsLRGB_RGBi_ParseString(register char *spec, XcmsColor *pColor);
-static Status
-_XcmsGetTableType0(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount);
-static Status
-_XcmsGetTableType1(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount);
-
-/*
- *      LOCALS VARIABLES
- *		Variables local to this package.
- *		    Usage example:
- *		        static int	ExampleLocalVar;
- */
-
-static unsigned short const MASK[17] = {
-    0x0000,	/*  0 bitsPerRGB */
-    0x8000,	/*  1 bitsPerRGB */
-    0xc000,	/*  2 bitsPerRGB */
-    0xe000,	/*  3 bitsPerRGB */
-    0xf000,	/*  4 bitsPerRGB */
-    0xf800,	/*  5 bitsPerRGB */
-    0xfc00,	/*  6 bitsPerRGB */
-    0xfe00,	/*  7 bitsPerRGB */
-    0xff00,	/*  8 bitsPerRGB */
-    0xff80,	/*  9 bitsPerRGB */
-    0xffc0,	/* 10 bitsPerRGB */
-    0xffe0,	/* 11 bitsPerRGB */
-    0xfff0,	/* 12 bitsPerRGB */
-    0xfff8,	/* 13 bitsPerRGB */
-    0xfffc,	/* 14 bitsPerRGB */
-    0xfffe,	/* 15 bitsPerRGB */
-    0xffff	/* 16 bitsPerRGB */
-};
-
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsRGBFormat
-     * to XcmsCIEXYZFormat.
-     */
-static XcmsConversionProc Fl_RGB_to_CIEXYZ[] = {
-    (XcmsConversionProc)XcmsRGBToRGBi,
-    (XcmsConversionProc)XcmsRGBiToCIEXYZ,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat
-     * to XcmsRGBFormat.
-     */
-static XcmsConversionProc Fl_CIEXYZ_to_RGB[] = {
-    (XcmsConversionProc)XcmsCIEXYZToRGBi,
-    (XcmsConversionProc)XcmsRGBiToRGB,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsRGBiFormat
-     * to XcmsCIEXYZFormat.
-     */
-static XcmsConversionProc Fl_RGBi_to_CIEXYZ[] = {
-    (XcmsConversionProc)XcmsRGBiToCIEXYZ,
-    NULL
-};
-
-    /*
-     * A NULL terminated array of function pointers that when applied
-     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat
-     * to XcmsRGBiFormat.
-     */
-static XcmsConversionProc Fl_CIEXYZ_to_RGBi[] = {
-    (XcmsConversionProc)XcmsCIEXYZToRGBi,
-    NULL
-};
-
-    /*
-     * RGBi Color Spaces
-     */
-XcmsColorSpace	XcmsRGBiColorSpace =
-    {
-	_XcmsRGBi_prefix,	/* prefix */
-	XcmsRGBiFormat,		/* id */
-	XcmsLRGB_RGBi_ParseString,	/* parseString */
-	Fl_RGBi_to_CIEXYZ,	/* to_CIEXYZ */
-	Fl_CIEXYZ_to_RGBi,	/* from_CIEXYZ */
-	1
-    };
-
-    /*
-     * RGB Color Spaces
-     */
-XcmsColorSpace	XcmsRGBColorSpace =
-    {
-	_XcmsRGB_prefix,		/* prefix */
-	XcmsRGBFormat,		/* id */
-	XcmsLRGB_RGB_ParseString,	/* parseString */
-	Fl_RGB_to_CIEXYZ,	/* to_CIEXYZ */
-	Fl_CIEXYZ_to_RGB,	/* from_CIEXYZ */
-	1
-    };
-
-    /*
-     * Device-Independent Color Spaces known to the
-     * LINEAR_RGB Screen Color Characteristics Function Set.
-     */
-static XcmsColorSpace	*DDColorSpaces[] = {
-    &XcmsRGBColorSpace,
-    &XcmsRGBiColorSpace,
-    NULL
-};
-
-
-/*
- *      GLOBALS
- *              Variables declared in this package that are allowed
- *		to be used globally.
- */
-
-    /*
-     * LINEAR_RGB Screen Color Characteristics Function Set.
-     */
-XcmsFunctionSet	XcmsLinearRGBFunctionSet =
-    {
-	&DDColorSpaces[0],	/* pDDColorSpaces */
-	LINEAR_RGB_InitSCCData,	/* pInitScrnFunc */
-	LINEAR_RGB_FreeSCCData	/* pFreeSCCData */
-    };
-
-/*
- *	DESCRIPTION
- *		Contents of Default SCCData should be replaced if other
- *		data should be used as default.
- *
- *
- */
-
-/*
- * NAME		Tektronix 19" (Sony) CRT
- * PART_NUMBER		119-2451-00
- * MODEL		Tek4300, Tek4800
- */
-
-static IntensityRec const Default_RGB_RedTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x0909,    0.000000 },
-            { 0x0a0a,    0.000936 },
-            { 0x0f0f,    0.001481 },
-            { 0x1414,    0.002329 },
-            { 0x1919,    0.003529 },
-            { 0x1e1e,    0.005127 },
-            { 0x2323,    0.007169 },
-            { 0x2828,    0.009699 },
-            { 0x2d2d,    0.012759 },
-            { 0x3232,    0.016392 },
-            { 0x3737,    0.020637 },
-            { 0x3c3c,    0.025533 },
-            { 0x4141,    0.031119 },
-            { 0x4646,    0.037431 },
-            { 0x4b4b,    0.044504 },
-            { 0x5050,    0.052373 },
-            { 0x5555,    0.061069 },
-            { 0x5a5a,    0.070624 },
-            { 0x5f5f,    0.081070 },
-            { 0x6464,    0.092433 },
-            { 0x6969,    0.104744 },
-            { 0x6e6e,    0.118026 },
-            { 0x7373,    0.132307 },
-            { 0x7878,    0.147610 },
-            { 0x7d7d,    0.163958 },
-            { 0x8282,    0.181371 },
-            { 0x8787,    0.199871 },
-            { 0x8c8c,    0.219475 },
-            { 0x9191,    0.240202 },
-            { 0x9696,    0.262069 },
-            { 0x9b9b,    0.285089 },
-            { 0xa0a0,    0.309278 },
-            { 0xa5a5,    0.334647 },
-            { 0xaaaa,    0.361208 },
-            { 0xafaf,    0.388971 },
-            { 0xb4b4,    0.417945 },
-            { 0xb9b9,    0.448138 },
-            { 0xbebe,    0.479555 },
-            { 0xc3c3,    0.512202 },
-            { 0xc8c8,    0.546082 },
-            { 0xcdcd,    0.581199 },
-            { 0xd2d2,    0.617552 },
-            { 0xd7d7,    0.655144 },
-            { 0xdcdc,    0.693971 },
-            { 0xe1e1,    0.734031 },
-            { 0xe6e6,    0.775322 },
-            { 0xebeb,    0.817837 },
-            { 0xf0f0,    0.861571 },
-            { 0xf5f5,    0.906515 },
-            { 0xfafa,    0.952662 },
-            { 0xffff,    1.000000 }
-};
-
-static IntensityRec const Default_RGB_GreenTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x1313,    0.000000 },
-            { 0x1414,    0.000832 },
-            { 0x1919,    0.001998 },
-            { 0x1e1e,    0.003612 },
-            { 0x2323,    0.005736 },
-            { 0x2828,    0.008428 },
-            { 0x2d2d,    0.011745 },
-            { 0x3232,    0.015740 },
-            { 0x3737,    0.020463 },
-            { 0x3c3c,    0.025960 },
-            { 0x4141,    0.032275 },
-            { 0x4646,    0.039449 },
-            { 0x4b4b,    0.047519 },
-            { 0x5050,    0.056520 },
-            { 0x5555,    0.066484 },
-            { 0x5a5a,    0.077439 },
-            { 0x5f5f,    0.089409 },
-            { 0x6464,    0.102418 },
-            { 0x6969,    0.116485 },
-            { 0x6e6e,    0.131625 },
-            { 0x7373,    0.147853 },
-            { 0x7878,    0.165176 },
-            { 0x7d7d,    0.183604 },
-            { 0x8282,    0.203140 },
-            { 0x8787,    0.223783 },
-            { 0x8c8c,    0.245533 },
-            { 0x9191,    0.268384 },
-            { 0x9696,    0.292327 },
-            { 0x9b9b,    0.317351 },
-            { 0xa0a0,    0.343441 },
-            { 0xa5a5,    0.370580 },
-            { 0xaaaa,    0.398747 },
-            { 0xafaf,    0.427919 },
-            { 0xb4b4,    0.458068 },
-            { 0xb9b9,    0.489165 },
-            { 0xbebe,    0.521176 },
-            { 0xc3c3,    0.554067 },
-            { 0xc8c8,    0.587797 },
-            { 0xcdcd,    0.622324 },
-            { 0xd2d2,    0.657604 },
-            { 0xd7d7,    0.693588 },
-            { 0xdcdc,    0.730225 },
-            { 0xe1e1,    0.767459 },
-            { 0xe6e6,    0.805235 },
-            { 0xebeb,    0.843491 },
-            { 0xf0f0,    0.882164 },
-            { 0xf5f5,    0.921187 },
-            { 0xfafa,    0.960490 },
-            { 0xffff,    1.000000 }
-};
-
-static IntensityRec const Default_RGB_BlueTuples[] = {
-    /* {unsigned short value, XcmsFloat intensity} */
-            { 0x0000,    0.000000 },
-            { 0x0e0e,    0.000000 },
-            { 0x0f0f,    0.001341 },
-            { 0x1414,    0.002080 },
-            { 0x1919,    0.003188 },
-            { 0x1e1e,    0.004729 },
-            { 0x2323,    0.006766 },
-            { 0x2828,    0.009357 },
-            { 0x2d2d,    0.012559 },
-            { 0x3232,    0.016424 },
-            { 0x3737,    0.021004 },
-            { 0x3c3c,    0.026344 },
-            { 0x4141,    0.032489 },
-            { 0x4646,    0.039481 },
-            { 0x4b4b,    0.047357 },
-            { 0x5050,    0.056154 },
-            { 0x5555,    0.065903 },
-            { 0x5a5a,    0.076634 },
-            { 0x5f5f,    0.088373 },
-            { 0x6464,    0.101145 },
-            { 0x6969,    0.114968 },
-            { 0x6e6e,    0.129862 },
-            { 0x7373,    0.145841 },
-            { 0x7878,    0.162915 },
-            { 0x7d7d,    0.181095 },
-            { 0x8282,    0.200386 },
-            { 0x8787,    0.220791 },
-            { 0x8c8c,    0.242309 },
-            { 0x9191,    0.264937 },
-            { 0x9696,    0.288670 },
-            { 0x9b9b,    0.313499 },
-            { 0xa0a0,    0.339410 },
-            { 0xa5a5,    0.366390 },
-            { 0xaaaa,    0.394421 },
-            { 0xafaf,    0.423481 },
-            { 0xb4b4,    0.453547 },
-            { 0xb9b9,    0.484592 },
-            { 0xbebe,    0.516587 },
-            { 0xc3c3,    0.549498 },
-            { 0xc8c8,    0.583291 },
-            { 0xcdcd,    0.617925 },
-            { 0xd2d2,    0.653361 },
-            { 0xd7d7,    0.689553 },
-            { 0xdcdc,    0.726454 },
-            { 0xe1e1,    0.764013 },
-            { 0xe6e6,    0.802178 },
-            { 0xebeb,    0.840891 },
-            { 0xf0f0,    0.880093 },
-            { 0xf5f5,    0.919723 },
-            { 0xfafa,    0.959715 },
-	    { 0xffff,    1.00000 }
-};
-
-static IntensityTbl Default_RGB_RedTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *) Default_RGB_RedTuples,
-    /* unsigned int nEntries */
-	52
-};
-
-static IntensityTbl Default_RGB_GreenTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *)Default_RGB_GreenTuples,
-    /* unsigned int nEntries */
-	50
-};
-
-static IntensityTbl Default_RGB_BlueTbl = {
-    /* IntensityRec *pBase */
-	(IntensityRec *)Default_RGB_BlueTuples,
-    /* unsigned int nEntries */
-	51
-};
-
-static LINEAR_RGB_SCCData Default_RGB_SCCData = {
-    /* XcmsFloat XYZtoRGBmatrix[3][3] */
-  {
-    { 3.48340481253539000, -1.52176374927285200, -0.55923133354049780 },
-    {-1.07152751306193600,  1.96593795204372400,  0.03673691339553462 },
-    { 0.06351179790497788, -0.20020501000496480,  0.81070942031648220 }
-  },
-
-    /* XcmsFloat RGBtoXYZmatrix[3][3] */
-  {
-    { 0.38106149108714790, 0.32025712365352110, 0.24834578525933100 },
-    { 0.20729745115140850, 0.68054638776373240, 0.11215616108485920 },
-    { 0.02133944350088028, 0.14297193020246480, 1.24172892629665500 }
-  },
-
-    /* IntensityTbl *pRedTbl */
-	&Default_RGB_RedTbl,
-
-    /* IntensityTbl *pGreenTbl */
-	&Default_RGB_GreenTbl,
-
-    /* IntensityTbl *pBlueTbl */
-	&Default_RGB_BlueTbl
-};
-
-/************************************************************************
- *									*
- *			PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-/*
- *	NAME
- *		LINEAR_RGB_InitSCCData()
- *
- *	SYNOPSIS
- */
-static Status
-LINEAR_RGB_InitSCCData(
-    Display *dpy,
-    int screenNumber,
-    XcmsPerScrnInfo *pPerScrnInfo)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    Atom  CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True);
-    Atom  MatrixAtom  = XInternAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True);
-    int	  format_return, count, cType, nTables;
-    unsigned long nitems, nbytes_return;
-    char *property_return, *pChar;
-    XcmsFloat *pValue;
-#ifdef ALLDEBUG
-    IntensityRec *pIRec;
-#endif /* ALLDEBUG */
-    VisualID visualID;
-
-    LINEAR_RGB_SCCData *pScreenData, *pScreenDefaultData;
-    XcmsIntensityMap *pNewMap;
-
-    /*
-     * Allocate memory for pScreenData
-     */
-    if (!(pScreenData = pScreenDefaultData = (LINEAR_RGB_SCCData *)
-		      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {
-	return(XcmsFailure);
-    }
-
-    /*
-     *  1. Get the XYZ->RGB and RGB->XYZ matrices
-     */
-
-    if (MatrixAtom == None ||
-	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), MatrixAtom,
-	   &format_return, &nitems, &nbytes_return, &property_return) ||
-	   nitems != 18 || format_return != 32) {
-	/*
-	 * As per the XDCCC, there must be 18 data items and each must be
-	 * in 32 bits !
-	 */
-	goto FreeSCCData;
-
-    } else {
-
-	/*
-	 * RGBtoXYZ and XYZtoRGB matrices
-	 */
-	pValue = (XcmsFloat *) pScreenData;
-	pChar = property_return;
-	for (count = 0; count < 18; count++) {
-	    *pValue++ = (long)_XcmsGetElement(format_return, &pChar,
-		    &nitems) / (XcmsFloat)XDCCC_NUMBER;
-	}
-	Xfree ((char *)property_return);
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =
-		pScreenData->RGBtoXYZmatrix[0][0] +
-		pScreenData->RGBtoXYZmatrix[0][1] +
-		pScreenData->RGBtoXYZmatrix[0][2];
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =
-		pScreenData->RGBtoXYZmatrix[1][0] +
-		pScreenData->RGBtoXYZmatrix[1][1] +
-		pScreenData->RGBtoXYZmatrix[1][2];
-	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =
-		pScreenData->RGBtoXYZmatrix[2][0] +
-		pScreenData->RGBtoXYZmatrix[2][1] +
-		pScreenData->RGBtoXYZmatrix[2][2];
-
-	/*
-	 * Compute the Screen White Point
-	 */
-	if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )
-		|| (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {
-	    goto FreeSCCData;
-	} else {
-	    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;
-	}
-	pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;
-	pPerScrnInfo->screenWhitePt.pixel = 0;
-
-#ifdef PDEBUG
-	printf ("RGB to XYZ Matrix values:\n");
-	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",
-		pScreenData->RGBtoXYZmatrix[0][0],
-		pScreenData->RGBtoXYZmatrix[0][1],
-		pScreenData->RGBtoXYZmatrix[0][2],
-		pScreenData->RGBtoXYZmatrix[1][0],
-		pScreenData->RGBtoXYZmatrix[1][1],
-		pScreenData->RGBtoXYZmatrix[1][2],
-		pScreenData->RGBtoXYZmatrix[2][0],
-		pScreenData->RGBtoXYZmatrix[2][1],
-		pScreenData->RGBtoXYZmatrix[2][2]);
-	printf ("XYZ to RGB Matrix values:\n");
-	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",
-		pScreenData->XYZtoRGBmatrix[0][0],
-		pScreenData->XYZtoRGBmatrix[0][1],
-		pScreenData->XYZtoRGBmatrix[0][2],
-		pScreenData->XYZtoRGBmatrix[1][0],
-		pScreenData->XYZtoRGBmatrix[1][1],
-		pScreenData->XYZtoRGBmatrix[1][2],
-		pScreenData->XYZtoRGBmatrix[2][0],
-		pScreenData->XYZtoRGBmatrix[2][1],
-		pScreenData->XYZtoRGBmatrix[2][2]);
-	printf ("Screen White Pt value: %f %f %f\n",
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X,
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y,
-		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z);
-#endif /* PDEBUG */
-    }
-
-    /*
-     *	2. Get the Intensity Profile
-     */
-    if (CorrectAtom == None ||
-	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), CorrectAtom,
-	   &format_return, &nitems, &nbytes_return, &property_return)) {
-	goto FreeSCCData;
-    }
-
-    pChar = property_return;
-
-    while (nitems) {
-	switch (format_return) {
-	  case 8:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		VisualID1
-	     *		VisualID2
-	     *		VisualID3
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 9) {
-		goto Free_property_return;
-	    }
-	    count = 3;
-	    break;
-	  case 16:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		VisualID3
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 7) {
-		goto Free_property_return;
-	    }
-	    count = 1;
-	    break;
-	  case 32:
-	    /*
-	     * Must have at least:
-	     *		VisualID0
-	     *		type
-	     *		count
-	     *		length
-	     *		intensity1
-	     *		intensity2
-	     */
-	    if (nitems < 6) {
-		goto Free_property_return;
-	    }
-	    count = 0;
-	    break;
-	  default:
-	    goto Free_property_return;
-	}
-
-	/*
-	 * Get VisualID
-	 */
-	visualID = _XcmsGetElement(format_return, &pChar, &nitems);
-	while (count--) {
-	    visualID = visualID << format_return;
-	    visualID |= _XcmsGetElement(format_return, &pChar, &nitems);
-	}
-
-	if (visualID == 0) {
-	    /*
-	     * This is a shared intensity table
-	     */
-	    pScreenData = pScreenDefaultData;
-	} else {
-	    /*
-	     * This is a per-Visual intensity table
-	     */
-	    if (!(pScreenData = (LINEAR_RGB_SCCData *)
-			      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {
-		goto Free_property_return;
-	    }
-	    /* copy matrices */
-	    memcpy((char *)pScreenData, (char *)pScreenDefaultData,
-		   18 * sizeof(XcmsFloat));
-
-	    /* Create, initialize, and add map */
-	    if (!(pNewMap = (XcmsIntensityMap *)
-			      Xcalloc (1, sizeof(XcmsIntensityMap)))) {
-		Xfree((char *)pScreenData);
-		goto Free_property_return;
-	    }
-	    pNewMap->visualID = visualID;
-	    pNewMap->screenData = (XPointer)pScreenData;
-	    pNewMap->pFreeScreenData = LINEAR_RGB_FreeSCCData;
-	    pNewMap->pNext =
-		    (XcmsIntensityMap *)dpy->cms.perVisualIntensityMaps;
-	    dpy->cms.perVisualIntensityMaps = (XPointer)pNewMap;
-	    dpy->free_funcs->intensityMaps = _XcmsFreeIntensityMaps;
-	}
-
-	cType = _XcmsGetElement(format_return, &pChar, &nitems);
-	nTables = _XcmsGetElement(format_return, &pChar, &nitems);
-
-	if (cType == 0) {
-
-	    /* Red Intensity Table */
-	    if (!(pScreenData->pRedTbl = (IntensityTbl *)
-		    Xcalloc (1, sizeof(IntensityTbl)))) {
-		goto Free_property_return;
-	    }
-	    if (_XcmsGetTableType0(pScreenData->pRedTbl, format_return, &pChar,
-		    &nitems) == XcmsFailure) {
-		goto FreeRedTbl;
-	    }
-
-	    if (nTables == 1) {
-		/* Green Intensity Table */
-		pScreenData->pGreenTbl = pScreenData->pRedTbl;
-		/* Blue Intensity Table */
-		pScreenData->pBlueTbl = pScreenData->pRedTbl;
-	    } else {
-		/* Green Intensity Table */
-		if (!(pScreenData->pGreenTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeRedTblElements;
-		}
-		if (_XcmsGetTableType0(pScreenData->pGreenTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeGreenTbl;
-		}
-
-		/* Blue Intensity Table */
-		if (!(pScreenData->pBlueTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeGreenTblElements;
-		}
-		if (_XcmsGetTableType0(pScreenData->pBlueTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeBlueTbl;
-		}
-	    }
-	} else if (cType == 1) {
-	    /* Red Intensity Table */
-	    if (!(pScreenData->pRedTbl = (IntensityTbl *)
-		    Xcalloc (1, sizeof(IntensityTbl)))) {
-		goto Free_property_return;
-	    }
-	    if (_XcmsGetTableType1(pScreenData->pRedTbl, format_return, &pChar,
-		    &nitems) == XcmsFailure) {
-		goto FreeRedTbl;
-	    }
-
-	    if (nTables == 1) {
-
-		/* Green Intensity Table */
-		pScreenData->pGreenTbl = pScreenData->pRedTbl;
-		/* Blue Intensity Table */
-		pScreenData->pBlueTbl = pScreenData->pRedTbl;
-
-	    } else {
-
-		/* Green Intensity Table */
-		if (!(pScreenData->pGreenTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeRedTblElements;
-		}
-		if (_XcmsGetTableType1(pScreenData->pGreenTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeGreenTbl;
-		}
-
-		/* Blue Intensity Table */
-		if (!(pScreenData->pBlueTbl = (IntensityTbl *)
-			Xcalloc (1, sizeof(IntensityTbl)))) {
-		    goto FreeGreenTblElements;
-		}
-		if (_XcmsGetTableType1(pScreenData->pBlueTbl, format_return, &pChar,
-			&nitems) == XcmsFailure) {
-		    goto FreeBlueTbl;
-		}
-	    }
-	} else {
-	    goto Free_property_return;
-	}
-
-#ifdef ALLDEBUG
-	printf ("Intensity Table  RED    %d\n", pScreenData->pRedTbl->nEntries);
-	pIRec = (IntensityRec *) pScreenData->pRedTbl->pBase;
-	for (count = 0; count < pScreenData->pRedTbl->nEntries; count++, pIRec++) {
-	    printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	}
-	if (pScreenData->pGreenTbl->pBase != pScreenData->pRedTbl->pBase) {
-	    printf ("Intensity Table  GREEN  %d\n", pScreenData->pGreenTbl->nEntries);
-	    pIRec = (IntensityRec *)pScreenData->pGreenTbl->pBase;
-	    for (count = 0; count < pScreenData->pGreenTbl->nEntries; count++, pIRec++) {
-		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	    }
-	}
-	if (pScreenData->pBlueTbl->pBase != pScreenData->pRedTbl->pBase) {
-	    printf ("Intensity Table  BLUE   %d\n", pScreenData->pBlueTbl->nEntries);
-	    pIRec = (IntensityRec *) pScreenData->pBlueTbl->pBase;
-	    for (count = 0; count < pScreenData->pBlueTbl->nEntries; count++, pIRec++) {
-		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);
-	    }
-	}
-#endif /* ALLDEBUG */
-    }
-
-    Xfree ((char *)property_return);
-
-    /* Free the old memory and use the new structure created. */
-    LINEAR_RGB_FreeSCCData(pPerScrnInfo->screenData);
-
-    pPerScrnInfo->functionSet = (XPointer) &XcmsLinearRGBFunctionSet;
-
-    pPerScrnInfo->screenData = (XPointer) pScreenData;
-
-    pPerScrnInfo->state = XcmsInitSuccess;
-
-    return(XcmsSuccess);
-
-FreeBlueTblElements:
-    Xfree((char *)pScreenData->pBlueTbl->pBase);
-
-FreeBlueTbl:
-    Xfree((char *)pScreenData->pBlueTbl);
-
-FreeGreenTblElements:
-    Xfree((char *)pScreenData->pGreenTbl->pBase);
-
-FreeGreenTbl:
-    Xfree((char *)pScreenData->pGreenTbl);
-
-FreeRedTblElements:
-    Xfree((char *)pScreenData->pRedTbl->pBase);
-
-FreeRedTbl:
-    Xfree((char *)pScreenData->pRedTbl);
-
-Free_property_return:
-    Xfree ((char *)property_return);
-
-FreeSCCData:
-    Xfree((char *)pScreenDefaultData);
-    pPerScrnInfo->state = XcmsInitNone;
-    return(XcmsFailure);
-}
-
-
-/*
- *	NAME
- *		LINEAR_RGB_FreeSCCData()
- *
- *	SYNOPSIS
- */
-static void
-LINEAR_RGB_FreeSCCData(
-    XPointer pScreenDataTemp)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		0 if failed.
- *		1 if succeeded with no modifications.
- *
- */
-{
-    LINEAR_RGB_SCCData *pScreenData = (LINEAR_RGB_SCCData *) pScreenDataTemp;
-
-    if (pScreenData && pScreenData != &Default_RGB_SCCData) {
-	if (pScreenData->pRedTbl) {
-	    if (pScreenData->pGreenTbl) {
-		if (pScreenData->pRedTbl->pBase !=
-		    pScreenData->pGreenTbl->pBase) {
-		    if (pScreenData->pGreenTbl->pBase) {
-			Xfree ((char *)pScreenData->pGreenTbl->pBase);
-		    }
-		}
-		if (pScreenData->pGreenTbl != pScreenData->pRedTbl) {
-		    Xfree ((char *)pScreenData->pGreenTbl);
-		}
-	    }
-	    if (pScreenData->pBlueTbl) {
-		if (pScreenData->pRedTbl->pBase !=
-		    pScreenData->pBlueTbl->pBase) {
-		    if (pScreenData->pBlueTbl->pBase) {
-			Xfree ((char *)pScreenData->pBlueTbl->pBase);
-		    }
-		}
-		if (pScreenData->pBlueTbl != pScreenData->pRedTbl) {
-		    Xfree ((char *)pScreenData->pBlueTbl);
-		}
-	    }
-	    if (pScreenData->pRedTbl->pBase) {
-		Xfree ((char *)pScreenData->pRedTbl->pBase);
-	    }
-	    Xfree ((char *)pScreenData->pRedTbl);
-	}
-	Xfree ((char *)pScreenData);
-    }
-}
-
-
-
-/************************************************************************
- *									*
- *			API PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-/*
- *	NAME
- *		_XcmsGetTableType0
- *
- *	SYNOPSIS
- */
-static Status
-_XcmsGetTableType0(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    unsigned int nElements;
-    IntensityRec *pIRec;
-
-    nElements = pTbl->nEntries =
-	    _XcmsGetElement(format, pChar, pCount) + 1;
-    if (!(pIRec = pTbl->pBase = (IntensityRec *)
-	  Xcalloc (nElements, sizeof(IntensityRec)))) {
-	return(XcmsFailure);
-    }
-
-    switch (format) {
-      case 8:
-	for (; nElements--; pIRec++) {
-	    /* 0xFFFF/0xFF = 0x101 */
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount) * 0x101;
-	    pIRec->intensity =
-		    _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0;
-	}
-	break;
-      case 16:
-	for (; nElements--; pIRec++) {
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount);
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)65535.0;
-	}
-	break;
-      case 32:
-	for (; nElements--; pIRec++) {
-	    pIRec->value = _XcmsGetElement (format, pChar, pCount);
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)4294967295.0;
-	}
-	break;
-      default:
-	return(XcmsFailure);
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		_XcmsGetTableType1
- *
- *	SYNOPSIS
- */
-static Status
-_XcmsGetTableType1(
-    IntensityTbl *pTbl,
-    int	  format,
-    char **pChar,
-    unsigned long *pCount)
-/*
- *	DESCRIPTION
- *
- *	RETURNS
- *		XcmsFailure if failed.
- *		XcmsSuccess if succeeded.
- *
- */
-{
-    int count;
-    unsigned int max_index;
-    IntensityRec *pIRec;
-
-    max_index = _XcmsGetElement(format, pChar, pCount);
-    pTbl->nEntries = max_index + 1;
-    if (!(pIRec = pTbl->pBase = (IntensityRec *)
-	  Xcalloc (max_index+1, sizeof(IntensityRec)))) {
-	return(XcmsFailure);
-    }
-
-    switch (format) {
-      case 8:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)255.0;
-	}
-	break;
-      case 16:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)65535.0;
-	}
-	break;
-      case 32:
-	for (count = 0; count < max_index+1; count++, pIRec++) {
-	    pIRec->value = (count * 65535) / max_index;
-	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)
-		    / (XcmsFloat)4294967295.0;
-	}
-	break;
-      default:
-	return(XcmsFailure);
-    }
-
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		ValueCmp
- *
- *	SYNOPSIS
- */
-static int
-_XcmsValueCmp(
-    IntensityRec *p1, IntensityRec *p2)
-/*
- *	DESCRIPTION
- *		Compares the value component of two IntensityRec
- *		structures.
- *
- *	RETURNS
- *		0 if p1->value is equal to p2->value
- *		< 0 if p1->value is less than p2->value
- *		> 0 if p1->value is greater than p2->value
- *
- */
-{
-    return (p1->value - p2->value);
-}
-
-
-/*
- *	NAME
- *		IntensityCmp
- *
- *	SYNOPSIS
- */
-static int
-_XcmsIntensityCmp(
-    IntensityRec *p1, IntensityRec *p2)
-/*
- *	DESCRIPTION
- *		Compares the intensity component of two IntensityRec
- *		structures.
- *
- *	RETURNS
- *		0 if equal;
- *		< 0 if first precedes second
- *		> 0 if first succeeds second
- *
- */
-{
-    if (p1->intensity < p2->intensity) {
-	return (-1);
-    }
-    if (p1->intensity > p2->intensity) {
-	return (XcmsSuccess);
-    }
-    return (XcmsFailure);
-}
-
-/*
- *	NAME
- *		ValueInterpolation
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-static int
-_XcmsValueInterpolation(
-    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,
-    int bitsPerRGB)
-/*
- *	DESCRIPTION
- *		Based on a given value, performs a linear interpolation
- *		on the intensities between two IntensityRec structures.
- *		Note that the bitsPerRGB parameter is ignored.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- */
-{
-    XcmsFloat ratio;
-
-    ratio = ((XcmsFloat)key->value - (XcmsFloat)lo->value) /
-	((XcmsFloat)hi->value - (XcmsFloat)lo->value);
-    answer->value = key->value;
-    answer->intensity = (hi->intensity - lo->intensity) * ratio;
-    answer->intensity += lo->intensity;
-    return (XcmsSuccess);
-}
-
-/*
- *	NAME
- *		IntensityInterpolation
- *
- *	SYNOPSIS
- */
-static int
-_XcmsIntensityInterpolation(
-    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,
-    int bitsPerRGB)
-/*
- *	DESCRIPTION
- *		Based on a given intensity, performs a linear interpolation
- *		on the values between two IntensityRec structures.
- *		The bitsPerRGB parameter is necessary to perform rounding
- *		to the correct number of significant bits.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- */
-{
-    XcmsFloat ratio;
-    long target, up, down;
-    int shift = 16 - bitsPerRGB;
-    int max_color = (1 << bitsPerRGB) - 1;
-
-    ratio = (key->intensity - lo->intensity) / (hi->intensity - lo->intensity);
-    answer->intensity = key->intensity;
-    target = hi->value - lo->value;
-    target *= ratio;
-    target += lo->value;
-
-    /*
-     * Ok now, lets find the closest in respects to bits per RGB
-     */
-    up = ((target >> shift) * 0xFFFF) / max_color;
-    if (up < target) {
-	down = up;
-	up = (MIN((down >> shift) + 1, max_color) * 0xFFFF) / max_color;
-    } else {
-	down = (MAX((up >> shift) - 1, 0) * 0xFFFF) / max_color;
-    }
-    answer->value = ((up - target) < (target - down) ? up : down);
-    answer->value &= MASK[bitsPerRGB];
-    return (XcmsSuccess);
-}
-
-
-
-typedef int (*comparProcp)(
-    char *p1,
-    char *p2);
-typedef int (*interpolProcp)(
-    char *key,
-    char *lo,
-    char *hi,
-    char *answer,
-    int bitsPerRGB);
-
-/*
- *	NAME
- *		_XcmsTableSearch
- *
- *	SYNOPSIS
- */
-static int
-_XcmsTableSearch(
-    char *key,
-    int bitsPerRGB,
-    char *base,
-    unsigned nel,
-    unsigned nKeyPtrSize,
-    int (*compar)(
-        char *p1,
-        char *p2),
-    int (*interpol)(
-        char *key,
-        char *lo,
-        char *hi,
-        char *answer,
-        int bitsPerRGB),
-    char *answer)
-
-/*
- *	DESCRIPTION
- *		A binary search through the specificied table.
- *
- *	RETURNS
- *		Returns 0 if failed; otherwise non-zero.
- *
- */
-{
-    char *hi, *lo, *mid, *last;
-    int result;
-
-    last = hi = base + ((nel - 1) * nKeyPtrSize);
-    mid = lo = base;
-
-    /* use only the significants bits, then scale into 16 bits */
-    ((IntensityRec *)key)->value = ((unsigned long)
-	    (((IntensityRec *)key)->value >> (16 - bitsPerRGB)) * 0xFFFF)
-	    / ((1 << bitsPerRGB) - 1);
-
-    /* Special case so that zero intensity always maps to zero value */
-    if ((*compar) (key,lo) <= 0) {
-	memcpy (answer, lo, nKeyPtrSize);
-	((IntensityRec *)answer)->value &= MASK[bitsPerRGB];
-	return XcmsSuccess;
-    }
-    while (mid != last) {
-	last = mid;
-	mid = lo + (((unsigned)(hi - lo) / nKeyPtrSize) / 2) * nKeyPtrSize;
-	result = (*compar) (key, mid);
-	if (result == 0) {
-
-	    memcpy(answer, mid, nKeyPtrSize);
-	    ((IntensityRec *)answer)->value &= MASK[bitsPerRGB];
-	    return (XcmsSuccess);
-	} else if (result < 0) {
-	    hi = mid;
-	} else {
-	    lo = mid;
-	}
-    }
-
-    /*
-     * If we got to here, we didn't find a solution, so we
-     * need to apply interpolation.
-     */
-    return ((*interpol)(key, lo, hi, answer, bitsPerRGB));
-}
-
-
-/*
- *      NAME
- *		_XcmsMatVec - multiply a 3 x 3 by a 3 x 1 vector
- *
- *	SYNOPSIS
- */
-static void _XcmsMatVec(
-    XcmsFloat *pMat, XcmsFloat *pIn, XcmsFloat *pOut)
-/*
- *      DESCRIPTION
- *		Multiply the passed vector by the passed matrix to return a
- *		vector. Matrix is 3x3, vectors are of length 3.
- *
- *	RETURNS
- *		void
- */
-{
-    int i, j;
-
-    for (i = 0; i < 3; i++) {
-	pOut[i] = 0.0;
-	for (j = 0; j < 3; j++)
-	    pOut[i] += *(pMat+(i*3)+j) * pIn[j];
-    }
-}
-
-
-/************************************************************************
- *									*
- *			 PUBLIC ROUTINES				*
- *									*
- ************************************************************************/
-
-
-/*
- *	NAME
- *		XcmsLRGB_RGB_ParseString
- *
- *	SYNOPSIS
- */
-static int
-XcmsLRGB_RGB_ParseString(
-    register char *spec,
-    XcmsColor *pColor)
-/*
- *	DESCRIPTION
- *		This routines takes a string and attempts to convert
- *		it into a XcmsColor structure with XcmsRGBFormat.
- *
- *	RETURNS
- *		0 if failed, non-zero otherwise.
- */
-{
-    register int n, i;
-    unsigned short r, g, b;
-    char c;
-    char *pchar;
-    unsigned short *pShort;
-
-    /*
-     * Check for old # format
-     */
-    if (*spec == '#') {
-	/*
-	 * Attempt to parse the value portion.
-	 */
-	spec++;
-	n = strlen(spec);
-	if (n != 3 && n != 6 && n != 9 && n != 12) {
-	    return(XcmsFailure);
-	}
-
-	n /= 3;
-	g = b = 0;
-	do {
-	    r = g;
-	    g = b;
-	    b = 0;
-	    for (i = n; --i >= 0; ) {
-		c = *spec++;
-		b <<= 4;
-		if (c >= '0' && c <= '9')
-		    b |= c - '0';
-		/* assume string in lowercase
-		else if (c >= 'A' && c <= 'F')
-		    b |= c - ('A' - 10);
-		*/
-		else if (c >= 'a' && c <= 'f')
-		    b |= c - ('a' - 10);
-		else return (XcmsFailure);
-	    }
-	} while (*spec != '\0');
-
-	/*
-	 * Succeeded !
-	 */
-	n <<= 2;
-	n = 16 - n;
-	/* shift instead of scale, to match old broken semantics */
-	pColor->spec.RGB.red = r << n;
-	pColor->spec.RGB.green = g << n;
-	pColor->spec.RGB.blue =  b << n;
-    } else {
-	if ((pchar = strchr(spec, ':')) == NULL) {
-	    return(XcmsFailure);
-	}
-	n = (int)(pchar - spec);
-
-	/*
-	 * Check for proper prefix.
-	 */
-	if (strncmp(spec, _XcmsRGB_prefix, n) != 0) {
-	    return(XcmsFailure);
-	}
-
-	/*
-	 * Attempt to parse the value portion.
-	 */
-	spec += (n + 1);
-	pShort = &pColor->spec.RGB.red;
-	for (i = 0; i < 3; i++, pShort++, spec++) {
-	    n = 0;
-	    *pShort = 0;
-	    while (*spec != '/' && *spec != '\0') {
-		if (++n > 4) {
-		    return(XcmsFailure);
-		}
-		c = *spec++;
-		*pShort <<= 4;
-		if (c >= '0' && c <= '9')
-		    *pShort |= c - '0';
-		/* assume string in lowercase
-		else if (c >= 'A' && c <= 'F')
-		    *pShort |= c - ('A' - 10);
-		*/
-		else if (c >= 'a' && c <= 'f')
-		    *pShort |= c - ('a' - 10);
-		else return (XcmsFailure);
-	    }
-	    if (n == 0)
-		return (XcmsFailure);
-	    if (n < 4) {
-		*pShort = ((unsigned long)*pShort * 0xFFFF) / ((1 << n*4) - 1);
-	    }
-	}
-    }
-    pColor->format = XcmsRGBFormat;
-    pColor->pixel = 0;
-    return (XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsLRGB_RGBi_ParseString
- *
- *	SYNOPSIS
- */
-static int
-XcmsLRGB_RGBi_ParseString(
-    register char *spec,
-    XcmsColor *pColor)
-/*
- *	DESCRIPTION
- *		This routines takes a string and attempts to convert
- *		it into a XcmsColor structure with XcmsRGBiFormat.
- *		The assumed RGBi string syntax is:
- *		    RGBi:<r>/<g>/<b>
- *		Where r, g, and b are in string input format for floats
- *		consisting of:
- *		    a. an optional sign
- *		    b. a string of numbers possibly containing a decimal point,
- *		    c. an optional exponent field containing an 'E' or 'e'
- *			followed by a possibly signed integer string.
- *
- *	RETURNS
- *		0 if failed, non-zero otherwise.
- */
-{
-    int n;
-    char *pchar;
-
-    if ((pchar = strchr(spec, ':')) == NULL) {
-	return(XcmsFailure);
-    }
-    n = (int)(pchar - spec);
-
-    /*
-     * Check for proper prefix.
-     */
-    if (strncmp(spec, _XcmsRGBi_prefix, n) != 0) {
-	return(XcmsFailure);
-    }
-
-    /*
-     * Attempt to parse the value portion.
-     */
-    if (sscanf(spec + n + 1, "%lf/%lf/%lf",
-	    &pColor->spec.RGBi.red,
-	    &pColor->spec.RGBi.green,
-	    &pColor->spec.RGBi.blue) != 3) {
-        char *s; /* Maybe failed due to locale */
-        int f;
-        if ((s = strdup(spec))) {
-            for (f = 0; s[f]; ++f)
-                if (s[f] == '.')
-                    s[f] = ',';
-                else if (s[f] == ',')
-                    s[f] = '.';
-	    if (sscanf(s + n + 1, "%lf/%lf/%lf",
-		       &pColor->spec.RGBi.red,
-		       &pColor->spec.RGBi.green,
-		       &pColor->spec.RGBi.blue) != 3) {
-                free(s);
-                return(XcmsFailure);
-            }
-            free(s);
-        } else
-	    return(XcmsFailure);
-    }
-
-    /*
-     * Succeeded !
-     */
-    pColor->format = XcmsRGBiFormat;
-    pColor->pixel = 0;
-    return (XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsCIEXYZToRGBi - convert CIE XYZ to RGB
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsCIEXYZToRGBi(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to an array of Bool		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGB format to RGBi format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded without gamut compression.
- *		XcmsSuccessWithCompression if succeeded with gamut
- *			compression.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsFloat tmp[3];
-    int hasCompressed = 0;
-    unsigned int i;
-    XcmsColor *pColor = pXcmsColors_in_out;
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    /*
-     * XcmsColors should be White Point Adjusted, if necessary, by now!
-     */
-
-    /*
-     * NEW!!! for extended gamut compression
-     *
-     * 1. Need to zero out pCompressed
-     *
-     * 2. Need to save initial address of pColor
-     *
-     * 3. Need to save initial address of pCompressed
-     */
-
-    for (i = 0; i < nColors; i++) {
-
-	/* Make sure format is XcmsCIEXYZFormat */
-	if (pColor->format != XcmsCIEXYZFormat) {
-	    return(XcmsFailure);
-	}
-
-	/* Multiply [A]-1 * [XYZ] to get RGB intensity */
-	_XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,
-		(XcmsFloat *) &pColor->spec, tmp);
-
-	if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||
-	    (MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {
-
-	    /*
-	     * RGBi out of screen's gamut
-	     */
-
-	    if (ccc->gamutCompProc == NULL) {
-		/*
-		 * Aha!! Here's that little trick that will allow
-		 * gamut compression routines to get the out of bound
-		 * RGBi.
-		 */
-		memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));
-		pColor->format = XcmsRGBiFormat;
-		return(XcmsFailure);
-	    } else if ((*ccc->gamutCompProc)(ccc, pXcmsColors_in_out, nColors,
-		    i, pCompressed) == 0) {
-		return(XcmsFailure);
-	    }
-
-	    /*
-	     * The gamut compression function should return colors in CIEXYZ
-	     *	Also check again to if the new color is within gamut.
-	     */
-	    if (pColor->format != XcmsCIEXYZFormat) {
-		return(XcmsFailure);
-	    }
-	    _XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,
-		    (XcmsFloat *) &pColor->spec, tmp);
-	    if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||
-		(MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {
-		return(XcmsFailure);
-	    }
-	    hasCompressed++;
-	}
-	memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));
-	/* These if statements are done to ensure the fudge factor is */
-	/* is taken into account. */
-	if (pColor->spec.RGBi.red < 0.0) {
-		pColor->spec.RGBi.red = 0.0;
-	} else if (pColor->spec.RGBi.red > 1.0) {
-		pColor->spec.RGBi.red = 1.0;
-	}
-	if (pColor->spec.RGBi.green < 0.0) {
-		pColor->spec.RGBi.green = 0.0;
-	} else if (pColor->spec.RGBi.green > 1.0) {
-		pColor->spec.RGBi.green = 1.0;
-	}
-	if (pColor->spec.RGBi.blue < 0.0) {
-		pColor->spec.RGBi.blue = 0.0;
-	} else if (pColor->spec.RGBi.blue > 1.0) {
-		pColor->spec.RGBi.blue = 1.0;
-	}
-	(pColor++)->format = XcmsRGBiFormat;
-    }
-    return (hasCompressed ? XcmsSuccessWithCompression : XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		LINEAR_RGBi_to_CIEXYZ - convert RGBi to CIEXYZ
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBiToCIEXYZ(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGBi format to CIEXYZ format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsFloat tmp[3];
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    /*
-     * XcmsColors should be White Point Adjusted, if necessary, by now!
-     */
-
-    while (nColors--) {
-
-	/* Multiply [A]-1 * [XYZ] to get RGB intensity */
-	_XcmsMatVec((XcmsFloat *) pScreenData->RGBtoXYZmatrix,
-		(XcmsFloat *) &pXcmsColors_in_out->spec, tmp);
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)tmp, sizeof(tmp));
-	(pXcmsColors_in_out++)->format = XcmsCIEXYZFormat;
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsRGBiToRGB
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBiToRGB(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGBi format to RGB format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded without gamut compression.
- *		XcmsSuccessWithCompression if succeeded with gamut
- *			compression.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsRGB tmpRGB;
-    IntensityRec keyIRec, answerIRec;
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    while (nColors--) {
-
-	/* Make sure format is XcmsRGBiFormat */
-	if (pXcmsColors_in_out->format != XcmsRGBiFormat) {
-	    return(XcmsFailure);
-	}
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.red;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pRedTbl->pBase,
-		(unsigned)pScreenData->pRedTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.red = answerIRec.value;
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.green;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pGreenTbl->pBase,
-		(unsigned)pScreenData->pGreenTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.green = answerIRec.value;
-
-	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.blue;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pBlueTbl->pBase,
-		(unsigned)pScreenData->pBlueTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGB.blue = answerIRec.value;
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGB, sizeof(XcmsRGB));
-	(pXcmsColors_in_out++)->format = XcmsRGBFormat;
-    }
-    return(XcmsSuccess);
-}
-
-
-/*
- *	NAME
- *		XcmsRGBToRGBi
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-Status
-XcmsRGBToRGBi(
-    XcmsCCC ccc,
-    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/
-    unsigned int nColors,	/* Number of colors			*/
-    Bool *pCompressed)		/* pointer to a bit array		*/
-/*
- *	DESCRIPTION
- *		Converts color specifications in an array of XcmsColor
- *		structures from RGB format to RGBi format.
- *
- *	RETURNS
- *		XcmsFailure if failed,
- *		XcmsSuccess if succeeded.
- */
-{
-    LINEAR_RGB_SCCData *pScreenData;
-    XcmsRGBi tmpRGBi;
-    IntensityRec keyIRec, answerIRec;
-
-    /*
-     * pCompressed ignored in this function.
-     */
-
-    if (ccc == NULL) {
-	return(XcmsFailure);
-    }
-
-    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;
-
-    while (nColors--) {
-
-	/* Make sure format is XcmsRGBFormat */
-	if (pXcmsColors_in_out->format != XcmsRGBFormat) {
-	    return(XcmsFailure);
-	}
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.red;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pRedTbl->pBase,
-		(unsigned)pScreenData->pRedTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.red = answerIRec.intensity;
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.green;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pGreenTbl->pBase,
-		(unsigned)pScreenData->pGreenTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.green = answerIRec.intensity;
-
-	keyIRec.value = pXcmsColors_in_out->spec.RGB.blue;
-	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,
-		(char *)pScreenData->pBlueTbl->pBase,
-		(unsigned)pScreenData->pBlueTbl->nEntries,
-		(unsigned)sizeof(IntensityRec),
-		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {
-	    return(XcmsFailure);
-	}
-	tmpRGBi.blue = answerIRec.intensity;
-
-	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGBi, sizeof(XcmsRGBi));
-	(pXcmsColors_in_out++)->format = XcmsRGBiFormat;
-    }
-    return(XcmsSuccess);
-}
-
-/*
- *	NAME
- *		_XcmsInitScrnDefaultInfo
- *
- *	SYNOPSIS
- */
-/* ARGSUSED */
-int
-_XcmsLRGB_InitScrnDefault(
-    Display *dpy,
-    int screenNumber,
-    XcmsPerScrnInfo *pPerScrnInfo)
-/*
- *	DESCRIPTION
- *		Given a display and screen number, this routine attempts
- *		to initialize the Xcms per Screen Info structure
- *		(XcmsPerScrnInfo) with defaults.
- *
- *	RETURNS
- *		Returns zero if initialization failed; non-zero otherwise.
- */
-{
-    pPerScrnInfo->screenData = (XPointer)&Default_RGB_SCCData;
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[0][2];
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[1][2];
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][0] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][1] +
-		Default_RGB_SCCData.RGBtoXYZmatrix[2][2];
-    if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )
-	    || (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {
-	pPerScrnInfo->screenData = (XPointer)NULL;
-	pPerScrnInfo->state = XcmsInitNone;
-	return(0);
-    }
-    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;
-    pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;
-    pPerScrnInfo->screenWhitePt.pixel = 0;
-    pPerScrnInfo->functionSet = (XPointer)&XcmsLinearRGBFunctionSet;
-    pPerScrnInfo->state = XcmsInitFailure; /* default initialization */
-    return(1);
-}
+

+/*

+ * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.

+ * 	All Rights Reserved

+ *

+ * This file is a component of an X Window System-specific implementation

+ * of Xcms based on the TekColor Color Management System.  Permission is

+ * hereby granted to use, copy, modify, sell, and otherwise distribute this

+ * software and its documentation for any purpose and without fee, provided

+ * that this copyright, permission, and disclaimer notice is reproduced in

+ * all copies of this software and in supporting documentation.  TekColor

+ * is a trademark of Tektronix, Inc.

+ *

+ * Tektronix makes no representation about the suitability of this software

+ * for any purpose.  It is provided "as is" and with all faults.

+ *

+ * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,

+ * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A

+ * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY

+ * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER

+ * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF

+ * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN

+ * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.

+ *

+ *

+ *	NAME

+ *		XcmsLRGB.c

+ *

+ *	DESCRIPTION

+ *		This file contains the conversion routines:

+ *		    1. CIE XYZ to RGB intensity

+ *		    2. RGB intensity to device RGB

+ *		    3. device RGB to RGB intensity

+ *		    4. RGB intensity to CIE XYZ

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <X11/Xos.h>

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xcmsint.h"

+#include "Cv.h"

+

+/*

+ *      LOCAL DEFINES

+ *		#define declarations local to this package.

+ */

+#define EPS	0.001

+#ifndef MIN

+#define MIN(x,y) ((x) > (y) ? (y) : (x))

+#endif /* MIN */

+#ifndef MAX

+#define MAX(x,y) ((x) > (y) ? (x) : (y))

+#endif /* MAX */

+#ifndef MIN3

+#define MIN3(x,y,z) ((x) > (MIN((y), (z))) ? (MIN((y), (z))) : (x))

+#endif /* MIN3 */

+#ifndef MAX3

+#define MAX3(x,y,z) ((x) > (MAX((y), (z))) ? (x) : (MAX((y), (z))))

+#endif /* MAX3 */

+

+/*

+ *      LOCAL TYPEDEFS

+ *              typedefs local to this package (for use with local vars).

+ *

+ */

+

+/*

+ *      FORWARD DECLARATIONS

+ */

+static void LINEAR_RGB_FreeSCCData(XPointer pScreenDataTemp);

+static int LINEAR_RGB_InitSCCData(Display *dpy,

+    int screenNumber, XcmsPerScrnInfo *pPerScrnInfo);

+static int XcmsLRGB_RGB_ParseString(register char *spec, XcmsColor *pColor);

+static int XcmsLRGB_RGBi_ParseString(register char *spec, XcmsColor *pColor);

+static Status

+_XcmsGetTableType0(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount);

+static Status

+_XcmsGetTableType1(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount);

+

+/*

+ *      LOCALS VARIABLES

+ *		Variables local to this package.

+ *		    Usage example:

+ *		        static int	ExampleLocalVar;

+ */

+

+static unsigned short const MASK[17] = {

+    0x0000,	/*  0 bitsPerRGB */

+    0x8000,	/*  1 bitsPerRGB */

+    0xc000,	/*  2 bitsPerRGB */

+    0xe000,	/*  3 bitsPerRGB */

+    0xf000,	/*  4 bitsPerRGB */

+    0xf800,	/*  5 bitsPerRGB */

+    0xfc00,	/*  6 bitsPerRGB */

+    0xfe00,	/*  7 bitsPerRGB */

+    0xff00,	/*  8 bitsPerRGB */

+    0xff80,	/*  9 bitsPerRGB */

+    0xffc0,	/* 10 bitsPerRGB */

+    0xffe0,	/* 11 bitsPerRGB */

+    0xfff0,	/* 12 bitsPerRGB */

+    0xfff8,	/* 13 bitsPerRGB */

+    0xfffc,	/* 14 bitsPerRGB */

+    0xfffe,	/* 15 bitsPerRGB */

+    0xffff	/* 16 bitsPerRGB */

+};

+

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsRGBFormat

+     * to XcmsCIEXYZFormat.

+     */

+static XcmsConversionProc Fl_RGB_to_CIEXYZ[] = {

+    (XcmsConversionProc)XcmsRGBToRGBi,

+    (XcmsConversionProc)XcmsRGBiToCIEXYZ,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat

+     * to XcmsRGBFormat.

+     */

+static XcmsConversionProc Fl_CIEXYZ_to_RGB[] = {

+    (XcmsConversionProc)XcmsCIEXYZToRGBi,

+    (XcmsConversionProc)XcmsRGBiToRGB,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsRGBiFormat

+     * to XcmsCIEXYZFormat.

+     */

+static XcmsConversionProc Fl_RGBi_to_CIEXYZ[] = {

+    (XcmsConversionProc)XcmsRGBiToCIEXYZ,

+    NULL

+};

+

+    /*

+     * A NULL terminated array of function pointers that when applied

+     * in series will convert an XcmsColor structure from XcmsCIEXYZFormat

+     * to XcmsRGBiFormat.

+     */

+static XcmsConversionProc Fl_CIEXYZ_to_RGBi[] = {

+    (XcmsConversionProc)XcmsCIEXYZToRGBi,

+    NULL

+};

+

+    /*

+     * RGBi Color Spaces

+     */

+XcmsColorSpace	XcmsRGBiColorSpace =

+    {

+	_XcmsRGBi_prefix,	/* prefix */

+	XcmsRGBiFormat,		/* id */

+	XcmsLRGB_RGBi_ParseString,	/* parseString */

+	Fl_RGBi_to_CIEXYZ,	/* to_CIEXYZ */

+	Fl_CIEXYZ_to_RGBi,	/* from_CIEXYZ */

+	1

+    };

+

+    /*

+     * RGB Color Spaces

+     */

+XcmsColorSpace	XcmsRGBColorSpace =

+    {

+	_XcmsRGB_prefix,		/* prefix */

+	XcmsRGBFormat,		/* id */

+	XcmsLRGB_RGB_ParseString,	/* parseString */

+	Fl_RGB_to_CIEXYZ,	/* to_CIEXYZ */

+	Fl_CIEXYZ_to_RGB,	/* from_CIEXYZ */

+	1

+    };

+

+    /*

+     * Device-Independent Color Spaces known to the

+     * LINEAR_RGB Screen Color Characteristics Function Set.

+     */

+static XcmsColorSpace	*DDColorSpaces[] = {

+    &XcmsRGBColorSpace,

+    &XcmsRGBiColorSpace,

+    NULL

+};

+

+

+/*

+ *      GLOBALS

+ *              Variables declared in this package that are allowed

+ *		to be used globally.

+ */

+

+    /*

+     * LINEAR_RGB Screen Color Characteristics Function Set.

+     */

+XcmsFunctionSet	XcmsLinearRGBFunctionSet =

+    {

+	&DDColorSpaces[0],	/* pDDColorSpaces */

+	LINEAR_RGB_InitSCCData,	/* pInitScrnFunc */

+	LINEAR_RGB_FreeSCCData	/* pFreeSCCData */

+    };

+

+/*

+ *	DESCRIPTION

+ *		Contents of Default SCCData should be replaced if other

+ *		data should be used as default.

+ *

+ *

+ */

+

+/*

+ * NAME		Tektronix 19" (Sony) CRT

+ * PART_NUMBER		119-2451-00

+ * MODEL		Tek4300, Tek4800

+ */

+

+static IntensityRec const Default_RGB_RedTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x0909,    0.000000 },

+            { 0x0a0a,    0.000936 },

+            { 0x0f0f,    0.001481 },

+            { 0x1414,    0.002329 },

+            { 0x1919,    0.003529 },

+            { 0x1e1e,    0.005127 },

+            { 0x2323,    0.007169 },

+            { 0x2828,    0.009699 },

+            { 0x2d2d,    0.012759 },

+            { 0x3232,    0.016392 },

+            { 0x3737,    0.020637 },

+            { 0x3c3c,    0.025533 },

+            { 0x4141,    0.031119 },

+            { 0x4646,    0.037431 },

+            { 0x4b4b,    0.044504 },

+            { 0x5050,    0.052373 },

+            { 0x5555,    0.061069 },

+            { 0x5a5a,    0.070624 },

+            { 0x5f5f,    0.081070 },

+            { 0x6464,    0.092433 },

+            { 0x6969,    0.104744 },

+            { 0x6e6e,    0.118026 },

+            { 0x7373,    0.132307 },

+            { 0x7878,    0.147610 },

+            { 0x7d7d,    0.163958 },

+            { 0x8282,    0.181371 },

+            { 0x8787,    0.199871 },

+            { 0x8c8c,    0.219475 },

+            { 0x9191,    0.240202 },

+            { 0x9696,    0.262069 },

+            { 0x9b9b,    0.285089 },

+            { 0xa0a0,    0.309278 },

+            { 0xa5a5,    0.334647 },

+            { 0xaaaa,    0.361208 },

+            { 0xafaf,    0.388971 },

+            { 0xb4b4,    0.417945 },

+            { 0xb9b9,    0.448138 },

+            { 0xbebe,    0.479555 },

+            { 0xc3c3,    0.512202 },

+            { 0xc8c8,    0.546082 },

+            { 0xcdcd,    0.581199 },

+            { 0xd2d2,    0.617552 },

+            { 0xd7d7,    0.655144 },

+            { 0xdcdc,    0.693971 },

+            { 0xe1e1,    0.734031 },

+            { 0xe6e6,    0.775322 },

+            { 0xebeb,    0.817837 },

+            { 0xf0f0,    0.861571 },

+            { 0xf5f5,    0.906515 },

+            { 0xfafa,    0.952662 },

+            { 0xffff,    1.000000 }

+};

+

+static IntensityRec const Default_RGB_GreenTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x1313,    0.000000 },

+            { 0x1414,    0.000832 },

+            { 0x1919,    0.001998 },

+            { 0x1e1e,    0.003612 },

+            { 0x2323,    0.005736 },

+            { 0x2828,    0.008428 },

+            { 0x2d2d,    0.011745 },

+            { 0x3232,    0.015740 },

+            { 0x3737,    0.020463 },

+            { 0x3c3c,    0.025960 },

+            { 0x4141,    0.032275 },

+            { 0x4646,    0.039449 },

+            { 0x4b4b,    0.047519 },

+            { 0x5050,    0.056520 },

+            { 0x5555,    0.066484 },

+            { 0x5a5a,    0.077439 },

+            { 0x5f5f,    0.089409 },

+            { 0x6464,    0.102418 },

+            { 0x6969,    0.116485 },

+            { 0x6e6e,    0.131625 },

+            { 0x7373,    0.147853 },

+            { 0x7878,    0.165176 },

+            { 0x7d7d,    0.183604 },

+            { 0x8282,    0.203140 },

+            { 0x8787,    0.223783 },

+            { 0x8c8c,    0.245533 },

+            { 0x9191,    0.268384 },

+            { 0x9696,    0.292327 },

+            { 0x9b9b,    0.317351 },

+            { 0xa0a0,    0.343441 },

+            { 0xa5a5,    0.370580 },

+            { 0xaaaa,    0.398747 },

+            { 0xafaf,    0.427919 },

+            { 0xb4b4,    0.458068 },

+            { 0xb9b9,    0.489165 },

+            { 0xbebe,    0.521176 },

+            { 0xc3c3,    0.554067 },

+            { 0xc8c8,    0.587797 },

+            { 0xcdcd,    0.622324 },

+            { 0xd2d2,    0.657604 },

+            { 0xd7d7,    0.693588 },

+            { 0xdcdc,    0.730225 },

+            { 0xe1e1,    0.767459 },

+            { 0xe6e6,    0.805235 },

+            { 0xebeb,    0.843491 },

+            { 0xf0f0,    0.882164 },

+            { 0xf5f5,    0.921187 },

+            { 0xfafa,    0.960490 },

+            { 0xffff,    1.000000 }

+};

+

+static IntensityRec const Default_RGB_BlueTuples[] = {

+    /* {unsigned short value, XcmsFloat intensity} */

+            { 0x0000,    0.000000 },

+            { 0x0e0e,    0.000000 },

+            { 0x0f0f,    0.001341 },

+            { 0x1414,    0.002080 },

+            { 0x1919,    0.003188 },

+            { 0x1e1e,    0.004729 },

+            { 0x2323,    0.006766 },

+            { 0x2828,    0.009357 },

+            { 0x2d2d,    0.012559 },

+            { 0x3232,    0.016424 },

+            { 0x3737,    0.021004 },

+            { 0x3c3c,    0.026344 },

+            { 0x4141,    0.032489 },

+            { 0x4646,    0.039481 },

+            { 0x4b4b,    0.047357 },

+            { 0x5050,    0.056154 },

+            { 0x5555,    0.065903 },

+            { 0x5a5a,    0.076634 },

+            { 0x5f5f,    0.088373 },

+            { 0x6464,    0.101145 },

+            { 0x6969,    0.114968 },

+            { 0x6e6e,    0.129862 },

+            { 0x7373,    0.145841 },

+            { 0x7878,    0.162915 },

+            { 0x7d7d,    0.181095 },

+            { 0x8282,    0.200386 },

+            { 0x8787,    0.220791 },

+            { 0x8c8c,    0.242309 },

+            { 0x9191,    0.264937 },

+            { 0x9696,    0.288670 },

+            { 0x9b9b,    0.313499 },

+            { 0xa0a0,    0.339410 },

+            { 0xa5a5,    0.366390 },

+            { 0xaaaa,    0.394421 },

+            { 0xafaf,    0.423481 },

+            { 0xb4b4,    0.453547 },

+            { 0xb9b9,    0.484592 },

+            { 0xbebe,    0.516587 },

+            { 0xc3c3,    0.549498 },

+            { 0xc8c8,    0.583291 },

+            { 0xcdcd,    0.617925 },

+            { 0xd2d2,    0.653361 },

+            { 0xd7d7,    0.689553 },

+            { 0xdcdc,    0.726454 },

+            { 0xe1e1,    0.764013 },

+            { 0xe6e6,    0.802178 },

+            { 0xebeb,    0.840891 },

+            { 0xf0f0,    0.880093 },

+            { 0xf5f5,    0.919723 },

+            { 0xfafa,    0.959715 },

+	    { 0xffff,    1.00000 }

+};

+

+static IntensityTbl Default_RGB_RedTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *) Default_RGB_RedTuples,

+    /* unsigned int nEntries */

+	52

+};

+

+static IntensityTbl Default_RGB_GreenTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *)Default_RGB_GreenTuples,

+    /* unsigned int nEntries */

+	50

+};

+

+static IntensityTbl Default_RGB_BlueTbl = {

+    /* IntensityRec *pBase */

+	(IntensityRec *)Default_RGB_BlueTuples,

+    /* unsigned int nEntries */

+	51

+};

+

+static LINEAR_RGB_SCCData Default_RGB_SCCData = {

+    /* XcmsFloat XYZtoRGBmatrix[3][3] */

+  {

+    { 3.48340481253539000, -1.52176374927285200, -0.55923133354049780 },

+    {-1.07152751306193600,  1.96593795204372400,  0.03673691339553462 },

+    { 0.06351179790497788, -0.20020501000496480,  0.81070942031648220 }

+  },

+

+    /* XcmsFloat RGBtoXYZmatrix[3][3] */

+  {

+    { 0.38106149108714790, 0.32025712365352110, 0.24834578525933100 },

+    { 0.20729745115140850, 0.68054638776373240, 0.11215616108485920 },

+    { 0.02133944350088028, 0.14297193020246480, 1.24172892629665500 }

+  },

+

+    /* IntensityTbl *pRedTbl */

+	&Default_RGB_RedTbl,

+

+    /* IntensityTbl *pGreenTbl */

+	&Default_RGB_GreenTbl,

+

+    /* IntensityTbl *pBlueTbl */

+	&Default_RGB_BlueTbl

+};

+

+/************************************************************************

+ *									*

+ *			PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+/*

+ *	NAME

+ *		LINEAR_RGB_InitSCCData()

+ *

+ *	SYNOPSIS

+ */

+static Status

+LINEAR_RGB_InitSCCData(

+    Display *dpy,

+    int screenNumber,

+    XcmsPerScrnInfo *pPerScrnInfo)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    Atom  CorrectAtom = XInternAtom (dpy, XDCCC_CORRECT_ATOM_NAME, True);

+    Atom  MatrixAtom  = XInternAtom (dpy, XDCCC_MATRIX_ATOM_NAME, True);

+    int	  format_return, count, cType, nTables;

+    unsigned long nitems, nbytes_return;

+    char *property_return, *pChar;

+    XcmsFloat *pValue;

+#ifdef ALLDEBUG

+    IntensityRec *pIRec;

+#endif /* ALLDEBUG */

+    VisualID visualID;

+

+    LINEAR_RGB_SCCData *pScreenData, *pScreenDefaultData;

+    XcmsIntensityMap *pNewMap;

+

+    /*

+     * Allocate memory for pScreenData

+     */

+    if (!(pScreenData = pScreenDefaultData = (LINEAR_RGB_SCCData *)

+		      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {

+	return(XcmsFailure);

+    }

+

+    /*

+     *  1. Get the XYZ->RGB and RGB->XYZ matrices

+     */

+

+    if (MatrixAtom == None ||

+	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), MatrixAtom,

+	   &format_return, &nitems, &nbytes_return, &property_return) ||

+	   nitems != 18 || format_return != 32) {

+	/*

+	 * As per the XDCCC, there must be 18 data items and each must be

+	 * in 32 bits !

+	 */

+	goto FreeSCCData;

+

+    } else {

+

+	/*

+	 * RGBtoXYZ and XYZtoRGB matrices

+	 */

+	pValue = (XcmsFloat *) pScreenData;

+	pChar = property_return;

+	for (count = 0; count < 18; count++) {

+	    *pValue++ = (long)_XcmsGetElement(format_return, &pChar,

+		    &nitems) / (XcmsFloat)XDCCC_NUMBER;

+	}

+	Xfree ((char *)property_return);

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =

+		pScreenData->RGBtoXYZmatrix[0][0] +

+		pScreenData->RGBtoXYZmatrix[0][1] +

+		pScreenData->RGBtoXYZmatrix[0][2];

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =

+		pScreenData->RGBtoXYZmatrix[1][0] +

+		pScreenData->RGBtoXYZmatrix[1][1] +

+		pScreenData->RGBtoXYZmatrix[1][2];

+	pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =

+		pScreenData->RGBtoXYZmatrix[2][0] +

+		pScreenData->RGBtoXYZmatrix[2][1] +

+		pScreenData->RGBtoXYZmatrix[2][2];

+

+	/*

+	 * Compute the Screen White Point

+	 */

+	if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )

+		|| (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {

+	    goto FreeSCCData;

+	} else {

+	    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;

+	}

+	pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;

+	pPerScrnInfo->screenWhitePt.pixel = 0;

+

+#ifdef PDEBUG

+	printf ("RGB to XYZ Matrix values:\n");

+	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",

+		pScreenData->RGBtoXYZmatrix[0][0],

+		pScreenData->RGBtoXYZmatrix[0][1],

+		pScreenData->RGBtoXYZmatrix[0][2],

+		pScreenData->RGBtoXYZmatrix[1][0],

+		pScreenData->RGBtoXYZmatrix[1][1],

+		pScreenData->RGBtoXYZmatrix[1][2],

+		pScreenData->RGBtoXYZmatrix[2][0],

+		pScreenData->RGBtoXYZmatrix[2][1],

+		pScreenData->RGBtoXYZmatrix[2][2]);

+	printf ("XYZ to RGB Matrix values:\n");

+	printf ("       %f %f %f\n       %f %f %f\n       %f %f %f\n",

+		pScreenData->XYZtoRGBmatrix[0][0],

+		pScreenData->XYZtoRGBmatrix[0][1],

+		pScreenData->XYZtoRGBmatrix[0][2],

+		pScreenData->XYZtoRGBmatrix[1][0],

+		pScreenData->XYZtoRGBmatrix[1][1],

+		pScreenData->XYZtoRGBmatrix[1][2],

+		pScreenData->XYZtoRGBmatrix[2][0],

+		pScreenData->XYZtoRGBmatrix[2][1],

+		pScreenData->XYZtoRGBmatrix[2][2]);

+	printf ("Screen White Pt value: %f %f %f\n",

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X,

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y,

+		pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z);

+#endif /* PDEBUG */

+    }

+

+    /*

+     *	2. Get the Intensity Profile

+     */

+    if (CorrectAtom == None ||

+	!_XcmsGetProperty (dpy, RootWindow(dpy, screenNumber), CorrectAtom,

+	   &format_return, &nitems, &nbytes_return, &property_return)) {

+	goto FreeSCCData;

+    }

+

+    pChar = property_return;

+

+    while (nitems) {

+	switch (format_return) {

+	  case 8:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		VisualID1

+	     *		VisualID2

+	     *		VisualID3

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 9) {

+		goto Free_property_return;

+	    }

+	    count = 3;

+	    break;

+	  case 16:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		VisualID3

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 7) {

+		goto Free_property_return;

+	    }

+	    count = 1;

+	    break;

+	  case 32:

+	    /*

+	     * Must have at least:

+	     *		VisualID0

+	     *		type

+	     *		count

+	     *		length

+	     *		intensity1

+	     *		intensity2

+	     */

+	    if (nitems < 6) {

+		goto Free_property_return;

+	    }

+	    count = 0;

+	    break;

+	  default:

+	    goto Free_property_return;

+	}

+

+	/*

+	 * Get VisualID

+	 */

+	visualID = _XcmsGetElement(format_return, &pChar, &nitems);

+	while (count--) {

+	    visualID = visualID << format_return;

+	    visualID |= _XcmsGetElement(format_return, &pChar, &nitems);

+	}

+

+	if (visualID == 0) {

+	    /*

+	     * This is a shared intensity table

+	     */

+	    pScreenData = pScreenDefaultData;

+	} else {

+	    /*

+	     * This is a per-Visual intensity table

+	     */

+	    if (!(pScreenData = (LINEAR_RGB_SCCData *)

+			      Xcalloc (1, sizeof(LINEAR_RGB_SCCData)))) {

+		goto Free_property_return;

+	    }

+	    /* copy matrices */

+	    memcpy((char *)pScreenData, (char *)pScreenDefaultData,

+		   18 * sizeof(XcmsFloat));

+

+	    /* Create, initialize, and add map */

+	    if (!(pNewMap = (XcmsIntensityMap *)

+			      Xcalloc (1, sizeof(XcmsIntensityMap)))) {

+		Xfree((char *)pScreenData);

+		goto Free_property_return;

+	    }

+	    pNewMap->visualID = visualID;

+	    pNewMap->screenData = (XPointer)pScreenData;

+	    pNewMap->pFreeScreenData = LINEAR_RGB_FreeSCCData;

+	    pNewMap->pNext =

+		    (XcmsIntensityMap *)dpy->cms.perVisualIntensityMaps;

+	    dpy->cms.perVisualIntensityMaps = (XPointer)pNewMap;

+	    dpy->free_funcs->intensityMaps = _XcmsFreeIntensityMaps;

+	}

+

+	cType = _XcmsGetElement(format_return, &pChar, &nitems);

+	nTables = _XcmsGetElement(format_return, &pChar, &nitems);

+

+	if (cType == 0) {

+

+	    /* Red Intensity Table */

+	    if (!(pScreenData->pRedTbl = (IntensityTbl *)

+		    Xcalloc (1, sizeof(IntensityTbl)))) {

+		goto Free_property_return;

+	    }

+	    if (_XcmsGetTableType0(pScreenData->pRedTbl, format_return, &pChar,

+		    &nitems) == XcmsFailure) {

+		goto FreeRedTbl;

+	    }

+

+	    if (nTables == 1) {

+		/* Green Intensity Table */

+		pScreenData->pGreenTbl = pScreenData->pRedTbl;

+		/* Blue Intensity Table */

+		pScreenData->pBlueTbl = pScreenData->pRedTbl;

+	    } else {

+		/* Green Intensity Table */

+		if (!(pScreenData->pGreenTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeRedTblElements;

+		}

+		if (_XcmsGetTableType0(pScreenData->pGreenTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeGreenTbl;

+		}

+

+		/* Blue Intensity Table */

+		if (!(pScreenData->pBlueTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeGreenTblElements;

+		}

+		if (_XcmsGetTableType0(pScreenData->pBlueTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeBlueTbl;

+		}

+	    }

+	} else if (cType == 1) {

+	    /* Red Intensity Table */

+	    if (!(pScreenData->pRedTbl = (IntensityTbl *)

+		    Xcalloc (1, sizeof(IntensityTbl)))) {

+		goto Free_property_return;

+	    }

+	    if (_XcmsGetTableType1(pScreenData->pRedTbl, format_return, &pChar,

+		    &nitems) == XcmsFailure) {

+		goto FreeRedTbl;

+	    }

+

+	    if (nTables == 1) {

+

+		/* Green Intensity Table */

+		pScreenData->pGreenTbl = pScreenData->pRedTbl;

+		/* Blue Intensity Table */

+		pScreenData->pBlueTbl = pScreenData->pRedTbl;

+

+	    } else {

+

+		/* Green Intensity Table */

+		if (!(pScreenData->pGreenTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeRedTblElements;

+		}

+		if (_XcmsGetTableType1(pScreenData->pGreenTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeGreenTbl;

+		}

+

+		/* Blue Intensity Table */

+		if (!(pScreenData->pBlueTbl = (IntensityTbl *)

+			Xcalloc (1, sizeof(IntensityTbl)))) {

+		    goto FreeGreenTblElements;

+		}

+		if (_XcmsGetTableType1(pScreenData->pBlueTbl, format_return, &pChar,

+			&nitems) == XcmsFailure) {

+		    goto FreeBlueTbl;

+		}

+	    }

+	} else {

+	    goto Free_property_return;

+	}

+

+#ifdef ALLDEBUG

+	printf ("Intensity Table  RED    %d\n", pScreenData->pRedTbl->nEntries);

+	pIRec = (IntensityRec *) pScreenData->pRedTbl->pBase;

+	for (count = 0; count < pScreenData->pRedTbl->nEntries; count++, pIRec++) {

+	    printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	}

+	if (pScreenData->pGreenTbl->pBase != pScreenData->pRedTbl->pBase) {

+	    printf ("Intensity Table  GREEN  %d\n", pScreenData->pGreenTbl->nEntries);

+	    pIRec = (IntensityRec *)pScreenData->pGreenTbl->pBase;

+	    for (count = 0; count < pScreenData->pGreenTbl->nEntries; count++, pIRec++) {

+		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	    }

+	}

+	if (pScreenData->pBlueTbl->pBase != pScreenData->pRedTbl->pBase) {

+	    printf ("Intensity Table  BLUE   %d\n", pScreenData->pBlueTbl->nEntries);

+	    pIRec = (IntensityRec *) pScreenData->pBlueTbl->pBase;

+	    for (count = 0; count < pScreenData->pBlueTbl->nEntries; count++, pIRec++) {

+		printf ("\t0x%4x\t%f\n", pIRec->value, pIRec->intensity);

+	    }

+	}

+#endif /* ALLDEBUG */

+    }

+

+    Xfree ((char *)property_return);

+

+    /* Free the old memory and use the new structure created. */

+    LINEAR_RGB_FreeSCCData(pPerScrnInfo->screenData);

+

+    pPerScrnInfo->functionSet = (XPointer) &XcmsLinearRGBFunctionSet;

+

+    pPerScrnInfo->screenData = (XPointer) pScreenData;

+

+    pPerScrnInfo->state = XcmsInitSuccess;

+

+    return(XcmsSuccess);

+

+FreeBlueTblElements:

+    Xfree((char *)pScreenData->pBlueTbl->pBase);

+

+FreeBlueTbl:

+    Xfree((char *)pScreenData->pBlueTbl);

+

+FreeGreenTblElements:

+    Xfree((char *)pScreenData->pGreenTbl->pBase);

+

+FreeGreenTbl:

+    Xfree((char *)pScreenData->pGreenTbl);

+

+FreeRedTblElements:

+    Xfree((char *)pScreenData->pRedTbl->pBase);

+

+FreeRedTbl:

+    Xfree((char *)pScreenData->pRedTbl);

+

+Free_property_return:

+    Xfree ((char *)property_return);

+

+FreeSCCData:

+    Xfree((char *)pScreenDefaultData);

+    pPerScrnInfo->state = XcmsInitNone;

+    return(XcmsFailure);

+}

+

+

+/*

+ *	NAME

+ *		LINEAR_RGB_FreeSCCData()

+ *

+ *	SYNOPSIS

+ */

+static void

+LINEAR_RGB_FreeSCCData(

+    XPointer pScreenDataTemp)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		0 if failed.

+ *		1 if succeeded with no modifications.

+ *

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData = (LINEAR_RGB_SCCData *) pScreenDataTemp;

+

+    if (pScreenData && pScreenData != &Default_RGB_SCCData) {

+	if (pScreenData->pRedTbl) {

+	    if (pScreenData->pGreenTbl) {

+		if (pScreenData->pRedTbl->pBase !=

+		    pScreenData->pGreenTbl->pBase) {

+		    if (pScreenData->pGreenTbl->pBase) {

+			Xfree ((char *)pScreenData->pGreenTbl->pBase);

+		    }

+		}

+		if (pScreenData->pGreenTbl != pScreenData->pRedTbl) {

+		    Xfree ((char *)pScreenData->pGreenTbl);

+		}

+	    }

+	    if (pScreenData->pBlueTbl) {

+		if (pScreenData->pRedTbl->pBase !=

+		    pScreenData->pBlueTbl->pBase) {

+		    if (pScreenData->pBlueTbl->pBase) {

+			Xfree ((char *)pScreenData->pBlueTbl->pBase);

+		    }

+		}

+		if (pScreenData->pBlueTbl != pScreenData->pRedTbl) {

+		    Xfree ((char *)pScreenData->pBlueTbl);

+		}

+	    }

+	    if (pScreenData->pRedTbl->pBase) {

+		Xfree ((char *)pScreenData->pRedTbl->pBase);

+	    }

+	    Xfree ((char *)pScreenData->pRedTbl);

+	}

+	Xfree ((char *)pScreenData);

+    }

+}

+

+

+

+/************************************************************************

+ *									*

+ *			API PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+/*

+ *	NAME

+ *		_XcmsGetTableType0

+ *

+ *	SYNOPSIS

+ */

+static Status

+_XcmsGetTableType0(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    unsigned int nElements;

+    IntensityRec *pIRec;

+

+    nElements = pTbl->nEntries =

+	    _XcmsGetElement(format, pChar, pCount) + 1;

+    if (!(pIRec = pTbl->pBase = (IntensityRec *)

+	  Xcalloc (nElements, sizeof(IntensityRec)))) {

+	return(XcmsFailure);

+    }

+

+    switch (format) {

+      case 8:

+	for (; nElements--; pIRec++) {

+	    /* 0xFFFF/0xFF = 0x101 */

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount) * 0x101;

+	    pIRec->intensity =

+		    _XcmsGetElement (format, pChar, pCount) / (XcmsFloat)255.0;

+	}

+	break;

+      case 16:

+	for (; nElements--; pIRec++) {

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount);

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)65535.0;

+	}

+	break;

+      case 32:

+	for (; nElements--; pIRec++) {

+	    pIRec->value = _XcmsGetElement (format, pChar, pCount);

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)4294967295.0;

+	}

+	break;

+      default:

+	return(XcmsFailure);

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		_XcmsGetTableType1

+ *

+ *	SYNOPSIS

+ */

+static Status

+_XcmsGetTableType1(

+    IntensityTbl *pTbl,

+    int	  format,

+    char **pChar,

+    unsigned long *pCount)

+/*

+ *	DESCRIPTION

+ *

+ *	RETURNS

+ *		XcmsFailure if failed.

+ *		XcmsSuccess if succeeded.

+ *

+ */

+{

+    int count;

+    unsigned int max_index;

+    IntensityRec *pIRec;

+

+    max_index = _XcmsGetElement(format, pChar, pCount);

+    pTbl->nEntries = max_index + 1;

+    if (!(pIRec = pTbl->pBase = (IntensityRec *)

+	  Xcalloc (max_index+1, sizeof(IntensityRec)))) {

+	return(XcmsFailure);

+    }

+

+    switch (format) {

+      case 8:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)255.0;

+	}

+	break;

+      case 16:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)65535.0;

+	}

+	break;

+      case 32:

+	for (count = 0; count < max_index+1; count++, pIRec++) {

+	    pIRec->value = (count * 65535) / max_index;

+	    pIRec->intensity = _XcmsGetElement (format, pChar, pCount)

+		    / (XcmsFloat)4294967295.0;

+	}

+	break;

+      default:

+	return(XcmsFailure);

+    }

+

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		ValueCmp

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsValueCmp(

+    IntensityRec *p1, IntensityRec *p2)

+/*

+ *	DESCRIPTION

+ *		Compares the value component of two IntensityRec

+ *		structures.

+ *

+ *	RETURNS

+ *		0 if p1->value is equal to p2->value

+ *		< 0 if p1->value is less than p2->value

+ *		> 0 if p1->value is greater than p2->value

+ *

+ */

+{

+    return (p1->value - p2->value);

+}

+

+

+/*

+ *	NAME

+ *		IntensityCmp

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsIntensityCmp(

+    IntensityRec *p1, IntensityRec *p2)

+/*

+ *	DESCRIPTION

+ *		Compares the intensity component of two IntensityRec

+ *		structures.

+ *

+ *	RETURNS

+ *		0 if equal;

+ *		< 0 if first precedes second

+ *		> 0 if first succeeds second

+ *

+ */

+{

+    if (p1->intensity < p2->intensity) {

+	return (-1);

+    }

+    if (p1->intensity > p2->intensity) {

+	return (XcmsSuccess);

+    }

+    return (XcmsFailure);

+}

+

+/*

+ *	NAME

+ *		ValueInterpolation

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+static int

+_XcmsValueInterpolation(

+    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,

+    int bitsPerRGB)

+/*

+ *	DESCRIPTION

+ *		Based on a given value, performs a linear interpolation

+ *		on the intensities between two IntensityRec structures.

+ *		Note that the bitsPerRGB parameter is ignored.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ */

+{

+    XcmsFloat ratio;

+

+    ratio = ((XcmsFloat)key->value - (XcmsFloat)lo->value) /

+	((XcmsFloat)hi->value - (XcmsFloat)lo->value);

+    answer->value = key->value;

+    answer->intensity = (hi->intensity - lo->intensity) * ratio;

+    answer->intensity += lo->intensity;

+    return (XcmsSuccess);

+}

+

+/*

+ *	NAME

+ *		IntensityInterpolation

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsIntensityInterpolation(

+    IntensityRec *key, IntensityRec *lo, IntensityRec *hi, IntensityRec *answer,

+    int bitsPerRGB)

+/*

+ *	DESCRIPTION

+ *		Based on a given intensity, performs a linear interpolation

+ *		on the values between two IntensityRec structures.

+ *		The bitsPerRGB parameter is necessary to perform rounding

+ *		to the correct number of significant bits.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ */

+{

+    XcmsFloat ratio;

+    long target, up, down;

+    int shift = 16 - bitsPerRGB;

+    int max_color = (1 << bitsPerRGB) - 1;

+

+    ratio = (key->intensity - lo->intensity) / (hi->intensity - lo->intensity);

+    answer->intensity = key->intensity;

+    target = hi->value - lo->value;

+    target *= ratio;

+    target += lo->value;

+

+    /*

+     * Ok now, lets find the closest in respects to bits per RGB

+     */

+    up = ((target >> shift) * 0xFFFF) / max_color;

+    if (up < target) {

+	down = up;

+	up = (MIN((down >> shift) + 1, max_color) * 0xFFFF) / max_color;

+    } else {

+	down = (MAX((up >> shift) - 1, 0) * 0xFFFF) / max_color;

+    }

+    answer->value = ((up - target) < (target - down) ? up : down);

+    answer->value &= MASK[bitsPerRGB];

+    return (XcmsSuccess);

+}

+

+

+

+typedef int (*comparProcp)(

+    char *p1,

+    char *p2);

+typedef int (*interpolProcp)(

+    char *key,

+    char *lo,

+    char *hi,

+    char *answer,

+    int bitsPerRGB);

+

+/*

+ *	NAME

+ *		_XcmsTableSearch

+ *

+ *	SYNOPSIS

+ */

+static int

+_XcmsTableSearch(

+    char *key,

+    int bitsPerRGB,

+    char *base,

+    unsigned nel,

+    unsigned nKeyPtrSize,

+    int (*compar)(

+        char *p1,

+        char *p2),

+    int (*interpol)(

+        char *key,

+        char *lo,

+        char *hi,

+        char *answer,

+        int bitsPerRGB),

+    char *answer)

+

+/*

+ *	DESCRIPTION

+ *		A binary search through the specificied table.

+ *

+ *	RETURNS

+ *		Returns 0 if failed; otherwise non-zero.

+ *

+ */

+{

+    char *hi, *lo, *mid, *last;

+    int result;

+

+    last = hi = base + ((nel - 1) * nKeyPtrSize);

+    mid = lo = base;

+

+    /* use only the significants bits, then scale into 16 bits */

+    ((IntensityRec *)key)->value = ((unsigned long)

+	    (((IntensityRec *)key)->value >> (16 - bitsPerRGB)) * 0xFFFF)

+	    / ((1 << bitsPerRGB) - 1);

+

+    /* Special case so that zero intensity always maps to zero value */

+    if ((*compar) (key,lo) <= 0) {

+	memcpy (answer, lo, nKeyPtrSize);

+	((IntensityRec *)answer)->value &= MASK[bitsPerRGB];

+	return XcmsSuccess;

+    }

+    while (mid != last) {

+	last = mid;

+	mid = lo + (((unsigned)(hi - lo) / nKeyPtrSize) / 2) * nKeyPtrSize;

+	result = (*compar) (key, mid);

+	if (result == 0) {

+

+	    memcpy(answer, mid, nKeyPtrSize);

+	    ((IntensityRec *)answer)->value &= MASK[bitsPerRGB];

+	    return (XcmsSuccess);

+	} else if (result < 0) {

+	    hi = mid;

+	} else {

+	    lo = mid;

+	}

+    }

+

+    /*

+     * If we got to here, we didn't find a solution, so we

+     * need to apply interpolation.

+     */

+    return ((*interpol)(key, lo, hi, answer, bitsPerRGB));

+}

+

+

+/*

+ *      NAME

+ *		_XcmsMatVec - multiply a 3 x 3 by a 3 x 1 vector

+ *

+ *	SYNOPSIS

+ */

+static void _XcmsMatVec(

+    XcmsFloat *pMat, XcmsFloat *pIn, XcmsFloat *pOut)

+/*

+ *      DESCRIPTION

+ *		Multiply the passed vector by the passed matrix to return a

+ *		vector. Matrix is 3x3, vectors are of length 3.

+ *

+ *	RETURNS

+ *		void

+ */

+{

+    int i, j;

+

+    for (i = 0; i < 3; i++) {

+	pOut[i] = 0.0;

+	for (j = 0; j < 3; j++)

+	    pOut[i] += *(pMat+(i*3)+j) * pIn[j];

+    }

+}

+

+

+/************************************************************************

+ *									*

+ *			 PUBLIC ROUTINES				*

+ *									*

+ ************************************************************************/

+

+

+/*

+ *	NAME

+ *		XcmsLRGB_RGB_ParseString

+ *

+ *	SYNOPSIS

+ */

+static int

+XcmsLRGB_RGB_ParseString(

+    register char *spec,

+    XcmsColor *pColor)

+/*

+ *	DESCRIPTION

+ *		This routines takes a string and attempts to convert

+ *		it into a XcmsColor structure with XcmsRGBFormat.

+ *

+ *	RETURNS

+ *		0 if failed, non-zero otherwise.

+ */

+{

+    register int n, i;

+    unsigned short r, g, b;

+    char c;

+    char *pchar;

+    unsigned short *pShort;

+

+    /*

+     * Check for old # format

+     */

+    if (*spec == '#') {

+	/*

+	 * Attempt to parse the value portion.

+	 */

+	spec++;

+	n = strlen(spec);

+	if (n != 3 && n != 6 && n != 9 && n != 12) {

+	    return(XcmsFailure);

+	}

+

+	n /= 3;

+	g = b = 0;

+	do {

+	    r = g;

+	    g = b;

+	    b = 0;

+	    for (i = n; --i >= 0; ) {

+		c = *spec++;

+		b <<= 4;

+		if (c >= '0' && c <= '9')

+		    b |= c - '0';

+		/* assume string in lowercase

+		else if (c >= 'A' && c <= 'F')

+		    b |= c - ('A' - 10);

+		*/

+		else if (c >= 'a' && c <= 'f')

+		    b |= c - ('a' - 10);

+		else return (XcmsFailure);

+	    }

+	} while (*spec != '\0');

+

+	/*

+	 * Succeeded !

+	 */

+	n <<= 2;

+	n = 16 - n;

+	/* shift instead of scale, to match old broken semantics */

+	pColor->spec.RGB.red = r << n;

+	pColor->spec.RGB.green = g << n;

+	pColor->spec.RGB.blue =  b << n;

+    } else {

+	if ((pchar = strchr(spec, ':')) == NULL) {

+	    return(XcmsFailure);

+	}

+	n = (int)(pchar - spec);

+

+	/*

+	 * Check for proper prefix.

+	 */

+	if (strncmp(spec, _XcmsRGB_prefix, n) != 0) {

+	    return(XcmsFailure);

+	}

+

+	/*

+	 * Attempt to parse the value portion.

+	 */

+	spec += (n + 1);

+	pShort = &pColor->spec.RGB.red;

+	for (i = 0; i < 3; i++, pShort++, spec++) {

+	    n = 0;

+	    *pShort = 0;

+	    while (*spec != '/' && *spec != '\0') {

+		if (++n > 4) {

+		    return(XcmsFailure);

+		}

+		c = *spec++;

+		*pShort <<= 4;

+		if (c >= '0' && c <= '9')

+		    *pShort |= c - '0';

+		/* assume string in lowercase

+		else if (c >= 'A' && c <= 'F')

+		    *pShort |= c - ('A' - 10);

+		*/

+		else if (c >= 'a' && c <= 'f')

+		    *pShort |= c - ('a' - 10);

+		else return (XcmsFailure);

+	    }

+	    if (n == 0)

+		return (XcmsFailure);

+	    if (n < 4) {

+		*pShort = ((unsigned long)*pShort * 0xFFFF) / ((1 << n*4) - 1);

+	    }

+	}

+    }

+    pColor->format = XcmsRGBFormat;

+    pColor->pixel = 0;

+    return (XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsLRGB_RGBi_ParseString

+ *

+ *	SYNOPSIS

+ */

+static int

+XcmsLRGB_RGBi_ParseString(

+    register char *spec,

+    XcmsColor *pColor)

+/*

+ *	DESCRIPTION

+ *		This routines takes a string and attempts to convert

+ *		it into a XcmsColor structure with XcmsRGBiFormat.

+ *		The assumed RGBi string syntax is:

+ *		    RGBi:<r>/<g>/<b>

+ *		Where r, g, and b are in string input format for floats

+ *		consisting of:

+ *		    a. an optional sign

+ *		    b. a string of numbers possibly containing a decimal point,

+ *		    c. an optional exponent field containing an 'E' or 'e'

+ *			followed by a possibly signed integer string.

+ *

+ *	RETURNS

+ *		0 if failed, non-zero otherwise.

+ */

+{

+    int n;

+    char *pchar;

+

+    if ((pchar = strchr(spec, ':')) == NULL) {

+	return(XcmsFailure);

+    }

+    n = (int)(pchar - spec);

+

+    /*

+     * Check for proper prefix.

+     */

+    if (strncmp(spec, _XcmsRGBi_prefix, n) != 0) {

+	return(XcmsFailure);

+    }

+

+    /*

+     * Attempt to parse the value portion.

+     */

+    if (sscanf(spec + n + 1, "%lf/%lf/%lf",

+	    &pColor->spec.RGBi.red,

+	    &pColor->spec.RGBi.green,

+	    &pColor->spec.RGBi.blue) != 3) {

+        char *s; /* Maybe failed due to locale */

+        int f;

+        if ((s = strdup(spec))) {

+            for (f = 0; s[f]; ++f)

+                if (s[f] == '.')

+                    s[f] = ',';

+                else if (s[f] == ',')

+                    s[f] = '.';

+	    if (sscanf(s + n + 1, "%lf/%lf/%lf",

+		       &pColor->spec.RGBi.red,

+		       &pColor->spec.RGBi.green,

+		       &pColor->spec.RGBi.blue) != 3) {

+                free(s);

+                return(XcmsFailure);

+            }

+            free(s);

+        } else

+	    return(XcmsFailure);

+    }

+

+    /*

+     * Succeeded !

+     */

+    pColor->format = XcmsRGBiFormat;

+    pColor->pixel = 0;

+    return (XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsCIEXYZToRGBi - convert CIE XYZ to RGB

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsCIEXYZToRGBi(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to an array of Bool		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGB format to RGBi format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded without gamut compression.

+ *		XcmsSuccessWithCompression if succeeded with gamut

+ *			compression.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsFloat tmp[3];

+    int hasCompressed = 0;

+    unsigned int i;

+    XcmsColor *pColor = pXcmsColors_in_out;

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    /*

+     * XcmsColors should be White Point Adjusted, if necessary, by now!

+     */

+

+    /*

+     * NEW!!! for extended gamut compression

+     *

+     * 1. Need to zero out pCompressed

+     *

+     * 2. Need to save initial address of pColor

+     *

+     * 3. Need to save initial address of pCompressed

+     */

+

+    for (i = 0; i < nColors; i++) {

+

+	/* Make sure format is XcmsCIEXYZFormat */

+	if (pColor->format != XcmsCIEXYZFormat) {

+	    return(XcmsFailure);

+	}

+

+	/* Multiply [A]-1 * [XYZ] to get RGB intensity */

+	_XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,

+		(XcmsFloat *) &pColor->spec, tmp);

+

+	if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||

+	    (MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {

+

+	    /*

+	     * RGBi out of screen's gamut

+	     */

+

+	    if (ccc->gamutCompProc == NULL) {

+		/*

+		 * Aha!! Here's that little trick that will allow

+		 * gamut compression routines to get the out of bound

+		 * RGBi.

+		 */

+		memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));

+		pColor->format = XcmsRGBiFormat;

+		return(XcmsFailure);

+	    } else if ((*ccc->gamutCompProc)(ccc, pXcmsColors_in_out, nColors,

+		    i, pCompressed) == 0) {

+		return(XcmsFailure);

+	    }

+

+	    /*

+	     * The gamut compression function should return colors in CIEXYZ

+	     *	Also check again to if the new color is within gamut.

+	     */

+	    if (pColor->format != XcmsCIEXYZFormat) {

+		return(XcmsFailure);

+	    }

+	    _XcmsMatVec((XcmsFloat *) pScreenData->XYZtoRGBmatrix,

+		    (XcmsFloat *) &pColor->spec, tmp);

+	    if ((MIN3 (tmp[0], tmp[1], tmp[2]) < -EPS) ||

+		(MAX3 (tmp[0], tmp[1], tmp[2]) > (1.0 + EPS))) {

+		return(XcmsFailure);

+	    }

+	    hasCompressed++;

+	}

+	memcpy((char *)&pColor->spec, (char *)tmp, sizeof(tmp));

+	/* These if statements are done to ensure the fudge factor is */

+	/* is taken into account. */

+	if (pColor->spec.RGBi.red < 0.0) {

+		pColor->spec.RGBi.red = 0.0;

+	} else if (pColor->spec.RGBi.red > 1.0) {

+		pColor->spec.RGBi.red = 1.0;

+	}

+	if (pColor->spec.RGBi.green < 0.0) {

+		pColor->spec.RGBi.green = 0.0;

+	} else if (pColor->spec.RGBi.green > 1.0) {

+		pColor->spec.RGBi.green = 1.0;

+	}

+	if (pColor->spec.RGBi.blue < 0.0) {

+		pColor->spec.RGBi.blue = 0.0;

+	} else if (pColor->spec.RGBi.blue > 1.0) {

+		pColor->spec.RGBi.blue = 1.0;

+	}

+	(pColor++)->format = XcmsRGBiFormat;

+    }

+    return (hasCompressed ? XcmsSuccessWithCompression : XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		LINEAR_RGBi_to_CIEXYZ - convert RGBi to CIEXYZ

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBiToCIEXYZ(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGBi format to CIEXYZ format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsFloat tmp[3];

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    /*

+     * XcmsColors should be White Point Adjusted, if necessary, by now!

+     */

+

+    while (nColors--) {

+

+	/* Multiply [A]-1 * [XYZ] to get RGB intensity */

+	_XcmsMatVec((XcmsFloat *) pScreenData->RGBtoXYZmatrix,

+		(XcmsFloat *) &pXcmsColors_in_out->spec, tmp);

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)tmp, sizeof(tmp));

+	(pXcmsColors_in_out++)->format = XcmsCIEXYZFormat;

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsRGBiToRGB

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBiToRGB(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGBi format to RGB format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded without gamut compression.

+ *		XcmsSuccessWithCompression if succeeded with gamut

+ *			compression.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsRGB tmpRGB;

+    IntensityRec keyIRec, answerIRec;

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    while (nColors--) {

+

+	/* Make sure format is XcmsRGBiFormat */

+	if (pXcmsColors_in_out->format != XcmsRGBiFormat) {

+	    return(XcmsFailure);

+	}

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.red;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pRedTbl->pBase,

+		(unsigned)pScreenData->pRedTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.red = answerIRec.value;

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.green;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pGreenTbl->pBase,

+		(unsigned)pScreenData->pGreenTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.green = answerIRec.value;

+

+	keyIRec.intensity = pXcmsColors_in_out->spec.RGBi.blue;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pBlueTbl->pBase,

+		(unsigned)pScreenData->pBlueTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsIntensityCmp, (interpolProcp)_XcmsIntensityInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGB.blue = answerIRec.value;

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGB, sizeof(XcmsRGB));

+	(pXcmsColors_in_out++)->format = XcmsRGBFormat;

+    }

+    return(XcmsSuccess);

+}

+

+

+/*

+ *	NAME

+ *		XcmsRGBToRGBi

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+Status

+XcmsRGBToRGBi(

+    XcmsCCC ccc,

+    XcmsColor *pXcmsColors_in_out,/* pointer to XcmsColors to convert 	*/

+    unsigned int nColors,	/* Number of colors			*/

+    Bool *pCompressed)		/* pointer to a bit array		*/

+/*

+ *	DESCRIPTION

+ *		Converts color specifications in an array of XcmsColor

+ *		structures from RGB format to RGBi format.

+ *

+ *	RETURNS

+ *		XcmsFailure if failed,

+ *		XcmsSuccess if succeeded.

+ */

+{

+    LINEAR_RGB_SCCData *pScreenData;

+    XcmsRGBi tmpRGBi;

+    IntensityRec keyIRec, answerIRec;

+

+    /*

+     * pCompressed ignored in this function.

+     */

+

+    if (ccc == NULL) {

+	return(XcmsFailure);

+    }

+

+    pScreenData = (LINEAR_RGB_SCCData *)ccc->pPerScrnInfo->screenData;

+

+    while (nColors--) {

+

+	/* Make sure format is XcmsRGBFormat */

+	if (pXcmsColors_in_out->format != XcmsRGBFormat) {

+	    return(XcmsFailure);

+	}

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.red;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pRedTbl->pBase,

+		(unsigned)pScreenData->pRedTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.red = answerIRec.intensity;

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.green;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pGreenTbl->pBase,

+		(unsigned)pScreenData->pGreenTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.green = answerIRec.intensity;

+

+	keyIRec.value = pXcmsColors_in_out->spec.RGB.blue;

+	if (!_XcmsTableSearch((char *)&keyIRec, ccc->visual->bits_per_rgb,

+		(char *)pScreenData->pBlueTbl->pBase,

+		(unsigned)pScreenData->pBlueTbl->nEntries,

+		(unsigned)sizeof(IntensityRec),

+		(comparProcp)_XcmsValueCmp, (interpolProcp)_XcmsValueInterpolation, (char *)&answerIRec)) {

+	    return(XcmsFailure);

+	}

+	tmpRGBi.blue = answerIRec.intensity;

+

+	memcpy((char *)&pXcmsColors_in_out->spec, (char *)&tmpRGBi, sizeof(XcmsRGBi));

+	(pXcmsColors_in_out++)->format = XcmsRGBiFormat;

+    }

+    return(XcmsSuccess);

+}

+

+/*

+ *	NAME

+ *		_XcmsInitScrnDefaultInfo

+ *

+ *	SYNOPSIS

+ */

+/* ARGSUSED */

+int

+_XcmsLRGB_InitScrnDefault(

+    Display *dpy,

+    int screenNumber,

+    XcmsPerScrnInfo *pPerScrnInfo)

+/*

+ *	DESCRIPTION

+ *		Given a display and screen number, this routine attempts

+ *		to initialize the Xcms per Screen Info structure

+ *		(XcmsPerScrnInfo) with defaults.

+ *

+ *	RETURNS

+ *		Returns zero if initialization failed; non-zero otherwise.

+ */

+{

+    pPerScrnInfo->screenData = (XPointer)&Default_RGB_SCCData;

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.X =

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[0][2];

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y =

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[1][2];

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Z =

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][0] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][1] +

+		Default_RGB_SCCData.RGBtoXYZmatrix[2][2];

+    if ((pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y < (1.0 - EPS) )

+	    || (pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y > (1.0 + EPS))) {

+	pPerScrnInfo->screenData = (XPointer)NULL;

+	pPerScrnInfo->state = XcmsInitNone;

+	return(0);

+    }

+    pPerScrnInfo->screenWhitePt.spec.CIEXYZ.Y = 1.0;

+    pPerScrnInfo->screenWhitePt.format = XcmsCIEXYZFormat;

+    pPerScrnInfo->screenWhitePt.pixel = 0;

+    pPerScrnInfo->functionSet = (XPointer)&XcmsLinearRGBFunctionSet;

+    pPerScrnInfo->state = XcmsInitFailure; /* default initialization */

+    return(1);

+}

diff --git a/libX11/src/xcms/PrOfId.c b/libX11/src/xcms/PrOfId.c
index a96d28cec..1ec36d96c 100644
--- a/libX11/src/xcms/PrOfId.c
+++ b/libX11/src/xcms/PrOfId.c
@@ -1,97 +1,97 @@
-
-/*
- * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
- * 	All Rights Reserved
- *
- * This file is a component of an X Window System-specific implementation
- * of Xcms based on the TekColor Color Management System.  Permission is
- * hereby granted to use, copy, modify, sell, and otherwise distribute this
- * software and its documentation for any purpose and without fee, provided
- * that this copyright, permission, and disclaimer notice is reproduced in
- * all copies of this software and in supporting documentation.  TekColor
- * is a trademark of Tektronix, Inc.
- *
- * Tektronix makes no representation about the suitability of this software
- * for any purpose.  It is provided "as is" and with all faults.
- *
- * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
- * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
- * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
- * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
- * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
- * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
- *
- *
- *	NAME
- *		XcmsPrOfId.c
- *
- *	DESCRIPTION
- *		Source for XcmsPrefixOfFormat()
- *
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xcmsint.h"
-#include "Cv.h"
-
-
-/*
- *	NAME
- *		XcmsPrefixOfId
- *
- *	SYNOPSIS
- */
-char *
-XcmsPrefixOfFormat(
-    XcmsColorFormat	id)
-/*
- *	DESCRIPTION
- *		Returns the color space prefix for the specified color
- *		space ID if the color space is found in the Color
- *		Conversion Context.
- *
- *	RETURNS
- *		Returns a color space prefix.
- *
- *	CAVEATS
- *		Space is allocated for the returned string, therefore,
- *		the application is responsible for freeing (using XFree)
- *		the space.
- *
- */
-{
-    XcmsColorSpace	**papColorSpaces;
-
-    /*
-     * First try Device-Independent color spaces
-     */
-    papColorSpaces = _XcmsDIColorSpaces;
-    if (papColorSpaces != NULL) {
-	while (*papColorSpaces != NULL) {
-	    if ((*papColorSpaces)->id == id) {
-		return strdup((*papColorSpaces)->prefix);
-	    }
-	    papColorSpaces++;
-	}
-    }
-
-    /*
-     * Next try Device-Dependent color spaces
-     */
-    papColorSpaces = _XcmsDDColorSpaces;
-    if (papColorSpaces != NULL) {
-	while (*papColorSpaces != NULL) {
-	    if ((*papColorSpaces)->id == id) {
-		return strdup((*papColorSpaces)->prefix);
-	    }
-	    papColorSpaces++;
-	}
-    }
-
-    return(NULL);
-}
+

+/*

+ * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.

+ * 	All Rights Reserved

+ *

+ * This file is a component of an X Window System-specific implementation

+ * of Xcms based on the TekColor Color Management System.  Permission is

+ * hereby granted to use, copy, modify, sell, and otherwise distribute this

+ * software and its documentation for any purpose and without fee, provided

+ * that this copyright, permission, and disclaimer notice is reproduced in

+ * all copies of this software and in supporting documentation.  TekColor

+ * is a trademark of Tektronix, Inc.

+ *

+ * Tektronix makes no representation about the suitability of this software

+ * for any purpose.  It is provided "as is" and with all faults.

+ *

+ * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,

+ * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A

+ * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY

+ * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER

+ * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF

+ * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN

+ * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.

+ *

+ *

+ *	NAME

+ *		XcmsPrOfId.c

+ *

+ *	DESCRIPTION

+ *		Source for XcmsPrefixOfFormat()

+ *

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xcmsint.h"

+#include "Cv.h"

+

+

+/*

+ *	NAME

+ *		XcmsPrefixOfId

+ *

+ *	SYNOPSIS

+ */

+char *

+XcmsPrefixOfFormat(

+    XcmsColorFormat	id)

+/*

+ *	DESCRIPTION

+ *		Returns the color space prefix for the specified color

+ *		space ID if the color space is found in the Color

+ *		Conversion Context.

+ *

+ *	RETURNS

+ *		Returns a color space prefix.

+ *

+ *	CAVEATS

+ *		Space is allocated for the returned string, therefore,

+ *		the application is responsible for freeing (using XFree)

+ *		the space.

+ *

+ */

+{

+    XcmsColorSpace	**papColorSpaces;

+

+    /*

+     * First try Device-Independent color spaces

+     */

+    papColorSpaces = _XcmsDIColorSpaces;

+    if (papColorSpaces != NULL) {

+	while (*papColorSpaces != NULL) {

+	    if ((*papColorSpaces)->id == id) {

+		return strdup((*papColorSpaces)->prefix);

+	    }

+	    papColorSpaces++;

+	}

+    }

+

+    /*

+     * Next try Device-Dependent color spaces

+     */

+    papColorSpaces = _XcmsDDColorSpaces;

+    if (papColorSpaces != NULL) {

+	while (*papColorSpaces != NULL) {

+	    if ((*papColorSpaces)->id == id) {

+		return strdup((*papColorSpaces)->prefix);

+	    }

+	    papColorSpaces++;

+	}

+    }

+

+    return(NULL);

+}

diff --git a/libX11/src/xcms/cmsProp.c b/libX11/src/xcms/cmsProp.c
index 2826ee7be..b732b800f 100644
--- a/libX11/src/xcms/cmsProp.c
+++ b/libX11/src/xcms/cmsProp.c
@@ -1,149 +1,149 @@
-
-/*
- *
- * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.
- * 	All Rights Reserved
- *
- * This file is a component of an X Window System-specific implementation
- * of Xcms based on the TekColor Color Management System.  Permission is
- * hereby granted to use, copy, modify, sell, and otherwise distribute this
- * software and its documentation for any purpose and without fee, provided
- * that this copyright, permission, and disclaimer notice is reproduced in
- * all copies of this software and in supporting documentation.  TekColor
- * is a trademark of Tektronix, Inc.
- *
- * Tektronix makes no representation about the suitability of this software
- * for any purpose.  It is provided "as is" and with all faults.
- *
- * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,
- * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
- * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY
- * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
- * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF
- * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
- * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.
- *
- *	NAME
- *		XcmsProp.c
- *
- *	DESCRIPTION
- *		This utility routines for manipulating properties.
- *
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xatom.h>
-#include "Xlibint.h"
-#include "Xcmsint.h"
-#include "Cv.h"
-
-
-/************************************************************************
- *									*
- *			API PRIVATE ROUTINES				*
- *									*
- ************************************************************************/
-
-
-/*
- *	NAME
- *		_XcmsGetElement -- get an element value from the property passed
- *
- *	SYNOPSIS
- */
-unsigned long
-_XcmsGetElement(
-    int             format,
-    char            **pValue,
-    unsigned long   *pCount)
-/*
- *	DESCRIPTION
- *	    Get the next element from the property and return it.
- *	    Also increment the pointer the amount needed.
- *
- *	Returns
- *	    unsigned long
- */
-{
-    unsigned long value;
-
-    switch (format) {
-      case 32:
-	value = *((unsigned long *)(*pValue)) & 0xFFFFFFFF;
-	*pValue += sizeof(unsigned long);
-	*pCount -= 1;
-	break;
-      case 16:
-	value = *((unsigned short *)(*pValue));
-	*pValue += sizeof(unsigned short);
-	*pCount -= 1;
-	break;
-      case 8:
-	value = *((unsigned char *) (*pValue));
-	*pValue += 1;
-	*pCount -= 1;
-	break;
-      default:
-	value = 0;
-	break;
-    }
-    return(value);
-}
-
-
-/*
- *	NAME
- *		_XcmsGetProperty -- Determine the existance of a property
- *
- *	SYNOPSIS
- */
-int
-_XcmsGetProperty(
-    Display *pDpy,
-    Window  w,
-    Atom property,
-    int             *pFormat,
-    unsigned long   *pNItems,
-    unsigned long   *pNBytes,
-    char            **pValue)
-/*
- *	DESCRIPTION
- *
- *	Returns
- *	    0 if property does not exist.
- *	    1 if property exists.
- */
-{
-    char *prop_ret;
-    int format_ret;
-    long len = 6516;
-    unsigned long nitems_ret, after_ret;
-    Atom atom_ret;
-    int xgwp_ret;
-
-    while (True) {
-	xgwp_ret = XGetWindowProperty (pDpy, w, property, 0, len, False,
-				       XA_INTEGER, &atom_ret, &format_ret,
-				       &nitems_ret, &after_ret,
-				       (unsigned char **)&prop_ret);
-	if (xgwp_ret == Success && after_ret > 0) {
-	    len += nitems_ret * (format_ret >> 3);
-	    XFree (prop_ret);
-	} else {
-	    break;
-	}
-    }
-    if (xgwp_ret != Success || format_ret == 0 || nitems_ret == 0) {
-	/* the property does not exist or is of an unexpected type or
-           getting window property failed */
-	return(XcmsFailure);
-    }
-
-    *pFormat = format_ret;
-    *pNItems = nitems_ret;
-    *pNBytes = nitems_ret * (format_ret >> 3);
-    *pValue = prop_ret;
-    return(XcmsSuccess);
-}
+

+/*

+ *

+ * Code and supporting documentation (c) Copyright 1990 1991 Tektronix, Inc.

+ * 	All Rights Reserved

+ *

+ * This file is a component of an X Window System-specific implementation

+ * of Xcms based on the TekColor Color Management System.  Permission is

+ * hereby granted to use, copy, modify, sell, and otherwise distribute this

+ * software and its documentation for any purpose and without fee, provided

+ * that this copyright, permission, and disclaimer notice is reproduced in

+ * all copies of this software and in supporting documentation.  TekColor

+ * is a trademark of Tektronix, Inc.

+ *

+ * Tektronix makes no representation about the suitability of this software

+ * for any purpose.  It is provided "as is" and with all faults.

+ *

+ * TEKTRONIX DISCLAIMS ALL WARRANTIES APPLICABLE TO THIS SOFTWARE,

+ * INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A

+ * PARTICULAR PURPOSE.  IN NO EVENT SHALL TEKTRONIX BE LIABLE FOR ANY

+ * SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER

+ * RESULTING FROM LOSS OF USE, DATA, OR PROFITS, WHETHER IN AN ACTION OF

+ * CONTRACT, NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN

+ * CONNECTION WITH THE USE OR THE PERFORMANCE OF THIS SOFTWARE.

+ *

+ *	NAME

+ *		XcmsProp.c

+ *

+ *	DESCRIPTION

+ *		This utility routines for manipulating properties.

+ *

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xatom.h>

+#include "Xlibint.h"

+#include "Xcmsint.h"

+#include "Cv.h"

+

+

+/************************************************************************

+ *									*

+ *			API PRIVATE ROUTINES				*

+ *									*

+ ************************************************************************/

+

+

+/*

+ *	NAME

+ *		_XcmsGetElement -- get an element value from the property passed

+ *

+ *	SYNOPSIS

+ */

+unsigned long

+_XcmsGetElement(

+    int             format,

+    char            **pValue,

+    unsigned long   *pCount)

+/*

+ *	DESCRIPTION

+ *	    Get the next element from the property and return it.

+ *	    Also increment the pointer the amount needed.

+ *

+ *	Returns

+ *	    unsigned long

+ */

+{

+    unsigned long value;

+

+    switch (format) {

+      case 32:

+	value = *((unsigned long *)(*pValue)) & 0xFFFFFFFF;

+	*pValue += sizeof(unsigned long);

+	*pCount -= 1;

+	break;

+      case 16:

+	value = *((unsigned short *)(*pValue));

+	*pValue += sizeof(unsigned short);

+	*pCount -= 1;

+	break;

+      case 8:

+	value = *((unsigned char *) (*pValue));

+	*pValue += 1;

+	*pCount -= 1;

+	break;

+      default:

+	value = 0;

+	break;

+    }

+    return(value);

+}

+

+

+/*

+ *	NAME

+ *		_XcmsGetProperty -- Determine the existance of a property

+ *

+ *	SYNOPSIS

+ */

+int

+_XcmsGetProperty(

+    Display *pDpy,

+    Window  w,

+    Atom property,

+    int             *pFormat,

+    unsigned long   *pNItems,

+    unsigned long   *pNBytes,

+    char            **pValue)

+/*

+ *	DESCRIPTION

+ *

+ *	Returns

+ *	    0 if property does not exist.

+ *	    1 if property exists.

+ */

+{

+    char *prop_ret;

+    int format_ret;

+    long len = 6516;

+    unsigned long nitems_ret, after_ret;

+    Atom atom_ret;

+    int xgwp_ret;

+

+    while (True) {

+	xgwp_ret = XGetWindowProperty (pDpy, w, property, 0, len, False,

+				       XA_INTEGER, &atom_ret, &format_ret,

+				       &nitems_ret, &after_ret,

+				       (unsigned char **)&prop_ret);

+	if (xgwp_ret == Success && after_ret > 0) {

+	    len += nitems_ret * (format_ret >> 3);

+	    XFree (prop_ret);

+	} else {

+	    break;

+	}

+    }

+    if (xgwp_ret != Success || format_ret == 0 || nitems_ret == 0) {

+	/* the property does not exist or is of an unexpected type or

+           getting window property failed */

+	return(XcmsFailure);

+    }

+

+    *pFormat = format_ret;

+    *pNItems = nitems_ret;

+    *pNBytes = nitems_ret * (format_ret >> 3);

+    *pValue = prop_ret;

+    return(XcmsSuccess);

+}

diff --git a/libX11/src/xcms/config.h b/libX11/src/xcms/config.h
new file mode 100644
index 000000000..a01921855
--- /dev/null
+++ b/libX11/src/xcms/config.h
@@ -0,0 +1,2 @@
+#include <string.h>
+#include <unistd.h>
diff --git a/libX11/src/xcms/makefile b/libX11/src/xcms/makefile
new file mode 100644
index 000000000..00fab124a
--- /dev/null
+++ b/libX11/src/xcms/makefile
@@ -0,0 +1,71 @@
+LIBRARY = libxcms
+
+DEFINES += HAVE_CONFIG_H
+
+CSRCS = \
+		  AddDIC.c \
+                  AddSF.c \
+                  CCC.c \
+                  CvColW.c \
+                  CvCols.c \
+                  HVC.c \
+                  HVCGcC.c \
+                  HVCGcV.c \
+                  HVCGcVC.c \
+                  HVCMnV.c \
+                  HVCMxC.c \
+                  HVCMxV.c \
+                  HVCMxVC.c \
+                  HVCMxVs.c \
+                  HVCWpAj.c \
+                  IdOfPr.c \
+                  LRGB.c \
+                  Lab.c \
+                  LabGcC.c \
+                  LabGcL.c \
+                  LabGcLC.c \
+                  LabMnL.c \
+                  LabMxC.c \
+                  LabMxL.c \
+                  LabMxLC.c \
+                  LabWpAj.c \
+                  Luv.c \
+                  LuvGcC.c \
+                  LuvGcL.c \
+                  LuvGcLC.c \
+                  LuvMnL.c \
+                  LuvMxC.c \
+                  LuvMxL.c \
+                  LuvMxLC.c \
+                  LuvWpAj.c \
+                  OfCCC.c \
+                  PrOfId.c \
+                  QBlack.c \
+                  QBlue.c \
+                  QGreen.c \
+                  QRed.c \
+                  QWhite.c \
+                  QuCol.c \
+                  QuCols.c \
+                  SetCCC.c \
+                  SetGetCols.c \
+                  StCol.c \
+                  StCols.c \
+                  UNDEFINED.c \
+                  XRGB.c \
+                  XYZ.c \
+                  cmsAllCol.c \
+                  cmsAllNCol.c \
+                  cmsCmap.c \
+                  cmsColNm.c \
+                  cmsGlobls.c \
+                  cmsInt.c \
+                  cmsLkCol.c \
+                  cmsMath.c \
+                  cmsProp.c \
+                  cmsTrig.c \
+                  uvY.c \
+                  xyY.c
+
+INCLUDES += ..\..\include\X11 ..\..\src\xlibi18n ..\..\src
+
diff --git a/libX11/src/xkb/Makefile b/libX11/src/xkb/Makefile
new file mode 100644
index 000000000..0f6b7e859
--- /dev/null
+++ b/libX11/src/xkb/Makefile
@@ -0,0 +1,27 @@
+LIBRARY = libxkb
+
+CSRCS = \
+	XKB.c \
+	XKBBind.c \
+	XKBCompat.c \
+	XKBCtrls.c \
+	XKBCvt.c \
+	XKBGetMap.c \
+	XKBGetByName.c \
+	XKBNames.c \
+	XKBRdBuf.c \
+	XKBSetMap.c \
+	XKBUse.c \
+	XKBleds.c \
+	XKBBell.c \
+	XKBGeom.c \
+	XKBSetGeom.c \
+	XKBExtDev.c \
+	XKBList.c \
+	XKBMisc.c \
+	XKBMAlloc.c \
+	XKBGAlloc.c \
+	XKBAlloc.c
+
+INCLUDES += ..\..\include\X11 ..\..\src\xlibi18n
+
diff --git a/libX11/src/xkb/XKB.c b/libX11/src/xkb/XKB.c
index f926cb997..374e27d2d 100644
--- a/libX11/src/xkb/XKB.c
+++ b/libX11/src/xkb/XKB.c
@@ -28,6 +28,11 @@ THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #include <config.h>
 #endif
 #include <stdio.h>
+
+#ifdef XKB_IN_SERVER
+#define XkbVirtualModsToReal    SrvXkbVirtualModsToReal
+#endif
+
 #include "Xlibint.h"
 #include <X11/extensions/XKBproto.h>
 #include "XKBlibint.h"
diff --git a/libX11/src/xkb/XKBBind.c b/libX11/src/xkb/XKBBind.c
index 2e4b1fe68..4904b461f 100644
--- a/libX11/src/xkb/XKBBind.c
+++ b/libX11/src/xkb/XKBBind.c
@@ -31,6 +31,34 @@ from The Open Group.
 #ifdef HAVE_CONFIG_H

 #include <config.h>

 #endif

+

+#ifdef XKB_IN_SERVER

+#define XkbAllocClientMap   SrvXkbAllocClientMap

+#define XkbAllocServerMap   SrvXkbAllocServerMap

+#define XkbChangeTypesOfKey   SrvXkbChangeTypesOfKey

+#define XkbCopyKeyTypes     SrvXkbCopyKeyTypes

+#define XkbFreeClientMap    SrvXkbFreeClientMap

+#define XkbFreeServerMap    SrvXkbFreeServerMap

+#define XkbKeyTypesForCoreSymbols SrvXkbKeyTypesForCoreSymbols

+#define XkbApplyCompatMapToKey    SrvXkbApplyCompatMapToKey

+#define XkbResizeKeyActions   SrvXkbResizeKeyActions

+#define XkbResizeKeySyms    SrvXkbResizeKeySyms

+#define XkbResizeKeyType    SrvXkbResizeKeyType

+#define XkbAllocCompatMap   SrvXkbAllocCompatMap

+#define XkbAllocControls    SrvXkbAllocControls

+#define XkbAllocIndicatorMaps   SrvXkbAllocIndicatorMaps

+#define XkbAllocKeyboard    SrvXkbAllocKeyboard

+#define XkbAllocNames     SrvXkbAllocNames

+#define XkbFreeCompatMap    SrvXkbFreeCompatMap

+#define XkbFreeKeyboard     SrvXkbFreeKeyboard

+#define XkbFreeNames      SrvXkbFreeNames

+#define XkbLatchModifiers   SrvXkbLatchModifiers

+#define XkbLatchGroup     SrvXkbLatchGroup

+#define XkbVirtualModsToReal    SrvXkbVirtualModsToReal

+#define XkbChangeKeycodeRange   SrvXkbChangeKeycodeRange

+#define XkbApplyVirtualModChanges SrvXkbApplyVirtualModChanges

+#endif

+

 #include "XKBlib.h"

 #include <X11/Xlibint.h>

 #include <X11/Xutil.h>

diff --git a/libX11/src/xkb/XKBGAlloc.c b/libX11/src/xkb/XKBGAlloc.c
index 7679496e3..55505f4f6 100644
--- a/libX11/src/xkb/XKBGAlloc.c
+++ b/libX11/src/xkb/XKBGAlloc.c
@@ -1,1011 +1,1011 @@
-/************************************************************
-Copyright (c) 1993 by Silicon Graphics Computer Systems, Inc.
-
-Permission to use, copy, modify, and distribute this
-software and its documentation for any purpose and without
-fee is hereby granted, provided that the above copyright
-notice appear in all copies and that both that copyright
-notice and this permission notice appear in supporting
-documentation, and that the name of Silicon Graphics not be
-used in advertising or publicity pertaining to distribution
-of the software without specific prior written permission.
-Silicon Graphics makes no representation about the suitability
-of this software for any purpose. It is provided "as is"
-without any express or implied warranty.
-
-SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
-SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
-AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
-GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
-DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
-OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH
-THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-********************************************************/
-
-#ifdef HAVE_DIX_CONFIG_H
-#include <dix-config.h>
-#elif defined(HAVE_CONFIG_H)
-#include <config.h>
-#endif
-
-#ifndef XKB_IN_SERVER
-
-#include <stdio.h>
-#include "Xlibint.h"
-#include "XKBlibint.h"
-#include <X11/extensions/XKBgeom.h>
-#include <X11/extensions/XKBproto.h>
-
-#else
-
-#include <stdio.h>
-#include <X11/X.h>
-#include <X11/Xproto.h>
-#include "misc.h"
-#include "inputstr.h"
-#include <X11/extensions/XKBsrv.h>
-#include <X11/extensions/XKBgeom.h>
-
-#endif /* XKB_IN_SERVER */
-
-#ifdef X_NOT_POSIX
-#define Size_t unsigned int
-#else
-#define Size_t size_t
-#endif
-
-/***====================================================================***/
-
-static void
-_XkbFreeGeomLeafElems(	Bool			freeAll,
-			int			first,
-			int 			count,
-			unsigned short *	num_inout,
-			unsigned short *	sz_inout,
-			char **			elems,
-			unsigned int		elem_sz)
-{
-    if ((freeAll)||(*elems==NULL)) {
-	*num_inout= *sz_inout= 0;
-	if (*elems!=NULL) {
-	    _XkbFree(*elems);
-	    *elems= NULL;
-	}
-	return;
-    }
-
-    if ((first>=(*num_inout))||(first<0)||(count<1))
-	return;
-
-    if (first+count>=(*num_inout)) {
-	/* truncating the array is easy */
-	(*num_inout)= first;
-    }
-    else {
-	char *	ptr;
-	int 	extra;
-	ptr= *elems;
-	extra= ((*num_inout)-(first+count))*elem_sz;
-	if (extra>0)
-	    memmove(&ptr[first*elem_sz],&ptr[(first+count)*elem_sz],extra);
-	(*num_inout)-= count;
-    }
-    return;
-}
-
-typedef void (*ContentsClearFunc)(
-		char *		/* priv */
-);
-
-static void
-_XkbFreeGeomNonLeafElems(	Bool			freeAll,
-				int			first,
-				int 			count,
-				unsigned short *	num_inout,
-				unsigned short *	sz_inout,
-				char **			elems,
-				unsigned int		elem_sz,
-				ContentsClearFunc	freeFunc)
-{
-register int i;
-register char *ptr;
-
-    if (freeAll) {
-	first= 0;
-	count= (*num_inout);
-    }
-    else if ((first>=(*num_inout))||(first<0)||(count<1))
-	return;
-    else if (first+count>(*num_inout))
-	count= (*num_inout)-first;
-    if (*elems==NULL)
-	return;
-
-    if (freeFunc) {
-	ptr= *elems;
-	ptr+= first*elem_sz;
-	for (i=0;i<count;i++) {
-	    (*freeFunc)(ptr);
-	    ptr+= elem_sz;
-	}
-    }
-    if (freeAll) {
-	(*num_inout)= (*sz_inout)= 0;
-	if (*elems) {
-	    _XkbFree(*elems);
-	    *elems= NULL;
-	}
-    }
-    else if (first+count>=(*num_inout))
-	*num_inout= first;
-    else {
-	i= ((*num_inout)-(first+count))*elem_sz;
-	ptr= *elems;
-	memmove(&ptr[first*elem_sz],&ptr[(first+count)*elem_sz],i);
-	(*num_inout)-= count;
-    }
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearProperty(char *prop_in)
-{
-XkbPropertyPtr	prop= (XkbPropertyPtr)prop_in;
-
-    if (prop->name) {
-	_XkbFree(prop->name);
-	prop->name= NULL;
-    }
-    if (prop->value) {
-	_XkbFree(prop->value);
-	prop->value= NULL;
-    }
-    return;
-}
-
-void
-XkbFreeGeomProperties(	XkbGeometryPtr	geom,
-			int		first,
-			int		count,
-			Bool		freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&geom->num_properties,&geom->sz_properties,
-				(char **)&geom->properties,
-				sizeof(XkbPropertyRec),_XkbClearProperty);
-    return;
-}
-
-/***====================================================================***/
-
-void
-XkbFreeGeomKeyAliases(	XkbGeometryPtr	geom,
-			int		first,
-			int		count,
-			Bool		freeAll)
-{
-    _XkbFreeGeomLeafElems(freeAll,first,count,
-				&geom->num_key_aliases,&geom->sz_key_aliases,
-				(char **)&geom->key_aliases,
-				sizeof(XkbKeyAliasRec));
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearColor(char *color_in)
-{
-XkbColorPtr	color= (XkbColorPtr)color_in;
-
-    if (color->spec)
-	_XkbFree(color->spec);
-    return;
-}
-
-void
-XkbFreeGeomColors(XkbGeometryPtr geom,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&geom->num_colors,&geom->sz_colors,
-				(char **)&geom->colors,
-				sizeof(XkbColorRec),_XkbClearColor);
-    return;
-}
-
-/***====================================================================***/
-
-void
-XkbFreeGeomPoints(XkbOutlinePtr outline,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomLeafElems(freeAll,first,count,
-				&outline->num_points,&outline->sz_points,
-				(char **)&outline->points,
-				sizeof(XkbPointRec));
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearOutline(char *outline_in)
-{
-XkbOutlinePtr	outline= (XkbOutlinePtr)outline_in;
-
-    if (outline->points!=NULL)
-	XkbFreeGeomPoints(outline,0,outline->num_points,True);
-    return;
-}
-
-void
-XkbFreeGeomOutlines(XkbShapePtr	shape,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&shape->num_outlines,&shape->sz_outlines,
-				(char **)&shape->outlines,
-				sizeof(XkbOutlineRec),_XkbClearOutline);
-
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearShape(char *shape_in)
-{
-XkbShapePtr	shape= (XkbShapePtr)shape_in;
-
-    if (shape->outlines)
-	XkbFreeGeomOutlines(shape,0,shape->num_outlines,True);
-    return;
-}
-
-void
-XkbFreeGeomShapes(XkbGeometryPtr geom,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&geom->num_shapes,&geom->sz_shapes,
-				(char **)&geom->shapes,
-				sizeof(XkbShapeRec),_XkbClearShape);
-    return;
-}
-
-/***====================================================================***/
-
-void
-XkbFreeGeomOverlayKeys(XkbOverlayRowPtr row,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomLeafElems(freeAll,first,count,
-				&row->num_keys,&row->sz_keys,
-				(char **)&row->keys,
-				sizeof(XkbOverlayKeyRec));
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearOverlayRow(char *row_in)
-{
-XkbOverlayRowPtr	row= (XkbOverlayRowPtr)row_in;
-
-    if (row->keys!=NULL)
-	XkbFreeGeomOverlayKeys(row,0,row->num_keys,True);
-    return;
-}
-
-void
-XkbFreeGeomOverlayRows(XkbOverlayPtr overlay,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&overlay->num_rows,&overlay->sz_rows,
-				(char **)&overlay->rows,
-				sizeof(XkbOverlayRowRec),_XkbClearOverlayRow);
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearOverlay(char *overlay_in)
-{
-XkbOverlayPtr	overlay= (XkbOverlayPtr)overlay_in;
-
-    if (overlay->rows!=NULL)
-	XkbFreeGeomOverlayRows(overlay,0,overlay->num_rows,True);
-    return;
-}
-
-void
-XkbFreeGeomOverlays(XkbSectionPtr section,int first,int	count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&section->num_overlays,&section->sz_overlays,
-				(char **)&section->overlays,
-				sizeof(XkbOverlayRec),_XkbClearOverlay);
-    return;
-}
-
-/***====================================================================***/
-
-void
-XkbFreeGeomKeys(XkbRowPtr row,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomLeafElems(freeAll,first,count,
-				&row->num_keys,&row->sz_keys,
-				(char **)&row->keys,
-				sizeof(XkbKeyRec));
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearRow(char *row_in)
-{
-XkbRowPtr	row= (XkbRowPtr)row_in;
-
-    if (row->keys!=NULL)
-	XkbFreeGeomKeys(row,0,row->num_keys,True);
-    return;
-}
-
-void
-XkbFreeGeomRows(XkbSectionPtr section,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&section->num_rows,&section->sz_rows,
-				(char **)&section->rows,
-				sizeof(XkbRowRec),_XkbClearRow);
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearSection(char *section_in)
-{
-XkbSectionPtr	section= (XkbSectionPtr)section_in;
-
-    if (section->rows!=NULL)
-	XkbFreeGeomRows(section,0,section->num_rows,True);
-    if (section->doodads!=NULL) {
-	XkbFreeGeomDoodads(section->doodads,section->num_doodads,True);
-	section->doodads= NULL;
-    }
-    return;
-}
-
-void
-XkbFreeGeomSections(XkbGeometryPtr geom,int first,int count,Bool freeAll)
-{
-    _XkbFreeGeomNonLeafElems(freeAll,first,count,
-				&geom->num_sections,&geom->sz_sections,
-				(char **)&geom->sections,
-				sizeof(XkbSectionRec),_XkbClearSection);
-    return;
-}
-
-/***====================================================================***/
-
-static void
-_XkbClearDoodad(char *doodad_in)
-{
-XkbDoodadPtr	doodad= (XkbDoodadPtr)doodad_in;
-
-    switch (doodad->any.type) {
-   	case XkbTextDoodad:
-	    {
-		if (doodad->text.text!=NULL) {
-		    _XkbFree(doodad->text.text);
-		    doodad->text.text= NULL;
-		}
-		if (doodad->text.font!=NULL) {
-		    _XkbFree(doodad->text.font);
-		    doodad->text.font= NULL;
-		}
-	    }
-	    break;
-   	case XkbLogoDoodad:
-	    {
-		if (doodad->logo.logo_name!=NULL) {
-		    _XkbFree(doodad->logo.logo_name);
-		    doodad->logo.logo_name= NULL;
-		}
-	    }
-	    break;
-    }
-    return;
-}
-
-void
-XkbFreeGeomDoodads(XkbDoodadPtr doodads,int nDoodads,Bool freeAll)
-{
-register int 		i;
-register XkbDoodadPtr	doodad;
-
-    if (doodads) {
-	for (i=0,doodad= doodads;i<nDoodads;i++,doodad++) {
-	    _XkbClearDoodad((char *)doodad);
-	}
-	if (freeAll)
-	    _XkbFree(doodads);
-    }
-    return;
-}
-
-void
-XkbFreeGeometry(XkbGeometryPtr geom,unsigned which,Bool freeMap)
-{
-    if (geom==NULL)
-	return;
-    if (freeMap)
-	which= XkbGeomAllMask;
-    if ((which&XkbGeomPropertiesMask)&&(geom->properties!=NULL))
-	XkbFreeGeomProperties(geom,0,geom->num_properties,True);
-    if ((which&XkbGeomColorsMask)&&(geom->colors!=NULL))
-	XkbFreeGeomColors(geom,0,geom->num_colors,True);
-    if ((which&XkbGeomShapesMask)&&(geom->shapes!=NULL))
-	XkbFreeGeomShapes(geom,0,geom->num_shapes,True);
-    if ((which&XkbGeomSectionsMask)&&(geom->sections!=NULL))
-	XkbFreeGeomSections(geom,0,geom->num_sections,True);
-    if ((which&XkbGeomDoodadsMask)&&(geom->doodads!= NULL)) {
-	XkbFreeGeomDoodads(geom->doodads,geom->num_doodads,True);
-	geom->doodads= NULL;
-	geom->num_doodads= geom->sz_doodads= 0;
-    }
-    if ((which&XkbGeomKeyAliasesMask)&&(geom->key_aliases!=NULL))
-	XkbFreeGeomKeyAliases(geom,0,geom->num_key_aliases,True);
-    if (freeMap) {
-	if (geom->label_font!=NULL) {
-	    _XkbFree(geom->label_font);
-	    geom->label_font= NULL;
-	}
-	_XkbFree(geom);
-    }
-    return;
-}
-
-/***====================================================================***/
-
-static Status
-_XkbGeomAlloc(	XPointer *		old,
-		unsigned short *	num,
-		unsigned short *	total,
-		int			num_new,
-		Size_t			sz_elem)
-{
-    if (num_new<1)
-	return Success;
-    if ((*old)==NULL)
-	*num= *total= 0;
-
-    if ((*num)+num_new<=(*total))
-	return Success;
-
-    *total= (*num)+num_new;
-    if ((*old)!=NULL)
-	 (*old)= (XPointer)_XkbRealloc((*old),(*total)*sz_elem);
-    else (*old)= (XPointer)_XkbCalloc((*total),sz_elem);
-    if ((*old)==NULL) {
-	*total= *num= 0;
-	return BadAlloc;
-    }
-
-    if (*num>0) {
-	char *tmp= (char *)(*old);
-	bzero(&tmp[sz_elem*(*num)],(num_new*sz_elem));
-    }
-    return Success;
-}
-
-#define	_XkbAllocProps(g,n) _XkbGeomAlloc((XPointer *)&(g)->properties,\
-				&(g)->num_properties,&(g)->sz_properties,\
-				(n),sizeof(XkbPropertyRec))
-#define	_XkbAllocColors(g,n) _XkbGeomAlloc((XPointer *)&(g)->colors,\
-				&(g)->num_colors,&(g)->sz_colors,\
-				(n),sizeof(XkbColorRec))
-#define	_XkbAllocShapes(g,n) _XkbGeomAlloc((XPointer *)&(g)->shapes,\
-				&(g)->num_shapes,&(g)->sz_shapes,\
-				(n),sizeof(XkbShapeRec))
-#define	_XkbAllocSections(g,n) _XkbGeomAlloc((XPointer *)&(g)->sections,\
-				&(g)->num_sections,&(g)->sz_sections,\
-				(n),sizeof(XkbSectionRec))
-#define	_XkbAllocDoodads(g,n) _XkbGeomAlloc((XPointer *)&(g)->doodads,\
-				&(g)->num_doodads,&(g)->sz_doodads,\
-				(n),sizeof(XkbDoodadRec))
-#define	_XkbAllocKeyAliases(g,n) _XkbGeomAlloc((XPointer *)&(g)->key_aliases,\
-				&(g)->num_key_aliases,&(g)->sz_key_aliases,\
-				(n),sizeof(XkbKeyAliasRec))
-
-#define	_XkbAllocOutlines(s,n) _XkbGeomAlloc((XPointer *)&(s)->outlines,\
-				&(s)->num_outlines,&(s)->sz_outlines,\
-				(n),sizeof(XkbOutlineRec))
-#define	_XkbAllocRows(s,n) _XkbGeomAlloc((XPointer *)&(s)->rows,\
-				&(s)->num_rows,&(s)->sz_rows,\
-				(n),sizeof(XkbRowRec))
-#define	_XkbAllocPoints(o,n) _XkbGeomAlloc((XPointer *)&(o)->points,\
-				&(o)->num_points,&(o)->sz_points,\
-				(n),sizeof(XkbPointRec))
-#define	_XkbAllocKeys(r,n) _XkbGeomAlloc((XPointer *)&(r)->keys,\
-				&(r)->num_keys,&(r)->sz_keys,\
-				(n),sizeof(XkbKeyRec))
-#define	_XkbAllocOverlays(s,n) _XkbGeomAlloc((XPointer *)&(s)->overlays,\
-				&(s)->num_overlays,&(s)->sz_overlays,\
-				(n),sizeof(XkbOverlayRec))
-#define	_XkbAllocOverlayRows(o,n) _XkbGeomAlloc((XPointer *)&(o)->rows,\
-				&(o)->num_rows,&(o)->sz_rows,\
-				(n),sizeof(XkbOverlayRowRec))
-#define	_XkbAllocOverlayKeys(r,n) _XkbGeomAlloc((XPointer *)&(r)->keys,\
-				&(r)->num_keys,&(r)->sz_keys,\
-				(n),sizeof(XkbOverlayKeyRec))
-
-Status
-XkbAllocGeomProps(XkbGeometryPtr geom,int nProps)
-{
-    return _XkbAllocProps(geom,nProps);
-}
-
-Status
-XkbAllocGeomColors(XkbGeometryPtr geom,int nColors)
-{
-    return _XkbAllocColors(geom,nColors);
-}
-
-Status
-XkbAllocGeomKeyAliases(XkbGeometryPtr geom,int nKeyAliases)
-{
-    return _XkbAllocKeyAliases(geom,nKeyAliases);
-}
-
-Status
-XkbAllocGeomShapes(XkbGeometryPtr geom,int nShapes)
-{
-    return _XkbAllocShapes(geom,nShapes);
-}
-
-Status
-XkbAllocGeomSections(XkbGeometryPtr geom,int nSections)
-{
-    return _XkbAllocSections(geom,nSections);
-}
-
-Status
-XkbAllocGeomOverlays(XkbSectionPtr section,int nOverlays)
-{
-    return _XkbAllocOverlays(section,nOverlays);
-}
-
-Status
-XkbAllocGeomOverlayRows(XkbOverlayPtr overlay,int nRows)
-{
-    return _XkbAllocOverlayRows(overlay,nRows);
-}
-
-Status
-XkbAllocGeomOverlayKeys(XkbOverlayRowPtr row,int nKeys)
-{
-    return _XkbAllocOverlayKeys(row,nKeys);
-}
-
-Status
-XkbAllocGeomDoodads(XkbGeometryPtr geom,int nDoodads)
-{
-    return _XkbAllocDoodads(geom,nDoodads);
-}
-
-Status
-XkbAllocGeomSectionDoodads(XkbSectionPtr section,int nDoodads)
-{
-    return _XkbAllocDoodads(section,nDoodads);
-}
-
-Status
-XkbAllocGeomOutlines(XkbShapePtr shape,int nOL)
-{
-    return _XkbAllocOutlines(shape,nOL);
-}
-
-Status
-XkbAllocGeomRows(XkbSectionPtr section,int nRows)
-{
-    return _XkbAllocRows(section,nRows);
-}
-
-Status
-XkbAllocGeomPoints(XkbOutlinePtr ol,int nPts)
-{
-    return _XkbAllocPoints(ol,nPts);
-}
-
-Status
-XkbAllocGeomKeys(XkbRowPtr row,int nKeys)
-{
-    return _XkbAllocKeys(row,nKeys);
-}
-
-Status
-XkbAllocGeometry(XkbDescPtr xkb,XkbGeometrySizesPtr sizes)
-{
-XkbGeometryPtr	geom;
-Status		rtrn;
-
-    if (xkb->geom==NULL) {
-	xkb->geom= _XkbTypedCalloc(1,XkbGeometryRec);
-	if (!xkb->geom)
-	    return BadAlloc;
-    }
-    geom= xkb->geom;
-    if ((sizes->which&XkbGeomPropertiesMask)&&
-	((rtrn=_XkbAllocProps(geom,sizes->num_properties))!=Success)) {
-	goto BAIL;
-    }
-    if ((sizes->which&XkbGeomColorsMask)&&
-	((rtrn=_XkbAllocColors(geom,sizes->num_colors))!=Success)) {
-	goto BAIL;
-    }
-    if ((sizes->which&XkbGeomShapesMask)&&
-	((rtrn=_XkbAllocShapes(geom,sizes->num_shapes))!=Success)) {
-	goto BAIL;
-    }
-    if ((sizes->which&XkbGeomSectionsMask)&&
-	((rtrn=_XkbAllocSections(geom,sizes->num_sections))!=Success)) {
-	goto BAIL;
-    }
-    if ((sizes->which&XkbGeomDoodadsMask)&&
-	((rtrn=_XkbAllocDoodads(geom,sizes->num_doodads))!=Success)) {
-	goto BAIL;
-    }
-    if ((sizes->which&XkbGeomKeyAliasesMask)&&
-	((rtrn=_XkbAllocKeyAliases(geom,sizes->num_key_aliases))!=Success)) {
-	goto BAIL;
-    }
-    return Success;
-BAIL:
-    XkbFreeGeometry(geom,XkbGeomAllMask,True);
-    xkb->geom= NULL;
-    return rtrn;
-}
-
-/***====================================================================***/
-
-XkbPropertyPtr
-XkbAddGeomProperty(XkbGeometryPtr geom,char *name,char *value)
-{
-register int i;
-register XkbPropertyPtr prop;
-
-    if ((!geom)||(!name)||(!value))
-	return NULL;
-    for (i=0,prop=geom->properties;i<geom->num_properties;i++,prop++) {
-	if ((prop->name)&&(strcmp(name,prop->name)==0)) {
-	    if (prop->value)
-		_XkbFree(prop->value);
-	    prop->value= strdup(value);
-	    return prop;
-	}
-    }
-    if ((geom->num_properties>=geom->sz_properties)&&
-					(_XkbAllocProps(geom,1)!=Success)) {
-	return NULL;
-    }
-    prop= &geom->properties[geom->num_properties];
-    prop->name= strdup(name);
-    if (!prop->name)
-	return NULL;
-    prop->value= strdup(value);
-    if (!prop->value) {
-	_XkbFree(prop->name);
-	prop->name= NULL;
-	return NULL;
-    }
-    geom->num_properties++;
-    return prop;
-}
-
-XkbKeyAliasPtr
-XkbAddGeomKeyAlias(XkbGeometryPtr geom,char *aliasStr,char *realStr)
-{
-register int i;
-register XkbKeyAliasPtr alias;
-
-    if ((!geom)||(!aliasStr)||(!realStr)||(!aliasStr[0])||(!realStr[0]))
-	return NULL;
-    for (i=0,alias=geom->key_aliases;i<geom->num_key_aliases;i++,alias++) {
-	if (strncmp(alias->alias,aliasStr,XkbKeyNameLength)==0) {
-	    bzero(alias->real,XkbKeyNameLength);
-	    strncpy(alias->real,realStr,XkbKeyNameLength);
-	    return alias;
-	}
-    }
-    if ((geom->num_key_aliases>=geom->sz_key_aliases)&&
-				(_XkbAllocKeyAliases(geom,1)!=Success)) {
-	return NULL;
-    }
-    alias= &geom->key_aliases[geom->num_key_aliases];
-    bzero(alias,sizeof(XkbKeyAliasRec));
-    strncpy(alias->alias,aliasStr,XkbKeyNameLength);
-    strncpy(alias->real,realStr,XkbKeyNameLength);
-    geom->num_key_aliases++;
-    return alias;
-}
-
-XkbColorPtr
-XkbAddGeomColor(XkbGeometryPtr geom,char *spec,unsigned int pixel)
-{
-register int i;
-register XkbColorPtr color;
-
-    if ((!geom)||(!spec))
-	return NULL;
-    for (i=0,color=geom->colors;i<geom->num_colors;i++,color++) {
-	if ((color->spec)&&(strcmp(color->spec,spec)==0)) {
-	    color->pixel= pixel;
-	    return color;
-	}
-    }
-    if ((geom->num_colors>=geom->sz_colors)&&
-					(_XkbAllocColors(geom,1)!=Success)) {
-	return NULL;
-    }
-    color= &geom->colors[geom->num_colors];
-    color->pixel= pixel;
-    color->spec= strdup(spec);
-    if (!color->spec)
-	return NULL;
-    geom->num_colors++;
-    return color;
-}
-
-XkbOutlinePtr
-XkbAddGeomOutline(XkbShapePtr shape,int sz_points)
-{
-XkbOutlinePtr	outline;
-
-    if ((!shape)||(sz_points<0))
-	return NULL;
-    if ((shape->num_outlines>=shape->sz_outlines)&&
-					(_XkbAllocOutlines(shape,1)!=Success)) {
-	return NULL;
-    }
-    outline= &shape->outlines[shape->num_outlines];
-    bzero(outline,sizeof(XkbOutlineRec));
-    if ((sz_points>0)&&(_XkbAllocPoints(outline,sz_points)!=Success))
-	return NULL;
-    shape->num_outlines++;
-    return outline;
-}
-
-XkbShapePtr
-XkbAddGeomShape(XkbGeometryPtr geom,Atom name,int sz_outlines)
-{
-XkbShapePtr	shape;
-register int	i;
-
-    if ((!geom)||(!name)||(sz_outlines<0))
-	return NULL;
-    if (geom->num_shapes>0) {
-	for (shape=geom->shapes,i=0;i<geom->num_shapes;i++,shape++) {
-	    if (name==shape->name)
-		return shape;
-	}
-    }
-    if ((geom->num_shapes>=geom->sz_shapes)&&
-					(_XkbAllocShapes(geom,1)!=Success))
-	return NULL;
-    shape= &geom->shapes[geom->num_shapes];
-    bzero(shape,sizeof(XkbShapeRec));
-    if ((sz_outlines>0)&&(_XkbAllocOutlines(shape,sz_outlines)!=Success))
-	return NULL;
-    shape->name= name;
-    shape->primary= shape->approx= NULL;
-    geom->num_shapes++;
-    return shape;
-}
-
-XkbKeyPtr
-XkbAddGeomKey(XkbRowPtr row)
-{
-XkbKeyPtr	key;
-    if (!row)
-	return NULL;
-    if ((row->num_keys>=row->sz_keys)&&(_XkbAllocKeys(row,1)!=Success))
-	return NULL;
-    key= &row->keys[row->num_keys++];
-    bzero(key,sizeof(XkbKeyRec));
-    return key;
-}
-
-XkbRowPtr
-XkbAddGeomRow(XkbSectionPtr section,int sz_keys)
-{
-XkbRowPtr	row;
-
-    if ((!section)||(sz_keys<0))
-	return NULL;
-    if ((section->num_rows>=section->sz_rows)&&
-    					(_XkbAllocRows(section,1)!=Success))
-	return NULL;
-    row= &section->rows[section->num_rows];
-    bzero(row,sizeof(XkbRowRec));
-    if ((sz_keys>0)&&(_XkbAllocKeys(row,sz_keys)!=Success))
-	return NULL;
-    section->num_rows++;
-    return row;
-}
-
-XkbSectionPtr
-XkbAddGeomSection(	XkbGeometryPtr	geom,
-			Atom		name,
-			int		sz_rows,
-			int		sz_doodads,
-			int		sz_over)
-{
-register int	i;
-XkbSectionPtr	section;
-
-    if ((!geom)||(name==None)||(sz_rows<0))
-	return NULL;
-    for (i=0,section=geom->sections;i<geom->num_sections;i++,section++) {
-	if (section->name!=name)
-	    continue;
-	if (((sz_rows>0)&&(_XkbAllocRows(section,sz_rows)!=Success))||
-	    ((sz_doodads>0)&&(_XkbAllocDoodads(section,sz_doodads)!=Success))||
-	    ((sz_over>0)&&(_XkbAllocOverlays(section,sz_over)!=Success)))
-	    return NULL;
-	return section;
-    }
-    if ((geom->num_sections>=geom->sz_sections)&&
-					(_XkbAllocSections(geom,1)!=Success))
-	return NULL;
-    section= &geom->sections[geom->num_sections];
-    if ((sz_rows>0)&&(_XkbAllocRows(section,sz_rows)!=Success))
-	return NULL;
-    if ((sz_doodads>0)&&(_XkbAllocDoodads(section,sz_doodads)!=Success)) {
-	if (section->rows) {
-	    _XkbFree(section->rows);
-	    section->rows= NULL;
-	    section->sz_rows= section->num_rows= 0;
-	}
-	return NULL;
-    }
-    section->name= name;
-    geom->num_sections++;
-    return section;
-}
-
-XkbDoodadPtr
-XkbAddGeomDoodad(XkbGeometryPtr geom,XkbSectionPtr section,Atom name)
-{
-XkbDoodadPtr	old,doodad;
-register int	i,nDoodads;
-
-    if ((!geom)||(name==None))
-	return NULL;
-    if ((section!=NULL)&&(section->num_doodads>0)) {
-	old= section->doodads;
-	nDoodads= section->num_doodads;
-    }
-    else {
-	old= geom->doodads;
-	nDoodads= geom->num_doodads;
-    }
-    for (i=0,doodad=old;i<nDoodads;i++,doodad++) {
-	if (doodad->any.name==name)
-	    return doodad;
-    }
-    if (section) {
-	if ((section->num_doodads>=geom->sz_doodads)&&
-	    (_XkbAllocDoodads(section,1)!=Success)) {
-	    return NULL;
-	}
-	doodad= &section->doodads[section->num_doodads++];
-    }
-    else {
-	if ((geom->num_doodads>=geom->sz_doodads)&&
-					(_XkbAllocDoodads(geom,1)!=Success))
-	    return NULL;
-	doodad= &geom->doodads[geom->num_doodads++];
-    }
-    bzero(doodad,sizeof(XkbDoodadRec));
-    doodad->any.name= name;
-    return doodad;
-}
-
-XkbOverlayKeyPtr
-XkbAddGeomOverlayKey(	XkbOverlayPtr		overlay,
-			XkbOverlayRowPtr 	row,
-			char *			over,
-			char *			under)
-{
-register int	i;
-XkbOverlayKeyPtr key;
-XkbSectionPtr	section;
-XkbRowPtr	row_under;
-Bool		found;
-
-    if ((!overlay)||(!row)||(!over)||(!under))
-	return NULL;
-    section= overlay->section_under;
-    if (row->row_under>=section->num_rows)
-	return NULL;
-    row_under= &section->rows[row->row_under];
-    for (i=0,found=False;i<row_under->num_keys;i++) {
-	if (strncmp(under,row_under->keys[i].name.name,XkbKeyNameLength)==0) {
-	    found= True;
-	    break;
-	}
-    }
-    if (!found)
-   	return NULL;
-    if ((row->num_keys>=row->sz_keys)&&(_XkbAllocOverlayKeys(row,1)!=Success))
-	return NULL;
-    key= &row->keys[row->num_keys];
-    strncpy(key->under.name,under,XkbKeyNameLength);
-    strncpy(key->over.name,over,XkbKeyNameLength);
-    row->num_keys++;
-    return key;
-}
-
-XkbOverlayRowPtr
-XkbAddGeomOverlayRow(XkbOverlayPtr overlay,int row_under,int sz_keys)
-{
-register int		i;
-XkbOverlayRowPtr	row;
-
-    if ((!overlay)||(sz_keys<0))
-	return NULL;
-    if (row_under>=overlay->section_under->num_rows)
-	return NULL;
-    for (i=0;i<overlay->num_rows;i++) {
-	if (overlay->rows[i].row_under==row_under) {
-	    row= &overlay->rows[i];
-	    if ((row->sz_keys<sz_keys)&&
-				(_XkbAllocOverlayKeys(row,sz_keys)!=Success)) {
-		return NULL;
-	    }
-	    return &overlay->rows[i];
-	}
-    }
-    if ((overlay->num_rows>=overlay->sz_rows)&&
-				(_XkbAllocOverlayRows(overlay,1)!=Success))
-	return NULL;
-    row= &overlay->rows[overlay->num_rows];
-    bzero(row,sizeof(XkbOverlayRowRec));
-    if ((sz_keys>0)&&(_XkbAllocOverlayKeys(row,sz_keys)!=Success))
-	return NULL;
-    row->row_under= row_under;
-    overlay->num_rows++;
-    return row;
-}
-
-XkbOverlayPtr
-XkbAddGeomOverlay(XkbSectionPtr section,Atom name,int sz_rows)
-{
-register int	i;
-XkbOverlayPtr	overlay;
-
-    if ((!section)||(name==None)||(sz_rows==0))
-	return NULL;
-
-    for (i=0,overlay=section->overlays;i<section->num_overlays;i++,overlay++) {
-	if (overlay->name==name) {
-	    if ((sz_rows>0)&&(_XkbAllocOverlayRows(overlay,sz_rows)!=Success))
-		return NULL;
-	    return overlay;
-	}
-    }
-    if ((section->num_overlays>=section->sz_overlays)&&
-				(_XkbAllocOverlays(section,1)!=Success))
-	return NULL;
-    overlay= &section->overlays[section->num_overlays];
-    if ((sz_rows>0)&&(_XkbAllocOverlayRows(overlay,sz_rows)!=Success))
-	return NULL;
-    overlay->name= name;
-    overlay->section_under= section;
-    section->num_overlays++;
-    return overlay;
-}
+/************************************************************

+Copyright (c) 1993 by Silicon Graphics Computer Systems, Inc.

+

+Permission to use, copy, modify, and distribute this

+software and its documentation for any purpose and without

+fee is hereby granted, provided that the above copyright

+notice appear in all copies and that both that copyright

+notice and this permission notice appear in supporting

+documentation, and that the name of Silicon Graphics not be

+used in advertising or publicity pertaining to distribution

+of the software without specific prior written permission.

+Silicon Graphics makes no representation about the suitability

+of this software for any purpose. It is provided "as is"

+without any express or implied warranty.

+

+SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS

+SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

+AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON

+GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL

+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,

+DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE

+OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH

+THE USE OR PERFORMANCE OF THIS SOFTWARE.

+

+********************************************************/

+

+#ifdef HAVE_DIX_CONFIG_H

+#include <dix-config.h>

+#elif defined(HAVE_CONFIG_H)

+#include <config.h>

+#endif

+

+#ifndef XKB_IN_SERVER

+

+#include <stdio.h>

+#include "Xlibint.h"

+#include "XKBlibint.h"

+#include <X11/extensions/XKBgeom.h>

+#include <X11/extensions/XKBproto.h>

+

+#else

+

+#include <stdio.h>

+#include <X11/X.h>

+#include <X11/Xproto.h>

+#include "misc.h"

+#include "inputstr.h"

+#include <X11/extensions/XKBsrv.h>

+#include <X11/extensions/XKBgeom.h>

+

+#endif /* XKB_IN_SERVER */

+

+#ifdef X_NOT_POSIX

+#define Size_t unsigned int

+#else

+#define Size_t size_t

+#endif

+

+/***====================================================================***/

+

+static void

+_XkbFreeGeomLeafElems(	Bool			freeAll,

+			int			first,

+			int 			count,

+			unsigned short *	num_inout,

+			unsigned short *	sz_inout,

+			char **			elems,

+			unsigned int		elem_sz)

+{

+    if ((freeAll)||(*elems==NULL)) {

+	*num_inout= *sz_inout= 0;

+	if (*elems!=NULL) {

+	    _XkbFree(*elems);

+	    *elems= NULL;

+	}

+	return;

+    }

+

+    if ((first>=(*num_inout))||(first<0)||(count<1))

+	return;

+

+    if (first+count>=(*num_inout)) {

+	/* truncating the array is easy */

+	(*num_inout)= first;

+    }

+    else {

+	char *	ptr;

+	int 	extra;

+	ptr= *elems;

+	extra= ((*num_inout)-(first+count))*elem_sz;

+	if (extra>0)

+	    memmove(&ptr[first*elem_sz],&ptr[(first+count)*elem_sz],extra);

+	(*num_inout)-= count;

+    }

+    return;

+}

+

+typedef void (*ContentsClearFunc)(

+		char *		/* priv */

+);

+

+static void

+_XkbFreeGeomNonLeafElems(	Bool			freeAll,

+				int			first,

+				int 			count,

+				unsigned short *	num_inout,

+				unsigned short *	sz_inout,

+				char **			elems,

+				unsigned int		elem_sz,

+				ContentsClearFunc	freeFunc)

+{

+register int i;

+register char *ptr;

+

+    if (freeAll) {

+	first= 0;

+	count= (*num_inout);

+    }

+    else if ((first>=(*num_inout))||(first<0)||(count<1))

+	return;

+    else if (first+count>(*num_inout))

+	count= (*num_inout)-first;

+    if (*elems==NULL)

+	return;

+

+    if (freeFunc) {

+	ptr= *elems;

+	ptr+= first*elem_sz;

+	for (i=0;i<count;i++) {

+	    (*freeFunc)(ptr);

+	    ptr+= elem_sz;

+	}

+    }

+    if (freeAll) {

+	(*num_inout)= (*sz_inout)= 0;

+	if (*elems) {

+	    _XkbFree(*elems);

+	    *elems= NULL;

+	}

+    }

+    else if (first+count>=(*num_inout))

+	*num_inout= first;

+    else {

+	i= ((*num_inout)-(first+count))*elem_sz;

+	ptr= *elems;

+	memmove(&ptr[first*elem_sz],&ptr[(first+count)*elem_sz],i);

+	(*num_inout)-= count;

+    }

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearProperty(char *prop_in)

+{

+XkbPropertyPtr	prop= (XkbPropertyPtr)prop_in;

+

+    if (prop->name) {

+	_XkbFree(prop->name);

+	prop->name= NULL;

+    }

+    if (prop->value) {

+	_XkbFree(prop->value);

+	prop->value= NULL;

+    }

+    return;

+}

+

+void

+XkbFreeGeomProperties(	XkbGeometryPtr	geom,

+			int		first,

+			int		count,

+			Bool		freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&geom->num_properties,&geom->sz_properties,

+				(char **)&geom->properties,

+				sizeof(XkbPropertyRec),_XkbClearProperty);

+    return;

+}

+

+/***====================================================================***/

+

+void

+XkbFreeGeomKeyAliases(	XkbGeometryPtr	geom,

+			int		first,

+			int		count,

+			Bool		freeAll)

+{

+    _XkbFreeGeomLeafElems(freeAll,first,count,

+				&geom->num_key_aliases,&geom->sz_key_aliases,

+				(char **)&geom->key_aliases,

+				sizeof(XkbKeyAliasRec));

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearColor(char *color_in)

+{

+XkbColorPtr	color= (XkbColorPtr)color_in;

+

+    if (color->spec)

+	_XkbFree(color->spec);

+    return;

+}

+

+void

+XkbFreeGeomColors(XkbGeometryPtr geom,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&geom->num_colors,&geom->sz_colors,

+				(char **)&geom->colors,

+				sizeof(XkbColorRec),_XkbClearColor);

+    return;

+}

+

+/***====================================================================***/

+

+void

+XkbFreeGeomPoints(XkbOutlinePtr outline,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomLeafElems(freeAll,first,count,

+				&outline->num_points,&outline->sz_points,

+				(char **)&outline->points,

+				sizeof(XkbPointRec));

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearOutline(char *outline_in)

+{

+XkbOutlinePtr	outline= (XkbOutlinePtr)outline_in;

+

+    if (outline->points!=NULL)

+	XkbFreeGeomPoints(outline,0,outline->num_points,True);

+    return;

+}

+

+void

+XkbFreeGeomOutlines(XkbShapePtr	shape,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&shape->num_outlines,&shape->sz_outlines,

+				(char **)&shape->outlines,

+				sizeof(XkbOutlineRec),_XkbClearOutline);

+

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearShape(char *shape_in)

+{

+XkbShapePtr	shape= (XkbShapePtr)shape_in;

+

+    if (shape->outlines)

+	XkbFreeGeomOutlines(shape,0,shape->num_outlines,True);

+    return;

+}

+

+void

+XkbFreeGeomShapes(XkbGeometryPtr geom,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&geom->num_shapes,&geom->sz_shapes,

+				(char **)&geom->shapes,

+				sizeof(XkbShapeRec),_XkbClearShape);

+    return;

+}

+

+/***====================================================================***/

+

+void

+XkbFreeGeomOverlayKeys(XkbOverlayRowPtr row,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomLeafElems(freeAll,first,count,

+				&row->num_keys,&row->sz_keys,

+				(char **)&row->keys,

+				sizeof(XkbOverlayKeyRec));

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearOverlayRow(char *row_in)

+{

+XkbOverlayRowPtr	row= (XkbOverlayRowPtr)row_in;

+

+    if (row->keys!=NULL)

+	XkbFreeGeomOverlayKeys(row,0,row->num_keys,True);

+    return;

+}

+

+void

+XkbFreeGeomOverlayRows(XkbOverlayPtr overlay,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&overlay->num_rows,&overlay->sz_rows,

+				(char **)&overlay->rows,

+				sizeof(XkbOverlayRowRec),_XkbClearOverlayRow);

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearOverlay(char *overlay_in)

+{

+XkbOverlayPtr	overlay= (XkbOverlayPtr)overlay_in;

+

+    if (overlay->rows!=NULL)

+	XkbFreeGeomOverlayRows(overlay,0,overlay->num_rows,True);

+    return;

+}

+

+void

+XkbFreeGeomOverlays(XkbSectionPtr section,int first,int	count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&section->num_overlays,&section->sz_overlays,

+				(char **)&section->overlays,

+				sizeof(XkbOverlayRec),_XkbClearOverlay);

+    return;

+}

+

+/***====================================================================***/

+

+void

+XkbFreeGeomKeys(XkbRowPtr row,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomLeafElems(freeAll,first,count,

+				&row->num_keys,&row->sz_keys,

+				(char **)&row->keys,

+				sizeof(XkbKeyRec));

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearRow(char *row_in)

+{

+XkbRowPtr	row= (XkbRowPtr)row_in;

+

+    if (row->keys!=NULL)

+	XkbFreeGeomKeys(row,0,row->num_keys,True);

+    return;

+}

+

+void

+XkbFreeGeomRows(XkbSectionPtr section,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&section->num_rows,&section->sz_rows,

+				(char **)&section->rows,

+				sizeof(XkbRowRec),_XkbClearRow);

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearSection(char *section_in)

+{

+XkbSectionPtr	section= (XkbSectionPtr)section_in;

+

+    if (section->rows!=NULL)

+	XkbFreeGeomRows(section,0,section->num_rows,True);

+    if (section->doodads!=NULL) {

+	XkbFreeGeomDoodads(section->doodads,section->num_doodads,True);

+	section->doodads= NULL;

+    }

+    return;

+}

+

+void

+XkbFreeGeomSections(XkbGeometryPtr geom,int first,int count,Bool freeAll)

+{

+    _XkbFreeGeomNonLeafElems(freeAll,first,count,

+				&geom->num_sections,&geom->sz_sections,

+				(char **)&geom->sections,

+				sizeof(XkbSectionRec),_XkbClearSection);

+    return;

+}

+

+/***====================================================================***/

+

+static void

+_XkbClearDoodad(char *doodad_in)

+{

+XkbDoodadPtr	doodad= (XkbDoodadPtr)doodad_in;

+

+    switch (doodad->any.type) {

+   	case XkbTextDoodad:

+	    {

+		if (doodad->text.text!=NULL) {

+		    _XkbFree(doodad->text.text);

+		    doodad->text.text= NULL;

+		}

+		if (doodad->text.font!=NULL) {

+		    _XkbFree(doodad->text.font);

+		    doodad->text.font= NULL;

+		}

+	    }

+	    break;

+   	case XkbLogoDoodad:

+	    {

+		if (doodad->logo.logo_name!=NULL) {

+		    _XkbFree(doodad->logo.logo_name);

+		    doodad->logo.logo_name= NULL;

+		}

+	    }

+	    break;

+    }

+    return;

+}

+

+void

+XkbFreeGeomDoodads(XkbDoodadPtr doodads,int nDoodads,Bool freeAll)

+{

+register int 		i;

+register XkbDoodadPtr	doodad;

+

+    if (doodads) {

+	for (i=0,doodad= doodads;i<nDoodads;i++,doodad++) {

+	    _XkbClearDoodad((char *)doodad);

+	}

+	if (freeAll)

+	    _XkbFree(doodads);

+    }

+    return;

+}

+

+void

+XkbFreeGeometry(XkbGeometryPtr geom,unsigned which,Bool freeMap)

+{

+    if (geom==NULL)

+	return;

+    if (freeMap)

+	which= XkbGeomAllMask;

+    if ((which&XkbGeomPropertiesMask)&&(geom->properties!=NULL))

+	XkbFreeGeomProperties(geom,0,geom->num_properties,True);

+    if ((which&XkbGeomColorsMask)&&(geom->colors!=NULL))

+	XkbFreeGeomColors(geom,0,geom->num_colors,True);

+    if ((which&XkbGeomShapesMask)&&(geom->shapes!=NULL))

+	XkbFreeGeomShapes(geom,0,geom->num_shapes,True);

+    if ((which&XkbGeomSectionsMask)&&(geom->sections!=NULL))

+	XkbFreeGeomSections(geom,0,geom->num_sections,True);

+    if ((which&XkbGeomDoodadsMask)&&(geom->doodads!= NULL)) {

+	XkbFreeGeomDoodads(geom->doodads,geom->num_doodads,True);

+	geom->doodads= NULL;

+	geom->num_doodads= geom->sz_doodads= 0;

+    }

+    if ((which&XkbGeomKeyAliasesMask)&&(geom->key_aliases!=NULL))

+	XkbFreeGeomKeyAliases(geom,0,geom->num_key_aliases,True);

+    if (freeMap) {

+	if (geom->label_font!=NULL) {

+	    _XkbFree(geom->label_font);

+	    geom->label_font= NULL;

+	}

+	_XkbFree(geom);

+    }

+    return;

+}

+

+/***====================================================================***/

+

+static Status

+_XkbGeomAlloc(	XPointer *		old,

+		unsigned short *	num,

+		unsigned short *	total,

+		int			num_new,

+		Size_t			sz_elem)

+{

+    if (num_new<1)

+	return Success;

+    if ((*old)==NULL)

+	*num= *total= 0;

+

+    if ((*num)+num_new<=(*total))

+	return Success;

+

+    *total= (*num)+num_new;

+    if ((*old)!=NULL)

+	 (*old)= (XPointer)_XkbRealloc((*old),(*total)*sz_elem);

+    else (*old)= (XPointer)_XkbCalloc((*total),sz_elem);

+    if ((*old)==NULL) {

+	*total= *num= 0;

+	return BadAlloc;

+    }

+

+    if (*num>0) {

+	char *tmp= (char *)(*old);

+	bzero(&tmp[sz_elem*(*num)],(num_new*sz_elem));

+    }

+    return Success;

+}

+

+#define	_XkbAllocProps(g,n) _XkbGeomAlloc((XPointer *)&(g)->properties,\

+				&(g)->num_properties,&(g)->sz_properties,\

+				(n),sizeof(XkbPropertyRec))

+#define	_XkbAllocColors(g,n) _XkbGeomAlloc((XPointer *)&(g)->colors,\

+				&(g)->num_colors,&(g)->sz_colors,\

+				(n),sizeof(XkbColorRec))

+#define	_XkbAllocShapes(g,n) _XkbGeomAlloc((XPointer *)&(g)->shapes,\

+				&(g)->num_shapes,&(g)->sz_shapes,\

+				(n),sizeof(XkbShapeRec))

+#define	_XkbAllocSections(g,n) _XkbGeomAlloc((XPointer *)&(g)->sections,\

+				&(g)->num_sections,&(g)->sz_sections,\

+				(n),sizeof(XkbSectionRec))

+#define	_XkbAllocDoodads(g,n) _XkbGeomAlloc((XPointer *)&(g)->doodads,\

+				&(g)->num_doodads,&(g)->sz_doodads,\

+				(n),sizeof(XkbDoodadRec))

+#define	_XkbAllocKeyAliases(g,n) _XkbGeomAlloc((XPointer *)&(g)->key_aliases,\

+				&(g)->num_key_aliases,&(g)->sz_key_aliases,\

+				(n),sizeof(XkbKeyAliasRec))

+

+#define	_XkbAllocOutlines(s,n) _XkbGeomAlloc((XPointer *)&(s)->outlines,\

+				&(s)->num_outlines,&(s)->sz_outlines,\

+				(n),sizeof(XkbOutlineRec))

+#define	_XkbAllocRows(s,n) _XkbGeomAlloc((XPointer *)&(s)->rows,\

+				&(s)->num_rows,&(s)->sz_rows,\

+				(n),sizeof(XkbRowRec))

+#define	_XkbAllocPoints(o,n) _XkbGeomAlloc((XPointer *)&(o)->points,\

+				&(o)->num_points,&(o)->sz_points,\

+				(n),sizeof(XkbPointRec))

+#define	_XkbAllocKeys(r,n) _XkbGeomAlloc((XPointer *)&(r)->keys,\

+				&(r)->num_keys,&(r)->sz_keys,\

+				(n),sizeof(XkbKeyRec))

+#define	_XkbAllocOverlays(s,n) _XkbGeomAlloc((XPointer *)&(s)->overlays,\

+				&(s)->num_overlays,&(s)->sz_overlays,\

+				(n),sizeof(XkbOverlayRec))

+#define	_XkbAllocOverlayRows(o,n) _XkbGeomAlloc((XPointer *)&(o)->rows,\

+				&(o)->num_rows,&(o)->sz_rows,\

+				(n),sizeof(XkbOverlayRowRec))

+#define	_XkbAllocOverlayKeys(r,n) _XkbGeomAlloc((XPointer *)&(r)->keys,\

+				&(r)->num_keys,&(r)->sz_keys,\

+				(n),sizeof(XkbOverlayKeyRec))

+

+Status

+XkbAllocGeomProps(XkbGeometryPtr geom,int nProps)

+{

+    return _XkbAllocProps(geom,nProps);

+}

+

+Status

+XkbAllocGeomColors(XkbGeometryPtr geom,int nColors)

+{

+    return _XkbAllocColors(geom,nColors);

+}

+

+Status

+XkbAllocGeomKeyAliases(XkbGeometryPtr geom,int nKeyAliases)

+{

+    return _XkbAllocKeyAliases(geom,nKeyAliases);

+}

+

+Status

+XkbAllocGeomShapes(XkbGeometryPtr geom,int nShapes)

+{

+    return _XkbAllocShapes(geom,nShapes);

+}

+

+Status

+XkbAllocGeomSections(XkbGeometryPtr geom,int nSections)

+{

+    return _XkbAllocSections(geom,nSections);

+}

+

+Status

+XkbAllocGeomOverlays(XkbSectionPtr section,int nOverlays)

+{

+    return _XkbAllocOverlays(section,nOverlays);

+}

+

+Status

+XkbAllocGeomOverlayRows(XkbOverlayPtr overlay,int nRows)

+{

+    return _XkbAllocOverlayRows(overlay,nRows);

+}

+

+Status

+XkbAllocGeomOverlayKeys(XkbOverlayRowPtr row,int nKeys)

+{

+    return _XkbAllocOverlayKeys(row,nKeys);

+}

+

+Status

+XkbAllocGeomDoodads(XkbGeometryPtr geom,int nDoodads)

+{

+    return _XkbAllocDoodads(geom,nDoodads);

+}

+

+Status

+XkbAllocGeomSectionDoodads(XkbSectionPtr section,int nDoodads)

+{

+    return _XkbAllocDoodads(section,nDoodads);

+}

+

+Status

+XkbAllocGeomOutlines(XkbShapePtr shape,int nOL)

+{

+    return _XkbAllocOutlines(shape,nOL);

+}

+

+Status

+XkbAllocGeomRows(XkbSectionPtr section,int nRows)

+{

+    return _XkbAllocRows(section,nRows);

+}

+

+Status

+XkbAllocGeomPoints(XkbOutlinePtr ol,int nPts)

+{

+    return _XkbAllocPoints(ol,nPts);

+}

+

+Status

+XkbAllocGeomKeys(XkbRowPtr row,int nKeys)

+{

+    return _XkbAllocKeys(row,nKeys);

+}

+

+Status

+XkbAllocGeometry(XkbDescPtr xkb,XkbGeometrySizesPtr sizes)

+{

+XkbGeometryPtr	geom;

+Status		rtrn;

+

+    if (xkb->geom==NULL) {

+	xkb->geom= _XkbTypedCalloc(1,XkbGeometryRec);

+	if (!xkb->geom)

+	    return BadAlloc;

+    }

+    geom= xkb->geom;

+    if ((sizes->which&XkbGeomPropertiesMask)&&

+	((rtrn=_XkbAllocProps(geom,sizes->num_properties))!=Success)) {

+	goto BAIL;

+    }

+    if ((sizes->which&XkbGeomColorsMask)&&

+	((rtrn=_XkbAllocColors(geom,sizes->num_colors))!=Success)) {

+	goto BAIL;

+    }

+    if ((sizes->which&XkbGeomShapesMask)&&

+	((rtrn=_XkbAllocShapes(geom,sizes->num_shapes))!=Success)) {

+	goto BAIL;

+    }

+    if ((sizes->which&XkbGeomSectionsMask)&&

+	((rtrn=_XkbAllocSections(geom,sizes->num_sections))!=Success)) {

+	goto BAIL;

+    }

+    if ((sizes->which&XkbGeomDoodadsMask)&&

+	((rtrn=_XkbAllocDoodads(geom,sizes->num_doodads))!=Success)) {

+	goto BAIL;

+    }

+    if ((sizes->which&XkbGeomKeyAliasesMask)&&

+	((rtrn=_XkbAllocKeyAliases(geom,sizes->num_key_aliases))!=Success)) {

+	goto BAIL;

+    }

+    return Success;

+BAIL:

+    XkbFreeGeometry(geom,XkbGeomAllMask,True);

+    xkb->geom= NULL;

+    return rtrn;

+}

+

+/***====================================================================***/

+

+XkbPropertyPtr

+XkbAddGeomProperty(XkbGeometryPtr geom,char *name,char *value)

+{

+register int i;

+register XkbPropertyPtr prop;

+

+    if ((!geom)||(!name)||(!value))

+	return NULL;

+    for (i=0,prop=geom->properties;i<geom->num_properties;i++,prop++) {

+	if ((prop->name)&&(strcmp(name,prop->name)==0)) {

+	    if (prop->value)

+		_XkbFree(prop->value);

+	    prop->value= strdup(value);

+	    return prop;

+	}

+    }

+    if ((geom->num_properties>=geom->sz_properties)&&

+					(_XkbAllocProps(geom,1)!=Success)) {

+	return NULL;

+    }

+    prop= &geom->properties[geom->num_properties];

+    prop->name= strdup(name);

+    if (!prop->name)

+	return NULL;

+    prop->value= strdup(value);

+    if (!prop->value) {

+	_XkbFree(prop->name);

+	prop->name= NULL;

+	return NULL;

+    }

+    geom->num_properties++;

+    return prop;

+}

+

+XkbKeyAliasPtr

+XkbAddGeomKeyAlias(XkbGeometryPtr geom,char *aliasStr,char *realStr)

+{

+register int i;

+register XkbKeyAliasPtr alias;

+

+    if ((!geom)||(!aliasStr)||(!realStr)||(!aliasStr[0])||(!realStr[0]))

+	return NULL;

+    for (i=0,alias=geom->key_aliases;i<geom->num_key_aliases;i++,alias++) {

+	if (strncmp(alias->alias,aliasStr,XkbKeyNameLength)==0) {

+	    bzero(alias->real,XkbKeyNameLength);

+	    strncpy(alias->real,realStr,XkbKeyNameLength);

+	    return alias;

+	}

+    }

+    if ((geom->num_key_aliases>=geom->sz_key_aliases)&&

+				(_XkbAllocKeyAliases(geom,1)!=Success)) {

+	return NULL;

+    }

+    alias= &geom->key_aliases[geom->num_key_aliases];

+    bzero(alias,sizeof(XkbKeyAliasRec));

+    strncpy(alias->alias,aliasStr,XkbKeyNameLength);

+    strncpy(alias->real,realStr,XkbKeyNameLength);

+    geom->num_key_aliases++;

+    return alias;

+}

+

+XkbColorPtr

+XkbAddGeomColor(XkbGeometryPtr geom,char *spec,unsigned int pixel)

+{

+register int i;

+register XkbColorPtr color;

+

+    if ((!geom)||(!spec))

+	return NULL;

+    for (i=0,color=geom->colors;i<geom->num_colors;i++,color++) {

+	if ((color->spec)&&(strcmp(color->spec,spec)==0)) {

+	    color->pixel= pixel;

+	    return color;

+	}

+    }

+    if ((geom->num_colors>=geom->sz_colors)&&

+					(_XkbAllocColors(geom,1)!=Success)) {

+	return NULL;

+    }

+    color= &geom->colors[geom->num_colors];

+    color->pixel= pixel;

+    color->spec= strdup(spec);

+    if (!color->spec)

+	return NULL;

+    geom->num_colors++;

+    return color;

+}

+

+XkbOutlinePtr

+XkbAddGeomOutline(XkbShapePtr shape,int sz_points)

+{

+XkbOutlinePtr	outline;

+

+    if ((!shape)||(sz_points<0))

+	return NULL;

+    if ((shape->num_outlines>=shape->sz_outlines)&&

+					(_XkbAllocOutlines(shape,1)!=Success)) {

+	return NULL;

+    }

+    outline= &shape->outlines[shape->num_outlines];

+    bzero(outline,sizeof(XkbOutlineRec));

+    if ((sz_points>0)&&(_XkbAllocPoints(outline,sz_points)!=Success))

+	return NULL;

+    shape->num_outlines++;

+    return outline;

+}

+

+XkbShapePtr

+XkbAddGeomShape(XkbGeometryPtr geom,Atom name,int sz_outlines)

+{

+XkbShapePtr	shape;

+register int	i;

+

+    if ((!geom)||(!name)||(sz_outlines<0))

+	return NULL;

+    if (geom->num_shapes>0) {

+	for (shape=geom->shapes,i=0;i<geom->num_shapes;i++,shape++) {

+	    if (name==shape->name)

+		return shape;

+	}

+    }

+    if ((geom->num_shapes>=geom->sz_shapes)&&

+					(_XkbAllocShapes(geom,1)!=Success))

+	return NULL;

+    shape= &geom->shapes[geom->num_shapes];

+    bzero(shape,sizeof(XkbShapeRec));

+    if ((sz_outlines>0)&&(_XkbAllocOutlines(shape,sz_outlines)!=Success))

+	return NULL;

+    shape->name= name;

+    shape->primary= shape->approx= NULL;

+    geom->num_shapes++;

+    return shape;

+}

+

+XkbKeyPtr

+XkbAddGeomKey(XkbRowPtr row)

+{

+XkbKeyPtr	key;

+    if (!row)

+	return NULL;

+    if ((row->num_keys>=row->sz_keys)&&(_XkbAllocKeys(row,1)!=Success))

+	return NULL;

+    key= &row->keys[row->num_keys++];

+    bzero(key,sizeof(XkbKeyRec));

+    return key;

+}

+

+XkbRowPtr

+XkbAddGeomRow(XkbSectionPtr section,int sz_keys)

+{

+XkbRowPtr	row;

+

+    if ((!section)||(sz_keys<0))

+	return NULL;

+    if ((section->num_rows>=section->sz_rows)&&

+    					(_XkbAllocRows(section,1)!=Success))

+	return NULL;

+    row= &section->rows[section->num_rows];

+    bzero(row,sizeof(XkbRowRec));

+    if ((sz_keys>0)&&(_XkbAllocKeys(row,sz_keys)!=Success))

+	return NULL;

+    section->num_rows++;

+    return row;

+}

+

+XkbSectionPtr

+XkbAddGeomSection(	XkbGeometryPtr	geom,

+			Atom		name,

+			int		sz_rows,

+			int		sz_doodads,

+			int		sz_over)

+{

+register int	i;

+XkbSectionPtr	section;

+

+    if ((!geom)||(name==None)||(sz_rows<0))

+	return NULL;

+    for (i=0,section=geom->sections;i<geom->num_sections;i++,section++) {

+	if (section->name!=name)

+	    continue;

+	if (((sz_rows>0)&&(_XkbAllocRows(section,sz_rows)!=Success))||

+	    ((sz_doodads>0)&&(_XkbAllocDoodads(section,sz_doodads)!=Success))||

+	    ((sz_over>0)&&(_XkbAllocOverlays(section,sz_over)!=Success)))

+	    return NULL;

+	return section;

+    }

+    if ((geom->num_sections>=geom->sz_sections)&&

+					(_XkbAllocSections(geom,1)!=Success))

+	return NULL;

+    section= &geom->sections[geom->num_sections];

+    if ((sz_rows>0)&&(_XkbAllocRows(section,sz_rows)!=Success))

+	return NULL;

+    if ((sz_doodads>0)&&(_XkbAllocDoodads(section,sz_doodads)!=Success)) {

+	if (section->rows) {

+	    _XkbFree(section->rows);

+	    section->rows= NULL;

+	    section->sz_rows= section->num_rows= 0;

+	}

+	return NULL;

+    }

+    section->name= name;

+    geom->num_sections++;

+    return section;

+}

+

+XkbDoodadPtr

+XkbAddGeomDoodad(XkbGeometryPtr geom,XkbSectionPtr section,Atom name)

+{

+XkbDoodadPtr	old,doodad;

+register int	i,nDoodads;

+

+    if ((!geom)||(name==None))

+	return NULL;

+    if ((section!=NULL)&&(section->num_doodads>0)) {

+	old= section->doodads;

+	nDoodads= section->num_doodads;

+    }

+    else {

+	old= geom->doodads;

+	nDoodads= geom->num_doodads;

+    }

+    for (i=0,doodad=old;i<nDoodads;i++,doodad++) {

+	if (doodad->any.name==name)

+	    return doodad;

+    }

+    if (section) {

+	if ((section->num_doodads>=geom->sz_doodads)&&

+	    (_XkbAllocDoodads(section,1)!=Success)) {

+	    return NULL;

+	}

+	doodad= &section->doodads[section->num_doodads++];

+    }

+    else {

+	if ((geom->num_doodads>=geom->sz_doodads)&&

+					(_XkbAllocDoodads(geom,1)!=Success))

+	    return NULL;

+	doodad= &geom->doodads[geom->num_doodads++];

+    }

+    bzero(doodad,sizeof(XkbDoodadRec));

+    doodad->any.name= name;

+    return doodad;

+}

+

+XkbOverlayKeyPtr

+XkbAddGeomOverlayKey(	XkbOverlayPtr		overlay,

+			XkbOverlayRowPtr 	row,

+			char *			over,

+			char *			under)

+{

+register int	i;

+XkbOverlayKeyPtr key;

+XkbSectionPtr	section;

+XkbRowPtr	row_under;

+Bool		found;

+

+    if ((!overlay)||(!row)||(!over)||(!under))

+	return NULL;

+    section= overlay->section_under;

+    if (row->row_under>=section->num_rows)

+	return NULL;

+    row_under= &section->rows[row->row_under];

+    for (i=0,found=False;i<row_under->num_keys;i++) {

+	if (strncmp(under,row_under->keys[i].name.name,XkbKeyNameLength)==0) {

+	    found= True;

+	    break;

+	}

+    }

+    if (!found)

+   	return NULL;

+    if ((row->num_keys>=row->sz_keys)&&(_XkbAllocOverlayKeys(row,1)!=Success))

+	return NULL;

+    key= &row->keys[row->num_keys];

+    strncpy(key->under.name,under,XkbKeyNameLength);

+    strncpy(key->over.name,over,XkbKeyNameLength);

+    row->num_keys++;

+    return key;

+}

+

+XkbOverlayRowPtr

+XkbAddGeomOverlayRow(XkbOverlayPtr overlay,int row_under,int sz_keys)

+{

+register int		i;

+XkbOverlayRowPtr	row;

+

+    if ((!overlay)||(sz_keys<0))

+	return NULL;

+    if (row_under>=overlay->section_under->num_rows)

+	return NULL;

+    for (i=0;i<overlay->num_rows;i++) {

+	if (overlay->rows[i].row_under==row_under) {

+	    row= &overlay->rows[i];

+	    if ((row->sz_keys<sz_keys)&&

+				(_XkbAllocOverlayKeys(row,sz_keys)!=Success)) {

+		return NULL;

+	    }

+	    return &overlay->rows[i];

+	}

+    }

+    if ((overlay->num_rows>=overlay->sz_rows)&&

+				(_XkbAllocOverlayRows(overlay,1)!=Success))

+	return NULL;

+    row= &overlay->rows[overlay->num_rows];

+    bzero(row,sizeof(XkbOverlayRowRec));

+    if ((sz_keys>0)&&(_XkbAllocOverlayKeys(row,sz_keys)!=Success))

+	return NULL;

+    row->row_under= row_under;

+    overlay->num_rows++;

+    return row;

+}

+

+XkbOverlayPtr

+XkbAddGeomOverlay(XkbSectionPtr section,Atom name,int sz_rows)

+{

+register int	i;

+XkbOverlayPtr	overlay;

+

+    if ((!section)||(name==None)||(sz_rows==0))

+	return NULL;

+

+    for (i=0,overlay=section->overlays;i<section->num_overlays;i++,overlay++) {

+	if (overlay->name==name) {

+	    if ((sz_rows>0)&&(_XkbAllocOverlayRows(overlay,sz_rows)!=Success))

+		return NULL;

+	    return overlay;

+	}

+    }

+    if ((section->num_overlays>=section->sz_overlays)&&

+				(_XkbAllocOverlays(section,1)!=Success))

+	return NULL;

+    overlay= &section->overlays[section->num_overlays];

+    if ((sz_rows>0)&&(_XkbAllocOverlayRows(overlay,sz_rows)!=Success))

+	return NULL;

+    overlay->name= name;

+    overlay->section_under= section;

+    section->num_overlays++;

+    return overlay;

+}

diff --git a/libX11/src/xkb/XKBGeom.c b/libX11/src/xkb/XKBGeom.c
index 7594a3de4..d8fe3ce32 100644
--- a/libX11/src/xkb/XKBGeom.c
+++ b/libX11/src/xkb/XKBGeom.c
@@ -1,692 +1,688 @@
-/************************************************************
-Copyright (c) 1993 by Silicon Graphics Computer Systems, Inc.
-
-Permission to use, copy, modify, and distribute this
-software and its documentation for any purpose and without
-fee is hereby granted, provided that the above copyright
-notice appear in all copies and that both that copyright
-notice and this permission notice appear in supporting
-documentation, and that the name of Silicon Graphics not be
-used in advertising or publicity pertaining to distribution
-of the software without specific prior written permission.
-Silicon Graphics makes no representation about the suitability
-of this software for any purpose. It is provided "as is"
-without any express or implied warranty.
-
-SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
-SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
-AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
-GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
-DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
-DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
-OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH
-THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-********************************************************/
-
-#ifdef DEBUG
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#endif
-
-#define NEED_MAP_READERS
-#include "Xlibint.h"
-#include <X11/extensions/XKBgeom.h>
-#include <X11/extensions/XKBproto.h>
-#include "XKBlibint.h"
-
-#ifndef MINSHORT
-#define	MINSHORT	-32768
-#endif
-#ifndef MAXSHORT
-#define	MAXSHORT	32767
-#endif
-
-/***====================================================================***/
-
-static void
-_XkbCheckBounds(XkbBoundsPtr bounds,int	x,int y)
-{
-    if (x<bounds->x1)	bounds->x1= x;
-    if (x>bounds->x2)	bounds->x2= x;
-    if (y<bounds->y1)	bounds->y1= y;
-    if (y>bounds->y2)	bounds->y2= y;
-    return;
-}
-
-Bool
-XkbComputeShapeBounds(XkbShapePtr shape)
-{
-register int	o,p;
-XkbOutlinePtr	outline;
-XkbPointPtr	pt;
-
-    if ((!shape)||(shape->num_outlines<1))
-	return False;
-    shape->bounds.x1= shape->bounds.y1= MAXSHORT;
-    shape->bounds.x2= shape->bounds.y2= MINSHORT;
-    for (outline=shape->outlines,o=0;o<shape->num_outlines;o++,outline++) {
-	for (pt=outline->points,p=0;p<outline->num_points;p++,pt++) {
-	    _XkbCheckBounds(&shape->bounds,pt->x,pt->y);
-	}
-        if (outline->num_points<2) {
-            _XkbCheckBounds(&shape->bounds,0,0);
-        }
-    }
-    return True;
-}
-
-Bool
-XkbComputeShapeTop(XkbShapePtr shape,XkbBoundsPtr bounds)
-{
-register int	p;
-XkbOutlinePtr	outline;
-XkbPointPtr	pt;
-
-    if ((!shape)||(shape->num_outlines<1))
-	return False;
-    if (shape->approx)	outline= shape->approx;
-    else		outline= &shape->outlines[shape->num_outlines-1];
-    if (outline->num_points<2) {
-	 bounds->x1= bounds->y1= 0;
-	 bounds->x2= bounds->y2= 0;
-    }
-    else {
-	bounds->x1= bounds->y1= MAXSHORT;
-	bounds->x2= bounds->y2= MINSHORT;
-    }
-    for (pt=outline->points,p=0;p<outline->num_points;p++,pt++) {
-	_XkbCheckBounds(bounds,pt->x,pt->y);
-    }
-    return True;
-}
-
-Bool
-XkbComputeRowBounds(XkbGeometryPtr geom,XkbSectionPtr section,XkbRowPtr row)
-{
-register int	k,pos;
-XkbKeyPtr	key;
-XkbBoundsPtr	bounds,sbounds;
-
-    if ((!geom)||(!section)||(!row))
-	return False;
-    bounds= &row->bounds;
-    bzero(bounds,sizeof(XkbBoundsRec));
-    for (key=row->keys,pos=k=0;k<row->num_keys;k++,key++) {
-	sbounds= &XkbKeyShape(geom,key)->bounds;
-	_XkbCheckBounds(bounds,pos,0);
-	if (!row->vertical) {
-	    if (key->gap!=0) {
-		pos+= key->gap;
-		_XkbCheckBounds(bounds,pos,0);
-	    }
-	    _XkbCheckBounds(bounds,pos+sbounds->x1,sbounds->y1);
-	    _XkbCheckBounds(bounds,pos+sbounds->x2,sbounds->y2);
-	    pos+= sbounds->x2;
-	}
-	else {
-	    if (key->gap!=0) {
-		pos+= key->gap;
-		_XkbCheckBounds(bounds,0,pos);
-	    }
-	    _XkbCheckBounds(bounds,pos+sbounds->x1,sbounds->y1);
-	    _XkbCheckBounds(bounds,pos+sbounds->x2,sbounds->y2);
-	    pos+= sbounds->y2;
-	}
-    }
-    return True;
-}
-
-Bool
-XkbComputeSectionBounds(XkbGeometryPtr geom,XkbSectionPtr section)
-{
-register int	i;
-XkbShapePtr	shape;
-XkbRowPtr	row;
-XkbDoodadPtr	doodad;
-XkbBoundsPtr	bounds,rbounds;
-
-    if ((!geom)||(!section))
-	return False;
-    bounds= &section->bounds;
-    bzero(bounds,sizeof(XkbBoundsRec));
-    for (i=0,row=section->rows;i<section->num_rows;i++,row++) {
-	if (!XkbComputeRowBounds(geom,section,row))
-	    return False;
-	rbounds= &row->bounds;
-	_XkbCheckBounds(bounds,row->left+rbounds->x1,row->top+rbounds->y1);
-	_XkbCheckBounds(bounds,row->left+rbounds->x2,row->top+rbounds->y2);
-    }
-    for (i=0,doodad=section->doodads;i<section->num_doodads;i++,doodad++) {
-	static XkbBoundsRec	tbounds;
-	switch (doodad->any.type) {
-	    case XkbOutlineDoodad:
-	    case XkbSolidDoodad:
-		shape= XkbShapeDoodadShape(geom,&doodad->shape);
-		rbounds= &shape->bounds;
-		break;
-	    case XkbTextDoodad:
-		tbounds.x1= doodad->text.left;
-		tbounds.y1= doodad->text.top;
-		tbounds.x2= tbounds.x1+doodad->text.width;
-		tbounds.y2= tbounds.y1+doodad->text.height;
-		rbounds= &tbounds;
-		break;
-	    case XkbIndicatorDoodad:
-		shape= XkbIndicatorDoodadShape(geom,&doodad->indicator);
-		rbounds= &shape->bounds;
-		break;
-	    case XkbLogoDoodad:
-		shape= XkbLogoDoodadShape(geom,&doodad->logo);
-		rbounds= &shape->bounds;
-		break;
-	    default:
-		tbounds.x1= tbounds.x2= doodad->any.left;
-		tbounds.y1= tbounds.y2= doodad->any.top;
-		rbounds= &tbounds;
-		break;
-	}
-	_XkbCheckBounds(bounds,rbounds->x1,rbounds->y1);
-	_XkbCheckBounds(bounds,rbounds->x2,rbounds->y2);
-    }
-    return True;
-}
-
-/***====================================================================***/
-
-char *
-XkbFindOverlayForKey(XkbGeometryPtr geom,XkbSectionPtr wanted,char *under)
-{
-int		s;
-XkbSectionPtr	section;
-
-    if ((geom==NULL)||(under==NULL)||(geom->num_sections<1))
-	return NULL;
-
-    if (wanted)
-	 section= wanted;
-    else section= geom->sections;
-
-    for (s=0;s<geom->num_sections;s++,section++) {
-	XkbOverlayPtr	ol;
-	int		o;
-
-	if (section->num_overlays<1)
-	    continue;
-	for (o=0,ol=section->overlays;o<section->num_overlays;o++,ol++) {
-	    XkbOverlayRowPtr	row;
-	    int			r;
-
-	    for (r=0,row=ol->rows;r<ol->num_rows;r++,row++) {
-		XkbOverlayKeyPtr	key;
-		int			k;
-		for (k=0,key=row->keys;k<row->num_keys;k++,key++) {
-		    if (strncmp(under,key->under.name,XkbKeyNameLength)==0)
-			return key->over.name;
-		}
-	    }
-	}
-	if (wanted!=NULL)
-	    break;
-    }
-    return NULL;
-}
-
-/***====================================================================***/
-
-static Status
-_XkbReadGeomProperties(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr 		geom,
-			xkbGetGeometryReply *	rep)
-{
-Status	rtrn;
-
-    if (rep->nProperties<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomProps(geom,rep->nProperties))==Success) {
-	register int i;
-	register Bool ok;
-	char *name,*value;
-	ok= True;
-	for (i=0;(i<rep->nProperties)&&ok;i++) {
-	    name=NULL;
-	    value=NULL;
-	    ok= _XkbGetReadBufferCountedString(buf,&name)&&ok;
-	    ok= _XkbGetReadBufferCountedString(buf,&value)&&ok;
-	    ok= ok&&(XkbAddGeomProperty(geom,name,value)!=NULL);
-	    if (name)
-		_XkbFree(name);
-	    if (value)
-		_XkbFree(value);
-	}
-	if (ok)	rtrn= Success;
-	else	rtrn= BadLength;
-    }
-    return rtrn;
-}
-
-static Status
-_XkbReadGeomKeyAliases(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			xkbGetGeometryReply *	rep)
-{
-Status	rtrn;
-
-    if (rep->nKeyAliases<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomKeyAliases(geom,rep->nKeyAliases))==Success) {
-	if (!_XkbCopyFromReadBuffer(buf,(char *)geom->key_aliases,
-					(rep->nKeyAliases*XkbKeyNameLength*2)))
-	    return BadLength;
-	geom->num_key_aliases= rep->nKeyAliases;
-	return Success;
-    }
-    else { /* alloc failed, just skip the aliases */
-	_XkbSkipReadBufferData(buf,(rep->nKeyAliases*XkbKeyNameLength*2));
-    }
-    return rtrn;
-}
-
-static Status
-_XkbReadGeomColors(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			xkbGetGeometryReply *	rep)
-{
-Status	rtrn;
-
-    if (rep->nColors<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomColors(geom,rep->nColors))==Success) {
-	register int i;
-	char *spec;
-	for (i=0;i<rep->nColors;i++) {
-	    spec = NULL;
-	    if (!_XkbGetReadBufferCountedString(buf,&spec))
-		rtrn = BadLength;
-	    else if (XkbAddGeomColor(geom,spec,geom->num_colors)==NULL)
-		rtrn = BadAlloc;
-	    if (spec)
-		_XkbFree(spec);
-	    if (rtrn != Success)
-		return rtrn;
-	}
-	return Success;
-    }
-    return rtrn;
-}
-
-static Status
-_XkbReadGeomShapes(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			xkbGetGeometryReply *	rep)
-{
-register int i;
-Status	rtrn;
-
-    if (rep->nShapes<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomShapes(geom,rep->nShapes))!=Success)
-	return rtrn;
-    for (i=0;i<rep->nShapes;i++) {
-	xkbShapeWireDesc *shapeWire;
-	XkbShapePtr	 shape;
-	register int	 o;
-	shapeWire= (xkbShapeWireDesc *)
-		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbShapeWireDesc));
-	if (!shapeWire)
-	    return BadLength;
-	shape= XkbAddGeomShape(geom,shapeWire->name,shapeWire->nOutlines);
-	if (!shape)
-	   return BadAlloc;
-	for (o=0;o<shapeWire->nOutlines;o++) {
-	    xkbOutlineWireDesc *olWire;
-	    XkbOutlinePtr	ol;
-	    register int	p;
-	    XkbPointPtr		pt;
-	    olWire=  (xkbOutlineWireDesc *)
-		 _XkbGetReadBufferPtr(buf,SIZEOF(xkbOutlineWireDesc));
-	    if (!olWire)
-		return BadLength;
-	    ol= XkbAddGeomOutline(shape,olWire->nPoints);
-	    if (!ol)
-		return BadAlloc;
-	    ol->corner_radius=  olWire->cornerRadius;
-	    for (p=0,pt=ol->points;p<olWire->nPoints;p++,pt++) {
-		xkbPointWireDesc *	ptWire;
-		ptWire= (xkbPointWireDesc *)
-		    _XkbGetReadBufferPtr(buf,SIZEOF(xkbPointWireDesc));
-		if (!ptWire)
-		    return BadLength;
-		pt->x= ptWire->x;
-		pt->y= ptWire->y;
-	    }
-	    ol->num_points= olWire->nPoints;
-	}
-	if (shapeWire->primaryNdx!=XkbNoShape)
-	     shape->primary= &shape->outlines[shapeWire->primaryNdx];
-	else shape->primary= NULL;
-	if (shapeWire->approxNdx!=XkbNoShape)
-	     shape->approx= &shape->outlines[shapeWire->approxNdx];
-	else shape->approx= NULL;
-	XkbComputeShapeBounds(shape);
-    }
-    return Success;
-}
-
-static Status
-_XkbReadGeomDoodad(	XkbReadBufferPtr 	buf,
-			XkbGeometryPtr 		geom,
-			XkbSectionPtr 		section)
-{
-XkbDoodadPtr		doodad;
-xkbDoodadWireDesc *	doodadWire;
-
-    doodadWire= (xkbDoodadWireDesc *)
-		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbDoodadWireDesc));
-    if (!doodadWire)
-	return 	BadLength;
-    doodad= XkbAddGeomDoodad(geom,section,doodadWire->any.name);
-    if (!doodad)
-	return BadAlloc;
-    doodad->any.type= doodadWire->any.type;
-    doodad->any.priority= doodadWire->any.priority;
-    doodad->any.top= doodadWire->any.top;
-    doodad->any.left= doodadWire->any.left;
-    doodad->any.angle= doodadWire->any.angle;
-    switch (doodad->any.type) {
-	case XkbOutlineDoodad:
-	case XkbSolidDoodad:
-	    doodad->shape.color_ndx= doodadWire->shape.colorNdx;
-	    doodad->shape.shape_ndx= doodadWire->shape.shapeNdx;
-	    break;
-	case XkbTextDoodad:
-	    doodad->text.width= doodadWire->text.width;
-	    doodad->text.height= doodadWire->text.height;
-	    doodad->text.color_ndx= doodadWire->text.colorNdx;
-	    if (!_XkbGetReadBufferCountedString(buf,&doodad->text.text))
-		return BadLength;
-	    if (!_XkbGetReadBufferCountedString(buf,&doodad->text.font))
-		return BadLength;
-	    break;
-	case XkbIndicatorDoodad:
-	    doodad->indicator.shape_ndx= doodadWire->indicator.shapeNdx;
-	    doodad->indicator.on_color_ndx= doodadWire->indicator.onColorNdx;
-	    doodad->indicator.off_color_ndx= doodadWire->indicator.offColorNdx;
-	    break;
-	case XkbLogoDoodad:
-	    doodad->logo.color_ndx= doodadWire->logo.colorNdx;
-	    doodad->logo.shape_ndx= doodadWire->logo.shapeNdx;
-	    if (!_XkbGetReadBufferCountedString(buf,&doodad->logo.logo_name))
-		return BadLength;
-	    break;
-	default:
-	    return BadValue;
-    }
-    return Success;
-}
-
-static Status
-_XkbReadGeomOverlay(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			XkbSectionPtr		section)
-{
-XkbOverlayPtr		ol;
-xkbOverlayWireDesc *	olWire;
-register int		r;
-
-    olWire= (xkbOverlayWireDesc *)
-		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbOverlayWireDesc));
-    if (olWire==NULL)
-	return BadLength;
-    ol= XkbAddGeomOverlay(section,olWire->name,olWire->nRows);
-    if (ol==NULL)
-	return BadLength;
-    for (r=0;r<olWire->nRows;r++) {
-	register int 			k;
-	XkbOverlayRowPtr		row;
-	xkbOverlayRowWireDesc *		rowWire;
-	xkbOverlayKeyWireDesc *		keyWire;
-	rowWire= (xkbOverlayRowWireDesc *)
-			_XkbGetReadBufferPtr(buf,SIZEOF(xkbOverlayRowWireDesc));
-	if (rowWire==NULL)
-	    return BadLength;
-	row= XkbAddGeomOverlayRow(ol,rowWire->rowUnder,rowWire->nKeys);
-	row->row_under= rowWire->rowUnder;
-	if (!row)
-	    return BadAlloc;
-	if (rowWire->nKeys<1)
-	    continue;
-	keyWire= (xkbOverlayKeyWireDesc *)
-     			_XkbGetReadBufferPtr(buf,
-				SIZEOF(xkbOverlayKeyWireDesc)*rowWire->nKeys);
-	if (keyWire==NULL)
-	    return BadLength;
-	for (k=0;k<rowWire->nKeys;k++,keyWire++,row->num_keys++) {
-	    memcpy(row->keys[row->num_keys].over.name,keyWire->over,
-	    						XkbKeyNameLength);
-	    memcpy(row->keys[row->num_keys].under.name,keyWire->under,
-	    						XkbKeyNameLength);
-	}
-    }
-    return Success;
-}
-
-static Status
-_XkbReadGeomSections(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			xkbGetGeometryReply *	rep)
-{
-register int 		s;
-XkbSectionPtr		section;
-xkbSectionWireDesc *	sectionWire;
-Status			rtrn;
-
-    if (rep->nSections<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomSections(geom,rep->nSections))!=Success)
-	return rtrn;
-    for (s=0;s<rep->nSections;s++) {
-	sectionWire= (xkbSectionWireDesc *)
-			_XkbGetReadBufferPtr(buf,SIZEOF(xkbSectionWireDesc));
-	if (!sectionWire)
-	    return BadLength;
-	section= XkbAddGeomSection(geom,sectionWire->name,sectionWire->nRows,
-						sectionWire->nDoodads,
-						sectionWire->nOverlays);
-	if (!section)
-	    return BadAlloc;
-	section->top= sectionWire->top;
-	section->left= sectionWire->left;
-	section->width= sectionWire->width;
-	section->height= sectionWire->height;
-	section->angle= sectionWire->angle;
-	section->priority= sectionWire->priority;
-	if (sectionWire->nRows>0) {
-	    register int 	r;
-	    XkbRowPtr		row;
-	    xkbRowWireDesc *	rowWire;
-	    for (r=0;r<sectionWire->nRows;r++) {
-		rowWire= (xkbRowWireDesc *)
-			 _XkbGetReadBufferPtr(buf,SIZEOF(xkbRowWireDesc));
-		if (!rowWire)
-		    return BadLength;
-		row= XkbAddGeomRow(section,rowWire->nKeys);
-		if (!row)
-		    return BadAlloc;
-		row->top= rowWire->top;
-		row->left= rowWire->left;
-		row->vertical= rowWire->vertical;
-		if (rowWire->nKeys>0) {
-		    register int	k;
-		    XkbKeyPtr		key;
-		    xkbKeyWireDesc *	keyWire;
-		    for (k=0;k<rowWire->nKeys;k++) {
-			keyWire= (xkbKeyWireDesc *)
-			      _XkbGetReadBufferPtr(buf,SIZEOF(xkbKeyWireDesc));
-			if (!keyWire)
-			    return BadLength;
-			key= XkbAddGeomKey(row);
-			if (!key)
-			    return BadAlloc;
-			memcpy(key->name.name,keyWire->name,XkbKeyNameLength);
-			key->gap= keyWire->gap;
-			key->shape_ndx= keyWire->shapeNdx;
-			key->color_ndx= keyWire->colorNdx;
-		    }
-		}
-	    }
-	}
-	if (sectionWire->nDoodads>0) {
-	    register int d;
-	    for (d=0;d<sectionWire->nDoodads;d++) {
-		if ((rtrn=_XkbReadGeomDoodad(buf,geom,section))!=Success)
-		    return rtrn;
-	    }
-	}
-	if (sectionWire->nOverlays>0) {
-	    register int o;
-	    for (o=0;o<sectionWire->nOverlays;o++) {
-		if ((rtrn=_XkbReadGeomOverlay(buf,geom,section))!=Success)
-		    return rtrn;
-	    }
-	}
-    }
-    return Success;
-}
-
-static Status
-_XkbReadGeomDoodads(	XkbReadBufferPtr	buf,
-			XkbGeometryPtr		geom,
-			xkbGetGeometryReply *	rep)
-{
-register int d;
-Status	rtrn;
-
-    if (rep->nDoodads<1)
-	return Success;
-    if ((rtrn=XkbAllocGeomDoodads(geom,rep->nDoodads))!=Success)
-	return rtrn;
-    for (d=0;d<rep->nDoodads;d++) {
-	if ((rtrn=_XkbReadGeomDoodad(buf,geom,NULL))!=Success)
-	    return rtrn;
-    }
-    return Success;
-}
-
-Status
-_XkbReadGetGeometryReply(	Display * dpy,
-				xkbGetGeometryReply * rep,
-				XkbDescPtr xkb,
-				int * nread_rtrn)
-{
-XkbGeometryPtr	geom;
-
-    geom= _XkbTypedCalloc(1,XkbGeometryRec);
-    if (!geom)
-	return BadAlloc;
-    if (xkb->geom)
-	XkbFreeGeometry(xkb->geom,XkbGeomAllMask,True);
-    xkb->geom= geom;
-
-    geom->name= rep->name;
-    geom->width_mm= rep->widthMM;
-    geom->height_mm= rep->heightMM;
-    if (rep->length) {
-	XkbReadBufferRec	buf;
-	int			left;
-	if (_XkbInitReadBuffer(dpy,&buf,(int)rep->length*4)) {
-	    Status status= Success;
-	    if (nread_rtrn)
-		*nread_rtrn= (int)rep->length*4;
-	    if (!_XkbGetReadBufferCountedString(&buf,&geom->label_font))
-		status= BadLength;
-	    if (status==Success)
-		status= _XkbReadGeomProperties(&buf,geom,rep);
-	    if (status==Success)
-		status= _XkbReadGeomColors(&buf,geom,rep);
-	    if (status==Success)
-		status= _XkbReadGeomShapes(&buf,geom,rep);
-	    if (status==Success)
-		status= _XkbReadGeomSections(&buf,geom,rep);
-	    if (status==Success)
-		status= _XkbReadGeomDoodads(&buf,geom,rep);
-	    if (status==Success)
-		status= _XkbReadGeomKeyAliases(&buf,geom,rep);
-	    left= _XkbFreeReadBuffer(&buf);
-	    if ((status!=Success) || left || buf.error) {
-		if (status==Success)
-		    status= BadLength;
-		XkbFreeGeometry(geom,XkbGeomAllMask,True);
-		xkb->geom= NULL;
-		return status;
-	    }
-	    geom->base_color= &geom->colors[rep->baseColorNdx];
-	    geom->label_color= &geom->colors[rep->labelColorNdx];
-	}
-	else {
-	    XkbFreeGeometry(geom,XkbGeomAllMask,True);
-	    xkb->geom= NULL;
-	    return BadAlloc;
-	}
-    }
-    return Success;
-}
-
-Status
-XkbGetGeometry(Display *dpy,XkbDescPtr xkb)
-{
-xkbGetGeometryReq	*req;
-xkbGetGeometryReply	 rep;
-Status			 status;
-
-    if ( (!xkb) || (dpy->flags & XlibDisplayNoXkb) ||
-	(!dpy->xkb_info && !XkbUseExtension(dpy,NULL,NULL)))
-	return BadAccess;
-
-    LockDisplay(dpy);
-    GetReq(kbGetGeometry, req);
-    req->reqType = dpy->xkb_info->codes->major_opcode;
-    req->xkbReqType = X_kbGetGeometry;
-    req->deviceSpec = xkb->device_spec;
-    req->name= None;
-    if (!_XReply(dpy, (xReply *)&rep, 0, xFalse))
-	status = BadImplementation;
-    else if (!rep.found)
-	status = BadName;
-    else
-	status = _XkbReadGetGeometryReply(dpy,&rep,xkb,NULL);
-    UnlockDisplay(dpy);
-    SyncHandle();
-    return status;
-}
-
-Status
-XkbGetNamedGeometry(Display *dpy,XkbDescPtr xkb,Atom name)
-{
-xkbGetGeometryReq	*req;
-xkbGetGeometryReply	 rep;
-Status			 status;
-
-    if ( (name==None) || (dpy->flags & XlibDisplayNoXkb) ||
-	(!dpy->xkb_info && !XkbUseExtension(dpy,NULL,NULL)) )
-	return BadAccess;
-
-    LockDisplay(dpy);
-    GetReq(kbGetGeometry, req);
-    req->reqType = dpy->xkb_info->codes->major_opcode;
-    req->xkbReqType = X_kbGetGeometry;
-    req->deviceSpec = xkb->device_spec;
-    req->name= (CARD32)name;
-    if ((!_XReply(dpy, (xReply *)&rep, 0, xFalse))||(!rep.found))
-	status = BadImplementation;
-    else if (!rep.found)
-	status = BadName;
-    else
-	status = _XkbReadGetGeometryReply(dpy,&rep,xkb,NULL);
-    UnlockDisplay(dpy);
-    SyncHandle();
-    return status;
-}
-
+/************************************************************

+Copyright (c) 1993 by Silicon Graphics Computer Systems, Inc.

+

+Permission to use, copy, modify, and distribute this

+software and its documentation for any purpose and without

+fee is hereby granted, provided that the above copyright

+notice appear in all copies and that both that copyright

+notice and this permission notice appear in supporting

+documentation, and that the name of Silicon Graphics not be

+used in advertising or publicity pertaining to distribution

+of the software without specific prior written permission.

+Silicon Graphics makes no representation about the suitability

+of this software for any purpose. It is provided "as is"

+without any express or implied warranty.

+

+SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS

+SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY

+AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON

+GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL

+DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,

+DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE

+OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION  WITH

+THE USE OR PERFORMANCE OF THIS SOFTWARE.

+

+********************************************************/

+

+#ifdef DEBUG

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#endif

+

+#define NEED_MAP_READERS

+#include "Xlibint.h"

+#include <X11/extensions/XKBgeom.h>

+#include <X11/extensions/XKBproto.h>

+#include "XKBlibint.h"

+

+#define	MINSHORT	-32768

+#define	MAXSHORT	32767

+

+/***====================================================================***/

+

+static void

+_XkbCheckBounds(XkbBoundsPtr bounds,int	x,int y)

+{

+    if (x<bounds->x1)	bounds->x1= x;

+    if (x>bounds->x2)	bounds->x2= x;

+    if (y<bounds->y1)	bounds->y1= y;

+    if (y>bounds->y2)	bounds->y2= y;

+    return;

+}

+

+Bool

+XkbComputeShapeBounds(XkbShapePtr shape)

+{

+register int	o,p;

+XkbOutlinePtr	outline;

+XkbPointPtr	pt;

+

+    if ((!shape)||(shape->num_outlines<1))

+	return False;

+    shape->bounds.x1= shape->bounds.y1= MAXSHORT;

+    shape->bounds.x2= shape->bounds.y2= MINSHORT;

+    for (outline=shape->outlines,o=0;o<shape->num_outlines;o++,outline++) {

+	for (pt=outline->points,p=0;p<outline->num_points;p++,pt++) {

+	    _XkbCheckBounds(&shape->bounds,pt->x,pt->y);

+	}

+        if (outline->num_points<2) {

+            _XkbCheckBounds(&shape->bounds,0,0);

+        }

+    }

+    return True;

+}

+

+Bool

+XkbComputeShapeTop(XkbShapePtr shape,XkbBoundsPtr bounds)

+{

+register int	p;

+XkbOutlinePtr	outline;

+XkbPointPtr	pt;

+

+    if ((!shape)||(shape->num_outlines<1))

+	return False;

+    if (shape->approx)	outline= shape->approx;

+    else		outline= &shape->outlines[shape->num_outlines-1];

+    if (outline->num_points<2) {

+	 bounds->x1= bounds->y1= 0;

+	 bounds->x2= bounds->y2= 0;

+    }

+    else {

+	bounds->x1= bounds->y1= MAXSHORT;

+	bounds->x2= bounds->y2= MINSHORT;

+    }

+    for (pt=outline->points,p=0;p<outline->num_points;p++,pt++) {

+	_XkbCheckBounds(bounds,pt->x,pt->y);

+    }

+    return True;

+}

+

+Bool

+XkbComputeRowBounds(XkbGeometryPtr geom,XkbSectionPtr section,XkbRowPtr row)

+{

+register int	k,pos;

+XkbKeyPtr	key;

+XkbBoundsPtr	bounds,sbounds;

+

+    if ((!geom)||(!section)||(!row))

+	return False;

+    bounds= &row->bounds;

+    bzero(bounds,sizeof(XkbBoundsRec));

+    for (key=row->keys,pos=k=0;k<row->num_keys;k++,key++) {

+	sbounds= &XkbKeyShape(geom,key)->bounds;

+	_XkbCheckBounds(bounds,pos,0);

+	if (!row->vertical) {

+	    if (key->gap!=0) {

+		pos+= key->gap;

+		_XkbCheckBounds(bounds,pos,0);

+	    }

+	    _XkbCheckBounds(bounds,pos+sbounds->x1,sbounds->y1);

+	    _XkbCheckBounds(bounds,pos+sbounds->x2,sbounds->y2);

+	    pos+= sbounds->x2;

+	}

+	else {

+	    if (key->gap!=0) {

+		pos+= key->gap;

+		_XkbCheckBounds(bounds,0,pos);

+	    }

+	    _XkbCheckBounds(bounds,pos+sbounds->x1,sbounds->y1);

+	    _XkbCheckBounds(bounds,pos+sbounds->x2,sbounds->y2);

+	    pos+= sbounds->y2;

+	}

+    }

+    return True;

+}

+

+Bool

+XkbComputeSectionBounds(XkbGeometryPtr geom,XkbSectionPtr section)

+{

+register int	i;

+XkbShapePtr	shape;

+XkbRowPtr	row;

+XkbDoodadPtr	doodad;

+XkbBoundsPtr	bounds,rbounds;

+

+    if ((!geom)||(!section))

+	return False;

+    bounds= &section->bounds;

+    bzero(bounds,sizeof(XkbBoundsRec));

+    for (i=0,row=section->rows;i<section->num_rows;i++,row++) {

+	if (!XkbComputeRowBounds(geom,section,row))

+	    return False;

+	rbounds= &row->bounds;

+	_XkbCheckBounds(bounds,row->left+rbounds->x1,row->top+rbounds->y1);

+	_XkbCheckBounds(bounds,row->left+rbounds->x2,row->top+rbounds->y2);

+    }

+    for (i=0,doodad=section->doodads;i<section->num_doodads;i++,doodad++) {

+	static XkbBoundsRec	tbounds;

+	switch (doodad->any.type) {

+	    case XkbOutlineDoodad:

+	    case XkbSolidDoodad:

+		shape= XkbShapeDoodadShape(geom,&doodad->shape);

+		rbounds= &shape->bounds;

+		break;

+	    case XkbTextDoodad:

+		tbounds.x1= doodad->text.left;

+		tbounds.y1= doodad->text.top;

+		tbounds.x2= tbounds.x1+doodad->text.width;

+		tbounds.y2= tbounds.y1+doodad->text.height;

+		rbounds= &tbounds;

+		break;

+	    case XkbIndicatorDoodad:

+		shape= XkbIndicatorDoodadShape(geom,&doodad->indicator);

+		rbounds= &shape->bounds;

+		break;

+	    case XkbLogoDoodad:

+		shape= XkbLogoDoodadShape(geom,&doodad->logo);

+		rbounds= &shape->bounds;

+		break;

+	    default:

+		tbounds.x1= tbounds.x2= doodad->any.left;

+		tbounds.y1= tbounds.y2= doodad->any.top;

+		rbounds= &tbounds;

+		break;

+	}

+	_XkbCheckBounds(bounds,rbounds->x1,rbounds->y1);

+	_XkbCheckBounds(bounds,rbounds->x2,rbounds->y2);

+    }

+    return True;

+}

+

+/***====================================================================***/

+

+char *

+XkbFindOverlayForKey(XkbGeometryPtr geom,XkbSectionPtr wanted,char *under)

+{

+int		s;

+XkbSectionPtr	section;

+

+    if ((geom==NULL)||(under==NULL)||(geom->num_sections<1))

+	return NULL;

+

+    if (wanted)

+	 section= wanted;

+    else section= geom->sections;

+

+    for (s=0;s<geom->num_sections;s++,section++) {

+	XkbOverlayPtr	ol;

+	int		o;

+

+	if (section->num_overlays<1)

+	    continue;

+	for (o=0,ol=section->overlays;o<section->num_overlays;o++,ol++) {

+	    XkbOverlayRowPtr	row;

+	    int			r;

+

+	    for (r=0,row=ol->rows;r<ol->num_rows;r++,row++) {

+		XkbOverlayKeyPtr	key;

+		int			k;

+		for (k=0,key=row->keys;k<row->num_keys;k++,key++) {

+		    if (strncmp(under,key->under.name,XkbKeyNameLength)==0)

+			return key->over.name;

+		}

+	    }

+	}

+	if (wanted!=NULL)

+	    break;

+    }

+    return NULL;

+}

+

+/***====================================================================***/

+

+static Status

+_XkbReadGeomProperties(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr 		geom,

+			xkbGetGeometryReply *	rep)

+{

+Status	rtrn;

+

+    if (rep->nProperties<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomProps(geom,rep->nProperties))==Success) {

+	register int i;

+	register Bool ok;

+	char *name,*value;

+	ok= True;

+	for (i=0;(i<rep->nProperties)&&ok;i++) {

+	    name=NULL;

+	    value=NULL;

+	    ok= _XkbGetReadBufferCountedString(buf,&name)&&ok;

+	    ok= _XkbGetReadBufferCountedString(buf,&value)&&ok;

+	    ok= ok&&(XkbAddGeomProperty(geom,name,value)!=NULL);

+	    if (name)

+		_XkbFree(name);

+	    if (value)

+		_XkbFree(value);

+	}

+	if (ok)	rtrn= Success;

+	else	rtrn= BadLength;

+    }

+    return rtrn;

+}

+

+static Status

+_XkbReadGeomKeyAliases(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			xkbGetGeometryReply *	rep)

+{

+Status	rtrn;

+

+    if (rep->nKeyAliases<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomKeyAliases(geom,rep->nKeyAliases))==Success) {

+	if (!_XkbCopyFromReadBuffer(buf,(char *)geom->key_aliases,

+					(rep->nKeyAliases*XkbKeyNameLength*2)))

+	    return BadLength;

+	geom->num_key_aliases= rep->nKeyAliases;

+	return Success;

+    }

+    else { /* alloc failed, just skip the aliases */

+	_XkbSkipReadBufferData(buf,(rep->nKeyAliases*XkbKeyNameLength*2));

+    }

+    return rtrn;

+}

+

+static Status

+_XkbReadGeomColors(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			xkbGetGeometryReply *	rep)

+{

+Status	rtrn;

+

+    if (rep->nColors<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomColors(geom,rep->nColors))==Success) {

+	register int i;

+	char *spec;

+	for (i=0;i<rep->nColors;i++) {

+	    spec = NULL;

+	    if (!_XkbGetReadBufferCountedString(buf,&spec))

+		rtrn = BadLength;

+	    else if (XkbAddGeomColor(geom,spec,geom->num_colors)==NULL)

+		rtrn = BadAlloc;

+	    if (spec)

+		_XkbFree(spec);

+	    if (rtrn != Success)

+		return rtrn;

+	}

+	return Success;

+    }

+    return rtrn;

+}

+

+static Status

+_XkbReadGeomShapes(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			xkbGetGeometryReply *	rep)

+{

+register int i;

+Status	rtrn;

+

+    if (rep->nShapes<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomShapes(geom,rep->nShapes))!=Success)

+	return rtrn;

+    for (i=0;i<rep->nShapes;i++) {

+	xkbShapeWireDesc *shapeWire;

+	XkbShapePtr	 shape;

+	register int	 o;

+	shapeWire= (xkbShapeWireDesc *)

+		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbShapeWireDesc));

+	if (!shapeWire)

+	    return BadLength;

+	shape= XkbAddGeomShape(geom,shapeWire->name,shapeWire->nOutlines);

+	if (!shape)

+	   return BadAlloc;

+	for (o=0;o<shapeWire->nOutlines;o++) {

+	    xkbOutlineWireDesc *olWire;

+	    XkbOutlinePtr	ol;

+	    register int	p;

+	    XkbPointPtr		pt;

+	    olWire=  (xkbOutlineWireDesc *)

+		 _XkbGetReadBufferPtr(buf,SIZEOF(xkbOutlineWireDesc));

+	    if (!olWire)

+		return BadLength;

+	    ol= XkbAddGeomOutline(shape,olWire->nPoints);

+	    if (!ol)

+		return BadAlloc;

+	    ol->corner_radius=  olWire->cornerRadius;

+	    for (p=0,pt=ol->points;p<olWire->nPoints;p++,pt++) {

+		xkbPointWireDesc *	ptWire;

+		ptWire= (xkbPointWireDesc *)

+		    _XkbGetReadBufferPtr(buf,SIZEOF(xkbPointWireDesc));

+		if (!ptWire)

+		    return BadLength;

+		pt->x= ptWire->x;

+		pt->y= ptWire->y;

+	    }

+	    ol->num_points= olWire->nPoints;

+	}

+	if (shapeWire->primaryNdx!=XkbNoShape)

+	     shape->primary= &shape->outlines[shapeWire->primaryNdx];

+	else shape->primary= NULL;

+	if (shapeWire->approxNdx!=XkbNoShape)

+	     shape->approx= &shape->outlines[shapeWire->approxNdx];

+	else shape->approx= NULL;

+	XkbComputeShapeBounds(shape);

+    }

+    return Success;

+}

+

+static Status

+_XkbReadGeomDoodad(	XkbReadBufferPtr 	buf,

+			XkbGeometryPtr 		geom,

+			XkbSectionPtr 		section)

+{

+XkbDoodadPtr		doodad;

+xkbDoodadWireDesc *	doodadWire;

+

+    doodadWire= (xkbDoodadWireDesc *)

+		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbDoodadWireDesc));

+    if (!doodadWire)

+	return 	BadLength;

+    doodad= XkbAddGeomDoodad(geom,section,doodadWire->any.name);

+    if (!doodad)

+	return BadAlloc;

+    doodad->any.type= doodadWire->any.type;

+    doodad->any.priority= doodadWire->any.priority;

+    doodad->any.top= doodadWire->any.top;

+    doodad->any.left= doodadWire->any.left;

+    doodad->any.angle= doodadWire->any.angle;

+    switch (doodad->any.type) {

+	case XkbOutlineDoodad:

+	case XkbSolidDoodad:

+	    doodad->shape.color_ndx= doodadWire->shape.colorNdx;

+	    doodad->shape.shape_ndx= doodadWire->shape.shapeNdx;

+	    break;

+	case XkbTextDoodad:

+	    doodad->text.width= doodadWire->text.width;

+	    doodad->text.height= doodadWire->text.height;

+	    doodad->text.color_ndx= doodadWire->text.colorNdx;

+	    if (!_XkbGetReadBufferCountedString(buf,&doodad->text.text))

+		return BadLength;

+	    if (!_XkbGetReadBufferCountedString(buf,&doodad->text.font))

+		return BadLength;

+	    break;

+	case XkbIndicatorDoodad:

+	    doodad->indicator.shape_ndx= doodadWire->indicator.shapeNdx;

+	    doodad->indicator.on_color_ndx= doodadWire->indicator.onColorNdx;

+	    doodad->indicator.off_color_ndx= doodadWire->indicator.offColorNdx;

+	    break;

+	case XkbLogoDoodad:

+	    doodad->logo.color_ndx= doodadWire->logo.colorNdx;

+	    doodad->logo.shape_ndx= doodadWire->logo.shapeNdx;

+	    if (!_XkbGetReadBufferCountedString(buf,&doodad->logo.logo_name))

+		return BadLength;

+	    break;

+	default:

+	    return BadValue;

+    }

+    return Success;

+}

+

+static Status

+_XkbReadGeomOverlay(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			XkbSectionPtr		section)

+{

+XkbOverlayPtr		ol;

+xkbOverlayWireDesc *	olWire;

+register int		r;

+

+    olWire= (xkbOverlayWireDesc *)

+		   _XkbGetReadBufferPtr(buf,SIZEOF(xkbOverlayWireDesc));

+    if (olWire==NULL)

+	return BadLength;

+    ol= XkbAddGeomOverlay(section,olWire->name,olWire->nRows);

+    if (ol==NULL)

+	return BadLength;

+    for (r=0;r<olWire->nRows;r++) {

+	register int 			k;

+	XkbOverlayRowPtr		row;

+	xkbOverlayRowWireDesc *		rowWire;

+	xkbOverlayKeyWireDesc *		keyWire;

+	rowWire= (xkbOverlayRowWireDesc *)

+			_XkbGetReadBufferPtr(buf,SIZEOF(xkbOverlayRowWireDesc));

+	if (rowWire==NULL)

+	    return BadLength;

+	row= XkbAddGeomOverlayRow(ol,rowWire->rowUnder,rowWire->nKeys);

+	row->row_under= rowWire->rowUnder;

+	if (!row)

+	    return BadAlloc;

+	if (rowWire->nKeys<1)

+	    continue;

+	keyWire= (xkbOverlayKeyWireDesc *)

+     			_XkbGetReadBufferPtr(buf,

+				SIZEOF(xkbOverlayKeyWireDesc)*rowWire->nKeys);

+	if (keyWire==NULL)

+	    return BadLength;

+	for (k=0;k<rowWire->nKeys;k++,keyWire++,row->num_keys++) {

+	    memcpy(row->keys[row->num_keys].over.name,keyWire->over,

+	    						XkbKeyNameLength);

+	    memcpy(row->keys[row->num_keys].under.name,keyWire->under,

+	    						XkbKeyNameLength);

+	}

+    }

+    return Success;

+}

+

+static Status

+_XkbReadGeomSections(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			xkbGetGeometryReply *	rep)

+{

+register int 		s;

+XkbSectionPtr		section;

+xkbSectionWireDesc *	sectionWire;

+Status			rtrn;

+

+    if (rep->nSections<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomSections(geom,rep->nSections))!=Success)

+	return rtrn;

+    for (s=0;s<rep->nSections;s++) {

+	sectionWire= (xkbSectionWireDesc *)

+			_XkbGetReadBufferPtr(buf,SIZEOF(xkbSectionWireDesc));

+	if (!sectionWire)

+	    return BadLength;

+	section= XkbAddGeomSection(geom,sectionWire->name,sectionWire->nRows,

+						sectionWire->nDoodads,

+						sectionWire->nOverlays);

+	if (!section)

+	    return BadAlloc;

+	section->top= sectionWire->top;

+	section->left= sectionWire->left;

+	section->width= sectionWire->width;

+	section->height= sectionWire->height;

+	section->angle= sectionWire->angle;

+	section->priority= sectionWire->priority;

+	if (sectionWire->nRows>0) {

+	    register int 	r;

+	    XkbRowPtr		row;

+	    xkbRowWireDesc *	rowWire;

+	    for (r=0;r<sectionWire->nRows;r++) {

+		rowWire= (xkbRowWireDesc *)

+			 _XkbGetReadBufferPtr(buf,SIZEOF(xkbRowWireDesc));

+		if (!rowWire)

+		    return BadLength;

+		row= XkbAddGeomRow(section,rowWire->nKeys);

+		if (!row)

+		    return BadAlloc;

+		row->top= rowWire->top;

+		row->left= rowWire->left;

+		row->vertical= rowWire->vertical;

+		if (rowWire->nKeys>0) {

+		    register int	k;

+		    XkbKeyPtr		key;

+		    xkbKeyWireDesc *	keyWire;

+		    for (k=0;k<rowWire->nKeys;k++) {

+			keyWire= (xkbKeyWireDesc *)

+			      _XkbGetReadBufferPtr(buf,SIZEOF(xkbKeyWireDesc));

+			if (!keyWire)

+			    return BadLength;

+			key= XkbAddGeomKey(row);

+			if (!key)

+			    return BadAlloc;

+			memcpy(key->name.name,keyWire->name,XkbKeyNameLength);

+			key->gap= keyWire->gap;

+			key->shape_ndx= keyWire->shapeNdx;

+			key->color_ndx= keyWire->colorNdx;

+		    }

+		}

+	    }

+	}

+	if (sectionWire->nDoodads>0) {

+	    register int d;

+	    for (d=0;d<sectionWire->nDoodads;d++) {

+		if ((rtrn=_XkbReadGeomDoodad(buf,geom,section))!=Success)

+		    return rtrn;

+	    }

+	}

+	if (sectionWire->nOverlays>0) {

+	    register int o;

+	    for (o=0;o<sectionWire->nOverlays;o++) {

+		if ((rtrn=_XkbReadGeomOverlay(buf,geom,section))!=Success)

+		    return rtrn;

+	    }

+	}

+    }

+    return Success;

+}

+

+static Status

+_XkbReadGeomDoodads(	XkbReadBufferPtr	buf,

+			XkbGeometryPtr		geom,

+			xkbGetGeometryReply *	rep)

+{

+register int d;

+Status	rtrn;

+

+    if (rep->nDoodads<1)

+	return Success;

+    if ((rtrn=XkbAllocGeomDoodads(geom,rep->nDoodads))!=Success)

+	return rtrn;

+    for (d=0;d<rep->nDoodads;d++) {

+	if ((rtrn=_XkbReadGeomDoodad(buf,geom,NULL))!=Success)

+	    return rtrn;

+    }

+    return Success;

+}

+

+Status

+_XkbReadGetGeometryReply(	Display * dpy,

+				xkbGetGeometryReply * rep,

+				XkbDescPtr xkb,

+				int * nread_rtrn)

+{

+XkbGeometryPtr	geom;

+

+    geom= _XkbTypedCalloc(1,XkbGeometryRec);

+    if (!geom)

+	return BadAlloc;

+    if (xkb->geom)

+	XkbFreeGeometry(xkb->geom,XkbGeomAllMask,True);

+    xkb->geom= geom;

+

+    geom->name= rep->name;

+    geom->width_mm= rep->widthMM;

+    geom->height_mm= rep->heightMM;

+    if (rep->length) {

+	XkbReadBufferRec	buf;

+	int			left;

+	if (_XkbInitReadBuffer(dpy,&buf,(int)rep->length*4)) {

+	    Status status= Success;

+	    if (nread_rtrn)

+		*nread_rtrn= (int)rep->length*4;

+	    if (!_XkbGetReadBufferCountedString(&buf,&geom->label_font))

+		status= BadLength;

+	    if (status==Success)

+		status= _XkbReadGeomProperties(&buf,geom,rep);

+	    if (status==Success)

+		status= _XkbReadGeomColors(&buf,geom,rep);

+	    if (status==Success)

+		status= _XkbReadGeomShapes(&buf,geom,rep);

+	    if (status==Success)

+		status= _XkbReadGeomSections(&buf,geom,rep);

+	    if (status==Success)

+		status= _XkbReadGeomDoodads(&buf,geom,rep);

+	    if (status==Success)

+		status= _XkbReadGeomKeyAliases(&buf,geom,rep);

+	    left= _XkbFreeReadBuffer(&buf);

+	    if ((status!=Success) || left || buf.error) {

+		if (status==Success)

+		    status= BadLength;

+		XkbFreeGeometry(geom,XkbGeomAllMask,True);

+		xkb->geom= NULL;

+		return status;

+	    }

+	    geom->base_color= &geom->colors[rep->baseColorNdx];

+	    geom->label_color= &geom->colors[rep->labelColorNdx];

+	}

+	else {

+	    XkbFreeGeometry(geom,XkbGeomAllMask,True);

+	    xkb->geom= NULL;

+	    return BadAlloc;

+	}

+    }

+    return Success;

+}

+

+Status

+XkbGetGeometry(Display *dpy,XkbDescPtr xkb)

+{

+xkbGetGeometryReq	*req;

+xkbGetGeometryReply	 rep;

+Status			 status;

+

+    if ( (!xkb) || (dpy->flags & XlibDisplayNoXkb) ||

+	(!dpy->xkb_info && !XkbUseExtension(dpy,NULL,NULL)))

+	return BadAccess;

+

+    LockDisplay(dpy);

+    GetReq(kbGetGeometry, req);

+    req->reqType = dpy->xkb_info->codes->major_opcode;

+    req->xkbReqType = X_kbGetGeometry;

+    req->deviceSpec = xkb->device_spec;

+    req->name= None;

+    if (!_XReply(dpy, (xReply *)&rep, 0, xFalse))

+	status = BadImplementation;

+    else if (!rep.found)

+	status = BadName;

+    else

+	status = _XkbReadGetGeometryReply(dpy,&rep,xkb,NULL);

+    UnlockDisplay(dpy);

+    SyncHandle();

+    return status;

+}

+

+Status

+XkbGetNamedGeometry(Display *dpy,XkbDescPtr xkb,Atom name)

+{

+xkbGetGeometryReq	*req;

+xkbGetGeometryReply	 rep;

+Status			 status;

+

+    if ( (name==None) || (dpy->flags & XlibDisplayNoXkb) ||

+	(!dpy->xkb_info && !XkbUseExtension(dpy,NULL,NULL)) )

+	return BadAccess;

+

+    LockDisplay(dpy);

+    GetReq(kbGetGeometry, req);

+    req->reqType = dpy->xkb_info->codes->major_opcode;

+    req->xkbReqType = X_kbGetGeometry;

+    req->deviceSpec = xkb->device_spec;

+    req->name= (CARD32)name;

+    if ((!_XReply(dpy, (xReply *)&rep, 0, xFalse))||(!rep.found))

+	status = BadImplementation;

+    else if (!rep.found)

+	status = BadName;

+    else

+	status = _XkbReadGetGeometryReply(dpy,&rep,xkb,NULL);

+    UnlockDisplay(dpy);

+    SyncHandle();

+    return status;

+}

+

diff --git a/libX11/src/xkb/XKBGetMap.c b/libX11/src/xkb/XKBGetMap.c
index eff088341..96370c6d3 100644
--- a/libX11/src/xkb/XKBGetMap.c
+++ b/libX11/src/xkb/XKBGetMap.c
@@ -28,6 +28,34 @@ THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #ifdef HAVE_CONFIG_H

 #include <config.h>

 #endif

+

+#ifdef XKB_IN_SERVER

+#define XkbAllocClientMap   SrvXkbAllocClientMap

+#define XkbAllocServerMap   SrvXkbAllocServerMap

+#define XkbChangeTypesOfKey   SrvXkbChangeTypesOfKey

+#define XkbCopyKeyTypes     SrvXkbCopyKeyTypes

+#define XkbFreeClientMap    SrvXkbFreeClientMap

+#define XkbFreeServerMap    SrvXkbFreeServerMap

+#define XkbKeyTypesForCoreSymbols SrvXkbKeyTypesForCoreSymbols

+#define XkbApplyCompatMapToKey    SrvXkbApplyCompatMapToKey

+#define XkbResizeKeyActions   SrvXkbResizeKeyActions

+#define XkbResizeKeySyms    SrvXkbResizeKeySyms

+#define XkbResizeKeyType    SrvXkbResizeKeyType

+#define XkbAllocCompatMap   SrvXkbAllocCompatMap

+#define XkbAllocControls    SrvXkbAllocControls

+#define XkbAllocIndicatorMaps   SrvXkbAllocIndicatorMaps

+#define XkbAllocKeyboard    SrvXkbAllocKeyboard

+#define XkbAllocNames     SrvXkbAllocNames

+#define XkbFreeCompatMap    SrvXkbFreeCompatMap

+#define XkbFreeKeyboard     SrvXkbFreeKeyboard

+#define XkbFreeNames      SrvXkbFreeNames

+#define XkbLatchModifiers   SrvXkbLatchModifiers

+#define XkbLatchGroup     SrvXkbLatchGroup

+#define XkbVirtualModsToReal    SrvXkbVirtualModsToReal

+#define XkbChangeKeycodeRange   SrvXkbChangeKeycodeRange

+#define XkbApplyVirtualModChanges SrvXkbApplyVirtualModChanges

+#endif

+

 #include "Xlibint.h"

 #include <X11/extensions/XKBproto.h>

 #include "XKBlibint.h"

diff --git a/libX11/src/xkb/XKBMisc.c b/libX11/src/xkb/XKBMisc.c
index 4aa1f733a..ac1e8c062 100644
--- a/libX11/src/xkb/XKBMisc.c
+++ b/libX11/src/xkb/XKBMisc.c
@@ -42,6 +42,7 @@ THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 #include <stdio.h>
 #include <X11/X.h>
+#define XkbVirtualModsToReal    SrvXkbVirtualModsToReal
 #include <X11/Xproto.h>
 #include "misc.h"
 #include "inputstr.h"
diff --git a/libX11/src/xkb/XKBSetGeom.c b/libX11/src/xkb/XKBSetGeom.c
index 439b75e01..5b9f5887c 100644
--- a/libX11/src/xkb/XKBSetGeom.c
+++ b/libX11/src/xkb/XKBSetGeom.c
@@ -36,12 +36,8 @@ THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #include <X11/extensions/XKBgeom.h>

 #include <X11/extensions/XKBproto.h>

 

-#ifndef MINSHORT

 #define	MINSHORT	-32768

-#endif

-#ifndef MAXSHORT

 #define	MAXSHORT	32767

-#endif

 

 /***====================================================================***/

 

diff --git a/libX11/src/xkb/XKBUse.c b/libX11/src/xkb/XKBUse.c
index efca018f6..a16d6963a 100644
--- a/libX11/src/xkb/XKBUse.c
+++ b/libX11/src/xkb/XKBUse.c
@@ -29,6 +29,34 @@ THE USE OR PERFORMANCE OF THIS SOFTWARE.
 #endif

 #include <stdio.h>

 #include <ctype.h>

+

+#ifdef XKB_IN_SERVER

+#define XkbAllocClientMap   SrvXkbAllocClientMap

+#define XkbAllocServerMap   SrvXkbAllocServerMap

+#define XkbChangeTypesOfKey   SrvXkbChangeTypesOfKey

+#define XkbCopyKeyTypes     SrvXkbCopyKeyTypes

+#define XkbFreeClientMap    SrvXkbFreeClientMap

+#define XkbFreeServerMap    SrvXkbFreeServerMap

+#define XkbKeyTypesForCoreSymbols SrvXkbKeyTypesForCoreSymbols

+#define XkbApplyCompatMapToKey    SrvXkbApplyCompatMapToKey

+#define XkbResizeKeyActions   SrvXkbResizeKeyActions

+#define XkbResizeKeySyms    SrvXkbResizeKeySyms

+#define XkbResizeKeyType    SrvXkbResizeKeyType

+#define XkbAllocCompatMap   SrvXkbAllocCompatMap

+#define XkbAllocControls    SrvXkbAllocControls

+#define XkbAllocIndicatorMaps   SrvXkbAllocIndicatorMaps

+#define XkbAllocKeyboard    SrvXkbAllocKeyboard

+#define XkbAllocNames     SrvXkbAllocNames

+#define XkbFreeCompatMap    SrvXkbFreeCompatMap

+#define XkbFreeKeyboard     SrvXkbFreeKeyboard

+#define XkbFreeNames      SrvXkbFreeNames

+#define XkbLatchModifiers   SrvXkbLatchModifiers

+#define XkbLatchGroup     SrvXkbLatchGroup

+#define XkbVirtualModsToReal    SrvXkbVirtualModsToReal

+#define XkbChangeKeycodeRange   SrvXkbChangeKeycodeRange

+#define XkbApplyVirtualModChanges SrvXkbApplyVirtualModChanges

+#endif

+

 #include "Xlibint.h"

 #include <X11/extensions/XKBproto.h>

 #include "XKBlibint.h"

diff --git a/libX11/src/xlibi18n/XDefaultIMIF.c b/libX11/src/xlibi18n/XDefaultIMIF.c
index e97d2f444..80199669e 100644
--- a/libX11/src/xlibi18n/XDefaultIMIF.c
+++ b/libX11/src/xlibi18n/XDefaultIMIF.c
@@ -1,469 +1,470 @@
-/*
-Copyright 1985, 1986, 1987, 1991, 1998  The Open Group
-
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the
-"Software"), to deal in the Software without restriction, including
-without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to
-permit persons to whom the Software is furnished to do so, subject to
-the following conditions: The above copyright notice and this
-permission notice shall be included in all copies or substantial
-portions of the Software.
-
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE
-EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.
-
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-
-X Window System is a trademark of The Open Group
-
-OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF
-logo, LBX, X Window System, and Xinerama are trademarks of the Open
-Group. All other trademarks and registered trademarks mentioned herein
-are the property of their respective owners. No right, title or
-interest in or to any trademark, service mark, logo or trade name of
-Sun Microsystems, Inc. or its licensors is granted.
-
-*/
-/*
- * Copyright 2000 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "XlcGeneric.h"
-
-#ifndef MAXINT
-#define MAXINT          (~((unsigned int)1 << (8 * sizeof(int)) - 1))
-#endif /* !MAXINT */
-
-typedef struct _StaticXIM *StaticXIM;
-
-typedef struct _XIMStaticXIMRec {
-    /* for CT => MB,WC converter */
-    XlcConv		 ctom_conv;
-    XlcConv		 ctow_conv;
-} XIMStaticXIMRec;
-
-typedef enum {
-    CREATE_IC = 1,
-    SET_ICVAL = 2,
-    GET_ICVAL = 3
-} XICOp_t;
-
-typedef struct _StaticXIM {
-    XIMMethods		methods;
-    XIMCoreRec		core;
-    XIMStaticXIMRec	*private;
-} StaticXIMRec;
-
-static Status _CloseIM(
-	XIM
-);
-
-static char *_SetIMValues(
-	XIM, XIMArg *
-);
-
-static char *_GetIMValues(
-	XIM, XIMArg*
-);
-
-static XIC _CreateIC(
-	XIM, XIMArg*
-);
-
-static _Xconst XIMMethodsRec local_im_methods = {
-    _CloseIM,		/* close */
-    _SetIMValues,	/* set_values */
-    _GetIMValues, 	/* get_values */
-    _CreateIC,		/* create_ic */
-    NULL,		/* ctstombs */
-    NULL		/* ctstowcs */
-};
-
-static void _DestroyIC(
-		       XIC
-);
-static void _SetFocus(
-		      XIC
-);
-static void _UnsetFocus(
-			XIC
-);
-static char* _SetICValues(
-			 XIC, XIMArg *
-);
-static char* _GetICValues(
-			 XIC, XIMArg *
-);
-static char *_MbReset(
-		      XIC
-);
-static wchar_t *_WcReset(
-			 XIC
-);
-static int _MbLookupString(
-	XIC, XKeyEvent *, char *, int, KeySym *, Status *
-);
-static int _WcLookupString(
-	XIC, XKeyEvent *, wchar_t *, int, KeySym *, Status *
-);
-
-static _Xconst XICMethodsRec local_ic_methods = {
-    _DestroyIC, 	/* destroy */
-    _SetFocus,		/* set_focus */
-    _UnsetFocus,	/* unset_focus */
-    _SetICValues,	/* set_values */
-    _GetICValues,	/* get_values */
-    _MbReset,		/* mb_reset */
-    _WcReset,		/* wc_reset */
-    NULL,		/* utf8_reset */		/* ??? */
-    _MbLookupString,	/* mb_lookup_string */
-    _WcLookupString,	/* wc_lookup_string */
-    NULL		/* utf8_lookup_string */	/* ??? */
-};
-
-XIM
-_XDefaultOpenIM(
-    XLCd                lcd,
-    Display             *dpy,
-    XrmDatabase         rdb,
-    char                *res_name,
-    char                *res_class)
-{
-    StaticXIM im;
-    XIMStaticXIMRec *local_impart;
-    XlcConv ctom_conv, ctow_conv;
-    int i;
-    char *mod;
-    char buf[BUFSIZ];
-
-    if (!(ctom_conv = _XlcOpenConverter(lcd,
-			XlcNCompoundText, lcd, XlcNMultiByte))) {
-	return((XIM)NULL);
-    }
-
-    if (!(ctow_conv = _XlcOpenConverter(lcd,
-			XlcNCompoundText, lcd, XlcNWideChar))) {
-	return((XIM)NULL);
-    }
-
-    if ((im = (StaticXIM)Xmalloc(sizeof(StaticXIMRec))) == (StaticXIM)NULL) {
-	return((XIM)NULL);
-    }
-    if ((local_impart = (XIMStaticXIMRec*)Xmalloc(sizeof(XIMStaticXIMRec)))
-	== (XIMStaticXIMRec *)NULL) {
-	Xfree(im);
-	return((XIM)NULL);
-    }
-    memset(im, 0, sizeof(StaticXIMRec));
-    memset(local_impart, 0, sizeof(XIMStaticXIMRec));
-
-    buf[0] = '\0';
-    i = 0;
-    if ((lcd->core->modifiers) && (*lcd->core->modifiers)) {
-#define	MODIFIER "@im="
-	mod = strstr(lcd->core->modifiers, MODIFIER);
-	if (mod) {
-	    mod += strlen(MODIFIER);
-	    while (*mod && *mod != '@' && i < BUFSIZ - 1) {
-		buf[i++] = *mod++;
-	    }
-	    buf[i] = '\0';
-	}
-    }
-#undef MODIFIER
-    if ((im->core.im_name = Xmalloc(i+1)) == NULL)
-	goto Error2;
-    strcpy(im->core.im_name, buf);
-
-    im->private = local_impart;
-    im->methods        = (XIMMethods)&local_im_methods;
-    im->core.lcd       = lcd;
-    im->core.ic_chain  = (XIC)NULL;
-    im->core.display   = dpy;
-    im->core.rdb       = rdb;
-    im->core.res_name  = NULL;
-    im->core.res_class = NULL;
-
-    local_impart->ctom_conv = ctom_conv;
-    local_impart->ctow_conv = ctow_conv;
-
-    if ((res_name != NULL) && (*res_name != '\0')){
-	im->core.res_name  = strdup(res_name);
-    }
-    if ((res_class != NULL) && (*res_class != '\0')){
-	im->core.res_class = strdup(res_class);
-    }
-
-    return (XIM)im;
-Error2 :
-    Xfree(im->private);
-    Xfree(im->core.im_name);
-    Xfree(im);
-    _XlcCloseConverter(ctom_conv);
-    _XlcCloseConverter(ctow_conv);
-    return(NULL);
-}
-
-static Status
-_CloseIM(XIM xim)
-{
-    StaticXIM im = (StaticXIM)xim;
-    _XlcCloseConverter(im->private->ctom_conv);
-    _XlcCloseConverter(im->private->ctow_conv);
-    XFree(im->private);
-    XFree(im->core.im_name);
-    if (im->core.res_name) XFree(im->core.res_name);
-    if (im->core.res_class) XFree(im->core.res_class);
-    return 1; /*bugID 4163122*/
-}
-
-static char *
-_SetIMValues(
-    XIM xim,
-    XIMArg *arg)
-{
-    return(arg->name);		/* evil */
-}
-
-static char *
-_GetIMValues(
-    XIM xim,
-    XIMArg *values)
-{
-    XIMArg *p;
-    XIMStyles *styles;
-
-    for (p = values; p->name != NULL; p++) {
-	if (strcmp(p->name, XNQueryInputStyle) == 0) {
-	    styles = (XIMStyles *)Xmalloc(sizeof(XIMStyles));
-	    *(XIMStyles **)p->value = styles;
-	    styles->count_styles = 1;
-	    styles->supported_styles =
-		(XIMStyle*)Xmalloc(styles->count_styles * sizeof(XIMStyle));
-	    styles->supported_styles[0] = (XIMPreeditNone | XIMStatusNone);
-	} else {
-	    break;
-	}
-    }
-    return (p->name);
-}
-
-static char*
-_SetICValueData(XIC ic, XIMArg *values, XICOp_t mode)
-{
-    XIMArg *p;
-    char *return_name = NULL;
-
-    for (p = values; p != NULL && p->name != NULL; p++) {
-	if(strcmp(p->name, XNInputStyle) == 0) {
-	    if (mode == CREATE_IC)
-		ic->core.input_style = (XIMStyle)p->value;
-	} else if (strcmp(p->name, XNClientWindow) == 0) {
-	    ic->core.client_window = (Window)p->value ;
-	} else if (strcmp(p->name, XNFocusWindow) == 0) {
-	    ic->core.focus_window = (Window)p->value ;
-	} else if (strcmp(p->name, XNPreeditAttributes) == 0
-		   || strcmp(p->name, XNStatusAttributes) == 0) {
-            return_name = _SetICValueData(ic, (XIMArg*)p->value, mode);
-            if (return_name) break;
-        } else {
-            return_name = p->name;
-            break;
-        }
-    }
-    return(return_name);
-}
-
-static char*
-_GetICValueData(XIC ic, XIMArg *values, XICOp_t mode)
-{
-    XIMArg *p;
-    char *return_name = NULL;
-
-    for (p = values; p->name != NULL; p++) {
-	if(strcmp(p->name, XNInputStyle) == 0) {
-	    *((XIMStyle *)(p->value)) = ic->core.input_style;
-	} else if (strcmp(p->name, XNClientWindow) == 0) {
-	    *((Window *)(p->value)) = ic->core.client_window;
-	} else if (strcmp(p->name, XNFocusWindow) == 0) {
-	    *((Window *)(p->value)) = ic->core.focus_window;
-	} else if (strcmp(p->name, XNFilterEvents) == 0) {
-	    *((unsigned long *)(p->value))= ic->core.filter_events;
-	} else if (strcmp(p->name, XNPreeditAttributes) == 0
-		   || strcmp(p->name, XNStatusAttributes) == 0) {
-	    return_name = _GetICValueData(ic, (XIMArg*)p->value, mode);
-	    if (return_name) break;
-	} else {
-	    return_name = p->name;
-	    break;
-	}
-    }
-    return(return_name);
-}
-
-static XIC
-_CreateIC(XIM im, XIMArg *arg)
-{
-    XIC ic;
-
-    if ((ic = (XIC)Xmalloc(sizeof(XICRec))) == (XIC)NULL) {
-	return ((XIC)NULL);
-    }
-    memset(ic, 0, sizeof(XICRec));
-
-    ic->methods = (XICMethods)&local_ic_methods;
-    ic->core.im = im;
-    ic->core.filter_events = KeyPressMask;
-
-    if (_SetICValueData(ic, arg, CREATE_IC) != NULL)
-	goto err_return;
-    if (!(ic->core.input_style))
-	goto err_return;
-
-    return (XIC)ic;
-err_return:
-    XFree(ic);
-    return ((XIC)NULL);
-}
-
-static void
-_DestroyIC(XIC ic)
-{
-/*BugId4255571. This Xfree() should be removed because XDestroyIC() still need ic after invoking _DestroyIC() and there is a XFree(ic) at the end of XDestroyIC() already.
-   if(ic)
-   	XFree(ic); */
-}
-
-static void
-_SetFocus(XIC ic)
-{
-}
-
-static void
-_UnsetFocus(XIC ic)
-{
-}
-
-static char*
-_SetICValues(XIC ic, XIMArg *args)
-{
-    char *ret = NULL;
-    if (!ic) {
-        return (args->name);
-    }
-    ret = _SetICValueData(ic, args, SET_ICVAL);
-    return(ret);
-}
-
-static char*
-_GetICValues(XIC ic, XIMArg *args)
-{
-    char *ret = NULL;
-    if (!ic) {
-        return (args->name);
-    }
-    ret = _GetICValueData(ic, args, GET_ICVAL);
-    return(ret);
-}
-
-static char *
-_MbReset(XIC xic)
-{
-    return(NULL);
-}
-
-static wchar_t *
-_WcReset(XIC xic)
-{
-    return(NULL);
-}
-
-static int
-_MbLookupString(
-    XIC xic,
-    XKeyEvent *ev,
-    char * buffer,
-    int bytes,
-    KeySym *keysym,
-    Status *status)
-{
-    XComposeStatus NotSupportedYet ;
-    int length;
-
-    length = XLookupString(ev, buffer, bytes, keysym, &NotSupportedYet);
-
-    if (keysym && *keysym == NoSymbol){
-	*status = XLookupNone;
-    } else if (length > 0) {
-	*status = XLookupBoth;
-    } else {
-	*status = XLookupKeySym;
-    }
-    return(length);
-}
-
-static int
-_WcLookupString(
-    XIC xic,
-    XKeyEvent *ev,
-    wchar_t * buffer,
-    int wlen,
-    KeySym *keysym,
-    Status *status)
-{
-    XComposeStatus NotSupportedYet ;
-    int length;
-    /* In single-byte, mb_len = wc_len */
-    char *mb_buf = (char *)Xmalloc(wlen);
-
-    length = XLookupString(ev, mb_buf, wlen, keysym, &NotSupportedYet);
-
-    if (keysym && *keysym == NoSymbol){
-	*status = XLookupNone;
-    } else if (length > 0) {
-	*status = XLookupBoth;
-    } else {
-	*status = XLookupKeySym;
-    }
-    mbstowcs(buffer, mb_buf, length);
-    XFree(mb_buf);
-    return(length);
-}
+/*

+Copyright 1985, 1986, 1987, 1991, 1998  The Open Group

+

+Permission is hereby granted, free of charge, to any person obtaining a

+copy of this software and associated documentation files (the

+"Software"), to deal in the Software without restriction, including

+without limitation the rights to use, copy, modify, merge, publish,

+distribute, sublicense, and/or sell copies of the Software, and to

+permit persons to whom the Software is furnished to do so, subject to

+the following conditions: The above copyright notice and this

+permission notice shall be included in all copies or substantial

+portions of the Software.

+

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE

+EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.

+

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+

+X Window System is a trademark of The Open Group

+

+OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF

+logo, LBX, X Window System, and Xinerama are trademarks of the Open

+Group. All other trademarks and registered trademarks mentioned herein

+are the property of their respective owners. No right, title or

+interest in or to any trademark, service mark, logo or trade name of

+Sun Microsystems, Inc. or its licensors is granted.

+

+*/

+/*

+ * Copyright 2000 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <unistd.h>

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "XlcGeneric.h"

+

+#ifndef MAXINT

+#define MAXINT          (~((unsigned int)1 << (8 * sizeof(int)) - 1))

+#endif /* !MAXINT */

+

+typedef struct _StaticXIM *StaticXIM;

+

+typedef struct _XIMStaticXIMRec {

+    /* for CT => MB,WC converter */

+    XlcConv		 ctom_conv;

+    XlcConv		 ctow_conv;

+} XIMStaticXIMRec;

+

+typedef enum {

+    CREATE_IC = 1,

+    SET_ICVAL = 2,

+    GET_ICVAL = 3

+} XICOp_t;

+

+typedef struct _StaticXIM {

+    XIMMethods		methods;

+    XIMCoreRec		core;

+    XIMStaticXIMRec	*private;

+} StaticXIMRec;

+

+static Status _CloseIM(

+	XIM

+);

+

+static char *_SetIMValues(

+	XIM, XIMArg *

+);

+

+static char *_GetIMValues(

+	XIM, XIMArg*

+);

+

+static XIC _CreateIC(

+	XIM, XIMArg*

+);

+

+static _Xconst XIMMethodsRec local_im_methods = {

+    _CloseIM,		/* close */

+    _SetIMValues,	/* set_values */

+    _GetIMValues, 	/* get_values */

+    _CreateIC,		/* create_ic */

+    NULL,		/* ctstombs */

+    NULL		/* ctstowcs */

+};

+

+static void _DestroyIC(

+		       XIC

+);

+static void _SetFocus(

+		      XIC

+);

+static void _UnsetFocus(

+			XIC

+);

+static char* _SetICValues(

+			 XIC, XIMArg *

+);

+static char* _GetICValues(

+			 XIC, XIMArg *

+);

+static char *_MbReset(

+		      XIC

+);

+static wchar_t *_WcReset(

+			 XIC

+);

+static int _MbLookupString(

+	XIC, XKeyEvent *, char *, int, KeySym *, Status *

+);

+static int _WcLookupString(

+	XIC, XKeyEvent *, wchar_t *, int, KeySym *, Status *

+);

+

+static _Xconst XICMethodsRec local_ic_methods = {

+    _DestroyIC, 	/* destroy */

+    _SetFocus,		/* set_focus */

+    _UnsetFocus,	/* unset_focus */

+    _SetICValues,	/* set_values */

+    _GetICValues,	/* get_values */

+    _MbReset,		/* mb_reset */

+    _WcReset,		/* wc_reset */

+    NULL,		/* utf8_reset */		/* ??? */

+    _MbLookupString,	/* mb_lookup_string */

+    _WcLookupString,	/* wc_lookup_string */

+    NULL		/* utf8_lookup_string */	/* ??? */

+};

+

+XIM

+_XDefaultOpenIM(

+    XLCd                lcd,

+    Display             *dpy,

+    XrmDatabase         rdb,

+    char                *res_name,

+    char                *res_class)

+{

+    StaticXIM im;

+    XIMStaticXIMRec *local_impart;

+    XlcConv ctom_conv, ctow_conv;

+    int i;

+    char *mod;

+    char buf[BUFSIZ];

+

+    if (!(ctom_conv = _XlcOpenConverter(lcd,

+			XlcNCompoundText, lcd, XlcNMultiByte))) {

+	return((XIM)NULL);

+    }

+

+    if (!(ctow_conv = _XlcOpenConverter(lcd,

+			XlcNCompoundText, lcd, XlcNWideChar))) {

+	return((XIM)NULL);

+    }

+

+    if ((im = (StaticXIM)Xmalloc(sizeof(StaticXIMRec))) == (StaticXIM)NULL) {

+	return((XIM)NULL);

+    }

+    if ((local_impart = (XIMStaticXIMRec*)Xmalloc(sizeof(XIMStaticXIMRec)))

+	== (XIMStaticXIMRec *)NULL) {

+	Xfree(im);

+	return((XIM)NULL);

+    }

+    memset(im, 0, sizeof(StaticXIMRec));

+    memset(local_impart, 0, sizeof(XIMStaticXIMRec));

+

+    buf[0] = '\0';

+    i = 0;

+    if ((lcd->core->modifiers) && (*lcd->core->modifiers)) {

+#define	MODIFIER "@im="

+	mod = strstr(lcd->core->modifiers, MODIFIER);

+	if (mod) {

+	    mod += strlen(MODIFIER);

+	    while (*mod && *mod != '@' && i < BUFSIZ - 1) {

+		buf[i++] = *mod++;

+	    }

+	    buf[i] = '\0';

+	}

+    }

+#undef MODIFIER

+    if ((im->core.im_name = Xmalloc(i+1)) == NULL)

+	goto Error2;

+    strcpy(im->core.im_name, buf);

+

+    im->private = local_impart;

+    im->methods        = (XIMMethods)&local_im_methods;

+    im->core.lcd       = lcd;

+    im->core.ic_chain  = (XIC)NULL;

+    im->core.display   = dpy;

+    im->core.rdb       = rdb;

+    im->core.res_name  = NULL;

+    im->core.res_class = NULL;

+

+    local_impart->ctom_conv = ctom_conv;

+    local_impart->ctow_conv = ctow_conv;

+

+    if ((res_name != NULL) && (*res_name != '\0')){

+	im->core.res_name  = strdup(res_name);

+    }

+    if ((res_class != NULL) && (*res_class != '\0')){

+	im->core.res_class = strdup(res_class);

+    }

+

+    return (XIM)im;

+Error2 :

+    Xfree(im->private);

+    Xfree(im->core.im_name);

+    Xfree(im);

+    _XlcCloseConverter(ctom_conv);

+    _XlcCloseConverter(ctow_conv);

+    return(NULL);

+}

+

+static Status

+_CloseIM(XIM xim)

+{

+    StaticXIM im = (StaticXIM)xim;

+    _XlcCloseConverter(im->private->ctom_conv);

+    _XlcCloseConverter(im->private->ctow_conv);

+    XFree(im->private);

+    XFree(im->core.im_name);

+    if (im->core.res_name) XFree(im->core.res_name);

+    if (im->core.res_class) XFree(im->core.res_class);

+    return 1; /*bugID 4163122*/

+}

+

+static char *

+_SetIMValues(

+    XIM xim,

+    XIMArg *arg)

+{

+    return(arg->name);		/* evil */

+}

+

+static char *

+_GetIMValues(

+    XIM xim,

+    XIMArg *values)

+{

+    XIMArg *p;

+    XIMStyles *styles;

+

+    for (p = values; p->name != NULL; p++) {

+	if (strcmp(p->name, XNQueryInputStyle) == 0) {

+	    styles = (XIMStyles *)Xmalloc(sizeof(XIMStyles));

+	    *(XIMStyles **)p->value = styles;

+	    styles->count_styles = 1;

+	    styles->supported_styles =

+		(XIMStyle*)Xmalloc(styles->count_styles * sizeof(XIMStyle));

+	    styles->supported_styles[0] = (XIMPreeditNone | XIMStatusNone);

+	} else {

+	    break;

+	}

+    }

+    return (p->name);

+}

+

+static char*

+_SetICValueData(XIC ic, XIMArg *values, XICOp_t mode)

+{

+    XIMArg *p;

+    char *return_name = NULL;

+

+    for (p = values; p != NULL && p->name != NULL; p++) {

+	if(strcmp(p->name, XNInputStyle) == 0) {

+	    if (mode == CREATE_IC)

+		ic->core.input_style = (XIMStyle)p->value;

+	} else if (strcmp(p->name, XNClientWindow) == 0) {

+	    ic->core.client_window = (Window)p->value ;

+	} else if (strcmp(p->name, XNFocusWindow) == 0) {

+	    ic->core.focus_window = (Window)p->value ;

+	} else if (strcmp(p->name, XNPreeditAttributes) == 0

+		   || strcmp(p->name, XNStatusAttributes) == 0) {

+            return_name = _SetICValueData(ic, (XIMArg*)p->value, mode);

+            if (return_name) break;

+        } else {

+            return_name = p->name;

+            break;

+        }

+    }

+    return(return_name);

+}

+

+static char*

+_GetICValueData(XIC ic, XIMArg *values, XICOp_t mode)

+{

+    XIMArg *p;

+    char *return_name = NULL;

+

+    for (p = values; p->name != NULL; p++) {

+	if(strcmp(p->name, XNInputStyle) == 0) {

+	    *((XIMStyle *)(p->value)) = ic->core.input_style;

+	} else if (strcmp(p->name, XNClientWindow) == 0) {

+	    *((Window *)(p->value)) = ic->core.client_window;

+	} else if (strcmp(p->name, XNFocusWindow) == 0) {

+	    *((Window *)(p->value)) = ic->core.focus_window;

+	} else if (strcmp(p->name, XNFilterEvents) == 0) {

+	    *((unsigned long *)(p->value))= ic->core.filter_events;

+	} else if (strcmp(p->name, XNPreeditAttributes) == 0

+		   || strcmp(p->name, XNStatusAttributes) == 0) {

+	    return_name = _GetICValueData(ic, (XIMArg*)p->value, mode);

+	    if (return_name) break;

+	} else {

+	    return_name = p->name;

+	    break;

+	}

+    }

+    return(return_name);

+}

+

+static XIC

+_CreateIC(XIM im, XIMArg *arg)

+{

+    XIC ic;

+

+    if ((ic = (XIC)Xmalloc(sizeof(XICRec))) == (XIC)NULL) {

+	return ((XIC)NULL);

+    }

+    memset(ic, 0, sizeof(XICRec));

+

+    ic->methods = (XICMethods)&local_ic_methods;

+    ic->core.im = im;

+    ic->core.filter_events = KeyPressMask;

+

+    if (_SetICValueData(ic, arg, CREATE_IC) != NULL)

+	goto err_return;

+    if (!(ic->core.input_style))

+	goto err_return;

+

+    return (XIC)ic;

+err_return:

+    XFree(ic);

+    return ((XIC)NULL);

+}

+

+static void

+_DestroyIC(XIC ic)

+{

+/*BugId4255571. This Xfree() should be removed because XDestroyIC() still need ic after invoking _DestroyIC() and there is a XFree(ic) at the end of XDestroyIC() already.

+   if(ic)

+   	XFree(ic); */

+}

+

+static void

+_SetFocus(XIC ic)

+{

+}

+

+static void

+_UnsetFocus(XIC ic)

+{

+}

+

+static char*

+_SetICValues(XIC ic, XIMArg *args)

+{

+    char *ret = NULL;

+    if (!ic) {

+        return (args->name);

+    }

+    ret = _SetICValueData(ic, args, SET_ICVAL);

+    return(ret);

+}

+

+static char*

+_GetICValues(XIC ic, XIMArg *args)

+{

+    char *ret = NULL;

+    if (!ic) {

+        return (args->name);

+    }

+    ret = _GetICValueData(ic, args, GET_ICVAL);

+    return(ret);

+}

+

+static char *

+_MbReset(XIC xic)

+{

+    return(NULL);

+}

+

+static wchar_t *

+_WcReset(XIC xic)

+{

+    return(NULL);

+}

+

+static int

+_MbLookupString(

+    XIC xic,

+    XKeyEvent *ev,

+    char * buffer,

+    int bytes,

+    KeySym *keysym,

+    Status *status)

+{

+    XComposeStatus NotSupportedYet ;

+    int length;

+

+    length = XLookupString(ev, buffer, bytes, keysym, &NotSupportedYet);

+

+    if (keysym && *keysym == NoSymbol){

+	*status = XLookupNone;

+    } else if (length > 0) {

+	*status = XLookupBoth;

+    } else {

+	*status = XLookupKeySym;

+    }

+    return(length);

+}

+

+static int

+_WcLookupString(

+    XIC xic,

+    XKeyEvent *ev,

+    wchar_t * buffer,

+    int wlen,

+    KeySym *keysym,

+    Status *status)

+{

+    XComposeStatus NotSupportedYet ;

+    int length;

+    /* In single-byte, mb_len = wc_len */

+    char *mb_buf = (char *)Xmalloc(wlen);

+

+    length = XLookupString(ev, mb_buf, wlen, keysym, &NotSupportedYet);

+

+    if (keysym && *keysym == NoSymbol){

+	*status = XLookupNone;

+    } else if (length > 0) {

+	*status = XLookupBoth;

+    } else {

+	*status = XLookupKeySym;

+    }

+    mbstowcs(buffer, mb_buf, length);

+    XFree(mb_buf);

+    return(length);

+}

diff --git a/libX11/src/xlibi18n/XDefaultOMIF.c b/libX11/src/xlibi18n/XDefaultOMIF.c
index b1dc66df6..ad1983a0d 100644
--- a/libX11/src/xlibi18n/XDefaultOMIF.c
+++ b/libX11/src/xlibi18n/XDefaultOMIF.c
@@ -1,1261 +1,1263 @@
-/*
-Copyright 1985, 1986, 1987, 1991, 1998  The Open Group
-
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the
-"Software"), to deal in the Software without restriction, including
-without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to
-permit persons to whom the Software is furnished to do so, subject to
-the following conditions: The above copyright notice and this
-permission notice shall be included in all copies or substantial
-portions of the Software.
-
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE
-EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.
-
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-
-X Window System is a trademark of The Open Group
-
-OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF
-logo, LBX, X Window System, and Xinerama are trademarks of the Open
-Group. All other trademarks and registered trademarks mentioned herein
-are the property of their respective owners. No right, title or
-interest in or to any trademark, service mark, logo or trade name of
-Sun Microsystems, Inc. or its licensors is granted.
-
-*/
-/*
- * Copyright 2000 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include "Xlibint.h"
-#include "Xlcint.h"
-#include "XlcPublic.h"
-#include <X11/Xos.h>
-#include <X11/Xatom.h>
-#include <stdio.h>
-
-#define MAXFONTS		100
-
-#define XOM_GENERIC(om)		(&((XOMGeneric) om)->gen)
-#define XOC_GENERIC(font_set)	(&((XOCGeneric) font_set)->gen)
-
-#define DefineLocalBuf		char local_buf[BUFSIZ]
-#define AllocLocalBuf(length)	(length > BUFSIZ ? (char *)Xmalloc(length) : local_buf)
-#define FreeLocalBuf(ptr)	if (ptr != local_buf) Xfree(ptr)
-
-typedef struct _FontDataRec {
-    char *name;
-} FontDataRec, *FontData;
-
-typedef struct _OMDataRec {
-    int font_data_count;
-    FontData font_data;
-} OMDataRec, *OMData;
-
-typedef struct _XOMGenericPart {
-    OMData data;
-} XOMGenericPart;
-
-typedef struct _XOMGenericRec {
-    XOMMethods methods;
-    XOMCoreRec core;
-    XOMGenericPart gen;
-} XOMGenericRec, *XOMGeneric;
-
-typedef struct _FontSetRec {
-    int id;
-    int font_data_count;
-    FontData font_data;
-    char *font_name;
-    XFontStruct *info;
-    XFontStruct *font;
-} FontSetRec, *FontSet;
-
-typedef struct _XOCGenericPart {
-    XlcConv wcs_to_cs;
-    FontSet font_set;
-} XOCGenericPart;
-
-typedef struct _XOCGenericRec {
-    XOCMethods methods;
-    XOCCoreRec core;
-    XOCGenericPart gen;
-} XOCGenericRec, *XOCGeneric;
-
-static Bool
-init_fontset(
-    XOC oc)
-{
-    XOCGenericPart *gen;
-    FontSet font_set;
-    OMData data;
-
-    data = XOM_GENERIC(oc->core.om)->data;
-
-    font_set = Xcalloc(1, sizeof(FontSetRec));
-    if (font_set == NULL)
-	return False;
-
-    gen = XOC_GENERIC(oc);
-    gen->font_set = font_set;
-
-    font_set->font_data_count = data->font_data_count;
-    font_set->font_data = data->font_data;
-
-    return True;
-}
-
-static char *
-get_prop_name(
-    Display *dpy,
-    XFontStruct	*fs)
-{
-    unsigned long fp;
-
-    if (XGetFontProperty(fs, XA_FONT, &fp))
-	return XGetAtomName(dpy, fp);
-
-    return (char *) NULL;
-}
-
-static FontData
-check_charset(
-    FontSet font_set,
-    char *font_name)
-{
-    FontData font_data;
-    char *last;
-    int count;
-    ssize_t length, name_len;
-
-    name_len = strlen(font_name);
-    last = font_name + name_len;
-
-    count = font_set->font_data_count;
-    font_data = font_set->font_data;
-
-    for ( ; count-- > 0; font_data++) {
-	length = strlen(font_data->name);
-
-	if (length > name_len)
-	    return(NULL);
-
-	if (_XlcCompareISOLatin1(last - length, font_data->name) == 0)
-	    return font_data;
-    }
-    return (FontData) NULL;
-}
-
-#if 0 /* Unused */
-static int
-check_fontname(
-    XOC oc,
-    char *name)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontData data;
-    FontSet font_set;
-    XFontStruct *fs_list;
-    char **fn_list, *fname, *prop_fname = NULL;
-    int list_num, i;
-    int list2_num;
-    char **fn2_list = NULL;
-    int found_num = 0;
-
-    fn_list = XListFonts(dpy, name, MAXFONTS, &list_num);
-    if (fn_list == NULL)
-	return found_num;
-
-    for (i = 0; i < list_num; i++) {
-	fname = fn_list[i];
-
-	font_set = gen->font_set;
-
-	if ((data = check_charset(font_set, fname)) == NULL) {
-	    if ((fn2_list = XListFontsWithInfo(dpy, name, MAXFONTS,
-					       &list2_num, &fs_list))
-		&& (prop_fname = get_prop_name(dpy, fs_list))
-		&& (data = check_charset(font_set, prop_fname)))
-		fname = prop_fname;
-	}
-	if (data) {
-	    font_set->font_name = strdup(fname);
-	    if (font_set->font_name) {
-		found_num++;
-	    }
-	}
-	if (fn2_list) {
-	    XFreeFontInfo(fn2_list, fs_list, list2_num);
-	    fn2_list = NULL;
-	    if (prop_fname) {
-		Xfree(prop_fname);
-		prop_fname = NULL;
-	    }
-	}
-	if (found_num == 1)
-	    break;
-    }
-    XFreeFontNames(fn_list);
-    return found_num;
-}
-#endif
-
-static Bool
-load_font(
-    XOC oc)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set = gen->font_set;
-
-    if (font_set->font_name == NULL)
-	return False;
-
-    if (font_set->font == NULL) {
-	font_set->font = XLoadQueryFont(dpy, font_set->font_name);
-	if (font_set->font == NULL)
-	    return False;
-    }
-    return True;
-}
-
-#if 0
-static Bool
-load_font_info(
-    XOC oc)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set = gen->font_set;
-    char **fn_list;
-    int fn_num;
-
-    if (font_set->font_name == NULL)
-	return False;
-
-    if (font_set->info == NULL) {
-	fn_list = XListFontsWithInfo(dpy, font_set->font_name, 1, &fn_num,
-				     &font_set->info);
-	if (font_set->info == NULL)
-	    return False;
-	if (fn_num > 0)
-	    font_set->info->fid = XLoadFont(dpy, font_set->font_name);
-
-	if (fn_list) XFreeFontNames(fn_list);
-    }
-    return True;
-}
-#endif
-
-static void
-set_fontset_extents(
-    XOC oc)
-{
-    XRectangle *ink = &oc->core.font_set_extents.max_ink_extent;
-    XRectangle *logical = &oc->core.font_set_extents.max_logical_extent;
-    XFontStruct **font_list, *font;
-    XCharStruct overall;
-    int logical_ascent, logical_descent;
-
-    font_list = oc->core.font_info.font_struct_list;
-    font = *font_list++;
-    overall = font->max_bounds;
-    overall.lbearing = font->min_bounds.lbearing;
-    logical_ascent = font->ascent;
-    logical_descent = font->descent;
-
-    ink->x = overall.lbearing;
-    ink->y = -(overall.ascent);
-    ink->width = overall.rbearing - overall.lbearing;
-    ink->height = overall.ascent + overall.descent;
-
-    logical->x = 0;
-    logical->y = -(logical_ascent);
-    logical->width = overall.width;
-    logical->height = logical_ascent + logical_descent;
-}
-
-static Bool
-init_core_part(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set;
-    XFontStruct **font_struct_list;
-    char **font_name_list, *font_name_buf;
-    int	count, length;
-
-    font_set = gen->font_set;
-    count = length = 0;
-
-    if (font_set->font_name != NULL) {
-	length += strlen(font_set->font_name) + 1;
-	count++;
-    }
-    if (count == 0)
-        return False;
-
-    font_struct_list = (XFontStruct **) Xmalloc(sizeof(XFontStruct *));
-    if (font_struct_list == NULL)
-	return False;
-
-    font_name_list = (char **) Xmalloc(sizeof(char *));
-    if (font_name_list == NULL)
-	goto err;
-
-    font_name_buf = (char *) Xmalloc(length);
-    if (font_name_buf == NULL)
-	goto err;
-
-    oc->core.font_info.num_font = 1;
-    oc->core.font_info.font_name_list = font_name_list;
-    oc->core.font_info.font_struct_list = font_struct_list;
-
-    font_set = gen->font_set;
-
-    if (font_set->font_name != NULL) {
-	font_set->id = 1;
-	if (font_set->font)
-	    *font_struct_list++ = font_set->font;
-	else
-	    *font_struct_list++ = font_set->info;
-	strcpy(font_name_buf, font_set->font_name);
-	Xfree(font_set->font_name);
-	*font_name_list++ = font_set->font_name = font_name_buf;
-	font_name_buf += strlen(font_name_buf) + 1;
-    }
-
-    set_fontset_extents(oc);
-
-    return True;
-
-err:
-    if (font_name_list)
-	Xfree(font_name_list);
-    Xfree(font_struct_list);
-
-    return False;
-}
-
-static char *
-get_font_name(
-    XOC oc,
-    char *pattern)
-{
-    char **list, *name;
-    int count;
-    XFontStruct *fs;
-    Display *dpy = oc->core.om->core.display;
-
-    list = XListFonts(dpy, pattern, 1, &count);
-    if (list != NULL) {
-	name = strdup(*list);
-
-	XFreeFontNames(list);
-    } else {
-	fs = XLoadQueryFont(dpy, pattern);
-	if (fs == NULL) return NULL;
-
-	name = get_prop_name(dpy, fs);
-	XFreeFont(dpy, fs);
-    }
-    return name;
-}
-
-static int
-parse_fontname(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set;
-    FontData font_data;
-    char *pattern, *last, buf[BUFSIZ];
-    int font_data_count, found_num = 0;
-    ssize_t length;
-    int count, num_fields;
-    char *base_name, *font_name, **name_list, **cur_name_list;
-    char *charset_p = NULL;
-    Bool append_charset;
-    /*
-       append_charset flag should be set to True when the XLFD fontname
-       doesn't contain a chaset part.
-     */
-
-    name_list = _XParseBaseFontNameList(oc->core.base_name_list, &count);
-    if (name_list == NULL)
-	return -1;
-    cur_name_list = name_list;
-
-    while (count-- > 0) {
-        pattern = *cur_name_list++;
-	if (pattern == NULL || *pattern == '\0')
-	    continue;
-
-	append_charset = False;
-
-	if (strchr(pattern, '*') == NULL &&
-	    (font_name = get_font_name(oc, pattern))) {
-
-	    font_set = gen->font_set;
-
-	    font_data = check_charset(font_set, font_name);
-	    if (font_data == NULL) {
-		Display *dpy = oc->core.om->core.display;
-		char **fn_list = NULL, *prop_fname = NULL;
-		int list_num;
-		XFontStruct *fs_list;
-		if ((fn_list = XListFontsWithInfo(dpy, font_name,
-						  MAXFONTS,
-						  &list_num, &fs_list))
-		    && (prop_fname = get_prop_name(dpy, fs_list))
-		    && (font_data = check_charset(font_set, prop_fname))) {
-		    if (fn_list) {
-			XFreeFontInfo(fn_list, fs_list, list_num);
-			fn_list = NULL;
-		    }
-		    font_name = prop_fname;
-		}
-	    }
-	    if (font_data == NULL)
-		continue;
-
-	    font_set->font_name = strdup(font_name);
-	    Xfree(font_name);
-	    if (font_set->font_name == NULL) {
-		goto err;
-	    }
-	    found_num++;
-	    goto found;
-	}
-/*
-1266793
-Limit the length of the string copy to prevent stack corruption.
-	strcpy(buf, pattern);
-*/
-	strncpy(buf, pattern, BUFSIZ);
-	buf[BUFSIZ-1] = '\0';
-	length = strlen(buf);
-	last = buf + length - 1;
-
-	for (num_fields = 0, base_name = buf; *base_name != '\0'; base_name++)
-	    if (*base_name == '-') num_fields++;
-	if (strchr(pattern, '*') == NULL) {
-	    if (num_fields == 12) {
-		append_charset = True;
-		*++last = '-';
-		last++;
-	    } else
-		continue;
-	} else {
-	    if (num_fields == 13 || num_fields == 14) {
-	    /*
-	     * There are 14 fields in an XLFD name -- make certain the
-	     * charset (& encoding) is placed in the correct field.
-	     */
-		append_charset = True;
-		last = strrchr (buf, '-');
-		if (num_fields == 14) {
-		    *last = '\0';
-		    last = strrchr (buf, '-');
-		}
-		last++;
-	    } else if (*last == '*') {
-		append_charset = True;
-		if (length > 3 && *(last-3) == '-' && *(last-2) == '*'
-		    && *(last-1) == '-') {
-		    last -= 2;
-		}
-		*++last = '-';
-		last++;
-	    } else {
-		last = strrchr (buf, '-');
-		charset_p = last;
-		charset_p = strrchr (buf, '-');
-		while (*(--charset_p) != '-');
-		charset_p++;
-	    }
-	}
-
-	font_set = gen->font_set;
-
-	font_data = font_set->font_data;
-	font_data_count = font_set->font_data_count;
-	for ( ; font_data_count-- > 0; font_data++) {
-	    if (append_charset)
-		{
-/*
-1266793
-Limit the length of the string copy to prevent stack corruption.
-		strcpy(last, font_data->name);
-*/
-		strncpy(last, font_data->name, BUFSIZ - length);
-		buf[BUFSIZ-1] = '\0';
-		}
-	    else {
-		if (_XlcCompareISOLatin1(charset_p,
-					 font_data->name)) {
-		    continue;
-		}
-	    }
-	    if ((font_set->font_name = get_font_name(oc, buf)))
-		break;
-	}
-	if (font_set->font_name != NULL) {
-	    found_num++;
-	    goto found;
-	}
-    }
-  found:
-    base_name = strdup(oc->core.base_name_list);
-    if (base_name == NULL)
-	goto err;
-
-    oc->core.base_name_list = base_name;
-
-    XFreeStringList(name_list);
-
-    return found_num;
-err:
-    XFreeStringList(name_list);
-
-    return -1;
-}
-
-static Bool
-set_missing_list(
-    XOC oc)
-{
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    FontSet font_set;
-    char **charset_list, *charset_buf;
-    int	count, length;
-
-    font_set = gen->font_set;
-    count = length = 0;
-
-    if (!font_set->info && !font_set->font) {
-	length += strlen(font_set->font_data->name) + 1;
-	count++;
-    }
-
-    if (count == 0)
-	return True;
-
-    charset_list = (char **) Xmalloc(sizeof(char *));
-    if (charset_list == NULL)
-	return False;
-
-    charset_buf = (char *) Xmalloc(length);
-    if (charset_buf == NULL) {
-	Xfree(charset_list);
-	return False;
-    }
-
-    oc->core.missing_list.charset_list = charset_list;
-
-    font_set = gen->font_set;
-
-    if (!font_set->info && !font_set->font) {
-	strcpy(charset_buf, font_set->font_data->name);
-	*charset_list++ = charset_buf;
-	charset_buf += strlen(charset_buf) + 1;
-    }
-    return True;
-}
-
-static Bool
-create_fontset(
-    XOC oc)
-{
-    int found_num;
-
-    if (init_fontset(oc) == False)
-        return False;
-
-    found_num = parse_fontname(oc);
-    if (found_num <= 0) {
-	if (found_num == 0)
-	    set_missing_list(oc);
-	return False;
-    }
-
-    if (load_font(oc) == False)
-	return False;
-
-    if (init_core_part(oc) == False)
-	return False;
-
-    if (set_missing_list(oc) == False)
-	return False;
-
-    return True;
-}
-
-static void
-destroy_oc(
-    XOC oc)
-{
-    Display *dpy = oc->core.om->core.display;
-    XOCGenericPart *gen = XOC_GENERIC(oc);
-    XFontStruct **font_list, *font;
-
-    if (gen->font_set)
-	Xfree(gen->font_set);
-
-    if (oc->core.base_name_list)
-	Xfree(oc->core.base_name_list);
-
-    if (oc->core.font_info.font_name_list)
-	XFreeStringList(oc->core.font_info.font_name_list);
-
-    if ((font_list = oc->core.font_info.font_struct_list)) {
-	if ((font = *font_list)) {
-	    if (font->fid)
-		XFreeFont(dpy, font);
-	    else
-		XFreeFontInfo(NULL, font, 1);
-	}
-	Xfree(oc->core.font_info.font_struct_list);
-    }
-
-    if (oc->core.missing_list.charset_list)
-	XFreeStringList(oc->core.missing_list.charset_list);
-
-#ifdef notdef
-    if (oc->core.res_name)
-	Xfree(oc->core.res_name);
-    if (oc->core.res_class)
-	Xfree(oc->core.res_class);
-#endif
-
-    Xfree(oc);
-}
-
-static char *
-set_oc_values(
-    XOC oc,
-    XlcArgList args,
-    int num_args)
-{
-    if (oc->core.resources == NULL)
-	return NULL;
-
-    return _XlcSetValues((XPointer) oc, oc->core.resources,
-			 oc->core.num_resources, args, num_args, XlcSetMask);
-}
-
-static char *
-get_oc_values(
-    XOC oc,
-    XlcArgList args,
-    int num_args)
-{
-    if (oc->core.resources == NULL)
-	return NULL;
-
-    return _XlcGetValues((XPointer) oc, oc->core.resources,
-			 oc->core.num_resources, args, num_args, XlcGetMask);
-}
-
-static Bool
-wcs_to_mbs(
-    XOC oc,
-    char *to,
-    _Xconst wchar_t *from,
-    int length)
-{
-    XlcConv conv = XOC_GENERIC(oc)->wcs_to_cs;
-    XLCd lcd;
-    int ret, to_left = length;
-
-    if (conv == NULL) {
-	lcd = oc->core.om->core.lcd;
-	conv = _XlcOpenConverter(lcd, XlcNWideChar, lcd, XlcNMultiByte);
-	if (conv == NULL)
-	    return False;
-	XOC_GENERIC(oc)->wcs_to_cs = conv;
-    } else
-	_XlcResetConverter(conv);
-
-    ret = _XlcConvert(conv, (XPointer *) &from, &length, (XPointer *) &to,
-		      &to_left, NULL, 0);
-    if (ret != 0 || length > 0)
-	return False;
-
-    return True;
-}
-
-static int
-_XmbDefaultTextEscapement(XOC oc, _Xconst char *text, int length)
-{
-    return XTextWidth(*oc->core.font_info.font_struct_list, text, length);
-}
-
-static int
-_XwcDefaultTextEscapement(XOC oc, _Xconst wchar_t *text, int length)
-{
-    DefineLocalBuf;
-    char *buf = AllocLocalBuf(length);
-    int ret = 0;
-
-    if (buf == NULL)
-	return 0;
-
-    if (wcs_to_mbs(oc, buf, text, length) == False)
-	goto err;
-
-    ret = _XmbDefaultTextEscapement(oc, buf, length);
-
-err:
-    FreeLocalBuf(buf);
-
-    return ret;
-}
-
-static int
-_XmbDefaultTextExtents(XOC oc, _Xconst char *text, int length,
-		       XRectangle *overall_ink, XRectangle *overall_logical)
-{
-    int direction, logical_ascent, logical_descent;
-    XCharStruct overall;
-
-    XTextExtents(*oc->core.font_info.font_struct_list, text, length, &direction,
-		 &logical_ascent, &logical_descent, &overall);
-
-    if (overall_ink) {
-	overall_ink->x = overall.lbearing;
-	overall_ink->y = -(overall.ascent);
-	overall_ink->width = overall.rbearing - overall.lbearing;
-	overall_ink->height = overall.ascent + overall.descent;
-    }
-
-    if (overall_logical) {
-	overall_logical->x = 0;
-        overall_logical->y = -(logical_ascent);
-	overall_logical->width = overall.width;
-        overall_logical->height = logical_ascent + logical_descent;
-    }
-
-    return overall.width;
-}
-
-static int
-_XwcDefaultTextExtents(XOC oc, _Xconst wchar_t *text, int length,
-		       XRectangle *overall_ink, XRectangle *overall_logical)
-{
-    DefineLocalBuf;
-    char *buf = AllocLocalBuf(length);
-    int ret = 0;
-
-    if (buf == NULL)
-	return 0;
-
-    if (wcs_to_mbs(oc, buf, text, length) == False)
-	goto err;
-
-    ret = _XmbDefaultTextExtents(oc, buf, length, overall_ink, overall_logical);
-
-err:
-    FreeLocalBuf(buf);
-
-    return ret;
-}
-
-static Status
-_XmbDefaultTextPerCharExtents(XOC oc, _Xconst char *text, int length,
-			      XRectangle *ink_buf, XRectangle *logical_buf,
-			      int buf_size, int *num_chars,
-			      XRectangle *overall_ink,
-			      XRectangle *overall_logical)
-{
-    XFontStruct *font = *oc->core.font_info.font_struct_list;
-    XCharStruct *def, *cs, overall;
-    Bool first = True;
-
-    if (buf_size < length)
-	return 0;
-
-    bzero((char *) &overall, sizeof(XCharStruct));
-    *num_chars = 0;
-
-    CI_GET_DEFAULT_INFO_1D(font, def)
-
-    while (length-- > 0) {
-	CI_GET_CHAR_INFO_1D(font, *text, def, cs)
-	text++;
-	if (cs == NULL)
-	    continue;
-
-	ink_buf->x = overall.width + cs->lbearing;
-	ink_buf->y = -(cs->ascent);
-	ink_buf->width = cs->rbearing - cs->lbearing;
-	ink_buf->height = cs->ascent + cs->descent;
-	ink_buf++;
-
-	logical_buf->x = overall.width;
-	logical_buf->y = -(font->ascent);
-	logical_buf->width = cs->width;
-	logical_buf->height = font->ascent + font->descent;
-	logical_buf++;
-
-	if (first) {
-	    overall = *cs;
-	    first = False;
-	} else {
-	    overall.ascent = max(overall.ascent, cs->ascent);
-	    overall.descent = max(overall.descent, cs->descent);
-	    overall.lbearing = min(overall.lbearing, overall.width +
-				   cs->lbearing);
-	    overall.rbearing = max(overall.rbearing, overall.width +
-				   cs->rbearing);
-	    overall.width += cs->width;
-	}
-   	(*num_chars)++;
-    }
-
-    if (overall_ink) {
-	overall_ink->x = overall.lbearing;
-	overall_ink->y = -(overall.ascent);
-	overall_ink->width = overall.rbearing - overall.lbearing;
-	overall_ink->height = overall.ascent + overall.descent;
-    }
-
-    if (overall_logical) {
-	overall_logical->x = 0;
-	overall_logical->y = -(font->ascent);
-	overall_logical->width = overall.width;
-	overall_logical->height = font->ascent + font->descent;
-    }
-
-    return 1;
-}
-
-static Status
-_XwcDefaultTextPerCharExtents(XOC oc, _Xconst wchar_t *text, int length,
-			      XRectangle *ink_buf, XRectangle *logical_buf,
-			      int buf_size, int *num_chars,
-			      XRectangle *overall_ink,
-			      XRectangle *overall_logical)
-{
-    DefineLocalBuf;
-    char *buf = AllocLocalBuf(length);
-    Status ret = 0;
-
-    if (buf == NULL)
-	return 0;
-
-    if (wcs_to_mbs(oc, buf, text, length) == False)
-	goto err;
-
-    ret = _XmbDefaultTextPerCharExtents(oc, buf, length, ink_buf, logical_buf,
-					buf_size, num_chars, overall_ink,
-					overall_logical);
-
-err:
-    FreeLocalBuf(buf);
-
-    return ret;
-}
-
-static int
-_XmbDefaultDrawString(Display *dpy, Drawable d, XOC oc, GC gc, int x, int y,
-		      _Xconst char *text, int length)
-{
-    XFontStruct *font = *oc->core.font_info.font_struct_list;
-
-    XSetFont(dpy, gc, font->fid);
-    XDrawString(dpy, d, gc, x, y, text, length);
-
-    return XTextWidth(font, text, length);
-}
-
-static int
-_XwcDefaultDrawString(Display *dpy, Drawable d, XOC oc, GC gc, int x, int y,
-		      _Xconst wchar_t *text, int length)
-{
-    DefineLocalBuf;
-    char *buf = AllocLocalBuf(length);
-    int ret = 0;
-
-    if (buf == NULL)
-	return 0;
-
-    if (wcs_to_mbs(oc, buf, text, length) == False)
-	goto err;
-
-    ret = _XmbDefaultDrawString(dpy, d, oc, gc, x, y, buf, length);
-
-err:
-    FreeLocalBuf(buf);
-
-    return ret;
-}
-
-static void
-_XmbDefaultDrawImageString(Display *dpy, Drawable d, XOC oc, GC gc, int x,
-			   int y, _Xconst char *text, int length)
-{
-    XSetFont(dpy, gc, (*oc->core.font_info.font_struct_list)->fid);
-    XDrawImageString(dpy, d, gc, x, y, text, length);
-}
-
-static void
-_XwcDefaultDrawImageString(Display *dpy, Drawable d, XOC oc, GC gc, int x,
-			   int y, _Xconst wchar_t *text, int length)
-{
-    DefineLocalBuf;
-    char *buf = AllocLocalBuf(length);
-
-    if (buf == NULL)
-	return;
-
-    if (wcs_to_mbs(oc, buf, text, length) == False)
-	goto err;
-
-    _XmbDefaultDrawImageString(dpy, d, oc, gc, x, y, buf, length);
-
-err:
-    FreeLocalBuf(buf);
-}
-
-static _Xconst XOCMethodsRec oc_default_methods = {
-    destroy_oc,
-    set_oc_values,
-    get_oc_values,
-    _XmbDefaultTextEscapement,
-    _XmbDefaultTextExtents,
-    _XmbDefaultTextPerCharExtents,
-    _XmbDefaultDrawString,
-    _XmbDefaultDrawImageString,
-    _XwcDefaultTextEscapement,
-    _XwcDefaultTextExtents,
-    _XwcDefaultTextPerCharExtents,
-    _XwcDefaultDrawString,
-    _XwcDefaultDrawImageString
-};
-
-static XlcResource oc_resources[] = {
-    { XNBaseFontName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.base_name_list), XlcCreateMask | XlcGetMask },
-    { XNOMAutomatic, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOCRec, core.om_automatic), XlcGetMask },
-    { XNMissingCharSet, NULLQUARK, sizeof(XOMCharSetList),
-      XOffsetOf(XOCRec, core.missing_list), XlcGetMask },
-    { XNDefaultString, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.default_string), XlcGetMask },
-    { XNOrientation, NULLQUARK, sizeof(XOrientation),
-      XOffsetOf(XOCRec, core.orientation), XlcSetMask | XlcGetMask },
-    { XNResourceName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.res_name), XlcSetMask | XlcGetMask },
-    { XNResourceClass, NULLQUARK, sizeof(char *),
-      XOffsetOf(XOCRec, core.res_class), XlcSetMask | XlcGetMask },
-    { XNFontInfo, NULLQUARK, sizeof(XOMFontInfo),
-      XOffsetOf(XOCRec, core.font_info), XlcGetMask }
-};
-
-static XOC
-create_oc(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    XOC oc;
-
-    oc = Xcalloc(1, sizeof(XOCGenericRec));
-    if (oc == NULL)
-	return (XOC) NULL;
-
-    oc->core.om = om;
-
-    if (oc_resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(oc_resources, XlcNumber(oc_resources));
-
-    if (_XlcSetValues((XPointer) oc, oc_resources, XlcNumber(oc_resources),
-		      args, num_args, XlcCreateMask | XlcDefaultMask))
-	goto err;
-
-    if (oc->core.base_name_list == NULL)
-	goto err;
-
-    oc->core.resources = oc_resources;
-    oc->core.num_resources = XlcNumber(oc_resources);
-
-    if (create_fontset(oc) == False)
-	goto err;
-
-    oc->methods = (XOCMethods)&oc_default_methods;
-
-    return oc;
-
-err:
-    destroy_oc(oc);
-
-    return (XOC) NULL;
-}
-
-static Status
-close_om(
-    XOM om)
-{
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData data;
-    FontData font_data;
-    int count;
-
-    if ((data = gen->data)) {
-	if (data->font_data) {
-	  for (font_data = data->font_data, count = data->font_data_count;
-	       count-- > 0 ; font_data++) {
-	    if (font_data->name)
-		Xfree(font_data->name);
-	  }
-	  Xfree(data->font_data);
-	}
-	Xfree(gen->data);
-    }
-
-    if (om->core.res_name)
-	Xfree(om->core.res_name);
-    if (om->core.res_class)
-	Xfree(om->core.res_class);
-    if (om->core.required_charset.charset_list)
-	XFreeStringList(om->core.required_charset.charset_list);
-    else
-	Xfree((char*)om->core.required_charset.charset_list);
-    if (om->core.orientation_list.orientation)
-	Xfree(om->core.orientation_list.orientation);
-
-    Xfree(om);
-
-    return 1;
-}
-
-static char *
-set_om_values(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    if (om->core.resources == NULL)
-	return NULL;
-
-    return _XlcSetValues((XPointer) om, om->core.resources,
-			 om->core.num_resources, args, num_args, XlcSetMask);
-}
-
-static char *
-get_om_values(
-    XOM om,
-    XlcArgList args,
-    int num_args)
-{
-    if (om->core.resources == NULL)
-	return NULL;
-
-    return _XlcGetValues((XPointer) om, om->core.resources,
-			 om->core.num_resources, args, num_args, XlcGetMask);
-}
-
-static _Xconst XOMMethodsRec methods = {
-    close_om,
-    set_om_values,
-    get_om_values,
-    create_oc
-};
-
-static XlcResource om_resources[] = {
-    { XNRequiredCharSet, NULLQUARK, sizeof(XOMCharSetList),
-      XOffsetOf(XOMRec, core.required_charset), XlcGetMask },
-    { XNQueryOrientation, NULLQUARK, sizeof(XOMOrientation),
-      XOffsetOf(XOMRec, core.orientation_list), XlcGetMask },
-    { XNDirectionalDependentDrawing, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOMRec, core.directional_dependent), XlcGetMask },
-    { XNContextualDrawing, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XOMRec, core.contextual_drawing), XlcGetMask }
-};
-
-static OMData
-add_data(
-    XOM om)
-{
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData new;
-
-    new = Xcalloc(1, sizeof(OMDataRec));
-
-    if (new == NULL)
-        return NULL;
-
-    gen->data = new;
-
-    return new;
-}
-
-static _Xconst char *supported_charset_list[] = {
-    "ISO8859-1",
-/* fix for bug4332979 */
-    "adobe-fontspecific",
-/* fix for bug4237353: "JISX0201.1976-0" entry should be removed from
-   supported_charset_list because it is not a supported_charset for C locale
-    "JISX0201.1976-0", */
-    "SUNOLCURSOR-1",
-    "SUNOLGLYPH-1"
-};
-
-static Bool
-init_om(
-    XOM om)
-{
-    XOMGenericPart *gen = XOM_GENERIC(om);
-    OMData data;
-    FontData font_data;
-    char **required_list;
-    XOrientation *orientation;
-    char **value, buf[BUFSIZ], *bufptr;
-    int count, length = 0;
-
-    value = (char**)supported_charset_list;
-    count = XlcNumber(supported_charset_list);
-
-    data = add_data(om);
-    if (data == NULL)
-	return False;
-
-    font_data = Xcalloc(count, sizeof(FontDataRec));
-    if (font_data == NULL)
-	return False;
-    data->font_data = font_data;
-    data->font_data_count = count;
-
-    for ( ; count-- > 0; font_data++) {
-/*
-1266793
-This one is fine.  *value points to one of the local strings in
-supported_charset_list[].
-*/
-	strcpy(buf, *value++);
-	font_data->name = strdup(buf);
-	if (font_data->name == NULL)
-	    return False;
-    }
-
-    length += strlen(data->font_data->name) + 1;
-
-    /* required charset list */
-    required_list = (char **) Xmalloc(sizeof(char *));
-    if (required_list == NULL)
-	return False;
-
-    bufptr = (char *) Xmalloc(length);
-    if (bufptr == NULL) {
-	Xfree(required_list);
-	return False;
-    }
-
-    om->core.required_charset.charset_list = required_list;
-    om->core.required_charset.charset_count = 1; /* always 1 */
-
-    data = gen->data;
-
-    strcpy(bufptr, data->font_data->name);
-    *required_list++ = bufptr;
-    bufptr += strlen(bufptr) + 1;
-
-    /* orientation list */
-    orientation = (XOrientation *) Xmalloc(sizeof(XOrientation));
-    if (orientation == NULL)
-	return False;
-
-    *orientation = XOMOrientation_LTR_TTB;
-    om->core.orientation_list.orientation = orientation;
-    om->core.orientation_list.num_orientation = 1;
-
-    /* directional dependent drawing */
-    om->core.directional_dependent = False;
-
-    /* contexual drawing */
-    om->core.contextual_drawing = False;
-
-    /* context dependent */
-    om->core.context_dependent = False;
-
-    return True;
-}
-
-XOM
-_XDefaultOpenOM(XLCd lcd, Display *dpy, XrmDatabase rdb,
-		_Xconst char *res_name, _Xconst char *res_class)
-{
-    XOM om;
-
-    om = Xcalloc(1, sizeof(XOMGenericRec));
-    if (om == NULL)
-	return (XOM) NULL;
-
-    om->methods = (XOMMethods)&methods;
-    om->core.lcd = lcd;
-    om->core.display = dpy;
-    om->core.rdb = rdb;
-    if (res_name) {
-	om->core.res_name = strdup(res_name);
-	if (om->core.res_name == NULL)
-	    goto err;
-    }
-    if (res_class) {
-	om->core.res_class = strdup(res_class);
-	if (om->core.res_class == NULL)
-	    goto err;
-    }
-
-    if (om_resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(om_resources, XlcNumber(om_resources));
-
-    om->core.resources = om_resources;
-    om->core.num_resources = XlcNumber(om_resources);
-
-    if (init_om(om) == False)
-	goto err;
-
-    return om;
-err:
-    close_om(om);
-
-    return (XOM) NULL;
-}
+/*

+Copyright 1985, 1986, 1987, 1991, 1998  The Open Group

+

+Permission is hereby granted, free of charge, to any person obtaining a

+copy of this software and associated documentation files (the

+"Software"), to deal in the Software without restriction, including

+without limitation the rights to use, copy, modify, merge, publish,

+distribute, sublicense, and/or sell copies of the Software, and to

+permit persons to whom the Software is furnished to do so, subject to

+the following conditions: The above copyright notice and this

+permission notice shall be included in all copies or substantial

+portions of the Software.

+

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE

+EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.

+

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+

+X Window System is a trademark of The Open Group

+

+OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF

+logo, LBX, X Window System, and Xinerama are trademarks of the Open

+Group. All other trademarks and registered trademarks mentioned herein

+are the property of their respective owners. No right, title or

+interest in or to any trademark, service mark, logo or trade name of

+Sun Microsystems, Inc. or its licensors is granted.

+

+*/

+/*

+ * Copyright 2000 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include "Xlibint.h"

+#include "Xlcint.h"

+#include "XlcPublic.h"

+#include <X11/Xos.h>

+#include <X11/Xatom.h>

+#include <stdio.h>

+#include <unistd.h>

+#include <stdint.h>

+

+#define MAXFONTS		100

+

+#define XOM_GENERIC(om)		(&((XOMGeneric) om)->gen)

+#define XOC_GENERIC(font_set)	(&((XOCGeneric) font_set)->gen)

+

+#define DefineLocalBuf		char local_buf[BUFSIZ]

+#define AllocLocalBuf(length)	(length > BUFSIZ ? (char *)Xmalloc(length) : local_buf)

+#define FreeLocalBuf(ptr)	if (ptr != local_buf) Xfree(ptr)

+

+typedef struct _FontDataRec {

+    char *name;

+} FontDataRec, *FontData;

+

+typedef struct _OMDataRec {

+    int font_data_count;

+    FontData font_data;

+} OMDataRec, *OMData;

+

+typedef struct _XOMGenericPart {

+    OMData data;

+} XOMGenericPart;

+

+typedef struct _XOMGenericRec {

+    XOMMethods methods;

+    XOMCoreRec core;

+    XOMGenericPart gen;

+} XOMGenericRec, *XOMGeneric;

+

+typedef struct _FontSetRec {

+    int id;

+    int font_data_count;

+    FontData font_data;

+    char *font_name;

+    XFontStruct *info;

+    XFontStruct *font;

+} FontSetRec, *FontSet;

+

+typedef struct _XOCGenericPart {

+    XlcConv wcs_to_cs;

+    FontSet font_set;

+} XOCGenericPart;

+

+typedef struct _XOCGenericRec {

+    XOCMethods methods;

+    XOCCoreRec core;

+    XOCGenericPart gen;

+} XOCGenericRec, *XOCGeneric;

+

+static Bool

+init_fontset(

+    XOC oc)

+{

+    XOCGenericPart *gen;

+    FontSet font_set;

+    OMData data;

+

+    data = XOM_GENERIC(oc->core.om)->data;

+

+    font_set = Xcalloc(1, sizeof(FontSetRec));

+    if (font_set == NULL)

+	return False;

+

+    gen = XOC_GENERIC(oc);

+    gen->font_set = font_set;

+

+    font_set->font_data_count = data->font_data_count;

+    font_set->font_data = data->font_data;

+

+    return True;

+}

+

+static char *

+get_prop_name(

+    Display *dpy,

+    XFontStruct	*fs)

+{

+    unsigned long fp;

+

+    if (XGetFontProperty(fs, XA_FONT, &fp))

+	return XGetAtomName(dpy, fp);

+

+    return (char *) NULL;

+}

+

+static FontData

+check_charset(

+    FontSet font_set,

+    char *font_name)

+{

+    FontData font_data;

+    char *last;

+    int count;

+    ssize_t length, name_len;

+

+    name_len = strlen(font_name);

+    last = font_name + name_len;

+

+    count = font_set->font_data_count;

+    font_data = font_set->font_data;

+

+    for ( ; count-- > 0; font_data++) {

+	length = strlen(font_data->name);

+

+	if (length > name_len)

+	    return(NULL);

+

+	if (_XlcCompareISOLatin1(last - length, font_data->name) == 0)

+	    return font_data;

+    }

+    return (FontData) NULL;

+}

+

+#if 0 /* Unused */

+static int

+check_fontname(

+    XOC oc,

+    char *name)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontData data;

+    FontSet font_set;

+    XFontStruct *fs_list;

+    char **fn_list, *fname, *prop_fname = NULL;

+    int list_num, i;

+    int list2_num;

+    char **fn2_list = NULL;

+    int found_num = 0;

+

+    fn_list = XListFonts(dpy, name, MAXFONTS, &list_num);

+    if (fn_list == NULL)

+	return found_num;

+

+    for (i = 0; i < list_num; i++) {

+	fname = fn_list[i];

+

+	font_set = gen->font_set;

+

+	if ((data = check_charset(font_set, fname)) == NULL) {

+	    if ((fn2_list = XListFontsWithInfo(dpy, name, MAXFONTS,

+					       &list2_num, &fs_list))

+		&& (prop_fname = get_prop_name(dpy, fs_list))

+		&& (data = check_charset(font_set, prop_fname)))

+		fname = prop_fname;

+	}

+	if (data) {

+	    font_set->font_name = strdup(fname);

+	    if (font_set->font_name) {

+		found_num++;

+	    }

+	}

+	if (fn2_list) {

+	    XFreeFontInfo(fn2_list, fs_list, list2_num);

+	    fn2_list = NULL;

+	    if (prop_fname) {

+		Xfree(prop_fname);

+		prop_fname = NULL;

+	    }

+	}

+	if (found_num == 1)

+	    break;

+    }

+    XFreeFontNames(fn_list);

+    return found_num;

+}

+#endif

+

+static Bool

+load_font(

+    XOC oc)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set = gen->font_set;

+

+    if (font_set->font_name == NULL)

+	return False;

+

+    if (font_set->font == NULL) {

+	font_set->font = XLoadQueryFont(dpy, font_set->font_name);

+	if (font_set->font == NULL)

+	    return False;

+    }

+    return True;

+}

+

+#if 0

+static Bool

+load_font_info(

+    XOC oc)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set = gen->font_set;

+    char **fn_list;

+    int fn_num;

+

+    if (font_set->font_name == NULL)

+	return False;

+

+    if (font_set->info == NULL) {

+	fn_list = XListFontsWithInfo(dpy, font_set->font_name, 1, &fn_num,

+				     &font_set->info);

+	if (font_set->info == NULL)

+	    return False;

+	if (fn_num > 0)

+	    font_set->info->fid = XLoadFont(dpy, font_set->font_name);

+

+	if (fn_list) XFreeFontNames(fn_list);

+    }

+    return True;

+}

+#endif

+

+static void

+set_fontset_extents(

+    XOC oc)

+{

+    XRectangle *ink = &oc->core.font_set_extents.max_ink_extent;

+    XRectangle *logical = &oc->core.font_set_extents.max_logical_extent;

+    XFontStruct **font_list, *font;

+    XCharStruct overall;

+    int logical_ascent, logical_descent;

+

+    font_list = oc->core.font_info.font_struct_list;

+    font = *font_list++;

+    overall = font->max_bounds;

+    overall.lbearing = font->min_bounds.lbearing;

+    logical_ascent = font->ascent;

+    logical_descent = font->descent;

+

+    ink->x = overall.lbearing;

+    ink->y = -(overall.ascent);

+    ink->width = overall.rbearing - overall.lbearing;

+    ink->height = overall.ascent + overall.descent;

+

+    logical->x = 0;

+    logical->y = -(logical_ascent);

+    logical->width = overall.width;

+    logical->height = logical_ascent + logical_descent;

+}

+

+static Bool

+init_core_part(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set;

+    XFontStruct **font_struct_list;

+    char **font_name_list, *font_name_buf;

+    int	count, length;

+

+    font_set = gen->font_set;

+    count = length = 0;

+

+    if (font_set->font_name != NULL) {

+	length += strlen(font_set->font_name) + 1;

+	count++;

+    }

+    if (count == 0)

+        return False;

+

+    font_struct_list = (XFontStruct **) Xmalloc(sizeof(XFontStruct *));

+    if (font_struct_list == NULL)

+	return False;

+

+    font_name_list = (char **) Xmalloc(sizeof(char *));

+    if (font_name_list == NULL)

+	goto err;

+

+    font_name_buf = (char *) Xmalloc(length);

+    if (font_name_buf == NULL)

+	goto err;

+

+    oc->core.font_info.num_font = 1;

+    oc->core.font_info.font_name_list = font_name_list;

+    oc->core.font_info.font_struct_list = font_struct_list;

+

+    font_set = gen->font_set;

+

+    if (font_set->font_name != NULL) {

+	font_set->id = 1;

+	if (font_set->font)

+	    *font_struct_list++ = font_set->font;

+	else

+	    *font_struct_list++ = font_set->info;

+	strcpy(font_name_buf, font_set->font_name);

+	Xfree(font_set->font_name);

+	*font_name_list++ = font_set->font_name = font_name_buf;

+	font_name_buf += strlen(font_name_buf) + 1;

+    }

+

+    set_fontset_extents(oc);

+

+    return True;

+

+err:

+    if (font_name_list)

+	Xfree(font_name_list);

+    Xfree(font_struct_list);

+

+    return False;

+}

+

+static char *

+get_font_name(

+    XOC oc,

+    char *pattern)

+{

+    char **list, *name;

+    int count;

+    XFontStruct *fs;

+    Display *dpy = oc->core.om->core.display;

+

+    list = XListFonts(dpy, pattern, 1, &count);

+    if (list != NULL) {

+	name = strdup(*list);

+

+	XFreeFontNames(list);

+    } else {

+	fs = XLoadQueryFont(dpy, pattern);

+	if (fs == NULL) return NULL;

+

+	name = get_prop_name(dpy, fs);

+	XFreeFont(dpy, fs);

+    }

+    return name;

+}

+

+static int

+parse_fontname(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set;

+    FontData font_data;

+    char *pattern, *last, buf[BUFSIZ];

+    int font_data_count, found_num = 0;

+    ssize_t length;

+    int count, num_fields;

+    char *base_name, *font_name, **name_list, **cur_name_list;

+    char *charset_p = NULL;

+    Bool append_charset;

+    /*

+       append_charset flag should be set to True when the XLFD fontname

+       doesn't contain a chaset part.

+     */

+

+    name_list = _XParseBaseFontNameList(oc->core.base_name_list, &count);

+    if (name_list == NULL)

+	return -1;

+    cur_name_list = name_list;

+

+    while (count-- > 0) {

+        pattern = *cur_name_list++;

+	if (pattern == NULL || *pattern == '\0')

+	    continue;

+

+	append_charset = False;

+

+	if (strchr(pattern, '*') == NULL &&

+	    (font_name = get_font_name(oc, pattern))) {

+

+	    font_set = gen->font_set;

+

+	    font_data = check_charset(font_set, font_name);

+	    if (font_data == NULL) {

+		Display *dpy = oc->core.om->core.display;

+		char **fn_list = NULL, *prop_fname = NULL;

+		int list_num;

+		XFontStruct *fs_list;

+		if ((fn_list = XListFontsWithInfo(dpy, font_name,

+						  MAXFONTS,

+						  &list_num, &fs_list))

+		    && (prop_fname = get_prop_name(dpy, fs_list))

+		    && (font_data = check_charset(font_set, prop_fname))) {

+		    if (fn_list) {

+			XFreeFontInfo(fn_list, fs_list, list_num);

+			fn_list = NULL;

+		    }

+		    font_name = prop_fname;

+		}

+	    }

+	    if (font_data == NULL)

+		continue;

+

+	    font_set->font_name = strdup(font_name);

+	    Xfree(font_name);

+	    if (font_set->font_name == NULL) {

+		goto err;

+	    }

+	    found_num++;

+	    goto found;

+	}

+/*

+1266793

+Limit the length of the string copy to prevent stack corruption.

+	strcpy(buf, pattern);

+*/

+	strncpy(buf, pattern, BUFSIZ);

+	buf[BUFSIZ-1] = '\0';

+	length = strlen(buf);

+	last = buf + length - 1;

+

+	for (num_fields = 0, base_name = buf; *base_name != '\0'; base_name++)

+	    if (*base_name == '-') num_fields++;

+	if (strchr(pattern, '*') == NULL) {

+	    if (num_fields == 12) {

+		append_charset = True;

+		*++last = '-';

+		last++;

+	    } else

+		continue;

+	} else {

+	    if (num_fields == 13 || num_fields == 14) {

+	    /*

+	     * There are 14 fields in an XLFD name -- make certain the

+	     * charset (& encoding) is placed in the correct field.

+	     */

+		append_charset = True;

+		last = strrchr (buf, '-');

+		if (num_fields == 14) {

+		    *last = '\0';

+		    last = strrchr (buf, '-');

+		}

+		last++;

+	    } else if (*last == '*') {

+		append_charset = True;

+		if (length > 3 && *(last-3) == '-' && *(last-2) == '*'

+		    && *(last-1) == '-') {

+		    last -= 2;

+		}

+		*++last = '-';

+		last++;

+	    } else {

+		last = strrchr (buf, '-');

+		charset_p = last;

+		charset_p = strrchr (buf, '-');

+		while (*(--charset_p) != '-');

+		charset_p++;

+	    }

+	}

+

+	font_set = gen->font_set;

+

+	font_data = font_set->font_data;

+	font_data_count = font_set->font_data_count;

+	for ( ; font_data_count-- > 0; font_data++) {

+	    if (append_charset)

+		{

+/*

+1266793

+Limit the length of the string copy to prevent stack corruption.

+		strcpy(last, font_data->name);

+*/

+		strncpy(last, font_data->name, BUFSIZ - length);

+		buf[BUFSIZ-1] = '\0';

+		}

+	    else {

+		if (_XlcCompareISOLatin1(charset_p,

+					 font_data->name)) {

+		    continue;

+		}

+	    }

+	    if ((font_set->font_name = get_font_name(oc, buf)))

+		break;

+	}

+	if (font_set->font_name != NULL) {

+	    found_num++;

+	    goto found;

+	}

+    }

+  found:

+    base_name = strdup(oc->core.base_name_list);

+    if (base_name == NULL)

+	goto err;

+

+    oc->core.base_name_list = base_name;

+

+    XFreeStringList(name_list);

+

+    return found_num;

+err:

+    XFreeStringList(name_list);

+

+    return -1;

+}

+

+static Bool

+set_missing_list(

+    XOC oc)

+{

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    FontSet font_set;

+    char **charset_list, *charset_buf;

+    int	count, length;

+

+    font_set = gen->font_set;

+    count = length = 0;

+

+    if (!font_set->info && !font_set->font) {

+	length += strlen(font_set->font_data->name) + 1;

+	count++;

+    }

+

+    if (count == 0)

+	return True;

+

+    charset_list = (char **) Xmalloc(sizeof(char *));

+    if (charset_list == NULL)

+	return False;

+

+    charset_buf = (char *) Xmalloc(length);

+    if (charset_buf == NULL) {

+	Xfree(charset_list);

+	return False;

+    }

+

+    oc->core.missing_list.charset_list = charset_list;

+

+    font_set = gen->font_set;

+

+    if (!font_set->info && !font_set->font) {

+	strcpy(charset_buf, font_set->font_data->name);

+	*charset_list++ = charset_buf;

+	charset_buf += strlen(charset_buf) + 1;

+    }

+    return True;

+}

+

+static Bool

+create_fontset(

+    XOC oc)

+{

+    int found_num;

+

+    if (init_fontset(oc) == False)

+        return False;

+

+    found_num = parse_fontname(oc);

+    if (found_num <= 0) {

+	if (found_num == 0)

+	    set_missing_list(oc);

+	return False;

+    }

+

+    if (load_font(oc) == False)

+	return False;

+

+    if (init_core_part(oc) == False)

+	return False;

+

+    if (set_missing_list(oc) == False)

+	return False;

+

+    return True;

+}

+

+static void

+destroy_oc(

+    XOC oc)

+{

+    Display *dpy = oc->core.om->core.display;

+    XOCGenericPart *gen = XOC_GENERIC(oc);

+    XFontStruct **font_list, *font;

+

+    if (gen->font_set)

+	Xfree(gen->font_set);

+

+    if (oc->core.base_name_list)

+	Xfree(oc->core.base_name_list);

+

+    if (oc->core.font_info.font_name_list)

+	XFreeStringList(oc->core.font_info.font_name_list);

+

+    if ((font_list = oc->core.font_info.font_struct_list)) {

+	if ((font = *font_list)) {

+	    if (font->fid)

+		XFreeFont(dpy, font);

+	    else

+		XFreeFontInfo(NULL, font, 1);

+	}

+	Xfree(oc->core.font_info.font_struct_list);

+    }

+

+    if (oc->core.missing_list.charset_list)

+	XFreeStringList(oc->core.missing_list.charset_list);

+

+#ifdef notdef

+    if (oc->core.res_name)

+	Xfree(oc->core.res_name);

+    if (oc->core.res_class)

+	Xfree(oc->core.res_class);

+#endif

+

+    Xfree(oc);

+}

+

+static char *

+set_oc_values(

+    XOC oc,

+    XlcArgList args,

+    int num_args)

+{

+    if (oc->core.resources == NULL)

+	return NULL;

+

+    return _XlcSetValues((XPointer) oc, oc->core.resources,

+			 oc->core.num_resources, args, num_args, XlcSetMask);

+}

+

+static char *

+get_oc_values(

+    XOC oc,

+    XlcArgList args,

+    int num_args)

+{

+    if (oc->core.resources == NULL)

+	return NULL;

+

+    return _XlcGetValues((XPointer) oc, oc->core.resources,

+			 oc->core.num_resources, args, num_args, XlcGetMask);

+}

+

+static Bool

+wcs_to_mbs(

+    XOC oc,

+    char *to,

+    _Xconst wchar_t *from,

+    int length)

+{

+    XlcConv conv = XOC_GENERIC(oc)->wcs_to_cs;

+    XLCd lcd;

+    int ret, to_left = length;

+

+    if (conv == NULL) {

+	lcd = oc->core.om->core.lcd;

+	conv = _XlcOpenConverter(lcd, XlcNWideChar, lcd, XlcNMultiByte);

+	if (conv == NULL)

+	    return False;

+	XOC_GENERIC(oc)->wcs_to_cs = conv;

+    } else

+	_XlcResetConverter(conv);

+

+    ret = _XlcConvert(conv, (XPointer *) &from, &length, (XPointer *) &to,

+		      &to_left, NULL, 0);

+    if (ret != 0 || length > 0)

+	return False;

+

+    return True;

+}

+

+static int

+_XmbDefaultTextEscapement(XOC oc, _Xconst char *text, int length)

+{

+    return XTextWidth(*oc->core.font_info.font_struct_list, text, length);

+}

+

+static int

+_XwcDefaultTextEscapement(XOC oc, _Xconst wchar_t *text, int length)

+{

+    DefineLocalBuf;

+    char *buf = AllocLocalBuf(length);

+    int ret = 0;

+

+    if (buf == NULL)

+	return 0;

+

+    if (wcs_to_mbs(oc, buf, text, length) == False)

+	goto err;

+

+    ret = _XmbDefaultTextEscapement(oc, buf, length);

+

+err:

+    FreeLocalBuf(buf);

+

+    return ret;

+}

+

+static int

+_XmbDefaultTextExtents(XOC oc, _Xconst char *text, int length,

+		       XRectangle *overall_ink, XRectangle *overall_logical)

+{

+    int direction, logical_ascent, logical_descent;

+    XCharStruct overall;

+

+    XTextExtents(*oc->core.font_info.font_struct_list, text, length, &direction,

+		 &logical_ascent, &logical_descent, &overall);

+

+    if (overall_ink) {

+	overall_ink->x = overall.lbearing;

+	overall_ink->y = -(overall.ascent);

+	overall_ink->width = overall.rbearing - overall.lbearing;

+	overall_ink->height = overall.ascent + overall.descent;

+    }

+

+    if (overall_logical) {

+	overall_logical->x = 0;

+        overall_logical->y = -(logical_ascent);

+	overall_logical->width = overall.width;

+        overall_logical->height = logical_ascent + logical_descent;

+    }

+

+    return overall.width;

+}

+

+static int

+_XwcDefaultTextExtents(XOC oc, _Xconst wchar_t *text, int length,

+		       XRectangle *overall_ink, XRectangle *overall_logical)

+{

+    DefineLocalBuf;

+    char *buf = AllocLocalBuf(length);

+    int ret = 0;

+

+    if (buf == NULL)

+	return 0;

+

+    if (wcs_to_mbs(oc, buf, text, length) == False)

+	goto err;

+

+    ret = _XmbDefaultTextExtents(oc, buf, length, overall_ink, overall_logical);

+

+err:

+    FreeLocalBuf(buf);

+

+    return ret;

+}

+

+static Status

+_XmbDefaultTextPerCharExtents(XOC oc, _Xconst char *text, int length,

+			      XRectangle *ink_buf, XRectangle *logical_buf,

+			      int buf_size, int *num_chars,

+			      XRectangle *overall_ink,

+			      XRectangle *overall_logical)

+{

+    XFontStruct *font = *oc->core.font_info.font_struct_list;

+    XCharStruct *def, *cs, overall;

+    Bool first = True;

+

+    if (buf_size < length)

+	return 0;

+

+    bzero((char *) &overall, sizeof(XCharStruct));

+    *num_chars = 0;

+

+    CI_GET_DEFAULT_INFO_1D(font, def)

+

+    while (length-- > 0) {

+	CI_GET_CHAR_INFO_1D(font, *text, def, cs)

+	text++;

+	if (cs == NULL)

+	    continue;

+

+	ink_buf->x = overall.width + cs->lbearing;

+	ink_buf->y = -(cs->ascent);

+	ink_buf->width = cs->rbearing - cs->lbearing;

+	ink_buf->height = cs->ascent + cs->descent;

+	ink_buf++;

+

+	logical_buf->x = overall.width;

+	logical_buf->y = -(font->ascent);

+	logical_buf->width = cs->width;

+	logical_buf->height = font->ascent + font->descent;

+	logical_buf++;

+

+	if (first) {

+	    overall = *cs;

+	    first = False;

+	} else {

+	    overall.ascent = max(overall.ascent, cs->ascent);

+	    overall.descent = max(overall.descent, cs->descent);

+	    overall.lbearing = min(overall.lbearing, overall.width +

+				   cs->lbearing);

+	    overall.rbearing = max(overall.rbearing, overall.width +

+				   cs->rbearing);

+	    overall.width += cs->width;

+	}

+   	(*num_chars)++;

+    }

+

+    if (overall_ink) {

+	overall_ink->x = overall.lbearing;

+	overall_ink->y = -(overall.ascent);

+	overall_ink->width = overall.rbearing - overall.lbearing;

+	overall_ink->height = overall.ascent + overall.descent;

+    }

+

+    if (overall_logical) {

+	overall_logical->x = 0;

+	overall_logical->y = -(font->ascent);

+	overall_logical->width = overall.width;

+	overall_logical->height = font->ascent + font->descent;

+    }

+

+    return 1;

+}

+

+static Status

+_XwcDefaultTextPerCharExtents(XOC oc, _Xconst wchar_t *text, int length,

+			      XRectangle *ink_buf, XRectangle *logical_buf,

+			      int buf_size, int *num_chars,

+			      XRectangle *overall_ink,

+			      XRectangle *overall_logical)

+{

+    DefineLocalBuf;

+    char *buf = AllocLocalBuf(length);

+    Status ret = 0;

+

+    if (buf == NULL)

+	return 0;

+

+    if (wcs_to_mbs(oc, buf, text, length) == False)

+	goto err;

+

+    ret = _XmbDefaultTextPerCharExtents(oc, buf, length, ink_buf, logical_buf,

+					buf_size, num_chars, overall_ink,

+					overall_logical);

+

+err:

+    FreeLocalBuf(buf);

+

+    return ret;

+}

+

+static int

+_XmbDefaultDrawString(Display *dpy, Drawable d, XOC oc, GC gc, int x, int y,

+		      _Xconst char *text, int length)

+{

+    XFontStruct *font = *oc->core.font_info.font_struct_list;

+

+    XSetFont(dpy, gc, font->fid);

+    XDrawString(dpy, d, gc, x, y, text, length);

+

+    return XTextWidth(font, text, length);

+}

+

+static int

+_XwcDefaultDrawString(Display *dpy, Drawable d, XOC oc, GC gc, int x, int y,

+		      _Xconst wchar_t *text, int length)

+{

+    DefineLocalBuf;

+    char *buf = AllocLocalBuf(length);

+    int ret = 0;

+

+    if (buf == NULL)

+	return 0;

+

+    if (wcs_to_mbs(oc, buf, text, length) == False)

+	goto err;

+

+    ret = _XmbDefaultDrawString(dpy, d, oc, gc, x, y, buf, length);

+

+err:

+    FreeLocalBuf(buf);

+

+    return ret;

+}

+

+static void

+_XmbDefaultDrawImageString(Display *dpy, Drawable d, XOC oc, GC gc, int x,

+			   int y, _Xconst char *text, int length)

+{

+    XSetFont(dpy, gc, (*oc->core.font_info.font_struct_list)->fid);

+    XDrawImageString(dpy, d, gc, x, y, text, length);

+}

+

+static void

+_XwcDefaultDrawImageString(Display *dpy, Drawable d, XOC oc, GC gc, int x,

+			   int y, _Xconst wchar_t *text, int length)

+{

+    DefineLocalBuf;

+    char *buf = AllocLocalBuf(length);

+

+    if (buf == NULL)

+	return;

+

+    if (wcs_to_mbs(oc, buf, text, length) == False)

+	goto err;

+

+    _XmbDefaultDrawImageString(dpy, d, oc, gc, x, y, buf, length);

+

+err:

+    FreeLocalBuf(buf);

+}

+

+static _Xconst XOCMethodsRec oc_default_methods = {

+    destroy_oc,

+    set_oc_values,

+    get_oc_values,

+    _XmbDefaultTextEscapement,

+    _XmbDefaultTextExtents,

+    _XmbDefaultTextPerCharExtents,

+    _XmbDefaultDrawString,

+    _XmbDefaultDrawImageString,

+    _XwcDefaultTextEscapement,

+    _XwcDefaultTextExtents,

+    _XwcDefaultTextPerCharExtents,

+    _XwcDefaultDrawString,

+    _XwcDefaultDrawImageString

+};

+

+static XlcResource oc_resources[] = {

+    { XNBaseFontName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.base_name_list), XlcCreateMask | XlcGetMask },

+    { XNOMAutomatic, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOCRec, core.om_automatic), XlcGetMask },

+    { XNMissingCharSet, NULLQUARK, sizeof(XOMCharSetList),

+      XOffsetOf(XOCRec, core.missing_list), XlcGetMask },

+    { XNDefaultString, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.default_string), XlcGetMask },

+    { XNOrientation, NULLQUARK, sizeof(XOrientation),

+      XOffsetOf(XOCRec, core.orientation), XlcSetMask | XlcGetMask },

+    { XNResourceName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.res_name), XlcSetMask | XlcGetMask },

+    { XNResourceClass, NULLQUARK, sizeof(char *),

+      XOffsetOf(XOCRec, core.res_class), XlcSetMask | XlcGetMask },

+    { XNFontInfo, NULLQUARK, sizeof(XOMFontInfo),

+      XOffsetOf(XOCRec, core.font_info), XlcGetMask }

+};

+

+static XOC

+create_oc(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    XOC oc;

+

+    oc = Xcalloc(1, sizeof(XOCGenericRec));

+    if (oc == NULL)

+	return (XOC) NULL;

+

+    oc->core.om = om;

+

+    if (oc_resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(oc_resources, XlcNumber(oc_resources));

+

+    if (_XlcSetValues((XPointer) oc, oc_resources, XlcNumber(oc_resources),

+		      args, num_args, XlcCreateMask | XlcDefaultMask))

+	goto err;

+

+    if (oc->core.base_name_list == NULL)

+	goto err;

+

+    oc->core.resources = oc_resources;

+    oc->core.num_resources = XlcNumber(oc_resources);

+

+    if (create_fontset(oc) == False)

+	goto err;

+

+    oc->methods = (XOCMethods)&oc_default_methods;

+

+    return oc;

+

+err:

+    destroy_oc(oc);

+

+    return (XOC) NULL;

+}

+

+static Status

+close_om(

+    XOM om)

+{

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData data;

+    FontData font_data;

+    int count;

+

+    if ((data = gen->data)) {

+	if (data->font_data) {

+	  for (font_data = data->font_data, count = data->font_data_count;

+	       count-- > 0 ; font_data++) {

+	    if (font_data->name)

+		Xfree(font_data->name);

+	  }

+	  Xfree(data->font_data);

+	}

+	Xfree(gen->data);

+    }

+

+    if (om->core.res_name)

+	Xfree(om->core.res_name);

+    if (om->core.res_class)

+	Xfree(om->core.res_class);

+    if (om->core.required_charset.charset_list)

+	XFreeStringList(om->core.required_charset.charset_list);

+    else

+	Xfree((char*)om->core.required_charset.charset_list);

+    if (om->core.orientation_list.orientation)

+	Xfree(om->core.orientation_list.orientation);

+

+    Xfree(om);

+

+    return 1;

+}

+

+static char *

+set_om_values(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    if (om->core.resources == NULL)

+	return NULL;

+

+    return _XlcSetValues((XPointer) om, om->core.resources,

+			 om->core.num_resources, args, num_args, XlcSetMask);

+}

+

+static char *

+get_om_values(

+    XOM om,

+    XlcArgList args,

+    int num_args)

+{

+    if (om->core.resources == NULL)

+	return NULL;

+

+    return _XlcGetValues((XPointer) om, om->core.resources,

+			 om->core.num_resources, args, num_args, XlcGetMask);

+}

+

+static _Xconst XOMMethodsRec methods = {

+    close_om,

+    set_om_values,

+    get_om_values,

+    create_oc

+};

+

+static XlcResource om_resources[] = {

+    { XNRequiredCharSet, NULLQUARK, sizeof(XOMCharSetList),

+      XOffsetOf(XOMRec, core.required_charset), XlcGetMask },

+    { XNQueryOrientation, NULLQUARK, sizeof(XOMOrientation),

+      XOffsetOf(XOMRec, core.orientation_list), XlcGetMask },

+    { XNDirectionalDependentDrawing, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOMRec, core.directional_dependent), XlcGetMask },

+    { XNContextualDrawing, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XOMRec, core.contextual_drawing), XlcGetMask }

+};

+

+static OMData

+add_data(

+    XOM om)

+{

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData new;

+

+    new = Xcalloc(1, sizeof(OMDataRec));

+

+    if (new == NULL)

+        return NULL;

+

+    gen->data = new;

+

+    return new;

+}

+

+static _Xconst char *supported_charset_list[] = {

+    "ISO8859-1",

+/* fix for bug4332979 */

+    "adobe-fontspecific",

+/* fix for bug4237353: "JISX0201.1976-0" entry should be removed from

+   supported_charset_list because it is not a supported_charset for C locale

+    "JISX0201.1976-0", */

+    "SUNOLCURSOR-1",

+    "SUNOLGLYPH-1"

+};

+

+static Bool

+init_om(

+    XOM om)

+{

+    XOMGenericPart *gen = XOM_GENERIC(om);

+    OMData data;

+    FontData font_data;

+    char **required_list;

+    XOrientation *orientation;

+    char **value, buf[BUFSIZ], *bufptr;

+    int count, length = 0;

+

+    value = (char**)supported_charset_list;

+    count = XlcNumber(supported_charset_list);

+

+    data = add_data(om);

+    if (data == NULL)

+	return False;

+

+    font_data = Xcalloc(count, sizeof(FontDataRec));

+    if (font_data == NULL)

+	return False;

+    data->font_data = font_data;

+    data->font_data_count = count;

+

+    for ( ; count-- > 0; font_data++) {

+/*

+1266793

+This one is fine.  *value points to one of the local strings in

+supported_charset_list[].

+*/

+	strcpy(buf, *value++);

+	font_data->name = strdup(buf);

+	if (font_data->name == NULL)

+	    return False;

+    }

+

+    length += strlen(data->font_data->name) + 1;

+

+    /* required charset list */

+    required_list = (char **) Xmalloc(sizeof(char *));

+    if (required_list == NULL)

+	return False;

+

+    bufptr = (char *) Xmalloc(length);

+    if (bufptr == NULL) {

+	Xfree(required_list);

+	return False;

+    }

+

+    om->core.required_charset.charset_list = required_list;

+    om->core.required_charset.charset_count = 1; /* always 1 */

+

+    data = gen->data;

+

+    strcpy(bufptr, data->font_data->name);

+    *required_list++ = bufptr;

+    bufptr += strlen(bufptr) + 1;

+

+    /* orientation list */

+    orientation = (XOrientation *) Xmalloc(sizeof(XOrientation));

+    if (orientation == NULL)

+	return False;

+

+    *orientation = XOMOrientation_LTR_TTB;

+    om->core.orientation_list.orientation = orientation;

+    om->core.orientation_list.num_orientation = 1;

+

+    /* directional dependent drawing */

+    om->core.directional_dependent = False;

+

+    /* contexual drawing */

+    om->core.contextual_drawing = False;

+

+    /* context dependent */

+    om->core.context_dependent = False;

+

+    return True;

+}

+

+XOM

+_XDefaultOpenOM(XLCd lcd, Display *dpy, XrmDatabase rdb,

+		_Xconst char *res_name, _Xconst char *res_class)

+{

+    XOM om;

+

+    om = Xcalloc(1, sizeof(XOMGenericRec));

+    if (om == NULL)

+	return (XOM) NULL;

+

+    om->methods = (XOMMethods)&methods;

+    om->core.lcd = lcd;

+    om->core.display = dpy;

+    om->core.rdb = rdb;

+    if (res_name) {

+	om->core.res_name = strdup(res_name);

+	if (om->core.res_name == NULL)

+	    goto err;

+    }

+    if (res_class) {

+	om->core.res_class = strdup(res_class);

+	if (om->core.res_class == NULL)

+	    goto err;

+    }

+

+    if (om_resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(om_resources, XlcNumber(om_resources));

+

+    om->core.resources = om_resources;

+    om->core.num_resources = XlcNumber(om_resources);

+

+    if (init_om(om) == False)

+	goto err;

+

+    return om;

+err:

+    close_om(om);

+

+    return (XOM) NULL;

+}

diff --git a/libX11/src/xlibi18n/XimProto.h b/libX11/src/xlibi18n/XimProto.h
index 6b0096dd6..9551301a2 100644
--- a/libX11/src/xlibi18n/XimProto.h
+++ b/libX11/src/xlibi18n/XimProto.h
@@ -143,6 +143,13 @@ PERFORMANCE OF THIS SOFTWARE.
 /*
  * byte order
  */
+#ifdef BIGENDIAN
+#undef BIGENDIAN
+#endif
+#ifdef LITTLEENDIAN
+#undef LITTLEENDIAN
+#endif
+
 #define BIGENDIAN	(CARD8)0x42	/* MSB first */
 #define LITTLEENDIAN	(CARD8)0x6c	/* LSB first */
 
diff --git a/libX11/src/xlibi18n/XlcDL.c b/libX11/src/xlibi18n/XlcDL.c
index 75e193c05..4a05c40e4 100644
--- a/libX11/src/xlibi18n/XlcDL.c
+++ b/libX11/src/xlibi18n/XlcDL.c
@@ -1,612 +1,612 @@
-/*
-Copyright 1985, 1986, 1987, 1991, 1998  The Open Group
-
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the
-"Software"), to deal in the Software without restriction, including
-without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to
-permit persons to whom the Software is furnished to do so, subject to
-the following conditions: The above copyright notice and this
-permission notice shall be included in all copies or substantial
-portions of the Software.
-
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
-CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE
-EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.
-
-
-Except as contained in this notice, the name of The Open Group shall not be
-used in advertising or otherwise to promote the sale, use or other dealings
-in this Software without prior written authorization from The Open Group.
-
-
-X Window System is a trademark of The Open Group
-
-OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF
-logo, LBX, X Window System, and Xinerama are trademarks of the Open
-Group. All other trademarks and registered trademarks mentioned herein
-are the property of their respective owners. No right, title or
-interest in or to any trademark, service mark, logo or trade name of
-Sun Microsystems, Inc. or its licensors is granted.
-
-*/
-/*
- * Copyright 2000 Oracle and/or its affiliates. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice (including the next
- * paragraph) shall be included in all copies or substantial portions of the
- * Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- */
-
-
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#else
-# if defined(hpux)
-#  define HAVE_DL_H
-# else
-#  define HAVE_DLFCN_H
-# endif
-#endif
-
-#include <stdio.h>
-
-#ifdef HAVE_DL_H
-#include <dl.h>
-#endif
-
-#ifdef HAVE_DLFCN_H
-#include <dlfcn.h>
-#endif
-
-#include <ctype.h>
-
-#include "Xlibint.h"
-#include "XlcPublic.h"
-#include "XlcPubI.h"
-
-#define XI18N_DLREL		2
-
-#define	iscomment(ch)	((ch) == '\0' || (ch) == '#')
-
-typedef enum {
-  XLC_OBJECT,
-  XIM_OBJECT,
-  XOM_OBJECT
-} XI18NDLType;
-
-typedef struct {
-  XI18NDLType type;
-  int	locale_name_len;
-  char *locale_name;
-  char *dl_name;
-  char *open;
-  char *im_register;
-  char *im_unregister;
-  int dl_release;
-  unsigned int refcount;
-#if defined(hpux)
-  shl_t dl_module;
-#else
-  void *dl_module;
-#endif
-} XI18NObjectsListRec, *XI18NObjectsList;
-
-#define OBJECT_INIT_LEN 8
-#define OBJECT_INC_LEN 4
-static int lc_len = 0;
-static XI18NObjectsListRec *xi18n_objects_list = NULL;
-static int lc_count = 0;
-
-static int
-parse_line(char *line, char **argv, int argsize)
-{
-    int argc = 0;
-    char *p = line;
-
-    while (argc < argsize) {
-	while (isspace(*p)) {
-	    ++p;
-	}
-	if (iscomment(*p)){
-	    break;
-	}
-	argv[argc++] = p;
-	while (!isspace(*p)) {
-	    ++p;
-	}
-	if (iscomment(*p)) {
-	    break;
-	}
-	*p++ = '\0';
-    }
-    return argc;
-}
-
-static char *
-strdup_with_underscore(const char *symbol)
-{
-	char *result;
-
-	if ((result = malloc(strlen(symbol) + 2)) == NULL)
-		return NULL;
-	result[0] = '_';
-	strcpy(result + 1, symbol);
-	return result;
-}
-
-#ifndef hpux
-static void *
-try_both_dlsym (void *handle, char *name)
-{
-    void    *ret;
-
-    ret = dlsym (handle, name);
-    if (!ret)
-    {
-	 name = strdup_with_underscore (name);
-	 if (name)
-	 {
-	     ret = dlsym (handle, name);
-	     free (name);
-	 }
-    }
-    return ret;
-}
-#endif
-
-static void
-resolve_object(char *path, const char *lc_name)
-{
-    char filename[BUFSIZ];
-    FILE *fp;
-    char buf[BUFSIZ];
-
-    if (lc_len == 0) { /* True only for the 1st time */
-      lc_len = OBJECT_INIT_LEN;
-      xi18n_objects_list = (XI18NObjectsList)
-	  Xmalloc(sizeof(XI18NObjectsListRec) * lc_len);
-      if (!xi18n_objects_list) return;
-    }
-/*
-1266793
-Limit the length of path to prevent stack buffer corruption.
-    sprintf(filename, "%s/%s", path, "XI18N_OBJS");
-*/
-    sprintf(filename, "%.*s/%s", BUFSIZ - 12, path, "XI18N_OBJS");
-    fp = fopen(filename, "r");
-    if (fp == (FILE *)NULL){
-	return;
-    }
-
-    while (fgets(buf, BUFSIZ, fp) != NULL){
-	char *p = buf;
-	int n;
-	char *args[6];
-	while (isspace(*p)){
-	    ++p;
-	}
-	if (iscomment(*p)){
-	    continue;
-	}
-
-	if (lc_count == lc_len) {
-	  lc_len += OBJECT_INC_LEN;
-	  xi18n_objects_list = (XI18NObjectsList)
-	    Xrealloc(xi18n_objects_list,
-		     sizeof(XI18NObjectsListRec) * lc_len);
-	  if (!xi18n_objects_list) return;
-	}
-	n = parse_line(p, args, 6);
-
-	if (n == 3 || n == 5) {
-	  if (!strcmp(args[0], "XLC")){
-	    xi18n_objects_list[lc_count].type = XLC_OBJECT;
-	  } else if (!strcmp(args[0], "XOM")){
-	    xi18n_objects_list[lc_count].type = XOM_OBJECT;
-	  } else if (!strcmp(args[0], "XIM")){
-	    xi18n_objects_list[lc_count].type = XIM_OBJECT;
-	  }
-	  xi18n_objects_list[lc_count].dl_name = strdup(args[1]);
-	  xi18n_objects_list[lc_count].open = strdup(args[2]);
-	  xi18n_objects_list[lc_count].dl_release = XI18N_DLREL;
-	  xi18n_objects_list[lc_count].locale_name = strdup(lc_name);
-	  xi18n_objects_list[lc_count].refcount = 0;
-	  xi18n_objects_list[lc_count].dl_module = (void*)NULL;
-	  if (n == 5) {
-	    xi18n_objects_list[lc_count].im_register = strdup(args[3]);
-	    xi18n_objects_list[lc_count].im_unregister = strdup(args[4]);
-	  } else {
-	    xi18n_objects_list[lc_count].im_register = NULL;
-	    xi18n_objects_list[lc_count].im_unregister = NULL;
-	  }
-	  lc_count++;
-	}
-    }
-    fclose(fp);
-}
-
-static char*
-__lc_path(const char *dl_name, const char *lc_dir)
-{
-    char *path;
-    size_t len;
-
-    /*
-     * reject this for possible security issue
-     */
-    if (strstr (dl_name, "../"))
-	return NULL;
-
-    len = (lc_dir ? strlen(lc_dir) : 0 ) +
-	(dl_name ? strlen(dl_name) : 0) + 10;
-#if defined POSTLOCALELIBDIR
-    len += (strlen(POSTLOCALELIBDIR) + 1);
-#endif
-    path = Xmalloc(len + 1);
-
-    if (strchr(dl_name, '/') != NULL) {
-	char *slash_p;
-	slash_p = strrchr(lc_dir, '/');
-	*slash_p = '\0';
-	strcpy(path, lc_dir); strcat(path, "/");
-#if defined POSTLOCALELIBDIR
-	strcat(path, POSTLOCALELIBDIR); strcat(path, "/");
-#endif
-	strcat(path, dl_name); strcat(path, ".so.2");
-	*slash_p = '/';
-    } else {
-	strcpy(path, lc_dir); strcat(path, "/");
-#if defined POSTLOCALELIBDIR
-	strcat(path, POSTLOCALELIBDIR); strcat(path, "/");
-#endif
-	strcat(path, dl_name); strcat(path, ".so.2");
-    }
-    return path;
-}
-
-/* We reference count dlopen() and dlclose() of modules; unfortunately,
- * since XCloseIM, XCloseOM, XlcClose aren't wrapped, but directly
- * call the close method of the object, we leak a reference count every
- * time we open then close a module. Fixing this would require
- * either creating proxy objects or hooks for close_im/close_om
- * in XLCd
- */
-static Bool
-open_object(
-     XI18NObjectsList object,
-     char *lc_dir)
-{
-  char *path;
-
-  if (object->refcount == 0) {
-      path = __lc_path(object->dl_name, lc_dir);
-      if (!path)
-	  return False;
-#if defined(hpux)
-      object->dl_module = shl_load(path, BIND_DEFERRED, 0L);
-#else
-      object->dl_module = dlopen(path, RTLD_LAZY);
-#endif
-      Xfree(path);
-
-      if (!object->dl_module)
-	  return False;
-    }
-
-  object->refcount++;
-  return True;
-}
-
-static void *
-fetch_symbol(
-     XI18NObjectsList object,
-     char *symbol)
-{
-    void *result = NULL;
-#if defined(hpux)
-    int getsyms_cnt, i;
-    struct shl_symbol *symbols;
-#endif
-
-    if (symbol == NULL)
-    	return NULL;
-
-#if defined(hpux)
-    getsyms_cnt = shl_getsymbols(object->dl_module, TYPE_PROCEDURE,
-				 EXPORT_SYMBOLS, malloc, &symbols);
-
-    for(i=0; i<getsyms_cnt; i++) {
-        if(!strcmp(symbols[i].name, symbol)) {
-	    result = symbols[i].value;
-	    break;
-         }
-    }
-
-    if(getsyms_cnt > 0) {
-        free(symbols);
-    }
-#else
-    result = try_both_dlsym(object->dl_module, symbol);
-#endif
-
-    return result;
-}
-
-static void
-close_object(XI18NObjectsList object)
-{
-  object->refcount--;
-  if (object->refcount == 0)
-    {
-#if defined(hpux)
-        shl_unload(object->dl_module);
-#else
-        dlclose(object->dl_module);
-#endif
-        object->dl_module = NULL;
-    }
-}
-
-
-typedef XLCd (*dynamicLoadProc)(const char *);
-
-XLCd
-_XlcDynamicLoad(const char *lc_name)
-{
-    XLCd lcd = (XLCd)NULL;
-    dynamicLoadProc lc_loader = (dynamicLoadProc)NULL;
-    int count;
-    XI18NObjectsList objects_list;
-    char lc_dir[BUFSIZE], lc_lib_dir[BUFSIZE];
-
-    if (lc_name == NULL) return (XLCd)NULL;
-
-    if (_XlcLocaleDirName(lc_dir, BUFSIZE, (char *)lc_name) == (char *)NULL)
-        return (XLCd)NULL;
-    if (_XlcLocaleLibDirName(lc_lib_dir, BUFSIZE, (char *)lc_name) == (char*)NULL)
-	return (XLCd)NULL;
-
-    resolve_object(lc_dir, lc_name);
-    resolve_object(lc_lib_dir, lc_name);
-
-    objects_list = xi18n_objects_list;
-    count = lc_count;
-    for (; count-- > 0; objects_list++) {
-        if (objects_list->type != XLC_OBJECT ||
-	    strcmp(objects_list->locale_name, lc_name)) continue;
-	if (!open_object (objects_list, lc_dir) && \
-            !open_object (objects_list, lc_lib_dir))
-	    continue;
-
-	lc_loader = (dynamicLoadProc)fetch_symbol (objects_list, objects_list->open);
-	if (!lc_loader) continue;
-	lcd = (*lc_loader)(lc_name);
-	if (lcd != (XLCd)NULL) {
-	    break;
-	}
-
-	close_object (objects_list);
-    }
-    return (XLCd)lcd;
-}
-
-
-typedef XIM (*dynamicOpenProcp)(XLCd, Display *, XrmDatabase, char *, char *);
-
-static XIM
-_XDynamicOpenIM(XLCd lcd, Display *display, XrmDatabase rdb,
-		char *res_name, char *res_class)
-{
-  XIM im = (XIM)NULL;
-  char lc_dir[BUFSIZE];
-  char *lc_name;
-  dynamicOpenProcp im_openIM = (dynamicOpenProcp)NULL;
-  int count;
-  XI18NObjectsList objects_list = xi18n_objects_list;
-
-  lc_name = lcd->core->name;
-
-  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return (XIM)0;
-
-  count = lc_count;
-  for (; count-- > 0; objects_list++) {
-    if (objects_list->type != XIM_OBJECT ||
-	strcmp(objects_list->locale_name, lc_name)) continue;
-
-    if (!open_object (objects_list, lc_dir))
-        continue;
-
-    im_openIM = (dynamicOpenProcp)fetch_symbol(objects_list, objects_list->open);
-    if (!im_openIM) continue;
-    im = (*im_openIM)(lcd, display, rdb, res_name, res_class);
-    if (im != (XIM)NULL) {
-        break;
-    }
-
-    close_object (objects_list);
-  }
-  return (XIM)im;
-}
-
-typedef Bool (*dynamicRegisterCBProcp)(
-    XLCd, Display *, XrmDatabase, char *, char *, XIDProc, XPointer);
-
-static Bool
-_XDynamicRegisterIMInstantiateCallback(
-    XLCd	 lcd,
-    Display	*display,
-    XrmDatabase	 rdb,
-    char	*res_name,
-    char        *res_class,
-    XIDProc	 callback,
-    XPointer	 client_data)
-{
-  char lc_dir[BUFSIZE];
-  char *lc_name;
-  dynamicRegisterCBProcp im_registerIM = (dynamicRegisterCBProcp)NULL;
-  Bool ret_flag = False;
-  int count;
-  XI18NObjectsList objects_list = xi18n_objects_list;
-#if defined(hpux)
-  int getsyms_cnt, i;
-  struct shl_symbol *symbols;
-#endif
-
-  lc_name = lcd->core->name;
-
-  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return False;
-
-  count = lc_count;
-  for (; count-- > 0; objects_list++) {
-    if (objects_list->type != XIM_OBJECT ||
-	strcmp(objects_list->locale_name, lc_name)) continue;
-
-    if (!open_object (objects_list, lc_dir))
-        continue;
-    im_registerIM = (dynamicRegisterCBProcp)fetch_symbol(objects_list,
-					    objects_list->im_register);
-    if (!im_registerIM) continue;
-    ret_flag = (*im_registerIM)(lcd, display, rdb,
-				res_name, res_class,
-				callback, client_data);
-    if (ret_flag) break;
-
-    close_object (objects_list);
-  }
-  return (Bool)ret_flag;
-}
-
-typedef Bool (*dynamicUnregisterProcp)(
-    XLCd, Display *, XrmDatabase, char *, char *, XIDProc, XPointer);
-
-static Bool
-_XDynamicUnRegisterIMInstantiateCallback(
-    XLCd	 lcd,
-    Display	*display,
-    XrmDatabase	 rdb,
-    char	*res_name,
-    char        *res_class,
-    XIDProc	 callback,
-    XPointer	 client_data)
-{
-  char lc_dir[BUFSIZE];
-  char *lc_name;
-  dynamicUnregisterProcp im_unregisterIM = (dynamicUnregisterProcp)NULL;
-  Bool ret_flag = False;
-  int count;
-  XI18NObjectsList objects_list = xi18n_objects_list;
-#if defined(hpux)
-  int getsyms_cnt, i;
-  struct shl_symbol *symbols;
-#endif
-
-  lc_name = lcd->core->name;
-  if (_XlcLocaleDirName(lc_dir, BUFSIZE, lc_name) == NULL) return False;
-
-  count = lc_count;
-  for (; count-- > 0; objects_list++) {
-    if (objects_list->type != XIM_OBJECT ||
-	strcmp(objects_list->locale_name, lc_name)) continue;
-
-    if (!objects_list->refcount) /* Must already be opened */
-        continue;
-
-    im_unregisterIM = (dynamicUnregisterProcp)fetch_symbol(objects_list,
-					      objects_list->im_unregister);
-
-    if (!im_unregisterIM) continue;
-    ret_flag = (*im_unregisterIM)(lcd, display, rdb,
-				  res_name, res_class,
-				  callback, client_data);
-    if (ret_flag) {
-        close_object (objects_list); /* opened in RegisterIMInstantiateCallback */
-	break;
-    }
-  }
-  return (Bool)ret_flag;
-}
-
-Bool
-_XInitDynamicIM(XLCd lcd)
-{
-    if(lcd == (XLCd)NULL)
-	return False;
-    lcd->methods->open_im = _XDynamicOpenIM;
-    lcd->methods->register_callback = _XDynamicRegisterIMInstantiateCallback;
-    lcd->methods->unregister_callback = _XDynamicUnRegisterIMInstantiateCallback;
-    return True;
-}
-
-
-typedef XOM (*dynamicIOpenProcp)(
-        XLCd, Display *, XrmDatabase, _Xconst char *, _Xconst char *);
-
-static XOM
-_XDynamicOpenOM(XLCd lcd, Display *display, XrmDatabase rdb,
-		_Xconst char *res_name, _Xconst char *res_class)
-{
-  XOM om = (XOM)NULL;
-  int count;
-  char lc_dir[BUFSIZE];
-  char *lc_name;
-  dynamicIOpenProcp om_openOM = (dynamicIOpenProcp)NULL;
-  XI18NObjectsList objects_list = xi18n_objects_list;
-#if defined(hpux)
-  int getsyms_cnt, i;
-  struct shl_symbol *symbols;
-#endif
-
-  lc_name = lcd->core->name;
-
-  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return (XOM)0;
-
-  count = lc_count;
-  for (; count-- > 0; objects_list++) {
-    if (objects_list->type != XOM_OBJECT ||
-	strcmp(objects_list->locale_name, lc_name)) continue;
-    if (!open_object (objects_list, lc_dir))
-        continue;
-
-    om_openOM = (dynamicIOpenProcp)fetch_symbol(objects_list, objects_list->open);
-    if (!om_openOM) continue;
-    om = (*om_openOM)(lcd, display, rdb, res_name, res_class);
-    if (om != (XOM)NULL) {
-        break;
-    }
-    close_object(objects_list);
-  }
-  return (XOM)om;
-}
-
-Bool
-_XInitDynamicOM(XLCd lcd)
-{
-    if(lcd == (XLCd)NULL)
-	return False;
-
-    lcd->methods->open_om = _XDynamicOpenOM;
-
-    return True;
-}
+/*

+Copyright 1985, 1986, 1987, 1991, 1998  The Open Group

+

+Permission is hereby granted, free of charge, to any person obtaining a

+copy of this software and associated documentation files (the

+"Software"), to deal in the Software without restriction, including

+without limitation the rights to use, copy, modify, merge, publish,

+distribute, sublicense, and/or sell copies of the Software, and to

+permit persons to whom the Software is furnished to do so, subject to

+the following conditions: The above copyright notice and this

+permission notice shall be included in all copies or substantial

+portions of the Software.

+

+

+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE

+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN

+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN

+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE

+EVEN IF ADVISED IN ADVANCE OF THE POSSIBILITY OF SUCH DAMAGES.

+

+

+Except as contained in this notice, the name of The Open Group shall not be

+used in advertising or otherwise to promote the sale, use or other dealings

+in this Software without prior written authorization from The Open Group.

+

+

+X Window System is a trademark of The Open Group

+

+OSF/1, OSF/Motif and Motif are registered trademarks, and OSF, the OSF

+logo, LBX, X Window System, and Xinerama are trademarks of the Open

+Group. All other trademarks and registered trademarks mentioned herein

+are the property of their respective owners. No right, title or

+interest in or to any trademark, service mark, logo or trade name of

+Sun Microsystems, Inc. or its licensors is granted.

+

+*/

+/*

+ * Copyright 2000 Oracle and/or its affiliates. All rights reserved.

+ *

+ * Permission is hereby granted, free of charge, to any person obtaining a

+ * copy of this software and associated documentation files (the "Software"),

+ * to deal in the Software without restriction, including without limitation

+ * the rights to use, copy, modify, merge, publish, distribute, sublicense,

+ * and/or sell copies of the Software, and to permit persons to whom the

+ * Software is furnished to do so, subject to the following conditions:

+ *

+ * The above copyright notice and this permission notice (including the next

+ * paragraph) shall be included in all copies or substantial portions of the

+ * Software.

+ *

+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

+ * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

+ * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

+ * DEALINGS IN THE SOFTWARE.

+ */

+

+

+#ifdef HAVE_CONFIG_H

+# include <config.h>

+#else

+# if defined(hpux)

+#  define HAVE_DL_H

+# else

+#  define HAVE_DLFCN_H

+# endif

+#endif

+

+#include <stdio.h>

+

+#ifdef HAVE_DL_H

+#include <dl.h>

+#endif

+

+#ifdef HAVE_DLFCN_H

+#include <dlfcn.h>

+#endif

+

+#include <ctype.h>

+

+#include "Xlibint.h"

+#include "XlcPublic.h"

+#include "XlcPubI.h"

+

+#define XI18N_DLREL		2

+

+#define	iscomment(ch)	((ch) == '\0' || (ch) == '#')

+

+typedef enum {

+  XLC_OBJECT,

+  XIM_OBJECT,

+  XOM_OBJECT

+} XI18NDLType;

+

+typedef struct {

+  XI18NDLType type;

+  int	locale_name_len;

+  char *locale_name;

+  char *dl_name;

+  char *open;

+  char *im_register;

+  char *im_unregister;

+  int dl_release;

+  unsigned int refcount;

+#if defined(hpux)

+  shl_t dl_module;

+#else

+  void *dl_module;

+#endif

+} XI18NObjectsListRec, *XI18NObjectsList;

+

+#define OBJECT_INIT_LEN 8

+#define OBJECT_INC_LEN 4

+static int lc_len = 0;

+static XI18NObjectsListRec *xi18n_objects_list = NULL;

+static int lc_count = 0;

+

+static int

+parse_line(char *line, char **argv, int argsize)

+{

+    int argc = 0;

+    char *p = line;

+

+    while (argc < argsize) {

+	while (isspace(*p)) {

+	    ++p;

+	}

+	if (iscomment(*p)){

+	    break;

+	}

+	argv[argc++] = p;

+	while (!isspace(*p)) {

+	    ++p;

+	}

+	if (iscomment(*p)) {

+	    break;

+	}

+	*p++ = '\0';

+    }

+    return argc;

+}

+

+static char *

+strdup_with_underscore(const char *symbol)

+{

+	char *result;

+

+	if ((result = malloc(strlen(symbol) + 2)) == NULL)

+		return NULL;

+	result[0] = '_';

+	strcpy(result + 1, symbol);

+	return result;

+}

+

+#ifndef hpux

+static void *

+try_both_dlsym (void *handle, char *name)

+{

+    void    *ret;

+

+    ret = dlsym (handle, name);

+    if (!ret)

+    {

+	 name = strdup_with_underscore (name);

+	 if (name)

+	 {

+	     ret = dlsym (handle, name);

+	     free (name);

+	 }

+    }

+    return ret;

+}

+#endif

+

+static void

+resolve_object(char *path, const char *lc_name)

+{

+    char filename[BUFSIZ];

+    FILE *fp;

+    char buf[BUFSIZ];

+

+    if (lc_len == 0) { /* True only for the 1st time */

+      lc_len = OBJECT_INIT_LEN;

+      xi18n_objects_list = (XI18NObjectsList)

+	  Xmalloc(sizeof(XI18NObjectsListRec) * lc_len);

+      if (!xi18n_objects_list) return;

+    }

+/*

+1266793

+Limit the length of path to prevent stack buffer corruption.

+    sprintf(filename, "%s/%s", path, "XI18N_OBJS");

+*/

+    sprintf(filename, "%.*s/%s", BUFSIZ - 12, path, "XI18N_OBJS");

+    fp = fopen(filename, "r");

+    if (fp == (FILE *)NULL){

+	return;

+    }

+

+    while (fgets(buf, BUFSIZ, fp) != NULL){

+	char *p = buf;

+	int n;

+	char *args[6];

+	while (isspace(*p)){

+	    ++p;

+	}

+	if (iscomment(*p)){

+	    continue;

+	}

+

+	if (lc_count == lc_len) {

+	  lc_len += OBJECT_INC_LEN;

+	  xi18n_objects_list = (XI18NObjectsList)

+	    Xrealloc(xi18n_objects_list,

+		     sizeof(XI18NObjectsListRec) * lc_len);

+	  if (!xi18n_objects_list) return;

+	}

+	n = parse_line(p, args, 6);

+

+	if (n == 3 || n == 5) {

+	  if (!strcmp(args[0], "XLC")){

+	    xi18n_objects_list[lc_count].type = XLC_OBJECT;

+	  } else if (!strcmp(args[0], "XOM")){

+	    xi18n_objects_list[lc_count].type = XOM_OBJECT;

+	  } else if (!strcmp(args[0], "XIM")){

+	    xi18n_objects_list[lc_count].type = XIM_OBJECT;

+	  }

+	  xi18n_objects_list[lc_count].dl_name = strdup(args[1]);

+	  xi18n_objects_list[lc_count].open = strdup(args[2]);

+	  xi18n_objects_list[lc_count].dl_release = XI18N_DLREL;

+	  xi18n_objects_list[lc_count].locale_name = strdup(lc_name);

+	  xi18n_objects_list[lc_count].refcount = 0;

+	  xi18n_objects_list[lc_count].dl_module = (void*)NULL;

+	  if (n == 5) {

+	    xi18n_objects_list[lc_count].im_register = strdup(args[3]);

+	    xi18n_objects_list[lc_count].im_unregister = strdup(args[4]);

+	  } else {

+	    xi18n_objects_list[lc_count].im_register = NULL;

+	    xi18n_objects_list[lc_count].im_unregister = NULL;

+	  }

+	  lc_count++;

+	}

+    }

+    fclose(fp);

+}

+

+static char*

+__lc_path(const char *dl_name, const char *lc_dir)

+{

+    char *path;

+    size_t len;

+

+    /*

+     * reject this for possible security issue

+     */

+    if (strstr (dl_name, "../"))

+	return NULL;

+

+    len = (lc_dir ? strlen(lc_dir) : 0 ) +

+	(dl_name ? strlen(dl_name) : 0) + 10;

+#if defined POSTLOCALELIBDIR

+    len += (strlen(POSTLOCALELIBDIR) + 1);

+#endif

+    path = Xmalloc(len + 1);

+

+    if (strchr(dl_name, '/') != NULL) {

+	char *slash_p;

+	slash_p = strrchr(lc_dir, '/');

+	*slash_p = '\0';

+	strcpy(path, lc_dir); strcat(path, "/");

+#if defined POSTLOCALELIBDIR

+	strcat(path, POSTLOCALELIBDIR); strcat(path, "/");

+#endif

+	strcat(path, dl_name); strcat(path, ".so.2");

+	*slash_p = '/';

+    } else {

+	strcpy(path, lc_dir); strcat(path, "/");

+#if defined POSTLOCALELIBDIR

+	strcat(path, POSTLOCALELIBDIR); strcat(path, "/");

+#endif

+	strcat(path, dl_name); strcat(path, ".so.2");

+    }

+    return path;

+}

+

+/* We reference count dlopen() and dlclose() of modules; unfortunately,

+ * since XCloseIM, XCloseOM, XlcClose aren't wrapped, but directly

+ * call the close method of the object, we leak a reference count every

+ * time we open then close a module. Fixing this would require

+ * either creating proxy objects or hooks for close_im/close_om

+ * in XLCd

+ */

+static Bool

+open_object(

+     XI18NObjectsList object,

+     char *lc_dir)

+{

+  char *path;

+

+  if (object->refcount == 0) {

+      path = __lc_path(object->dl_name, lc_dir);

+      if (!path)

+	  return False;

+#if defined(hpux)

+      object->dl_module = shl_load(path, BIND_DEFERRED, 0L);

+#else

+      object->dl_module = dlopen(path, RTLD_LAZY);

+#endif

+      Xfree(path);

+

+      if (!object->dl_module)

+	  return False;

+    }

+

+  object->refcount++;

+  return True;

+}

+

+static void *

+fetch_symbol(

+     XI18NObjectsList object,

+     char *symbol)

+{

+    void *result = NULL;

+#if defined(hpux)

+    int getsyms_cnt, i;

+    struct shl_symbol *symbols;

+#endif

+

+    if (symbol == NULL)

+    	return NULL;

+

+#if defined(hpux)

+    getsyms_cnt = shl_getsymbols(object->dl_module, TYPE_PROCEDURE,

+				 EXPORT_SYMBOLS, malloc, &symbols);

+

+    for(i=0; i<getsyms_cnt; i++) {

+        if(!strcmp(symbols[i].name, symbol)) {

+	    result = symbols[i].value;

+	    break;

+         }

+    }

+

+    if(getsyms_cnt > 0) {

+        free(symbols);

+    }

+#else

+    result = try_both_dlsym(object->dl_module, symbol);

+#endif

+

+    return result;

+}

+

+static void

+close_object(XI18NObjectsList object)

+{

+  object->refcount--;

+  if (object->refcount == 0)

+    {

+#if defined(hpux)

+        shl_unload(object->dl_module);

+#else

+        dlclose(object->dl_module);

+#endif

+        object->dl_module = NULL;

+    }

+}

+

+

+typedef XLCd (*dynamicLoadProc)(const char *);

+

+XLCd

+_XlcDynamicLoad(const char *lc_name)

+{

+    XLCd lcd = (XLCd)NULL;

+    dynamicLoadProc lc_loader = (dynamicLoadProc)NULL;

+    int count;

+    XI18NObjectsList objects_list;

+    char lc_dir[BUFSIZE], lc_lib_dir[BUFSIZE];

+

+    if (lc_name == NULL) return (XLCd)NULL;

+

+    if (_XlcLocaleDirName(lc_dir, BUFSIZE, (char *)lc_name) == (char *)NULL)

+        return (XLCd)NULL;

+    if (_XlcLocaleLibDirName(lc_lib_dir, BUFSIZE, (char *)lc_name) == (char*)NULL)

+	return (XLCd)NULL;

+

+    resolve_object(lc_dir, lc_name);

+    resolve_object(lc_lib_dir, lc_name);

+

+    objects_list = xi18n_objects_list;

+    count = lc_count;

+    for (; count-- > 0; objects_list++) {

+        if (objects_list->type != XLC_OBJECT ||

+	    strcmp(objects_list->locale_name, lc_name)) continue;

+	if (!open_object (objects_list, lc_dir) && \

+            !open_object (objects_list, lc_lib_dir))

+	    continue;

+

+	lc_loader = (dynamicLoadProc)fetch_symbol (objects_list, objects_list->open);

+	if (!lc_loader) continue;

+	lcd = (*lc_loader)(lc_name);

+	if (lcd != (XLCd)NULL) {

+	    break;

+	}

+

+	close_object (objects_list);

+    }

+    return (XLCd)lcd;

+}

+

+

+typedef XIM (*dynamicOpenProcp)(XLCd, Display *, XrmDatabase, char *, char *);

+

+static XIM

+_XDynamicOpenIM(XLCd lcd, Display *display, XrmDatabase rdb,

+		char *res_name, char *res_class)

+{

+  XIM im = (XIM)NULL;

+  char lc_dir[BUFSIZE];

+  char *lc_name;

+  dynamicOpenProcp im_openIM = (dynamicOpenProcp)NULL;

+  int count;

+  XI18NObjectsList objects_list = xi18n_objects_list;

+

+  lc_name = lcd->core->name;

+

+  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return (XIM)0;

+

+  count = lc_count;

+  for (; count-- > 0; objects_list++) {

+    if (objects_list->type != XIM_OBJECT ||

+	strcmp(objects_list->locale_name, lc_name)) continue;

+

+    if (!open_object (objects_list, lc_dir))

+        continue;

+

+    im_openIM = (dynamicOpenProcp)fetch_symbol(objects_list, objects_list->open);

+    if (!im_openIM) continue;

+    im = (*im_openIM)(lcd, display, rdb, res_name, res_class);

+    if (im != (XIM)NULL) {

+        break;

+    }

+

+    close_object (objects_list);

+  }

+  return (XIM)im;

+}

+

+typedef Bool (*dynamicRegisterCBProcp)(

+    XLCd, Display *, XrmDatabase, char *, char *, XIDProc, XPointer);

+

+static Bool

+_XDynamicRegisterIMInstantiateCallback(

+    XLCd	 lcd,

+    Display	*display,

+    XrmDatabase	 rdb,

+    char	*res_name,

+    char        *res_class,

+    XIDProc	 callback,

+    XPointer	 client_data)

+{

+  char lc_dir[BUFSIZE];

+  char *lc_name;

+  dynamicRegisterCBProcp im_registerIM = (dynamicRegisterCBProcp)NULL;

+  Bool ret_flag = False;

+  int count;

+  XI18NObjectsList objects_list = xi18n_objects_list;

+#if defined(hpux)

+  int getsyms_cnt, i;

+  struct shl_symbol *symbols;

+#endif

+

+  lc_name = lcd->core->name;

+

+  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return False;

+

+  count = lc_count;

+  for (; count-- > 0; objects_list++) {

+    if (objects_list->type != XIM_OBJECT ||

+	strcmp(objects_list->locale_name, lc_name)) continue;

+

+    if (!open_object (objects_list, lc_dir))

+        continue;

+    im_registerIM = (dynamicRegisterCBProcp)fetch_symbol(objects_list,

+					    objects_list->im_register);

+    if (!im_registerIM) continue;

+    ret_flag = (*im_registerIM)(lcd, display, rdb,

+				res_name, res_class,

+				callback, client_data);

+    if (ret_flag) break;

+

+    close_object (objects_list);

+  }

+  return (Bool)ret_flag;

+}

+

+typedef Bool (*dynamicUnregisterProcp)(

+    XLCd, Display *, XrmDatabase, char *, char *, XIDProc, XPointer);

+

+static Bool

+_XDynamicUnRegisterIMInstantiateCallback(

+    XLCd	 lcd,

+    Display	*display,

+    XrmDatabase	 rdb,

+    char	*res_name,

+    char        *res_class,

+    XIDProc	 callback,

+    XPointer	 client_data)

+{

+  char lc_dir[BUFSIZE];

+  char *lc_name;

+  dynamicUnregisterProcp im_unregisterIM = (dynamicUnregisterProcp)NULL;

+  Bool ret_flag = False;

+  int count;

+  XI18NObjectsList objects_list = xi18n_objects_list;

+#if defined(hpux)

+  int getsyms_cnt, i;

+  struct shl_symbol *symbols;

+#endif

+

+  lc_name = lcd->core->name;

+  if (_XlcLocaleDirName(lc_dir, BUFSIZE, lc_name) == NULL) return False;

+

+  count = lc_count;

+  for (; count-- > 0; objects_list++) {

+    if (objects_list->type != XIM_OBJECT ||

+	strcmp(objects_list->locale_name, lc_name)) continue;

+

+    if (!objects_list->refcount) /* Must already be opened */

+        continue;

+

+    im_unregisterIM = (dynamicUnregisterProcp)fetch_symbol(objects_list,

+					      objects_list->im_unregister);

+

+    if (!im_unregisterIM) continue;

+    ret_flag = (*im_unregisterIM)(lcd, display, rdb,

+				  res_name, res_class,

+				  callback, client_data);

+    if (ret_flag) {

+        close_object (objects_list); /* opened in RegisterIMInstantiateCallback */

+	break;

+    }

+  }

+  return (Bool)ret_flag;

+}

+

+Bool

+_XInitDynamicIM(XLCd lcd)

+{

+    if(lcd == (XLCd)NULL)

+	return False;

+    lcd->methods->open_im = _XDynamicOpenIM;

+    lcd->methods->register_callback = _XDynamicRegisterIMInstantiateCallback;

+    lcd->methods->unregister_callback = _XDynamicUnRegisterIMInstantiateCallback;

+    return True;

+}

+

+

+typedef XOM (*dynamicIOpenProcp)(

+        XLCd, Display *, XrmDatabase, _Xconst char *, _Xconst char *);

+

+static XOM

+_XDynamicOpenOM(XLCd lcd, Display *display, XrmDatabase rdb,

+		_Xconst char *res_name, _Xconst char *res_class)

+{

+  XOM om = (XOM)NULL;

+  int count;

+  char lc_dir[BUFSIZE];

+  char *lc_name;

+  dynamicIOpenProcp om_openOM = (dynamicIOpenProcp)NULL;

+  XI18NObjectsList objects_list = xi18n_objects_list;

+#if defined(hpux)

+  int getsyms_cnt, i;

+  struct shl_symbol *symbols;

+#endif

+

+  lc_name = lcd->core->name;

+

+  if (_XlcLocaleLibDirName(lc_dir, BUFSIZE, lc_name) == NULL) return (XOM)0;

+

+  count = lc_count;

+  for (; count-- > 0; objects_list++) {

+    if (objects_list->type != XOM_OBJECT ||

+	strcmp(objects_list->locale_name, lc_name)) continue;

+    if (!open_object (objects_list, lc_dir))

+        continue;

+

+    om_openOM = (dynamicIOpenProcp)fetch_symbol(objects_list, objects_list->open);

+    if (!om_openOM) continue;

+    om = (*om_openOM)(lcd, display, rdb, res_name, res_class);

+    if (om != (XOM)NULL) {

+        break;

+    }

+    close_object(objects_list);

+  }

+  return (XOM)om;

+}

+

+Bool

+_XInitDynamicOM(XLCd lcd)

+{

+    if(lcd == (XLCd)NULL)

+	return False;

+

+    lcd->methods->open_om = _XDynamicOpenOM;

+

+    return True;

+}

diff --git a/libX11/src/xlibi18n/lcCharSet.c b/libX11/src/xlibi18n/lcCharSet.c
index 5d287811c..6be5f5d16 100644
--- a/libX11/src/xlibi18n/lcCharSet.c
+++ b/libX11/src/xlibi18n/lcCharSet.c
@@ -1,225 +1,225 @@
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include "Xlibint.h"
-#include "XlcPublic.h"
-#include "XlcPubI.h"
-
-/* The list of all known XlcCharSets. They are identified by their name. */
-
-typedef struct _XlcCharSetListRec {
-    XlcCharSet charset;
-    struct _XlcCharSetListRec *next;
-} XlcCharSetListRec, *XlcCharSetList;
-
-static XlcCharSetList charset_list = NULL;
-
-/* Returns the charset with the given name (including side suffix).
-   Returns NULL if not found. */
-XlcCharSet
-_XlcGetCharSet(
-    const char *name)
-{
-    XlcCharSetList list;
-    XrmQuark xrm_name;
-
-    xrm_name = XrmStringToQuark(name);
-
-    for (list = charset_list; list; list = list->next) {
-	if (xrm_name == list->charset->xrm_name)
-	    return (XlcCharSet) list->charset;
-    }
-
-    return (XlcCharSet) NULL;
-}
-
-/* Returns the charset with the given encoding (no side suffix) and
-   responsible for at least the given side (XlcGL or XlcGR).
-   Returns NULL if not found. */
-XlcCharSet
-_XlcGetCharSetWithSide(
-    const char *encoding_name,
-    XlcSide side)
-{
-    XlcCharSetList list;
-    XrmQuark xrm_encoding_name;
-
-    xrm_encoding_name = XrmStringToQuark(encoding_name);
-
-    for (list = charset_list; list; list = list->next) {
-	if (list->charset->xrm_encoding_name == xrm_encoding_name
-	    && (list->charset->side == XlcGLGR || list->charset->side == side))
-	    return (XlcCharSet) list->charset;
-    }
-
-    return (XlcCharSet) NULL;
-}
-
-/* Registers an XlcCharSet in the list of character sets.
-   Returns True if successful. */
-Bool
-_XlcAddCharSet(
-    XlcCharSet charset)
-{
-    XlcCharSetList list;
-
-    if (_XlcGetCharSet(charset->name))
-	return False;
-
-    list = (XlcCharSetList) Xmalloc(sizeof(XlcCharSetListRec));
-    if (list == NULL)
-	return False;
-
-    list->charset = charset;
-    list->next = charset_list;
-    charset_list = list;
-
-    return True;
-}
-
-/* List of resources for XlcCharSet. */
-static XlcResource resources[] = {
-    { XlcNName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XlcCharSetRec, name), XlcGetMask },
-    { XlcNEncodingName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XlcCharSetRec, encoding_name), XlcGetMask },
-    { XlcNSide, NULLQUARK, sizeof(XlcSide),
-      XOffsetOf(XlcCharSetRec, side), XlcGetMask },
-    { XlcNCharSize, NULLQUARK, sizeof(int),
-      XOffsetOf(XlcCharSetRec, char_size), XlcGetMask },
-    { XlcNSetSize, NULLQUARK, sizeof(int),
-      XOffsetOf(XlcCharSetRec, set_size), XlcGetMask },
-    { XlcNControlSequence, NULLQUARK, sizeof(char *),
-      XOffsetOf(XlcCharSetRec, ct_sequence), XlcGetMask }
-};
-
-/* Retrieves a number of attributes of an XlcCharSet.
-   Return NULL if successful, otherwise the name of the first argument
-   specifiying a nonexistent attribute. */
-static char *
-get_values(
-    XlcCharSet charset,
-    XlcArgList args,
-    int num_args)
-{
-    if (resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(resources, XlcNumber(resources));
-
-    return _XlcGetValues((XPointer) charset, resources, XlcNumber(resources),
-			 args, num_args, XlcGetMask);
-}
-
-/* Retrieves a number of attributes of an XlcCharSet.
-   Return NULL if successful, otherwise the name of the first argument
-   specifiying a nonexistent attribute. */
-char *
-_XlcGetCSValues(XlcCharSet charset, ...)
-{
-    va_list var;
-    XlcArgList args;
-    char *ret;
-    int num_args;
-
-    va_start(var, charset);
-    _XlcCountVaList(var, &num_args);
-    va_end(var);
-
-    va_start(var, charset);
-    _XlcVaToArgList(var, num_args, &args);
-    va_end(var);
-
-    if (args == (XlcArgList) NULL)
-	return (char *) NULL;
-
-    ret = get_values(charset, args, num_args);
-
-    Xfree(args);
-
-    return ret;
-}
-
-/* Creates a new XlcCharSet, given its name (including side suffix) and
-   Compound Text ESC sequence (normally at most 4 bytes). */
-XlcCharSet
-_XlcCreateDefaultCharSet(
-    const char *name,
-    const char *ct_sequence)
-{
-    XlcCharSet charset;
-    int name_len, ct_sequence_len;
-    const char *colon;
-    char *tmp;
-
-    charset = Xcalloc(1, sizeof(XlcCharSetRec));
-    if (charset == NULL)
-	return (XlcCharSet) NULL;
-
-    name_len = strlen(name);
-    ct_sequence_len = strlen(ct_sequence);
-
-    /* Fill in name and xrm_name.  */
-    tmp = (char *) Xmalloc(name_len + 1 + ct_sequence_len + 1);
-    if (tmp == NULL) {
-	Xfree((char *) charset);
-	return (XlcCharSet) NULL;
-    }
-    memcpy(tmp, name, name_len+1);
-    charset->name = tmp;
-    charset->xrm_name = XrmStringToQuark(charset->name);
-
-    /* Fill in encoding_name and xrm_encoding_name.  */
-    if ((colon = strchr(charset->name, ':')) != NULL) {
-        unsigned int length = colon - charset->name;
-        char *encoding_tmp = (char *) Xmalloc(length + 1);
-        if (encoding_tmp == NULL) {
-            Xfree((char *) charset->name);
-            Xfree((char *) charset);
-            return (XlcCharSet) NULL;
-        }
-        memcpy(encoding_tmp, charset->name, length);
-        encoding_tmp[length] = '\0';
-        charset->encoding_name = encoding_tmp;
-        charset->xrm_encoding_name = XrmStringToQuark(charset->encoding_name);
-    } else {
-        charset->encoding_name = charset->name;
-        charset->xrm_encoding_name = charset->xrm_name;
-    }
-
-    /* Fill in ct_sequence.  */
-    tmp += name_len + 1;
-    memcpy(tmp, ct_sequence, ct_sequence_len+1);
-    charset->ct_sequence = tmp;
-
-    /* Fill in side, char_size, set_size. */
-    if (!_XlcParseCharSet(charset))
-        /* If ct_sequence is not usable in Compound Text, remove it. */
-        charset->ct_sequence = "";
-
-    return (XlcCharSet) charset;
-}
+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include "Xlibint.h"

+#include "XlcPublic.h"

+#include "XlcPubI.h"

+

+/* The list of all known XlcCharSets. They are identified by their name. */

+

+typedef struct _XlcCharSetListRec {

+    XlcCharSet charset;

+    struct _XlcCharSetListRec *next;

+} XlcCharSetListRec, *XlcCharSetList;

+

+static XlcCharSetList charset_list = NULL;

+

+/* Returns the charset with the given name (including side suffix).

+   Returns NULL if not found. */

+XlcCharSet

+_XlcGetCharSet(

+    const char *name)

+{

+    XlcCharSetList list;

+    XrmQuark xrm_name;

+

+    xrm_name = XrmStringToQuark(name);

+

+    for (list = charset_list; list; list = list->next) {

+	if (xrm_name == list->charset->xrm_name)

+	    return (XlcCharSet) list->charset;

+    }

+

+    return (XlcCharSet) NULL;

+}

+

+/* Returns the charset with the given encoding (no side suffix) and

+   responsible for at least the given side (XlcGL or XlcGR).

+   Returns NULL if not found. */

+XlcCharSet

+_XlcGetCharSetWithSide(

+    const char *encoding_name,

+    XlcSide side)

+{

+    XlcCharSetList list;

+    XrmQuark xrm_encoding_name;

+

+    xrm_encoding_name = XrmStringToQuark(encoding_name);

+

+    for (list = charset_list; list; list = list->next) {

+	if (list->charset->xrm_encoding_name == xrm_encoding_name

+	    && (list->charset->side == XlcGLGR || list->charset->side == side))

+	    return (XlcCharSet) list->charset;

+    }

+

+    return (XlcCharSet) NULL;

+}

+

+/* Registers an XlcCharSet in the list of character sets.

+   Returns True if successful. */

+Bool

+_XlcAddCharSet(

+    XlcCharSet charset)

+{

+    XlcCharSetList list;

+

+    if (_XlcGetCharSet(charset->name))

+	return False;

+

+    list = (XlcCharSetList) Xmalloc(sizeof(XlcCharSetListRec));

+    if (list == NULL)

+	return False;

+

+    list->charset = charset;

+    list->next = charset_list;

+    charset_list = list;

+

+    return True;

+}

+

+/* List of resources for XlcCharSet. */

+static XlcResource resources[] = {

+    { XlcNName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XlcCharSetRec, name), XlcGetMask },

+    { XlcNEncodingName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XlcCharSetRec, encoding_name), XlcGetMask },

+    { XlcNSide, NULLQUARK, sizeof(XlcSide),

+      XOffsetOf(XlcCharSetRec, side), XlcGetMask },

+    { XlcNCharSize, NULLQUARK, sizeof(int),

+      XOffsetOf(XlcCharSetRec, char_size), XlcGetMask },

+    { XlcNSetSize, NULLQUARK, sizeof(int),

+      XOffsetOf(XlcCharSetRec, set_size), XlcGetMask },

+    { XlcNControlSequence, NULLQUARK, sizeof(char *),

+      XOffsetOf(XlcCharSetRec, ct_sequence), XlcGetMask }

+};

+

+/* Retrieves a number of attributes of an XlcCharSet.

+   Return NULL if successful, otherwise the name of the first argument

+   specifiying a nonexistent attribute. */

+static char *

+get_values(

+    XlcCharSet charset,

+    XlcArgList args,

+    int num_args)

+{

+    if (resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(resources, XlcNumber(resources));

+

+    return _XlcGetValues((XPointer) charset, resources, XlcNumber(resources),

+			 args, num_args, XlcGetMask);

+}

+

+/* Retrieves a number of attributes of an XlcCharSet.

+   Return NULL if successful, otherwise the name of the first argument

+   specifiying a nonexistent attribute. */

+char *

+_XlcGetCSValues(XlcCharSet charset, ...)

+{

+    va_list var;

+    XlcArgList args;

+    char *ret;

+    int num_args;

+

+    va_start(var, charset);

+    _XlcCountVaList(var, &num_args);

+    va_end(var);

+

+    va_start(var, charset);

+    _XlcVaToArgList(var, num_args, &args);

+    va_end(var);

+

+    if (args == (XlcArgList) NULL)

+	return (char *) NULL;

+

+    ret = get_values(charset, args, num_args);

+

+    Xfree(args);

+

+    return ret;

+}

+

+/* Creates a new XlcCharSet, given its name (including side suffix) and

+   Compound Text ESC sequence (normally at most 4 bytes). */

+XlcCharSet

+_XlcCreateDefaultCharSet(

+    const char *name,

+    const char *ct_sequence)

+{

+    XlcCharSet charset;

+    int name_len, ct_sequence_len;

+    const char *colon;

+    char *tmp;

+

+    charset = Xcalloc(1, sizeof(XlcCharSetRec));

+    if (charset == NULL)

+	return (XlcCharSet) NULL;

+

+    name_len = strlen(name);

+    ct_sequence_len = strlen(ct_sequence);

+

+    /* Fill in name and xrm_name.  */

+    tmp = (char *) Xmalloc(name_len + 1 + ct_sequence_len + 1);

+    if (tmp == NULL) {

+	Xfree((char *) charset);

+	return (XlcCharSet) NULL;

+    }

+    memcpy(tmp, name, name_len+1);

+    charset->name = tmp;

+    charset->xrm_name = XrmStringToQuark(charset->name);

+

+    /* Fill in encoding_name and xrm_encoding_name.  */

+    if ((colon = strchr(charset->name, ':')) != NULL) {

+        unsigned int length = colon - charset->name;

+        char *encoding_tmp = (char *) Xmalloc(length + 1);

+        if (encoding_tmp == NULL) {

+            Xfree((char *) charset->name);

+            Xfree((char *) charset);

+            return (XlcCharSet) NULL;

+        }

+        memcpy(encoding_tmp, charset->name, length);

+        encoding_tmp[length] = '\0';

+        charset->encoding_name = encoding_tmp;

+        charset->xrm_encoding_name = XrmStringToQuark(charset->encoding_name);

+    } else {

+        charset->encoding_name = charset->name;

+        charset->xrm_encoding_name = charset->xrm_name;

+    }

+

+    /* Fill in ct_sequence.  */

+    tmp += name_len + 1;

+    memcpy(tmp, ct_sequence, ct_sequence_len+1);

+    charset->ct_sequence = tmp;

+

+    /* Fill in side, char_size, set_size. */

+    if (!_XlcParseCharSet(charset))

+        /* If ct_sequence is not usable in Compound Text, remove it. */

+        charset->ct_sequence = "";

+

+    return (XlcCharSet) charset;

+}

diff --git a/libX11/src/xlibi18n/lcDB.c b/libX11/src/xlibi18n/lcDB.c
index 97b22ac44..7d3ba88c5 100644
--- a/libX11/src/xlibi18n/lcDB.c
+++ b/libX11/src/xlibi18n/lcDB.c
@@ -1,1339 +1,1342 @@
-/*
- *
- * Copyright IBM Corporation 1993
- *
- * All Rights Reserved
- *
- * License to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation, and that the name of IBM not be
- * used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- *
- * IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS, AND
- * NONINFRINGEMENT OF THIRD PARTY RIGHTS, IN NO EVENT SHALL
- * IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
-*/
-/*
- *  (c) Copyright 1995 FUJITSU LIMITED
- *  This is source code modified by FUJITSU LIMITED under the Joint
- *  Development Agreement for the CDE/Motif PST.
- */
-
-
-
-#ifndef	NOT_X_ENV
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <X11/Xlib.h>
-#include <X11/Xresource.h>
-#include "Xlibint.h"
-#include "XlcPubI.h"
-
-#else	/* NOT_X_ENV */
-
-#define	Xmalloc	malloc
-#define	Xrealloc	realloc
-#define	Xfree	free
-
-#endif	/* NOT_X_ENV */
-
-/* specifying NOT_X_ENV allows users to just use
-   the database parsing routine. */
-/* For UDC/VW */
-#ifndef	BUFSIZE
-#define	BUFSIZE	2048
-#endif
-
-#ifdef COMMENT
-#ifdef  BUFSIZE
-#undef BUFSIZE
-#endif
-#define BUFSIZE 6144 /* 2048*3 */
-#endif
-
-#include <stdio.h>
-
-typedef struct _DatabaseRec {
-    char *category;
-    char *name;
-    char **value;
-    int value_num;
-    struct _DatabaseRec *next;
-} DatabaseRec, *Database;
-
-typedef enum {
-    S_NULL,	/* outside category */
-    S_CATEGORY,	/* inside category */
-    S_NAME,	/* has name, expecting values */
-    S_VALUE
-} ParseState;
-
-typedef enum {
-    T_NEWLINE,
-    T_COMMENT,
-    T_SEMICOLON,
-    T_DOUBLE_QUOTE,
-    T_LEFT_BRACE,
-    T_RIGHT_BRACE,
-    T_SPACE,
-    T_TAB,
-    T_BACKSLASH,
-    T_NUMERIC_HEX,
-    T_NUMERIC_DEC,
-    T_NUMERIC_OCT,
-    T_DEFAULT
-} Token;
-
-typedef struct {
-    Token token;	/* token id */
-    int len;		/* length of token sequence */
-} TokenTable;
-
-static int f_newline (const char *str, Token token, Database *db);
-static int f_comment (const char *str, Token token, Database *db);
-static int f_semicolon (const char *str, Token token, Database *db);
-static int f_double_quote (const char *str, Token token, Database *db);
-static int f_left_brace (const char *str, Token token, Database *db);
-static int f_right_brace (const char *str, Token token, Database *db);
-static int f_white (const char *str, Token token, Database *db);
-static int f_backslash (const char *str, Token token, Database *db);
-static int f_numeric (const char *str, Token token, Database *db);
-static int f_default (const char *str, Token token, Database *db);
-
-static const TokenTable token_tbl[] = {
-    { T_NEWLINE,      1 },
-    { T_COMMENT,      1 },
-    { T_SEMICOLON,    1 },
-    { T_DOUBLE_QUOTE, 1 },
-    { T_LEFT_BRACE,   1 },
-    { T_RIGHT_BRACE,  1 },
-    { T_SPACE,        1 },
-    { T_TAB,          1 },
-    { T_BACKSLASH,    1 },
-    { T_NUMERIC_HEX,  2 },
-    { T_NUMERIC_DEC,  2 },
-    { T_NUMERIC_OCT,  2 },
-    { T_DEFAULT,      1 } /* any character */
-};
-
-#define	SYM_CR          '\r'
-#define	SYM_NEWLINE	'\n'
-#define	SYM_COMMENT	'#'
-#define	SYM_SEMICOLON	';'
-#define	SYM_DOUBLE_QUOTE	'"'
-#define	SYM_LEFT_BRACE	'{'
-#define	SYM_RIGHT_BRACE	'}'
-#define	SYM_SPACE	' '
-#define	SYM_TAB		'\t'
-#define	SYM_BACKSLASH	'\\'
-
-/************************************************************************/
-
-#define MAX_NAME_NEST	64
-
-typedef struct {
-    ParseState pre_state;
-    char *category;
-    char *name[MAX_NAME_NEST];
-    int nest_depth;
-    char **value;
-    int value_len;
-    int value_num;
-    int bufsize;        /* bufMaxSize >= bufsize >= 0 */
-    int bufMaxSize;     /* default : BUFSIZE */
-    char *buf;
-} DBParseInfo;
-
-static DBParseInfo parse_info;
-
-static void
-init_parse_info (void)
-{
-    static int allocated /* = 0 */;
-    char *ptr;
-    int size;
-    if (!allocated) {
-	bzero(&parse_info, sizeof(DBParseInfo));
-	parse_info.buf = (char *)Xmalloc(BUFSIZE);
-	parse_info.bufMaxSize = BUFSIZE;
-	allocated = 1;
-	return;
-    }
-    ptr = parse_info.buf;
-    size = parse_info.bufMaxSize;
-    bzero(&parse_info, sizeof(DBParseInfo));
-    parse_info.buf = ptr;
-    parse_info.bufMaxSize = size;
-}
-
-static void
-clear_parse_info (void)
-{
-    int i;
-    char *ptr;
-    int size;
-    parse_info.pre_state = S_NULL;
-    if (parse_info.category != NULL) {
-	Xfree(parse_info.category);
-    }
-    for (i = 0; i <= parse_info.nest_depth; ++i) {
-	if (parse_info.name[i]) {
-	    Xfree(parse_info.name[i]);
-	}
-    }
-    if (parse_info.value) {
-	if (*parse_info.value) {
-	    Xfree(*parse_info.value);
-	}
-	Xfree((char *)parse_info.value);
-    }
-    ptr = parse_info.buf;
-    size = parse_info.bufMaxSize;
-    bzero(&parse_info, sizeof(DBParseInfo));
-    parse_info.buf = ptr;
-    parse_info.bufMaxSize = size;
-}
-
-static Bool
-realloc_parse_info(
-    int len)
-{
-    char *p;
-
-    parse_info.bufMaxSize = BUFSIZE * ((parse_info.bufsize + len)/BUFSIZE + 1);
-    p = (char *)Xrealloc(parse_info.buf, parse_info.bufMaxSize);
-    if (p == NULL)
-        return False;
-    parse_info.buf = p;
-
-    return True;
-}
-
-/************************************************************************/
-
-typedef struct _Line {
-    char *str;
-    int cursize;
-    int maxsize;
-    int seq;
-} Line;
-
-static void
-free_line(
-    Line *line)
-{
-    if (line->str != NULL) {
-	Xfree(line->str);
-    }
-    bzero(line, sizeof(Line));
-}
-
-static int
-realloc_line(
-    Line *line,
-    int size)
-{
-    char *str = line->str;
-
-    if (str != NULL) {
-	str = (char *)Xrealloc(str, size);
-    } else {
-	str = (char *)Xmalloc(size);
-    }
-    if (str == NULL) {
-	/* malloc error */
-	if (line->str != NULL) {
-	    Xfree(line->str);
-	}
-	bzero(line, sizeof(Line));
-	return 0;
-    }
-    line->str = str;
-    line->maxsize = size;
-    return 1;
-}
-
-#define	iswhite(ch)	((ch) == SYM_SPACE   || (ch) == SYM_TAB)
-
-static void
-zap_comment(
-    char *str,
-    int *quoted)
-{
-    char *p = str;
-#ifdef	never
-    *quoted = 0;
-    if (*p == SYM_COMMENT) {
-	int len = strlen(str);
-	if (p[len - 1] == SYM_NEWLINE || p[len - 1] == SYM_CR) {
-	    *p++ = SYM_NEWLINE;
-	}
-	*p = '\0';
-    }
-#else
-    while (*p) {
-	if (*p == SYM_DOUBLE_QUOTE) {
-	    if (p == str || p[-1] != SYM_BACKSLASH) {
-		/* unescaped double quote changes quoted state. */
-		*quoted = *quoted ? 0 : 1;
-	    }
-	}
-	if (*p == SYM_COMMENT && !*quoted) {
-	    int pos = p - str;
-	    if (pos == 0 ||
-	        (iswhite(p[-1]) && (pos == 1 || p[-2] != SYM_BACKSLASH))) {
-		int len = strlen(p);
-		if (len > 0 && (p[len - 1] == SYM_NEWLINE || p[len-1] == SYM_CR)) {
-		    /* newline is the identifier for finding end of value.
-		       therefore, it should not be removed. */
-		    *p++ = SYM_NEWLINE;
-		}
-		*p = '\0';
-		break;
-	    }
-	}
-	++p;
-    }
-#endif
-}
-
-static int
-read_line(
-    FILE *fd,
-    Line *line)
-{
-    char buf[BUFSIZE], *p;
-    int len;
-    int quoted = 0;	/* quoted by double quote? */
-    char *str;
-    int cur;
-
-    str = line->str;
-    cur = line->cursize = 0;
-
-    while ((p = fgets(buf, BUFSIZE, fd)) != NULL) {
-	++line->seq;
-	zap_comment(p, &quoted);	/* remove comment line */
-	len = strlen(p);
-	if (len == 0) {
-	    if (cur > 0) {
-		break;
-	    }
-	    continue;
-	}
-	if (cur + len + 1 > line->maxsize) {
-	    /* need to reallocate buffer. */
-	    if (! realloc_line(line, line->maxsize + BUFSIZE)) {
-		return -1;	/* realloc error. */
-	    }
-	    str = line->str;
-	}
-	strncpy(str + cur, p, len);
-
-	cur += len;
-	str[cur] = '\0';
-#ifdef __UNIXOS2__  /* Take out carriage returns under OS/2 */
-	if (cur>1) {
-	   if (str[cur-2] == '\r' && str[cur-1] == '\n') {
-	      str[cur-2] = '\n';
-	      str[cur-1] = '\0';
-	      cur--;
-	   }
-	}
-#endif
-	if (!quoted && cur > 1 && str[cur - 2] == SYM_BACKSLASH &&
-	    (str[cur - 1] == SYM_NEWLINE || str[cur-1] == SYM_CR)) {
-	    /* the line is ended backslash followed by newline.
-	       need to concatinate the next line. */
-	    cur -= 2;
-	    str[cur] = '\0';
-	} else if (len < BUFSIZE - 1 || buf[len - 1] == SYM_NEWLINE ||
-		   buf[len - 1] == SYM_CR) {
-	    /* the line is shorter than BUFSIZE. */
-	    break;
-	}
-    }
-    if (quoted) {
-	/* error.  still in quoted state. */
-	return -1;
-    }
-    return line->cursize = cur;
-}
-
-/************************************************************************/
-
-static Token
-get_token(
-    const char *str)
-{
-    switch (*str) {
-    case SYM_NEWLINE:
-    case SYM_CR:		return T_NEWLINE;
-    case SYM_COMMENT:		return T_COMMENT;
-    case SYM_SEMICOLON:		return T_SEMICOLON;
-    case SYM_DOUBLE_QUOTE:	return T_DOUBLE_QUOTE;
-    case SYM_LEFT_BRACE:	return T_LEFT_BRACE;
-    case SYM_RIGHT_BRACE:	return T_RIGHT_BRACE;
-    case SYM_SPACE:		return T_SPACE;
-    case SYM_TAB:		return T_TAB;
-    case SYM_BACKSLASH:
-	switch (str[1]) {
-	case 'x': return T_NUMERIC_HEX;
-	case 'd': return T_NUMERIC_DEC;
-	case 'o': return T_NUMERIC_OCT;
-	}
-	return T_BACKSLASH;
-    default:
-	return T_DEFAULT;
-    }
-}
-
-static int
-get_word(
-    const char *str,
-    char *word)
-{
-    const char *p = str;
-    char *w = word;
-    Token token;
-    int token_len;
-
-    while (*p != '\0') {
-	token = get_token(p);
-	token_len = token_tbl[token].len;
-	if (token == T_BACKSLASH) {
-	    p += token_len;
-	    if (*p == '\0')
-		break;
-	    token = get_token(p);
-	    token_len = token_tbl[token].len;
-	} else if (token != T_COMMENT && token != T_DEFAULT) {
-	    break;
-	}
-	strncpy(w, p, token_len);
-	p += token_len; w += token_len;
-    }
-    *w = '\0';
-    return p - str;	/* return number of scanned chars */
-}
-
-static int
-get_quoted_word(
-    const char *str,
-    char *word)
-{
-    const char *p = str;
-    char *w = word;
-    Token token;
-    int token_len;
-
-    if (*p == SYM_DOUBLE_QUOTE) {
-	++p;
-    }
-    while (*p != '\0') {
-	token = get_token(p);
-	token_len = token_tbl[token].len;
-	if (token == T_DOUBLE_QUOTE) {
-	    p += token_len;
-	    goto found;
-	}
-	if (token == T_BACKSLASH) {
-	    p += token_len;
-	    if (*p == '\0') {
-		break;
-	    }
-	    token = get_token(p);
-	    token_len = token_tbl[token].len;
-	}
-	strncpy(w, p, token_len);
-	p += token_len; w += token_len;
-    }
-    /* error. cannot detect next double quote */
-    return 0;
-
- found:;
-    *w = '\0';
-    return p - str;
-}
-
-/************************************************************************/
-
-static int
-append_value_list (void)
-{
-    char **value_list = parse_info.value;
-    char *value;
-    int value_num = parse_info.value_num;
-    int value_len = parse_info.value_len;
-    char *str = parse_info.buf;
-    int len = parse_info.bufsize;
-    char *p;
-
-    if (len < 1) {
-	return 1; /* return with no error */
-    }
-
-    if (value_list == (char **)NULL) {
-	value_list = (char **)Xmalloc(sizeof(char *) * 2);
-	*value_list = NULL;
-    } else {
-	char **prev_list = value_list;
-
-	value_list = (char **)
-	    Xrealloc(value_list, sizeof(char *) * (value_num + 2));
-	if (value_list == NULL) {
-	    Xfree(prev_list);
-	}
-    }
-    if (value_list == (char **)NULL)
-	goto err2;
-
-    value = *value_list;
-    if (value == NULL) {
-	value = (char *)Xmalloc(value_len + len + 1);
-    } else {
-	char *prev_value = value;
-
-	value = (char *)Xrealloc(value, value_len + len + 1);
-	if (value == NULL) {
-	    Xfree(prev_value);
-	}
-    }
-    if (value == NULL) {
-	goto err1;
-    }
-    if (value != *value_list) {
-	int i;
-	ssize_t delta;
-	delta = value - *value_list;
-	*value_list = value;
-	for (i = 1; i < value_num; ++i) {
-	    value_list[i] += delta;
-	}
-    }
-
-    value_list[value_num] = p = &value[value_len];
-    value_list[value_num + 1] = NULL;
-    strncpy(p, str, len);
-    p[len] = 0;
-
-    parse_info.value = value_list;
-    parse_info.value_num = value_num + 1;
-    parse_info.value_len = value_len + len + 1;
-    parse_info.bufsize = 0;
-    return 1;
-
- err1:
-    if (value_list) {
-	Xfree((char **)value_list);
-    }
-    if (value) {
-	Xfree(value);
-    }
- err2:
-    parse_info.value = (char **)NULL;
-    parse_info.value_num = 0;
-    parse_info.value_len = 0;
-    parse_info.bufsize = 0;
-    return 0;
-}
-
-static int
-construct_name(
-    char *name,
-    int size)
-{
-    int i;
-    int len = 0;
-    char *p = name;
-
-    for (i = 0; i <= parse_info.nest_depth; ++i) {
-	len += strlen(parse_info.name[i]) + 1;
-    }
-    if (len >= size)
-	return 0;
-
-    strcpy(p, parse_info.name[0]);
-    p += strlen(parse_info.name[0]);
-    for (i = 1; i <= parse_info.nest_depth; ++i) {
-	*p++ = '.';
-	strcpy(p, parse_info.name[i]);
-	p += strlen(parse_info.name[i]);
-    }
-    return *name != '\0';
-}
-
-static int
-store_to_database(
-    Database *db)
-{
-    Database new = (Database)NULL;
-    char name[BUFSIZE];
-
-    if (parse_info.pre_state == S_VALUE) {
-	if (! append_value_list()) {
-	    goto err;
-	}
-    }
-
-    if (parse_info.name[parse_info.nest_depth] == NULL) {
-	goto err;
-    }
-
-    new = Xcalloc(1, sizeof(DatabaseRec));
-    if (new == (Database)NULL) {
-	goto err;
-    }
-
-    new->category = strdup(parse_info.category);
-    if (new->category == NULL) {
-	goto err;
-    }
-
-    if (! construct_name(name, sizeof(name))) {
-	goto err;
-    }
-    new->name = strdup(name);
-    if (new->name == NULL) {
-	goto err;
-    }
-    new->next = *db;
-    new->value = parse_info.value;
-    new->value_num = parse_info.value_num;
-    *db = new;
-
-    Xfree(parse_info.name[parse_info.nest_depth]);
-    parse_info.name[parse_info.nest_depth] = NULL;
-
-    parse_info.value = (char **)NULL;
-    parse_info.value_num = 0;
-    parse_info.value_len = 0;
-
-    return 1;
-
- err:
-    if (new) {
-	if (new->category) {
-	    Xfree(new->category);
-	}
-	if (new->name) {
-	    Xfree(new->name);
-	}
-	Xfree(new);
-    }
-    if (parse_info.value) {
-	if (*parse_info.value) {
-	    Xfree(*parse_info.value);
-	}
-	Xfree((char **)parse_info.value);
-	parse_info.value = (char **)NULL;
-	parse_info.value_num = 0;
-	parse_info.value_len = 0;
-    }
-    return 0;
-}
-
-#define END_MARK	"END"
-#define	END_MARK_LEN	3 /*strlen(END_MARK)*/
-
-static int
-check_category_end(
-    const char *str)
-{
-    const char *p;
-    int len;
-
-    p = str;
-    if (strncmp(p, END_MARK, END_MARK_LEN)) {
-	return 0;
-    }
-    p += END_MARK_LEN;
-
-    while (iswhite(*p)) {
-	++p;
-    }
-    len = strlen(parse_info.category);
-    if (strncmp(p, parse_info.category, len)) {
-	return 0;
-    }
-    p += len;
-    return p - str;
-}
-
-/************************************************************************/
-
-static int
-f_newline(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_CATEGORY:
-	break;
-    case S_NAME:
-	return 0; /* no value */
-    case S_VALUE:
-	if (!store_to_database(db))
-	    return 0;
-	parse_info.pre_state = S_CATEGORY;
-	break;
-    default:
-	return 0;
-    }
-    return token_tbl[token].len;
-}
-
-static int
-f_comment(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    /* NOTE: comment is already handled in read_line(),
-       so this function is not necessary. */
-
-    const char *p = str;
-
-    while (*p != SYM_NEWLINE && *p != SYM_CR && *p != '\0') {
-	++p;	/* zap to the end of line */
-    }
-    return p - str;
-}
-
-static int
-f_white(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    const char *p = str;
-
-    while (iswhite(*p)) {
-	++p;
-    }
-    return p - str;
-}
-
-static int
-f_semicolon(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_CATEGORY:
-    case S_NAME:
-	return 0;
-    case S_VALUE:
-	if (! append_value_list())
-	    return 0;
-	parse_info.pre_state = S_VALUE;
-	break;
-    default:
-	return 0;
-    }
-    return token_tbl[token].len;
-}
-
-static int
-f_left_brace(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_CATEGORY:
-    case S_VALUE:
-	return 0;
-    case S_NAME:
-	if (parse_info.name[parse_info.nest_depth] == NULL
-	    || parse_info.nest_depth + 1 > MAX_NAME_NEST)
-	    return 0;
-	++parse_info.nest_depth;
-	parse_info.pre_state = S_CATEGORY;
-	break;
-    default:
-	return 0;
-    }
-    return token_tbl[token].len;
-}
-
-static int
-f_right_brace(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    if (parse_info.nest_depth < 1)
-	return 0;
-
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_NAME:
-	return 0;
-    case S_VALUE:
-	if (! store_to_database(db))
-	    return 0;
-	/* fall into next case */
-    case S_CATEGORY:
-	if (parse_info.name[parse_info.nest_depth] != NULL) {
-	    Xfree(parse_info.name[parse_info.nest_depth]);
-	    parse_info.name[parse_info.nest_depth] = NULL;
-	}
-	--parse_info.nest_depth;
-	parse_info.pre_state = S_CATEGORY;
-	break;
-    default:
-	return 0;
-    }
-    return token_tbl[token].len;
-}
-
-static int
-f_double_quote(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    char word[BUFSIZE];
-    char* wordp;
-    int len;
-
-    if ((len = strlen (str)) < sizeof word)
-	wordp = word;
-    else
-	wordp = Xmalloc (len + 1);
-    if (wordp == NULL)
-	return 0;
-
-    len = 0;
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_CATEGORY:
-	goto err;
-    case S_NAME:
-    case S_VALUE:
-	len = get_quoted_word(str, wordp);
-	if (len < 1)
-	    goto err;
-	if ((parse_info.bufsize + (int)strlen(wordp) + 1)
-					>= parse_info.bufMaxSize) {
-	    if (realloc_parse_info(strlen(wordp)+1) == False) {
-		goto err;
-	    }
-	}
-	strcpy(&parse_info.buf[parse_info.bufsize], wordp);
-	parse_info.bufsize += strlen(wordp);
-	parse_info.pre_state = S_VALUE;
-	break;
-    default:
-	goto err;
-    }
-    if (wordp != word)
-	Xfree (wordp);
-    return len;	/* including length of token */
-
-err:
-    if (wordp != word)
-	Xfree (wordp);
-    return 0;
-}
-
-static int
-f_backslash(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    return f_default(str, token, db);
-}
-
-static int
-f_numeric(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    char word[BUFSIZE];
-    const char *p;
-    char* wordp;
-    int len;
-    int token_len;
-
-    if ((len = strlen (str)) < sizeof word)
-	wordp = word;
-    else
-	wordp = Xmalloc (len + 1);
-    if (wordp == NULL)
-	return 0;
-
-    switch (parse_info.pre_state) {
-    case S_NULL:
-    case S_CATEGORY:
-	goto err;
-    case S_NAME:
-    case S_VALUE:
-	token_len = token_tbl[token].len;
-	p = str + token_len;
-	len = get_word(p, wordp);
-	if (len < 1)
-	    goto err;
-	if ((parse_info.bufsize + token_len + (int)strlen(wordp) + 1)
-					>= parse_info.bufMaxSize) {
-	    if (realloc_parse_info(token_len + strlen(wordp) + 1) == False)
-		goto err;
-	}
-	strncpy(&parse_info.buf[parse_info.bufsize], str, token_len);
-	strcpy(&parse_info.buf[parse_info.bufsize + token_len], wordp);
-	parse_info.bufsize += token_len + strlen(wordp);
-	parse_info.pre_state = S_VALUE;
-	break;
-    default:
-	goto err;
-    }
-    if (wordp != word)
-	Xfree (wordp);
-    return len + token_len;
-
-err:
-    if (wordp != word)
-	Xfree (wordp);
-    return 0;
-}
-
-static int
-f_default(
-    const char *str,
-    Token token,
-    Database *db)
-{
-    char word[BUFSIZE], *p;
-    char* wordp;
-    int len;
-
-    if ((len = strlen (str)) < sizeof word)
-	wordp = word;
-    else
-	wordp = Xmalloc (len + 1);
-    if (wordp == NULL)
-	return 0;
-
-    len = get_word(str, wordp);
-    if (len < 1)
-	goto err;
-
-    switch (parse_info.pre_state) {
-    case S_NULL:
-	if (parse_info.category != NULL)
-	    goto err;
-	p = strdup(wordp);
-	if (p == NULL)
-	    goto err;
-	parse_info.category = p;
-	parse_info.pre_state = S_CATEGORY;
-	break;
-    case S_CATEGORY:
-	if (parse_info.nest_depth == 0) {
-	    if (check_category_end(str)) {
-		/* end of category is detected.
-		   clear context and zap to end of this line */
-		clear_parse_info();
-		len = strlen(str);
-		break;
-	    }
-	}
-	p = strdup(wordp);
-	if (p == NULL)
-	    goto err;
-	if (parse_info.name[parse_info.nest_depth] != NULL) {
-	    Xfree(parse_info.name[parse_info.nest_depth]);
-	}
-	parse_info.name[parse_info.nest_depth] = p;
-	parse_info.pre_state = S_NAME;
-	break;
-    case S_NAME:
-    case S_VALUE:
-	if ((parse_info.bufsize + (int)strlen(wordp) + 1)
-					>= parse_info.bufMaxSize) {
-	    if (realloc_parse_info(strlen(wordp) + 1) == False)
-		goto err;
-	}
-	strcpy(&parse_info.buf[parse_info.bufsize], wordp);
-	parse_info.bufsize += strlen(wordp);
-	parse_info.pre_state = S_VALUE;
-	break;
-    default:
-	goto err;
-    }
-    if (wordp != word)
-	Xfree (wordp);
-    return len;
-
-err:
-    if (wordp != word)
-	Xfree (wordp);
-    return 0;
-}
-
-/************************************************************************/
-
-#ifdef DEBUG
-static void
-PrintDatabase(
-    Database db)
-{
-    Database p = db;
-    int i = 0, j;
-
-    printf("***\n*** BEGIN Database\n***\n");
-    while (p) {
-	printf("%3d: ", i++);
-	printf("%s, %s, ", p->category, p->name);
-	printf("\t[%d: ", p->value_num);
-	for (j = 0; j < p->value_num; ++j) {
-	    printf("%s, ", p->value[j]);
-	}
-	printf("]\n");
-	p = p->next;
-    }
-    printf("***\n*** END   Database\n***\n");
-}
-#endif
-
-static void
-DestroyDatabase(
-    Database db)
-{
-    Database p = db;
-
-    while (p) {
-	if (p->category != NULL) {
-	    Xfree(p->category);
-	}
-	if (p->name != NULL) {
-	    Xfree(p->name);
-	}
-	if (p->value != (char **)NULL) {
-	    if (*p->value != NULL) {
-		Xfree(*p->value);
-	    }
-	    Xfree((char *)p->value);
-	}
-	db = p->next;
-	Xfree((char *)p);
-	p = db;
-    }
-}
-
-static int
-CountDatabase(
-    Database db)
-{
-    Database p = db;
-    int cnt = 0;
-
-    while (p) {
-	++cnt;
-	p = p->next;
-    }
-    return cnt;
-}
-
-static Database
-CreateDatabase(
-    char *dbfile)
-{
-    Database db = (Database)NULL;
-    FILE *fd;
-    Line line;
-    char *p;
-    Token token;
-    int len;
-    int error = 0;
-
-    fd = _XFopenFile(dbfile, "r");
-    if (fd == (FILE *)NULL)
-	return NULL;
-
-    bzero(&line, sizeof(Line));
-    init_parse_info();
-
-    do {
-	int rc = read_line(fd, &line);
-	if (rc < 0) {
-	    error = 1;
-	    break;
-	} else if (rc == 0) {
-	    break;
-	}
-	p = line.str;
-	while (*p) {
-            int (*parse_proc)(const char *str, Token token, Database *db) = NULL;
-
-	    token = get_token(p);
-
-            switch (token_tbl[token].token) {
-            case T_NEWLINE:
-                parse_proc = f_newline;
-                break;
-            case T_COMMENT:
-                parse_proc = f_comment;
-                break;
-            case T_SEMICOLON:
-                parse_proc = f_semicolon;
-                break;
-            case T_DOUBLE_QUOTE:
-                parse_proc = f_double_quote;
-                break;
-            case T_LEFT_BRACE:
-                parse_proc = f_left_brace;
-                break;
-            case T_RIGHT_BRACE:
-                parse_proc = f_right_brace;
-                break;
-            case T_SPACE:
-            case T_TAB:
-                parse_proc = f_white;
-                break;
-            case T_BACKSLASH:
-                parse_proc = f_backslash;
-                break;
-            case T_NUMERIC_HEX:
-            case T_NUMERIC_DEC:
-            case T_NUMERIC_OCT:
-                parse_proc = f_numeric;
-                break;
-            case T_DEFAULT:
-                parse_proc = f_default;
-                break;
-            }
-
-            len = parse_proc(p, token, &db);
-
-	    if (len < 1) {
-		error = 1;
-		break;
-	    }
-	    p += len;
-	}
-    } while (!error);
-
-    if (parse_info.pre_state != S_NULL) {
-	clear_parse_info();
-	error = 1;
-    }
-    if (error) {
-#ifdef	DEBUG
-	fprintf(stderr, "database format error at line %d.\n", line.seq);
-#endif
-	DestroyDatabase(db);
-	db = (Database)NULL;
-    }
-
-    fclose(fd);
-    free_line(&line);
-
-#ifdef	DEBUG
-    PrintDatabase(db);
-#endif
-
-    return db;
-}
-
-/************************************************************************/
-
-#ifndef	NOT_X_ENV
-
-/* locale framework functions */
-
-typedef struct _XlcDatabaseRec {
-    XrmQuark category_q;
-    XrmQuark name_q;
-    Database db;
-    struct _XlcDatabaseRec *next;
-} XlcDatabaseRec, *XlcDatabase;
-
-typedef	struct _XlcDatabaseListRec {
-    XrmQuark name_q;
-    XlcDatabase lc_db;
-    Database database;
-    int ref_count;
-    struct _XlcDatabaseListRec *next;
-} XlcDatabaseListRec, *XlcDatabaseList;
-
-/* database cache list (per file) */
-static XlcDatabaseList _db_list = (XlcDatabaseList)NULL;
-
-/************************************************************************/
-/*	_XlcGetResource(lcd, category, class, value, count)		*/
-/*----------------------------------------------------------------------*/
-/*	This function retrieves XLocale database information.		*/
-/************************************************************************/
-void
-_XlcGetResource(
-    XLCd lcd,
-    const char *category,
-    const char *class,
-    char ***value,
-    int *count)
-{
-    XLCdPublicMethodsPart *methods = XLC_PUBLIC_METHODS(lcd);
-
-    (*methods->get_resource)(lcd, category, class, value, count);
-    return;
-}
-
-/************************************************************************/
-/*	_XlcGetLocaleDataBase(lcd, category, class, value, count)	*/
-/*----------------------------------------------------------------------*/
-/*	This function retrieves XLocale database information.		*/
-/************************************************************************/
-void
-_XlcGetLocaleDataBase(
-    XLCd lcd,
-    const char *category,
-    const char *name,
-    char ***value,
-    int *count)
-{
-    XlcDatabase lc_db = (XlcDatabase)XLC_PUBLIC(lcd, xlocale_db);
-    XrmQuark category_q, name_q;
-
-    category_q = XrmStringToQuark(category);
-    name_q = XrmStringToQuark(name);
-    for (; lc_db->db; ++lc_db) {
-	if (category_q == lc_db->category_q && name_q == lc_db->name_q) {
-	    *value = lc_db->db->value;
-	    *count = lc_db->db->value_num;
-	    return;
-	}
-    }
-    *value = (char **)NULL;
-    *count = 0;
-}
-
-/************************************************************************/
-/*	_XlcDestroyLocaleDataBase(lcd)					*/
-/*----------------------------------------------------------------------*/
-/*	This function destroy the XLocale Database that bound to the 	*/
-/*	specified lcd.  If the XLocale Database is refered from some 	*/
-/*	other lcd, this function just decreases reference count of 	*/
-/*	the database.  If no locale refers the database, this function	*/
-/*	remove it from the cache list and free work area.		*/
-/************************************************************************/
-void
-_XlcDestroyLocaleDataBase(
-    XLCd lcd)
-{
-    XlcDatabase lc_db = (XlcDatabase)XLC_PUBLIC(lcd, xlocale_db);
-    XlcDatabaseList p, prev;
-
-    for (p = _db_list, prev = (XlcDatabaseList)NULL; p;
-	 prev = p, p = p->next) {
-	if (p->lc_db == lc_db) {
-	    if ((-- p->ref_count) < 1) {
-		if (p->lc_db != (XlcDatabase)NULL) {
-		    Xfree((char *)p->lc_db);
-		}
-		DestroyDatabase(p->database);
-		if (prev == (XlcDatabaseList)NULL) {
-		    _db_list = p->next;
-		} else {
-		    prev->next = p->next;
-		}
-		Xfree((char*)p);
-	    }
-	    break;
-	}
-    }
-    XLC_PUBLIC(lcd, xlocale_db) = (XPointer)NULL;
-}
-
-/************************************************************************/
-/*	_XlcCreateLocaleDataBase(lcd)					*/
-/*----------------------------------------------------------------------*/
-/*	This function create an XLocale database which correspond to	*/
-/*	the specified XLCd.						*/
-/************************************************************************/
-XPointer
-_XlcCreateLocaleDataBase(
-    XLCd lcd)
-{
-    XlcDatabaseList list, new;
-    Database p, database = (Database)NULL;
-    XlcDatabase lc_db = (XlcDatabase)NULL;
-    XrmQuark name_q;
-    char *name;
-    int i, n;
-
-    name = _XlcFileName(lcd, "locale");
-    if (name == NULL)
-	return (XPointer)NULL;
-
-#ifndef __UNIXOS2__
-    name_q = XrmStringToQuark(name);
-#else
-    name_q = XrmStringToQuark((char*)__XOS2RedirRoot(name));
-#endif
-    for (list = _db_list; list; list = list->next) {
-	if (name_q == list->name_q) {
-	    list->ref_count++;
-	    Xfree (name);
-	    return XLC_PUBLIC(lcd, xlocale_db) = (XPointer)list->lc_db;
-	}
-    }
-
-    database = CreateDatabase(name);
-    if (database == (Database)NULL) {
-	Xfree (name);
-	return (XPointer)NULL;
-    }
-    n = CountDatabase(database);
-    lc_db = Xcalloc(n + 1, sizeof(XlcDatabaseRec));
-    if (lc_db == (XlcDatabase)NULL)
-	goto err;
-    for (p = database, i = 0; p && i < n; p = p->next, ++i) {
-	lc_db[i].category_q = XrmStringToQuark(p->category);
-	lc_db[i].name_q = XrmStringToQuark(p->name);
-	lc_db[i].db = p;
-    }
-
-    new = (XlcDatabaseList)Xmalloc(sizeof(XlcDatabaseListRec));
-    if (new == (XlcDatabaseList)NULL) {
-	goto err;
-    }
-    new->name_q = name_q;
-    new->lc_db = lc_db;
-    new->database = database;
-    new->ref_count = 1;
-    new->next = _db_list;
-    _db_list = new;
-
-    Xfree (name);
-    return XLC_PUBLIC(lcd, xlocale_db) = (XPointer)lc_db;
-
- err:
-    DestroyDatabase(database);
-    if (lc_db != (XlcDatabase)NULL) {
-	Xfree((char *)lc_db);
-    }
-    Xfree (name);
-    return (XPointer)NULL;
-}
-
-#endif	/* NOT_X_ENV */
+/*

+ *

+ * Copyright IBM Corporation 1993

+ *

+ * All Rights Reserved

+ *

+ * License to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted,

+ * provided that the above copyright notice appear in all copies and that

+ * both that copyright notice and this permission notice appear in

+ * supporting documentation, and that the name of IBM not be

+ * used in advertising or publicity pertaining to distribution of the

+ * software without specific, written prior permission.

+ *

+ * IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS, AND

+ * NONINFRINGEMENT OF THIRD PARTY RIGHTS, IN NO EVENT SHALL

+ * IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+*/

+/*

+ *  (c) Copyright 1995 FUJITSU LIMITED

+ *  This is source code modified by FUJITSU LIMITED under the Joint

+ *  Development Agreement for the CDE/Motif PST.

+ */

+

+

+

+#ifndef	NOT_X_ENV

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <X11/Xlib.h>

+#include <X11/Xresource.h>

+#include "Xlibint.h"

+#include "XlcPubI.h"

+

+#else	/* NOT_X_ENV */

+

+#define	Xmalloc	malloc

+#define	Xrealloc	realloc

+#define	Xfree	free

+

+#endif	/* NOT_X_ENV */

+

+#include <stdint.h>

+

+/* specifying NOT_X_ENV allows users to just use

+   the database parsing routine. */

+/* For UDC/VW */

+#ifndef	BUFSIZE

+#define	BUFSIZE	2048

+#endif

+

+#ifdef COMMENT

+#ifdef  BUFSIZE

+#undef BUFSIZE

+#endif

+#define BUFSIZE 6144 /* 2048*3 */

+#endif

+

+#include <stdio.h>

+#include <unistd.h>

+

+typedef struct _DatabaseRec {

+    char *category;

+    char *name;

+    char **value;

+    int value_num;

+    struct _DatabaseRec *next;

+} DatabaseRec, *Database;

+

+typedef enum {

+    S_NULL,	/* outside category */

+    S_CATEGORY,	/* inside category */

+    S_NAME,	/* has name, expecting values */

+    S_VALUE

+} ParseState;

+

+typedef enum {

+    T_NEWLINE,

+    T_COMMENT,

+    T_SEMICOLON,

+    T_DOUBLE_QUOTE,

+    T_LEFT_BRACE,

+    T_RIGHT_BRACE,

+    T_SPACE,

+    T_TAB,

+    T_BACKSLASH,

+    T_NUMERIC_HEX,

+    T_NUMERIC_DEC,

+    T_NUMERIC_OCT,

+    T_DEFAULT

+} Token;

+

+typedef struct {

+    Token token;	/* token id */

+    int len;		/* length of token sequence */

+} TokenTable;

+

+static int f_newline (const char *str, Token token, Database *db);

+static int f_comment (const char *str, Token token, Database *db);

+static int f_semicolon (const char *str, Token token, Database *db);

+static int f_double_quote (const char *str, Token token, Database *db);

+static int f_left_brace (const char *str, Token token, Database *db);

+static int f_right_brace (const char *str, Token token, Database *db);

+static int f_white (const char *str, Token token, Database *db);

+static int f_backslash (const char *str, Token token, Database *db);

+static int f_numeric (const char *str, Token token, Database *db);

+static int f_default (const char *str, Token token, Database *db);

+

+static const TokenTable token_tbl[] = {

+    { T_NEWLINE,      1 },

+    { T_COMMENT,      1 },

+    { T_SEMICOLON,    1 },

+    { T_DOUBLE_QUOTE, 1 },

+    { T_LEFT_BRACE,   1 },

+    { T_RIGHT_BRACE,  1 },

+    { T_SPACE,        1 },

+    { T_TAB,          1 },

+    { T_BACKSLASH,    1 },

+    { T_NUMERIC_HEX,  2 },

+    { T_NUMERIC_DEC,  2 },

+    { T_NUMERIC_OCT,  2 },

+    { T_DEFAULT,      1 } /* any character */

+};

+

+#define	SYM_CR          '\r'

+#define	SYM_NEWLINE	'\n'

+#define	SYM_COMMENT	'#'

+#define	SYM_SEMICOLON	';'

+#define	SYM_DOUBLE_QUOTE	'"'

+#define	SYM_LEFT_BRACE	'{'

+#define	SYM_RIGHT_BRACE	'}'

+#define	SYM_SPACE	' '

+#define	SYM_TAB		'\t'

+#define	SYM_BACKSLASH	'\\'

+

+/************************************************************************/

+

+#define MAX_NAME_NEST	64

+

+typedef struct {

+    ParseState pre_state;

+    char *category;

+    char *name[MAX_NAME_NEST];

+    int nest_depth;

+    char **value;

+    int value_len;

+    int value_num;

+    int bufsize;        /* bufMaxSize >= bufsize >= 0 */

+    int bufMaxSize;     /* default : BUFSIZE */

+    char *buf;

+} DBParseInfo;

+

+static DBParseInfo parse_info;

+

+static void

+init_parse_info (void)

+{

+    static int allocated /* = 0 */;

+    char *ptr;

+    int size;

+    if (!allocated) {

+	bzero(&parse_info, sizeof(DBParseInfo));

+	parse_info.buf = (char *)Xmalloc(BUFSIZE);

+	parse_info.bufMaxSize = BUFSIZE;

+	allocated = 1;

+	return;

+    }

+    ptr = parse_info.buf;

+    size = parse_info.bufMaxSize;

+    bzero(&parse_info, sizeof(DBParseInfo));

+    parse_info.buf = ptr;

+    parse_info.bufMaxSize = size;

+}

+

+static void

+clear_parse_info (void)

+{

+    int i;

+    char *ptr;

+    int size;

+    parse_info.pre_state = S_NULL;

+    if (parse_info.category != NULL) {

+	Xfree(parse_info.category);

+    }

+    for (i = 0; i <= parse_info.nest_depth; ++i) {

+	if (parse_info.name[i]) {

+	    Xfree(parse_info.name[i]);

+	}

+    }

+    if (parse_info.value) {

+	if (*parse_info.value) {

+	    Xfree(*parse_info.value);

+	}

+	Xfree((char *)parse_info.value);

+    }

+    ptr = parse_info.buf;

+    size = parse_info.bufMaxSize;

+    bzero(&parse_info, sizeof(DBParseInfo));

+    parse_info.buf = ptr;

+    parse_info.bufMaxSize = size;

+}

+

+static Bool

+realloc_parse_info(

+    int len)

+{

+    char *p;

+

+    parse_info.bufMaxSize = BUFSIZE * ((parse_info.bufsize + len)/BUFSIZE + 1);

+    p = (char *)Xrealloc(parse_info.buf, parse_info.bufMaxSize);

+    if (p == NULL)

+        return False;

+    parse_info.buf = p;

+

+    return True;

+}

+

+/************************************************************************/

+

+typedef struct _Line {

+    char *str;

+    int cursize;

+    int maxsize;

+    int seq;

+} Line;

+

+static void

+free_line(

+    Line *line)

+{

+    if (line->str != NULL) {

+	Xfree(line->str);

+    }

+    bzero(line, sizeof(Line));

+}

+

+static int

+realloc_line(

+    Line *line,

+    int size)

+{

+    char *str = line->str;

+

+    if (str != NULL) {

+	str = (char *)Xrealloc(str, size);

+    } else {

+	str = (char *)Xmalloc(size);

+    }

+    if (str == NULL) {

+	/* malloc error */

+	if (line->str != NULL) {

+	    Xfree(line->str);

+	}

+	bzero(line, sizeof(Line));

+	return 0;

+    }

+    line->str = str;

+    line->maxsize = size;

+    return 1;

+}

+

+#define	iswhite(ch)	((ch) == SYM_SPACE   || (ch) == SYM_TAB)

+

+static void

+zap_comment(

+    char *str,

+    int *quoted)

+{

+    char *p = str;

+#ifdef	never

+    *quoted = 0;

+    if (*p == SYM_COMMENT) {

+	int len = strlen(str);

+	if (p[len - 1] == SYM_NEWLINE || p[len - 1] == SYM_CR) {

+	    *p++ = SYM_NEWLINE;

+	}

+	*p = '\0';

+    }

+#else

+    while (*p) {

+	if (*p == SYM_DOUBLE_QUOTE) {

+	    if (p == str || p[-1] != SYM_BACKSLASH) {

+		/* unescaped double quote changes quoted state. */

+		*quoted = *quoted ? 0 : 1;

+	    }

+	}

+	if (*p == SYM_COMMENT && !*quoted) {

+	    int pos = p - str;

+	    if (pos == 0 ||

+	        (iswhite(p[-1]) && (pos == 1 || p[-2] != SYM_BACKSLASH))) {

+		int len = strlen(p);

+		if (len > 0 && (p[len - 1] == SYM_NEWLINE || p[len-1] == SYM_CR)) {

+		    /* newline is the identifier for finding end of value.

+		       therefore, it should not be removed. */

+		    *p++ = SYM_NEWLINE;

+		}

+		*p = '\0';

+		break;

+	    }

+	}

+	++p;

+    }

+#endif

+}

+

+static int

+read_line(

+    FILE *fd,

+    Line *line)

+{

+    char buf[BUFSIZE], *p;

+    int len;

+    int quoted = 0;	/* quoted by double quote? */

+    char *str;

+    int cur;

+

+    str = line->str;

+    cur = line->cursize = 0;

+

+    while ((p = fgets(buf, BUFSIZE, fd)) != NULL) {

+	++line->seq;

+	zap_comment(p, &quoted);	/* remove comment line */

+	len = strlen(p);

+	if (len == 0) {

+	    if (cur > 0) {

+		break;

+	    }

+	    continue;

+	}

+	if (cur + len + 1 > line->maxsize) {

+	    /* need to reallocate buffer. */

+	    if (! realloc_line(line, line->maxsize + BUFSIZE)) {

+		return -1;	/* realloc error. */

+	    }

+	    str = line->str;

+	}

+	strncpy(str + cur, p, len);

+

+	cur += len;

+	str[cur] = '\0';

+#ifdef __UNIXOS2__  /* Take out carriage returns under OS/2 */

+	if (cur>1) {

+	   if (str[cur-2] == '\r' && str[cur-1] == '\n') {

+	      str[cur-2] = '\n';

+	      str[cur-1] = '\0';

+	      cur--;

+	   }

+	}

+#endif

+	if (!quoted && cur > 1 && str[cur - 2] == SYM_BACKSLASH &&

+	    (str[cur - 1] == SYM_NEWLINE || str[cur-1] == SYM_CR)) {

+	    /* the line is ended backslash followed by newline.

+	       need to concatinate the next line. */

+	    cur -= 2;

+	    str[cur] = '\0';

+	} else if (len < BUFSIZE - 1 || buf[len - 1] == SYM_NEWLINE ||

+		   buf[len - 1] == SYM_CR) {

+	    /* the line is shorter than BUFSIZE. */

+	    break;

+	}

+    }

+    if (quoted) {

+	/* error.  still in quoted state. */

+	return -1;

+    }

+    return line->cursize = cur;

+}

+

+/************************************************************************/

+

+static Token

+get_token(

+    const char *str)

+{

+    switch (*str) {

+    case SYM_NEWLINE:

+    case SYM_CR:		return T_NEWLINE;

+    case SYM_COMMENT:		return T_COMMENT;

+    case SYM_SEMICOLON:		return T_SEMICOLON;

+    case SYM_DOUBLE_QUOTE:	return T_DOUBLE_QUOTE;

+    case SYM_LEFT_BRACE:	return T_LEFT_BRACE;

+    case SYM_RIGHT_BRACE:	return T_RIGHT_BRACE;

+    case SYM_SPACE:		return T_SPACE;

+    case SYM_TAB:		return T_TAB;

+    case SYM_BACKSLASH:

+	switch (str[1]) {

+	case 'x': return T_NUMERIC_HEX;

+	case 'd': return T_NUMERIC_DEC;

+	case 'o': return T_NUMERIC_OCT;

+	}

+	return T_BACKSLASH;

+    default:

+	return T_DEFAULT;

+    }

+}

+

+static int

+get_word(

+    const char *str,

+    char *word)

+{

+    const char *p = str;

+    char *w = word;

+    Token token;

+    int token_len;

+

+    while (*p != '\0') {

+	token = get_token(p);

+	token_len = token_tbl[token].len;

+	if (token == T_BACKSLASH) {

+	    p += token_len;

+	    if (*p == '\0')

+		break;

+	    token = get_token(p);

+	    token_len = token_tbl[token].len;

+	} else if (token != T_COMMENT && token != T_DEFAULT) {

+	    break;

+	}

+	strncpy(w, p, token_len);

+	p += token_len; w += token_len;

+    }

+    *w = '\0';

+    return p - str;	/* return number of scanned chars */

+}

+

+static int

+get_quoted_word(

+    const char *str,

+    char *word)

+{

+    const char *p = str;

+    char *w = word;

+    Token token;

+    int token_len;

+

+    if (*p == SYM_DOUBLE_QUOTE) {

+	++p;

+    }

+    while (*p != '\0') {

+	token = get_token(p);

+	token_len = token_tbl[token].len;

+	if (token == T_DOUBLE_QUOTE) {

+	    p += token_len;

+	    goto found;

+	}

+	if (token == T_BACKSLASH) {

+	    p += token_len;

+	    if (*p == '\0') {

+		break;

+	    }

+	    token = get_token(p);

+	    token_len = token_tbl[token].len;

+	}

+	strncpy(w, p, token_len);

+	p += token_len; w += token_len;

+    }

+    /* error. cannot detect next double quote */

+    return 0;

+

+ found:;

+    *w = '\0';

+    return p - str;

+}

+

+/************************************************************************/

+

+static int

+append_value_list (void)

+{

+    char **value_list = parse_info.value;

+    char *value;

+    int value_num = parse_info.value_num;

+    int value_len = parse_info.value_len;

+    char *str = parse_info.buf;

+    int len = parse_info.bufsize;

+    char *p;

+

+    if (len < 1) {

+	return 1; /* return with no error */

+    }

+

+    if (value_list == (char **)NULL) {

+	value_list = (char **)Xmalloc(sizeof(char *) * 2);

+	*value_list = NULL;

+    } else {

+	char **prev_list = value_list;

+

+	value_list = (char **)

+	    Xrealloc(value_list, sizeof(char *) * (value_num + 2));

+	if (value_list == NULL) {

+	    Xfree(prev_list);

+	}

+    }

+    if (value_list == (char **)NULL)

+	goto err2;

+

+    value = *value_list;

+    if (value == NULL) {

+	value = (char *)Xmalloc(value_len + len + 1);

+    } else {

+	char *prev_value = value;

+

+	value = (char *)Xrealloc(value, value_len + len + 1);

+	if (value == NULL) {

+	    Xfree(prev_value);

+	}

+    }

+    if (value == NULL) {

+	goto err1;

+    }

+    if (value != *value_list) {

+	int i;

+	ssize_t delta;

+	delta = value - *value_list;

+	*value_list = value;

+	for (i = 1; i < value_num; ++i) {

+	    value_list[i] += delta;

+	}

+    }

+

+    value_list[value_num] = p = &value[value_len];

+    value_list[value_num + 1] = NULL;

+    strncpy(p, str, len);

+    p[len] = 0;

+

+    parse_info.value = value_list;

+    parse_info.value_num = value_num + 1;

+    parse_info.value_len = value_len + len + 1;

+    parse_info.bufsize = 0;

+    return 1;

+

+ err1:

+    if (value_list) {

+	Xfree((char **)value_list);

+    }

+    if (value) {

+	Xfree(value);

+    }

+ err2:

+    parse_info.value = (char **)NULL;

+    parse_info.value_num = 0;

+    parse_info.value_len = 0;

+    parse_info.bufsize = 0;

+    return 0;

+}

+

+static int

+construct_name(

+    char *name,

+    int size)

+{

+    int i;

+    int len = 0;

+    char *p = name;

+

+    for (i = 0; i <= parse_info.nest_depth; ++i) {

+	len += strlen(parse_info.name[i]) + 1;

+    }

+    if (len >= size)

+	return 0;

+

+    strcpy(p, parse_info.name[0]);

+    p += strlen(parse_info.name[0]);

+    for (i = 1; i <= parse_info.nest_depth; ++i) {

+	*p++ = '.';

+	strcpy(p, parse_info.name[i]);

+	p += strlen(parse_info.name[i]);

+    }

+    return *name != '\0';

+}

+

+static int

+store_to_database(

+    Database *db)

+{

+    Database new = (Database)NULL;

+    char name[BUFSIZE];

+

+    if (parse_info.pre_state == S_VALUE) {

+	if (! append_value_list()) {

+	    goto err;

+	}

+    }

+

+    if (parse_info.name[parse_info.nest_depth] == NULL) {

+	goto err;

+    }

+

+    new = Xcalloc(1, sizeof(DatabaseRec));

+    if (new == (Database)NULL) {

+	goto err;

+    }

+

+    new->category = strdup(parse_info.category);

+    if (new->category == NULL) {

+	goto err;

+    }

+

+    if (! construct_name(name, sizeof(name))) {

+	goto err;

+    }

+    new->name = strdup(name);

+    if (new->name == NULL) {

+	goto err;

+    }

+    new->next = *db;

+    new->value = parse_info.value;

+    new->value_num = parse_info.value_num;

+    *db = new;

+

+    Xfree(parse_info.name[parse_info.nest_depth]);

+    parse_info.name[parse_info.nest_depth] = NULL;

+

+    parse_info.value = (char **)NULL;

+    parse_info.value_num = 0;

+    parse_info.value_len = 0;

+

+    return 1;

+

+ err:

+    if (new) {

+	if (new->category) {

+	    Xfree(new->category);

+	}

+	if (new->name) {

+	    Xfree(new->name);

+	}

+	Xfree(new);

+    }

+    if (parse_info.value) {

+	if (*parse_info.value) {

+	    Xfree(*parse_info.value);

+	}

+	Xfree((char **)parse_info.value);

+	parse_info.value = (char **)NULL;

+	parse_info.value_num = 0;

+	parse_info.value_len = 0;

+    }

+    return 0;

+}

+

+#define END_MARK	"END"

+#define	END_MARK_LEN	3 /*strlen(END_MARK)*/

+

+static int

+check_category_end(

+    const char *str)

+{

+    const char *p;

+    int len;

+

+    p = str;

+    if (strncmp(p, END_MARK, END_MARK_LEN)) {

+	return 0;

+    }

+    p += END_MARK_LEN;

+

+    while (iswhite(*p)) {

+	++p;

+    }

+    len = strlen(parse_info.category);

+    if (strncmp(p, parse_info.category, len)) {

+	return 0;

+    }

+    p += len;

+    return p - str;

+}

+

+/************************************************************************/

+

+static int

+f_newline(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_CATEGORY:

+	break;

+    case S_NAME:

+	return 0; /* no value */

+    case S_VALUE:

+	if (!store_to_database(db))

+	    return 0;

+	parse_info.pre_state = S_CATEGORY;

+	break;

+    default:

+	return 0;

+    }

+    return token_tbl[token].len;

+}

+

+static int

+f_comment(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    /* NOTE: comment is already handled in read_line(),

+       so this function is not necessary. */

+

+    const char *p = str;

+

+    while (*p != SYM_NEWLINE && *p != SYM_CR && *p != '\0') {

+	++p;	/* zap to the end of line */

+    }

+    return p - str;

+}

+

+static int

+f_white(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    const char *p = str;

+

+    while (iswhite(*p)) {

+	++p;

+    }

+    return p - str;

+}

+

+static int

+f_semicolon(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_CATEGORY:

+    case S_NAME:

+	return 0;

+    case S_VALUE:

+	if (! append_value_list())

+	    return 0;

+	parse_info.pre_state = S_VALUE;

+	break;

+    default:

+	return 0;

+    }

+    return token_tbl[token].len;

+}

+

+static int

+f_left_brace(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_CATEGORY:

+    case S_VALUE:

+	return 0;

+    case S_NAME:

+	if (parse_info.name[parse_info.nest_depth] == NULL

+	    || parse_info.nest_depth + 1 > MAX_NAME_NEST)

+	    return 0;

+	++parse_info.nest_depth;

+	parse_info.pre_state = S_CATEGORY;

+	break;

+    default:

+	return 0;

+    }

+    return token_tbl[token].len;

+}

+

+static int

+f_right_brace(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    if (parse_info.nest_depth < 1)

+	return 0;

+

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_NAME:

+	return 0;

+    case S_VALUE:

+	if (! store_to_database(db))

+	    return 0;

+	/* fall into next case */

+    case S_CATEGORY:

+	if (parse_info.name[parse_info.nest_depth] != NULL) {

+	    Xfree(parse_info.name[parse_info.nest_depth]);

+	    parse_info.name[parse_info.nest_depth] = NULL;

+	}

+	--parse_info.nest_depth;

+	parse_info.pre_state = S_CATEGORY;

+	break;

+    default:

+	return 0;

+    }

+    return token_tbl[token].len;

+}

+

+static int

+f_double_quote(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    char word[BUFSIZE];

+    char* wordp;

+    int len;

+

+    if ((len = strlen (str)) < sizeof word)

+	wordp = word;

+    else

+	wordp = Xmalloc (len + 1);

+    if (wordp == NULL)

+	return 0;

+

+    len = 0;

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_CATEGORY:

+	goto err;

+    case S_NAME:

+    case S_VALUE:

+	len = get_quoted_word(str, wordp);

+	if (len < 1)

+	    goto err;

+	if ((parse_info.bufsize + (int)strlen(wordp) + 1)

+					>= parse_info.bufMaxSize) {

+	    if (realloc_parse_info(strlen(wordp)+1) == False) {

+		goto err;

+	    }

+	}

+	strcpy(&parse_info.buf[parse_info.bufsize], wordp);

+	parse_info.bufsize += strlen(wordp);

+	parse_info.pre_state = S_VALUE;

+	break;

+    default:

+	goto err;

+    }

+    if (wordp != word)

+	Xfree (wordp);

+    return len;	/* including length of token */

+

+err:

+    if (wordp != word)

+	Xfree (wordp);

+    return 0;

+}

+

+static int

+f_backslash(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    return f_default(str, token, db);

+}

+

+static int

+f_numeric(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    char word[BUFSIZE];

+    const char *p;

+    char* wordp;

+    int len;

+    int token_len;

+

+    if ((len = strlen (str)) < sizeof word)

+	wordp = word;

+    else

+	wordp = Xmalloc (len + 1);

+    if (wordp == NULL)

+	return 0;

+

+    switch (parse_info.pre_state) {

+    case S_NULL:

+    case S_CATEGORY:

+	goto err;

+    case S_NAME:

+    case S_VALUE:

+	token_len = token_tbl[token].len;

+	p = str + token_len;

+	len = get_word(p, wordp);

+	if (len < 1)

+	    goto err;

+	if ((parse_info.bufsize + token_len + (int)strlen(wordp) + 1)

+					>= parse_info.bufMaxSize) {

+	    if (realloc_parse_info(token_len + strlen(wordp) + 1) == False)

+		goto err;

+	}

+	strncpy(&parse_info.buf[parse_info.bufsize], str, token_len);

+	strcpy(&parse_info.buf[parse_info.bufsize + token_len], wordp);

+	parse_info.bufsize += token_len + strlen(wordp);

+	parse_info.pre_state = S_VALUE;

+	break;

+    default:

+	goto err;

+    }

+    if (wordp != word)

+	Xfree (wordp);

+    return len + token_len;

+

+err:

+    if (wordp != word)

+	Xfree (wordp);

+    return 0;

+}

+

+static int

+f_default(

+    const char *str,

+    Token token,

+    Database *db)

+{

+    char word[BUFSIZE], *p;

+    char* wordp;

+    int len;

+

+    if ((len = strlen (str)) < sizeof word)

+	wordp = word;

+    else

+	wordp = Xmalloc (len + 1);

+    if (wordp == NULL)

+	return 0;

+

+    len = get_word(str, wordp);

+    if (len < 1)

+	goto err;

+

+    switch (parse_info.pre_state) {

+    case S_NULL:

+	if (parse_info.category != NULL)

+	    goto err;

+	p = strdup(wordp);

+	if (p == NULL)

+	    goto err;

+	parse_info.category = p;

+	parse_info.pre_state = S_CATEGORY;

+	break;

+    case S_CATEGORY:

+	if (parse_info.nest_depth == 0) {

+	    if (check_category_end(str)) {

+		/* end of category is detected.

+		   clear context and zap to end of this line */

+		clear_parse_info();

+		len = strlen(str);

+		break;

+	    }

+	}

+	p = strdup(wordp);

+	if (p == NULL)

+	    goto err;

+	if (parse_info.name[parse_info.nest_depth] != NULL) {

+	    Xfree(parse_info.name[parse_info.nest_depth]);

+	}

+	parse_info.name[parse_info.nest_depth] = p;

+	parse_info.pre_state = S_NAME;

+	break;

+    case S_NAME:

+    case S_VALUE:

+	if ((parse_info.bufsize + (int)strlen(wordp) + 1)

+					>= parse_info.bufMaxSize) {

+	    if (realloc_parse_info(strlen(wordp) + 1) == False)

+		goto err;

+	}

+	strcpy(&parse_info.buf[parse_info.bufsize], wordp);

+	parse_info.bufsize += strlen(wordp);

+	parse_info.pre_state = S_VALUE;

+	break;

+    default:

+	goto err;

+    }

+    if (wordp != word)

+	Xfree (wordp);

+    return len;

+

+err:

+    if (wordp != word)

+	Xfree (wordp);

+    return 0;

+}

+

+/************************************************************************/

+

+#ifdef DEBUG

+static void

+PrintDatabase(

+    Database db)

+{

+    Database p = db;

+    int i = 0, j;

+

+    printf("***\n*** BEGIN Database\n***\n");

+    while (p) {

+	printf("%3d: ", i++);

+	printf("%s, %s, ", p->category, p->name);

+	printf("\t[%d: ", p->value_num);

+	for (j = 0; j < p->value_num; ++j) {

+	    printf("%s, ", p->value[j]);

+	}

+	printf("]\n");

+	p = p->next;

+    }

+    printf("***\n*** END   Database\n***\n");

+}

+#endif

+

+static void

+DestroyDatabase(

+    Database db)

+{

+    Database p = db;

+

+    while (p) {

+	if (p->category != NULL) {

+	    Xfree(p->category);

+	}

+	if (p->name != NULL) {

+	    Xfree(p->name);

+	}

+	if (p->value != (char **)NULL) {

+	    if (*p->value != NULL) {

+		Xfree(*p->value);

+	    }

+	    Xfree((char *)p->value);

+	}

+	db = p->next;

+	Xfree((char *)p);

+	p = db;

+    }

+}

+

+static int

+CountDatabase(

+    Database db)

+{

+    Database p = db;

+    int cnt = 0;

+

+    while (p) {

+	++cnt;

+	p = p->next;

+    }

+    return cnt;

+}

+

+static Database

+CreateDatabase(

+    char *dbfile)

+{

+    Database db = (Database)NULL;

+    FILE *fd;

+    Line line;

+    char *p;

+    Token token;

+    int len;

+    int error = 0;

+

+    fd = _XFopenFile(dbfile, "r");

+    if (fd == (FILE *)NULL)

+	return NULL;

+

+    bzero(&line, sizeof(Line));

+    init_parse_info();

+

+    do {

+	int rc = read_line(fd, &line);

+	if (rc < 0) {

+	    error = 1;

+	    break;

+	} else if (rc == 0) {

+	    break;

+	}

+	p = line.str;

+	while (*p) {

+            int (*parse_proc)(const char *str, Token token, Database *db) = NULL;

+

+	    token = get_token(p);

+

+            switch (token_tbl[token].token) {

+            case T_NEWLINE:

+                parse_proc = f_newline;

+                break;

+            case T_COMMENT:

+                parse_proc = f_comment;

+                break;

+            case T_SEMICOLON:

+                parse_proc = f_semicolon;

+                break;

+            case T_DOUBLE_QUOTE:

+                parse_proc = f_double_quote;

+                break;

+            case T_LEFT_BRACE:

+                parse_proc = f_left_brace;

+                break;

+            case T_RIGHT_BRACE:

+                parse_proc = f_right_brace;

+                break;

+            case T_SPACE:

+            case T_TAB:

+                parse_proc = f_white;

+                break;

+            case T_BACKSLASH:

+                parse_proc = f_backslash;

+                break;

+            case T_NUMERIC_HEX:

+            case T_NUMERIC_DEC:

+            case T_NUMERIC_OCT:

+                parse_proc = f_numeric;

+                break;

+            case T_DEFAULT:

+                parse_proc = f_default;

+                break;

+            }

+

+            len = parse_proc(p, token, &db);

+

+	    if (len < 1) {

+		error = 1;

+		break;

+	    }

+	    p += len;

+	}

+    } while (!error);

+

+    if (parse_info.pre_state != S_NULL) {

+	clear_parse_info();

+	error = 1;

+    }

+    if (error) {

+#ifdef	DEBUG

+	fprintf(stderr, "database format error at line %d.\n", line.seq);

+#endif

+	DestroyDatabase(db);

+	db = (Database)NULL;

+    }

+

+    fclose(fd);

+    free_line(&line);

+

+#ifdef	DEBUG

+    PrintDatabase(db);

+#endif

+

+    return db;

+}

+

+/************************************************************************/

+

+#ifndef	NOT_X_ENV

+

+/* locale framework functions */

+

+typedef struct _XlcDatabaseRec {

+    XrmQuark category_q;

+    XrmQuark name_q;

+    Database db;

+    struct _XlcDatabaseRec *next;

+} XlcDatabaseRec, *XlcDatabase;

+

+typedef	struct _XlcDatabaseListRec {

+    XrmQuark name_q;

+    XlcDatabase lc_db;

+    Database database;

+    int ref_count;

+    struct _XlcDatabaseListRec *next;

+} XlcDatabaseListRec, *XlcDatabaseList;

+

+/* database cache list (per file) */

+static XlcDatabaseList _db_list = (XlcDatabaseList)NULL;

+

+/************************************************************************/

+/*	_XlcGetResource(lcd, category, class, value, count)		*/

+/*----------------------------------------------------------------------*/

+/*	This function retrieves XLocale database information.		*/

+/************************************************************************/

+void

+_XlcGetResource(

+    XLCd lcd,

+    const char *category,

+    const char *class,

+    char ***value,

+    int *count)

+{

+    XLCdPublicMethodsPart *methods = XLC_PUBLIC_METHODS(lcd);

+

+    (*methods->get_resource)(lcd, category, class, value, count);

+    return;

+}

+

+/************************************************************************/

+/*	_XlcGetLocaleDataBase(lcd, category, class, value, count)	*/

+/*----------------------------------------------------------------------*/

+/*	This function retrieves XLocale database information.		*/

+/************************************************************************/

+void

+_XlcGetLocaleDataBase(

+    XLCd lcd,

+    const char *category,

+    const char *name,

+    char ***value,

+    int *count)

+{

+    XlcDatabase lc_db = (XlcDatabase)XLC_PUBLIC(lcd, xlocale_db);

+    XrmQuark category_q, name_q;

+

+    category_q = XrmStringToQuark(category);

+    name_q = XrmStringToQuark(name);

+    for (; lc_db->db; ++lc_db) {

+	if (category_q == lc_db->category_q && name_q == lc_db->name_q) {

+	    *value = lc_db->db->value;

+	    *count = lc_db->db->value_num;

+	    return;

+	}

+    }

+    *value = (char **)NULL;

+    *count = 0;

+}

+

+/************************************************************************/

+/*	_XlcDestroyLocaleDataBase(lcd)					*/

+/*----------------------------------------------------------------------*/

+/*	This function destroy the XLocale Database that bound to the 	*/

+/*	specified lcd.  If the XLocale Database is refered from some 	*/

+/*	other lcd, this function just decreases reference count of 	*/

+/*	the database.  If no locale refers the database, this function	*/

+/*	remove it from the cache list and free work area.		*/

+/************************************************************************/

+void

+_XlcDestroyLocaleDataBase(

+    XLCd lcd)

+{

+    XlcDatabase lc_db = (XlcDatabase)XLC_PUBLIC(lcd, xlocale_db);

+    XlcDatabaseList p, prev;

+

+    for (p = _db_list, prev = (XlcDatabaseList)NULL; p;

+	 prev = p, p = p->next) {

+	if (p->lc_db == lc_db) {

+	    if ((-- p->ref_count) < 1) {

+		if (p->lc_db != (XlcDatabase)NULL) {

+		    Xfree((char *)p->lc_db);

+		}

+		DestroyDatabase(p->database);

+		if (prev == (XlcDatabaseList)NULL) {

+		    _db_list = p->next;

+		} else {

+		    prev->next = p->next;

+		}

+		Xfree((char*)p);

+	    }

+	    break;

+	}

+    }

+    XLC_PUBLIC(lcd, xlocale_db) = (XPointer)NULL;

+}

+

+/************************************************************************/

+/*	_XlcCreateLocaleDataBase(lcd)					*/

+/*----------------------------------------------------------------------*/

+/*	This function create an XLocale database which correspond to	*/

+/*	the specified XLCd.						*/

+/************************************************************************/

+XPointer

+_XlcCreateLocaleDataBase(

+    XLCd lcd)

+{

+    XlcDatabaseList list, new;

+    Database p, database = (Database)NULL;

+    XlcDatabase lc_db = (XlcDatabase)NULL;

+    XrmQuark name_q;

+    char *name;

+    int i, n;

+

+    name = _XlcFileName(lcd, "locale");

+    if (name == NULL)

+	return (XPointer)NULL;

+

+#ifndef __UNIXOS2__

+    name_q = XrmStringToQuark(name);

+#else

+    name_q = XrmStringToQuark((char*)__XOS2RedirRoot(name));

+#endif

+    for (list = _db_list; list; list = list->next) {

+	if (name_q == list->name_q) {

+	    list->ref_count++;

+	    Xfree (name);

+	    return XLC_PUBLIC(lcd, xlocale_db) = (XPointer)list->lc_db;

+	}

+    }

+

+    database = CreateDatabase(name);

+    if (database == (Database)NULL) {

+	Xfree (name);

+	return (XPointer)NULL;

+    }

+    n = CountDatabase(database);

+    lc_db = Xcalloc(n + 1, sizeof(XlcDatabaseRec));

+    if (lc_db == (XlcDatabase)NULL)

+	goto err;

+    for (p = database, i = 0; p && i < n; p = p->next, ++i) {

+	lc_db[i].category_q = XrmStringToQuark(p->category);

+	lc_db[i].name_q = XrmStringToQuark(p->name);

+	lc_db[i].db = p;

+    }

+

+    new = (XlcDatabaseList)Xmalloc(sizeof(XlcDatabaseListRec));

+    if (new == (XlcDatabaseList)NULL) {

+	goto err;

+    }

+    new->name_q = name_q;

+    new->lc_db = lc_db;

+    new->database = database;

+    new->ref_count = 1;

+    new->next = _db_list;

+    _db_list = new;

+

+    Xfree (name);

+    return XLC_PUBLIC(lcd, xlocale_db) = (XPointer)lc_db;

+

+ err:

+    DestroyDatabase(database);

+    if (lc_db != (XlcDatabase)NULL) {

+	Xfree((char *)lc_db);

+    }

+    Xfree (name);

+    return (XPointer)NULL;

+}

+

+#endif	/* NOT_X_ENV */

diff --git a/libX11/src/xlibi18n/lcDynamic.c b/libX11/src/xlibi18n/lcDynamic.c
index f6df94cbb..8d022d885 100644
--- a/libX11/src/xlibi18n/lcDynamic.c
+++ b/libX11/src/xlibi18n/lcDynamic.c
@@ -51,7 +51,7 @@ from The Open Group.
 #include "Xlcint.h"
 
 #ifndef XLOCALEDIR
-#define XLOCALEDIR "/usr/lib/X11/locale"
+#define XLOCALEDIR "locale"
 #endif
 
 #define LCLIBNAME    "xi18n.so"
diff --git a/libX11/src/xlibi18n/lcFile.c b/libX11/src/xlibi18n/lcFile.c
index 4e4439773..5a9b0f4ab 100644
--- a/libX11/src/xlibi18n/lcFile.c
+++ b/libX11/src/xlibi18n/lcFile.c
@@ -1,829 +1,829 @@
-/*
- *
- * Copyright IBM Corporation 1993
- *
- * All Rights Reserved
- *
- * License to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appear in all copies and that
- * both that copyright notice and this permission notice appear in
- * supporting documentation, and that the name of IBM not be
- * used in advertising or publicity pertaining to distribution of the
- * software without specific, written prior permission.
- *
- * IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS, AND
- * NONINFRINGEMENT OF THIRD PARTY RIGHTS, IN NO EVENT SHALL
- * IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
-*/
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdlib.h>
-#include <stdio.h>
-#include <ctype.h>
-#include "Xlibint.h"
-#include "XlcPubI.h"
-#include <X11/Xos.h>
-#include <unistd.h>
-
-/************************************************************************/
-
-#ifdef __UNIXOS2__
-# define seteuid setuid
-#endif
-#define	iscomment(ch)	((ch) == '#' || (ch) == '\0')
-#if defined(WIN32)
-#define isreadable(f)	(_XAccessFile(f))
-#else
-#define isreadable(f)	((access((f), R_OK) != -1) ? 1 : 0)
-#endif
-
-#ifndef __UNIXOS2__
-#define LC_PATHDELIM ':'
-#else
-#define LC_PATHDELIM ';'
-#endif
-
-#define XLC_BUFSIZE 256
-
-#ifndef X_NOT_POSIX
-#ifdef _POSIX_SOURCE
-#include <limits.h>
-#else
-#define _POSIX_SOURCE
-#include <limits.h>
-#undef _POSIX_SOURCE
-#endif
-#endif
-#ifndef PATH_MAX
-#ifdef WIN32
-#define PATH_MAX 512
-#else
-#include <sys/param.h>
-#endif
-#ifndef PATH_MAX
-#ifdef MAXPATHLEN
-#define PATH_MAX MAXPATHLEN
-#else
-#define PATH_MAX 1024
-#endif
-#endif
-#endif
-
-#define NUM_LOCALEDIR	64
-
-/* Splits a NUL terminated line into constituents, at colons and newline
-   characters. Leading whitespace is removed from constituents. The
-   constituents are stored at argv[0..argsize-1]. The number of stored
-   constituents (<= argsize) is returned. The line is destructively
-   modified. */
-static int
-parse_line(
-    char *line,
-    char **argv,
-    int argsize)
-{
-    int argc = 0;
-    char *p = line;
-
-    while (argc < argsize) {
-	while (isspace(*p)) {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	argv[argc++] = p;
-	while (*p != ':' && *p != '\n' && *p != '\0') {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	*p++ = '\0';
-    }
-
-    return argc;
-}
-
-#ifdef __UNIXOS2__
-
-/* fg021216: entries in locale files are separated by colons while under
-   OS/2, path entries are separated by semicolon, so we need two functions */
-
-static int
-parse_line1(
-    char *line,
-    char **argv,
-    int argsize)
-{
-    int argc = 0;
-    char *p = line;
-
-    while (argc < argsize) {
-	while (isspace(*p)) {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	argv[argc++] = p;
-	while (*p != ';' && *p != '\n' && *p != '\0') {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	*p++ = '\0';
-    }
-
-    return argc;
-}
-#elif defined(WIN32)
-
-/* this is parse_line but skips drive letters at the beginning of the entry */
-static int
-parse_line1(
-    char *line,
-    char **argv,
-    int argsize)
-{
-    int argc = 0;
-    char *p = line;
-
-    while (argc < argsize) {
-	while (isspace(*p)) {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	argv[argc++] = p;
-        if (isalpha(*p) && p[1] == ':') {
-            p+= 2; /* skip drive letters */
-        }
-	while (*p != ':' && *p != '\n' && *p != '\0') {
-	    ++p;
-	}
-	if (*p == '\0') {
-	    break;
-	}
-	*p++ = '\0';
-    }
-
-    return argc;
-}
-
-#endif   /* __UNIXOS2__ */
-
-/* Splits a colon separated list of directories, and returns the constituent
-   paths (without trailing slash). At most argsize constituents are stored
-   at argv[0..argsize-1]. The number of stored constituents is returned. */
-static int
-_XlcParsePath(
-    char *path,
-    char **argv,
-    int argsize)
-{
-    char *p = path;
-    int n, i;
-
-#if !defined(__UNIXOS2__) && !defined(WIN32)
-    n = parse_line(path, argv, argsize);
-#else
-    n = parse_line1(path, argv, argsize);
-#endif
-    for (i = 0; i < n; ++i) {
-	int len;
-	p = argv[i];
-	len = strlen(p);
-	if (len > 0 && p[len - 1] == '/') {
-	    /* eliminate trailing slash */
-	    p[len - 1] = '\0';
-	}
-    }
-    return n;
-}
-
-#ifndef XLOCALEDIR
-#define XLOCALEDIR "/usr/lib/X11/locale"
-#endif
-
-void
-xlocaledir(
-    char *buf,
-    int buf_len)
-{
-    char *p = buf;
-    int len = 0;
-
-#ifndef NO_XLOCALEDIR
-    char *dir;
-    int priv = 1;
-
-    dir = getenv("XLOCALEDIR");
-
-    if (dir) {
-#ifndef WIN32
-	/*
-	 * Only use the user-supplied path if the process isn't priviledged.
-	 */
-	if (getuid() == geteuid() && getgid() == getegid()) {
-#if defined(HASSETUGID)
-	    priv = issetugid();
-#elif defined(HASGETRESUID)
-	    {
-		uid_t ruid, euid, suid;
-		gid_t rgid, egid, sgid;
-		if ((getresuid(&ruid, &euid, &suid) == 0) &&
-		    (getresgid(&rgid, &egid, &sgid) == 0))
-		    priv = (euid != suid) || (egid != sgid);
-	    }
-#else
-	    /*
-	     * If there are saved ID's the process might still be priviledged
-	     * even though the above test succeeded.  If issetugid() and
-	     * getresgid() aren't available, test this by trying to set
-	     * euid to 0.
-	     *
-	     * Note: this only protects setuid-root clients.  It doesn't
-	     * protect other setuid or any setgid clients.  If this tradeoff
-	     * isn't acceptable, set DisableXLocaleDirEnv to YES in host.def.
-	     */
-	    unsigned int oldeuid;
-	    oldeuid = geteuid();
-	    if (seteuid(0) != 0) {
-		priv = 0;
-	    } else {
-		if (seteuid(oldeuid) == -1) {
-		    /* XXX ouch, coudn't get back to original uid
-		     what can we do ??? */
-		    _exit(127);
-		}
-		priv = 1;
-	    }
-#endif
-	}
-#else
-	priv = 0;
-#endif
-	if (!priv) {
-	    len = strlen(dir);
-	    strncpy(p, dir, buf_len);
-	    if (len < buf_len) {
-	        p[len++] = LC_PATHDELIM;
-	        p += len;
-	    }
-	}
-    }
-#endif /* NO_XLOCALEDIR */
-
-    if (len < buf_len)
-#ifndef __UNIXOS2__
-      strncpy(p, XLOCALEDIR, buf_len - len);
-#else
-      strncpy(p,__XOS2RedirRoot(XLOCALEDIR), buf_len - len);
-#endif
-    buf[buf_len-1] = '\0';
-}
-
-static void
-xlocalelibdir(
-    char *buf,
-    int buf_len)
-{
-    char *p = buf;
-    int len = 0;
-
-#ifndef NO_XLOCALEDIR
-    char *dir;
-    int priv = 1;
-
-    dir = getenv("XLOCALELIBDIR");
-
-    if (dir) {
-#ifndef WIN32
-	/*
-	 * Only use the user-supplied path if the process isn't priviledged.
-	 */
-	if (getuid() == geteuid() && getgid() == getegid()) {
-#if defined(HASSETUGID)
-	    priv = issetugid();
-#elif defined(HASGETRESUID)
-	    {
-		uid_t ruid, euid, suid;
-		gid_t rgid, egid, sgid;
-		if ((getresuid(&ruid, &euid, &suid) == 0) &&
-		    (getresgid(&rgid, &egid, &sgid) == 0))
-		    priv = (euid != suid) || (egid != sgid);
-	    }
-#else
-	    /*
-	     * If there are saved ID's the process might still be priviledged
-	     * even though the above test succeeded.  If issetugid() and
-	     * getresgid() aren't available, test this by trying to set
-	     * euid to 0.
-	     *
-	     * Note: this only protects setuid-root clients.  It doesn't
-	     * protect other setuid or any setgid clients.  If this tradeoff
-	     * isn't acceptable, set DisableXLocaleDirEnv to YES in host.def.
-	     */
-	    unsigned int oldeuid;
-	    oldeuid = geteuid();
-	    if (seteuid(0) != 0) {
-		priv = 0;
-	    } else {
-		if (seteuid(oldeuid) == -1) {
-		    /* XXX ouch, coudn't get back to original uid
-		     what can we do ??? */
-		    _exit(127);
-		}
-		priv = 1;
-	    }
-#endif
-	}
-#else
-	priv = 0;
-#endif
-	if (!priv) {
-	    len = strlen(dir);
-	    strncpy(p, dir, buf_len);
-	    if (len < buf_len) {
-	        p[len++] = LC_PATHDELIM;
-	        p += len;
-	    }
-	}
-    }
-#endif /* NO_XLOCALEDIR */
-
-    if (len < buf_len)
-#ifndef __UNIXOS2__
-      strncpy(p, XLOCALELIBDIR, buf_len - len);
-#else
-      strncpy(p,__XOS2RedirRoot(XLOCALELIBDIR), buf_len - len);
-#endif
-    buf[buf_len-1] = '\0';
-}
-
-/* Mapping direction */
-typedef enum {
-  LtoR,		/* Map first field to second field */
-  RtoL		/* Map second field to first field */
-} MapDirection;
-
-static char *
-resolve_name(
-    const char *lc_name,
-    char *file_name,
-    MapDirection direction)
-{
-    FILE *fp;
-    char buf[XLC_BUFSIZE], *name = NULL;
-
-    fp = _XFopenFile (file_name, "r");
-    if (fp == NULL)
-	return NULL;
-
-    while (fgets(buf, XLC_BUFSIZE, fp) != NULL) {
-	char *p = buf;
-	int n;
-	char *args[2], *from, *to;
-#ifdef __UNIXOS2__  /* Take out CR under OS/2 */
-	int len;
-
-	len = strlen(p);
-	if (len > 1) {
-	    if (*(p+len-2) == '\r' && *(p+len-1) == '\n') {
-		*(p+len-2) = '\n';
-		*(p+len-1) = '\0';
-	    }
-	}
-#endif
-	while (isspace(*p)) {
-	    ++p;
-	}
-	if (iscomment(*p)) {
-	    continue;
-	}
-	n = parse_line(p, args, 2);		/* get first 2 fields */
-	if (n != 2) {
-	    continue;
-	}
-	if (direction == LtoR) {
-	    from = args[0], to = args[1];	/* left to right */
-	} else {
-	    from = args[1], to = args[0];	/* right to left */
-	}
-	if (! strcmp(from, lc_name)) {
-	    name = strdup(to);
-	    break;
-	}
-    }
-    fclose(fp);
-    return name;
-}
-
-#define	c_tolower(ch)	((ch) >= 'A' && (ch) <= 'Z' ? (ch) - 'A' + 'a' : (ch))
-
-static char *
-lowercase(
-    char *dst,
-    const char *src)
-{
-    const char *s;
-    char *t;
-
-    for (s = src, t = dst; *s; ++s, ++t)
-	*t = c_tolower(*s);
-    *t = '\0';
-    return dst;
-}
-
-/*
- * normalize_lcname(): remove any '_' and '-' and convert any character
- * to lower case after the <language>_<territory> part. If result is identical
- * to argument, free result and
- * return NULL.
- */
-static char *
-normalize_lcname (const char *name)
-{
-    char *p, *ret;
-    const char *tmp = name;
-
-    p = ret = Xmalloc(strlen(name) + 1);
-    if (!p)
-	return NULL;
-
-    if (tmp) {
-	while (*tmp && *tmp != '.' && *tmp != '@')
-	    *p++ = *tmp++;
-	while (*tmp) {
-	    if (*tmp != '-')
-		*p++ = c_tolower(*tmp);
-	    tmp++;
-	}
-    }
-    *p = '\0';
-
-    if (strcmp(ret, name) == 0) {
-	Xfree(ret);
-	return NULL;
-    }
-
-    return ret;
-}
-
-/************************************************************************/
-char *
-_XlcFileName(
-    XLCd lcd,
-    const char *category)
-{
-    char *siname;
-    char cat[XLC_BUFSIZE], dir[XLC_BUFSIZE];
-    int i, n;
-    char *args[NUM_LOCALEDIR];
-    char *file_name = NULL;
-
-    if (lcd == (XLCd)NULL)
-	return NULL;
-
-    siname = XLC_PUBLIC(lcd, siname);
-
-    if (category)
-	lowercase(cat, category);
-    else
-	cat[0] = '\0';
-    xlocaledir(dir,XLC_BUFSIZE);
-    n = _XlcParsePath(dir, args, NUM_LOCALEDIR);
-    for (i = 0; i < n; ++i) {
-	char buf[PATH_MAX], *name;
-
-	name = NULL;
-	if ((5 + (args[i] ? strlen (args[i]) : 0) + strlen(cat)) < PATH_MAX) {
-	    sprintf(buf, "%s/%s.dir", args[i], cat);
-	    name = resolve_name(siname, buf, RtoL);
-	}
-	if (name == NULL) {
-	    continue;
-	}
-	if (*name == '/') {
-	    /* supposed to be absolute path name */
-	    file_name = name;
-	} else {
-	    file_name = Xmalloc(2 + (args[i] ? strlen (args[i]) : 0) +
-				(name ? strlen (name) : 0));
-	    if (file_name != NULL)
-		sprintf(file_name, "%s/%s", args[i], name);
-	    Xfree(name);
-	}
-	if (isreadable(file_name)) {
-	    break;
-	}
-	Xfree(file_name);
-	file_name = NULL;
-	/* Then, try with next dir */
-    }
-    return file_name;
-}
-
-/************************************************************************/
-#ifndef LOCALE_ALIAS
-#define LOCALE_ALIAS    "locale.alias"
-#endif
-
-int
-_XlcResolveLocaleName(
-    const char* lc_name,
-    XLCdPublicPart* pub)
-{
-    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;
-    char *dst;
-    int i, n, sinamelen;
-    char *args[NUM_LOCALEDIR];
-    static const char locale_alias[] = LOCALE_ALIAS;
-    char *tmp_siname;
-    char *nlc_name = NULL;
-
-    xlocaledir (dir, PATH_MAX);
-    n = _XlcParsePath(dir, args, NUM_LOCALEDIR);
-    for (i = 0; i < n; ++i) {
-	if ((2 + (args[i] ? strlen (args[i]) : 0) +
-	    strlen (locale_alias)) < PATH_MAX) {
-	    sprintf (buf, "%s/%s", args[i], locale_alias);
-	    name = resolve_name (lc_name, buf, LtoR);
-	    if (!name) {
-		if (!nlc_name)
-		    nlc_name = normalize_lcname(lc_name);
-		if (nlc_name)
-		    name = resolve_name (nlc_name, buf, LtoR);
-	    }
-	}
-	if (name != NULL) {
-	    break;
-	}
-    }
-    if (nlc_name) Xfree(nlc_name);
-
-    if (name == NULL) {
-	/* vendor locale name == Xlocale name, no expansion of alias */
-	pub->siname = strdup (lc_name);
-    } else {
-	pub->siname = name;
-    }
-
-    sinamelen = strlen (pub->siname);
-    if (sinamelen == 1 && pub->siname[0] == 'C') {
-	pub->language = pub->siname;
-	pub->territory = pub->codeset = NULL;
-	return 1;
-    }
-
-    /*
-     * pub->siname is in the format <lang>_<terr>.<codeset>, typical would
-     * be "en_US.ISO8859-1", "en_US.utf8", "ru_RU.KOI-8", or ja_JP.SJIS,
-     * although it could be ja.SJIS too.
-     */
-    tmp_siname = Xrealloc (pub->siname, 2 * (sinamelen + 1));
-    if (tmp_siname == NULL) {
-	return 0;
-    }
-    pub->siname = tmp_siname;
-
-    /* language */
-    dst = &pub->siname[sinamelen + 1];
-    strcpy (dst, pub->siname);
-    pub->language = dst;
-
-    /* territory */
-    dst = strchr (dst, '_');
-    if (dst) {
-	*dst = '\0';
-	pub->territory = ++dst;
-    } else
-	dst = &pub->siname[sinamelen + 1];
-
-    /* codeset */
-    dst = strchr (dst, '.');
-    if (dst) {
-	*dst = '\0';
-	pub->codeset = ++dst;
-    }
-
-    return (pub->siname[0] != '\0') ? 1 : 0;
-}
-
-/************************************************************************/
-int
-_XlcResolveI18NPath(char *buf, int buf_len)
-{
-    if (buf != NULL) {
-	xlocaledir(buf, buf_len);
-    }
-    return 1;
-}
-
-char *
-_XlcLocaleDirName(char *dir_name, size_t dir_len, char *lc_name)
-{
-    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;
-    int i, n;
-    char *args[NUM_LOCALEDIR];
-    static char locale_alias[] = LOCALE_ALIAS;
-    char *target_name = (char*)0;
-    char *target_dir = (char*)0;
-    char *nlc_name = NULL;
-    static char*  last_dir_name = 0;
-    static size_t last_dir_len = 0;
-    static char*  last_lc_name = 0;
-
-    if (last_lc_name != 0 && strcmp (last_lc_name, lc_name) == 0
-       && dir_len >= last_dir_len) {
-        strcpy (dir_name, last_dir_name);
-        return dir_name;
-    }
-
-    xlocaledir (dir, PATH_MAX);
-    n = _XlcParsePath(dir, args, 256);
-    for (i = 0; i < n; ++i) {
-
-	if ((2 + (args[i] ? strlen(args[i]) : 0) +
- 	     strlen(locale_alias)) < PATH_MAX) {
- 	    sprintf (buf, "%s/%s", args[i], locale_alias);
- 	    name = resolve_name(lc_name, buf, LtoR);
-	    if (!name) {
-		if (!nlc_name)
-		    nlc_name = normalize_lcname(lc_name);
-		if (nlc_name)
-		    name = resolve_name (nlc_name, buf, LtoR);
-	    }
- 	}
-
- 	/* If name is not an alias, use lc_name for locale.dir search */
- 	if (name == NULL)
- 	    name = lc_name;
-
- 	/* look at locale.dir */
-
- 	target_dir = args[i];
- 	if (!target_dir) {
- 	    /* something wrong */
- 	    if (name != lc_name)
- 		Xfree(name);
- 	    continue;
- 	}
- 	if ((1 + strlen (target_dir) + strlen("locale.dir")) < PATH_MAX) {
- 	    sprintf(buf, "%s/locale.dir", target_dir);
- 	    target_name = resolve_name(name, buf, RtoL);
- 	}
- 	if (name != lc_name)
- 	    Xfree(name);
- 	if (target_name != NULL) {
- 	    char *p = 0;
- 	    if ((p = strstr(target_name, "/XLC_LOCALE"))) {
- 		*p = '\0';
- 		break;
- 	    }
- 	    Xfree(target_name);
- 	    target_name = NULL;
- 	}
- 	name = NULL;
-    }
-    if (nlc_name) Xfree(nlc_name);
-
-    if (target_name == NULL) {
- 	/* vendor locale name == Xlocale name, no expansion of alias */
- 	target_dir = args[0];
- 	target_name = lc_name;
-    }
-    /* snprintf(dir_name, dir_len, "%s/%", target_dir, target_name); */
-    strncpy(dir_name, target_dir, dir_len - 1);
-    if (strlen(target_dir) >= dir_len - 1) {
-	dir_name[dir_len - 1] = '\0';
-    } else  {
-	strcat(dir_name, "/");
-	strncat(dir_name, target_name, dir_len - strlen(dir_name) - 1);
-	if (strlen(target_name) >= dir_len - strlen(dir_name) - 1)
-	    dir_name[dir_len - 1] = '\0';
-    }
-    if (target_name != lc_name)
- 	Xfree(target_name);
-
-    if (last_dir_name != 0)
-	Xfree (last_dir_name);
-    if (last_lc_name != 0)
-	Xfree (last_lc_name);
-    last_dir_len = strlen (dir_name) + 1;
-    last_dir_name = Xmalloc (last_dir_len);
-    strcpy (last_dir_name, dir_name);
-    last_lc_name = strdup (lc_name);
-
-    return dir_name;
-}
-
-char *
-_XlcLocaleLibDirName(char *dir_name, size_t dir_len, char *lc_name)
-{
-    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;
-    int i, n;
-    char *args[NUM_LOCALEDIR];
-    static char locale_alias[] = LOCALE_ALIAS;
-    char *target_name = (char*)0;
-    char *target_dir = (char*)0;
-    char *nlc_name = NULL;
-    static char*  last_dir_name = 0;
-    static size_t last_dir_len = 0;
-    static char*  last_lc_name = 0;
-
-    if (last_lc_name != 0 && strcmp (last_lc_name, lc_name) == 0
-       && dir_len >= last_dir_len) {
-	strcpy (dir_name, last_dir_name);
-	return dir_name;
-    }
-
-    xlocalelibdir (dir, PATH_MAX);
-    n = _XlcParsePath(dir, args, 256);
-    for (i = 0; i < n; ++i) {
-
-	if ((2 + (args[i] ? strlen(args[i]) : 0) +
- 	     strlen(locale_alias)) < PATH_MAX) {
- 	    sprintf (buf, "%s/%s", args[i], locale_alias);
- 	    name = resolve_name(lc_name, buf, LtoR);
-	    if (!name) {
-		if (!nlc_name)
-		    nlc_name = normalize_lcname(lc_name);
-		if (nlc_name)
-		    name = resolve_name (nlc_name, buf, LtoR);
-	    }
- 	}
-
- 	/* If name is not an alias, use lc_name for locale.dir search */
- 	if (name == NULL)
- 	    name = lc_name;
-
- 	/* look at locale.dir */
-
- 	target_dir = args[i];
- 	if (!target_dir) {
- 	    /* something wrong */
- 	    if (name != lc_name)
- 		Xfree(name);
- 	    continue;
- 	}
- 	if ((1 + strlen (target_dir) + strlen("locale.dir")) < PATH_MAX) {
- 	    sprintf(buf, "%s/locale.dir", target_dir);
- 	    target_name = resolve_name(name, buf, RtoL);
- 	}
- 	if (name != lc_name)
- 	    Xfree(name);
- 	if (target_name != NULL) {
- 	    char *p = 0;
- 	    if ((p = strstr(target_name, "/XLC_LOCALE"))) {
- 		*p = '\0';
- 		break;
- 	    }
- 	    Xfree(target_name);
- 	    target_name = NULL;
- 	}
- 	name = NULL;
-    }
-    if (nlc_name) Xfree(nlc_name);
-
-    if (target_name == NULL) {
- 	/* vendor locale name == Xlocale name, no expansion of alias */
- 	target_dir = args[0];
- 	target_name = lc_name;
-    }
-    /* snprintf(dir_name, dir_len, "%s/%", target_dir, target_name); */
-    strncpy(dir_name, target_dir, dir_len - 1);
-    if (strlen(target_dir) >= dir_len - 1) {
-	dir_name[dir_len - 1] = '\0';
-    } else  {
-	strcat(dir_name, "/");
-	strncat(dir_name, target_name, dir_len - strlen(dir_name) - 1);
-	if (strlen(target_name) >= dir_len - strlen(dir_name) - 1)
-	    dir_name[dir_len - 1] = '\0';
-    }
-    if (target_name != lc_name)
- 	Xfree(target_name);
-
-    if (last_dir_name != 0)
-	Xfree (last_dir_name);
-    if (last_lc_name != 0)
-	Xfree (last_lc_name);
-    last_dir_len = strlen (dir_name) + 1;
-    last_dir_name = Xmalloc (last_dir_len);
-    strcpy (last_dir_name, dir_name);
-    last_lc_name = strdup (lc_name);
-
-    return dir_name;
-}
+/*

+ *

+ * Copyright IBM Corporation 1993

+ *

+ * All Rights Reserved

+ *

+ * License to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted,

+ * provided that the above copyright notice appear in all copies and that

+ * both that copyright notice and this permission notice appear in

+ * supporting documentation, and that the name of IBM not be

+ * used in advertising or publicity pertaining to distribution of the

+ * software without specific, written prior permission.

+ *

+ * IBM DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS, AND

+ * NONINFRINGEMENT OF THIRD PARTY RIGHTS, IN NO EVENT SHALL

+ * IBM BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+*/

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdlib.h>

+#include <stdio.h>

+#include <ctype.h>

+#include "Xlibint.h"

+#include "XlcPubI.h"

+#include <X11/Xos.h>

+#include <unistd.h>

+

+/************************************************************************/

+

+#ifdef __UNIXOS2__

+# define seteuid setuid

+#endif

+#define	iscomment(ch)	((ch) == '#' || (ch) == '\0')

+#if defined(WIN32)

+#define isreadable(f)	(_XAccessFile(f))

+#else

+#define isreadable(f)	((access((f), R_OK) != -1) ? 1 : 0)

+#endif

+

+#ifndef __UNIXOS2__

+#define LC_PATHDELIM ':'

+#else

+#define LC_PATHDELIM ';'

+#endif

+

+#define XLC_BUFSIZE 256

+

+#ifndef X_NOT_POSIX

+#ifdef _POSIX_SOURCE

+#include <limits.h>

+#else

+#define _POSIX_SOURCE

+#include <limits.h>

+#undef _POSIX_SOURCE

+#endif

+#endif

+#ifndef PATH_MAX

+#ifdef WIN32

+#define PATH_MAX 512

+#else

+#include <sys/param.h>

+#endif

+#ifndef PATH_MAX

+#ifdef MAXPATHLEN

+#define PATH_MAX MAXPATHLEN

+#else

+#define PATH_MAX 1024

+#endif

+#endif

+#endif

+

+#define NUM_LOCALEDIR	64

+

+/* Splits a NUL terminated line into constituents, at colons and newline

+   characters. Leading whitespace is removed from constituents. The

+   constituents are stored at argv[0..argsize-1]. The number of stored

+   constituents (<= argsize) is returned. The line is destructively

+   modified. */

+static int

+parse_line(

+    char *line,

+    char **argv,

+    int argsize)

+{

+    int argc = 0;

+    char *p = line;

+

+    while (argc < argsize) {

+	while (isspace(*p)) {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	argv[argc++] = p;

+	while (*p != ':' && *p != '\n' && *p != '\0') {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	*p++ = '\0';

+    }

+

+    return argc;

+}

+

+#ifdef __UNIXOS2__

+

+/* fg021216: entries in locale files are separated by colons while under

+   OS/2, path entries are separated by semicolon, so we need two functions */

+

+static int

+parse_line1(

+    char *line,

+    char **argv,

+    int argsize)

+{

+    int argc = 0;

+    char *p = line;

+

+    while (argc < argsize) {

+	while (isspace(*p)) {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	argv[argc++] = p;

+	while (*p != ';' && *p != '\n' && *p != '\0') {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	*p++ = '\0';

+    }

+

+    return argc;

+}

+#elif defined(WIN32)

+

+/* this is parse_line but skips drive letters at the beginning of the entry */

+static int

+parse_line1(

+    char *line,

+    char **argv,

+    int argsize)

+{

+    int argc = 0;

+    char *p = line;

+

+    while (argc < argsize) {

+	while (isspace(*p)) {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	argv[argc++] = p;

+        if (isalpha(*p) && p[1] == ':') {

+            p+= 2; /* skip drive letters */

+        }

+	while (*p != ':' && *p != '\n' && *p != '\0') {

+	    ++p;

+	}

+	if (*p == '\0') {

+	    break;

+	}

+	*p++ = '\0';

+    }

+

+    return argc;

+}

+

+#endif   /* __UNIXOS2__ */

+

+/* Splits a colon separated list of directories, and returns the constituent

+   paths (without trailing slash). At most argsize constituents are stored

+   at argv[0..argsize-1]. The number of stored constituents is returned. */

+static int

+_XlcParsePath(

+    char *path,

+    char **argv,

+    int argsize)

+{

+    char *p = path;

+    int n, i;

+

+#if !defined(__UNIXOS2__) && !defined(WIN32)

+    n = parse_line(path, argv, argsize);

+#else

+    n = parse_line1(path, argv, argsize);

+#endif

+    for (i = 0; i < n; ++i) {

+	int len;

+	p = argv[i];

+	len = strlen(p);

+	if (len > 0 && p[len - 1] == '/') {

+	    /* eliminate trailing slash */

+	    p[len - 1] = '\0';

+	}

+    }

+    return n;

+}

+

+#ifndef XLOCALEDIR

+#define XLOCALEDIR "locale"

+#endif

+

+void

+xlocaledir(

+    char *buf,

+    int buf_len)

+{

+    char *p = buf;

+    int len = 0;

+

+#ifndef NO_XLOCALEDIR

+    char *dir;

+    int priv = 1;

+

+    dir = getenv("XLOCALEDIR");

+

+    if (dir) {

+#ifndef WIN32

+	/*

+	 * Only use the user-supplied path if the process isn't priviledged.

+	 */

+	if (getuid() == geteuid() && getgid() == getegid()) {

+#if defined(HASSETUGID)

+	    priv = issetugid();

+#elif defined(HASGETRESUID)

+	    {

+		uid_t ruid, euid, suid;

+		gid_t rgid, egid, sgid;

+		if ((getresuid(&ruid, &euid, &suid) == 0) &&

+		    (getresgid(&rgid, &egid, &sgid) == 0))

+		    priv = (euid != suid) || (egid != sgid);

+	    }

+#else

+	    /*

+	     * If there are saved ID's the process might still be priviledged

+	     * even though the above test succeeded.  If issetugid() and

+	     * getresgid() aren't available, test this by trying to set

+	     * euid to 0.

+	     *

+	     * Note: this only protects setuid-root clients.  It doesn't

+	     * protect other setuid or any setgid clients.  If this tradeoff

+	     * isn't acceptable, set DisableXLocaleDirEnv to YES in host.def.

+	     */

+	    unsigned int oldeuid;

+	    oldeuid = geteuid();

+	    if (seteuid(0) != 0) {

+		priv = 0;

+	    } else {

+		if (seteuid(oldeuid) == -1) {

+		    /* XXX ouch, coudn't get back to original uid

+		     what can we do ??? */

+		    _exit(127);

+		}

+		priv = 1;

+	    }

+#endif

+	}

+#else

+	priv = 0;

+#endif

+	if (!priv) {

+	    len = strlen(dir);

+	    strncpy(p, dir, buf_len);

+	    if (len < buf_len) {

+	        p[len++] = LC_PATHDELIM;

+	        p += len;

+	    }

+	}

+    }

+#endif /* NO_XLOCALEDIR */

+

+    if (len < buf_len)

+#ifndef __UNIXOS2__

+      strncpy(p, XLOCALEDIR, buf_len - len);

+#else

+      strncpy(p,__XOS2RedirRoot(XLOCALEDIR), buf_len - len);

+#endif

+    buf[buf_len-1] = '\0';

+}

+

+static void

+xlocalelibdir(

+    char *buf,

+    int buf_len)

+{

+    char *p = buf;

+    int len = 0;

+

+#ifndef NO_XLOCALEDIR

+    char *dir;

+    int priv = 1;

+

+    dir = getenv("XLOCALELIBDIR");

+

+    if (dir) {

+#ifndef WIN32

+	/*

+	 * Only use the user-supplied path if the process isn't priviledged.

+	 */

+	if (getuid() == geteuid() && getgid() == getegid()) {

+#if defined(HASSETUGID)

+	    priv = issetugid();

+#elif defined(HASGETRESUID)

+	    {

+		uid_t ruid, euid, suid;

+		gid_t rgid, egid, sgid;

+		if ((getresuid(&ruid, &euid, &suid) == 0) &&

+		    (getresgid(&rgid, &egid, &sgid) == 0))

+		    priv = (euid != suid) || (egid != sgid);

+	    }

+#else

+	    /*

+	     * If there are saved ID's the process might still be priviledged

+	     * even though the above test succeeded.  If issetugid() and

+	     * getresgid() aren't available, test this by trying to set

+	     * euid to 0.

+	     *

+	     * Note: this only protects setuid-root clients.  It doesn't

+	     * protect other setuid or any setgid clients.  If this tradeoff

+	     * isn't acceptable, set DisableXLocaleDirEnv to YES in host.def.

+	     */

+	    unsigned int oldeuid;

+	    oldeuid = geteuid();

+	    if (seteuid(0) != 0) {

+		priv = 0;

+	    } else {

+		if (seteuid(oldeuid) == -1) {

+		    /* XXX ouch, coudn't get back to original uid

+		     what can we do ??? */

+		    _exit(127);

+		}

+		priv = 1;

+	    }

+#endif

+	}

+#else

+	priv = 0;

+#endif

+	if (!priv) {

+	    len = strlen(dir);

+	    strncpy(p, dir, buf_len);

+	    if (len < buf_len) {

+	        p[len++] = LC_PATHDELIM;

+	        p += len;

+	    }

+	}

+    }

+#endif /* NO_XLOCALEDIR */

+

+    if (len < buf_len)

+#ifndef __UNIXOS2__

+      strncpy(p, XLOCALELIBDIR, buf_len - len);

+#else

+      strncpy(p,__XOS2RedirRoot(XLOCALELIBDIR), buf_len - len);

+#endif

+    buf[buf_len-1] = '\0';

+}

+

+/* Mapping direction */

+typedef enum {

+  LtoR,		/* Map first field to second field */

+  RtoL		/* Map second field to first field */

+} MapDirection;

+

+static char *

+resolve_name(

+    const char *lc_name,

+    char *file_name,

+    MapDirection direction)

+{

+    FILE *fp;

+    char buf[XLC_BUFSIZE], *name = NULL;

+

+    fp = _XFopenFile (file_name, "r");

+    if (fp == NULL)

+	return NULL;

+

+    while (fgets(buf, XLC_BUFSIZE, fp) != NULL) {

+	char *p = buf;

+	int n;

+	char *args[2], *from, *to;

+#ifdef __UNIXOS2__  /* Take out CR under OS/2 */

+	int len;

+

+	len = strlen(p);

+	if (len > 1) {

+	    if (*(p+len-2) == '\r' && *(p+len-1) == '\n') {

+		*(p+len-2) = '\n';

+		*(p+len-1) = '\0';

+	    }

+	}

+#endif

+	while (isspace(*p)) {

+	    ++p;

+	}

+	if (iscomment(*p)) {

+	    continue;

+	}

+	n = parse_line(p, args, 2);		/* get first 2 fields */

+	if (n != 2) {

+	    continue;

+	}

+	if (direction == LtoR) {

+	    from = args[0], to = args[1];	/* left to right */

+	} else {

+	    from = args[1], to = args[0];	/* right to left */

+	}

+	if (! strcmp(from, lc_name)) {

+	    name = strdup(to);

+	    break;

+	}

+    }

+    fclose(fp);

+    return name;

+}

+

+#define	c_tolower(ch)	((ch) >= 'A' && (ch) <= 'Z' ? (ch) - 'A' + 'a' : (ch))

+

+static char *

+lowercase(

+    char *dst,

+    const char *src)

+{

+    const char *s;

+    char *t;

+

+    for (s = src, t = dst; *s; ++s, ++t)

+	*t = c_tolower(*s);

+    *t = '\0';

+    return dst;

+}

+

+/*

+ * normalize_lcname(): remove any '_' and '-' and convert any character

+ * to lower case after the <language>_<territory> part. If result is identical

+ * to argument, free result and

+ * return NULL.

+ */

+static char *

+normalize_lcname (const char *name)

+{

+    char *p, *ret;

+    const char *tmp = name;

+

+    p = ret = Xmalloc(strlen(name) + 1);

+    if (!p)

+	return NULL;

+

+    if (tmp) {

+	while (*tmp && *tmp != '.' && *tmp != '@')

+	    *p++ = *tmp++;

+	while (*tmp) {

+	    if (*tmp != '-')

+		*p++ = c_tolower(*tmp);

+	    tmp++;

+	}

+    }

+    *p = '\0';

+

+    if (strcmp(ret, name) == 0) {

+	Xfree(ret);

+	return NULL;

+    }

+

+    return ret;

+}

+

+/************************************************************************/

+char *

+_XlcFileName(

+    XLCd lcd,

+    const char *category)

+{

+    char *siname;

+    char cat[XLC_BUFSIZE], dir[XLC_BUFSIZE];

+    int i, n;

+    char *args[NUM_LOCALEDIR];

+    char *file_name = NULL;

+

+    if (lcd == (XLCd)NULL)

+	return NULL;

+

+    siname = XLC_PUBLIC(lcd, siname);

+

+    if (category)

+	lowercase(cat, category);

+    else

+	cat[0] = '\0';

+    xlocaledir(dir,XLC_BUFSIZE);

+    n = _XlcParsePath(dir, args, NUM_LOCALEDIR);

+    for (i = 0; i < n; ++i) {

+	char buf[PATH_MAX], *name;

+

+	name = NULL;

+	if ((5 + (args[i] ? strlen (args[i]) : 0) + strlen(cat)) < PATH_MAX) {

+	    sprintf(buf, "%s/%s.dir", args[i], cat);

+	    name = resolve_name(siname, buf, RtoL);

+	}

+	if (name == NULL) {

+	    continue;

+	}

+	if (*name == '/') {

+	    /* supposed to be absolute path name */

+	    file_name = name;

+	} else {

+	    file_name = Xmalloc(2 + (args[i] ? strlen (args[i]) : 0) +

+				(name ? strlen (name) : 0));

+	    if (file_name != NULL)

+		sprintf(file_name, "%s/%s", args[i], name);

+	    Xfree(name);

+	}

+	if (isreadable(file_name)) {

+	    break;

+	}

+	Xfree(file_name);

+	file_name = NULL;

+	/* Then, try with next dir */

+    }

+    return file_name;

+}

+

+/************************************************************************/

+#ifndef LOCALE_ALIAS

+#define LOCALE_ALIAS    "locale.alias"

+#endif

+

+int

+_XlcResolveLocaleName(

+    const char* lc_name,

+    XLCdPublicPart* pub)

+{

+    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;

+    char *dst;

+    int i, n, sinamelen;

+    char *args[NUM_LOCALEDIR];

+    static const char locale_alias[] = LOCALE_ALIAS;

+    char *tmp_siname;

+    char *nlc_name = NULL;

+

+    xlocaledir (dir, PATH_MAX);

+    n = _XlcParsePath(dir, args, NUM_LOCALEDIR);

+    for (i = 0; i < n; ++i) {

+	if ((2 + (args[i] ? strlen (args[i]) : 0) +

+	    strlen (locale_alias)) < PATH_MAX) {

+	    sprintf (buf, "%s/%s", args[i], locale_alias);

+	    name = resolve_name (lc_name, buf, LtoR);

+	    if (!name) {

+		if (!nlc_name)

+		    nlc_name = normalize_lcname(lc_name);

+		if (nlc_name)

+		    name = resolve_name (nlc_name, buf, LtoR);

+	    }

+	}

+	if (name != NULL) {

+	    break;

+	}

+    }

+    if (nlc_name) Xfree(nlc_name);

+

+    if (name == NULL) {

+	/* vendor locale name == Xlocale name, no expansion of alias */

+	pub->siname = strdup (lc_name);

+    } else {

+	pub->siname = name;

+    }

+

+    sinamelen = strlen (pub->siname);

+    if (sinamelen == 1 && pub->siname[0] == 'C') {

+	pub->language = pub->siname;

+	pub->territory = pub->codeset = NULL;

+	return 1;

+    }

+

+    /*

+     * pub->siname is in the format <lang>_<terr>.<codeset>, typical would

+     * be "en_US.ISO8859-1", "en_US.utf8", "ru_RU.KOI-8", or ja_JP.SJIS,

+     * although it could be ja.SJIS too.

+     */

+    tmp_siname = Xrealloc (pub->siname, 2 * (sinamelen + 1));

+    if (tmp_siname == NULL) {

+	return 0;

+    }

+    pub->siname = tmp_siname;

+

+    /* language */

+    dst = &pub->siname[sinamelen + 1];

+    strcpy (dst, pub->siname);

+    pub->language = dst;

+

+    /* territory */

+    dst = strchr (dst, '_');

+    if (dst) {

+	*dst = '\0';

+	pub->territory = ++dst;

+    } else

+	dst = &pub->siname[sinamelen + 1];

+

+    /* codeset */

+    dst = strchr (dst, '.');

+    if (dst) {

+	*dst = '\0';

+	pub->codeset = ++dst;

+    }

+

+    return (pub->siname[0] != '\0') ? 1 : 0;

+}

+

+/************************************************************************/

+int

+_XlcResolveI18NPath(char *buf, int buf_len)

+{

+    if (buf != NULL) {

+	xlocaledir(buf, buf_len);

+    }

+    return 1;

+}

+

+char *

+_XlcLocaleDirName(char *dir_name, size_t dir_len, char *lc_name)

+{

+    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;

+    int i, n;

+    char *args[NUM_LOCALEDIR];

+    static char locale_alias[] = LOCALE_ALIAS;

+    char *target_name = (char*)0;

+    char *target_dir = (char*)0;

+    char *nlc_name = NULL;

+    static char*  last_dir_name = 0;

+    static size_t last_dir_len = 0;

+    static char*  last_lc_name = 0;

+

+    if (last_lc_name != 0 && strcmp (last_lc_name, lc_name) == 0

+       && dir_len >= last_dir_len) {

+        strcpy (dir_name, last_dir_name);

+        return dir_name;

+    }

+

+    xlocaledir (dir, PATH_MAX);

+    n = _XlcParsePath(dir, args, 256);

+    for (i = 0; i < n; ++i) {

+

+	if ((2 + (args[i] ? strlen(args[i]) : 0) +

+ 	     strlen(locale_alias)) < PATH_MAX) {

+ 	    sprintf (buf, "%s/%s", args[i], locale_alias);

+ 	    name = resolve_name(lc_name, buf, LtoR);

+	    if (!name) {

+		if (!nlc_name)

+		    nlc_name = normalize_lcname(lc_name);

+		if (nlc_name)

+		    name = resolve_name (nlc_name, buf, LtoR);

+	    }

+ 	}

+

+ 	/* If name is not an alias, use lc_name for locale.dir search */

+ 	if (name == NULL)

+ 	    name = lc_name;

+

+ 	/* look at locale.dir */

+

+ 	target_dir = args[i];

+ 	if (!target_dir) {

+ 	    /* something wrong */

+ 	    if (name != lc_name)

+ 		Xfree(name);

+ 	    continue;

+ 	}

+ 	if ((1 + strlen (target_dir) + strlen("locale.dir")) < PATH_MAX) {

+ 	    sprintf(buf, "%s/locale.dir", target_dir);

+ 	    target_name = resolve_name(name, buf, RtoL);

+ 	}

+ 	if (name != lc_name)

+ 	    Xfree(name);

+ 	if (target_name != NULL) {

+ 	    char *p = 0;

+ 	    if ((p = strstr(target_name, "/XLC_LOCALE"))) {

+ 		*p = '\0';

+ 		break;

+ 	    }

+ 	    Xfree(target_name);

+ 	    target_name = NULL;

+ 	}

+ 	name = NULL;

+    }

+    if (nlc_name) Xfree(nlc_name);

+

+    if (target_name == NULL) {

+ 	/* vendor locale name == Xlocale name, no expansion of alias */

+ 	target_dir = args[0];

+ 	target_name = lc_name;

+    }

+    /* snprintf(dir_name, dir_len, "%s/%", target_dir, target_name); */

+    strncpy(dir_name, target_dir, dir_len - 1);

+    if (strlen(target_dir) >= dir_len - 1) {

+	dir_name[dir_len - 1] = '\0';

+    } else  {

+	strcat(dir_name, "/");

+	strncat(dir_name, target_name, dir_len - strlen(dir_name) - 1);

+	if (strlen(target_name) >= dir_len - strlen(dir_name) - 1)

+	    dir_name[dir_len - 1] = '\0';

+    }

+    if (target_name != lc_name)

+ 	Xfree(target_name);

+

+    if (last_dir_name != 0)

+	Xfree (last_dir_name);

+    if (last_lc_name != 0)

+	Xfree (last_lc_name);

+    last_dir_len = strlen (dir_name) + 1;

+    last_dir_name = Xmalloc (last_dir_len);

+    strcpy (last_dir_name, dir_name);

+    last_lc_name = strdup (lc_name);

+

+    return dir_name;

+}

+

+char *

+_XlcLocaleLibDirName(char *dir_name, size_t dir_len, char *lc_name)

+{

+    char dir[PATH_MAX], buf[PATH_MAX], *name = NULL;

+    int i, n;

+    char *args[NUM_LOCALEDIR];

+    static char locale_alias[] = LOCALE_ALIAS;

+    char *target_name = (char*)0;

+    char *target_dir = (char*)0;

+    char *nlc_name = NULL;

+    static char*  last_dir_name = 0;

+    static size_t last_dir_len = 0;

+    static char*  last_lc_name = 0;

+

+    if (last_lc_name != 0 && strcmp (last_lc_name, lc_name) == 0

+       && dir_len >= last_dir_len) {

+	strcpy (dir_name, last_dir_name);

+	return dir_name;

+    }

+

+    xlocalelibdir (dir, PATH_MAX);

+    n = _XlcParsePath(dir, args, 256);

+    for (i = 0; i < n; ++i) {

+

+	if ((2 + (args[i] ? strlen(args[i]) : 0) +

+ 	     strlen(locale_alias)) < PATH_MAX) {

+ 	    sprintf (buf, "%s/%s", args[i], locale_alias);

+ 	    name = resolve_name(lc_name, buf, LtoR);

+	    if (!name) {

+		if (!nlc_name)

+		    nlc_name = normalize_lcname(lc_name);

+		if (nlc_name)

+		    name = resolve_name (nlc_name, buf, LtoR);

+	    }

+ 	}

+

+ 	/* If name is not an alias, use lc_name for locale.dir search */

+ 	if (name == NULL)

+ 	    name = lc_name;

+

+ 	/* look at locale.dir */

+

+ 	target_dir = args[i];

+ 	if (!target_dir) {

+ 	    /* something wrong */

+ 	    if (name != lc_name)

+ 		Xfree(name);

+ 	    continue;

+ 	}

+ 	if ((1 + strlen (target_dir) + strlen("locale.dir")) < PATH_MAX) {

+ 	    sprintf(buf, "%s/locale.dir", target_dir);

+ 	    target_name = resolve_name(name, buf, RtoL);

+ 	}

+ 	if (name != lc_name)

+ 	    Xfree(name);

+ 	if (target_name != NULL) {

+ 	    char *p = 0;

+ 	    if ((p = strstr(target_name, "/XLC_LOCALE"))) {

+ 		*p = '\0';

+ 		break;

+ 	    }

+ 	    Xfree(target_name);

+ 	    target_name = NULL;

+ 	}

+ 	name = NULL;

+    }

+    if (nlc_name) Xfree(nlc_name);

+

+    if (target_name == NULL) {

+ 	/* vendor locale name == Xlocale name, no expansion of alias */

+ 	target_dir = args[0];

+ 	target_name = lc_name;

+    }

+    /* snprintf(dir_name, dir_len, "%s/%", target_dir, target_name); */

+    strncpy(dir_name, target_dir, dir_len - 1);

+    if (strlen(target_dir) >= dir_len - 1) {

+	dir_name[dir_len - 1] = '\0';

+    } else  {

+	strcat(dir_name, "/");

+	strncat(dir_name, target_name, dir_len - strlen(dir_name) - 1);

+	if (strlen(target_name) >= dir_len - strlen(dir_name) - 1)

+	    dir_name[dir_len - 1] = '\0';

+    }

+    if (target_name != lc_name)

+ 	Xfree(target_name);

+

+    if (last_dir_name != 0)

+	Xfree (last_dir_name);

+    if (last_lc_name != 0)

+	Xfree (last_lc_name);

+    last_dir_len = strlen (dir_name) + 1;

+    last_dir_name = Xmalloc (last_dir_len);

+    strcpy (last_dir_name, dir_name);

+    last_lc_name = strdup (lc_name);

+

+    return dir_name;

+}

diff --git a/libX11/src/xlibi18n/lcGeneric.c b/libX11/src/xlibi18n/lcGeneric.c
index 619cb47f9..7001e69fd 100644
--- a/libX11/src/xlibi18n/lcGeneric.c
+++ b/libX11/src/xlibi18n/lcGeneric.c
@@ -1,1180 +1,1181 @@
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-/*
- *  (c) Copyright 1995 FUJITSU LIMITED
- *  This is source code modified by FUJITSU LIMITED under the Joint
- *  Development Agreement for the CDE/Motif PST.
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include "Xlibint.h"
-#include "XlcGeneric.h"
-
-static XLCd create (const char *name, XLCdMethods methods);
-static Bool initialize (XLCd lcd);
-static void destroy (XLCd lcd);
-
-static XLCdPublicMethodsRec genericMethods = {
-    { NULL },                   /* use default methods */
-    {
-	NULL,
-	create,
-	initialize,
-	destroy,
-	NULL
-    }
-};
-
-XLCdMethods _XlcGenericMethods = (XLCdMethods) &genericMethods;
-
-static XLCd
-create(
-    const char *name,
-    XLCdMethods methods)
-{
-    XLCd lcd;
-    XLCdPublicMethods new;
-
-    lcd = Xcalloc(1, sizeof(XLCdRec));
-    if (lcd == NULL)
-        return (XLCd) NULL;
-
-    lcd->core = Xcalloc(1, sizeof(XLCdGenericRec));
-    if (lcd->core == NULL)
-	goto err;
-
-    new = (XLCdPublicMethods) Xmalloc(sizeof(XLCdPublicMethodsRec));
-    if (new == NULL)
-	goto err;
-    memcpy(new,methods,sizeof(XLCdPublicMethodsRec));
-    lcd->methods = (XLCdMethods) new;
-
-    return lcd;
-
-err:
-    Xfree(lcd);
-    return (XLCd) NULL;
-}
-
-static Bool
-string_to_encoding(
-    const char *str,
-    char *encoding)
-{
-    char *next;
-    long value;
-    int base;
-
-    while (*str) {
-	if (*str == '\\') {
-	    switch (*(str + 1)) {
-		case 'x':
-		case 'X':
-		    base = 16;
-		    break;
-		default:
-		    base = 8;
-		    break;
-	    }
-	    value = strtol(str + 2, &next, base);
-	    if (str + 2 != next) {
-		*((unsigned char *) encoding++) = (unsigned char) value;
-		str = next;
-		continue;
-	    }
-	}
-	*encoding++ = *str++;
-    }
-
-    *encoding = '\0';
-
-    return True;
-}
-
-static Bool
-string_to_ulong(
-    const char *str,
-    unsigned long *value)
-{
-     const char *tmp1 = str;
-     int base;
-
-     if (*tmp1++ != '\\') {
-	  tmp1--;
-	  base = 10;
-     } else {
-	  switch (*tmp1++) {
-	  case 'x':
-	       base = 16;
-	       break;
-	  case 'o':
-	       base = 8;
-	       break;
-	  case 'd':
-	       base = 10;
-	       break;
-	  default:
-	       return(False);
-	  }
-     }
-     *value = (unsigned long) strtol(tmp1, NULL, base);
-     return(True);
-}
-
-
-static Bool
-add_charset(
-    CodeSet codeset,
-    XlcCharSet charset)
-{
-    XlcCharSet *new_list;
-    int num;
-
-    if ((num = codeset->num_charsets))
-        new_list = (XlcCharSet *) Xrealloc(codeset->charset_list,
-                                        (num + 1) * sizeof(XlcCharSet));
-    else
-        new_list = (XlcCharSet *) Xmalloc(sizeof(XlcCharSet));
-
-    if (new_list == NULL)
-	return False;
-
-    new_list[num] = charset;
-    codeset->charset_list = new_list;
-    codeset->num_charsets = num + 1;
-
-    return True;
-}
-
-static CodeSet
-add_codeset(
-    XLCdGenericPart *gen)
-{
-    CodeSet new, *new_list;
-    int num;
-
-    new = Xcalloc(1, sizeof(CodeSetRec));
-    if (new == NULL)
-        return NULL;
-
-    if ((num = gen->codeset_num))
-        new_list = (CodeSet *) Xrealloc(gen->codeset_list,
-                                        (num + 1) * sizeof(CodeSet));
-    else
-        new_list = (CodeSet *) Xmalloc(sizeof(CodeSet));
-
-    if (new_list == NULL)
-        goto err;
-
-    new_list[num] = new;
-    gen->codeset_list = new_list;
-    gen->codeset_num = num + 1;
-
-    return new;
-
-err:
-    Xfree(new);
-
-    return NULL;
-}
-
-static Bool
-add_parse_list(
-    XLCdGenericPart *gen,
-    EncodingType type,
-    const char *encoding,
-    CodeSet codeset)
-{
-    ParseInfo new, *new_list;
-    char *str;
-    unsigned char ch;
-    int num;
-
-    str = strdup(encoding);
-    if (str == NULL)
-        return False;
-
-    new = Xcalloc(1, sizeof(ParseInfoRec));
-    if (new == NULL)
-        goto err;
-
-    if (gen->mb_parse_table == NULL) {
-        gen->mb_parse_table = Xcalloc(1, 256); /* 2^8 */
-        if (gen->mb_parse_table == NULL)
-            goto err;
-    }
-
-    if ((num = gen->mb_parse_list_num))
-        new_list = (ParseInfo *) Xrealloc(gen->mb_parse_list,
-                                          (num + 2) * sizeof(ParseInfo));
-    else {
-        new_list = (ParseInfo *) Xmalloc(2 * sizeof(ParseInfo));
-    }
-
-    if (new_list == NULL)
-        goto err;
-
-    new_list[num] = new;
-    new_list[num + 1] = NULL;
-    gen->mb_parse_list = new_list;
-    gen->mb_parse_list_num = num + 1;
-
-    ch = (unsigned char) *str;
-    if (gen->mb_parse_table[ch] == 0)
-        gen->mb_parse_table[ch] = num + 1;
-
-    new->type = type;
-    new->encoding = str;
-    new->codeset = codeset;
-
-    if (codeset->parse_info == NULL)
-        codeset->parse_info = new;
-
-    return True;
-
-err:
-    Xfree(str);
-    if (new)
-        Xfree(new);
-
-    return False;
-}
-
-static void
-free_charset(
-    XLCd lcd)
-{
-    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);
-    ParseInfo *parse_info;
-    int num;
-
-    if (gen->mb_parse_table)
-        Xfree(gen->mb_parse_table);
-    if ((num = gen->mb_parse_list_num) > 0) {
-        for (parse_info = gen->mb_parse_list; num-- > 0; parse_info++) {
-            if ((*parse_info)->encoding)
-                Xfree((*parse_info)->encoding);
-            Xfree(*parse_info);
-        }
-        Xfree(gen->mb_parse_list);
-    }
-
-    if ((num = gen->codeset_num) > 0)
-        Xfree(gen->codeset_list);
-}
-
-/* For VW/UDC */
-
-#define FORWARD  (unsigned long)'+'
-#define BACKWARD (unsigned long)'-'
-
-static const char *
-getscope(
-    const char *str,
-    FontScope scp)
-{
-    unsigned long start = 0;
-    unsigned long end = 0;
-    unsigned long dest = 0;
-    unsigned long shift = 0;
-    unsigned long direction = 0;
-    sscanf(str,"[\\x%lx,\\x%lx]->\\x%lx", &start, &end, &dest);
-    if (dest) {
-        if (dest >= start) {
-            shift = dest - start;
-            direction = FORWARD ;
-        } else {
-            shift = start - dest;
-            direction = BACKWARD;
-        }
-    }
-    scp->start = start      ;
-    scp->end   = end        ;
-    scp->shift = shift      ;
-    scp->shift_direction
-               = direction  ;
-    /* .......... */
-    while (*str) {
-        if (*str == ',' && *(str+1) == '[')
-            break;
-        str++;
-    }
-    return str+1;
-}
-
-static int
-count_scopemap(
-    const char *str)
-{
-    const char *ptr;
-    int num=0;
-    for (ptr=str; *ptr; ptr++) {
-        if (*ptr == ']') {
-            num++;
-        }
-    }
-    return num;
-}
-
-FontScope
-_XlcParse_scopemaps(
-    const char *str,
-    int *size)
-{
-    int num=0,i;
-    FontScope scope,sc_ptr;
-    const char *str_sc;
-
-    num = count_scopemap(str);
-    scope = (FontScope) Xmalloc(num * sizeof(FontScopeRec));
-    if (scope == NULL)
-	return NULL;
-
-    for (i=0, str_sc=str, sc_ptr=scope; i < num; i++, sc_ptr++) {
-	str_sc = getscope(str_sc, sc_ptr);
-    }
-    *size = num;
-    return scope;
-}
-
-void
-_XlcDbg_printValue(
-    const char *str,
-    char **value,
-    int num)
-{
-/*
-    int i;
-    for (i = 0; i < num; i++)
-        fprintf(stderr, "%s value[%d] = %s\n", str, i, value[i]);
-*/
-}
-
-static void
-dmpscope(
-    const char* name,
-    FontScope sc,
-    int num)
-{
-/*
-    int i;
-    fprintf(stderr, "dmpscope %s\n", name);
-    for (i=0; i<num; i++)
-        fprintf(stderr,"%x %x %x %x \n",
-                sc[i].start,
-                sc[i].end,
-                sc[i].shift,
-                sc[i].shift_direction);
-    fprintf(stderr, "dmpscope end\n");
-*/
-}
-
-static XlcCharSet
-srch_charset_define(
-    const char *name,
-    int *new)
-{
-    XlcCharSet charset;
-
-    *new = 0;
-    charset = _XlcGetCharSet(name);
-    if (charset == NULL &&
-        (charset = _XlcCreateDefaultCharSet(name, ""))) {
-        _XlcAddCharSet(charset);
-        *new = 1;
-        charset->source = CSsrcXLC;
-    }
-    return charset;
-}
-
-static void
-read_charset_define(
-    XLCd lcd,
-    XLCdGenericPart *gen)
-{
-    int i;
-    char csd[16], cset_name[256];
-    char name[BUFSIZ];
-    XlcCharSet charsetd;
-    char **value;
-    int num, new = 0;
-    XlcSide side = XlcUnknown;
-    char *tmp;
-
-    for (i=0; ; i++) { /* loop start */
-        charsetd = 0;
-        sprintf(csd, "csd%d", i);
-
-        /* charset_name  */
-        sprintf(name, "%s.%s", csd, "charset_name");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        _XlcDbg_printValue(name,value,num);
-        if (num > 0) {
-	    /* hackers will get truncated -- C'est la vie */
-            strncpy(cset_name,value[0], sizeof cset_name - 1);
-	    cset_name[(sizeof cset_name) - 1] = '\0';
-            sprintf(name, "%s.%s", csd , "side");
-            _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-            if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                if (!_XlcNCompareISOLatin1(value[0], "none", 4)) {
-                    side =  XlcGLGR;
-                } else if (!_XlcNCompareISOLatin1(value[0], "GL", 2)) {
-                    side =  XlcGL;
-                    strcat(cset_name,":GL");
-                } else {
-                    side =  XlcGR;
-                    strcat(cset_name,":GR");
-                }
-                if (charsetd == NULL &&
-                    (charsetd = srch_charset_define(cset_name,&new)) == NULL)
-                    return;
-            }
-        } else {
-            if (i == 0)
-                continue;
-            else
-                break;
-        }
-        if (new) {
-            tmp = strdup(cset_name);
-            if (tmp == NULL)
-                return;
-            charsetd->name = tmp;
-        }
-        /* side   */
-        charsetd->side = side ;
-        /* length */
-        sprintf(name, "%s.%s", csd, "length");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-            charsetd->char_size = atoi(value[0]);
-        }
-        /* gc_number */
-        sprintf(name, "%s.%s", csd, "gc_number");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-            charsetd->set_size = atoi(value[0]);
-        }
-        /* string_encoding */
-        sprintf(name, "%s.%s", csd, "string_encoding");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-            if (!strcmp("False",value[0])) {
-                charsetd->string_encoding = False;
-            } else {
-                charsetd->string_encoding = True;
-            }
-        }
-        /* sequence */
-        sprintf(name, "%s.%s", csd, "sequence");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-/*
-            if (charsetd->ct_sequence) {
-                Xfree(charsetd->ct_sequence);
-            }
-*/
-            tmp = (char *)Xmalloc(strlen(value[0])+1);
-            if (tmp == NULL)
-                return;
-            charsetd->ct_sequence = tmp;
-            string_to_encoding(value[0],tmp);
-        }
-        /* encoding_name */
-        sprintf(name, "%s.%s", csd, "encoding_name");
-        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-/*
-            if (charsetd->encoding_name) {
-                Xfree(charsetd->encoding_name);
-            }
-*/
-            tmp = strdup(value[0]);
-            charsetd->encoding_name = tmp;
-            charsetd->xrm_encoding_name = XrmStringToQuark(tmp);
-        }
-        _XlcAddCT(charsetd->name, charsetd->ct_sequence);
-    }
-}
-
-static SegConv
-add_conversion(
-    XLCdGenericPart *gen)
-{
-    SegConv new_list;
-    int num;
-
-    if ((num = gen->segment_conv_num) > 0) {
-        new_list = (SegConv) Xrealloc(gen->segment_conv,
-                                        (num + 1) * sizeof(SegConvRec));
-    } else {
-        new_list = (SegConv) Xmalloc(sizeof(SegConvRec));
-    }
-
-    if (new_list == NULL)
-        return NULL;
-
-    gen->segment_conv = new_list;
-    gen->segment_conv_num = num + 1;
-
-    return &new_list[num];
-
-}
-
-static void
-read_segmentconversion(
-    XLCd lcd,
-    XLCdGenericPart *gen)
-{
-    int i;
-    char conv[16];
-    char name[BUFSIZ];
-    char **value;
-    int num,new;
-    SegConv conversion;
-    for (i=0 ; ; i++) { /* loop start */
-        conversion = 0;
-        sprintf(conv, "conv%d", i);
-
-        /* length                */
-        sprintf(name, "%s.%s", conv, "length");
-        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);
-        if (num > 0) {
-            if (conversion == NULL &&
-                (conversion = add_conversion(gen)) == NULL) {
-                return;
-            }
-            _XlcDbg_printValue(name,value,num);
-        } else {
-            if (i == 0)
-                continue;
-            else
-                break;
-        }
-        conversion->length = atoi(value[0]);
-
-        /* source_encoding       */
-        sprintf(name, "%s.%s", conv, "source_encoding");
-        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);
-        if (num > 0) {
-            char *tmp;
-            _XlcDbg_printValue(name,value,num);
-            tmp = strdup(value[0]);
-            if (tmp == NULL)
-                return;
-            conversion->source_encoding = tmp;
-            conversion->source = srch_charset_define(tmp,&new);
-        }
-        /* destination_encoding  */
-        sprintf(name, "%s.%s", conv, "destination_encoding");
-        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);
-        if (num > 0) {
-            char *tmp;
-            _XlcDbg_printValue(name,value,num);
-            tmp = strdup(value[0]);
-            if (tmp == NULL)
-                return;
-            conversion->destination_encoding = tmp;
-            conversion->dest = srch_charset_define(tmp,&new);
-        }
-        /* range                 */
-        sprintf(name, "%s.%s", conv, "range");
-        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-            sscanf(value[0],"\\x%lx,\\x%lx",
-                   &(conversion->range.start), &(conversion->range.end));
-        }
-        /* conversion            */
-        sprintf(name, "%s.%s", conv, "conversion");
-        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);
-        if (num > 0) {
-            _XlcDbg_printValue(name,value,num);
-            conversion->conv =
-                _XlcParse_scopemaps(value[0],&conversion->conv_num);
-        }
-    }  /* loop end */
-}
-
-static ExtdSegment
-create_ctextseg(
-    char **value,
-    int num)
-{
-    ExtdSegment ret;
-    char* ptr;
-    char* cset_name = NULL;
-    int i,new;
-    FontScope scope;
-    ret = (ExtdSegment)Xmalloc(sizeof(ExtdSegmentRec));
-    if (ret == NULL)
-        return NULL;
-    ret->name = strdup(value[0]);
-    if (ret->name == NULL) {
-        Xfree (ret);
-        return NULL;
-    }
-    cset_name = (char*) Xmalloc (strlen(ret->name) + 1);
-    if (cset_name == NULL) {
-        Xfree (ret->name);
-        Xfree (ret);
-        return NULL;
-    }
-    if (strchr(value[0],':')) {
-        ptr = strchr(ret->name,':');
-        *ptr = '\0';
-        ptr++;
-        if (!_XlcNCompareISOLatin1(ptr, "GL", 2)) {
-            ret->side =  XlcGL;
-            sprintf(cset_name,"%s:%s",ret->name,"GL");
-        } else {
-            ret->side =  XlcGR;
-            sprintf(cset_name,"%s:%s",ret->name,"GR");
-        }
-    } else {
-        ret->side =  XlcGLGR;
-        strcpy(cset_name,ret->name);
-    }
-    ret->area = (FontScope)Xmalloc((num - 1)*sizeof(FontScopeRec));
-    if (ret->area == NULL) {
-	Xfree (cset_name);
-	Xfree (ret->name);
-	Xfree (ret);
-        return NULL;
-    }
-    ret->area_num = num - 1;
-    scope = ret->area ;
-    for (i = 1; i < num; i++) {
-        sscanf(value[i],"\\x%lx,\\x%lx",
-               &scope[i-1].start, &scope[i-1].end);
-    }
-    ret->charset = srch_charset_define(cset_name,&new);
-    Xfree (cset_name);
-
-    return ret;
-}
-/* For VW/UDC end */
-
-static Bool
-load_generic(
-    XLCd lcd)
-{
-    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);
-    char **value;
-    int num;
-    unsigned long l;
-    int i;
-    int M,ii;
-    XlcCharSet charset;
-
-    gen->codeset_num = 0;
-
-    /***** wc_encoding_mask *****/
-    _XlcGetResource(lcd, "XLC_XLOCALE", "wc_encoding_mask", &value, &num);
-    if (num > 0) {
-	if (string_to_ulong(value[0], &l) == False)
-	    goto err;
-	gen->wc_encode_mask = l;
-    }
-    /***** wc_shift_bits *****/
-    _XlcGetResource(lcd, "XLC_XLOCALE", "wc_shift_bits", &value, &num);
-    if (num > 0)
-	gen->wc_shift_bits = atoi(value[0]);
-    if (gen->wc_shift_bits < 1)
-	gen->wc_shift_bits = 8;
-    /***** use_stdc_env *****/
-    _XlcGetResource(lcd, "XLC_XLOCALE", "use_stdc_env", &value, &num);
-    if (num > 0 && !_XlcCompareISOLatin1(value[0], "True"))
-	gen->use_stdc_env = True;
-    else
-	gen->use_stdc_env = False;
-    /***** force_convert_to_mb *****/
-    _XlcGetResource(lcd, "XLC_XLOCALE", "force_convert_to_mb", &value, &num);
-    if (num > 0 && !_XlcCompareISOLatin1(value[0], "True"))
-	gen->force_convert_to_mb = True;
-    else
-	gen->force_convert_to_mb = False;
-
-    for (i = 0; ; i++) {
-	CodeSetRec *codeset = NULL;
-	char cs[16];
-	char name[BUFSIZ];
-
-	sprintf(cs, "cs%d", i);
-
-	/***** codeset.side *****/
-	sprintf(name, "%s.%s", cs , "side");
-	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-	if (num > 0) {
-	    char *tmp;
-
-	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)
-		goto err;
-
-            /* 3.4.1 side */
-            if (!_XlcNCompareISOLatin1(value[0], "none", 4)) {
-                codeset->side =  XlcNONE;
-            } else if (!_XlcNCompareISOLatin1(value[0], "GL", 2)) {
-                codeset->side =  XlcGL;
-            } else {
-                codeset->side =  XlcGR;
-            }
-
-	    tmp = strrchr(value[0], ':');
-	    if (tmp != NULL && !_XlcCompareISOLatin1(tmp + 1, "Default")) {
-		if (codeset->side == XlcGR)
-		    gen->initial_state_GR = codeset;
-		else
-		    gen->initial_state_GL = codeset;
-	    }
-	}
-
-	/***** codeset.length *****/
-	sprintf(name, "%s.%s", cs , "length");
-	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-	if (num > 0) {
-	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)
-		goto err;
-	    codeset->length = atoi(value[0]);
-	    if (codeset->length < 1)
-		codeset->length = 1;
-	}
-
-	/***** codeset.mb_encoding *****/
-	sprintf(name, "%s.%s", cs, "mb_encoding");
-	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-	if (num > 0) {
-	    static struct {
-		const char *str;
-		EncodingType type;
-	    } shifts[] = {
-		{"<SS>", E_SS},
-		{"<LSL>", E_LSL},
-		{"<LSR>", E_LSR},
-		{0}
-	    };
-	    int j;
-
-	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)
-		goto err;
-	    for ( ; num-- > 0; value++) {
-		char encoding[256];
-		char *tmp = *value;
-		EncodingType type = E_SS;    /* for BC */
-		for (j = 0; shifts[j].str; j++) {
-		    if (!_XlcNCompareISOLatin1(tmp, shifts[j].str,
-					       strlen(shifts[j].str))) {
-			type = shifts[j].type;
-			tmp += strlen(shifts[j].str);
-			break;
-		    }
-		}
-		if (strlen (tmp) > sizeof encoding ||
-		    string_to_encoding(tmp, encoding) == False)
-			goto err;
-		add_parse_list(gen, type, encoding, codeset);
-	    }
-	}
-
-	/***** codeset.wc_encoding *****/
-	sprintf(name, "%s.%s", cs, "wc_encoding");
-	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-	if (num > 0) {
-	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)
-		goto err;
-	    if (string_to_ulong(value[0], &l) == False)
-		goto err;
-	    codeset->wc_encoding = l;
-	}
-
-	/***** codeset.ct_encoding *****/
-	sprintf(name, "%s.%s", cs, "ct_encoding");
-	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-	if (num > 0) {
-	    char *encoding;
-
-	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)
-		goto err;
-	    for ( ; num-- > 0; value++) {
-		if (strlen (*value) > sizeof name)
-		    goto err;
-		string_to_encoding(*value, name);
-		charset = NULL;
-		if ((encoding = strchr(name, ':')) &&
-		    (encoding = strchr(encoding + 1, ':'))) {
-		    *encoding++ = '\0';
-		    charset = _XlcAddCT(name, encoding);
-		}
-		if (charset == NULL) {
-		    charset = _XlcGetCharSet(name);
-		    if (charset == NULL &&
-			(charset = _XlcCreateDefaultCharSet(name, ""))) {
-			charset->side = codeset->side;
-			charset->char_size = codeset->length;
-			_XlcAddCharSet(charset);
-		    }
-		}
-		if (charset) {
-		    if (add_charset(codeset, charset) == False)
-			goto err;
-		}
-	    }
-	}
-
-	if (codeset == NULL)
-	    break;
-	codeset->cs_num = i;
-        /* For VW/UDC */
-        /***** 3.4.2 byteM (1 <= M <= length)*****/
-        for (M=1; M-1  < codeset->length; M++) {
-            unsigned long start,end;
-            ByteInfo tmpb;
-
-            sprintf(name,"%s.%s%d",cs,"byte",M);
-            _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-
-            if (M == 1) {
-                if (num < 1) {
-                    codeset->byteM = NULL;
-                    break ;
-                }
-                codeset->byteM =
-                    (ByteInfoListRec *)Xmalloc(
-                         (codeset->length)*sizeof(ByteInfoListRec));
-                if (codeset->byteM == NULL) {
-                    goto err;
-                }
-            }
-
-            if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                (codeset->byteM)[M-1].M = M;
-                (codeset->byteM)[M-1].byteinfo_num = num;
-                (codeset->byteM)[M-1].byteinfo =
-                    (ByteInfo)Xmalloc( num * sizeof(ByteInfoRec));
-                for (ii = 0 ; ii < num ; ii++) {
-                    tmpb = (codeset->byteM)[M-1].byteinfo ;
-                    /* default 0x00 - 0xff */
-                    sscanf(value[ii],"\\x%lx,\\x%lx",&start,&end);
-                    tmpb[ii].start = (unsigned char)start;
-                    tmpb[ii].end  = (unsigned char)end;
-                }
-            }
-            /* .... */
-        }
-
-
-        /***** codeset.mb_conversion *****/
-        sprintf(name, "%s.%s", cs, "mb_conversion");
-        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-        if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                codeset->mbconv = Xmalloc(sizeof(ConversionRec));
-                codeset->mbconv->convlist =
-                _XlcParse_scopemaps(value[0],&(codeset->mbconv->conv_num));
-                dmpscope("mb_conv",codeset->mbconv->convlist,
-                         codeset->mbconv->conv_num);
-                /* [\x%x,\x%x]->\x%x,... */
-        }
-        /***** codeset.ct_conversion *****/
-        sprintf(name, "%s.%s", cs, "ct_conversion");
-        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-        if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                codeset->ctconv = Xmalloc(sizeof(ConversionRec));
-                codeset->ctconv->convlist =
-                _XlcParse_scopemaps(value[0],&(codeset->ctconv->conv_num));
-                dmpscope("ctconv",codeset->ctconv->convlist,
-                         codeset->ctconv->conv_num);
-                /* [\x%x,\x%x]->\x%x,... */
-        }
-        /***** codeset.ct_conversion_file *****/
-        sprintf(name, "%s.%s", cs, "ct_conversion_file");
-        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-        if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                /* [\x%x,\x%x]->\x%x,... */
-        }
-        /***** codeset.ct_extended_segment *****/
-        sprintf(name, "%s.%s", cs, "ct_extended_segment");
-        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);
-        if (num > 0) {
-                _XlcDbg_printValue(name,value,num);
-                codeset->ctextseg = create_ctextseg(value,num);
-                /* [\x%x,\x%x]->\x%x,... */
-        }
-        /* For VW/UDC end */
-
-    }
-
-    read_charset_define(lcd,gen);       /* For VW/UDC */
-    read_segmentconversion(lcd,gen);    /* For VW/UDC */
-
-    if (gen->initial_state_GL == NULL) {
-       CodeSetRec *codeset;
-       for (i = 0; i < gen->codeset_num; i++) {
-          codeset = gen->codeset_list[i];
-          if (codeset->side == XlcGL)
-             gen->initial_state_GL = codeset;
-       }
-    }
-
-    if (gen->initial_state_GR == NULL) {
-       CodeSetRec *codeset;
-       for (i = 0; i < gen->codeset_num; i++) {
-          codeset = gen->codeset_list[i];
-          if (codeset->side == XlcGR)
-             gen->initial_state_GR = codeset;
-       }
-    }
-
-    for (i = 0; i < gen->codeset_num; i++) {
-       CodeSetRec *codeset = gen->codeset_list[i];
-       for (ii = 0; ii < codeset->num_charsets; ii++) {
-          charset = codeset->charset_list[ii];
-          if (! strcmp(charset->encoding_name, "ISO8859-1"))
-              charset->string_encoding = True;
-          if ( charset->string_encoding )
-              codeset->string_encoding = True;
-       }
-    }
-    return True;
-
-err:
-    free_charset(lcd);
-
-    return False;
-}
-
-#ifdef USE_DYNAMIC_LC
-/* override the open_om and open_im methods which were set by
-   super_class's initialize method() */
-
-static Bool
-initialize_core(
-    XLCd lcd)
-{
-    _XInitDynamicOM(lcd);
-
-    _XInitDynamicIM(lcd);
-
-    return True;
-}
-#endif
-
-static Bool
-initialize(XLCd lcd)
-{
-    XLCdPublicMethods superclass = (XLCdPublicMethods) _XlcPublicMethods;
-
-    XLC_PUBLIC_METHODS(lcd)->superclass = superclass;
-
-    if (superclass->pub.initialize) {
-	if ((*superclass->pub.initialize)(lcd) == False)
-	    return False;
-    }
-
-#ifdef USE_DYNAMIC_LC
-    if (initialize_core(lcd) == False)
-	return False;
-#endif
-
-    if (load_generic(lcd) == False)
-	return False;
-
-    return True;
-}
-
-/* VW/UDC start 95.01.08 */
-static void
-freeByteM(
-    CodeSet codeset)
-{
-    int i;
-    ByteInfoList blst;
-    if (codeset->byteM == NULL) {
-	return ;
-    }
-    blst = codeset->byteM;
-    for (i = 0; i < codeset->length; i++) {
-	if (blst[i].byteinfo) {
-	    Xfree(blst[i].byteinfo);
-	    blst[i].byteinfo = NULL;
-	}
-    }
-    Xfree(codeset->byteM);
-    codeset->byteM = NULL;
-}
-
-static void
-freeConversion(
-    CodeSet codeset)
-{
-    Conversion mbconv,ctconv;
-    if (codeset->mbconv) {
-	mbconv = codeset->mbconv;
-	/*  ...  */
-	if (mbconv->convlist) {
-	    Xfree(mbconv->convlist);
-	    mbconv->convlist = NULL;
-	}
-	Xfree(mbconv);
-	codeset->mbconv = NULL;
-    }
-    if (codeset->ctconv) {
-	ctconv = codeset->ctconv;
-	/*  ...  */
-	if (ctconv->convlist) {
-	    Xfree(ctconv->convlist);
-	    ctconv->convlist = NULL;
-	}
-	Xfree(ctconv);
-	codeset->ctconv = NULL;
-    }
-}
-
-static void
-freeExtdSegment(
-    CodeSet codeset)
-{
-    ExtdSegment ctextseg;
-    if (codeset->ctextseg == NULL) {
-	return;
-    }
-    ctextseg = codeset->ctextseg;
-    if (ctextseg->name) {
-	Xfree(ctextseg->name);
-	ctextseg->name = NULL;
-    }
-    if (ctextseg->area) {
-	Xfree(ctextseg->area);
-	ctextseg->area = NULL;
-    }
-    Xfree(codeset->ctextseg);
-    codeset->ctextseg = NULL;
-}
-
-static void
-freeParseInfo(
-    CodeSet codeset)
-{
-    ParseInfo parse_info;
-    if (codeset->parse_info == NULL) {
-	return;
-    }
-    parse_info = codeset->parse_info;
-    if (parse_info->encoding) {
-	Xfree(parse_info->encoding);
-	parse_info->encoding = NULL;
-    }
-    Xfree(codeset->parse_info);
-    codeset->parse_info = NULL;
-}
-
-static void
-destroy_CodeSetList(
-    XLCdGenericPart *gen)
-{
-    CodeSet *codeset = gen->codeset_list;
-    int i;
-    if (gen->codeset_num == 0) {
-	return;
-    }
-    for (i=0;i<gen->codeset_num;i++) {
-        freeByteM(codeset[i]);
-	freeConversion(codeset[i]);
-	freeExtdSegment(codeset[i]);
-	freeParseInfo(codeset[i]);
-	if (codeset[i]->charset_list) {
-	    Xfree(codeset[i]->charset_list);
-	    codeset[i]->charset_list = NULL;
-	}
-	Xfree(codeset[i]); codeset[i]=NULL;
-    }
-    Xfree(codeset); gen->codeset_list = NULL;
-}
-
-static void
-destroy_SegConv(
-    XLCdGenericPart *gen)
-{
-    SegConv seg = gen->segment_conv;
-    int i;
-    if (gen->segment_conv_num == 0) {
-	return;
-    }
-    for (i=0;i<gen->segment_conv_num;i++) {
-	if (seg[i].source_encoding) {
-	    Xfree(seg[i].source_encoding);
-	    seg[i].source_encoding = NULL;
-	}
-	if (seg[i].destination_encoding) {
-	    Xfree(seg[i].destination_encoding);
-	    seg[i].destination_encoding = NULL;
-	}
-	if (seg[i].conv) {
-	    Xfree(seg[i].conv); seg[i].conv = NULL;
-	}
-    }
-    Xfree(seg); gen->segment_conv = NULL;
-}
-
-static void
-destroy_gen(
-    XLCd lcd)
-{
-    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);
-    destroy_SegConv(gen);
-    destroy_CodeSetList(gen);
-    if (gen->mb_parse_table) {
-	Xfree(gen->mb_parse_table);
-	gen->mb_parse_table = NULL;
-    }
-    if (gen->mb_parse_list) {
-	Xfree(gen->mb_parse_list);
-	gen->mb_parse_list = NULL;
-    }
-}
-/* VW/UDC end 95.01.08 */
-
-static void
-destroy(
-    XLCd lcd)
-{
-    XLCdPublicMethods superclass = XLC_PUBLIC_METHODS(lcd)->superclass;
-
-    destroy_gen(lcd); /* ADD 1996.01.08 */
-    if (superclass && superclass->pub.destroy)
-	(*superclass->pub.destroy)(lcd);
-}
+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+/*

+ *  (c) Copyright 1995 FUJITSU LIMITED

+ *  This is source code modified by FUJITSU LIMITED under the Joint

+ *  Development Agreement for the CDE/Motif PST.

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <unistd.h>

+#include "Xlibint.h"

+#include "XlcGeneric.h"

+

+static XLCd create (const char *name, XLCdMethods methods);

+static Bool initialize (XLCd lcd);

+static void destroy (XLCd lcd);

+

+static XLCdPublicMethodsRec genericMethods = {

+    { NULL },                   /* use default methods */

+    {

+	NULL,

+	create,

+	initialize,

+	destroy,

+	NULL

+    }

+};

+

+XLCdMethods _XlcGenericMethods = (XLCdMethods) &genericMethods;

+

+static XLCd

+create(

+    const char *name,

+    XLCdMethods methods)

+{

+    XLCd lcd;

+    XLCdPublicMethods new;

+

+    lcd = Xcalloc(1, sizeof(XLCdRec));

+    if (lcd == NULL)

+        return (XLCd) NULL;

+

+    lcd->core = Xcalloc(1, sizeof(XLCdGenericRec));

+    if (lcd->core == NULL)

+	goto err;

+

+    new = (XLCdPublicMethods) Xmalloc(sizeof(XLCdPublicMethodsRec));

+    if (new == NULL)

+	goto err;

+    memcpy(new,methods,sizeof(XLCdPublicMethodsRec));

+    lcd->methods = (XLCdMethods) new;

+

+    return lcd;

+

+err:

+    Xfree(lcd);

+    return (XLCd) NULL;

+}

+

+static Bool

+string_to_encoding(

+    const char *str,

+    char *encoding)

+{

+    char *next;

+    long value;

+    int base;

+

+    while (*str) {

+	if (*str == '\\') {

+	    switch (*(str + 1)) {

+		case 'x':

+		case 'X':

+		    base = 16;

+		    break;

+		default:

+		    base = 8;

+		    break;

+	    }

+	    value = strtol(str + 2, &next, base);

+	    if (str + 2 != next) {

+		*((unsigned char *) encoding++) = (unsigned char) value;

+		str = next;

+		continue;

+	    }

+	}

+	*encoding++ = *str++;

+    }

+

+    *encoding = '\0';

+

+    return True;

+}

+

+static Bool

+string_to_ulong(

+    const char *str,

+    unsigned long *value)

+{

+     const char *tmp1 = str;

+     int base;

+

+     if (*tmp1++ != '\\') {

+	  tmp1--;

+	  base = 10;

+     } else {

+	  switch (*tmp1++) {

+	  case 'x':

+	       base = 16;

+	       break;

+	  case 'o':

+	       base = 8;

+	       break;

+	  case 'd':

+	       base = 10;

+	       break;

+	  default:

+	       return(False);

+	  }

+     }

+     *value = (unsigned long) strtol(tmp1, NULL, base);

+     return(True);

+}

+

+

+static Bool

+add_charset(

+    CodeSet codeset,

+    XlcCharSet charset)

+{

+    XlcCharSet *new_list;

+    int num;

+

+    if ((num = codeset->num_charsets))

+        new_list = (XlcCharSet *) Xrealloc(codeset->charset_list,

+                                        (num + 1) * sizeof(XlcCharSet));

+    else

+        new_list = (XlcCharSet *) Xmalloc(sizeof(XlcCharSet));

+

+    if (new_list == NULL)

+	return False;

+

+    new_list[num] = charset;

+    codeset->charset_list = new_list;

+    codeset->num_charsets = num + 1;

+

+    return True;

+}

+

+static CodeSet

+add_codeset(

+    XLCdGenericPart *gen)

+{

+    CodeSet new, *new_list;

+    int num;

+

+    new = Xcalloc(1, sizeof(CodeSetRec));

+    if (new == NULL)

+        return NULL;

+

+    if ((num = gen->codeset_num))

+        new_list = (CodeSet *) Xrealloc(gen->codeset_list,

+                                        (num + 1) * sizeof(CodeSet));

+    else

+        new_list = (CodeSet *) Xmalloc(sizeof(CodeSet));

+

+    if (new_list == NULL)

+        goto err;

+

+    new_list[num] = new;

+    gen->codeset_list = new_list;

+    gen->codeset_num = num + 1;

+

+    return new;

+

+err:

+    Xfree(new);

+

+    return NULL;

+}

+

+static Bool

+add_parse_list(

+    XLCdGenericPart *gen,

+    EncodingType type,

+    const char *encoding,

+    CodeSet codeset)

+{

+    ParseInfo new, *new_list;

+    char *str;

+    unsigned char ch;

+    int num;

+

+    str = strdup(encoding);

+    if (str == NULL)

+        return False;

+

+    new = Xcalloc(1, sizeof(ParseInfoRec));

+    if (new == NULL)

+        goto err;

+

+    if (gen->mb_parse_table == NULL) {

+        gen->mb_parse_table = Xcalloc(1, 256); /* 2^8 */

+        if (gen->mb_parse_table == NULL)

+            goto err;

+    }

+

+    if ((num = gen->mb_parse_list_num))

+        new_list = (ParseInfo *) Xrealloc(gen->mb_parse_list,

+                                          (num + 2) * sizeof(ParseInfo));

+    else {

+        new_list = (ParseInfo *) Xmalloc(2 * sizeof(ParseInfo));

+    }

+

+    if (new_list == NULL)

+        goto err;

+

+    new_list[num] = new;

+    new_list[num + 1] = NULL;

+    gen->mb_parse_list = new_list;

+    gen->mb_parse_list_num = num + 1;

+

+    ch = (unsigned char) *str;

+    if (gen->mb_parse_table[ch] == 0)

+        gen->mb_parse_table[ch] = num + 1;

+

+    new->type = type;

+    new->encoding = str;

+    new->codeset = codeset;

+

+    if (codeset->parse_info == NULL)

+        codeset->parse_info = new;

+

+    return True;

+

+err:

+    Xfree(str);

+    if (new)

+        Xfree(new);

+

+    return False;

+}

+

+static void

+free_charset(

+    XLCd lcd)

+{

+    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);

+    ParseInfo *parse_info;

+    int num;

+

+    if (gen->mb_parse_table)

+        Xfree(gen->mb_parse_table);

+    if ((num = gen->mb_parse_list_num) > 0) {

+        for (parse_info = gen->mb_parse_list; num-- > 0; parse_info++) {

+            if ((*parse_info)->encoding)

+                Xfree((*parse_info)->encoding);

+            Xfree(*parse_info);

+        }

+        Xfree(gen->mb_parse_list);

+    }

+

+    if ((num = gen->codeset_num) > 0)

+        Xfree(gen->codeset_list);

+}

+

+/* For VW/UDC */

+

+#define FORWARD  (unsigned long)'+'

+#define BACKWARD (unsigned long)'-'

+

+static const char *

+getscope(

+    const char *str,

+    FontScope scp)

+{

+    unsigned long start = 0;

+    unsigned long end = 0;

+    unsigned long dest = 0;

+    unsigned long shift = 0;

+    unsigned long direction = 0;

+    sscanf(str,"[\\x%lx,\\x%lx]->\\x%lx", &start, &end, &dest);

+    if (dest) {

+        if (dest >= start) {

+            shift = dest - start;

+            direction = FORWARD ;

+        } else {

+            shift = start - dest;

+            direction = BACKWARD;

+        }

+    }

+    scp->start = start      ;

+    scp->end   = end        ;

+    scp->shift = shift      ;

+    scp->shift_direction

+               = direction  ;

+    /* .......... */

+    while (*str) {

+        if (*str == ',' && *(str+1) == '[')

+            break;

+        str++;

+    }

+    return str+1;

+}

+

+static int

+count_scopemap(

+    const char *str)

+{

+    const char *ptr;

+    int num=0;

+    for (ptr=str; *ptr; ptr++) {

+        if (*ptr == ']') {

+            num++;

+        }

+    }

+    return num;

+}

+

+FontScope

+_XlcParse_scopemaps(

+    const char *str,

+    int *size)

+{

+    int num=0,i;

+    FontScope scope,sc_ptr;

+    const char *str_sc;

+

+    num = count_scopemap(str);

+    scope = (FontScope) Xmalloc(num * sizeof(FontScopeRec));

+    if (scope == NULL)

+	return NULL;

+

+    for (i=0, str_sc=str, sc_ptr=scope; i < num; i++, sc_ptr++) {

+	str_sc = getscope(str_sc, sc_ptr);

+    }

+    *size = num;

+    return scope;

+}

+

+void

+_XlcDbg_printValue(

+    const char *str,

+    char **value,

+    int num)

+{

+/*

+    int i;

+    for (i = 0; i < num; i++)

+        fprintf(stderr, "%s value[%d] = %s\n", str, i, value[i]);

+*/

+}

+

+static void

+dmpscope(

+    const char* name,

+    FontScope sc,

+    int num)

+{

+/*

+    int i;

+    fprintf(stderr, "dmpscope %s\n", name);

+    for (i=0; i<num; i++)

+        fprintf(stderr,"%x %x %x %x \n",

+                sc[i].start,

+                sc[i].end,

+                sc[i].shift,

+                sc[i].shift_direction);

+    fprintf(stderr, "dmpscope end\n");

+*/

+}

+

+static XlcCharSet

+srch_charset_define(

+    const char *name,

+    int *new)

+{

+    XlcCharSet charset;

+

+    *new = 0;

+    charset = _XlcGetCharSet(name);

+    if (charset == NULL &&

+        (charset = _XlcCreateDefaultCharSet(name, ""))) {

+        _XlcAddCharSet(charset);

+        *new = 1;

+        charset->source = CSsrcXLC;

+    }

+    return charset;

+}

+

+static void

+read_charset_define(

+    XLCd lcd,

+    XLCdGenericPart *gen)

+{

+    int i;

+    char csd[16], cset_name[256];

+    char name[BUFSIZ];

+    XlcCharSet charsetd;

+    char **value;

+    int num, new = 0;

+    XlcSide side = XlcUnknown;

+    char *tmp;

+

+    for (i=0; ; i++) { /* loop start */

+        charsetd = 0;

+        sprintf(csd, "csd%d", i);

+

+        /* charset_name  */

+        sprintf(name, "%s.%s", csd, "charset_name");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        _XlcDbg_printValue(name,value,num);

+        if (num > 0) {

+	    /* hackers will get truncated -- C'est la vie */

+            strncpy(cset_name,value[0], sizeof cset_name - 1);

+	    cset_name[(sizeof cset_name) - 1] = '\0';

+            sprintf(name, "%s.%s", csd , "side");

+            _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+            if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                if (!_XlcNCompareISOLatin1(value[0], "none", 4)) {

+                    side =  XlcGLGR;

+                } else if (!_XlcNCompareISOLatin1(value[0], "GL", 2)) {

+                    side =  XlcGL;

+                    strcat(cset_name,":GL");

+                } else {

+                    side =  XlcGR;

+                    strcat(cset_name,":GR");

+                }

+                if (charsetd == NULL &&

+                    (charsetd = srch_charset_define(cset_name,&new)) == NULL)

+                    return;

+            }

+        } else {

+            if (i == 0)

+                continue;

+            else

+                break;

+        }

+        if (new) {

+            tmp = strdup(cset_name);

+            if (tmp == NULL)

+                return;

+            charsetd->name = tmp;

+        }

+        /* side   */

+        charsetd->side = side ;

+        /* length */

+        sprintf(name, "%s.%s", csd, "length");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+            charsetd->char_size = atoi(value[0]);

+        }

+        /* gc_number */

+        sprintf(name, "%s.%s", csd, "gc_number");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+            charsetd->set_size = atoi(value[0]);

+        }

+        /* string_encoding */

+        sprintf(name, "%s.%s", csd, "string_encoding");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+            if (!strcmp("False",value[0])) {

+                charsetd->string_encoding = False;

+            } else {

+                charsetd->string_encoding = True;

+            }

+        }

+        /* sequence */

+        sprintf(name, "%s.%s", csd, "sequence");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+/*

+            if (charsetd->ct_sequence) {

+                Xfree(charsetd->ct_sequence);

+            }

+*/

+            tmp = (char *)Xmalloc(strlen(value[0])+1);

+            if (tmp == NULL)

+                return;

+            charsetd->ct_sequence = tmp;

+            string_to_encoding(value[0],tmp);

+        }

+        /* encoding_name */

+        sprintf(name, "%s.%s", csd, "encoding_name");

+        _XlcGetResource(lcd, "XLC_CHARSET_DEFINE", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+/*

+            if (charsetd->encoding_name) {

+                Xfree(charsetd->encoding_name);

+            }

+*/

+            tmp = strdup(value[0]);

+            charsetd->encoding_name = tmp;

+            charsetd->xrm_encoding_name = XrmStringToQuark(tmp);

+        }

+        _XlcAddCT(charsetd->name, charsetd->ct_sequence);

+    }

+}

+

+static SegConv

+add_conversion(

+    XLCdGenericPart *gen)

+{

+    SegConv new_list;

+    int num;

+

+    if ((num = gen->segment_conv_num) > 0) {

+        new_list = (SegConv) Xrealloc(gen->segment_conv,

+                                        (num + 1) * sizeof(SegConvRec));

+    } else {

+        new_list = (SegConv) Xmalloc(sizeof(SegConvRec));

+    }

+

+    if (new_list == NULL)

+        return NULL;

+

+    gen->segment_conv = new_list;

+    gen->segment_conv_num = num + 1;

+

+    return &new_list[num];

+

+}

+

+static void

+read_segmentconversion(

+    XLCd lcd,

+    XLCdGenericPart *gen)

+{

+    int i;

+    char conv[16];

+    char name[BUFSIZ];

+    char **value;

+    int num,new;

+    SegConv conversion;

+    for (i=0 ; ; i++) { /* loop start */

+        conversion = 0;

+        sprintf(conv, "conv%d", i);

+

+        /* length                */

+        sprintf(name, "%s.%s", conv, "length");

+        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);

+        if (num > 0) {

+            if (conversion == NULL &&

+                (conversion = add_conversion(gen)) == NULL) {

+                return;

+            }

+            _XlcDbg_printValue(name,value,num);

+        } else {

+            if (i == 0)

+                continue;

+            else

+                break;

+        }

+        conversion->length = atoi(value[0]);

+

+        /* source_encoding       */

+        sprintf(name, "%s.%s", conv, "source_encoding");

+        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);

+        if (num > 0) {

+            char *tmp;

+            _XlcDbg_printValue(name,value,num);

+            tmp = strdup(value[0]);

+            if (tmp == NULL)

+                return;

+            conversion->source_encoding = tmp;

+            conversion->source = srch_charset_define(tmp,&new);

+        }

+        /* destination_encoding  */

+        sprintf(name, "%s.%s", conv, "destination_encoding");

+        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);

+        if (num > 0) {

+            char *tmp;

+            _XlcDbg_printValue(name,value,num);

+            tmp = strdup(value[0]);

+            if (tmp == NULL)

+                return;

+            conversion->destination_encoding = tmp;

+            conversion->dest = srch_charset_define(tmp,&new);

+        }

+        /* range                 */

+        sprintf(name, "%s.%s", conv, "range");

+        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+            sscanf(value[0],"\\x%lx,\\x%lx",

+                   &(conversion->range.start), &(conversion->range.end));

+        }

+        /* conversion            */

+        sprintf(name, "%s.%s", conv, "conversion");

+        _XlcGetResource(lcd, "XLC_SEGMENTCONVERSION", name, &value, &num);

+        if (num > 0) {

+            _XlcDbg_printValue(name,value,num);

+            conversion->conv =

+                _XlcParse_scopemaps(value[0],&conversion->conv_num);

+        }

+    }  /* loop end */

+}

+

+static ExtdSegment

+create_ctextseg(

+    char **value,

+    int num)

+{

+    ExtdSegment ret;

+    char* ptr;

+    char* cset_name = NULL;

+    int i,new;

+    FontScope scope;

+    ret = (ExtdSegment)Xmalloc(sizeof(ExtdSegmentRec));

+    if (ret == NULL)

+        return NULL;

+    ret->name = strdup(value[0]);

+    if (ret->name == NULL) {

+        Xfree (ret);

+        return NULL;

+    }

+    cset_name = (char*) Xmalloc (strlen(ret->name) + 1);

+    if (cset_name == NULL) {

+        Xfree (ret->name);

+        Xfree (ret);

+        return NULL;

+    }

+    if (strchr(value[0],':')) {

+        ptr = strchr(ret->name,':');

+        *ptr = '\0';

+        ptr++;

+        if (!_XlcNCompareISOLatin1(ptr, "GL", 2)) {

+            ret->side =  XlcGL;

+            sprintf(cset_name,"%s:%s",ret->name,"GL");

+        } else {

+            ret->side =  XlcGR;

+            sprintf(cset_name,"%s:%s",ret->name,"GR");

+        }

+    } else {

+        ret->side =  XlcGLGR;

+        strcpy(cset_name,ret->name);

+    }

+    ret->area = (FontScope)Xmalloc((num - 1)*sizeof(FontScopeRec));

+    if (ret->area == NULL) {

+	Xfree (cset_name);

+	Xfree (ret->name);

+	Xfree (ret);

+        return NULL;

+    }

+    ret->area_num = num - 1;

+    scope = ret->area ;

+    for (i = 1; i < num; i++) {

+        sscanf(value[i],"\\x%lx,\\x%lx",

+               &scope[i-1].start, &scope[i-1].end);

+    }

+    ret->charset = srch_charset_define(cset_name,&new);

+    Xfree (cset_name);

+

+    return ret;

+}

+/* For VW/UDC end */

+

+static Bool

+load_generic(

+    XLCd lcd)

+{

+    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);

+    char **value;

+    int num;

+    unsigned long l;

+    int i;

+    int M,ii;

+    XlcCharSet charset;

+

+    gen->codeset_num = 0;

+

+    /***** wc_encoding_mask *****/

+    _XlcGetResource(lcd, "XLC_XLOCALE", "wc_encoding_mask", &value, &num);

+    if (num > 0) {

+	if (string_to_ulong(value[0], &l) == False)

+	    goto err;

+	gen->wc_encode_mask = l;

+    }

+    /***** wc_shift_bits *****/

+    _XlcGetResource(lcd, "XLC_XLOCALE", "wc_shift_bits", &value, &num);

+    if (num > 0)

+	gen->wc_shift_bits = atoi(value[0]);

+    if (gen->wc_shift_bits < 1)

+	gen->wc_shift_bits = 8;

+    /***** use_stdc_env *****/

+    _XlcGetResource(lcd, "XLC_XLOCALE", "use_stdc_env", &value, &num);

+    if (num > 0 && !_XlcCompareISOLatin1(value[0], "True"))

+	gen->use_stdc_env = True;

+    else

+	gen->use_stdc_env = False;

+    /***** force_convert_to_mb *****/

+    _XlcGetResource(lcd, "XLC_XLOCALE", "force_convert_to_mb", &value, &num);

+    if (num > 0 && !_XlcCompareISOLatin1(value[0], "True"))

+	gen->force_convert_to_mb = True;

+    else

+	gen->force_convert_to_mb = False;

+

+    for (i = 0; ; i++) {

+	CodeSetRec *codeset = NULL;

+	char cs[16];

+	char name[BUFSIZ];

+

+	sprintf(cs, "cs%d", i);

+

+	/***** codeset.side *****/

+	sprintf(name, "%s.%s", cs , "side");

+	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+	if (num > 0) {

+	    char *tmp;

+

+	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)

+		goto err;

+

+            /* 3.4.1 side */

+            if (!_XlcNCompareISOLatin1(value[0], "none", 4)) {

+                codeset->side =  XlcNONE;

+            } else if (!_XlcNCompareISOLatin1(value[0], "GL", 2)) {

+                codeset->side =  XlcGL;

+            } else {

+                codeset->side =  XlcGR;

+            }

+

+	    tmp = strrchr(value[0], ':');

+	    if (tmp != NULL && !_XlcCompareISOLatin1(tmp + 1, "Default")) {

+		if (codeset->side == XlcGR)

+		    gen->initial_state_GR = codeset;

+		else

+		    gen->initial_state_GL = codeset;

+	    }

+	}

+

+	/***** codeset.length *****/

+	sprintf(name, "%s.%s", cs , "length");

+	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+	if (num > 0) {

+	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)

+		goto err;

+	    codeset->length = atoi(value[0]);

+	    if (codeset->length < 1)

+		codeset->length = 1;

+	}

+

+	/***** codeset.mb_encoding *****/

+	sprintf(name, "%s.%s", cs, "mb_encoding");

+	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+	if (num > 0) {

+	    static struct {

+		const char *str;

+		EncodingType type;

+	    } shifts[] = {

+		{"<SS>", E_SS},

+		{"<LSL>", E_LSL},

+		{"<LSR>", E_LSR},

+		{0}

+	    };

+	    int j;

+

+	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)

+		goto err;

+	    for ( ; num-- > 0; value++) {

+		char encoding[256];

+		char *tmp = *value;

+		EncodingType type = E_SS;    /* for BC */

+		for (j = 0; shifts[j].str; j++) {

+		    if (!_XlcNCompareISOLatin1(tmp, shifts[j].str,

+					       strlen(shifts[j].str))) {

+			type = shifts[j].type;

+			tmp += strlen(shifts[j].str);

+			break;

+		    }

+		}

+		if (strlen (tmp) > sizeof encoding ||

+		    string_to_encoding(tmp, encoding) == False)

+			goto err;

+		add_parse_list(gen, type, encoding, codeset);

+	    }

+	}

+

+	/***** codeset.wc_encoding *****/

+	sprintf(name, "%s.%s", cs, "wc_encoding");

+	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+	if (num > 0) {

+	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)

+		goto err;

+	    if (string_to_ulong(value[0], &l) == False)

+		goto err;

+	    codeset->wc_encoding = l;

+	}

+

+	/***** codeset.ct_encoding *****/

+	sprintf(name, "%s.%s", cs, "ct_encoding");

+	_XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+	if (num > 0) {

+	    char *encoding;

+

+	    if (codeset == NULL && (codeset = add_codeset(gen)) == NULL)

+		goto err;

+	    for ( ; num-- > 0; value++) {

+		if (strlen (*value) > sizeof name)

+		    goto err;

+		string_to_encoding(*value, name);

+		charset = NULL;

+		if ((encoding = strchr(name, ':')) &&

+		    (encoding = strchr(encoding + 1, ':'))) {

+		    *encoding++ = '\0';

+		    charset = _XlcAddCT(name, encoding);

+		}

+		if (charset == NULL) {

+		    charset = _XlcGetCharSet(name);

+		    if (charset == NULL &&

+			(charset = _XlcCreateDefaultCharSet(name, ""))) {

+			charset->side = codeset->side;

+			charset->char_size = codeset->length;

+			_XlcAddCharSet(charset);

+		    }

+		}

+		if (charset) {

+		    if (add_charset(codeset, charset) == False)

+			goto err;

+		}

+	    }

+	}

+

+	if (codeset == NULL)

+	    break;

+	codeset->cs_num = i;

+        /* For VW/UDC */

+        /***** 3.4.2 byteM (1 <= M <= length)*****/

+        for (M=1; M-1  < codeset->length; M++) {

+            unsigned long start,end;

+            ByteInfo tmpb;

+

+            sprintf(name,"%s.%s%d",cs,"byte",M);

+            _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+

+            if (M == 1) {

+                if (num < 1) {

+                    codeset->byteM = NULL;

+                    break ;

+                }

+                codeset->byteM =

+                    (ByteInfoListRec *)Xmalloc(

+                         (codeset->length)*sizeof(ByteInfoListRec));

+                if (codeset->byteM == NULL) {

+                    goto err;

+                }

+            }

+

+            if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                (codeset->byteM)[M-1].M = M;

+                (codeset->byteM)[M-1].byteinfo_num = num;

+                (codeset->byteM)[M-1].byteinfo =

+                    (ByteInfo)Xmalloc( num * sizeof(ByteInfoRec));

+                for (ii = 0 ; ii < num ; ii++) {

+                    tmpb = (codeset->byteM)[M-1].byteinfo ;

+                    /* default 0x00 - 0xff */

+                    sscanf(value[ii],"\\x%lx,\\x%lx",&start,&end);

+                    tmpb[ii].start = (unsigned char)start;

+                    tmpb[ii].end  = (unsigned char)end;

+                }

+            }

+            /* .... */

+        }

+

+

+        /***** codeset.mb_conversion *****/

+        sprintf(name, "%s.%s", cs, "mb_conversion");

+        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+        if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                codeset->mbconv = Xmalloc(sizeof(ConversionRec));

+                codeset->mbconv->convlist =

+                _XlcParse_scopemaps(value[0],&(codeset->mbconv->conv_num));

+                dmpscope("mb_conv",codeset->mbconv->convlist,

+                         codeset->mbconv->conv_num);

+                /* [\x%x,\x%x]->\x%x,... */

+        }

+        /***** codeset.ct_conversion *****/

+        sprintf(name, "%s.%s", cs, "ct_conversion");

+        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+        if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                codeset->ctconv = Xmalloc(sizeof(ConversionRec));

+                codeset->ctconv->convlist =

+                _XlcParse_scopemaps(value[0],&(codeset->ctconv->conv_num));

+                dmpscope("ctconv",codeset->ctconv->convlist,

+                         codeset->ctconv->conv_num);

+                /* [\x%x,\x%x]->\x%x,... */

+        }

+        /***** codeset.ct_conversion_file *****/

+        sprintf(name, "%s.%s", cs, "ct_conversion_file");

+        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+        if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                /* [\x%x,\x%x]->\x%x,... */

+        }

+        /***** codeset.ct_extended_segment *****/

+        sprintf(name, "%s.%s", cs, "ct_extended_segment");

+        _XlcGetResource(lcd, "XLC_XLOCALE", name, &value, &num);

+        if (num > 0) {

+                _XlcDbg_printValue(name,value,num);

+                codeset->ctextseg = create_ctextseg(value,num);

+                /* [\x%x,\x%x]->\x%x,... */

+        }

+        /* For VW/UDC end */

+

+    }

+

+    read_charset_define(lcd,gen);       /* For VW/UDC */

+    read_segmentconversion(lcd,gen);    /* For VW/UDC */

+

+    if (gen->initial_state_GL == NULL) {

+       CodeSetRec *codeset;

+       for (i = 0; i < gen->codeset_num; i++) {

+          codeset = gen->codeset_list[i];

+          if (codeset->side == XlcGL)

+             gen->initial_state_GL = codeset;

+       }

+    }

+

+    if (gen->initial_state_GR == NULL) {

+       CodeSetRec *codeset;

+       for (i = 0; i < gen->codeset_num; i++) {

+          codeset = gen->codeset_list[i];

+          if (codeset->side == XlcGR)

+             gen->initial_state_GR = codeset;

+       }

+    }

+

+    for (i = 0; i < gen->codeset_num; i++) {

+       CodeSetRec *codeset = gen->codeset_list[i];

+       for (ii = 0; ii < codeset->num_charsets; ii++) {

+          charset = codeset->charset_list[ii];

+          if (! strcmp(charset->encoding_name, "ISO8859-1"))

+              charset->string_encoding = True;

+          if ( charset->string_encoding )

+              codeset->string_encoding = True;

+       }

+    }

+    return True;

+

+err:

+    free_charset(lcd);

+

+    return False;

+}

+

+#ifdef USE_DYNAMIC_LC

+/* override the open_om and open_im methods which were set by

+   super_class's initialize method() */

+

+static Bool

+initialize_core(

+    XLCd lcd)

+{

+    _XInitDynamicOM(lcd);

+

+    _XInitDynamicIM(lcd);

+

+    return True;

+}

+#endif

+

+static Bool

+initialize(XLCd lcd)

+{

+    XLCdPublicMethods superclass = (XLCdPublicMethods) _XlcPublicMethods;

+

+    XLC_PUBLIC_METHODS(lcd)->superclass = superclass;

+

+    if (superclass->pub.initialize) {

+	if ((*superclass->pub.initialize)(lcd) == False)

+	    return False;

+    }

+

+#ifdef USE_DYNAMIC_LC

+    if (initialize_core(lcd) == False)

+	return False;

+#endif

+

+    if (load_generic(lcd) == False)

+	return False;

+

+    return True;

+}

+

+/* VW/UDC start 95.01.08 */

+static void

+freeByteM(

+    CodeSet codeset)

+{

+    int i;

+    ByteInfoList blst;

+    if (codeset->byteM == NULL) {

+	return ;

+    }

+    blst = codeset->byteM;

+    for (i = 0; i < codeset->length; i++) {

+	if (blst[i].byteinfo) {

+	    Xfree(blst[i].byteinfo);

+	    blst[i].byteinfo = NULL;

+	}

+    }

+    Xfree(codeset->byteM);

+    codeset->byteM = NULL;

+}

+

+static void

+freeConversion(

+    CodeSet codeset)

+{

+    Conversion mbconv,ctconv;

+    if (codeset->mbconv) {

+	mbconv = codeset->mbconv;

+	/*  ...  */

+	if (mbconv->convlist) {

+	    Xfree(mbconv->convlist);

+	    mbconv->convlist = NULL;

+	}

+	Xfree(mbconv);

+	codeset->mbconv = NULL;

+    }

+    if (codeset->ctconv) {

+	ctconv = codeset->ctconv;

+	/*  ...  */

+	if (ctconv->convlist) {

+	    Xfree(ctconv->convlist);

+	    ctconv->convlist = NULL;

+	}

+	Xfree(ctconv);

+	codeset->ctconv = NULL;

+    }

+}

+

+static void

+freeExtdSegment(

+    CodeSet codeset)

+{

+    ExtdSegment ctextseg;

+    if (codeset->ctextseg == NULL) {

+	return;

+    }

+    ctextseg = codeset->ctextseg;

+    if (ctextseg->name) {

+	Xfree(ctextseg->name);

+	ctextseg->name = NULL;

+    }

+    if (ctextseg->area) {

+	Xfree(ctextseg->area);

+	ctextseg->area = NULL;

+    }

+    Xfree(codeset->ctextseg);

+    codeset->ctextseg = NULL;

+}

+

+static void

+freeParseInfo(

+    CodeSet codeset)

+{

+    ParseInfo parse_info;

+    if (codeset->parse_info == NULL) {

+	return;

+    }

+    parse_info = codeset->parse_info;

+    if (parse_info->encoding) {

+	Xfree(parse_info->encoding);

+	parse_info->encoding = NULL;

+    }

+    Xfree(codeset->parse_info);

+    codeset->parse_info = NULL;

+}

+

+static void

+destroy_CodeSetList(

+    XLCdGenericPart *gen)

+{

+    CodeSet *codeset = gen->codeset_list;

+    int i;

+    if (gen->codeset_num == 0) {

+	return;

+    }

+    for (i=0;i<gen->codeset_num;i++) {

+        freeByteM(codeset[i]);

+	freeConversion(codeset[i]);

+	freeExtdSegment(codeset[i]);

+	freeParseInfo(codeset[i]);

+	if (codeset[i]->charset_list) {

+	    Xfree(codeset[i]->charset_list);

+	    codeset[i]->charset_list = NULL;

+	}

+	Xfree(codeset[i]); codeset[i]=NULL;

+    }

+    Xfree(codeset); gen->codeset_list = NULL;

+}

+

+static void

+destroy_SegConv(

+    XLCdGenericPart *gen)

+{

+    SegConv seg = gen->segment_conv;

+    int i;

+    if (gen->segment_conv_num == 0) {

+	return;

+    }

+    for (i=0;i<gen->segment_conv_num;i++) {

+	if (seg[i].source_encoding) {

+	    Xfree(seg[i].source_encoding);

+	    seg[i].source_encoding = NULL;

+	}

+	if (seg[i].destination_encoding) {

+	    Xfree(seg[i].destination_encoding);

+	    seg[i].destination_encoding = NULL;

+	}

+	if (seg[i].conv) {

+	    Xfree(seg[i].conv); seg[i].conv = NULL;

+	}

+    }

+    Xfree(seg); gen->segment_conv = NULL;

+}

+

+static void

+destroy_gen(

+    XLCd lcd)

+{

+    XLCdGenericPart *gen = XLC_GENERIC_PART(lcd);

+    destroy_SegConv(gen);

+    destroy_CodeSetList(gen);

+    if (gen->mb_parse_table) {

+	Xfree(gen->mb_parse_table);

+	gen->mb_parse_table = NULL;

+    }

+    if (gen->mb_parse_list) {

+	Xfree(gen->mb_parse_list);

+	gen->mb_parse_list = NULL;

+    }

+}

+/* VW/UDC end 95.01.08 */

+

+static void

+destroy(

+    XLCd lcd)

+{

+    XLCdPublicMethods superclass = XLC_PUBLIC_METHODS(lcd)->superclass;

+

+    destroy_gen(lcd); /* ADD 1996.01.08 */

+    if (superclass && superclass->pub.destroy)

+	(*superclass->pub.destroy)(lcd);

+}

diff --git a/libX11/src/xlibi18n/lcPublic.c b/libX11/src/xlibi18n/lcPublic.c
index 1b1fb548a..5082f05bb 100644
--- a/libX11/src/xlibi18n/lcPublic.c
+++ b/libX11/src/xlibi18n/lcPublic.c
@@ -1,314 +1,315 @@
-/*
- * Copyright 1992, 1993 by TOSHIBA Corp.
- *
- * Permission to use, copy, modify, and distribute this software and its
- * documentation for any purpose and without fee is hereby granted, provided
- * that the above copyright notice appear in all copies and that both that
- * copyright notice and this permission notice appear in supporting
- * documentation, and that the name of TOSHIBA not be used in advertising
- * or publicity pertaining to distribution of the software without specific,
- * written prior permission. TOSHIBA make no representations about the
- * suitability of this software for any purpose.  It is provided "as is"
- * without express or implied warranty.
- *
- * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
- * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
- * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
- * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
- * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
- * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
- * SOFTWARE.
- *
- * Author: Katsuhisa Yano	TOSHIBA Corp.
- *			   	mopi@osa.ilab.toshiba.co.jp
- */
-
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-#include <stdio.h>
-#include "Xlibint.h"
-#include "XlcPubI.h"
-
-static const char *
-default_string(
-    XLCd lcd)
-{
-    return XLC_PUBLIC(lcd, default_string);
-}
-
-static XLCd create (const char *name, XLCdMethods methods);
-static Bool initialize (XLCd lcd);
-static void destroy (XLCd lcd);
-static char *get_values (XLCd lcd, XlcArgList args, int num_args);
-
-static XLCdPublicMethodsRec publicMethods = {
-    {
-	destroy,
-	_XlcDefaultMapModifiers,
-	NULL,
-	NULL,
-	_XrmDefaultInitParseInfo,
-	_XmbTextPropertyToTextList,
-	_XwcTextPropertyToTextList,
-	_Xutf8TextPropertyToTextList,
-	_XmbTextListToTextProperty,
-	_XwcTextListToTextProperty,
-	_Xutf8TextListToTextProperty,
-	_XwcFreeStringList,
-	default_string,
-	NULL,
-	NULL
-    },
-    {
-	NULL,
-	create,
-	initialize,
-	destroy,
-	get_values,
-	_XlcGetLocaleDataBase
-    }
-};
-
-XLCdMethods _XlcPublicMethods = (XLCdMethods) &publicMethods;
-
-static XLCd
-create(
-    const char *name,
-    XLCdMethods methods)
-{
-    XLCd lcd;
-    XLCdPublicMethods new;
-
-    lcd = Xcalloc(1, sizeof(XLCdRec));
-    if (lcd == NULL)
-        return (XLCd) NULL;
-
-    lcd->core = Xcalloc(1, sizeof(XLCdPublicRec));
-    if (lcd->core == NULL)
-	goto err;
-
-    new = (XLCdPublicMethods) Xmalloc(sizeof(XLCdPublicMethodsRec));
-    if (new == NULL)
-	goto err;
-    memcpy(new,methods,sizeof(XLCdPublicMethodsRec));
-    lcd->methods = (XLCdMethods) new;
-
-    return lcd;
-
-err:
-    Xfree(lcd);
-    return (XLCd) NULL;
-}
-
-static Bool
-load_public(
-    XLCd lcd)
-{
-    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);
-    char **values, *str;
-    int num;
-
-    if(_XlcCreateLocaleDataBase(lcd) == NULL)
-	return False;
-
-    _XlcGetResource(lcd, "XLC_XLOCALE", "mb_cur_max", &values, &num);
-    if (num > 0) {
-	pub->mb_cur_max = atoi(values[0]);
-	if (pub->mb_cur_max < 1)
-	    pub->mb_cur_max = 1;
-    } else
-	pub->mb_cur_max = 1;
-
-    _XlcGetResource(lcd, "XLC_XLOCALE", "state_depend_encoding", &values, &num);
-    if (num > 0 && !_XlcCompareISOLatin1(values[0], "True"))
-	pub->is_state_depend = True;
-    else
-	pub->is_state_depend = False;
-
-    _XlcGetResource(lcd, "XLC_XLOCALE", "encoding_name", &values, &num);
-    str = (num > 0) ? values[0] : "STRING";
-    pub->encoding_name = strdup(str);
-    if (pub->encoding_name == NULL)
-	return False;
-
-    return True;
-}
-
-static Bool
-initialize_core(
-    XLCd lcd)
-{
-    XLCdMethods methods = lcd->methods;
-    XLCdMethods core = &publicMethods.core;
-
-    if (methods->close == NULL)
-	methods->close = core->close;
-
-    if (methods->map_modifiers == NULL)
-	methods->map_modifiers = core->map_modifiers;
-
-    if (methods->open_om == NULL)
-#ifdef USE_DYNAMIC_LC
-	_XInitDefaultOM(lcd);
-#else
-	_XInitOM(lcd);
-#endif
-
-    if (methods->open_im == NULL)
-#ifdef USE_DYNAMIC_LC
-	_XInitDefaultIM(lcd);
-#else
-	_XInitIM(lcd);
-#endif
-
-    if (methods->init_parse_info == NULL)
-	methods->init_parse_info = core->init_parse_info;
-
-    if (methods->mb_text_prop_to_list == NULL)
-	methods->mb_text_prop_to_list = core->mb_text_prop_to_list;
-
-    if (methods->wc_text_prop_to_list == NULL)
-	methods->wc_text_prop_to_list = core->wc_text_prop_to_list;
-
-    if (methods->utf8_text_prop_to_list == NULL)
-	methods->utf8_text_prop_to_list = core->utf8_text_prop_to_list;
-
-    if (methods->mb_text_list_to_prop == NULL)
-	methods->mb_text_list_to_prop = core->mb_text_list_to_prop;
-
-    if (methods->wc_text_list_to_prop == NULL)
-	methods->wc_text_list_to_prop = core->wc_text_list_to_prop;
-
-    if (methods->utf8_text_list_to_prop == NULL)
-	methods->utf8_text_list_to_prop = core->utf8_text_list_to_prop;
-
-    if (methods->wc_free_string_list == NULL)
-	methods->wc_free_string_list = core->wc_free_string_list;
-
-    if (methods->default_string == NULL)
-	methods->default_string = core->default_string;
-
-    return True;
-}
-
-static Bool
-initialize(
-    XLCd lcd)
-{
-    XLCdPublicMethodsPart *methods = XLC_PUBLIC_METHODS(lcd);
-    XLCdPublicMethodsPart *pub_methods = &publicMethods.pub;
-    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);
-    char *name;
-#if !defined(X_LOCALE)
-    int len;
-    char sinamebuf[256];
-    char* siname;
-#endif
-
-    _XlcInitCTInfo();
-
-    if (initialize_core(lcd) == False)
-	return False;
-
-    name = lcd->core->name;
-#if !defined(X_LOCALE)
-    /*
-     * _XlMapOSLocaleName will return the same string or a substring
-     * of name, so strlen(name) is okay
-     */
-    if ((len = strlen(name)) < sizeof sinamebuf)
-        siname = sinamebuf;
-    else
-        siname = Xmalloc (len + 1);
-    if (siname == NULL)
-        return False;
-    name = _XlcMapOSLocaleName(name, siname);
-#endif
-    /* _XlcResolveLocaleName will lookup the SI's name for the locale */
-    if (_XlcResolveLocaleName(name, pub) == 0) {
-#if !defined(X_LOCALE)
-	if (siname != sinamebuf) Xfree (siname);
-#endif
-	return False;
-    }
-#if !defined(X_LOCALE)
-    if (siname != sinamebuf)
-        Xfree (siname);
-#endif
-
-    if (pub->default_string == NULL)
-	pub->default_string = "";
-
-    if (methods->get_values == NULL)
-	methods->get_values = pub_methods->get_values;
-
-    if (methods->get_resource == NULL)
-	methods->get_resource = pub_methods->get_resource;
-
-    return load_public(lcd);
-}
-
-static void
-destroy_core(
-    XLCd lcd)
-{
-    if (lcd->core) {
-	if (lcd->core->name)
-            Xfree(lcd->core->name);
-	Xfree(lcd->core);
-    }
-
-    if (lcd->methods)
-	Xfree(lcd->methods);
-
-    Xfree(lcd);
-}
-
-static void
-destroy(
-    XLCd lcd)
-{
-    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);
-
-    _XlcDestroyLocaleDataBase(lcd);
-
-    if (pub->siname)
-	Xfree(pub->siname);
-    if (pub->encoding_name)
-	Xfree(pub->encoding_name);
-
-    destroy_core(lcd);
-}
-
-static XlcResource resources[] = {
-    { XlcNCodeset, NULLQUARK, sizeof(char *),
-      XOffsetOf(XLCdPublicRec, pub.codeset), XlcGetMask },
-    { XlcNDefaultString, NULLQUARK, sizeof(char *),
-      XOffsetOf(XLCdPublicRec, pub.default_string), XlcGetMask },
-    { XlcNEncodingName, NULLQUARK, sizeof(char *),
-      XOffsetOf(XLCdPublicRec, pub.encoding_name), XlcGetMask },
-    { XlcNLanguage, NULLQUARK, sizeof(char *),
-      XOffsetOf(XLCdPublicRec, pub.language), XlcGetMask },
-    { XlcNMbCurMax, NULLQUARK, sizeof(int),
-      XOffsetOf(XLCdPublicRec, pub.mb_cur_max), XlcGetMask },
-    { XlcNStateDependentEncoding, NULLQUARK, sizeof(Bool),
-      XOffsetOf(XLCdPublicRec, pub.is_state_depend), XlcGetMask },
-    { XlcNTerritory, NULLQUARK, sizeof(char *),
-      XOffsetOf(XLCdPublicRec, pub.territory), XlcGetMask }
-};
-
-static char *
-get_values(
-    XLCd lcd,
-    XlcArgList args,
-    int num_args)
-{
-    XLCdPublic pub = (XLCdPublic) lcd->core;
-
-    if (resources[0].xrm_name == NULLQUARK)
-	_XlcCompileResourceList(resources, XlcNumber(resources));
-
-    return _XlcGetValues((XPointer) pub, resources, XlcNumber(resources), args,
-			 num_args, XlcGetMask);
-}
+/*

+ * Copyright 1992, 1993 by TOSHIBA Corp.

+ *

+ * Permission to use, copy, modify, and distribute this software and its

+ * documentation for any purpose and without fee is hereby granted, provided

+ * that the above copyright notice appear in all copies and that both that

+ * copyright notice and this permission notice appear in supporting

+ * documentation, and that the name of TOSHIBA not be used in advertising

+ * or publicity pertaining to distribution of the software without specific,

+ * written prior permission. TOSHIBA make no representations about the

+ * suitability of this software for any purpose.  It is provided "as is"

+ * without express or implied warranty.

+ *

+ * TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING

+ * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL

+ * TOSHIBA BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR

+ * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

+ * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,

+ * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS

+ * SOFTWARE.

+ *

+ * Author: Katsuhisa Yano	TOSHIBA Corp.

+ *			   	mopi@osa.ilab.toshiba.co.jp

+ */

+

+#ifdef HAVE_CONFIG_H

+#include <config.h>

+#endif

+#include <stdio.h>

+#include <unistd.h>

+#include "Xlibint.h"

+#include "XlcPubI.h"

+

+static const char *

+default_string(

+    XLCd lcd)

+{

+    return XLC_PUBLIC(lcd, default_string);

+}

+

+static XLCd create (const char *name, XLCdMethods methods);

+static Bool initialize (XLCd lcd);

+static void destroy (XLCd lcd);

+static char *get_values (XLCd lcd, XlcArgList args, int num_args);

+

+static XLCdPublicMethodsRec publicMethods = {

+    {

+	destroy,

+	_XlcDefaultMapModifiers,

+	NULL,

+	NULL,

+	_XrmDefaultInitParseInfo,

+	_XmbTextPropertyToTextList,

+	_XwcTextPropertyToTextList,

+	_Xutf8TextPropertyToTextList,

+	_XmbTextListToTextProperty,

+	_XwcTextListToTextProperty,

+	_Xutf8TextListToTextProperty,

+	_XwcFreeStringList,

+	default_string,

+	NULL,

+	NULL

+    },

+    {

+	NULL,

+	create,

+	initialize,

+	destroy,

+	get_values,

+	_XlcGetLocaleDataBase

+    }

+};

+

+XLCdMethods _XlcPublicMethods = (XLCdMethods) &publicMethods;

+

+static XLCd

+create(

+    const char *name,

+    XLCdMethods methods)

+{

+    XLCd lcd;

+    XLCdPublicMethods new;

+

+    lcd = Xcalloc(1, sizeof(XLCdRec));

+    if (lcd == NULL)

+        return (XLCd) NULL;

+

+    lcd->core = Xcalloc(1, sizeof(XLCdPublicRec));

+    if (lcd->core == NULL)

+	goto err;

+

+    new = (XLCdPublicMethods) Xmalloc(sizeof(XLCdPublicMethodsRec));

+    if (new == NULL)

+	goto err;

+    memcpy(new,methods,sizeof(XLCdPublicMethodsRec));

+    lcd->methods = (XLCdMethods) new;

+

+    return lcd;

+

+err:

+    Xfree(lcd);

+    return (XLCd) NULL;

+}

+

+static Bool

+load_public(

+    XLCd lcd)

+{

+    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);

+    char **values, *str;

+    int num;

+

+    if(_XlcCreateLocaleDataBase(lcd) == NULL)

+	return False;

+

+    _XlcGetResource(lcd, "XLC_XLOCALE", "mb_cur_max", &values, &num);

+    if (num > 0) {

+	pub->mb_cur_max = atoi(values[0]);

+	if (pub->mb_cur_max < 1)

+	    pub->mb_cur_max = 1;

+    } else

+	pub->mb_cur_max = 1;

+

+    _XlcGetResource(lcd, "XLC_XLOCALE", "state_depend_encoding", &values, &num);

+    if (num > 0 && !_XlcCompareISOLatin1(values[0], "True"))

+	pub->is_state_depend = True;

+    else

+	pub->is_state_depend = False;

+

+    _XlcGetResource(lcd, "XLC_XLOCALE", "encoding_name", &values, &num);

+    str = (num > 0) ? values[0] : "STRING";

+    pub->encoding_name = strdup(str);

+    if (pub->encoding_name == NULL)

+	return False;

+

+    return True;

+}

+

+static Bool

+initialize_core(

+    XLCd lcd)

+{

+    XLCdMethods methods = lcd->methods;

+    XLCdMethods core = &publicMethods.core;

+

+    if (methods->close == NULL)

+	methods->close = core->close;

+

+    if (methods->map_modifiers == NULL)

+	methods->map_modifiers = core->map_modifiers;

+

+    if (methods->open_om == NULL)

+#ifdef USE_DYNAMIC_LC

+	_XInitDefaultOM(lcd);

+#else

+	_XInitOM(lcd);

+#endif

+

+    if (methods->open_im == NULL)

+#ifdef USE_DYNAMIC_LC

+	_XInitDefaultIM(lcd);

+#else

+	_XInitIM(lcd);

+#endif

+

+    if (methods->init_parse_info == NULL)

+	methods->init_parse_info = core->init_parse_info;

+

+    if (methods->mb_text_prop_to_list == NULL)

+	methods->mb_text_prop_to_list = core->mb_text_prop_to_list;

+

+    if (methods->wc_text_prop_to_list == NULL)

+	methods->wc_text_prop_to_list = core->wc_text_prop_to_list;

+

+    if (methods->utf8_text_prop_to_list == NULL)

+	methods->utf8_text_prop_to_list = core->utf8_text_prop_to_list;

+

+    if (methods->mb_text_list_to_prop == NULL)

+	methods->mb_text_list_to_prop = core->mb_text_list_to_prop;

+

+    if (methods->wc_text_list_to_prop == NULL)

+	methods->wc_text_list_to_prop = core->wc_text_list_to_prop;

+

+    if (methods->utf8_text_list_to_prop == NULL)

+	methods->utf8_text_list_to_prop = core->utf8_text_list_to_prop;

+

+    if (methods->wc_free_string_list == NULL)

+	methods->wc_free_string_list = core->wc_free_string_list;

+

+    if (methods->default_string == NULL)

+	methods->default_string = core->default_string;

+

+    return True;

+}

+

+static Bool

+initialize(

+    XLCd lcd)

+{

+    XLCdPublicMethodsPart *methods = XLC_PUBLIC_METHODS(lcd);

+    XLCdPublicMethodsPart *pub_methods = &publicMethods.pub;

+    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);

+    char *name;

+#if !defined(X_LOCALE)

+    int len;

+    char sinamebuf[256];

+    char* siname;

+#endif

+

+    _XlcInitCTInfo();

+

+    if (initialize_core(lcd) == False)

+	return False;

+

+    name = lcd->core->name;

+#if !defined(X_LOCALE)

+    /*

+     * _XlMapOSLocaleName will return the same string or a substring

+     * of name, so strlen(name) is okay

+     */

+    if ((len = strlen(name)) < sizeof sinamebuf)

+        siname = sinamebuf;

+    else

+        siname = Xmalloc (len + 1);

+    if (siname == NULL)

+        return False;

+    name = _XlcMapOSLocaleName(name, siname);

+#endif

+    /* _XlcResolveLocaleName will lookup the SI's name for the locale */

+    if (_XlcResolveLocaleName(name, pub) == 0) {

+#if !defined(X_LOCALE)

+	if (siname != sinamebuf) Xfree (siname);

+#endif

+	return False;

+    }

+#if !defined(X_LOCALE)

+    if (siname != sinamebuf)

+        Xfree (siname);

+#endif

+

+    if (pub->default_string == NULL)

+	pub->default_string = "";

+

+    if (methods->get_values == NULL)

+	methods->get_values = pub_methods->get_values;

+

+    if (methods->get_resource == NULL)

+	methods->get_resource = pub_methods->get_resource;

+

+    return load_public(lcd);

+}

+

+static void

+destroy_core(

+    XLCd lcd)

+{

+    if (lcd->core) {

+	if (lcd->core->name)

+            Xfree(lcd->core->name);

+	Xfree(lcd->core);

+    }

+

+    if (lcd->methods)

+	Xfree(lcd->methods);

+

+    Xfree(lcd);

+}

+

+static void

+destroy(

+    XLCd lcd)

+{

+    XLCdPublicPart *pub = XLC_PUBLIC_PART(lcd);

+

+    _XlcDestroyLocaleDataBase(lcd);

+

+    if (pub->siname)

+	Xfree(pub->siname);

+    if (pub->encoding_name)

+	Xfree(pub->encoding_name);

+

+    destroy_core(lcd);

+}

+

+static XlcResource resources[] = {

+    { XlcNCodeset, NULLQUARK, sizeof(char *),

+      XOffsetOf(XLCdPublicRec, pub.codeset), XlcGetMask },

+    { XlcNDefaultString, NULLQUARK, sizeof(char *),

+      XOffsetOf(XLCdPublicRec, pub.default_string), XlcGetMask },

+    { XlcNEncodingName, NULLQUARK, sizeof(char *),

+      XOffsetOf(XLCdPublicRec, pub.encoding_name), XlcGetMask },

+    { XlcNLanguage, NULLQUARK, sizeof(char *),

+      XOffsetOf(XLCdPublicRec, pub.language), XlcGetMask },

+    { XlcNMbCurMax, NULLQUARK, sizeof(int),

+      XOffsetOf(XLCdPublicRec, pub.mb_cur_max), XlcGetMask },

+    { XlcNStateDependentEncoding, NULLQUARK, sizeof(Bool),

+      XOffsetOf(XLCdPublicRec, pub.is_state_depend), XlcGetMask },

+    { XlcNTerritory, NULLQUARK, sizeof(char *),

+      XOffsetOf(XLCdPublicRec, pub.territory), XlcGetMask }

+};

+

+static char *

+get_values(

+    XLCd lcd,

+    XlcArgList args,

+    int num_args)

+{

+    XLCdPublic pub = (XLCdPublic) lcd->core;

+

+    if (resources[0].xrm_name == NULLQUARK)

+	_XlcCompileResourceList(resources, XlcNumber(resources));

+

+    return _XlcGetValues((XPointer) pub, resources, XlcNumber(resources), args,

+			 num_args, XlcGetMask);

+}

diff --git a/libX11/src/xlibi18n/makefile b/libX11/src/xlibi18n/makefile
new file mode 100644
index 000000000..5be81d350
--- /dev/null
+++ b/libX11/src/xlibi18n/makefile
@@ -0,0 +1,80 @@
+#AM_CFLAGS= \
+#	-I$(top_srcdir)/include \
+#	-I$(top_srcdir)/include/X11 \
+#	-I$(top_builddir)/include \
+#	-I$(top_builddir)/include/X11 \
+#	-I$(top_srcdir)/src/xcms \
+#	-I$(top_srcdir)/src/xkb \
+#	-I$(top_srcdir)/src/xlibi18n \
+#	-I$(top_srcdir)/src \
+#	$(X11_CFLAGS) \
+#	$(BIGFONT_CFLAGS) \
+#	$(XDMCP_CFLAGS) \
+#	-D_BSD_SOURCE \
+#	$(XMALLOC_ZERO_CFLAGS)
+
+LIBRARY = libi18n
+
+
+#
+# Dynamic loading code for i18n modules
+#
+#if XLIB_LOADABLE_I18N
+#XI18N_DL_SOURCES = \
+#                  XlcDL.c \
+#                  XlcSL.c
+#else
+#
+# Static interfaces to input/output methods
+#
+#IM_LIBS = \
+#	${top_builddir}/modules/im/ximcp/libximcp.la
+
+#LC_LIBS = \
+#	${top_builddir}/modules/lc/def/libxlcDef.la \
+#	${top_builddir}/modules/lc/gen/libxlibi18n.la \
+#	${top_builddir}/modules/lc/Utf8/libxlcUTF8Load.la \
+#	${top_builddir}/modules/lc/xlocale/libxlocale.la
+
+#OM_LIBS = \
+#	${top_builddir}/modules/om/generic/libxomGeneric.la
+#endif
+
+#libi18n_la_LIBADD = \
+#	 $(IM_LIBS) $(LC_LIBS) $(OM_LIBS)
+
+INCLUDES += ..\..\include\X11
+DEFINES += XLOCALELIBDIR="\".\""
+
+CSRCS = \
+	$(XI18N_DL_SOURCES) \
+	XDefaultIMIF.c \
+	XDefaultOMIF.c \
+	xim_trans.c\
+	ICWrap.c\
+	IMWrap.c\
+	imKStoUCS.c\
+	lcCT.c\
+	lcCharSet.c\
+	lcConv.c\
+	lcDB.c\
+	lcDynamic.c\
+	lcFile.c\
+	lcGeneric.c\
+	lcInit.c\
+	lcPrTxt.c\
+	lcPubWrap.c\
+	lcPublic.c\
+	lcRM.c\
+	lcStd.c\
+	lcTxtPr.c\
+	lcUTF8.c\
+	lcUtil.c\
+	lcWrap.c\
+	mbWMProps.c\
+	mbWrap.c\
+	utf8WMProps.c\
+	utf8Wrap.c\
+	wcWrap.c
+	
+