sj4/trunk/lib/sj3core/setjrec.c

/*
 * 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.
 *
 */

/*
 * $SonyRCSfile: setjrec.c,v $  
 * $SonyRevision: 1.1 $ 
 * $SonyDate: 1994/06/03 08:02:17 $
 */

#include "sj_euc.h"
#include "sj_kcnv.h"
#include "sj_hinsi.h"

#include "sj_kanakan.h"

int
setj_atrb(u_char *p)
{
	return 2;
}

int
setj_ofs(u_char *p)
{
	int	contf = TRUE;

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

	do {
		if (p[codesize(*p)] == KANJISTREND) contf = FALSE;
		switch(*p & KANJIMODEMASK) {
		      case ZENHIRAASSYUKU:
			p += setj_norm1(p); break;

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

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

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

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

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

		      case KANJISTREND:
			contf = FALSE; break;

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

	return 2;
}

int
setj_knj(u_char *p)
{
	int	contf = TRUE;

	p = askknj[*p & KNJASSYUKUMASK];

	do {
		if (p[codesize(*p)]== KANJISTREND) contf = FALSE;
		switch(*p & KANJIMODEMASK) {
		      case ZENHIRAASSYUKU:
			p += setj_norm1(p); break;

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

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

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

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

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

		      case KANJISTREND:
			contf = FALSE; break;

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

	return 1;
}



int
setj_norm1(u_char *p)
{
	return 1;
}



int
setj_norm2(u_char *p)
{
	return 2;
}

int
setj_norm3(u_char *p)
{
	return 3;
}



static u_char
chkhead(TypeGram gram)
{
	if (!headcode) return TRUE;

	if (headcode == SETTOU_DAI) {

		if (gram == SUUSI) return TRUE;
	}

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

	return FALSE;
}



void
setjrec(u_char *tagp, int mode)
{
	TypeGram	gram;
	u_char	*ptr;
	u_char	*endp;
	u_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 != HINSIBLKTERM ; ) {
			switch(*tmp & KANJIMODEMASK) {
			      case ZENHIRAASSYUKU:
				tmp += setj_norm1(tmp); break;

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

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

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

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

			      case KANJIASSYUKU:
				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 -> hinsi  = gram;
		rec -> sttofs = headcode;
	}
}



void
setnumrec(u_char *tagp, JREC *rec, TypeGram gram)
{
	u_char		*ptr;
	u_char		*endp;
	u_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 != HINSIBLKTERM ; ) {
			switch(*tmp & KANJIMODEMASK) {
			      case ZENHIRAASSYUKU:
				tmp += setj_norm1(tmp); break;

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

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

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

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

			      case KANJIASSYUKU:
				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(u_char *tagp)
{
	JREC	*rec;

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

	rec -> jofsst = tagp - CLSTUDYDICT;
	rec -> class  = C_BUNSETU;
	rec -> hinsi  = ClGramCode(tagp);
}