Import xsystem35-1.7.3-pre5

2026-10-08 14:48:19 +03:00 · 2014-04-26 18:40:24 +09:00
commit e607c9c2ee
551 changed files with 201715 additions and 0 deletions
@@ -0,0 +1,180 @@
+/*
+ * ShString.c  文字列操作 module
+ *
+ *   かえるにょ国にょアリス(未使用)
+ *   大悪司
+ *
+ * Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
+ *               1998-                           <masaki-c@is.aist-nara.ac.jp>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+*/
+/* $Id: ShString.c,v 1.6 2004/10/31 04:18:03 chikama Exp $ */
+
+#include "config.h"
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "portab.h"
+#include "nact.h"
+#include "system.h"
+#include "xsystem35.h"
+#include "variable.h"
+#include "ags.h"
+
+void ExchangeString(void) {
+	/*
+	  文字列(target)中の一部(pat)を別の文字列(patr)で置き換える
+	*/
+	int target = getCaliValue();
+	int pat    = getCaliValue();
+	int patr   = getCaliValue();
+	char *start = v_str(target -1);
+	char *next;
+	char dst[STRVAR_LEN] = "";
+	
+	DEBUG_COMMAND("ShString.ExchangeString: %d,%d,%d:\n", target, pat, patr);
+	
+	if (v_strlen(target -1) == 0 || v_strlen(pat -1) == 0) {
+		return;
+	}
+	
+	while(TRUE) {
+		next = strstr(start, v_str(pat -1));
+		if (next == NULL) break;
+		strncat(dst, start, (size_t)(next - start));
+		strncat(dst, v_str(patr -1), sizeof(dst) - strlen(dst));
+		start = next + v_strlen(pat -1);
+	}
+	
+	strncat(dst, start, sizeof(dst) - strlen(dst));
+	v_strcpy(target -1, dst);
+}
+
+void SetNum16String(void) { /* 1 */
+	int p1 = getCaliValue();
+	int p2 = getCaliValue();
+
+	DEBUG_COMMAND_YET("ShString.SetNum16String: %d,%d:\n", p1, p2);
+}
+
+void SetNum16HalfString(void) { /* 2 */
+	int p1 = getCaliValue();
+	int p2 = getCaliValue();
+
+	DEBUG_COMMAND_YET("ShString.SetNum16HalfString: %d,%d:\n", p1, p2);
+}
+
+void SetNum32String(void) { /* 3 */
+	int p1 = getCaliValue();
+	int p2 = getCaliValue();
+
+	DEBUG_COMMAND_YET("ShString.SetNum32String: %d,%d:\n", p1, p2);
+}
+
+void SetNum32HalfString(void) { /* 4 */
+	int p1 = getCaliValue();
+	int p2 = getCaliValue();
+
+	DEBUG_COMMAND_YET("ShString.SetNum32HalfString: %d,%d:\n", p1, p2);
+}
+
+void GetArrayString(void) { /* 5 */
+	int p1 = getCaliValue();
+	int p2 = getCaliValue();
+	int p3 = getCaliValue();
+
+	DEBUG_COMMAND_YET("ShString.GetArrayString: %d,%d,%d:\n", p1, p2, p3);
+}
+
+void SetWindowTitle(void) { /* 6 */
+	int strno = getCaliValue();
+	int p2    = getCaliValue(); /* ISys3xSystem */ 
+	
+	ags_setWindowTitle(v_str(strno - 1));
+	
+	DEBUG_COMMAND("ShString.SetWindowTitle: %d,%d:\n", strno, p2);
+}
+
+void FillString() {
+	/*
+	  指定の番号の文字列を他の文字列にコピー
+	  
+	  st:  コピー先の文字列の最初の番号
+	  cnt: コピーする文字列の数
+	  src: コピー元の文字列番号
+	*/
+	int st  = getCaliValue();
+	int cnt = getCaliValue();
+	int src = getCaliValue();
+	int p4 = getCaliValue(); /* ISys3xStringTable */
+	int i;
+	
+	for (i = 0; i < cnt; i++) {
+		v_strcpy(st -1, v_str(src));
+	}
+	
+	DEBUG_COMMAND("ShString.FillString: %d,%d,%d,%d:\n", st, cnt, src, p4);
+}
+
+void SetStringNum16(void) {
+	/*
+	  文字列を数値に変換
+	    大文字、小文字、混在可
+	  
+	  p1: 変換元文字列番号
+	  p2: 変換された数値を格納する変数
+	*/
+	int st = getCaliValue();
+	int *var = getCaliVariable();
+	char *str = v_str(st -1);
+	char _dst[100];
+	char *dst = _dst;
+	
+	DEBUG_COMMAND("ShString.SetStringNum16: %d,%p:\n", st, var);
+	
+	
+	while(*str) {
+		if (*str >= '0' && *str <= '9') {
+			*dst = *str;
+			dst++; str++;
+		} else if ((unsigned char)*str == 0x82) {
+			str++;
+			if (*str >= '0' && *str <= '9') { 
+				*dst = *str;
+				dst++; str++;
+			} else {
+				*var = 0;
+				return;
+			}
+		} else {
+			*var = 0;
+			return;
+		}
+	}
+	*dst = '\0';
+	
+	*var = atoi(_dst);
+}
+
+void SetStringNum32(void) {
+	int p1 = getCaliValue();
+	int *p2 = getCaliVariable();
+	
+	DEBUG_COMMAND_YET("ShString.SetStringNum32: %d,%p:\n", p1, p2);
+}