sj4/lib/sj4rkcv/rk_conv.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.
 *
 */


#ifndef lint
static char rcsid[] = "$Header: /export/work/contrib/sj4/sj4rkcv/RCS/rk_conv.c,v 1.14 1994/06/03 07:42:16 notanaka Exp $";
#endif

#include "wchar16.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <string.h>
#ifdef __sony_news
#include <jctype.h>
#endif
#include "kctype.h"
#include "rk.h"

#include "sj4rkcv.h"

#if defined(__sony_news) && defined(SVR4)
#define wscmp sj4_wscmp16
#define wsncmp sj4_wsncmp16
#define wsncpy sj4_wsncpy16
#define wscpy sj4_wscpy16
#define wslen sj4_wslen16
#define mbstowcs sj4_mbstowcs16
#define wcstombs sj4_wcstombs16
#endif

#define ENDMARK(c) (c == SPACE || c == TAB)
#define SKLINE(c) (c == EOL || c == NSTR)
#define TOUPPER(c) (islower(c) ? toupper(c) : (c))

#define WTOUPPER(c) ((wchar16_t)(islower(((c) & 0xff)) ? toupper(((c) & 0xff)) : ((c) & 0xff)))

#define SJ4_NO -1
#define SJ4_SJIS 0
#define SJ4_EUC 1

RkTabl*		 sj4_rcode[MAXCODE];
RkTablW16*	 sj4_rcode_w16[MAXCODE];
RkTablW16*	 rktblp;
wchar16_t	 rline[MAXLLEN];
wchar16_t	 lstr[MAXLLEN];
static wchar16_t intmp[MAXLLEN];
static wchar16_t outtmp[MAXLLEN];
static u_char	 mtmp[MAXLLEN];
static int	 rk_erase;
static int	 rk_errin = 0;
static int	 rk_cflag;
static int	 rk_klen;
static int	 file_code = SJ4_NO;

static RkbufRec	  rkpbuf, *rkpp = NULL;
static RkTablW16* rkhp;
static StrbufRec  strpbuf, *strpp;
static wchar16_t* shp;
static YmibufRec  ymipbuf, *ymipp;
static u_short*	  yhp;

void sj4_rkcode(int code) {
	if(code)
		file_code = SJ4_NO;
}

int sj4_rkinit2(char* rkfile, int erase) {
	rk_erase = erase;
	return (sj4_rkinit_mb(rkfile));
}

int rcode_sjis_init() {
	int	   i, rkeylen = 0, ryomilen = 0, rstrlen = 0;
	int	   klen, ylen, slen, tablnum		 = 0, tablsize;
	u_char *   mbstr, *mptr, mtmp[BUFSIZ], mtmp2[BUFSIZ];
	u_short *  wcstr, *wcptr;
	RkTabl *   tabl, *tabl_next, *tabl_prev;
	RkTablW16* tabl_w16;

	tablsize = sizeof(RkTabl);

	for(i = 0; i < MAXCODE; i++) {
		if(sj4_rcode_w16[i]) {
			tabl_w16 = sj4_rcode_w16[i];
			while(tabl_w16) {
				tablnum++;
				if(tabl_w16->r_key)
					rkeylen += wslen(tabl_w16->r_key) + 1;
				if(tabl_w16->r_str)
					rstrlen += wslen(tabl_w16->r_str) + 1;
				if(tabl_w16->k_yomi)
					ryomilen += wslen(tabl_w16->k_yomi) + 1;
				tabl_w16 = tabl_w16->next;
			}
		}
	}
	if(!tablnum)
		return 1;
	tabl = (RkTabl*)malloc(tablnum * tablsize);
	if(!tabl) {
		return 0;
	}
	memset(tabl, '\0', tablnum * tablsize);
	mbstr = (u_char*)malloc(rkeylen + rstrlen);
	if(!mbstr) {
		free(tabl);
		return 0;
	}
	memset(mbstr, '\0', rkeylen + rstrlen);
	wcptr = wcstr = (u_short*)malloc(ryomilen * sizeof(u_short));
	if(!wcstr) {
		free(tabl);
		free(mbstr);
		return 0;
	}
	memset(wcptr, '\0', ryomilen * sizeof(u_short));

	rkeylen *= 2;
	rstrlen *= 2;
	for(i = 0; i < MAXCODE; i++) {
		if(sj4_rcode_w16[i]) {
			tabl_w16  = sj4_rcode_w16[i];
			tabl_next = sj4_rcode[i] = tabl;
			while(tabl_w16) {
				tabl += 1;
				if(tabl_w16->r_key) {
					if(current_locale == LC_CTYPE_EUC) {
						mptr = mtmp;
					} else {
						mptr = mbstr;
					}
					if(wcstombs((char*)mptr, tabl_w16->r_key, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_EUC) {
						if((klen = euctosjis(mbstr, rkeylen, mtmp, sizeof(mtmp))) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
					} else {
						klen = strlen((char*)mbstr);
					}
					tabl_next->r_key = mbstr;
					mbstr += klen + 1;
					rkeylen -= klen + 1;
				} else {
					tabl_next->r_key = NULL;
				}
				if(tabl_w16->r_str) {
					if(current_locale == LC_CTYPE_EUC) {
						mptr = mtmp;
					} else {
						mptr = mbstr;
					}
					if(wcstombs((char*)mptr, tabl_w16->r_str, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_EUC) {
						if((slen = euctosjis(mbstr, rstrlen, mtmp, sizeof(mtmp))) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
					} else {
						slen = strlen((char*)mbstr);
					}
					tabl_next->r_str = mbstr;
					mbstr += slen + 1;
					rstrlen -= slen + 1;
				} else {
					tabl_next->r_str = NULL;
				}
				if(tabl_w16->k_yomi) {
					mptr = mtmp;
					if(wcstombs((char*)mptr, tabl_w16->k_yomi, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_EUC) {
						if(euctosjis(mtmp2, sizeof(mtmp2), mtmp, sizeof(mtmp)) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
						mptr = mtmp2;
					} else {
						mptr = mtmp;
					}
					tabl_next->k_yomi = wcptr;
					ylen		  = 0;
					while(*mptr) {
						if(issjis1(*mptr) && issjis2(mptr[1])) {
							*wcptr = (*mptr << 8) + mptr[1];
							mptr++;
						} else {
							*wcptr = *mptr;
						}
						wcptr++;
						mptr++;
						ylen++;
					}
					*wcptr++ = 0;
					ryomilen -= ylen + 1;
				} else {
					tabl_next->k_yomi = NULL;
				}
				tabl_w16	= tabl_w16->next;
				tabl_next->next = tabl;
				tabl_prev	= tabl_next;
				tabl_next	= tabl;
			}
			tabl_prev->next = NULL;
		}
	}
	return 1;
}

int rcode_euc_init() {
	int	   i, rkeylen = 0, ryomilen = 0, rstrlen = 0;
	int	   klen, ylen, slen, tablnum		 = 0, tablsize;
	u_char *   mbstr, *mptr, mtmp[BUFSIZ], mtmp2[BUFSIZ];
	u_short *  wcstr, *wcptr;
	RkTabl *   tabl, *tabl_next, *tabl_prev;
	RkTablW16* tabl_w16;

	tablsize = sizeof(RkTabl);

	for(i = 0; i < MAXCODE; i++) {
		if(sj4_rcode_w16[i]) {
			tabl_w16 = sj4_rcode_w16[i];
			while(tabl_w16) {
				tablnum++;
				if(tabl_w16->r_key)
					rkeylen += wslen(tabl_w16->r_key) + 1;
				if(tabl_w16->r_str)
					rstrlen += wslen(tabl_w16->r_str) + 1;
				if(tabl_w16->k_yomi)
					ryomilen += wslen(tabl_w16->k_yomi) + 1;
				tabl_w16 = tabl_w16->next;
			}
		}
	}
	if(!tablnum)
		return 1;
	tabl = (RkTabl*)malloc(tablnum * tablsize);
	if(!tabl) {
		return 0;
	}
	memset(tabl, '\0', tablnum * tablsize);
	mbstr = (u_char*)malloc(rkeylen + rstrlen);
	if(!mbstr) {
		free(tabl);
		return 0;
	}
	memset(mbstr, '\0', rkeylen + rstrlen);
	wcptr = wcstr = (u_short*)malloc(ryomilen * sizeof(u_short));
	if(!wcstr) {
		free(tabl);
		free(mbstr);
		return 0;
	}
	memset(wcptr, '\0', ryomilen * sizeof(u_short));

	rkeylen *= 2;
	rstrlen *= 2;
	for(i = 0; i < MAXCODE; i++) {
		if(sj4_rcode_w16[i]) {
			tabl_w16  = sj4_rcode_w16[i];
			tabl_next = sj4_rcode[i] = tabl;
			while(tabl_w16) {
				tabl += 1;
				if(tabl_w16->r_key) {
					if(current_locale == LC_CTYPE_SHIFTJIS) {
						mptr = mtmp;
					} else {
						mptr = mbstr;
					}
					if(wcstombs((char*)mptr, tabl_w16->r_key, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_SHIFTJIS) {
						if((klen = euctosjis(mbstr, rkeylen, mtmp, sizeof(mtmp))) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
					} else {
						klen = strlen((char*)mbstr);
					}
					tabl_next->r_key = mbstr;
					mbstr += klen + 1;
					rkeylen -= klen + 1;
				} else {
					tabl_next->r_key = NULL;
				}
				if(tabl_w16->r_str) {
					if(current_locale == LC_CTYPE_SHIFTJIS) {
						mptr = mtmp;
					} else {
						mptr = mbstr;
					}
					if(wcstombs((char*)mptr, tabl_w16->r_str, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_SHIFTJIS) {
						if((slen = sjistoeuc(mbstr, rstrlen, mtmp, sizeof(mtmp))) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
					} else {
						slen = strlen((char*)mbstr);
					}
					tabl_next->r_str = mbstr;
					mbstr += slen + 1;
					rstrlen -= slen + 1;
				} else {
					tabl_next->r_str = NULL;
				}
				if(tabl_w16->k_yomi) {
					mptr = mtmp;
					if(wcstombs((char*)mptr, tabl_w16->k_yomi, BUFSIZ) == -1) {
						free(tabl);
						free(mbstr);
						free(wcstr);
						return 0;
					}
					if(current_locale == LC_CTYPE_SHIFTJIS) {
						if(sjistoeuc(mtmp2, sizeof(mtmp2), mtmp, sizeof(mtmp)) < 0) {
							free(tabl);
							free(mbstr);
							free(wcstr);
							return 0;
						}
						mptr = mtmp2;
					} else {
						mptr = mtmp;
					}
					tabl_next->k_yomi = wcptr;
					ylen		  = 0;
					while(*mptr) {
						if(iseuc(*mptr) && iseuc(mptr[1])) {
							*wcptr = (*mptr << 8) + mptr[1];
							mptr++;
						} else {
							*wcptr = *mptr;
						}
						wcptr++;
						mptr++;
						ylen++;
					}
					*wcptr++ = 0;
					ryomilen -= ylen + 1;
				} else {
					tabl_next->k_yomi = NULL;
				}
				tabl_w16	= tabl_w16->next;
				tabl_next->next = tabl;
				tabl_prev	= tabl_next;
				tabl_next	= tabl;
			}
			tabl_prev->next = NULL;
		}
	}
	return 1;
}

int sj4_rkinit(char* rkfile) {
	return sj4_rkinit_sub(rkfile, rcode_sjis_init);
}

int sj4_rkinit_euc(char* rkfile) {
	return sj4_rkinit_sub(rkfile, rcode_euc_init);
}

int sj4_rkinit_mb(char* rkfile) {
	if(current_locale == LC_CTYPE_EUC)
		return sj4_rkinit_sub(rkfile, rcode_euc_init);
	else
		return sj4_rkinit_sub(rkfile, rcode_sjis_init);
}

int sj4_rkinit_sub(char* rkfile, int (*mbfunc)()) {
	char*	   p;
	int	   len, klen, rlen, retv;
	FILE*	   fp;
	char	   line[MAXLEN + 1];
	wchar16_t  rkey[MAXWLEN + 1], rstr[MAXWLEN + 1];
	u_short	   kstr[MAXWLEN + 1];
	RkTablW16* rktp;

	if(rkfile == NULL || *rkfile == NSTR)
		fp = stdin;
	else if((fp = fopen(rkfile, "r")) == NULL)
		return (1);

	cltable();
	line[MAXLEN - 1] = EOL;
	retv		 = 0;

	while((p = fgets(line, MAXLEN + 1, fp)) != NULL) {
		if(line[MAXLEN - 1] != EOL) {
			line[MAXLEN - 1] = EOL;
			continue;
		}
		if(SKLINE(*p) || *p == '#')
			continue;
		if((p = getkey(p, rkey, &len)) == NULL)
			continue;
		if((p = rkgetyomi(p, kstr, &klen)) == NULL)
			continue;
		p = getkey(p, rstr, &rlen);
		if(rlen > 0 && chk_rstr(rstr, rkey, rlen, len))
			rlen = 0;

		if((rktp = mktable(rkey, len)) == NULL) {
			fprintf(stderr, "Can't allocate memory for table\n");
			retv = FAIL;
			break;
		}
		if(rktp->k_yomi != NULL)
			continue;
		if(stradd(&(rktp->r_key), &rkey[1], len) == -1) {
			fprintf(stderr, "Can't allocate memory for char\n");
			retv = FAIL;
			break;
		}
		if(kstradd(&(rktp->k_yomi), kstr, klen + 1) == -1) {
			fprintf(stderr, "Can't allocate memory for short\n");
			retv = FAIL;
			break;
		}
		if(stradd(&(rktp->r_str), rstr, rlen + 1) == -1) {
			fprintf(stderr, "Can't allocate memory for char\n");
			retv = FAIL;
			break;
		}
	}
	fclose(fp);
	if(!(*mbfunc)())
		retv = FAIL;
	sj4_rkclear();
	return (retv);
}

char* getkey(char* istr, wchar16_t* ostr, int* len) {
	char c, *p;
	int  i;

	while(ENDMARK(*istr))
		istr++;

	p = istr;
	i = 0;
	while(!ENDMARK(*p)) {
		if(SKLINE(*p))
			break;
		c = *p++;

		if(c == BSL) {
			if(SKLINE(*p))
				break;
			c = *p++;
			switch(c) {
			case 'n':
				*ostr++ = (wchar16_t)EOL;
				break;
			case 't':
				*ostr++ = (wchar16_t)TAB;
				break;
			default:
				*ostr++ = (wchar16_t)TOUPPER(c);
			}
		} else if(c == '^') {
			if(*p >= '@' && *p <= '_') {
				*ostr++ = (wchar16_t)(*p - '@');
				p++;
			} else if(*p == '?') {
				*ostr++ = (wchar16_t)0x7f;
				p++;
			} else
				*ostr++ = (wchar16_t)'^';
		} else
			*ostr++ = (wchar16_t)TOUPPER(c);
		if(++i > MAXWLEN) {
			i = 0;
			break;
		}
	}
	*ostr = (wchar16_t)NSTR;
	*len  = i;
	if(i > 0)
		return (p);
	return (NULL);
}

char* rkgetyomi(char* istr, wchar16_t* ostr, int* len) {
	u_char	c;
	u_char* p;
	int	i;
	u_short cc;

	while(ENDMARK(*istr))
		istr++;

	p = (u_char*)istr;
	i = 0;
	while(!ENDMARK(*p)) {
		if(SKLINE(*p))
			break;
		cc = c = *p++;
		if(file_code == SJ4_SJIS) {
			if(issjis1(c) && issjis2(*p)) {
				cc = (c << 8) + (*p & MASK);
				p++;
				cc = sjis2euc(cc);
			}
		} else if(file_code == SJ4_EUC) {
			if(iseuc(c) && iseuc(*p)) {
				cc = (c << 8) + (*p & MASK);
				p++;
			} else if(iseuckana(c) && iskana2(*p)) {
				cc = *p++;
			} else if(IsEUCHojo(c) && iseuc(*p) && iseuc(p[1])) {
				cc = WcSetX0212(*p, p[1]);
				p += 2;
			}
		} else {
			if(issjis1(c) && issjis2(*p)) {
				file_code = SJ4_SJIS;
				p--;
				continue;
			}
			if((iseuc(c) && iseuc(*p)) || (iseuckana(c) && iskana2(*p)) || (IsEUCHojo(c) && iseuc(*p) && iseuc(p[1]))) {
				file_code = SJ4_EUC;
				p--;
				continue;
			}
		}
		*ostr++ = (wchar16_t)cc;
		if(++i > MAXWLEN) {
			i = 0;
			break;
		}
	}
	*ostr = (wchar16_t)0;
	*len  = i;
	if(i > 0)
		return ((char*)p);
	return (NULL);
}

void cltable() {
	int i;

	if(rkpp != NULL) {
		for(i = 0; i < MAXCODE; i++) {
			sj4_rcode_w16[i] = NULL;
			sj4_rcode[i]	 = NULL;
		}
		rkpp  = &rkpbuf;
		rkhp  = rkpp->rkbuf;
		strpp = &strpbuf;
		shp   = strpp->strbuf;
		ymipp = &ymipbuf;
		yhp   = ymipp->ymibuf;
	}
}

int chk_rstr(wchar16_t* rstr, wchar16_t* rkey, int rlen, int klen) {
	int	   i;
	wchar16_t* p;

	if(rlen >= klen)
		return (1);
	p = rkey;
	while(rlen <= klen) {
		if(wsncmp(rstr, p, rlen) == 0)
			return (0);
		klen--;
		p++;
	}
	return (1);
}

RkTablW16*
rkalloc() {
	RkTablW16* rkp;
	RkbufRec*  rkbrp;

	if(rkpp == NULL) {
		rkp = (RkTablW16*)malloc(RKSIZE * sizeof(RkTablW16));
		if(rkp == NULL)
			return (NULL);
		rkhp	    = rkp;
		rkpp	    = &rkpbuf;
		rkpp->rkbuf = rkp;
		rkpp->rkend = rkp + RKSIZE;
	} else if(rkhp >= rkpp->rkend) {
		rkp   = (RkTablW16*)malloc(RKINCZ * sizeof(RkTablW16));
		rkbrp = (RkbufRec*)malloc(sizeof(RkbufRec));
		if(rkp == NULL || rkbrp == NULL)
			return (NULL);
		rkhp	     = rkp;
		rkpp->rkbufp = rkbrp;
		rkpp	     = rkbrp;
		rkpp->rkbuf  = rkp;
		rkpp->rkend  = rkp + RKINCZ;
	}
	rkp = rkhp++;

	rkp->r_key  = NULL;
	rkp->k_yomi = NULL;
	rkp->r_str  = NULL;
	rkp->next   = NULL;
	return (rkp);
}

int stradd(wchar16_t** cp, wchar16_t* str, int len) {
	wchar16_t* strp;
	StrbufRec* sbrp;

	if(len <= 1)
		return (0);
	if(strpp == NULL) {
		strp = (wchar16_t*)malloc(STRSIZE * sizeof(wchar16_t));
		if(strp == NULL)
			return (-1);
		shp	      = strp;
		strpp	      = &strpbuf;
		strpp->strbuf = strp;
		strpp->strend = strp + STRSIZE;
	} else if(shp + len >= strpp->strend) {
		strp = (wchar16_t*)malloc(STRINCZ * sizeof(wchar16_t));
		sbrp = (StrbufRec*)malloc(sizeof(StrbufRec));
		if(strp == NULL || sbrp == NULL)
			return (-1);
		shp	       = strp;
		strpp->strbufp = sbrp;
		strpp	       = sbrp;
		strpp->strbuf  = strp;
		strpp->strend  = strp + STRINCZ;
	}
	*cp = shp;
	wscpy(shp, str);
	shp += len;
	return (0);
}

int kstradd(wchar16_t** cp, wchar16_t* kstr, int len) {
	int	   i;
	wchar16_t* usp;
	YmibufRec* ybrp;

	if(len <= 1)
		return (0);
	if(ymipp == NULL) {
		usp = (wchar16_t*)malloc(YMISIZE * sizeof(wchar16_t));
		if(usp == NULL)
			return (-1);
		yhp	      = usp;
		ymipp	      = &ymipbuf;
		ymipp->ymibuf = usp;
		ymipp->ymiend = usp + YMISIZE;
	} else if(yhp + len >= ymipp->ymiend) {
		usp  = (wchar16_t*)malloc(YMIINCZ * sizeof(wchar16_t));
		ybrp = (YmibufRec*)malloc(sizeof(YmibufRec));
		if(usp == NULL || ybrp == NULL)
			return (-1);
		yhp	       = usp;
		ymipp->ymibufp = ybrp;
		ymipp	       = ybrp;
		ymipp->ymibuf  = usp;
		ymipp->ymiend  = usp + YMIINCZ;
	}
	*cp = yhp;
	for(i = 0; i < len; i++)
		*yhp++ = *kstr++;
	return (0);
}

RkTablW16*
mktable(wchar16_t* key, int len) {
	int	   i;
	RkTablW16 *nrktp, *orktp;
	RkTablW16* rktp;
	u_int	   code;

	nrktp = NULL;
	orktp = NULL;
	code  = *key++ & MASK;
	rktp  = sj4_rcode_w16[code];
	while(rktp != NULL) {
		if(rktp->r_key == NULL) {
			if(*key == NSTR)
				return (rktp);
			nrktp = rktp;
			break;
		}
		if((i = wscmp(key, rktp->r_key)) == 0)
			return (rktp);
		if(i > 0 && (wslen(rktp->r_key) < len)) {
			nrktp = rktp;
			break;
		}
		orktp = rktp;
		rktp  = orktp->next;
	}
	if((rktp = rkalloc()) == NULL)
		return (NULL);
	if(sj4_rcode_w16[code] == NULL)
		sj4_rcode_w16[code] = rktp;
	else {
		if(nrktp != NULL) {
			rktp->next = nrktp;
			if(orktp == NULL)
				sj4_rcode_w16[code] = rktp;
			else
				orktp->next = rktp;
		} else
			orktp->next = rktp;
	}
	return (rktp);
}

void sj4_rkebell(int err) {
	rk_errin = err;
}

void sj4_rkclear() {
	rline[0] = NSTR;
	lstr[0]	 = NSTR;
	rktblp	 = NULL;
	rk_klen	 = 0;
	sj4_rkreset();
}

void sj4_rkreset() {
	rk_cflag = -1;
}

void sj4_rkconvc(wchar16_t c, u_int* rkstr) {
	int	   i;
	wchar16_t *p, *q;
	int	   len;
	wchar16_t  wstr[MAXLLEN];
	u_int	   kstr[MAXLLEN], *kp;

	len = wslen(rline);
	if(c == rk_erase) {
		if(rk_cflag == 0) {
			for(i = 0; i < len; i++)
				*rkstr++ = ERRCODE + rk_erase;
			for(i = 0; i < rk_klen; i++)
				*rkstr++ = rk_erase;
			p = lstr;
			q = rline;
			while(*p != NSTR) {
				*q++	 = *p;
				*rkstr++ = ERRCODE + *p++;
			}
			*q	 = NSTR;
			rktblp	 = NULL;
			rk_cflag = -1;
		} else {
			if(len <= 0)
				*rkstr++ = rk_erase;
			else
				*rkstr++ = ERRCODE + rk_erase;
			rk_cflag--;
			if(len <= 1) {
				rktblp	 = NULL;
				rline[0] = NSTR;
			} else
				rline[--len] = NSTR;
		}
	} else {
		rline[len]     = c;
		rline[len + 1] = NSTR;
		wscpy(wstr, rline);
		if((i = sj4_rkconv2(wstr, kstr, len)) == CONTINUE) {
			if(rk_cflag >= 0)
				rk_cflag++;
			*rkstr++ = ERRCODE + c;
		} else if(i == NOMACH) {
			rline[len] = NSTR;
			*rkstr++   = ERRBEL;
		} else {
			rk_cflag = 0;
			rk_klen	 = i;
			for(i = 0; i < len; i++)
				*rkstr++ = ERRCODE + rk_erase;
			kp = kstr;
			while(*kp != 0)
				*rkstr++ = *kp++;
			wscpy(lstr, rline);
			lstr[len] = NSTR;
			p	  = wstr;
			q	  = rline;
			while(*p != NSTR) {
				*rkstr++ = ERRCODE + *p;
				*q++	 = *p++;
			}
			*q = NSTR;
		}
	}
	*rkstr = RKEND;
}

int sj4_rkconv2(wchar16_t* wstr, u_int* kstr, int wlen) {
	int	   i;
	wchar16_t *p, *q, *s;
	int	   rlen, len;
	wchar16_t  svstr[MAXLLEN];
	RkTablW16* rktp;
	u_short*   kp;

	len = 0;
	if((rktp = rktblp) == NULL)
		rktp = sj4_rcode_w16[WTOUPPER(*wstr)];
	if(*wstr > (wchar16_t)0xff) rktp = NULL;
	while(1) {
		while(rktp != NULL) {
			rlen = rkmatch((wstr + 1), rktp->r_key, wlen);
			if(rlen == CONTINUE) {
				rktblp = rktp;
				break;
			} else if(rlen != NOMACH) {
				kp = rktp->k_yomi;
				if((s = rktp->r_str) != NULL)
					i = wslen(s);
				else
					i = 0;
				*kstr++ = SetMojilen(rlen - i) + *kp++;
				len++;
				while(*kp != 0) {
					*kstr++ = *kp++;
					len++;
				}
				p = (wstr + rlen);
				q = svstr;
				if(i > 0) {
					p -= i;
					while(*s != NSTR) {
						if(*s == WTOUPPER(*p))
							*q = *p;
						else
							*q = *s;
						q++;
						p++;
						s++;
					}
				}
				if(rlen <= wlen) {
					while(*p != NSTR) {
						*q++ = *p++;
					}
					*q = NSTR;
					wscpy(wstr, svstr);
					rktp = sj4_rcode_w16[WTOUPPER(*wstr)];
					wlen = wslen(wstr);
					wlen--;
					continue;
				}
				*q = NSTR;
				wscpy(wstr, svstr);
				rktblp = NULL;
				break;
			}
			rktp = rktp->next;
		}
		if(rktp == NULL) {
			if(wlen <= 0) {
				*kstr++ = SetMojilen(1) + *wstr;
				*wstr	= NSTR;
				rktblp	= NULL;
				len++;
			} else if(rk_errin) {
				len = NOMACH;
			} else {
				*kstr++ = SetMojilen(1) + *wstr;
				len++;
				p = wstr;
				for(i = 0; i < wlen; i++) {
					*p = *(p + 1);
					p++;
				}
				*p   = NSTR;
				rktp = sj4_rcode_w16[WTOUPPER(*wstr)];
				if(*wstr > (wchar16_t)0xff) rktp = NULL;
				wlen--;
				continue;
			}
		}
		*kstr = 0;
		break;
	}
	return (len);
}

int sj4_rkconv(u_char* romaji, u_char* kana) {
	wchar16_t* wstr;
	int	   len, mflag = 0, ret;

	len = strlen((char*)romaji) + 1;
	if(len > (sizeof(intmp) / sizeof(wchar16_t))) {
		wstr = (wchar16_t*)malloc(len * sizeof(wchar16_t));
		if(!wstr) return -1;
		mflag = 1;
	} else {
		wstr = (wchar16_t*)intmp;
	}
	if(mbstowcs(wstr, (char*)romaji, len) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	ret = sj4_rkconv_w16(wstr, outtmp);
	if(ret == 0 || ret == -1) {
		if(mflag) free(wstr);
		return ret;
	}
	if(wcstombs((char*)mtmp, outtmp, sizeof(outtmp)) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	if(wcstombs((char*)romaji, wstr, len) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	if(current_locale == LC_CTYPE_EUC) {
		len = euctosjis(kana, MAXLLEN * 2, mtmp, sizeof(mtmp));
	} else {
		(void)memcpy(kana, mtmp, strlen((char*)mtmp) + 1);
	}

	if(mflag) free(wstr);
	if(len > 0) {
		return ret;
	} else {
		return len;
	}
}

int sj4_rkconv_euc(u_char* romaji, u_char* kana) {
	wchar16_t* wstr;
	int	   len, mflag = 0, ret;

	len = strlen((char*)romaji) + 1;
	if(len > sizeof(intmp)) {
		wstr = (wchar16_t*)malloc(len * sizeof(wchar16_t));
		if(!wstr) return -1;
		mflag = 1;
	} else {
		wstr = (wchar16_t*)intmp;
	}
	if(mbstowcs(wstr, (char*)romaji, len) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	ret = sj4_rkconv_w16(wstr, outtmp);
	if(ret == 0 || ret == -1) {
		if(mflag) free(wstr);
		return ret;
	}
	if(wcstombs((char*)mtmp, outtmp, sizeof(outtmp)) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	if(wcstombs((char*)romaji, wstr, len) == -1) {
		if(mflag) free(wstr);
		return -1;
	}
	if(current_locale == LC_CTYPE_EUC) {
		(void)memcpy(kana, mtmp, strlen((char*)mtmp) + 1);
	} else {
		len = sjistoeuc(kana, MAXLLEN * 2, mtmp, sizeof(mtmp));
	}

	if(mflag) free(wstr);
	if(len > 0) {
		return ret;
	} else {
		return len;
	}
}

int sj4_rkconv_mb(u_char* romaji, u_char* kana) {
	if(current_locale == LC_CTYPE_EUC)
		return sj4_rkconv_euc(romaji, kana);
	else
		return sj4_rkconv(romaji, kana);
}

int sj4_rkconv_w16(wchar16_t* wstr, wchar16_t* kstr) {

	int	   i;
	wchar16_t *p, *q, *s;
	u_short	   cc;
	int	   rlen, len;
	wchar16_t  svstr[MAXLLEN];
	RkTablW16* rktp;
	u_short*   kp;

	len  = wslen(wstr);
	rktp = sj4_rcode_w16[WTOUPPER(*wstr)];
	if(*wstr > (wchar16_t)0xff) rktp = NULL;
	while(rktp != NULL) {
		rlen = rkmatch((wstr + 1), rktp->r_key, len - 1);
		if(rlen == CONTINUE) {
			break;
		} else if(rlen != NOMACH) {
			kp = rktp->k_yomi;
			while((cc = *kp++) != 0) {
				*kstr++ = cc;
			}
			wscpy(svstr, wstr);
			q = wstr;
			p = svstr;
			if((s = rktp->r_str) != NULL) {
				p += rlen;
				i = wslen(s);
				p -= i;
				while(*s != NSTR) {
					if(*s == WTOUPPER(*p))
						*q = *p;
					else
						*q = *s;
					q++;
					p++;
					s++;
				}
			}
			if(rlen < len) {
				p = svstr;
				p += rlen;
				while(*p != NSTR)
					*q++ = *p++;
			}
			*q = NSTR;
			break;
		}
		rktp = rktp->next;
	}
	if(rktp == NULL && len <= 1) {
		*kstr++ = *wstr;
		*wstr	= NSTR;
		rlen	= 1;
	}
	*kstr = NSTR;
	return (rlen);
}

int rkmatch(wchar16_t* s1, wchar16_t* s2, int len) {
	int i;

	i = 1;
	if(s2 == NULL)
		return (i);
	for(; i < len + 1; i++) {
		if(*s1 > (wchar16_t)0xff)
			return (NOMACH);
		if(WTOUPPER(*s1) != *s2) {
			if(*s2 != NSTR)
				return (NOMACH);
			break;
		}
		s1++;
		s2++;
	}
	if(*s2 != NSTR)
		i = CONTINUE;
	return (i);
}