dos -> unix

1 files changed, 716 insertions, 716 deletions

diff --git a/libX11/src/udcInf.c b/libX11/src/udcInf.c
index 7eb18ea7e..db7ad10f3 100644
--- a/libX11/src/udcInf.c
+++ b/libX11/src/udcInf.c
@@ -1,716 +1,716 @@
-/*

-Copyright 1996, 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 1995 by FUJITSU LIMITED

- * This is source code modified by FUJITSU LIMITED under the Joint

- * Development Agreement for the CDE/Motif PST.

- *

- * Modifier: Takanori Tateno   FUJITSU LIMITED

- *

- */

-

-

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

-

-/*

-   external symbols

-*/

-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

-

-

-/*

-    UDC structure define

-*/

-typedef struct __XUDCGlyphRegion {

-    unsigned long  start;

-    unsigned long  end;

-} _XUDCGlyphRegion ;

-

-/*

- *  "code" no jyoui "i" byte me wo "unsigned char" toshite kaesu.

- */

-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);

-}

-/*

-    get codeset which described by charset_str and locale.

-    for examples ...

-    locale          :  ja_JP

-    charset_str     :  JISX0208.1983-0

-*/

-

-_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);

-    }

-

-    /*    create XLCd     */

-    xlcdp.pub.siname = locale;

-    lcdrec.core = (XLCdCore)&xlcdp;

-    lcd = &lcdrec;

-        /* create X RDB (X NLS DB) */

-    rdb = _XlcCreateLocaleDataBase(lcd);

-    if(rdb == NULL){

-        _xudc_utyerror = 1;

-	_xudc_utyerrno = 0x15 ;

-        return(_XUDC_ERROR);

-    }

-

-    for(num=0;;num++){

-        /* XLC_FONTSET */

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

-    }

-}

-

-/*

-    get UDC area with glyph index.

-    for examples ...

-    locale          :  ja_JP

-    charset_str     :  JISX0208.1983-0

-*/

-_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);

-    }

-

-        /* create XLCd */

-    xlcdp.pub.siname = locale;

-    lcdrec.core = (XLCdCore)&xlcdp;

-    lcd = &lcdrec;

-        /* create X RDB (X NLS DB) */

-    rdb = _XlcCreateLocaleDataBase(lcd);

-    if(rdb == NULL){

-        _xudc_utyerror = 1;

-	_xudc_utyerrno = 0x15 ;

-	_xudc_utyerrno |= (0x0b<<8) ;

-        return(_XUDC_ERROR);

-    }

-    udc = NULL;

-

-        /* XLC_FONTSET */

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

-}

-

-/*

- *      Code convert wo tomonau UDC area no kakutoku

- *      GetUDCCPArea() / glyph_to_code()

- *

- */

-

-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);

-                    }

-	        }

-	    }

-        }

-    }

-/*

-    free_fontdata(font_data);

-*/

-    *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;  /* STX */

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

-

-

-    /* get charset */

-/*

-    sprintf(tmp,"%s%s",charset_str,":GL");

-    charset_name = strdup(tmp);

-*/

-    charset = _XlcGetCharSet(charsetname);

-    if(charset == NULL){

-	_xudc_utyerrno = 0x16 ;

-	return(_XUDC_ERROR);

-    }

-    /* make ct */

-    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);

-    }

-    /* compound text -> multi byte */

-    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);

-}

-

-/*

- *    code_to_glyph()

- *

- */

-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.charset.name", codeset-1);

-    _XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);

-    if(count > 0){

-        strcpy(charsetname,value[0]);

-    }

-*/

-    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);

-    /* multi byte -> vgi */

-    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);

-

-    /* vgi -> gi */

-    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);

-}

-

+/*
+Copyright 1996, 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 1995 by FUJITSU LIMITED
+ * This is source code modified by FUJITSU LIMITED under the Joint
+ * Development Agreement for the CDE/Motif PST.
+ *
+ * Modifier: Takanori Tateno   FUJITSU LIMITED
+ *
+ */
+
+
+#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>
+
+/*
+   external symbols
+*/
+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
+
+
+/*
+    UDC structure define
+*/
+typedef struct __XUDCGlyphRegion {
+    unsigned long  start;
+    unsigned long  end;
+} _XUDCGlyphRegion ;
+
+/*
+ *  "code" no jyoui "i" byte me wo "unsigned char" toshite kaesu.
+ */
+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);
+}
+/*
+    get codeset which described by charset_str and locale.
+    for examples ...
+    locale          :  ja_JP
+    charset_str     :  JISX0208.1983-0
+*/
+
+_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);
+    }
+
+    /*    create XLCd     */
+    xlcdp.pub.siname = locale;
+    lcdrec.core = (XLCdCore)&xlcdp;
+    lcd = &lcdrec;
+        /* create X RDB (X NLS DB) */
+    rdb = _XlcCreateLocaleDataBase(lcd);
+    if(rdb == NULL){
+        _xudc_utyerror = 1;
+	_xudc_utyerrno = 0x15 ;
+        return(_XUDC_ERROR);
+    }
+
+    for(num=0;;num++){
+        /* XLC_FONTSET */
+        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;
+    }
+}
+
+/*
+    get UDC area with glyph index.
+    for examples ...
+    locale          :  ja_JP
+    charset_str     :  JISX0208.1983-0
+*/
+_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);
+    }
+
+        /* create XLCd */
+    xlcdp.pub.siname = locale;
+    lcdrec.core = (XLCdCore)&xlcdp;
+    lcd = &lcdrec;
+        /* create X RDB (X NLS DB) */
+    rdb = _XlcCreateLocaleDataBase(lcd);
+    if(rdb == NULL){
+        _xudc_utyerror = 1;
+	_xudc_utyerrno = 0x15 ;
+	_xudc_utyerrno |= (0x0b<<8) ;
+        return(_XUDC_ERROR);
+    }
+    udc = NULL;
+
+        /* XLC_FONTSET */
+        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;
+}
+
+/*
+ *      Code convert wo tomonau UDC area no kakutoku
+ *      GetUDCCPArea() / glyph_to_code()
+ *
+ */
+
+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);
+                    }
+	        }
+	    }
+        }
+    }
+/*
+    free_fontdata(font_data);
+*/
+    *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;  /* STX */
+    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;
+
+
+    /* get charset */
+/*
+    sprintf(tmp,"%s%s",charset_str,":GL");
+    charset_name = strdup(tmp);
+*/
+    charset = _XlcGetCharSet(charsetname);
+    if(charset == NULL){
+	_xudc_utyerrno = 0x16 ;
+	return(_XUDC_ERROR);
+    }
+    /* make ct */
+    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);
+    }
+    /* compound text -> multi byte */
+    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);
+}
+
+/*
+ *    code_to_glyph()
+ *
+ */
+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.charset.name", codeset-1);
+    _XlcGetLocaleDataBase(lcd, "XLC_FONTSET", buf, &value, &count);
+    if(count > 0){
+        strcpy(charsetname,value[0]);
+    }
+*/
+    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);
+    /* multi byte -> vgi */
+    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);
+
+    /* vgi -> gi */
+    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);
+}
+