#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdio.h>
#include "Xlibint.h"
#include "XlcPublic.h"
#include "XlcPubI.h"
typedef struct _XlcCharSetListRec {
XlcCharSet charset;
struct _XlcCharSetListRec *next;
} XlcCharSetListRec, *XlcCharSetList;
static XlcCharSetList charset_list = NULL;
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;
}
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;
}
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;
}
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 }
};
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);
}
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;
}
XlcCharSet
_XlcCreateDefaultCharSet(
const char *name,
const char *ct_sequence)
{
XlcCharSet charset;
int name_len, ct_sequence_len;
const char *colon;
char *tmp;
charset = (XlcCharSet) Xmalloc(sizeof(XlcCharSetRec));
if (charset == NULL)
return (XlcCharSet) NULL;
bzero((char *) charset, sizeof(XlcCharSetRec));
name_len = strlen(name);
ct_sequence_len = strlen(ct_sequence);
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);
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;
}
tmp += name_len + 1;
memcpy(tmp, ct_sequence, ct_sequence_len+1);
charset->ct_sequence = tmp;
if (!_XlcParseCharSet(charset))
charset->ct_sequence = "";
return (XlcCharSet) charset;
}