/*
 * 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 "wchar16.h"
#include "kctype.h"
#if defined(__sony_news) && defined(SVR4)
#include "jctype.h"
#endif
#include "sj2.h"
#include "key.h"
#include "rk.h"

static unsigned char cbuf[5];
static int	     cur_code = CODE_EUC;
extern int	     current_locale;
static int	     ccnt = 0;

codeconv(c, rkstr)
    wchar16_t c;
unsigned int* rkstr;
{
	unsigned short ccode, i;
	unsigned short CheckCcode();
	extern int     erase_char;

	if(c == erase_char) {
		if(ccnt) {
			ccnt--;
			*rkstr++ = erase_char + ERRCODE;
		} else {
			*rkstr++ = erase_char;
		}
	} else if(iswcntrl(c) || (WcIsKANJI(c) && ccnt == 0)) {
		*rkstr++ = c;
		if(iswcntrl(c))
			ccnt = 0;
	} else if((ccode = CheckCcode(c)) > 0) {
		if(ccnt == 4) {
			if((cur_code != CODE_EUC) || (cur_code != CODE_EUC2)) {
				if((cur_code == CODE_KUTEN) || (cur_code == CODE_KUTEN2))
					ccode += 0x2020;
				ccode = jis2euc(ccode & 0x7f7f);
			}
			if((cur_code == CODE_KUTEN2) ||
			   (cur_code == CODE_JIS2) || (cur_code == CODE_EUC2))
				ccode &= WcX0212MASK;
			ccnt--;
			for(; ccnt > 0; ccnt--)
				*rkstr++ = erase_char + ERRCODE;
			*rkstr++ = SetMojilen(4) + ccode;
		} else
			*rkstr++ = c + ERRCODE;
	} else
		*rkstr++ = ERRBEL;
	*rkstr = RKEND;
}

unsigned short
	  CheckCcode(c)
wchar16_t c;
{
	unsigned char  c1;
	unsigned short code;

	if(!WcIsASCII(c) || !isxdigit(WcLowByte(c)) ||
	   (cur_code == CODE_KUTEN && !isdigit(WcLowByte(c))))
		return (0);
	cbuf[ccnt]     = WcLowByte(c);
	cbuf[ccnt + 1] = '\0';

	if((cur_code == CODE_KUTEN) || (cur_code == CODE_KUTEN2)) {
		if(ccnt % 2) {
			code = (cbuf[ccnt - 1] - '0') * 10 + cbuf[ccnt] - '0';
			if(code < 1 || code > 94)
				return (0);
			if(ccnt >= 3)
				code += ((cbuf[0] - '0') * 10 + cbuf[1] - '0') << 8;
		} else
			code = 1;
	} else {
		code = (unsigned short)strtol((char*)cbuf, (char**)NULL, 16);
		if(ccnt % 2)
			c1 = code & 0xff;
		else
			c1 = code & 0xf;
		switch(cur_code) {
		case CODE_SJIS:
			if(ccnt == 0 && (c1 == 8 || c1 == 9 || c1 >= 0xe))
				break;
			if(ccnt == 1 && issjis1(c1))
				break;
			if(ccnt == 2 && c1 >= 4)
				break;
			if(ccnt == 3 && issjis2(c1))
				break;
			return (0);
		case CODE_EUC:
		case CODE_EUC2:
			if(ccnt % 2 && iseuc(c1))
				break;
			if(!(ccnt % 2) && (c1 >= 0xa && c1 <= 0xf))
				break;
			return (0);
		case CODE_JIS:
		case CODE_JIS2:
			if(ccnt % 2 && isjjis(c1))
				break;
			if(!(ccnt % 2) && (c1 >= 2 && c1 <= 7))
				break;
			return (0);
		}
	}
	ccnt++;
	return (code);
}

unsigned short
strtocode() {
	int	       c;
	unsigned short code;

	while(ccnt < 4) {
		c = inkey();
		if(AnotherConversion()) {
			unget_key(c);
			ccnt = 0;
			return (-1);
		}
		if((code = CheckCcode(c)) == 0) {
			ccnt = 0;
			beep();
			return (0);
		}
	}
	ccnt = 0;
	switch(cur_code) {
	case CODE_SJIS:
		return (sjis2jis(code));
	case CODE_KUTEN:
	case CODE_KUTEN2:
		return (code + 0x2020);
	default:
		return (code & 0x7f7f);
	}
}

void ChangeCode(void) {
	if(cur_code == CODE_KUTEN2)
		cur_code = CODE_SJIS;
	else {
		if(current_locale == LC_CTYPE_SHIFTJIS) {
			if(cur_code == CODE_KUTEN) {
				cur_code = CODE_SJIS;
				return;
			}
			if(cur_code == CODE_SJIS) {
				cur_code++;
			} else {
				cur_code += 2;
			}
		} else
			cur_code++;
	}
}

SetCode(code) int code;
{
	cur_code = code;
}

GetCcode() {
	return (cur_code);
}