root/lang/hsp/misc/unused_variable_lister/unused_variable_lister.hsp @ 18343

// 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 �ł����ƕϐ�����Ă����悤�ȕϐ�����肵�Ă��܂��܂�

// TODO:
// - �딻���Ȃ������// - �����Ă��Ȃ����̕ϐ�����ŎQ�Ƃ��Ă������t�@�C�����ƍs�ԍ���͂���
#module
#defcfunc get_ds var ds, int offset
    dupptr ret, varptr(ds) + offset, 1, 2
    return ret
#defcfunc get_type_name int type
    if 0 == types {
        types = "TYPE_MARK", "TYPE_VAR", "TYPE_STRING", "TYPE_DNUM", "TYPE_INUM", "TYPE_STRUCT", "TYPE_XLABEL", "TYPE_LABEL", "TYPE_INTCMD", "TYPE_EXTCMD", "TYPE_EXTSYSVAR", "TYPE_CMPCMD", "TYPE_MODCMD", "TYPE_INTFUNC", "TYPE_SYSVAR", "TYPE_PROGCMD", "TYPE_DLLFUNC", "TYPE_DLLCTRL", "TYPE_USERDEF"
    }
    return types.type+"("+type+")"
#global

#include "hspcmp.as"

#define TYPE_MARK 0
#define TYPE_VAR 1
#define TYPE_STRING 2
#define TYPE_DNUM 3
#define TYPE_INUM 4
#define TYPE_STRUCT 5
#define TYPE_XLABEL 6
#define TYPE_LABEL 7
#define TYPE_INTCMD 8
#define TYPE_EXTCMD 9
#define TYPE_EXTSYSVAR 10
#define TYPE_CMPCMD 11
#define TYPE_MODCMD 12
#define TYPE_INTFUNC 13
#define TYPE_SYSVAR 14
#define TYPE_PROGCMD 15
#define TYPE_DLLFUNC 16
#define TYPE_DLLCTRL 17
#define TYPE_USERDEF 18

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)

pt_cs     = lpeek(ax, 16)
max_cs    = lpeek(ax, 20)
pt_ds     = lpeek(ax, 24)
max_ds    = lpeek(ax, 28)
pt_ot     = lpeek(ax, 32)
max_ot    = lpeek(ax, 36)
pt_dinfo  = lpeek(ax, 40)
max_dinfo = lpeek(ax, 44)

sdim cs,    max_cs
sdim ds,    max_ds
sdim ot,    max_ot
sdim dinfo, max_dinfo
memcpy cs,    ax, max_cs,    0, pt_cs
memcpy ds,    ax, max_ds,    0, pt_ds
memcpy ot,    ax, max_ot,    0, pt_ot
memcpy dinfo, ax, max_dinfo, 0, pt_dinfo

sdim varnames,, max_val
i = 0
repeat max_dinfo
    ofs = peek(dinfo,cnt)
    if ofs == 255 : break
    if ofs == 254 {
        continue cnt + 1 + 3 + 2
    }
    if ofs == 253 {
        varnames.i = get_ds(ds, lpeek(dinfo, cnt + 1) & 0x00ffffff)
        i ++
        continue cnt + 1 + 3 + 2
    }
    if ofs == 252 {
        continue cnt + 1 + 2
    }
loop

dim var_used_flags, max_val
repeat max_cs
    c = wpeek(cs, cnt)
    sz = 2
    type = c & 0x1fff
    ex1 = (c & 0x2000) != 0
    ex2 = (c & 0x4000) != 0
    if c & 0x8000 {
        code = lpeek(cs, cnt + sz)
        sz += 4
    } else {
        code = wpeek(cs, cnt + sz)
        sz += 2
    }
    if type == TYPE_CMPCMD {
        sz += 2
    }
    if ex1 and type == TYPE_VAR {
        var_used_flags.code = 1
    }
    continue cnt + sz
loop

unused_variables_count = 0
unused_variables = 0
repeat max_val
    if var_used_flags.cnt : continue
    unused_variables.unused_variables_count = cnt
    unused_variables_count ++
loop

if unused_variables_count {
    mes "���g�p�ϐ���+ unused_variables_count + " �Œ��‚��܂���"
} else {
    mes "���g�p�ϐ��͌��‚����������"
}
repeat unused_variables_count
    mes varnames(unused_variables.cnt)
loop