#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdio.h>
#include <locale.h>
#include <Xlib.h>
#include <Xlibint.h>
#include <Xlcint.h>
#include <XlcPubI.h>
#include <XlcGeneric.h>
#include <XomGeneric.h>
extern FontData read_EncodingInfo();
extern int _xudc_get_codeset();
extern int _xudc_utyderror ;
extern int _xudc_utyerror ;
extern unsigned long _xudc_utyerrno ;
#define _XUDC_ERROR -1
typedef struct __XUDCGlyphRegion {
unsigned long start;
unsigned long end;
} _XUDCGlyphRegion ;
static unsigned char getbyte(code,i)
unsigned long code;
int i;
{
unsigned long byteL;
unsigned char byte;
byteL = code >> (8*(3-i));
byte = (unsigned char)(0x000000ff & byteL);
return(byte);
}
_xudc_get_codeset(locale,charset_str,codeset,num_codeset)
char *locale;
char *charset_str;
int **codeset;
int *num_codeset;
{
XLCdRec lcdrec;
XLCd lcd;
XLCdPublicRec xlcdp;
XPointer rdb;
int num = 0,count,num_ret=0,i,*ret;
char **value,buf[128],*ptr;
_xudc_utyderror = 0;
_xudc_utyerror = 0;
if((locale == NULL) || (charset_str == NULL)){
_xudc_utyerror = 5;
_xudc_utyderror = 1;
_xudc_utyerrno = 0x04 ;
return(_XUDC_ERROR);
}
if(codeset == NULL){
_xudc_utyerror = 5;
_xudc_utyderror = 2;
_xudc_utyerrno = 0x04 ;
return(_XUDC_ERROR);
}
xlcdp.pub.siname = locale;
lcdrec.core = (XLCdCore)&xlcdp;
lcd = &lcdrec;
rdb = _XlcCreateLocaleDataBase(lcd);
if(rdb == NULL){
_xudc_utyerror = 1;
_xudc_utyerrno = 0x15 ;
return(_XUDC_ERROR);
}
for(num=0;;num++){
sprintf(buf, "fs%d.font.primary", num);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count < 1){
break ;
}
for(i=0;i<count;i++){
if (strlen(value[i]) >= sizeof(buf))
continue;
strcpy(buf,value[i]);
ptr = (char *)strchr(buf,(int)':');
*ptr = 0;
if(!_XlcCompareISOLatin1(charset_str,buf)){
num_ret += 1;
if(num_ret == 1){
ret = (int *)Xmalloc(sizeof(int));
} else {
int *prev_ret = ret;
ret =
(int *)Xrealloc(ret,num_ret*sizeof(int));
if (ret == NULL){
Xfree(prev_ret);
}
}
if(ret == NULL){
_xudc_utyerrno = 0x03 ;
return(_XUDC_ERROR);
}
ret[num_ret-1]=num;
break ;
}
}
}
if(num_ret == 0){
*num_codeset = 0;
*codeset = NULL;
return (0xff);
}
*num_codeset = num_ret;
*codeset = ret;
return 0;
}
static Bool gi_to_vgi(gi,vgi,scope)
unsigned long gi,*vgi;
FontScope scope;
{
if(scope->shift_direction == (unsigned long)'+'){
gi -= scope->shift;
} else {
gi += scope->shift;
}
if(gi >= scope->start && gi <= scope->end){
*vgi = gi;
return(True);
}
return(False);
}
static void shift_area(udc,scope)
_XUDCGlyphRegion *udc;
FontScope scope;
{
if(scope->shift_direction == (unsigned long)'+'){
udc->start += scope->shift;
udc->end += scope->shift;
} else {
udc->start -= scope->shift;
udc->end -= scope->shift;
}
}
_XUDCGetUDCGIArea(locale,codeset,charset_str,gr,num_gr)
char *locale;
int codeset;
char *charset_str;
_XUDCGlyphRegion **gr;
int *num_gr;
{
XLCdRec lcdrec;
XLCd lcd;
XLCdPublicRec xlcdp;
XPointer rdb;
_XUDCGlyphRegion *udc;
int num = 0,count,num_ret=0;
int i,j,k;
char **value,buf[128],ptr;
FontData font_data;
_xudc_utyderror = 0;
_xudc_utyerror = 0;
_xudc_utyerrno = 0x00 ;
if((locale == NULL) || (charset_str == NULL)){
_xudc_utyerror = 5;
_xudc_utyderror = 1;
_xudc_utyerrno = 0x04;
_xudc_utyerrno |= (0x0b<<8) ;
return(_XUDC_ERROR);
}
if(gr == NULL){
_xudc_utyerror = 5;
_xudc_utyderror = 1;
_xudc_utyerrno = 0x04;
_xudc_utyerrno |= (0x0b<<8) ;
return(_XUDC_ERROR);
}
if(num_gr == NULL){
_xudc_utyerror = 5;
_xudc_utyderror = 2;
_xudc_utyerrno = 0x04;
_xudc_utyerrno |= (0x0b<<8) ;
return(_XUDC_ERROR);
}
xlcdp.pub.siname = locale;
lcdrec.core = (XLCdCore)&xlcdp;
lcd = &lcdrec;
rdb = _XlcCreateLocaleDataBase(lcd);
if(rdb == NULL){
_xudc_utyerror = 1;
_xudc_utyerrno = 0x15 ;
_xudc_utyerrno |= (0x0b<<8) ;
return(_XUDC_ERROR);
}
udc = NULL;
sprintf(buf, "fs%d.charset.udc_area", codeset-1);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
udc = (_XUDCGlyphRegion *)Xmalloc(count * sizeof(_XUDCGlyphRegion));
if(udc == NULL){
_xudc_utyerrno = 0x03 ;
_xudc_utyerrno |= (0x0b<<8) ;
return(_XUDC_ERROR);
}
for(i=0;i<count;i++){
sscanf(value[i],"\\x%lx,\\x%lx", &(udc[i].start), &(udc[i].end));
}
}
*num_gr = count;
sprintf(buf, "fs%d.font.primary", codeset-1);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
font_data = read_EncodingInfo(count,value);
for(i=0;i<count;i++){
if( !_XlcCompareISOLatin1(font_data[i].name,charset_str)){
for(j=0;j<(*num_gr);j++){
for(k=0;k<font_data[i].scopes_num;k++){
if(udc[j].start == font_data[i].scopes[k].start
&& font_data[i].scopes[k].shift){
shift_area(&udc[j],&(font_data[i].scopes[k]));
}
}
}
}
}
}
*gr = udc;
return 0;
}
static int
_xudc_gi_to_vgi(lcd,locale,charset_str,codeset,gi,vgi,charsetname,size)
XLCd lcd;
char *locale;
char *charset_str;
int codeset;
unsigned long gi;
unsigned long *vgi;
char *charsetname;
int size;
{
_XUDCGlyphRegion *udc;
int num = 0,count,num_ret=0;
int i,j,k;
char **value,buf[128],ptr;
FontData font_data;
sprintf(buf, "fs%d.charset.name", codeset-1);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
strcpy(charsetname,value[0]);
}
if (count >= size)
return False;
sprintf(buf, "fs%d.font.primary", codeset-1);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
font_data = read_EncodingInfo(count,value);
for(i=0;i<count;i++){
if( !_XlcCompareISOLatin1(font_data[i].name,charset_str)){
for(k=0;k<font_data[i].scopes_num;k++){
if( gi_to_vgi(gi,vgi,&(font_data[i].scopes[k])) == True){
return(True);
}
}
}
}
}
*vgi = gi;
return(True);
}
Bool non_standard(lcd,charset)
XLCd lcd;
XlcCharSet charset;
{
char buf[256];
int count,i;
char **value;
if(charset->ct_sequence == NULL){
return(False);
}
for(i=0;;i++){
sprintf(buf, "csd%d.charset_name", i);
_XlcGetLocaleDataBase(lcd, "XLC_CHARSET_DEFINE", buf, &value, &count);
if(count > 0){
if(!_XlcNCompareISOLatin1(value[0],
charset->name,strlen(value[0])) ){
return(True);
}
} else {
return(False);
}
}
}
static Bool
make_none_standard(from,charset,src,size)
char *from;
XlcCharSet charset;
char *src;
int size;
{
int name_len,seq_len,rest_len,i;
name_len = 2 + strlen(charset->encoding_name) + 1;
seq_len = strlen(charset->ct_sequence);
rest_len = strlen(charset->encoding_name) + 1 + strlen(src);
if (name_len + seq_len + strlen(src) >= size || rest_len >= 0x4000)
return False;
strcpy(from,charset->ct_sequence);
from[seq_len] = (rest_len >> 7) + 128;
from[seq_len+1] = (rest_len & 0x7f) + 128;
strcpy(&from[seq_len + 2],charset->encoding_name);
from[seq_len+name_len-1] = 0x02;
strcpy(&from[seq_len + name_len],src);
return True;
}
int
_xudc_glyph_to_code(locale,charset_str,codeset,glyph_index,codepoint)
char *locale;
char *charset_str;
int codeset;
unsigned long glyph_index;
unsigned long *codepoint;
{
XLCd lcd;
unsigned char *from; int from_left;
unsigned char *to ; int to_left = 10;
unsigned char *dst;
unsigned char byte;
unsigned long from32[25];
unsigned long to32[25];
int i,j;
char charsetname[256],src[10];
XlcConv conv;
XlcCharSet charset;
XPointer args[2];
from = (unsigned char *)from32;
to = (unsigned char *)to32;
dst = (unsigned char *)to32;
memset(dst,0,25);
lcd = (XLCd)_XlcGenericLoader(locale);
if (!_xudc_gi_to_vgi(lcd,locale,charset_str,codeset,
glyph_index,&glyph_index,charsetname,sizeof(charsetname)))
return(_XUDC_ERROR);
for(i=0,j=0;i<4;i++){
byte = getbyte(glyph_index,i);
if(byte){
src[j] = byte;
j ++;
}
}
src[j] = 0;
charset = _XlcGetCharSet(charsetname);
if(charset == NULL){
_xudc_utyerrno = 0x16 ;
return(_XUDC_ERROR);
}
if( non_standard(lcd,charset)) {
if (!make_none_standard(from,charset,src,sizeof(from32)))
return(_XUDC_ERROR);
} else if(charset->ct_sequence){
if (strlen(charset->ct_sequence) + strlen(src) >= sizeof(from32))
return(_XUDC_ERROR);
sprintf((char *)from,"%s%s",charset->ct_sequence,src);
} else {
sprintf((char *)from,"%s\0",src);
}
conv = _XlcOpenConverter(lcd, XlcNCompoundText, lcd, XlcNMultiByte);
from_left = strlen((char *)from);
_XlcConvert(conv,(XPointer *)&from,&from_left,
(XPointer *)&to, &to_left,args,0);
_XlcCloseConverter(conv);
_XlcDestroyLC(lcd);
*codepoint = 0;
for(i=0;dst[i];i++){
*codepoint = ((*codepoint << 8) | dst[i]) ;
}
return(0);
}
typedef struct __XUDCCodeRegion {
unsigned long start,end;
} _XUDCCodeRegion ;
int
_XUDCGetUDCCPArea(locale,codeset,charset_str,cr,num_cr)
char *locale;
int codeset;
char *charset_str;
_XUDCCodeRegion **cr;
int *num_cr;
{
int i,num_gr,ret;
_XUDCGlyphRegion *gr;
_XUDCCodeRegion *crr;
_xudc_utyerror = 0;
_xudc_utyderror = 0;
if(cr == NULL){
_xudc_utyerror = 5;
_xudc_utyderror = 1;
_xudc_utyerrno = 0x04 ;
_xudc_utyerrno |= (0x0a<<8) ;
return(_XUDC_ERROR);
}
if(num_cr == NULL){
_xudc_utyerror = 5;
_xudc_utyderror = 2;
_xudc_utyerrno = 0x04 ;
_xudc_utyerrno |= (0x0a<<8) ;
return(_XUDC_ERROR);
}
ret = _XUDCGetUDCGIArea(locale,codeset,charset_str,&gr,&num_gr);
if(ret == _XUDC_ERROR){
_xudc_utyerrno &= 0xff ;
_xudc_utyerrno |= (0x0a<<8) ;
return(ret);
}
crr = (_XUDCCodeRegion *)Xmalloc(num_gr*sizeof(_XUDCCodeRegion));
if(crr == NULL){
Xfree(gr);
_xudc_utyerrno = 0x03 ;
_xudc_utyerrno |= (0x0a<<8) ;
return(_XUDC_ERROR);
}
for(i=0;i<num_gr;i++){
ret = _xudc_glyph_to_code(locale,charset_str,codeset,
gr[i].start, &(crr[i].start));
if(ret == _XUDC_ERROR){
_xudc_utyerrno |= (0x0a<<8) ;
Xfree(gr);
Xfree(crr);
return(ret);
}
ret = _xudc_glyph_to_code(locale,charset_str,codeset,
gr[i].end, &(crr[i].end));
if(ret == _XUDC_ERROR){
_xudc_utyerrno |= (0x0a<<8) ;
Xfree(gr);
Xfree(crr);
return(ret);
}
}
Xfree(gr);
*cr = crr;
*num_cr = num_gr;
return(0);
}
typedef struct __XUDCGIInf {
char *charset_str;
unsigned long glyph_index;
} _XUDCGIInf ;
static Bool vgi_to_gi(gi,vgi,scope)
unsigned long *gi,vgi;
FontScope scope;
{
if(vgi >= scope->start && vgi <= scope->end){
if(scope->shift_direction == (unsigned long)'+'){
*gi = vgi + scope->shift;
} else {
*gi = vgi - scope->shift;
}
return(True);
}
return(False);
}
static Bool
_xudc_vgi_to_gi(lcd,locale,vglyph,glyph,charset,charsetname,size)
XLCd lcd;
char *locale;
unsigned long vglyph;
unsigned long *glyph;
XlcCharSet charset;
char *charsetname;
int size;
{
int num = 0,count,num_ret=0;
int i,j,k;
char **value,buf[128],ptr;
FontData font_data;
CodeSet cs;
for(i=0;;i++){
sprintf(buf, "fs%d.charset.name",i);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
if(!_XlcNCompareISOLatin1(charset->name,value[0],
strlen(charset->name))){
break;
}
} else {
_xudc_utyerrno = 0x17 ;
return(False);
}
}
sprintf(buf, "fs%d.font.primary", i);
_XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
if(count > 0){
font_data = read_EncodingInfo(count,value);
for(i=0;i<count;i++){
for(k=0;k<font_data[i].scopes_num;k++){
if( vgi_to_gi(glyph,vglyph,&(font_data[i].scopes[k])) == True){
if (strlen(font_data[i].name) >= size)
return(False);
strcpy(charsetname,font_data[i].name);
return(True);
}
}
}
}
*glyph = vglyph;
return(True);
}
int
_xudc_code_to_glyph(locale,codepoint,gi,num_gi)
char *locale;
unsigned long codepoint;
_XUDCGIInf **gi;
int *num_gi;
{
XLCd lcd;
unsigned char *from; int from_left;
unsigned char *to ; int to_left = 10;
unsigned char *dst;
unsigned char byte;
unsigned int from32[25];
unsigned int to32[25];
int i,j;
char charsetname[256],src[10];
XlcConv conv;
XlcCharSet charset;
XPointer args[2];
unsigned long glyph,vglyph;
from = (unsigned char *)from32;
to = (unsigned char *)to32;
dst = (unsigned char *)to32;
memset(dst,0,25);
lcd = (XLCd)_XlcGenericLoader(locale);
for(i=0,j=0;i<4;i++){
byte = getbyte(codepoint,i);
if(byte){
src[j] = byte;
j ++;
}
}
src[j] = 0;
sprintf((char *)from,"%s\0",src);
conv = _XlcOpenConverter(lcd, XlcNMultiByte, lcd, XlcNCharSet);
from_left = strlen((char *)from);
args[0] = (XPointer) &charset;
_XlcConvert(conv,(XPointer *)&from,&from_left,
(XPointer *)&to, &to_left,args,1);
vglyph = 0;
for(i=0;dst[i];i++){
vglyph = ((vglyph << 8) | dst[i]) ;
}
if(_xudc_vgi_to_gi(lcd,locale,vglyph,&glyph,charset,charsetname,
sizeof(charsetname))==False){
_XlcCloseConverter(conv);
_XlcDestroyLC(lcd);
*num_gi = 0;
return(0);
}
_XlcCloseConverter(conv);
_XlcDestroyLC(lcd);
*gi = (_XUDCGIInf *)Xmalloc(sizeof(_XUDCGIInf));
(*gi)->charset_str = (char *)Xmalloc(strlen(charsetname)+1);
strcpy((*gi)->charset_str,charsetname);
(*gi)->glyph_index = glyph;
if(*gi == NULL){
_xudc_utyerrno = 0x03 ;
return(_XUDC_ERROR);
}
*num_gi = 1;
return(0);
}