Split でエラー；もしかして非対応?????

modules/chat.mod.hsp

@@ -1,3 +1,6 @@
+#include "./modules/http.mod.hsp"
+
+
 #ifndef __CHAT__
 #define __CHAT__
 
@@ -6,21 +9,10 @@ Chat
 
 #define URL	(CONFIG_SERVER_URL + "/chat.php")
 
-#defcfunc local \
-New \
-		int	p_id
-	id.insNum = p_id
-
-	insNum++
-
-	Return insNum - 1
-
 #deffunc local \
 Send \
-		int	p_insId,\
 		str	p_message
-	HTTPLoad@ URL + StrF ("?id=%d&text=%s", id.p_insId, p_message)
+	Fetch@Http URL + StrF ("?id=%d&text=%s", id.p_insId, p_message)
-	HTTPInfo _, HTTPINFO_MODE
 
 	Return
 

modules/http.mod.hsp

@@ -10,7 +10,6 @@ Http
 #deffunc local \
 Fetch \
 		str	p_url,\
-		local	l_res,\
 		local	l_size
 	HTTPLoad p_url
 
@@ -35,14 +34,18 @@ Fetch \
 			HTTPInfo data, HTTPINFO_DATA
 
 			status = STATUS_SUCCESS
+		}
+		Else {
+			HTTPInfo errMsg, HTTPINFO_ERROR
 
-			Return
+			status = STATUS_ERROR
 		}
 	}
+	Else {
+		HTTPInfo errMsg, HTTPINFO_ERROR
 
-	HTTPInfo errMsg, HTTPINFO_ERROR
+		status = STATUS_ERROR
-
+	}
-	status = STATUS_ERROR
 
 	Return
 

modules/setting.mod.hsp

@@ -20,9 +20,9 @@ Setting
 
 #deffunc local \
 Load
-	userId = 0
+	id@User = 0
-	SDim userPasscode, USER_PASSCODE_SIZE
+	SDim pass@User, USER_PASSCODE_SIZE
-	SDim userInheritanceCode, USER_INHERITANCE_CODE_SIZE
+	SDim inheritanceCode@User, USER_INHERITANCE_CODE_SIZE
 
 	Exist FILE_NAME
 	If strSize < 0 {
@@ -31,17 +31,24 @@ Load
 		Return
 	}
 
-	BLoad FILE_NAME, userId, USER_ID_SIZE, USER_ID_OFFSET
+	BLoad FILE_NAME, id@User, USER_ID_SIZE, USER_ID_OFFSET
-	BLoad FILE_NAME, userPasscode, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET
+	BLoad FILE_NAME, pass@User, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET
-	BLoad FILE_NAME, userInheritanceCode, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET
+	BLoad FILE_NAME, inheritanceCode@User, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET
 
 	Return
 
 #deffunc local \
-Save
+Save \
-	BSave FILE_NAME, userId, USER_ID_SIZE, USER_ID_OFFSET
+		local	l_dummy
-	BSave FILE_NAME, userPasscode, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET
+	Exist FILE_NAME
-	BSave FILE_NAME, userInheritanceCode, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET
+	If strSize < 0 {
+		l_dummy = ""
+		BSave FILE_NAME, l_dummy, 0
+	}
+
+	BSave FILE_NAME, id@User, USER_ID_SIZE, USER_ID_OFFSET
+	BSave FILE_NAME, pass@User, USER_PASSCODE_SIZE, USER_PASSCODE_OFFSET
+	BSave FILE_NAME, inheritanceCode@User, USER_INHERITANCE_CODE_SIZE, USER_INHERITANCE_CODE_OFFSET
 
 	Load
 

modules/user.mod.hsp

@@ -13,16 +13,15 @@ User
 
 #deffunc local \
 Create \
-		str	p_name,\
+		str	p_name
-		local	l_data
 	Fetch@Http CREATE_URL + "?name=" + p_name
 
 	If status@Http = STATUS_SUCCESS@Http {
-		Split data@Http, ",", l_data
+		Split data@Http, ",", create_data
 
-		id = Int (l_data.0)
+		id = Int (create_data.0)
-		pass = l_data.1
+		pass = create_data.1
-		inheritanceCode = l_data.2
+		inheritanceCode = create_data.2
 	}
 	Else {
 		id = 0
@@ -40,9 +39,6 @@ Auth \
 		local	l_data
 	Load@Setting
 
-	id = userId@Setting
-	pass = userPasscode@Setting
-
 	If id <= 0 {
 		Return
 	}