Synchronised line endinge with release branch

1 files changed, 1342 insertions, 1342 deletions

diff --git a/libX11/src/xlibi18n/lcDB.c b/libX11/src/xlibi18n/lcDB.c
index 7d3ba88c5..7f13cc3e2 100644
--- a/libX11/src/xlibi18n/lcDB.c
+++ b/libX11/src/xlibi18n/lcDB.c
@@ -1,1342 +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 */

-

-#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 */

+/*
+ *
+ * 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 */