Changeset 13253

Timestamp:

06/05/08 03:09:46 (5 years ago)

Author:

fujidig

Message:

HSPファイルのOpen、HSファイルのSave機能を追加するなどした。

Location:

lang/hsp/misc/hsp2hs

Files:

• main.hsp (modified) (2 diffs)
• mod_hsp2hs.hsp (modified) (5 diffs)

lang/hsp/misc/hsp2hs/main.hsp

@@ -1 +1 @@
 #include "mod_hsp2hs.hsp"
 
-        notesel hsp
-        noteload "mod_strutils.hsp"
+        hsp = ""
         hs = ""
-        mesbox hsp, 320, 460
-        pos 320, 0
-        mesbox hs, 320, 460
-        hs_objid = stat
-        objsize 640, 20
-        pos 0
-        button gosub ">> Run! >>", *run_hsp2hs
+        
+        objsize 320, 20
+        pos 0, 0 : button gosub "Open", *open_dialog
+        pos 320, 0 : button gosub "Save", *save_dialog
+        pos 0, 20 : mesbox hsp, 320, 440 : hsp_objid = stat
+        pos 320, 20 : mesbox hs, 320, 440 : hs_objid = stat
+        objsize 640, 20 : pos 0 : button gosub ">> Run! >>", *run_hsp2hs
+        hsp_path = "mod_strutils.hsp"
+        gosub *open
         gosub *run_hsp2hs
         stop    
@@ -18 +19 @@
         objprm hs_objid, hs
         return
+
+*open
+        notesel hsp
+        noteload hsp_path
+        objprm hsp_objid, hsp
+        return
+
+*open_dialog
+        dialog "hsp", 16
+        if stat == 0 : return
+        hsp_path = refstr
+        gosub *open
+        return
+
+*save
+        notesel hs
+        notesave hs_path
+        return
+
+*save_dialog
+        dialog "hs", 17
+        if stat == 0 : return
+        hs_path = refstr
+        gosub *save
+        return

lang/hsp/misc/hsp2hs/mod_hsp2hs.hsp

@@ -108 +108 @@
     srcptr_n = 0
     
-    #enum STATUS_DEFAULT = 12345
-    #enum STATUS_DOC1 // ==hspmodule== �` ; ==/hspmodule==
+    #enum STATUS_DEFAULT = 1
+    #enum STATUS_DOC1 // ; ==hspmodule== �` ; ==/hspmodule==
     #enum STATUS_DOC2 // /** �` */
     #enum STATUS_DOCEND // �h�L�������g�I��
@@ -121 +121 @@
         srcptr_n = srcptr + strsize
         lnptr = 0
-        logmes "status = " + status + ", ln = '" + ln +"'"
         
         if status == STATUS_DEFAULT | status == STATUS_DOC1 {
@@ -138 +137 @@
                                 continue
                         }
-                        logmes "strmid(ln, "+lnptr+", 13) = '"+strmid(ln, lnptr, 13)
                         if strmid(ln, lnptr, 13) == "==hspmodule==" {
                                 doc = ""
@@ -205 +203 @@
         prm_types = ""
         prm_names = ""
-        prms_cnt = 0
+        prms_cnt = 0 
 
         repeat
-            // TODO : �p�����[�^�^�C�v local �͒lj�������łȂ�
             if cnt != 0 {
                 if peek(ln, lnptr) != ',' : break
@@ -214 +211 @@
             }
             lnptr += spnspace(ln, lnptr)
-            sz = scanident(ln, lnptr, prm_types.cnt)
+            sz = scanident(ln, lnptr, prm_type)
             if sz == 0 : break
             lnptr += sz
             lnptr += spnspace(ln, lnptr)
-            sz = scanident(ln, lnptr, prm_names.cnt)
+            sz = scanident(ln, lnptr, prm_name)
             if sz == 0 : break
             lnptr += sz
             lnptr += spnspace(ln, lnptr)
+            if prm_type == "local" : continue
+            prm_types.cnt = prm_type
+            prm_names.cnt = prm_name
             prms_cnt ++
         loop
 
+#ifdef _DEBUG
+                logmes "function " + funcname
+                logmes " dprms_cnt = "+dprms_cnt
+                repeat dprms_cnt
+                        logmes "  dprm_names."+cnt+"="+dprm_names.cnt + ", dprm_summaries."+cnt+"="+dprm_summaries.cnt
+                loop
+                logmes " prms_cnt = " + prms_cnt
+                repeat prms_cnt
+                        logmes "  prm_names."+cnt+"="+prm_names.cnt + ", prm_types."+cnt+"="+prm_types.cnt
+                loop
+#endif
         // TODO : �h�L�������g�̃p�����[�^���Ǝ�ۂ̉����X�g��r���Ĉ����ȂLjႦ�Όx��