import

lib/sj3rkcv/Makefile.am

@@ -0,0 +1,21 @@
+if BUILDABLE_SJ3DEMO
+
+EXTRA_DIST = sjrk sj3rkcv.h
+
+INCLUDES = \
+	-I$(top_srcdir)/include/sj3compat \
+	-I$(top_srcdir)/include/sj3comon \
+	-I$(top_srcdir)/include/sj3rkcv
+
+noinst_LTLIBRARIES = libsj3rkcv.la
+
+libsj3rkcv_la_SOURCES = \
+	rk_conv.c \
+	sj3_rkcv.c \
+	wc16_str.c
+
+rkdir = $(SJ3SYSCONFDIR)
+
+rk_DATA = sjrk
+
+endif

lib/sj3rkcv/sj3_rkcv.c

@@ -0,0 +1,840 @@
+/*
+ * 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.
+ *
+ */
+
+/*
+ * $SonyRCSfile: sj3_rkcv.c,v $  
+ * $SonyRevision: 1.3 $ 
+ * $SonyDate: 1995/02/10 06:02:25 $
+ */
+
+
+#include <stdlib.h>
+#include <string.h>
+
+#include "wchar16.h"
+#include "kana.h"
+#include "rk.h"
+#include "kctype.h"
+
+#include "sj3rkcv.h"
+
+#if defined(__sony_news) && (SVR4)
+#define wscmp sj3_wscmp16
+#define wsncmp sj3_wsncmp16
+#define wsncpy sj3_wsncpy16
+#define wscpy sj3_wscpy16
+#define wslen sj3_wslen16
+#define mbstowcs sj3_mbstowcs16
+#define wcstombs sj3_wcstombs16
+#endif 
+
+extern int current_locale;
+
+#define sj_iskata(c) (c >= 0xa5a1 && c <= 0xa5f6)
+#define sj_ishira(c) (c >= 0xa4a1 && c <= 0xa4f3)
+static wchar16_t intmp[MAXLLEN];
+static wchar16_t outtmp[MAXLLEN];
+static u_char  mtmp[MAXLLEN];
+
+static u_short HKtable[ZKATAn] = {
+	KANA_XA,	KANA_A,
+	KANA_XA + 1,	KANA_A	+ 1,
+	KANA_XA + 2,	KANA_A	+ 2,
+	KANA_XA + 3,	KANA_A	+ 3,
+	KANA_XA + 4,	KANA_A  + 4,
+
+			KANA_KA,	KANA_GA,
+			KANA_KA + 1,	KANA_GA + (1<<8),
+			KANA_KA + 2,	KANA_GA + (2<<8),
+			KANA_KA + 3,	KANA_GA + (3<<8),
+			KANA_KA + 4,	KANA_GA + (4<<8),
+
+			KANA_SA,	KANA_ZA,
+			KANA_SA + 1,	KANA_ZA + (1<<8),
+			KANA_SA + 2,	KANA_ZA + (2<<8),
+			KANA_SA + 3,	KANA_ZA + (3<<8),
+			KANA_SA + 4,	KANA_ZA + (4<<8),
+
+			KANA_TA,	KANA_DA,
+			KANA_TA + 1,	KANA_DA + (1<<8),
+	KANA_XTSU,	KANA_TA + 2,	KANA_DA + (2<<8),
+			KANA_TA + 3,	KANA_DA + (3<<8),
+			KANA_TA + 4,	KANA_DA + (4<<8),
+	
+			KANA_NA,
+			KANA_NA + 1,
+			KANA_NA + 2,
+			KANA_NA + 3,
+			KANA_NA + 4,
+
+			KANA_HA,	KANA_BA,	  KANA_PA,
+			KANA_HA + 1,	KANA_BA + (1<<8), KANA_PA + (1<<8),
+			KANA_HA + 2,	KANA_BA + (2<<8), KANA_PA + (2<<8),
+			KANA_HA + 3,	KANA_BA + (3<<8), KANA_PA + (3<<8),
+			KANA_HA + 4,	KANA_BA + (4<<8), KANA_PA + (4<<8),
+
+			KANA_MA,
+			KANA_MA + 1,
+			KANA_MA + 2,
+			KANA_MA + 3,
+			KANA_MA + 4,
+
+	KANA_XYA,	KANA_YA,
+	KANA_XYA + 1,	KANA_YA + 1,
+	KANA_XYA + 2,	KANA_YA + 2,
+
+			KANA_RA,
+			KANA_RA + 1,
+			KANA_RA + 2,
+			KANA_RA + 3,
+			KANA_RA + 4,
+
+	KANA_WA, 	KANA_WA,
+			KANA_A  + 1,
+			KANA_A  + 3,
+			KANA_WO,
+			KANA_WA + 1,
+
+					((KANA_A+2)<<8) + KANA_DTEN,
+			KANA_KA,
+			KANA_KA + 3
+};
+
+static struct ztohkktbl {
+	u_short zen;
+	u_short han;
+} HKKtbl[8] = {
+	ZEN_KTEN, 	KANA_KTEN,
+	ZEN_FKAKKO, 	KANA_FKAKKO,
+	ZEN_EKAKKO, 	KANA_EKAKKO,
+	ZEN_TTEN, 	KANA_TTEN,
+	ZEN_CTEN, 	KANA_CTEN,
+	ZEN_CHOUON, 	KANA_CHOUON,
+	ZEN_DTEN, 	KANA_DTEN,
+	ZEN_HDTEN, 	KANA_HDTEN
+};
+
+
+static struct hzkigoutbl {
+	wchar16_t han;
+	u_short zen;
+} HZKtbl[6] = {
+	',',	ZEN_TTEN,
+	'.',	ZEN_KTEN,
+	'-',	ZEN_CHOUON,
+	'@',	ZEN_CTEN,
+	'[',	ZEN_FKAKKO,
+	']',	ZEN_EKAKKO
+};
+
+static u_short HZtbl[95] = {
+	0xa1a1, 0xa1aa, 0xa1c9, 0xa1f4, 0xa1f0, 0xa1f3, 0xa1f5, 0xa1c7,
+	0xa1ca, 0xa1cb, 0xa1f6, 0xa1dc, 0xa1a4, 0xa1dd, 0xa1a5, 0xa1bf,
+	0xa3b0, 0xa3b1, 0xa3b2, 0xa3b3, 0xa3b4, 0xa3b5, 0xa3b6, 0xa3b7,
+	0xa3b8, 0xa3b9, 0xa1a7, 0xa1a8, 0xa1e3, 0xa1e1, 0xa1e4, 0xa1a9,
+	0xa1f7, 0xa3c1, 0xa3c2, 0xa3c3, 0xa3c4, 0xa3c5, 0xa3c6, 0xa3c7,
+	0xa3c8, 0xa3c9, 0xa3ca, 0xa3cb, 0xa3cc, 0xa3cd, 0xa3ce, 0xa3cf,
+	0xa3d0, 0xa3d1, 0xa3d2, 0xa3d3, 0xa3d4, 0xa3d5, 0xa3d6, 0xa3d7,
+	0xa3d8, 0xa3d9, 0xa3da, 0xa1ce, 0xa1ef, 0xa1cf, 0xa1b0, 0xa1b2,
+	0xa1c6, 0xa3e1, 0xa3e2, 0xa3e3, 0xa3e4, 0xa3e5, 0xa3e6, 0xa3e7,
+	0xa3e8, 0xa3e9, 0xa3ea, 0xa3eb, 0xa3ec, 0xa3ed, 0xa3ee, 0xa3ef,
+	0xa3f0, 0xa3f1, 0xa3f2, 0xa3f3, 0xa3f4, 0xa3f5, 0xa3f6, 0xa3f7,
+	0xa3f8, 0xa3f9, 0xa3fa, 0xa1d0, 0xa1c3, 0xa1d1, 0xa1b1
+};
+
+#ifdef ADDHK
+void
+setl_hktozh()
+{
+	int i;
+	u_short c, zen1;
+	wchar16_t rstr[2];
+	wchar16_t kstr[2];
+	RkTablW16 *rktp, *mktable();
+
+	zen1 = (ZHIRA1 << 8);
+	rstr[1] = '\0';
+	kstr[1] = 0;
+	for(i = 0; i < ZKATAn - 3; i++) {
+		c = HKtable[i];
+		if (!(c & RKZEN)) {
+			rstr[0] = c;
+			if ((rktp = mktable(rstr, 1)) == NULL)
+				break;
+			if (rktp->k_yomi != NULL)
+				continue;
+			kstr[0] = zen1 + (ZHIRAF2 + i);
+			if (kstradd(&(rktp->k_yomi), kstr, 2) == -1)
+				break;
+		}
+	}
+	for (i = 0; i < 8; i++) {
+		rstr[0] = HKKtbl[i].han;
+		if ((rktp = mktable(rstr, 1)) == NULL)
+			break;
+		if (rktp->k_yomi != NULL)
+			continue;
+		kstr[0] = HKKtbl[i].zen;
+		if (kstradd(&(rktp->k_yomi), kstr, 2) == -1)
+			break;
+	}
+}
+#endif
+
+
+void
+mkkigou()
+{
+	int i;
+	wchar16_t rstr[2];
+	wchar16_t kstr[2];
+	RkTablW16 *rktp, *mktable();
+
+	rstr[1] = '\0';
+	kstr[1] = 0;
+	for (i = 0; i < 6; i++) {
+		rstr[0] = HZKtbl[i].han;
+		if ((rktp = mktable(rstr, 1)) == NULL)
+			break;
+		if (rktp->k_yomi != NULL)
+			continue;
+		kstr[0] = HZKtbl[i].zen;
+		if (kstradd(&(rktp->k_yomi), kstr, 2) == -1)
+			break;
+	}
+}
+
+int
+sj_addten(u_short prefix, u_short c)
+{
+	u_short c1, cc;
+
+	cc = 0;
+	if ((c == ZEN_DTEN || c == ZEN_HDTEN) &&
+	    (sj_ishira(prefix) || sj_iskata(prefix))) {
+		c1 = sj_zen2han(prefix);
+		if ((c1 >= KANA_KA && c1 < KANA_NA) ||
+			 	(c1 >= KANA_HA && c1 < KANA_MA)) {
+			if (c == ZEN_DTEN)
+				cc = prefix + 1;
+			else if (c == ZEN_HDTEN && c1 >= KANA_HA)
+				cc = prefix + 2;
+		} else if (c1 == KANA_A+2 && sj_iskata(prefix)&& c == ZEN_DTEN)
+			cc = ZEN_VU;
+	}
+	return(cc);
+}
+
+int
+sj_han2zen(u_short c)
+{
+	int i;
+	u_short cc;
+
+	if (WcIsHANKAKU(c) && iskana2(c)) {
+		for (i = 0; i < ZKATAn; i++) {
+			if (c == HKtable[i]) {
+				if (i >= ZKATAn - 3) {
+					cc = (ZKATA1 << 8) + (ZKATAF2 + i + 1);
+				}
+				else {
+					cc = (ZHIRA1 << 8) + (ZHIRAF2 + i);
+					if (c == KANA_WA)
+						cc++;
+				}
+				break;
+			}
+		}
+		if (i >= ZKATAn) {
+			for (i = 0; i < 8; i++) {
+				if (c == HKKtbl[i].han) {
+					cc = HKKtbl[i].zen;
+					break;
+				}
+			}
+			if (i >= 8)
+				cc = ZEN_SPACE;
+		}
+	} else {
+		if (c >= 0x20 && c <= 0x7e)
+			cc = HZtbl[c - 0x20];
+		else
+			cc = c;
+	}
+	return(cc);
+}
+
+
+int
+sj3_hantozen(u_char *out, u_char *in)
+{
+	wchar16_t *winstr, *woutstr;
+	u_char *mstr;
+	int inlen, outlen, imflag = 0, omflag = 0, mmflag = 0, ret;
+
+	inlen = strlen(in) + 1;
+	if (current_locale == LC_CTYPE_EUC) {
+		if (inlen > sizeof(mtmp)) {
+			mstr = (u_char *) malloc(inlen);
+			mmflag = 1;
+		} else {
+			mstr = mtmp;
+		}
+		if (sjistoeuc(mstr, inlen, in, inlen) < 0) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+	} else {
+		mstr = in;
+	}
+	if ((inlen * sizeof(wchar16_t)) > sizeof(intmp)) {
+		winstr = (wchar16_t *) malloc(inlen * sizeof(wchar16_t));
+		if (!winstr) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+		imflag = 1;
+	} else {
+		winstr = (wchar16_t *) intmp;
+	}
+	if (mbstowcs(winstr, (char *)mstr, inlen) == -1) {
+		if (mmflag) free(mstr);
+		if (imflag) free(winstr);
+		return -1;
+	}
+	outlen = inlen;
+	if ((outlen * sizeof(wchar16_t)) > sizeof(outtmp)) {
+		woutstr = (wchar16_t *) malloc(outlen * sizeof(wchar16_t));
+		if (!woutstr) {
+			if (mmflag) free(mstr);
+			if (imflag) free(winstr);
+			return -1;
+		}
+                omflag = 1;
+	} else {
+                woutstr = (wchar16_t *) outtmp;
+	}
+	ret = sj3_hantozen_w16(woutstr, winstr);
+	if (mmflag) {
+		free(mstr);
+		mmflag = 0;
+	}
+	if (ret == 0 || ret == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return ret;
+	}
+	outlen = ret * 3;
+	if (outlen > sizeof(mtmp)) {
+		mstr = (u_char *) malloc(outlen);
+		if (!mstr) {
+			if (imflag) free(winstr);
+			if (omflag) free(woutstr);
+			return -1;
+		}
+		mmflag = 1;
+	} else {
+		mstr = mtmp;
+	}
+	if (wcstombs((char *)mstr, woutstr, outlen) == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		if (mmflag) free(mstr);
+		return -1;
+	}
+	if (current_locale == LC_CTYPE_EUC) {
+		inlen = euctosjis(out, outlen, mstr, outlen);
+	} else {
+		(void) memcpy(out, mstr, strlen(mstr) + 1);
+	}
+	if (imflag) free(winstr);
+	if (omflag) free(woutstr);
+	if (mmflag) free(mstr);
+
+	if (inlen > 0) {
+		return ret;
+	} else {
+		return inlen;
+	}
+}
+
+int
+sj3_hantozen_euc(u_char *out, u_char *in)
+{
+	wchar16_t *winstr, *woutstr;
+	u_char *mstr;
+	int inlen, outlen, imflag = 0, omflag = 0, mmflag = 0, ret;
+
+	inlen = strlen(in) + 1;
+	if (current_locale == LC_CTYPE_EUC) {
+		mstr = in;
+	} else {
+		if (inlen > sizeof(mtmp)) {
+			mstr = (u_char *) malloc(inlen);
+			mmflag = 1;
+		} else {
+			mstr = mtmp;
+		}
+		if (euctosjis(mstr, inlen, in, inlen) < 0) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+	}
+	if ((inlen * sizeof(wchar16_t)) > sizeof(intmp)) {
+		winstr = (wchar16_t *) malloc(inlen * sizeof(wchar16_t));
+		if (!winstr) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+		imflag = 1;
+	} else {
+		winstr = (wchar16_t *) intmp;
+	}
+	if (mbstowcs(winstr, (char *)mstr, inlen) == -1) {
+		if (mmflag) free(mstr);
+		if (imflag) free(winstr);
+		return -1;
+	}
+	outlen = inlen;
+	if ((outlen * sizeof(wchar16_t)) > sizeof(outtmp)) {
+		woutstr = (wchar16_t *) malloc(outlen * sizeof(wchar16_t));
+		if (!woutstr) {
+			if (mmflag) free(mstr);
+			if (imflag) free(winstr);
+			return -1;
+		}
+                omflag = 1;
+	} else {
+                woutstr = (wchar16_t *) outtmp;
+	}
+	ret = sj3_hantozen_w16(woutstr, winstr);
+	if (mmflag) {
+		free(mstr);
+		mmflag = 0;
+	}
+	if (ret == 0 || ret == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return ret;
+	}
+	outlen = ret * 3;
+	if (outlen > sizeof(mtmp)) {
+		mstr = (u_char *) malloc(outlen);
+		if (!mstr) {
+			if (imflag) free(winstr);
+			if (omflag) free(woutstr);
+			return -1;
+		}
+		mmflag = 1;
+	} else {
+		mstr = mtmp;
+	}
+	if (wcstombs((char *)mstr, woutstr, outlen) == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		if (mmflag) free(mstr);
+		return -1;
+	}
+	if (current_locale == LC_CTYPE_EUC) {
+		(void) memcpy(out, mstr, strlen(mstr) + 1);
+	} else {
+		inlen = sjistoeuc(out, outlen, mstr, outlen);
+	}
+	if (imflag) free(winstr);
+	if (omflag) free(woutstr);
+	if (mmflag) free(mstr);
+
+	if (inlen > 0) {
+		return ret;
+	} else {
+		return inlen;
+	}
+}
+
+int
+sj3_hantozen_mb(u_char *s1, u_char *s2)
+{
+	if (current_locale == LC_CTYPE_EUC) 
+	  return sj3_hantozen_euc(s1, s2);
+	else
+  	  return sj3_hantozen(s1, s2);
+}
+
+int
+sj3_hantozen_w16(wchar16_t *s1, wchar16_t *s2)
+{
+	return sj_hantozen(s1, s2, wslen(s2));
+}
+
+int
+sj_hantozen(wchar16_t *s1, wchar16_t *s2, int len)
+{
+	u_short c1, cc, prefix;
+	wchar16_t c;
+	int i;
+	int rlen;
+
+	prefix = 0;
+	rlen = 0;
+	for (i = 0; i < len && *s2 != '\0'; i++) {
+		c = *s2++;
+		cc = sj_han2zen(c);
+		if (cc & RKZEN) {
+			if (prefix != 0 && (c1 = sj_addten(prefix, cc)) != 0) {
+				s1 -= 1;
+				rlen -= 1;
+				cc = c1;
+				prefix = 0;
+			} else 
+				prefix = cc;
+			*s1++ = cc;
+			rlen ++;
+		} else {
+			*s1++ = cc;
+			rlen++;
+			prefix = 0;
+		}
+	}
+	*s1 = '\0';
+	return(rlen);
+}
+
+int
+sj_zen2han(u_short c)
+{
+	int i;
+	u_short cc;
+	
+	i = ZKATAn;
+	cc = c & MASK;
+	if (sj_ishira(c))
+		i = cc - ZHIRAF2;
+	else if (sj_iskata(c)) {
+		i = cc - ZKATAF2;
+	}
+	if (i < ZKATAn)
+		cc = HKtable[i];
+	else {
+		for (i = 0; i < 8; i++) {
+			if (c == HKKtbl[i].zen) {
+				cc = HKKtbl[i].han;
+				break;
+			}
+		}
+		if (i >= 8) {
+			cc = c;
+			for (i = 0; i < 95; i++) {
+				if (c == HZtbl[i]) {
+					cc = i + 0x20;
+					break;
+				}
+			}
+		}
+	}
+	return(cc);
+}
+
+int
+sj3_zentohan(u_char *out, u_char *in)
+{
+	wchar16_t *winstr, *woutstr;
+	u_char *mstr;
+	int inlen, outlen, imflag = 0, omflag = 0, mmflag = 0, ret;
+
+	inlen = strlen(in) + 1;
+	if (inlen > sizeof(mtmp)) {
+		mstr = (u_char *) malloc(inlen);
+		if (!mstr) {
+			return -1;
+		}
+		mmflag = 1;
+	} else {
+		mstr = mtmp;
+	}
+	if (current_locale == LC_CTYPE_EUC) {
+		(void) euctosjis(mstr, inlen, in, inlen);
+	} else {
+		(void) memcpy(mstr, in, inlen);
+	}
+	if (inlen > sizeof(intmp)) {
+		winstr = (wchar16_t *) malloc(((inlen / 2) + 1) * sizeof(wchar16_t));
+		if (!winstr) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+		imflag = 1;
+	} else {
+		winstr = (wchar16_t *) intmp;
+	}
+	if (mbstowcs(winstr, (char *)mstr, inlen) == -1) {
+		if (mmflag) free(mstr);
+		if (imflag) free(winstr);
+		return -1;
+	}
+	if (mmflag) {
+		free(mstr);
+		mmflag = 0;
+	}
+	outlen = ((inlen - 1) / 2) + 1;
+	if (outlen * sizeof(wchar16_t) > sizeof(outtmp)) {
+		woutstr = (wchar16_t *) malloc(outlen * sizeof(wchar16_t));
+		if (!woutstr) {
+			if (imflag) free(winstr);
+			return -1;
+		}
+                omflag = 1;
+	} else {
+                woutstr = (wchar16_t *) outtmp;
+	}
+	ret = sj3_zentohan_w16(woutstr, winstr);
+	if (ret == 0 || ret == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return ret;
+	}
+	outlen = ret * 3;
+	if (current_locale == LC_CTYPE_EUC) {
+		if (outlen > sizeof(mtmp)) {
+			mstr = (u_char *) malloc(outlen);
+			mmflag = 1;
+		} else {
+			mstr = mtmp;
+		}
+	} else {
+		mstr = out;
+	}
+	if (wcstombs((char *)mstr, woutstr, outlen) == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return -1;
+	}
+	if (current_locale == LC_CTYPE_EUC) {
+		if (euctosjis(out, outlen, mstr, outlen) < 0) {
+			if (imflag) free(winstr);
+			if (omflag) free(woutstr);
+			if (mmflag) free(mstr);
+			return -1;
+		}
+	}
+			
+	if (imflag) free(winstr);
+	if (omflag) free(woutstr);
+	if (mmflag) free(mstr);
+
+	return ret;
+}
+
+int
+sj3_zentohan_euc(u_char *out, u_char *in)
+{
+	wchar16_t *winstr, *woutstr;
+	u_char *mstr;
+	int inlen, outlen, imflag = 0, omflag = 0, mmflag = 0, ret;
+
+	inlen = strlen(in) + 1;
+	if (inlen > sizeof(mtmp)) {
+		mstr = (u_char *) malloc(inlen);
+		if (!mstr) {
+			return -1;
+		}
+		mmflag = 1;
+	} else {
+		mstr = mtmp;
+	}
+	if (current_locale == LC_CTYPE_EUC) {
+		(void) euctosjis(mstr, inlen, in, inlen);
+	} else {
+		(void) memcpy(mstr, in, inlen);
+	}
+	if (inlen > sizeof(intmp)) {
+		winstr = (wchar16_t *) malloc(((inlen / 2) + 1) * sizeof(wchar16_t));
+		if (!winstr) {
+			if (mmflag) free(mstr);
+			return -1;
+		}
+		imflag = 1;
+	} else {
+		winstr = (wchar16_t *) intmp;
+	}
+	if (mbstowcs(winstr, (char *)mstr, inlen) == -1) {
+		if (mmflag) free(mstr);
+		if (imflag) free(winstr);
+		return -1;
+	}
+	if (mmflag) {
+		free(mstr);
+		mmflag = 0;
+	}
+	outlen = ((inlen - 1) / 2) + 1;
+	if (outlen * sizeof(wchar16_t) > sizeof(outtmp)) {
+		woutstr = (wchar16_t *) malloc(outlen * sizeof(wchar16_t));
+		if (!woutstr) {
+			if (mmflag) free(mstr);
+			if (imflag) free(winstr);
+			return -1;
+		}
+                omflag = 1;
+	} else {
+                woutstr = (wchar16_t *) outtmp;
+	}
+	ret = sj3_zentohan_w16(woutstr, winstr);
+	if (ret == 0 || ret == -1) {
+		if (mmflag) free(mstr);
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return ret;
+	}
+	outlen = ret * 3;
+	if (current_locale == LC_CTYPE_EUC) {
+		mstr = out;
+	} else {
+		if (outlen > sizeof(mtmp)) {
+			mstr = (u_char *) malloc(outlen);
+			mmflag = 1;
+		} else {
+			mstr = mtmp;
+		}
+	}
+	if (wcstombs((char *)mstr, woutstr, outlen) == -1) {
+		if (imflag) free(winstr);
+		if (omflag) free(woutstr);
+		return -1;
+	}
+	if (current_locale == LC_CTYPE_SHIFTJIS) {
+		if (sjistoeuc(out, outlen, mstr, outlen) < 0) {
+			if (imflag) free(winstr);
+			if (omflag) free(woutstr);
+			if (mmflag) free(mstr);
+			return -1;
+		}
+	}
+	if (imflag) free(winstr);
+	if (omflag) free(woutstr);
+	if (mmflag) free(mstr);
+
+	return ret;
+}
+
+int
+sj3_zentohan_mb(u_char *s1, u_char *s2)
+{
+	if (current_locale == LC_CTYPE_EUC)
+	  return sj3_zentohan_euc(s1, s2);
+	else 
+	  return sj3_zentohan(s1, s2);
+}
+
+int
+sj3_zentohan_w16(wchar16_t *s1, wchar16_t *s2)
+{
+	return sj_zentohan(s1, s2, wslen(s2));
+}
+
+int
+sj_zentohan(wchar16_t *s1, wchar16_t *s2, int len)
+{
+	u_short cc;
+	wchar16_t c;
+	int i, rlen;
+
+	rlen = 0;
+	for (i = 0; i < len && *s2 != (wchar16_t) '\0'; i++) {
+		c = *s2++;
+		if (WcIsZENKAKU(c)) {
+			cc = sj_zen2han(c);
+			if ((cc >> 8) && (cc != c)) {
+				*s1++ = (cc >> 8);
+				rlen++;
+				*s1++ = cc & 0xff;
+				rlen++;   
+				continue;
+			}
+
+		} else 
+			cc = c;
+		if (cc & RKZEN) {
+			*s1++ = (cc >> 8);
+			rlen++;
+		}
+		*s1++ = (wchar16_t)cc;
+		rlen++;
+	}
+	*s1 = (wchar16_t) '\0';
+	return(rlen);
+}
+
+int
+sj_tokata(wchar16_t c)
+{
+	if (sj_ishira(c)) {
+		c += 0x0100;
+	}
+	return(c);
+}
+
+int
+sj_tohira(wchar16_t c)
+{
+	if (sj_iskata(c) && (short) c <= (short) 0xa5f3) {
+		c -= 0x0100;
+	}
+	return(c);
+}
+
+int
+sj_htok(wchar16_t *s1, wchar16_t *s2)
+{
+	wchar16_t cc;
+	wchar16_t c;
+
+	while ((c = *s2++) != (wchar16_t) '\0') {
+		if (WcIsX0208(c)) {
+			cc = sj_tokata(c);
+			*s1++ = cc;
+		} else
+			*s1++ = c;
+	}
+	*s1 = (wchar16_t) '\0';
+}
+
+int
+sj_ktoh(wchar16_t *s1, wchar16_t *s2)
+{
+	wchar16_t cc;
+	wchar16_t c;
+
+	while ((c = *s2++) != (wchar16_t) '\0') {
+		if (WcIsX0208(c)) {
+			cc = sj_tohira(c);
+			*s1++ = cc;
+		} else
+			*s1++ = c;
+	}
+	*s1 = (wchar16_t) '\0';
+}

lib/sj3rkcv/sjrk

@@ -0,0 +1,332 @@
+##
+## 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.
+##
+
+##
+## $SonyRCSfile: Sjrk,v $  
+## $SonyRevision: 1.1 $ 
+## $SonyDate: 1994/06/03 08:03:07 $
+##
+#
+#	ローマ字かな変換規則定義ファイル
+#	デフォルトファイル
+#
+#フォーマット(区切りはスペースもしくはタブ)
+#[in_romaji]	[out_kana]	[out_romaji]
+A	あ
+I	い
+U	う
+E	え
+O	お
+
+KA	か
+KI	き
+KU	く
+KE	け
+KO	こ
+CA	か
+CI	き
+CU	く
+CE	け
+CO	こ
+KYA	きゃ
+KYI	き
+KYU	きゅ
+KYE	きぇ
+KYO	きょ
+QYA	きゃ
+QYI	き
+QYU	きゅ
+QYE	きぇ
+QYO	きょ
+
+SA	さ
+SI	し
+SU	す
+SE	せ
+SO	そ
+SYA	しゃ
+SYI	し
+SYU	しゅ
+SYE	しぇ
+SYO	しょ
+SHA	しゃ
+SHI	し
+SHU	しゅ
+SHE	しぇ
+SHO	しょ
+
+TA	た
+TI	ち
+TU	つ
+TE	て
+TO	と
+TSA	た
+TSI	ち
+TSU	つ
+TSE	て
+TSO	と
+THA	たぁ
+THI	てぃ
+THU	とぅ
+TYA	ちゃ
+TYI	ち
+TYU	ちゅ
+TYE	ちぇ
+TYO	ちょ
+TSYA	ちゃ
+TSYI	ち
+TSYU	ちゅ
+TSYE	ちぇ
+TSYO	ちょ
+CHA	ちゃ
+CHI	ち
+CHU	ちゅ
+CHE	ちぇ
+CHO	ちょ
+CYA	ちゃ
+CYI	ち
+CYU	ちゅ
+CYE	ちぇ
+CYO	ちょ
+
+NA	な
+NI	に
+NU	ぬ
+NE	ね
+NO	の
+NYA	にゃ
+NYI	に
+NYU	にゅ
+NYE	にぇ
+NYO	にょ
+
+HA	は
+HI	ひ
+HU	ふ
+HE	へ
+HO	ほ
+HYA	ひゃ
+HYI	ひ
+HYU	ひゅ
+HYE	ひぇ
+HYO	ひょ
+FA	ふぁ
+FI	ふぃ
+FU	ふ
+FE	ふぇ
+FO	ふぉ
+FYA	ふゃ
+FYI	ふぃ
+FYU	ふゅ
+FYE	ふぇ
+FYO	ふょ
+
+MA	ま
+MI	み
+MU	む
+ME	め
+MO	も
+MYA	みゃ
+MYI	み
+MYU	みゅ
+MYE	みぇ
+MYO	みょ
+
+YA	や
+YI	い
+YU	ゆ
+YE	いぇ
+YO	よ
+RA	ら
+RI	り
+RU	る
+RE	れ
+RO	ろ
+LA	ら
+LI	り
+LU	る
+LE	れ
+LO	ろ
+RYA	りゃ
+RYI	り
+RYU	りゅ
+RYE	りぇ
+RYO	りょ
+LYA	りゃ
+LYI	り
+LYU	りゅ
+LYE	りぇ
+LYO	りょ
+
+WA	わ
+WI	うぃ
+WU	う
+WE	うぇ
+WO	を
+
+GA	が
+GI	ぎ
+GU	ぐ
+GE	げ
+GO	ご
+GYA	ぎゃ
+GYI	ぎ
+GYU	ぎゅ
+GYE	ぎぇ
+GYO	ぎょ
+
+ZA	ざ
+ZI	じ
+ZU	ず
+ZE	ぜ
+ZO	ぞ
+ZYA	じゃ
+ZYI	じ
+ZYU	じゅ
+ZYE	じぇ
+ZYO	じょ
+JA	じゃ
+JI	じ
+JU	じゅ
+JE	じぇ
+JO	じょ
+JYA	じゃ
+JYI	じ
+JYU	じゅ
+JYE	じぇ
+JYO	じょ
+
+DA	だ
+DI	ぢ
+DU	づ
+DE	で
+DO	ど
+DYA	ぢゃ
+DYI	ぢ
+DYU	ぢゅ
+DYE	ぢぇ
+DYO	ぢょ
+DHA	だぁ
+DHI	でぃ
+DHU	どぅ
+DHYU	でゅ
+
+BA	ば
+BI	び
+BU	ぶ
+BE	べ
+BO	ぼ
+BYA	びゃ
+BYI	び
+BYU	びゅ
+BYE	びぇ
+BYO	びょ
+VA	ヴぁ
+VI	ヴぃ
+VU	ヴ
+VE	ヴぇ
+VO	ヴぉ
+VYA	びゃ
+VYI	び
+VYU	びゅ
+VYE	びぇ
+VYO	びょ
+
+PA	ぱ
+PI	ぴ
+PU	ぷ
+PE	ぺ
+PO	ぽ
+PYA	ぴゃ
+PYI	ぴ
+PYU	ぴゅ
+PYE	ぴぇ
+PYO	ぴょ
+
+QA	くぁ
+QI	くぃ
+QU	くぅ
+QE	くぇ
+QO	くぉ
+
+N	ん
+NN	ん
+#MB	ん B
+#MM	ん M
+#MP	ん P
+
+KK	っ K
+SS	っ S
+TT	っ T
+HH	っ H
+MM	っ M
+YY	っ Y
+RR	っ R
+LL	っ L
+WW	っ W
+GG	っ G
+ZZ	っ Z
+DD	っ D
+BB	っ B
+PP	っ P
+CC	っ C
+FF	っ F
+JJ	っ J
+VV	っ V
+QQ	っ Q
+XX	っ X
+#TCH	っ CH
+
+XA	ぁ
+XI	ぃ
+XU	ぅ
+XE	ぇ
+XO	ぉ
+XYA	ゃ
+XYI	ぃ
+XYU	ゅ
+XYE	ぇ
+XYO	ょ
+XTU	っ
+XTSU	っ
+XWA	ゎ
+XKA	ヵ
+XKE	ヶ
+
+X,	゛
+X.	゜
+~	～
+
+#-	ー
+#,	、
+#.	。
+#@	・
+#[	「
+#]	」
+#Z.	…
+#SONY	ソニー

lib/sj3rkcv/wc16_str.c

@@ -0,0 +1,414 @@
+/*
+ * 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.
+ *
+ */
+
+/*
+ * $SonyRCSfile: wc16_str.c,v $  
+ * $SonyRevision: 1.3 $ 
+ * $SonyDate: 1994/11/17 06:49:21 $
+ */
+
+
+#include <stdio.h>
+#include <locale.h>
+#include "wchar16.h"
+
+#include "sj3rkcv.h"
+
+#define MSB 0x80
+
+#ifndef TRUE
+#define TRUE (1)
+#define FALSE (0)
+#endif
+
+#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))
+
+extern int current_locale;
+
+int
+sj3_iswcntrl16(wchar16_t wc)
+{
+	if ((wc < 0x20) || (wc == 0x7f)) return TRUE;
+
+	return FALSE;
+}
+
+int
+sj3_iswupper16(wchar16_t wc)
+{
+	if (((0x40 < wc) && (wc < 0x5b)) || 
+	    ((0xa3c0 < wc) && (wc < 0xa3db))) return TRUE;
+
+	return FALSE;
+}
+
+int
+sj3_iswdigit16(wchar16_t wc)
+{
+	if (((0x29 < wc) && (wc < 0x3a)) || 
+	    ((0xa3af < wc) && (wc < 0xa3ba))) return TRUE;
+
+	return FALSE;
+}
+
+int
+sj3_iswxdigit16(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(wchar16_t *ws)
+{
+	int i=0;
+
+	if (!ws) return 0;
+
+	while (*ws++) i++;
+	return i;
+}
+
+int
+sj3_wscmp16(wchar16_t *ws1, wchar16_t *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(wchar16_t *ws1, wchar16_t *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(wchar16_t *ws1, wchar16_t *ws2)
+{
+	wchar16_t *ws;
+
+	if (!ws2) return NULL;
+	ws = ws1;
+	while (*ws2) {
+		*ws++ = *ws2++;
+	}
+	*ws = 0;
+
+	return ws1;
+}
+
+wchar16_t *
+sj3_wsncpy16(wchar16_t *ws1, wchar16_t *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(wchar16_t *ws1, wchar16_t *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(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(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(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(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(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(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(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(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(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(unsigned char *mb, unsigned char *ws, int n)
+{
+	if (current_locale == LC_CTYPE_EUC)
+	  return sj3_wcs2eucs16(mb, ws, n);
+	else
+	  return sj3_wcs2sjiss16(mb, ws, n);
+}
+
+