Rename to Sj4

lib/sj4core/mkbunset.c

@@ -0,0 +1,157 @@
+/*
+ * 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: mkbunset.c,v $
+ * $SonyRevision: 1.1 $
+ * $SonyDate: 1994/06/03 08:02:02 $
+ */
+
+#include "sj_kcnv.h"
+#include "sj_hinsi.h"
+
+#include "sj_kanakan.h"
+
+void mkbunsetu(SJ4_CONTEXT2) {
+	JREC*	 jrec;
+	TypeGram hinsi;
+	u_char*	 cnj;
+	CREC	 crec[4];
+	int	 count;
+	TypeCnct right;
+	u_char*	 next;
+	int	 i;
+
+	fzkcount = 0;
+
+	maxclptr = NULL;
+
+	jrec = maxjptr;
+
+	while(jrec) {
+
+		if(jrec->stbofs && (cnj = getstb(jrec->hinsi)))
+			hinsi = StbHinsi(cnj + jrec->stbofs - 1);
+		else
+			hinsi = jrec->hinsi;
+
+		if((right = Connadr[hinsi])) {
+			gobilen = 0;
+			next	= cnvstart + jrec->jlen;
+
+			if(terminate(SJ4_CONTEXT_PASS right, next)) {
+				fzk_ka_flg = 0;
+				setclrec(SJ4_CONTEXT_PASS jrec, next, right);
+			}
+
+			srchfzk(SJ4_CONTEXT_PASS jrec, next, right, 0);
+		}
+
+		else if((count = setconj(SJ4_CONTEXT_PASS hinsi, jrec, crec))) {
+
+			for(i = count; i-- > 0;) {
+
+				right	= crec[i].right;
+				gobilen = crec[i].len;
+				next	= cnvstart + jrec->jlen + gobilen;
+
+				if(terminate(SJ4_CONTEXT_PASS right, next)) {
+					fzk_ka_flg = 0;
+					setclrec(SJ4_CONTEXT_PASS jrec, next, right);
+				}
+
+				srchfzk(SJ4_CONTEXT_PASS jrec, next, right, 0);
+			}
+		}
+
+		jrec = jrec->jsort;
+	}
+}
+
+CLREC*
+argclrec(SJ4_CONTEXT int len) {
+	CLREC* ptr;
+	CLREC* rec;
+	CLREC* child;
+
+	rec = alloc_clrec(SJ4_CONTEXT_PASS2);
+
+	if(!rec) {
+		if(!maxclptr)
+			return NULL;
+
+		ptr = NULL;
+		rec = maxclptr;
+		while((child = rec->clsort)) {
+			ptr = rec;
+			rec = child;
+		}
+
+		if(len <= (int)rec->cllen)
+			return NULL;
+
+		if(ptr)
+			ptr->clsort = NULL;
+		else
+			maxclptr = NULL;
+		if(rec->jnode) (rec->jnode)--;
+	}
+
+	memset((u_char*)rec, 0, sizeof(*rec));
+	rec->cllen = rec->cl2len = (u_char)len;
+
+	if(!maxclptr) {
+		maxclptr = rec;
+		return rec;
+	}
+
+	ptr = maxclptr;
+
+	if(((int)ptr->cllen < len) ||
+	   (((int)ptr->cllen == len) &&
+	    (ptr->jnode->hinsi == TANKANJI))) {
+		rec->clsort = maxclptr;
+		maxclptr    = rec;
+		return rec;
+	}
+
+	while((child = ptr->clsort)) {
+		if((int)child->cllen < len ||
+		   ((int)child->cllen == len &&
+		    child->jnode->hinsi == TANKANJI)) {
+			ptr->clsort = rec;
+			rec->clsort = child;
+			return rec;
+		} else
+			ptr = child;
+	}
+
+	ptr->clsort = rec;
+	return rec;
+}