Import SJ3 2.0.1.20

Signed-off-by: Masanori Ogino <mogino@acm.org>

kanakan/clstudy.c

@@ -0,0 +1,361 @@
+/*
+ * 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: clstudy.c,v $  
+ * $SonyRevision: 1.1 $ 
+ * $SonyDate: 1994/06/03 08:01:32 $
+ */
+
+
+
+
+
+#include "sj_kcnv.h"
+
+
+
+Int	sj2cd_str(), sstrlen();
+Void	memcpy(), memset(), mvmemd(), mvmemi();
+
+
+
+Static  Uchar	*delcldata(), *srchclpos();
+Void	delclsub(), mkclidx();
+Static  Int	delclold();
+
+
+
+Int	clstudy(yomi1, yomi2, stdy)
+Uchar	*yomi1;
+Uchar	*yomi2;
+STDYOUT	*stdy;
+{
+	Uchar	ytmp[CLSTDY_TMPLEN];
+	Uchar	*dst, *ptr;
+	Int	ret;
+	Int	len1, len2;
+	Int	alen, blen;
+	Int	i;
+
+	if (!StudyExist()) return ClstudyNoDict;
+
+	
+	if (!yomi1 || !*yomi1) return ClstudyParaErr;
+
+	
+	if (!yomi2 || !*yomi2) {
+
+		
+		if (!sj2cd_str(yomi1, ytmp, CLSTDY_TMPLEN))
+			return ClstudyYomiErr;
+
+		
+		(Void)delcldata(ytmp);
+
+		ret = ClstudyNormEnd;
+	}
+
+	
+	else if (!stdy)
+		return ClstudyParaErr;
+
+	else {
+		
+		if (!sj2cd_str(yomi1, ytmp, CLSTDY_TMPLEN))
+			return ClstudyYomiErr;
+		len1 = sstrlen(ytmp);
+
+		
+		if (!sj2cd_str(yomi2, ytmp + len1, CLSTDY_TMPLEN - len1))
+			return ClstudyYomiErr;
+		len2 = len1 + stdy -> len;
+
+		
+		ytmp[len2] = 0;
+
+		
+		alen = len2 + CL_HDLEN;
+
+		
+		if (alen + 1 >= ClStudyLen) return ClstudyNoArea;
+
+		
+		blen = ClStudyTail - delcldata(ytmp) - 1;
+
+		
+		while (blen < alen) {
+			
+			if (!(i = delclold())) break;
+			blen += i;
+		}
+
+		
+		if (blen >= alen) {
+			
+			dst = srchclpos(ytmp);
+
+			
+			ptr = ClStudyTail - alen;
+			mvmemd(ptr, ClStudyTail, (ptr - dst));
+			ClYomiLen(dst)  = (Uchar)len2;
+			ClGramCode(dst) = stdy -> hinshi;
+			ClYomi1Len(dst) = (Uchar)len1;
+			ClSetNum(dst, 1);
+			memcpy(ytmp, ClYomiPos(dst), len2);
+
+			ret = ClstudyNormEnd;
+		}
+		
+		else
+			ret = ClstudyNoArea;
+	}
+
+	
+	mkclidx();
+
+	
+	putcldic();
+
+	
+	return ret;
+}
+
+
+
+Static	Uchar	*delcldata(ycode)
+Uchar	*ycode;
+{
+	Reg1	Uchar	*tagptr;
+	Reg2	Uchar	*ptr1;
+	Reg3	Uchar	*ptr2;
+	Int	len1;
+
+	
+	tagptr = ClStudyDict;
+	while (!iseocl(tagptr)) {
+		
+		ptr1 = ycode;
+		ptr2 = ClYomiPos(tagptr);
+		len1 = ClYomiLen(tagptr);
+
+		
+		while (*ptr1 && len1) {
+			if (*ptr1 != *ptr2) break;
+			ptr1++;
+			ptr2++;
+			len1--;
+		}
+
+		
+		if (!*ptr1 || !len1) {
+			
+			delclsub(tagptr);
+
+			
+		}
+		
+		else {
+			tagptr = ClNextTag(tagptr);
+		}
+	}
+
+	
+	return tagptr;
+}
+
+
+
+Void	delclsub(target)
+Uchar	*target;
+{
+	Reg1	Uchar	*src;
+	Int	num;
+	Int	tmp;
+	Int	len;
+
+	
+	num = ClGetNum(target);
+
+	
+	len = ClBlkLen(target);
+
+	
+	src = target + len;
+
+	
+	mvmemi(src, target, (ClStudyTail - src));
+
+	
+	memset(ClStudyTail - len, 0, len);
+	
+	
+	src = ClStudyDict;
+	while (!iseocl(src)) {
+		
+		tmp = ClGetNum(src);
+
+		
+		if (tmp > num) {
+			
+			tmp -= 1;
+			ClSetNum(src, tmp);
+		}
+
+		
+		src = ClNextTag(src);
+	}
+}
+
+
+
+Static	Int	delclold()
+{
+	Reg1	Uchar	*tagptr;
+	Reg2	Uchar	*target;
+	Int	num;
+	Int	tmp;
+
+	
+	target = NULL;
+	num = 0;
+
+	
+	tagptr = ClStudyDict;
+	while (!iseocl(tagptr)) {
+
+		
+		tmp = ClGetNum(tagptr);
+
+		
+		if (tmp >= num) {
+			
+			num = tmp;
+			target = tagptr;
+		}
+
+		
+		tagptr = ClNextTag(tagptr);
+	}
+
+	
+	if (target) {
+		
+		num = ClBlkLen(tagptr);
+
+		
+		delclsub(target);
+	}
+
+	
+	return num;
+}
+
+
+
+Static	Uchar	*srchclpos(ycode)
+Uchar	*ycode;
+{
+	Reg1	Uchar	*tagptr;
+	Reg3	Uchar	*target;
+	Reg2	Uchar	*ptr1;
+	Reg4	Uchar	*ptr2;
+	Reg5	Int	len;
+	Int	tmp;
+
+	
+	target = NULL;
+	tagptr = ClStudyDict;
+	while (!iseocl(tagptr)) {
+		
+		tmp = ClGetNum(tagptr);
+
+		
+		tmp++;
+		ClSetNum(tagptr, tmp);
+
+		
+		ptr1 = ycode;
+		ptr2 = ClYomiPos(tagptr);
+		len  = ClYomiLen(tagptr);
+		while (*ptr1 && len) {
+			if (*ptr1 != *ptr2) break;
+			ptr1++;
+			ptr2++;
+			len--;
+		}
+
+		
+		if (!target) {
+			
+			if (!len)
+				;
+
+			
+			else if (!*ptr1)
+				target = tagptr;
+
+			
+			else if (*ptr1 < *ptr2)
+				target = tagptr;
+		}
+
+		
+		tagptr = ClNextTag(tagptr);
+	}
+
+	
+	return target ? target : tagptr;
+}
+
+
+
+Void	mkclidx()
+{
+	Reg1	Uchar	*ptr;
+	Reg2	Int	num;
+	Int	st, ed;
+
+	if (!StudyExist()) return;
+
+	ptr = ClStudyDict;
+	for (num = st = 0 ; st < 0x100 ; num++, st = ed) {
+		ed = st + ClStudyStep;
+
+		while (!iseocl(ptr)) {
+			if ((unsigned int) *ClYomiPos(ptr) >= st) break;
+			ptr = ClNextTag(ptr);
+		}
+
+		if (ClYomiLen(ptr) && ((Int)*ClYomiPos(ptr) < ed))
+			ClStudyIdx[num] = ptr - ClStudyDict;
+		else
+			ClStudyIdx[num] = (Ushort)-1;
+	}
+}