Rename to Sj4

lib/sj4core/setconj.c

@@ -0,0 +1,152 @@
+/*
+ * 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: setconj.c,v $
+ * $SonyRevision: 1.1 $
+ * $SonyDate: 1994/06/03 08:02:16 $
+ */
+
+#include "sj_kcnv.h"
+#include "sj_right.h"
+#include "sj_hinsi.h"
+#include "sj_yomi.h"
+
+#include "sj_kanakan.h"
+
+static int
+cnjstrcmp(u_char* yptr, u_char* cnjp, int* saml) {
+	int asklen;
+	int nkrlen;
+
+	asklen = CnjAskLen(cnjp);
+
+	if(*saml < asklen) return CONT;
+
+	if(*saml > asklen) return OVER;
+
+	nkrlen = CnjNkrLen(cnjp);
+
+	yptr += asklen;
+	cnjp++;
+
+	while(nkrlen--) {
+		if(*yptr > *cnjp)
+			return CONT;
+
+		else if(*yptr < *cnjp) {
+			if(!*yptr) return PARTLY;
+			return OVER;
+		}
+
+		else {
+			yptr++;
+			cnjp++;
+			(*saml)++;
+		}
+	}
+
+	return MATCH;
+}
+
+static TypeCnct
+cnvrow(JREC* rec, TypeCnct row) {
+	TypeGram hinsi;
+	int	 stt;
+
+	hinsi = rec->hinsi;
+
+	if((stt = rec->sttofs) == SETTOU_O) {
+
+		if(R_RENYOU1 <= row && row <= R_SA5RENYOU1)
+			row += 6;
+
+		else if(R_RENYOU3 <= row && row <= R_SA5RENYOU3)
+			row += 3;
+
+		else if((hinsi >= KEIYOUSI_1 && hinsi <= KE_DOUSI_9) ||
+			(hinsi == MEISI_5) || (hinsi == MEISI_9))
+			;
+
+		else
+			row = 0;
+	}
+
+	else if(stt == SETTOU_GO) {
+
+		if(hinsi == MEISI_7 && row == R_SMEISI1)
+			row++;
+	}
+
+	return row;
+}
+
+int setconj(SJ4_CONTEXT TypeGram hinsi, JREC* jrec, CREC* crec) {
+	u_char*	 yptr;
+	int	 cmp;
+	TypeCnct right;
+	int	 saml;
+	int	 ofslen;
+	int	 count = 0;
+	u_char*	 cnj;
+
+	if((cnj = Conjadr(hinsi))) {
+		saml = ofslen = 0;
+
+		yptr = cnvstart + jrec->jlen;
+
+		if((*cnj) & TYOUONFLG) {
+			while(*yptr == _TYOUON) {
+				yptr++;
+				ofslen++;
+			}
+		}
+
+		for(; *cnj != CNJEND; cnj += CnjRecLen(cnj)) {
+			cmp = cnjstrcmp(yptr, cnj, &saml);
+
+			if(cmp == OVER) break;
+
+			if(cmp == PARTLY) break;
+
+			if(cmp != MATCH) continue;
+
+			if(isdpnd(*(yptr + saml))) continue;
+
+			if((right = cnvrow(jrec, (TypeCnct)CnjRight(cnj)))) {
+				crec->len   = (u_char)(ofslen + saml);
+				crec->right = right;
+				count++;
+				crec++;
+			}
+		}
+	}
+
+	return count;
+}