Changeset 18343

Timestamp:

08/27/08 22:43:35 (4 months ago)

Author:

fujidig

Message:

スクリプトファイルを指定しても大丈夫なように変更

Files:

• lang/hsp/misc/unused_variable_lister/unused_variable_lister.hsp (modified) (4 diffs)

lang/hsp/misc/unused_variable_lister/unused_variable_lister.hsp

@@ -1 +1 @@
 // Unused Variable Lister
 // �����Ă��Ȃ��ÓI�ϐ��������
+// �t�@�C���I��C�A���O��HSP �̃I�u�W�F�N�g�t�@�C��(obj)���X�N���v�g�t�@�C��(*.hsp)��肵�Ă�������
+// �I�u�W�F�N�g�t�@�C����start.ax �ł̓f�o�b�O�����t��������̂�obj ��肵�Ă��������B
+
 // ���ӓ_:
 // �u�����Ă��Ȃ�����sdim �Ƃ� dupptr �ł����ƕϐ�����Ă����悤�ȕϐ�����肵�Ă��܂��܂�
@@ -16 +19 @@
     return types.type+"("+type+")"
 #global
+
+#include "hspcmp.as"
 
 #define TYPE_MARK 0
@@ -37 +42 @@
 #define TYPE_USERDEF 18
 
-dialog "*", 16, "HSP �I�u�W�F�N�g�t�@�C��"
+dialog "*", 16, "HSP obj file / script file"
 if stat == 0 : end
 obj_file_path = refstr
+ext = getpath(obj_file_path, 2+16)
+if ext == ".hsp" or ext == ".as" {
+    script_file_name = getpath(obj_file_path, 8)
+    obj_file_path = "obj"
+    hsc_ini script_file_name
+    hsc_objname obj_file_path
+    hsc_comp 1, 0
+    if stat {
+        title "�R���p�C���Ɏ��s���܂���"
+        hsc3_messize size
+        sdim error_message, size + 1
+        hsc_getmes error_message
+        mesbox error_message, 640, 480
+        stop
+    }
+}
 exist obj_file_path
+if strsize < 0 {
+    dialog "�I�u�W�F�N�g�t�@�C�� " + obj_file_path + "�����݂��܂���    end
+}
 sdim ax, strsize
 bload obj_file_path, ax
+if lpeek(ax) != 0x33505348 { // header magic number check
+    dialog "�s���ȃI�u�W�F�N�g�t�@�C���ł�", 1
+    end
+}
 
 max_val   = lpeek(ax,  8)
@@ -99 +127 @@
         sz += 2
     }
-    if ex1 && type == TYPE_VAR {
+    if ex1 and type == TYPE_VAR {
         var_used_flags.code = 1
     }