/*
 * Copyright (c) 1991-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_euc.h"
#include "sj_kcnv.h"
#include "sj_hinshi.h"
#include "kanakan.h"

int setj_atrb(unsigned char* p) {
	return 2;
}

int setj_ofs(unsigned char* p) {
	int contf = TRUE;

	p = dicbuf + ((*p & KanjiCodeMask) << 8) + *(p + 1);

	do {
		if(p[codesize(*p)] == KanjiStrEnd) contf = FALSE;
		switch(*p & KanjiModeMask) {
		case ZenHiraAsshuku:
			p += setj_norm1(p);
			break;

		case ZenKataAsshuku:
			p += setj_norm1(p);
			break;

		case OffsetAsshuku:
			p += setj_ofs(p);
			break;

		case AiAttribute:
			p += setj_atrb(p);
			break;

		case LeadingHankaku:
			p += setj_norm2(p);
			break;

		case KanjiAsshuku:
			p += setj_knj(p);
			break;

		case KanjiStrEnd:
			contf = FALSE;
			break;

		default:
			p += setj_norm2(p);
		}
	} while(contf);

	return 2;
}

int setj_knj(unsigned char* p) {
	int contf = TRUE;

	p = askknj[*p & KnjAsshukuMask];

	do {
		if(p[codesize(*p)] == KanjiStrEnd) contf = FALSE;
		switch(*p & KanjiModeMask) {
		case ZenHiraAsshuku:
			p += setj_norm1(p);
			break;

		case ZenKataAsshuku:
			p += setj_norm1(p);
			break;

		case OffsetAsshuku:
			p += setj_ofs(p);
			break;

		case AiAttribute:
			p += setj_atrb(p);
			break;

		case LeadingHankaku:
			p += setj_norm2(p);
			break;

		case KanjiAsshuku:
			p += setj_knj(p);
			break;

		case KanjiStrEnd:
			contf = FALSE;
			break;

		default:
			p += setj_norm2(p);
		}
	} while(contf);

	return 1;
}

int setj_norm1(unsigned char* p) {
	return 1;
}

int setj_norm2(unsigned char* p) {
	return 2;
}

int setj_norm3(unsigned char* p) {
	return 3;
}

static int
chkhead(TypeGram gram) {

	if(!headcode) return TRUE;

	if(headcode == SETTOU_DAI) {

		if(gram == SUUSHI) return TRUE;
	}

	else {
		gram--;
		if((Scncttbl(headcode - 1, gram >> 3) << (gram & 0x07)) & 0x80) {
			return TRUE;
		}
	}

	return FALSE;
}

void setjrec(unsigned char* tagp, int mode) {
	TypeGram       gram;
	unsigned char* ptr;
	unsigned char* endp;
	unsigned char* tmp;
	JREC*	       rec;
	int	       plen;
	int	       nlen;
	int	       len;

	plen = getplen(tagp);
	nlen = getnlen(tagp);

	len = plen + nlen;

	if(headcode) len += headlen;

	ptr = tagp + DouonBlkSizeNumber + nlen;

	endp = tagp + getsize(tagp);

	for(; ptr < endp; ptr = tmp + 1) {

		for(tmp = ptr + 1; *tmp != HinshiBlkTerm;) {
			switch(*tmp & KanjiModeMask) {
			case ZenHiraAsshuku:
				tmp += setj_norm1(tmp);
				break;

			case ZenKataAsshuku:
				tmp += setj_norm1(tmp);
				break;

			case OffsetAsshuku:
				tmp += setj_ofs(tmp);
				break;

			case AiAttribute:
				tmp += setj_atrb(tmp);
				break;

			case LeadingHankaku:
				tmp += setj_norm2(tmp);
				break;

			case KanjiAsshuku:
				tmp += setj_knj(tmp);
				break;

			case KanjiStrEnd:
				tmp++;
				break;

			default:
				tmp += setj_norm2(tmp);
			}
		}

		if((gram = *ptr) == IKKATU && !(mode & DO_IKKATU)) continue;

		if(!chkhead(gram)) continue;

		if(!(rec = argjrec(len, (JREC*)NULL))) continue;

		rec->jseg   = prevseg;
		rec->jofsst = ptr - dicbuf;
		rec->jofsed = tmp - dicbuf;
		rec->class  = C_DICT;
		rec->dicid  = curdict->dicid;
		rec->hinshi  = gram;
		rec->sttofs = headcode;
	}
}

void setnumrec(unsigned char* tagp, JREC* rec, TypeGram gram) {
	unsigned char* ptr;
	unsigned char* endp;
	unsigned char* tmp;
	int	       plen, nlen, len;
	JREC*	       jrec;

	plen = getplen(tagp);
	nlen = getnlen(tagp);

	len = plen + nlen;

	ptr = tagp + DouonBlkSizeNumber + nlen;

	endp = tagp + getsize(tagp);

	for(; ptr < endp; ptr = tmp + 1) {

		for(tmp = ptr + 1; *tmp != HinshiBlkTerm;) {
			switch(*tmp & KanjiModeMask) {
			case ZenHiraAsshuku:
				tmp += setj_norm1(tmp);
				break;

			case ZenKataAsshuku:
				tmp += setj_norm1(tmp);
				break;

			case OffsetAsshuku:
				tmp += setj_ofs(tmp);
				break;

			case AiAttribute:
				tmp += setj_atrb(tmp);
				break;

			case LeadingHankaku:
				tmp += setj_norm2(tmp);
				break;

			case KanjiAsshuku:
				tmp += setj_knj(tmp);
				break;

			case KanjiStrEnd:
				tmp++;
				break;

			default:
				tmp += setj_norm2(tmp);
			}
		}

		if(gram != *ptr) continue;

		if(!(jrec = argjrec((int)(rec->jlen + len), rec))) continue;

		jrec->jseg   = prevseg;
		jrec->jofsst = ptr - dicbuf;
		jrec->jofsed = tmp - dicbuf;
		jrec->dicid  = curdict->dicid;
	}
}

void setcrec(unsigned char* tagp) {
	JREC* rec;

	if(!(rec = argjrec((int)ClYomiLen(tagp), (JREC*)NULL))) return;

	rec->jofsst = tagp - ClStudyDict;
	rec->class  = C_BUNSETSU;
	rec->hinshi  = ClGramCode(tagp);
}