dos -> unix

1 files changed, 649 insertions, 649 deletions

diff --git a/libX11/src/xlibi18n/lcWrap.c b/libX11/src/xlibi18n/lcWrap.c
index 0c03f23b0..c3f5ca531 100644
--- a/libX11/src/xlibi18n/lcWrap.c
+++ b/libX11/src/xlibi18n/lcWrap.c
@@ -1,649 +1,649 @@
-/*

-

-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.

-

-*/

-/*

- * 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 names of Open Software Foundation and TOSHIBA

- * not be used in advertising or publicity pertaining to distribution of the

- * software without specific, written prior permission.  Open Software

- * Foundation and TOSHIBA make no representations about the suitability of this

- * software for any purpose.  It is provided "as is" without express or

- * implied warranty.

- *

- * OPEN SOFTWARE FOUNDATION AND TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO

- * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND

- * FITNESS, IN NO EVENT SHALL OPEN SOFTWARE FOUNDATIONN OR 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.

- *

- *		 M. Collins		OSF

- *

- *		 Katsuhisa Yano		TOSHIBA Corp.

- */

-

-#ifdef HAVE_CONFIG_H

-#include <config.h>

-#endif

-#include <stdlib.h>

-#include "Xlibint.h"

-#include "Xlcint.h"

-#include <X11/Xlocale.h>

-#include <X11/Xos.h>

-#ifdef WIN32

-#undef close

-#endif

-#include <X11/Xutil.h>

-#include "XlcPubI.h"

-

-#ifdef XTHREADS

-LockInfoPtr _Xi18n_lock;

-#endif

-

-char *

-XSetLocaleModifiers(

-    const char *modifiers)

-{

-    XLCd lcd = _XlcCurrentLC();

-    char *user_mods;

-

-    if (!lcd)

-	return (char *) NULL;

-    if (!modifiers)

-	return lcd->core->modifiers;

-    user_mods = getenv("XMODIFIERS");

-    modifiers = (*lcd->methods->map_modifiers) (lcd,

-						user_mods, (char *)modifiers);

-    if (modifiers) {

-	if (lcd->core->modifiers)

-	    Xfree(lcd->core->modifiers);

-	lcd->core->modifiers = (char *)modifiers;

-    }

-    return (char *)modifiers;

-}

-

-Bool

-XSupportsLocale(void)

-{

-    return _XlcCurrentLC() != (XLCd)NULL;

-}

-

-Bool _XlcValidModSyntax(

-    const char * mods,

-    const char * const *valid_mods)

-{

-    int i;

-    const char * const *ptr;

-

-    while (mods && (*mods == '@')) {

-	mods++;

-	if (*mods == '@')

-	    break;

-	for (ptr = valid_mods; *ptr; ptr++) {

-	    i = strlen(*ptr);

-	    if (strncmp(mods, *ptr, i) || ((mods[i] != '=')

-#ifdef WIN32

-					   && (mods[i] != '#')

-#endif

-					   ))

-		continue;

-	    mods = strchr(mods+i+1, '@');

-	    break;

-	}

-    }

-    return !mods || !*mods;

-}

-

-static const char *im_valid[] = {"im", (const char *)NULL};

-

-/*ARGSUSED*/

-char *

-_XlcDefaultMapModifiers(

-    XLCd lcd,

-    const char *user_mods,

-    const char *prog_mods)

-{

-    int i;

-    char *mods;

-

-    if (!_XlcValidModSyntax(prog_mods, im_valid))

-	return (char *)NULL;

-    if (!_XlcValidModSyntax(user_mods, im_valid))

-	return (char *)NULL;

-    i = strlen(prog_mods) + 1;

-    if (user_mods)

-	i += strlen(user_mods);

-    mods = Xmalloc(i);

-    if (mods) {

-	strcpy(mods, prog_mods);

-	if (user_mods)

-	    strcat(mods, user_mods);

-#ifdef WIN32

-	{

-	    char *s;

-	    for (s = mods; (s = strchr(s, '@')); s++) {

-		for (s++; *s && *s != '='; s++) {

-		    if (*s == '#') {

-			*s = '=';

-			break;

-		    }

-		}

-	    }

-	}

-#endif

-    }

-    return mods;

-}

-

-typedef struct _XLCdListRec {

-    struct _XLCdListRec *next;

-    XLCd lcd;

-    int ref_count;

-} XLCdListRec, *XLCdList;

-

-static XLCdList lcd_list = NULL;

-

-typedef struct _XlcLoaderListRec {

-    struct _XlcLoaderListRec *next;

-    XLCdLoadProc proc;

-} XlcLoaderListRec, *XlcLoaderList;

-

-static XlcLoaderList loader_list = NULL;

-

-void

-_XlcRemoveLoader(

-    XLCdLoadProc proc)

-{

-    XlcLoaderList loader, prev;

-

-    if (loader_list == NULL)

-	return;

-

-    prev = loader = loader_list;

-    if (loader->proc == proc) {

-	loader_list = loader->next;

-	Xfree(loader);

-	return;

-    }

-

-    while ((loader = loader->next)) {

-	if (loader->proc == proc) {

-	    prev->next = loader->next;

-	    Xfree(loader);

-	    return;

-	}

-	prev = loader;

-    }

-

-    return;

-}

-

-Bool

-_XlcAddLoader(

-    XLCdLoadProc proc,

-    XlcPosition position)

-{

-    XlcLoaderList loader, last;

-

-    _XlcRemoveLoader(proc);		/* remove old loader, if exist */

-

-    loader = (XlcLoaderList) Xmalloc(sizeof(XlcLoaderListRec));

-    if (loader == NULL)

-	return False;

-

-    loader->proc = proc;

-

-    if (loader_list == NULL)

-	position = XlcHead;

-

-    if (position == XlcHead) {

-	loader->next = loader_list;

-	loader_list = loader;

-    } else {

-	last = loader_list;

-	while (last->next)

-	    last = last->next;

-

-	loader->next = NULL;

-	last->next = loader;

-    }

-

-    return True;

-}

-

-XLCd

-_XOpenLC(

-    char *name)

-{

-    XLCd lcd;

-    XlcLoaderList loader;

-    XLCdList cur;

-#if !defined(X_LOCALE)

-    int len;

-    char sinamebuf[256];

-    char* siname = sinamebuf;

-#endif

-

-    if (name == NULL) {

-	name = setlocale (LC_CTYPE, (char *)NULL);

-#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 = Xmalloc (len + 1);

-            if (siname == NULL)

-                return NULL;

-        }

-        name = _XlcMapOSLocaleName(name, siname);

-#endif

-    }

-

-    _XLockMutex(_Xi18n_lock);

-

-    /*

-     * search for needed lcd, if found return it

-     */

-    for (cur = lcd_list; cur; cur = cur->next) {

-	if (!strcmp (cur->lcd->core->name, name)) {

-	    lcd = cur->lcd;

-	    cur->ref_count++;

-	    goto found;

-	}

-    }

-

-    if (!loader_list)

-	_XlcInitLoader();

-

-    /*

-     * not there, so try to get and add to list

-     */

-    for (loader = loader_list; loader; loader = loader->next) {

-	lcd = (*loader->proc)(name);

-	if (lcd) {

-	    cur = (XLCdList) Xmalloc (sizeof(XLCdListRec));

-	    if (cur) {

-		cur->lcd = lcd;

-		cur->ref_count = 1;

-		cur->next = lcd_list;

-		lcd_list = cur;

-	    } else {

-		(*lcd->methods->close)(lcd);

-		lcd = (XLCd) NULL;

-	    }

-	    goto found;

-	}

-    }

-

-    lcd = NULL;

-

-found:

-    _XUnlockMutex(_Xi18n_lock);

-

-#if !defined(X_LOCALE)

-    if (siname != sinamebuf) Xfree(siname);

-#endif

-

-    return lcd;

-}

-

-void

-_XCloseLC(

-    XLCd lcd)

-{

-    XLCdList cur, *prev;

-

-    for (prev = &lcd_list; (cur = *prev); prev = &cur->next) {

-	if (cur->lcd == lcd) {

-	    if (--cur->ref_count < 1) {

-		(*lcd->methods->close)(lcd);

-		*prev = cur->next;

-		Xfree(cur);

-	    }

-	    break;

-	}

-    }

-

-    if(loader_list) {

-	_XlcDeInitLoader();

-	loader_list = NULL;

-    }

-}

-

-/*

- * Get the XLCd for the current locale

- */

-

-XLCd

-_XlcCurrentLC(void)

-{

-    XLCd lcd;

-    static XLCd last_lcd = NULL;

-

-    lcd = _XOpenLC((char *) NULL);

-

-    if (last_lcd)

-	_XCloseLC(last_lcd);

-

-    last_lcd = lcd;

-

-    return lcd;

-}

-

-XrmMethods

-_XrmInitParseInfo(

-    XPointer *state)

-{

-    XLCd lcd = _XOpenLC((char *) NULL);

-

-    if (lcd == (XLCd) NULL)

-	return (XrmMethods) NULL;

-

-    return (*lcd->methods->init_parse_info)(lcd, state);

-}

-

-int

-XmbTextPropertyToTextList(

-    Display *dpy,

-    const XTextProperty *text_prop,

-    char ***list_ret,

-    int *count_ret)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->mb_text_prop_to_list)(lcd, dpy, text_prop, list_ret,

-						 count_ret);

-}

-

-int

-XwcTextPropertyToTextList(

-    Display *dpy,

-    const XTextProperty *text_prop,

-    wchar_t ***list_ret,

-    int *count_ret)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->wc_text_prop_to_list)(lcd, dpy, text_prop, list_ret,

-						 count_ret);

-}

-

-int

-Xutf8TextPropertyToTextList(

-    Display *dpy,

-    const XTextProperty *text_prop,

-    char ***list_ret,

-    int *count_ret)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->utf8_text_prop_to_list)(lcd, dpy, text_prop,

-						   list_ret, count_ret);

-}

-

-int

-XmbTextListToTextProperty(

-    Display *dpy,

-    char **list,

-    int count,

-    XICCEncodingStyle style,

-    XTextProperty *text_prop)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->mb_text_list_to_prop)(lcd, dpy, list, count, style,

-						 text_prop);

-}

-

-int

-XwcTextListToTextProperty(

-    Display *dpy,

-    wchar_t **list,

-    int count,

-    XICCEncodingStyle style,

-    XTextProperty *text_prop)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->wc_text_list_to_prop)(lcd, dpy, list, count, style,

-						 text_prop);

-}

-

-int

-Xutf8TextListToTextProperty(

-    Display *dpy,

-    char **list,

-    int count,

-    XICCEncodingStyle style,

-    XTextProperty *text_prop)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return XLocaleNotSupported;

-

-    return (*lcd->methods->utf8_text_list_to_prop)(lcd, dpy, list, count,

-						   style, text_prop);

-}

-

-void

-XwcFreeStringList(

-    wchar_t **list)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return;

-

-    (*lcd->methods->wc_free_string_list)(lcd, list);

-}

-

-const char *

-XDefaultString(void)

-{

-    XLCd lcd = _XlcCurrentLC();

-

-    if (lcd == NULL)

-	return (char *) NULL;

-

-    return (*lcd->methods->default_string)(lcd);

-}

-

-void

-_XlcCopyFromArg(

-    char *src,

-    char *dst,

-    int size)

-{

-    if (size == sizeof(long))

-	*((long *) dst) = (long) src;

-#ifdef LONG64

-    else if (size == sizeof(int))

-	*((int *) dst) = (int)(long) src;

-#endif

-    else if (size == sizeof(short))

-	*((short *) dst) = (short)(long) src;

-    else if (size == sizeof(char))

-	*((char *) dst) = (char)(long) src;

-    else if (size == sizeof(XPointer))

-	*((XPointer *) dst) = (XPointer) src;

-    else if (size > sizeof(XPointer))

-	memcpy(dst, (char *) src, size);

-    else

-	memcpy(dst, (char *) &src, size);

-}

-

-void

-_XlcCopyToArg(

-    char *src,

-    char **dst,

-    int size)

-{

-    /* FIXME:

-       On Big Endian machines, this behaves differently than _XCopyToArg. */

-    if (size == sizeof(long))

-	*((long *) *dst) = *((long *) src);

-#ifdef LONG64

-    else if (size == sizeof(int))

-	*((int *) *dst) = *((int *) src);

-#endif

-    else if (size == sizeof(short))

-	*((short *) *dst) = *((short *) src);

-    else if (size == sizeof(char))

-	*((char *) *dst) = *((char *) src);

-    else if (size == sizeof(XPointer))

-	*((XPointer *) *dst) = *((XPointer *) src);

-    else

-	memcpy(*dst, src, size);

-}

-

-void

-_XlcCountVaList(

-    va_list var,

-    int *count_ret)

-{

-    int count;

-

-    for (count = 0; va_arg(var, char *); count++)

-	(void)va_arg(var, XPointer);

-

-    *count_ret = count;

-}

-

-void

-_XlcVaToArgList(

-    va_list var,

-    int count,

-    XlcArgList *args_ret)

-{

-    XlcArgList args;

-

-    *args_ret = args = (XlcArgList) Xmalloc(sizeof(XlcArg) * count);

-    if (args == (XlcArgList) NULL)

-	return;

-

-    for ( ; count-- > 0; args++) {

-	args->name = va_arg(var, char *);

-	args->value = va_arg(var, XPointer);

-    }

-}

-

-void

-_XlcCompileResourceList(

-    XlcResourceList resources,

-    int num_resources)

-{

-    for ( ; num_resources-- > 0; resources++)

-	resources->xrm_name = XrmPermStringToQuark(resources->name);

-}

-

-char *

-_XlcGetValues(

-    XPointer base,

-    XlcResourceList resources,

-    int num_resources,

-    XlcArgList args,

-    int num_args,

-    unsigned long mask)

-{

-    XlcResourceList res;

-    XrmQuark xrm_name;

-    int count;

-

-    for ( ; num_args-- > 0; args++) {

-	res = resources;

-	count = num_resources;

-	xrm_name = XrmPermStringToQuark(args->name);

-

-	for ( ; count-- > 0; res++) {

-	    if (xrm_name == res->xrm_name && (mask & res->mask)) {

-		    _XlcCopyToArg(base + res->offset, &args->value, res->size);

-		break;

-	    }

-	}

-

-	if (count < 0)

-	    return args->name;

-    }

-

-    return NULL;

-}

-

-char *

-_XlcSetValues(

-    XPointer base,

-    XlcResourceList resources,

-    int num_resources,

-    XlcArgList args,

-    int num_args,

-    unsigned long mask)

-{

-    XlcResourceList res;

-    XrmQuark xrm_name;

-    int count;

-

-    for ( ; num_args-- > 0; args++) {

-	res = resources;

-	count = num_resources;

-	xrm_name = XrmPermStringToQuark(args->name);

-

-	for ( ; count-- > 0; res++) {

-	    if (xrm_name == res->xrm_name && (mask & res->mask)) {

-		_XlcCopyFromArg(args->value, base + res->offset, res->size);

-		break;

-	    }

-	}

-

-	if (count < 0)

-	    return args->name;

-    }

-

-    return NULL;

-}

+/*
+
+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.
+
+*/
+/*
+ * 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 names of Open Software Foundation and TOSHIBA
+ * not be used in advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission.  Open Software
+ * Foundation and TOSHIBA make no representations about the suitability of this
+ * software for any purpose.  It is provided "as is" without express or
+ * implied warranty.
+ *
+ * OPEN SOFTWARE FOUNDATION AND TOSHIBA DISCLAIM ALL WARRANTIES WITH REGARD TO
+ * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
+ * FITNESS, IN NO EVENT SHALL OPEN SOFTWARE FOUNDATIONN OR 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.
+ *
+ *		 M. Collins		OSF
+ *
+ *		 Katsuhisa Yano		TOSHIBA Corp.
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+#include <stdlib.h>
+#include "Xlibint.h"
+#include "Xlcint.h"
+#include <X11/Xlocale.h>
+#include <X11/Xos.h>
+#ifdef WIN32
+#undef close
+#endif
+#include <X11/Xutil.h>
+#include "XlcPubI.h"
+
+#ifdef XTHREADS
+LockInfoPtr _Xi18n_lock;
+#endif
+
+char *
+XSetLocaleModifiers(
+    const char *modifiers)
+{
+    XLCd lcd = _XlcCurrentLC();
+    char *user_mods;
+
+    if (!lcd)
+	return (char *) NULL;
+    if (!modifiers)
+	return lcd->core->modifiers;
+    user_mods = getenv("XMODIFIERS");
+    modifiers = (*lcd->methods->map_modifiers) (lcd,
+						user_mods, (char *)modifiers);
+    if (modifiers) {
+	if (lcd->core->modifiers)
+	    Xfree(lcd->core->modifiers);
+	lcd->core->modifiers = (char *)modifiers;
+    }
+    return (char *)modifiers;
+}
+
+Bool
+XSupportsLocale(void)
+{
+    return _XlcCurrentLC() != (XLCd)NULL;
+}
+
+Bool _XlcValidModSyntax(
+    const char * mods,
+    const char * const *valid_mods)
+{
+    int i;
+    const char * const *ptr;
+
+    while (mods && (*mods == '@')) {
+	mods++;
+	if (*mods == '@')
+	    break;
+	for (ptr = valid_mods; *ptr; ptr++) {
+	    i = strlen(*ptr);
+	    if (strncmp(mods, *ptr, i) || ((mods[i] != '=')
+#ifdef WIN32
+					   && (mods[i] != '#')
+#endif
+					   ))
+		continue;
+	    mods = strchr(mods+i+1, '@');
+	    break;
+	}
+    }
+    return !mods || !*mods;
+}
+
+static const char *im_valid[] = {"im", (const char *)NULL};
+
+/*ARGSUSED*/
+char *
+_XlcDefaultMapModifiers(
+    XLCd lcd,
+    const char *user_mods,
+    const char *prog_mods)
+{
+    int i;
+    char *mods;
+
+    if (!_XlcValidModSyntax(prog_mods, im_valid))
+	return (char *)NULL;
+    if (!_XlcValidModSyntax(user_mods, im_valid))
+	return (char *)NULL;
+    i = strlen(prog_mods) + 1;
+    if (user_mods)
+	i += strlen(user_mods);
+    mods = Xmalloc(i);
+    if (mods) {
+	strcpy(mods, prog_mods);
+	if (user_mods)
+	    strcat(mods, user_mods);
+#ifdef WIN32
+	{
+	    char *s;
+	    for (s = mods; (s = strchr(s, '@')); s++) {
+		for (s++; *s && *s != '='; s++) {
+		    if (*s == '#') {
+			*s = '=';
+			break;
+		    }
+		}
+	    }
+	}
+#endif
+    }
+    return mods;
+}
+
+typedef struct _XLCdListRec {
+    struct _XLCdListRec *next;
+    XLCd lcd;
+    int ref_count;
+} XLCdListRec, *XLCdList;
+
+static XLCdList lcd_list = NULL;
+
+typedef struct _XlcLoaderListRec {
+    struct _XlcLoaderListRec *next;
+    XLCdLoadProc proc;
+} XlcLoaderListRec, *XlcLoaderList;
+
+static XlcLoaderList loader_list = NULL;
+
+void
+_XlcRemoveLoader(
+    XLCdLoadProc proc)
+{
+    XlcLoaderList loader, prev;
+
+    if (loader_list == NULL)
+	return;
+
+    prev = loader = loader_list;
+    if (loader->proc == proc) {
+	loader_list = loader->next;
+	Xfree(loader);
+	return;
+    }
+
+    while ((loader = loader->next)) {
+	if (loader->proc == proc) {
+	    prev->next = loader->next;
+	    Xfree(loader);
+	    return;
+	}
+	prev = loader;
+    }
+
+    return;
+}
+
+Bool
+_XlcAddLoader(
+    XLCdLoadProc proc,
+    XlcPosition position)
+{
+    XlcLoaderList loader, last;
+
+    _XlcRemoveLoader(proc);		/* remove old loader, if exist */
+
+    loader = (XlcLoaderList) Xmalloc(sizeof(XlcLoaderListRec));
+    if (loader == NULL)
+	return False;
+
+    loader->proc = proc;
+
+    if (loader_list == NULL)
+	position = XlcHead;
+
+    if (position == XlcHead) {
+	loader->next = loader_list;
+	loader_list = loader;
+    } else {
+	last = loader_list;
+	while (last->next)
+	    last = last->next;
+
+	loader->next = NULL;
+	last->next = loader;
+    }
+
+    return True;
+}
+
+XLCd
+_XOpenLC(
+    char *name)
+{
+    XLCd lcd;
+    XlcLoaderList loader;
+    XLCdList cur;
+#if !defined(X_LOCALE)
+    int len;
+    char sinamebuf[256];
+    char* siname = sinamebuf;
+#endif
+
+    if (name == NULL) {
+	name = setlocale (LC_CTYPE, (char *)NULL);
+#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 = Xmalloc (len + 1);
+            if (siname == NULL)
+                return NULL;
+        }
+        name = _XlcMapOSLocaleName(name, siname);
+#endif
+    }
+
+    _XLockMutex(_Xi18n_lock);
+
+    /*
+     * search for needed lcd, if found return it
+     */
+    for (cur = lcd_list; cur; cur = cur->next) {
+	if (!strcmp (cur->lcd->core->name, name)) {
+	    lcd = cur->lcd;
+	    cur->ref_count++;
+	    goto found;
+	}
+    }
+
+    if (!loader_list)
+	_XlcInitLoader();
+
+    /*
+     * not there, so try to get and add to list
+     */
+    for (loader = loader_list; loader; loader = loader->next) {
+	lcd = (*loader->proc)(name);
+	if (lcd) {
+	    cur = (XLCdList) Xmalloc (sizeof(XLCdListRec));
+	    if (cur) {
+		cur->lcd = lcd;
+		cur->ref_count = 1;
+		cur->next = lcd_list;
+		lcd_list = cur;
+	    } else {
+		(*lcd->methods->close)(lcd);
+		lcd = (XLCd) NULL;
+	    }
+	    goto found;
+	}
+    }
+
+    lcd = NULL;
+
+found:
+    _XUnlockMutex(_Xi18n_lock);
+
+#if !defined(X_LOCALE)
+    if (siname != sinamebuf) Xfree(siname);
+#endif
+
+    return lcd;
+}
+
+void
+_XCloseLC(
+    XLCd lcd)
+{
+    XLCdList cur, *prev;
+
+    for (prev = &lcd_list; (cur = *prev); prev = &cur->next) {
+	if (cur->lcd == lcd) {
+	    if (--cur->ref_count < 1) {
+		(*lcd->methods->close)(lcd);
+		*prev = cur->next;
+		Xfree(cur);
+	    }
+	    break;
+	}
+    }
+
+    if(loader_list) {
+	_XlcDeInitLoader();
+	loader_list = NULL;
+    }
+}
+
+/*
+ * Get the XLCd for the current locale
+ */
+
+XLCd
+_XlcCurrentLC(void)
+{
+    XLCd lcd;
+    static XLCd last_lcd = NULL;
+
+    lcd = _XOpenLC((char *) NULL);
+
+    if (last_lcd)
+	_XCloseLC(last_lcd);
+
+    last_lcd = lcd;
+
+    return lcd;
+}
+
+XrmMethods
+_XrmInitParseInfo(
+    XPointer *state)
+{
+    XLCd lcd = _XOpenLC((char *) NULL);
+
+    if (lcd == (XLCd) NULL)
+	return (XrmMethods) NULL;
+
+    return (*lcd->methods->init_parse_info)(lcd, state);
+}
+
+int
+XmbTextPropertyToTextList(
+    Display *dpy,
+    const XTextProperty *text_prop,
+    char ***list_ret,
+    int *count_ret)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->mb_text_prop_to_list)(lcd, dpy, text_prop, list_ret,
+						 count_ret);
+}
+
+int
+XwcTextPropertyToTextList(
+    Display *dpy,
+    const XTextProperty *text_prop,
+    wchar_t ***list_ret,
+    int *count_ret)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->wc_text_prop_to_list)(lcd, dpy, text_prop, list_ret,
+						 count_ret);
+}
+
+int
+Xutf8TextPropertyToTextList(
+    Display *dpy,
+    const XTextProperty *text_prop,
+    char ***list_ret,
+    int *count_ret)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->utf8_text_prop_to_list)(lcd, dpy, text_prop,
+						   list_ret, count_ret);
+}
+
+int
+XmbTextListToTextProperty(
+    Display *dpy,
+    char **list,
+    int count,
+    XICCEncodingStyle style,
+    XTextProperty *text_prop)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->mb_text_list_to_prop)(lcd, dpy, list, count, style,
+						 text_prop);
+}
+
+int
+XwcTextListToTextProperty(
+    Display *dpy,
+    wchar_t **list,
+    int count,
+    XICCEncodingStyle style,
+    XTextProperty *text_prop)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->wc_text_list_to_prop)(lcd, dpy, list, count, style,
+						 text_prop);
+}
+
+int
+Xutf8TextListToTextProperty(
+    Display *dpy,
+    char **list,
+    int count,
+    XICCEncodingStyle style,
+    XTextProperty *text_prop)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return XLocaleNotSupported;
+
+    return (*lcd->methods->utf8_text_list_to_prop)(lcd, dpy, list, count,
+						   style, text_prop);
+}
+
+void
+XwcFreeStringList(
+    wchar_t **list)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return;
+
+    (*lcd->methods->wc_free_string_list)(lcd, list);
+}
+
+const char *
+XDefaultString(void)
+{
+    XLCd lcd = _XlcCurrentLC();
+
+    if (lcd == NULL)
+	return (char *) NULL;
+
+    return (*lcd->methods->default_string)(lcd);
+}
+
+void
+_XlcCopyFromArg(
+    char *src,
+    char *dst,
+    int size)
+{
+    if (size == sizeof(long))
+	*((long *) dst) = (long) src;
+#ifdef LONG64
+    else if (size == sizeof(int))
+	*((int *) dst) = (int)(long) src;
+#endif
+    else if (size == sizeof(short))
+	*((short *) dst) = (short)(long) src;
+    else if (size == sizeof(char))
+	*((char *) dst) = (char)(long) src;
+    else if (size == sizeof(XPointer))
+	*((XPointer *) dst) = (XPointer) src;
+    else if (size > sizeof(XPointer))
+	memcpy(dst, (char *) src, size);
+    else
+	memcpy(dst, (char *) &src, size);
+}
+
+void
+_XlcCopyToArg(
+    char *src,
+    char **dst,
+    int size)
+{
+    /* FIXME:
+       On Big Endian machines, this behaves differently than _XCopyToArg. */
+    if (size == sizeof(long))
+	*((long *) *dst) = *((long *) src);
+#ifdef LONG64
+    else if (size == sizeof(int))
+	*((int *) *dst) = *((int *) src);
+#endif
+    else if (size == sizeof(short))
+	*((short *) *dst) = *((short *) src);
+    else if (size == sizeof(char))
+	*((char *) *dst) = *((char *) src);
+    else if (size == sizeof(XPointer))
+	*((XPointer *) *dst) = *((XPointer *) src);
+    else
+	memcpy(*dst, src, size);
+}
+
+void
+_XlcCountVaList(
+    va_list var,
+    int *count_ret)
+{
+    int count;
+
+    for (count = 0; va_arg(var, char *); count++)
+	(void)va_arg(var, XPointer);
+
+    *count_ret = count;
+}
+
+void
+_XlcVaToArgList(
+    va_list var,
+    int count,
+    XlcArgList *args_ret)
+{
+    XlcArgList args;
+
+    *args_ret = args = (XlcArgList) Xmalloc(sizeof(XlcArg) * count);
+    if (args == (XlcArgList) NULL)
+	return;
+
+    for ( ; count-- > 0; args++) {
+	args->name = va_arg(var, char *);
+	args->value = va_arg(var, XPointer);
+    }
+}
+
+void
+_XlcCompileResourceList(
+    XlcResourceList resources,
+    int num_resources)
+{
+    for ( ; num_resources-- > 0; resources++)
+	resources->xrm_name = XrmPermStringToQuark(resources->name);
+}
+
+char *
+_XlcGetValues(
+    XPointer base,
+    XlcResourceList resources,
+    int num_resources,
+    XlcArgList args,
+    int num_args,
+    unsigned long mask)
+{
+    XlcResourceList res;
+    XrmQuark xrm_name;
+    int count;
+
+    for ( ; num_args-- > 0; args++) {
+	res = resources;
+	count = num_resources;
+	xrm_name = XrmPermStringToQuark(args->name);
+
+	for ( ; count-- > 0; res++) {
+	    if (xrm_name == res->xrm_name && (mask & res->mask)) {
+		    _XlcCopyToArg(base + res->offset, &args->value, res->size);
+		break;
+	    }
+	}
+
+	if (count < 0)
+	    return args->name;
+    }
+
+    return NULL;
+}
+
+char *
+_XlcSetValues(
+    XPointer base,
+    XlcResourceList resources,
+    int num_resources,
+    XlcArgList args,
+    int num_args,
+    unsigned long mask)
+{
+    XlcResourceList res;
+    XrmQuark xrm_name;
+    int count;
+
+    for ( ; num_args-- > 0; args++) {
+	res = resources;
+	count = num_resources;
+	xrm_name = XrmPermStringToQuark(args->name);
+
+	for ( ; count-- > 0; res++) {
+	    if (xrm_name == res->xrm_name && (mask & res->mask)) {
+		_XlcCopyFromArg(args->value, base + res->offset, res->size);
+		break;
+	    }
+	}
+
+	if (count < 0)
+	    return args->name;
+    }
+
+    return NULL;
+}