【HSP3】DXライブラリのDxDLL.cs(C#)をHSPのasに変換するアレ（手抜き） | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
#module
// 指定オフセットから右から検索していき見つけた位置を返す。(1byteのみ)
#defcfunc searchR1 str _in, int ps, int sh
    idx = -1
    in = _in
    max = strlen(in)
    repeat max, ps
        if peek(in, max-cnt) == sh : idx = max-cnt : break
    loop
return idx
// instr 右から検索版
#defcfunc instrl var s1, str s2
ind = 0
repeat
    res = instr(s1, ind, s2)
    if res == -1 : break
    ind += res + 1
loop
return ind-1
#defcfunc GetMacroName str _tmp, var macro, var const
    sdim tmp, 1024
    tmp = _tmp
    sdim macro, 128
    sdim const, 128
    flag = 0
    if instr(tmp, 0, "public const int ") != -1{
        flag = 1
        sdim res, 128
        split tmp, " ", res
        ;markpos = -1   
        repeat length(res)
            if res(cnt) == "="{
                tmpcnt = cnt
                // スペースの可能性を考慮して検索(マクロ名を取得)
                repeat tmpcnt
                    tmpcnt--
                    if res(tmpcnt) != ""{
                        macro = res(tmpcnt)
                        break
                    }
                loop
                // スペースの場合があるので連結処理をする(定数値を取得)
                tmpcnt = cnt + 1    // 足しておく
                sdim tmpconst, 128
                repeat length(res)-tmpcnt, tmpcnt
                    tmpconst += res(cnt)+" "
                loop
                // セミコロンを除去
                tmpconst = strtrim(tmpconst, 0, ' ')
                const = strtrim(tmpconst, 0, ';')
                        // 
            }
        loop
    }
return flag
#defcfunc GetFuncName str _tmp, var _fnc, array _arg
    sdim tmp, 1024
    tmp = _tmp
    sdim _arg, 256 : sdim _fnc, 128
    num = -1
    if instr(tmp, 0, "extern") != -1{
        num = 0
        ks = instr(tmp, 0, "(")
        ke = instrl(tmp, ")")
        if ks != -1 | ke != -1{
            args = strmid(tmp, ks+1, ke-ks-1)
            tmp2 = strmid(tmp, 0, ks)
            tmp2 = strtrim(tmp2, 0, ' ')
            ps = searchR1(tmp2, 0, ' ')
            if ps != -1 {
                // 関数名を取得
                tmp3 = strmid(tmp2, ps, strlen(tmp2))
                _fnc = strtrim(tmp3, 0, ' ')
                
                // 引き続き引数を取得
                // 引数がないケースを取得
                cargs = args
                cargs = strtrim(cargs, 3, ' ')
                cargs = strtrim(cargs, 3, '\t')
                if cargs == "" : num = 0 : return num
                // 引数ありのケース
                sdim tmp2
                split args, ",", tmp2
                num = stat
                repeat num
                    tmp3 = tmp2(cnt)
                    tmp3 = strtrim(tmp3, 3, '\t')
                    tmp3 = strtrim(tmp3, 0, ' ')
                    ps = searchR1(tmp3, 0, ' ')
                    if ps != -1{
                        tmp4 = strmid(tmp3, 0, ps)
                        tmp4 = strtrim(tmp4, 0, ' ')
                        _arg(cnt) = tmp4
                    }
                loop
            }
        }
    }
return num
#global
    dialog "cs",16
    if stat == 0 : end
    fname = refstr
    notesel buf
    noteload fname
    
    sdim def, 1024*512
    sdim fncs, 1024*512
    
    repeat notemax
        noteget tmp, cnt
        if GetMacroName(tmp, macro, const){
            def += "#define global "+ macro +" "+ const +"\n"
        }
        num = GetFuncName(tmp, fnc, arg)
        if num != -1{
            sdim outargs
            repeat num
                if arg(cnt) == "int" || arg(cnt) == "ulong"{
                    outargs += "int"
                }else:if arg(cnt) == "System.Text.StringBuilder" || arg(cnt) == "string"{
                    outargs += "str"
                }else:if arg(cnt) == "double"{
                    outargs += "double"
                }else:if arg(cnt) == "float"{
                    outargs += "float"
                }else{
                    outargs += "sptr"
                }
                // 最後以外は , をつける
                if cnt != num - 1 : outargs += ","
            loop
    
            // 接頭辞の dx_ を外す(手抜き)
            split fnc, "dx_", fnc2
            fncs += "#func global "+ fnc2(1) +" \""+ fnc +"\" "+outargs+"\n"
        }
    loop
    
    sdim outbuf, 1024*512
    notesel outbuf
    noteadd "#ifndef __DXLIB__"
    noteadd "#define __DXLIB__"
    noteadd "#uselib \"DxLib.dll\""
    noteadd fncs
    noteadd def
    noteadd "#endif"
    notesave "DxLib.as"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX