sj3lib: KNF
Formatter: knfmt 4.2.0 Signed-off-by: Masanori Ogino <mogino@acm.org>
This commit is contained in:
Masanori Ogino
parent
b2ee9feb0c
commit
e00547f414
4 changed files with 1182 additions and 1097 deletions
298
sj3lib/string.c
298
sj3lib/string.c
|
|
@ -1,8 +1,8 @@
|
|||
/*-
|
||||
* SPDX-License-Identifier: MIT-open-group
|
||||
*
|
||||
*
|
||||
* 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
|
||||
|
|
@ -10,10 +10,10 @@
|
|||
* 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.
|
||||
|
|
@ -21,7 +21,7 @@
|
|||
* 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
|
||||
|
|
@ -51,24 +51,27 @@
|
|||
#define iskana(c) ((0xa1 <= (c)) && ((c) <= 0xdf))
|
||||
|
||||
int
|
||||
sj3_str_sjistoeuc(unsigned char *out, int outlen, unsigned char *in, unsigned char *sjis_default, int *useflag)
|
||||
sj3_str_sjistoeuc(unsigned char *out, int outlen, unsigned char *in,
|
||||
unsigned char *sjis_default, int *useflag)
|
||||
{
|
||||
unsigned char *sjis = in, *euc = out;
|
||||
int n = 0;
|
||||
unsigned short code, default_code;
|
||||
unsigned char *sjis = in, *euc = out;
|
||||
int n = 0;
|
||||
unsigned short code, default_code;
|
||||
|
||||
euc[0] = '\0';
|
||||
*useflag = 0;
|
||||
|
||||
if (!sjis) return 0;
|
||||
|
||||
if (!sjis)
|
||||
return 0;
|
||||
|
||||
while (*sjis && n < outlen) {
|
||||
if (issjis1(*sjis)) {
|
||||
code = sjis2euc( (*sjis << 8) | *(sjis+1) );
|
||||
if (n + 2 > outlen) return -1;
|
||||
if (code == 0) {
|
||||
default_code = sjis2euc((sjis_default[0] << 8)
|
||||
| sjis_default[1]);
|
||||
code = sjis2euc((*sjis << 8) | *(sjis + 1));
|
||||
if (n + 2 > outlen)
|
||||
return -1;
|
||||
if (code == 0) {
|
||||
default_code = sjis2euc((sjis_default[0] << 8) |
|
||||
sjis_default[1]);
|
||||
euc[n++] = default_code >> 8;
|
||||
euc[n++] = default_code & 0xff;
|
||||
(*useflag)++;
|
||||
|
|
@ -78,38 +81,41 @@ sj3_str_sjistoeuc(unsigned char *out, int outlen, unsigned char *in, unsigned ch
|
|||
}
|
||||
sjis += 2;
|
||||
} else {
|
||||
if( *sjis >= 0xa1 && *sjis <= 0xdf ) {
|
||||
if (n + 2 > outlen) return -1;
|
||||
euc[n++] = SS2;
|
||||
if (*sjis >= 0xa1 && *sjis <= 0xdf) {
|
||||
if (n + 2 > outlen)
|
||||
return -1;
|
||||
euc[n++] = SS2;
|
||||
}
|
||||
euc[n++] = *sjis;
|
||||
sjis++;
|
||||
}
|
||||
|
||||
}
|
||||
if (n > outlen) return -1;
|
||||
|
||||
if (n > outlen)
|
||||
return -1;
|
||||
|
||||
euc[n] = '\0';
|
||||
return n;
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
sj3_str_euctosjis(unsigned char *out, int outlen, unsigned char *in, unsigned char *sjis_default, int *useflag)
|
||||
sj3_str_euctosjis(unsigned char *out, int outlen, unsigned char *in,
|
||||
unsigned char *sjis_default, int *useflag)
|
||||
{
|
||||
unsigned char *euc = in, *sjis = out;
|
||||
int n = 0;
|
||||
unsigned short code, default_code;
|
||||
unsigned char *euc = in, *sjis = out;
|
||||
int n = 0;
|
||||
unsigned short code, default_code;
|
||||
|
||||
sjis[0] = '\0';
|
||||
*useflag = 0;
|
||||
|
||||
if (!euc) return 0;
|
||||
if (!euc)
|
||||
return 0;
|
||||
|
||||
while (*euc && n < outlen) {
|
||||
if (iseuc(*euc)) {
|
||||
code = euc2sjis( (*euc << 8) | *(euc+1) );
|
||||
if (n + 2 > outlen) return -1;
|
||||
code = euc2sjis((*euc << 8) | *(euc + 1));
|
||||
if (n + 2 > outlen)
|
||||
return -1;
|
||||
if (code == 0) {
|
||||
sjis[n++] = sjis_default[0];
|
||||
sjis[n++] = sjis_default[1];
|
||||
|
|
@ -120,7 +126,8 @@ sj3_str_euctosjis(unsigned char *out, int outlen, unsigned char *in, unsigned ch
|
|||
}
|
||||
euc += 2;
|
||||
} else if (*euc == SS3) {
|
||||
if (n + 2 > outlen) return -1;
|
||||
if (n + 2 > outlen)
|
||||
return -1;
|
||||
sjis[n++] = sjis_default[0];
|
||||
sjis[n++] = sjis_default[1];
|
||||
euc += 3;
|
||||
|
|
@ -133,195 +140,196 @@ sj3_str_euctosjis(unsigned char *out, int outlen, unsigned char *in, unsigned ch
|
|||
euc++;
|
||||
}
|
||||
}
|
||||
if (n > outlen) return -1;
|
||||
if (n > outlen)
|
||||
return -1;
|
||||
|
||||
sjis[n] = '\0';
|
||||
return n;
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
sj3_sjistoeuclen(unsigned char *str, int max)
|
||||
{
|
||||
register int len = 0, bytes = 1;
|
||||
int len = 0, bytes = 1;
|
||||
|
||||
if (!max) return 0;
|
||||
if (!max)
|
||||
return 0;
|
||||
while ((bytes <= max) && *str) {
|
||||
if (issjis1(*str)) {
|
||||
str++;
|
||||
bytes++;
|
||||
if (!*str) break;
|
||||
len += 2;
|
||||
str++;
|
||||
bytes++;
|
||||
if (!*str)
|
||||
break;
|
||||
len += 2;
|
||||
} else if (*str & 0x80) {
|
||||
len += 2;
|
||||
} else {
|
||||
len++;
|
||||
len++;
|
||||
}
|
||||
str++;
|
||||
bytes++;
|
||||
str++;
|
||||
bytes++;
|
||||
}
|
||||
return len;
|
||||
return len;
|
||||
}
|
||||
|
||||
|
||||
#define MASK 0x7f
|
||||
#define MSB 0x80
|
||||
|
||||
static unsigned char def_char[] = {0x81, 0x40};
|
||||
static unsigned char def_char[] = {0x81, 0x40};
|
||||
|
||||
int
|
||||
int
|
||||
sj3_sjistoeuc(unsigned char *e, int elen, unsigned char *s, int slen)
|
||||
{
|
||||
int dummy;
|
||||
int dummy;
|
||||
|
||||
return sj3_str_sjistoeuc(e, elen, s, def_char, &dummy);
|
||||
}
|
||||
|
||||
int
|
||||
int
|
||||
sj3_euctosjis(unsigned char *s, int slen, unsigned char *e, int elen)
|
||||
{
|
||||
int dummy;
|
||||
int dummy;
|
||||
|
||||
return sj3_str_euctosjis(s, slen, e, def_char, &dummy);
|
||||
}
|
||||
|
||||
void
|
||||
sj_euc2sjis (unsigned char *s)
|
||||
sj_euc2sjis(unsigned char *s)
|
||||
{
|
||||
s[0] &= MASK;
|
||||
s[1] &= MASK;
|
||||
sj_jis2sjis (s);
|
||||
s[0] &= MASK;
|
||||
s[1] &= MASK;
|
||||
sj_jis2sjis(s);
|
||||
}
|
||||
|
||||
void
|
||||
sj_jis2sjis (unsigned char *s)
|
||||
sj_jis2sjis(unsigned char *s)
|
||||
{
|
||||
register int high, low;
|
||||
register int nh, nl;
|
||||
int high, low;
|
||||
int nh, nl;
|
||||
|
||||
high = s[0];
|
||||
low = s[1];
|
||||
nh = ((high - 0x21) >> 1) + 0x81;
|
||||
if (nh > 0x9f)
|
||||
nh += 0x40;
|
||||
high = s[0];
|
||||
low = s[1];
|
||||
nh = ((high - 0x21) >> 1) + 0x81;
|
||||
if (nh > 0x9f)
|
||||
nh += 0x40;
|
||||
if (high & 1) {
|
||||
nl = low + 0x1f;
|
||||
if (low > 0x5f)
|
||||
nl ++;
|
||||
nl = low + 0x1f;
|
||||
if (low > 0x5f)
|
||||
nl++;
|
||||
} else
|
||||
nl = low + 0x7e;
|
||||
s[0] = nh;
|
||||
s[1] = nl;
|
||||
}
|
||||
|
||||
void
|
||||
sj_sjis2euc(unsigned char *s)
|
||||
{
|
||||
sj_sjis2jis(s);
|
||||
s[0] |= MSB;
|
||||
s[1] |= MSB;
|
||||
}
|
||||
|
||||
void
|
||||
sj_sjis2jis(unsigned char *s)
|
||||
{
|
||||
int byte1, byte2;
|
||||
unsigned char *sp;
|
||||
|
||||
sp = s;
|
||||
byte1 = *sp++;
|
||||
byte2 = *sp--;
|
||||
|
||||
if (byte1 <= 0x80 || byte1 >= 0xf0 ||
|
||||
(byte1 >= 0xa0 && byte1 <= 0xdf) ||
|
||||
byte2 <= 0x3f || byte2 >= 0xfe || byte2 == 0x7f) {
|
||||
byte1 = 0x81;
|
||||
byte2 = 0x40;
|
||||
}
|
||||
else
|
||||
nl = low + 0x7e;
|
||||
s[0] = nh;
|
||||
s[1] = nl;
|
||||
}
|
||||
|
||||
void
|
||||
sj_sjis2euc (unsigned char *s)
|
||||
{
|
||||
sj_sjis2jis (s);
|
||||
s[0] |= MSB;
|
||||
s[1] |= MSB;
|
||||
}
|
||||
|
||||
void
|
||||
sj_sjis2jis (unsigned char *s)
|
||||
{
|
||||
register int byte1, byte2;
|
||||
register unsigned char *sp;
|
||||
|
||||
sp = s;
|
||||
byte1 = *sp++;
|
||||
byte2 = *sp--;
|
||||
|
||||
if (byte1 <= 0x80 || byte1 >= 0xf0
|
||||
|| ( byte1>=0xa0 && byte1<=0xdf )
|
||||
|| byte2 <= 0x3f || byte2 >= 0xfe || byte2==0x7f ) {
|
||||
byte1 = 0x81;
|
||||
byte2 = 0x40;
|
||||
}
|
||||
byte1 -= (byte1 >= 0xa0) ? 0xc1 : 0x81;
|
||||
byte1 -= (byte1 >= 0xa0) ? 0xc1 : 0x81;
|
||||
if (byte2 >= 0x9f) {
|
||||
*sp++ = (byte1 << 1) + 0x22;
|
||||
*sp = byte2 - 0x7e;
|
||||
}
|
||||
else {
|
||||
*sp++ = (byte1 << 1) + 0x21;
|
||||
*sp = byte2 - ((byte2 <= 0x7e) ? 0x1f : 0x20 );
|
||||
*sp++ = (byte1 << 1) + 0x22;
|
||||
*sp = byte2 - 0x7e;
|
||||
} else {
|
||||
*sp++ = (byte1 << 1) + 0x21;
|
||||
*sp = byte2 - ((byte2 <= 0x7e) ? 0x1f : 0x20);
|
||||
}
|
||||
}
|
||||
|
||||
unsigned short
|
||||
sj3_jis2sjis(unsigned short code)
|
||||
{
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
sj_jis2sjis((unsigned char *) tmp);
|
||||
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
|
||||
return(code);
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
sj_jis2sjis((unsigned char *)tmp);
|
||||
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
|
||||
return (code);
|
||||
}
|
||||
|
||||
unsigned short
|
||||
sj3_jis2euc(unsigned short code)
|
||||
{
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
code = ((tmp[0] | 0x80) << 8) + (tmp[1] | 0x80);
|
||||
|
||||
return(code);
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
code = ((tmp[0] | 0x80) << 8) + (tmp[1] | 0x80);
|
||||
|
||||
return (code);
|
||||
}
|
||||
|
||||
unsigned short
|
||||
sj3_sjis2jis(unsigned short code)
|
||||
{
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
unsigned char tmp[3];
|
||||
|
||||
sj_sjis2jis((unsigned char *) tmp);
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
sj_sjis2jis((unsigned char *)tmp);
|
||||
|
||||
return(code);
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
|
||||
return (code);
|
||||
}
|
||||
|
||||
unsigned short
|
||||
sj3_euc2sjis(unsigned short code)
|
||||
{
|
||||
unsigned char tmp[3];
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
sj_euc2sjis((unsigned char *) tmp);
|
||||
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
sj_euc2sjis((unsigned char *)tmp);
|
||||
|
||||
return(code);
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
|
||||
return (code);
|
||||
}
|
||||
|
||||
unsigned short
|
||||
sj3_sjis2euc(unsigned short code)
|
||||
{
|
||||
unsigned char tmp[3];
|
||||
unsigned char tmp[3];
|
||||
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
tmp[0] = (code >> 8) & 0xff;
|
||||
tmp[1] = code & 0xff;
|
||||
tmp[2] = '\0';
|
||||
|
||||
sj_sjis2euc((unsigned char *) tmp);
|
||||
sj_sjis2euc((unsigned char *)tmp);
|
||||
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
code = (tmp[0] << 8) + tmp[1];
|
||||
|
||||
return(code);
|
||||
}
|
||||
return (code);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue