/*
 * 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_kanakan.h"

void cvtdict(SJ4_CONTEXT KHREC* krec, CLREC* clrec, int flg) {
	TypeDicOfs ofs;
	u_char*	   yptr;
	int	   jlen;
	int	   stblen;
	int	   sttlen;
	u_char*	   fptr;
	int	   cllen;
	JREC*	   jrec;
	int	   i, j;

	ofs   = krec->offs;
	jrec  = clrec->jnode;
	cllen = clrec->cllen;

	yptr = inputyomi;

	jlen = jrec->jlen;

	if((i = jrec->sttofs)) {

		if(i == SETTOU_KIGOU) {
			sttlen = 1;
			fptr   = yptr;
		}

		else {
			fptr   = Settou_ptr(i);
			sttlen = SttYomiLen(fptr);
			fptr++;
			if(!krec->sttkj) fptr += 2;
		}

		*kanjitmp++ = *fptr++;
		*kanjitmp++ = *fptr++;
		jlen -= sttlen;
		yptr += sttlen * 2;
	}

	else
		sttlen = 0;

	if(flg) {

		(*Cvtnum_func[krec->mode - 1])(SJ4_CONTEXT_PASS ystart + sttlen, yptr, jrec);

		yptr += (i = jrec->numlen) * 2;
		jlen -= i;

		if(jrec->stbofs) {
			*kanjitmp++ = *yptr++;
			*kanjitmp++ = *yptr++;
			jlen--;
		}

		stblen = 0;
	}

	else if((i = jrec->stbofs) && (fptr = getstb(jrec->hinsi))) {
		fptr += i - 1;
		stblen = StbYomiLen(fptr);
		jlen -= stblen;
	}

	else {
		stblen = 0;
	}

	if(ofs) {
		if(seldict(SJ4_CONTEXT_PASS jrec->dicid)) {
			(*curdict->getdic)(SJ4_CONTEXT_PASS curdict, jrec->jseg);
			get_askknj(SJ4_CONTEXT_PASS2);
			kanjitmp +=
			    getkanji(SJ4_CONTEXT_PASS yptr, jlen, dicbuf + ofs, kanjitmp);
			yptr += jlen * 2;
		} else {
			while(jlen-- > 0) {
				for(i = 0; i < euc_codesize(*yptr); i++)
					*kanjitmp++ = yptr[i];
				yptr += euc_codesize(*yptr);
			}
		}
	}

	if(stblen) {
		i = StbKnjLen(fptr);
		fptr += stblen + 2;
		while(i-- > 0) *kanjitmp++ = *fptr++;
		yptr += stblen * 2;
	}

	i = cllen - (jrec->jlen);
	while(i-- > 0) {
		for(j = 0; j < euc_codesize(*yptr); j++)
			*kanjitmp++ = yptr[j];
		yptr += euc_codesize(*yptr);
	}
}

void cvtminasi(SJ4_CONTEXT int len) {
	u_char* ptr;

	ptr = inputyomi;

	while(len-- > 0) {

		if(isknj1(*ptr)) {
			*kanjitmp++ = *ptr++;
			*kanjitmp++ = *ptr++;
		}

		else if(*ptr == SS3) {
			*kanjitmp++ = *ptr++;
			*kanjitmp++ = *ptr++;
			*kanjitmp++ = *ptr++;
		} else {
			*kanjitmp++ = *ptr++;
		}
	}
}

void cvtwakachi(SJ4_CONTEXT CLREC* clrec) {
	int	jlen;
	u_char* ym;
	int	cnt;
	u_char	ch;

	ym = inputyomi;

	cnt = jlen = clrec->jnode->jlen;
	while(cnt-- > 0) {
		if(isknj1(*ym)) {

			if(*ym == 0xa4) {
				ch = *++ym;
				if(0xa1 <= ch && ch <= 0xf3) {
					*kanjitmp++ = 0xa5;
				} else {
					*kanjitmp++ = 0xa4;
				}
				*kanjitmp++ = ch;
				ym++;
			} else {
				*kanjitmp++ = *ym++;
				*kanjitmp++ = *ym++;
			}
		} else if(*ym == SS3) {
			*kanjitmp++ = *ym++;
			*kanjitmp++ = *ym++;
			*kanjitmp++ = *ym++;
		} else {
			*kanjitmp++ = *ym++;
		}
	}

	cnt = clrec->cllen - jlen;
	while(cnt-- > 0) {

		if(isknj1(*ym)) {
			*kanjitmp++ = *ym++;
			*kanjitmp++ = *ym++;
		}

		else if(*ym == SS3) {
			*kanjitmp++ = *ym++;
			*kanjitmp++ = *ym++;
			*kanjitmp++ = *ym++;
		} else {
			*kanjitmp++ = *ym++;
		}
	}
}