430 lines
7.2 KiB
C
430 lines
7.2 KiB
C
/*
|
|
* Copyright (c) 1994 Sony Corporation
|
|
*
|
|
* Permission is hereby granted, free of charge, to any person obtaining
|
|
* a copy of this software and associated documentation files (the
|
|
* "Software"), to deal in the Software without restriction, including
|
|
* without limitation the rights to use, copy, modify, merge, publish,
|
|
* distribute, sublicense, and/or sell copies of the Software, and to
|
|
* permit persons to whom the Software is furnished to do so, subject to
|
|
* the following conditions:
|
|
*
|
|
* 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 SONY CORPORATION 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 Sony Corporation
|
|
* shall not be used in advertising or otherwise to promote the sale, use
|
|
* or other dealings in this Software without prior written authorization
|
|
* from Sony Corporation.
|
|
*
|
|
*/
|
|
|
|
#include "sj_sysvdef.h"
|
|
#include <stdio.h>
|
|
#include <locale.h>
|
|
#include "sj_euc.h"
|
|
#include "wchar16.h"
|
|
#if defined(__sony_news) && defined(SVR4)
|
|
#include <sonyils.h>
|
|
#endif
|
|
|
|
#define MSB 0x80
|
|
|
|
#ifndef TRUE
|
|
#define TRUE (1)
|
|
#define FALSE (0)
|
|
#endif
|
|
|
|
#ifndef __sony_news
|
|
#define sjis2euc sj3_sjis2euc
|
|
#define euc2sjis sj3_euc2sjis
|
|
|
|
#define issjis1(c) (((0x81 <= (c)) && ((c) <= 0x9f)) || \
|
|
((0xe0 <= (c)) && ((c) <= 0xfc)))
|
|
#define iseuc(c) ((0xa1 <= (c)) && ((c) <= 0xfe))
|
|
#define iskana(c) ((0xa1 <= (c)) && ((c) <= 0xdf))
|
|
#endif
|
|
|
|
extern int current_locale;
|
|
|
|
int sj3_iswcntrl16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
if((wc < 0x20) || (wc == 0x7f)) return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
int sj3_iswupper16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
if(((0x40 < wc) && (wc < 0x5b)) ||
|
|
((0xa3c0 < wc) && (wc < 0xa3db))) return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
int sj3_iswdigit16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
if(((0x29 < wc) && (wc < 0x3a)) ||
|
|
((0xa3af < wc) && (wc < 0xa3ba))) return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
int sj3_iswxdigit16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
if(((0x29 < wc) && (wc < 0x3a)) ||
|
|
((0xa3af < wc) && (wc < 0xa3ba))) return TRUE;
|
|
|
|
if(((0x60 < wc) && (wc < 0x67)) ||
|
|
((0x40 < wc) && (wc < 0x47))) return TRUE;
|
|
|
|
if(((0xa3c0 < wc) && (wc < 0xa3c7)) ||
|
|
((0xa3e0 < wc) && (wc < 0xa3e6))) return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
int sj3_wslen16(ws)
|
|
wchar16_t* ws;
|
|
{
|
|
int i = 0;
|
|
|
|
if(!ws) return 0;
|
|
|
|
while(*ws++) i++;
|
|
return i;
|
|
}
|
|
|
|
int sj3_wscmp16(ws1, ws2)
|
|
wchar16_t *ws1, *ws2;
|
|
{
|
|
while((*ws1 && *ws2) && (*ws1 == *ws2)) {
|
|
ws1++;
|
|
ws2++;
|
|
}
|
|
if(!*ws1 && !*ws2) return 0;
|
|
if(!*ws1) return -1;
|
|
if(!*ws2) return 1;
|
|
if(*ws1 < *ws2) return -1;
|
|
return 1;
|
|
}
|
|
|
|
int sj3_wsncmp16(ws1, ws2, n)
|
|
wchar16_t *ws1, *ws2;
|
|
int n;
|
|
{
|
|
int i = 0;
|
|
|
|
while((*ws1 && *ws2) && (*ws1 == *ws2) && (i < n)) {
|
|
ws1++;
|
|
ws2++;
|
|
i++;
|
|
}
|
|
if(!*ws1 && !*ws2) return 0;
|
|
if(i == n) return 0;
|
|
if(!*ws1) return -1;
|
|
if(!*ws2) return 1;
|
|
if(*ws1 < *ws2) return -1;
|
|
return 1;
|
|
}
|
|
|
|
wchar16_t*
|
|
sj3_wscpy16(ws1, ws2)
|
|
wchar16_t *ws1, *ws2;
|
|
{
|
|
wchar16_t* ws;
|
|
|
|
if(!ws2) return NULL;
|
|
ws = ws1;
|
|
while(*ws2) {
|
|
*ws++ = *ws2++;
|
|
}
|
|
*ws = 0;
|
|
|
|
return ws1;
|
|
}
|
|
|
|
wchar16_t*
|
|
sj3_wsncpy16(ws1, ws2, n)
|
|
wchar16_t *ws1, *ws2;
|
|
int n;
|
|
{
|
|
wchar16_t* ws;
|
|
int i = 0;
|
|
|
|
if(!ws2) return NULL;
|
|
ws = ws1;
|
|
while(*ws2 && (i < n)) {
|
|
*ws++ = *ws2++;
|
|
i++;
|
|
}
|
|
if(i < n) *ws = 0;
|
|
|
|
return ws1;
|
|
}
|
|
|
|
wchar16_t*
|
|
sj3_wscat16(ws1, ws2)
|
|
wchar16_t *ws1, *ws2;
|
|
{
|
|
wchar16_t* ws;
|
|
|
|
if(!ws1) return NULL;
|
|
if(!ws2) return NULL;
|
|
|
|
ws = ws1;
|
|
|
|
while(*ws) ws++;
|
|
while(*ws2) {
|
|
*ws++ = *ws2++;
|
|
}
|
|
*ws = 0;
|
|
|
|
return ws1;
|
|
}
|
|
|
|
wchar16_t
|
|
sj3_euc2wc16(code)
|
|
unsigned int code;
|
|
{
|
|
wchar16_t wc = 0;
|
|
|
|
if(((code >> 16) & 0xff) == SS3) {
|
|
wc = code & 0xff7f;
|
|
} else if(((code >> 8) & 0xff) == SS2) {
|
|
wc = code & 0xff;
|
|
} else {
|
|
wc = code;
|
|
}
|
|
|
|
return wc;
|
|
}
|
|
|
|
wchar16_t
|
|
sj3_sjis2wc16(code)
|
|
unsigned int code;
|
|
{
|
|
unsigned short ch;
|
|
|
|
if((code >> 8) & 0xff) {
|
|
ch = sjis2euc(code);
|
|
} else if(code & MSB) {
|
|
ch = (SS2 << 8) + (code & 0xff);
|
|
} else {
|
|
return code;
|
|
}
|
|
return (sj3_euc2wc16(ch));
|
|
}
|
|
|
|
unsigned int
|
|
sj3_wc2euc16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
unsigned int code = 0;
|
|
unsigned char tmp;
|
|
|
|
tmp = (wc >> 8) & 0xff;
|
|
if(tmp) {
|
|
if(wc & MSB) {
|
|
code = wc;
|
|
} else {
|
|
code = (SS3 << 16) + wc + MSB;
|
|
}
|
|
} else {
|
|
if(wc & MSB) {
|
|
code = (SS2 << 8) + wc;
|
|
} else {
|
|
code = wc;
|
|
}
|
|
}
|
|
|
|
return code;
|
|
}
|
|
|
|
unsigned int
|
|
sj3_wc2sjis16(wc)
|
|
wchar16_t wc;
|
|
{
|
|
unsigned int ch;
|
|
|
|
ch = sj3_wc2euc16(wc);
|
|
if((ch >> 16) == SS3) {
|
|
return 0;
|
|
} else if((ch >> 8) == SS2) {
|
|
return (ch & 0xff);
|
|
} else if((ch >> 8) & 0xff) {
|
|
return euc2sjis(ch);
|
|
} else {
|
|
return wc;
|
|
}
|
|
}
|
|
|
|
int sj3_wcs2eucs16(mb, ws, n)
|
|
unsigned char* mb;
|
|
wchar16_t* ws;
|
|
int n;
|
|
{
|
|
int i = 0;
|
|
unsigned int code;
|
|
unsigned char c;
|
|
|
|
while(*ws && (i < n)) {
|
|
code = sj3_wc2euc16(*ws);
|
|
if(c = ((code >> 16) & 0xff)) {
|
|
*mb++ = c;
|
|
i++;
|
|
if(i == n) break;
|
|
*mb++ = ((code >> 8) & 0xff);
|
|
i++;
|
|
if(i == n) break;
|
|
*mb++ = code & 0xff;
|
|
i++;
|
|
if(i == n) break;
|
|
} else if(c = ((code >> 8) & 0xff)) {
|
|
*mb++ = c;
|
|
i++;
|
|
if(i == n) break;
|
|
*mb++ = code & 0xff;
|
|
i++;
|
|
if(i == n) break;
|
|
} else if(c = (code & 0xff)) {
|
|
*mb++ = c;
|
|
i++;
|
|
} else {
|
|
return -1;
|
|
}
|
|
ws++;
|
|
}
|
|
|
|
if(!*ws) {
|
|
*mb = '\0';
|
|
}
|
|
|
|
return i;
|
|
}
|
|
|
|
int sj3_wcs2sjiss16(mb, ws, n)
|
|
unsigned char* mb;
|
|
wchar16_t* ws;
|
|
int n;
|
|
{
|
|
int i = 0;
|
|
unsigned int code;
|
|
unsigned char c;
|
|
|
|
while(*ws && (i < n)) {
|
|
code = sj3_wc2sjis16(*ws);
|
|
if(c = ((code >> 8) & 0xff)) {
|
|
*mb++ = c;
|
|
i++;
|
|
if(i == n) break;
|
|
*mb++ = code & 0xff;
|
|
i++;
|
|
if(i == n) break;
|
|
} else if(c = (code & 0xff)) {
|
|
*mb++ = c;
|
|
i++;
|
|
} else {
|
|
return -1;
|
|
}
|
|
ws++;
|
|
}
|
|
|
|
if(!*ws) {
|
|
*mb = '\0';
|
|
}
|
|
|
|
return i;
|
|
}
|
|
|
|
int sj3_eucs2wcs16(ws, mb, n)
|
|
wchar16_t* ws;
|
|
unsigned char* mb;
|
|
int n;
|
|
{
|
|
int i = 0;
|
|
unsigned int code;
|
|
|
|
while(*mb && (i < n)) {
|
|
if(*mb == SS3) {
|
|
code = *mb++ << 16;
|
|
code += *mb++ << 8;
|
|
code += *mb++;
|
|
} else if((*mb == SS2) || (*mb & 0x80)) {
|
|
code = *mb++ << 8;
|
|
code += *mb++;
|
|
} else {
|
|
code = *mb++;
|
|
}
|
|
*ws = sj3_euc2wc16(code);
|
|
if(!*ws) return -1;
|
|
ws++;
|
|
i++;
|
|
}
|
|
if(!*mb) {
|
|
*ws = 0;
|
|
}
|
|
|
|
return i;
|
|
}
|
|
|
|
int sj3_sjiss2wcs16(ws, mb, n)
|
|
wchar16_t* ws;
|
|
unsigned char* mb;
|
|
int n;
|
|
{
|
|
int i = 0;
|
|
unsigned int code;
|
|
|
|
while(*mb && (i < n)) {
|
|
if(issjis1(*mb)) {
|
|
code = *mb++ << 8;
|
|
code += *mb++;
|
|
} else {
|
|
code = *mb++;
|
|
}
|
|
*ws = sj3_sjis2wc16(code);
|
|
if(!*ws) return -1;
|
|
ws++;
|
|
i++;
|
|
}
|
|
if(!*mb) {
|
|
*ws = 0;
|
|
}
|
|
|
|
return i;
|
|
}
|
|
|
|
int sj3_mbstowcs16(ws, mb, n)
|
|
wchar16_t* ws;
|
|
unsigned char* mb;
|
|
int n;
|
|
{
|
|
if(current_locale == LC_CTYPE_EUC)
|
|
return sj3_eucs2wcs16(ws, mb, n);
|
|
else
|
|
return sj3_sjiss2wcs16(ws, mb, n);
|
|
}
|
|
|
|
int sj3_wcstombs16(mb, ws, n)
|
|
unsigned char* mb;
|
|
wchar16_t* ws;
|
|
int n;
|
|
{
|
|
if(current_locale == LC_CTYPE_EUC)
|
|
return sj3_wcs2eucs16(mb, ws, n);
|
|
else
|
|
return sj3_wcs2sjiss16(mb, ws, n);
|
|
}
|