Rename to Sj4

lib/sj4core/fuzoku.c

@@ -0,0 +1,255 @@
+/*
+ * 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: fuzoku.c,v $
+ * $SonyRevision: 1.1 $
+ * $SonyDate: 1994/06/03 08:01:47 $
+ */
+
+#include "sj_kcnv.h"
+#include "sj_hinsi.h"
+#include "sj_right.h"
+#include "sj_yomi.h"
+
+#include "sj_kanakan.h"
+
+static int
+fzkstrcmp(u_char* yptr, u_char* fzkp, int* saml) {
+	int asklen, nkrlen;
+
+	asklen = FzkAskLen(fzkp);
+
+	if(*saml < asklen) return CONT;
+
+	if(*saml > asklen) return OVER;
+
+	nkrlen = FzkNkrLen(fzkp);
+
+	yptr += asklen;
+	fzkp++;
+
+	while(nkrlen--) {
+		if(*yptr > *fzkp)
+			return CONT;
+
+		else if(*yptr < *fzkp) {
+			if(!*yptr) return PARTLY;
+			return OVER;
+		}
+
+		else {
+			yptr++;
+			fzkp++;
+			(*saml)++;
+		}
+	}
+
+	return MATCH;
+}
+
+void setclrec(SJ4_CONTEXT JREC* jrec, u_char* yptr, TypeCnct right) {
+	CLREC* new;
+	TypeGram hinsi;
+	int	 len;
+
+	if(!(len = yptr - cnvstart)) return;
+
+	if(len > MAXCLINPUTLEN) return;
+
+	if(!(new = argclrec(SJ4_CONTEXT_PASS len))) return;
+
+	new->jnode  = jrec;
+	new->gobiln = gobilen;
+	new->right  = right;
+	new->fzk_ka = fzk_ka_flg;
+	(jrec->count)++;
+
+	hinsi = jrec->hinsi;
+
+	if(hinsi >= DO_SAHEN && hinsi <= SP_KA_ONB)
+		new->kubun = K_DOUSHI;
+
+	else if((hinsi >= KEIYOUSI_1 && hinsi <= KE_DOUSI_9) ||
+		(hinsi == SP_KEIYOUSI)) {
+		if(right == R_FZKMEISI)
+			new->kubun = K_TAIGEN;
+		else
+			new->kubun = K_YOUGEN;
+	}
+
+	else if(hinsi == RENTAISI)
+		new->kubun = K_RENTAISI;
+
+	else if((hinsi >= FUKUSI_1 && hinsi <= FUKUSI_9) ||
+		(hinsi == SP_FUKUSI))
+		new->kubun = K_FUKUSI;
+
+	else if(hinsi == SETUZOKU || hinsi == KANDOUSI ||
+		hinsi == TANKANJI || hinsi == AISATU)
+		new->kubun = K_SONOTA;
+
+	else if(gobilen) {
+		if(hinsi >= MEISI_5 && hinsi <= MEISI_7)
+			new->kubun = K_DOUSHI;
+
+		else if(hinsi == D_MEISI_4)
+			new->kubun = K_DOUSHI;
+
+		else if(hinsi == SETUBI_7 || hinsi == SETUBI_8)
+			new->kubun = K_DOUSHI;
+
+		else if(hinsi == D_MEISI_5)
+			new->kubun = K_YOUGEN;
+
+		else if(hinsi == SETUBI_5 || hinsi == SETUBI_6)
+			new->kubun = K_YOUGEN;
+		else
+			new->kubun = K_TAIGEN;
+	} else if(hinsi >= MEISI_5 && hinsi <= MEISI_7) {
+		if(right >= R_I && right <= R_ITADAKE)
+			new->kubun = K_DOUSHI;
+
+		else if(right >= R_DESHI && right <= R_TAI)
+			new->kubun = K_DOUSHI;
+
+		else if(right >= R_NAI && right <= R_MEIREI2)
+			new->kubun = K_DOUSHI;
+
+		else if(right == R_TE2 || right == R_TERU)
+			new->kubun = K_DOUSHI;
+		else
+			new->kubun = K_TAIGEN;
+	} else
+		new->kubun = K_TAIGEN;
+}
+
+static int
+fzkcnct(TypeCnct right, TypeCnct left) {
+	u_char* cncttbl;
+
+	if(right && left) {
+		cncttbl = Rigtadr(right);
+		left--;
+		if(cncttbl[left >> 3] << (left & 0x07) & 0x80)
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+RECURS
+void srchfzk(SJ4_CONTEXT JREC* jrec, u_char* yptr, TypeCnct right, int level) {
+	u_char*	 fzk;
+	int	 len = 0;
+	int	 cmp;
+	u_char*	 next;
+	FREC*	 fzkrec;
+	int	 i;
+	int	 nlen;
+	TypeCnct rt;
+
+	if((level >= MAXFLVL) && !(Chrtbl[*yptr] & FZK_KGU)) return;
+
+	if(terminate(SJ4_CONTEXT_PASS right, yptr) && Chrtbl[*yptr] & FZK_KGU) {
+		if(!level) fzk_ka_flg = 0;
+		yptr++;
+		while(Chrtbl[*yptr] & FZK_KGU) yptr++;
+		setclrec(SJ4_CONTEXT_PASS jrec, yptr, (TypeCnct)R_FZKKGU);
+		return;
+	}
+
+	if(right == R_CUT) return;
+
+	if(!*yptr) return;
+
+	if(!(*yptr >= _XA && *yptr <= _NN)) return;
+
+	fzkrec = fzktbl;
+
+	for(i = fzkcount; i; i--, fzkrec++) {
+
+		if(yptr != fzkrec->yomip) continue;
+
+		fzk = fzkrec->fzkp;
+
+		len = FzkAskLen(fzk) + (nlen = FzkNkrLen(fzk)) + 1;
+
+		if(!fzkcnct(right, (TypeCnct)FzkLeft(fzk))) continue;
+
+		if(!level) fzk_ka_flg = FzkStrKa(fzk);
+
+		next = yptr + len;
+
+		if(terminate(SJ4_CONTEXT_PASS rt = FzkRight(fzk), next)) {
+			setclrec(SJ4_CONTEXT_PASS jrec, next, rt);
+		}
+
+		srchfzk(SJ4_CONTEXT_PASS jrec, next, rt, level + 1);
+	}
+
+	if(len) return;
+
+	if(!(fzk = Fzkadr(*yptr - _XA))) return;
+
+	yptr++;
+
+	for(; *fzk != FZKEND; fzk += nlen + (i ? 4 : 3)) {
+
+		nlen = FzkNkrLen(fzk);
+		i    = FzkHasCode(fzk);
+
+		cmp = fzkstrcmp(yptr, fzk, &len);
+
+		if(cmp == OVER)
+			break;
+
+		else if(cmp == PARTLY)
+			break;
+
+		else if((cmp != MATCH) || isdpnd(*(yptr + len)))
+			continue;
+
+		fzktbl[fzkcount].yomip = yptr - 1;
+		fzktbl[fzkcount].fzkp  = fzk;
+		fzkcount++;
+
+		if(!fzkcnct(right, (TypeCnct)FzkLeft(fzk))) continue;
+
+		if(!level) fzk_ka_flg = FzkStrKa(fzk);
+
+		next = yptr + len;
+
+		if(terminate(SJ4_CONTEXT_PASS rt = FzkRight(fzk), next)) {
+			setclrec(SJ4_CONTEXT_PASS jrec, next, rt);
+		}
+
+		srchfzk(SJ4_CONTEXT_PASS jrec, next, rt, level + 1);
+	}
+}