Rename to Sj4

lib/sj4core/getrank.c

@@ -0,0 +1,153 @@
+/*
+ * 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: getrank.c,v $
+ * $SonyRevision: 1.1 $
+ * $SonyDate: 1994/06/03 08:01:50 $
+ */
+
+#include "sj_kcnv.h"
+
+#include "sj_kanakan.h"
+
+static void setstynum(SJ4_CONTEXT2), setnspr(SJ4_CONTEXT KHREC*, STDYIN*), regetrank(SJ4_CONTEXT2);
+
+void getrank(SJ4_CONTEXT2) {
+
+	trank = nrank = 1;
+
+	setstynum(SJ4_CONTEXT_PASS2);
+
+	regetrank(SJ4_CONTEXT_PASS2);
+}
+
+static void
+setstynum(SJ4_CONTEXT2) {
+	KHREC*	kptr;
+	STDYIN* sptr;
+	int	count;
+
+	for(kptr = kouhotbl, count = khcount; count--; kptr++) {
+
+		sptr = srchstdy(SJ4_CONTEXT_PASS kptr->clrec->jnode->jseg, kptr->offs,
+				kptr->clrec->jnode->dicid);
+
+		if(!sptr) continue;
+
+		setnspr(SJ4_CONTEXT_PASS kptr, sptr);
+	}
+}
+
+static void
+setnspr(SJ4_CONTEXT KHREC* kptr, STDYIN* sptr) {
+	KHREC*	   ptr;
+	int	   keepnm;
+	TypeStyNum styno;
+
+	styno = kptr->styno = sptr->styno;
+
+	keepnm = trank;
+
+	for(ptr = kouhotbl; ptr < kptr; ptr++) {
+
+		if(styno < ptr->styno) {
+
+			ptr->rank++;
+
+			keepnm--;
+		}
+
+		else if(styno == ptr->styno) {
+
+			if(kptr->sttfg && kptr->ka_fg) {
+
+				if((sptr->sttkj == kptr->sttkj) &&
+				   (sptr->ka_kj == kptr->ka_kj)) {
+					ptr->rank++;
+					keepnm--;
+				}
+			}
+
+			else if(kptr->sttfg) {
+
+				if(sptr->sttkj == kptr->sttkj) {
+					ptr->rank++;
+					keepnm--;
+				}
+			}
+
+			else if(kptr->ka_fg) {
+
+				if(sptr->ka_kj == kptr->ka_kj) {
+					ptr->rank++;
+					keepnm--;
+				}
+			}
+		}
+	}
+
+	kptr->rank = (u_char)keepnm;
+	trank++;
+
+	if(keepnm <= nrank) nrank++;
+
+	if(sptr->nmflg && (nrank > keepnm)) nrank = keepnm;
+}
+
+static void
+regetrank(SJ4_CONTEXT2) {
+	KHREC* kptr;
+	int    count;
+	int    tmp;
+
+	if(nrank < trank) {
+
+		tmp = nrank;
+
+		trank += nkhcount;
+	}
+
+	else {
+		nkhcount = tmp = 0;
+	}
+
+	for(count = khcount, kptr = kouhotbl; count--; kptr++) {
+
+		if(!(kptr->rank)) {
+			if(tmp && kptr->mode && !(kptr->offs)) {
+				kptr->rank = (u_char)tmp++;
+			} else
+				kptr->rank = (u_char)trank++;
+		}
+
+		else if((short)kptr->rank >= nrank)
+			kptr->rank += (u_char)nkhcount;
+	}
+}