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
|
require"math"
local max = math.max
local maxargs = 0
function trim(l) return l:gsub("^%s+",""):gsub("%s+$","") end
function mkcase(id,sig)
local sig = trim(sig)
local h = { "/* ",id,":",sig," */ ",sig:sub(1,1), " f", id,"(",""}
local t = { "fid=",id,";" }
local pos = 0
maxargs = max(maxargs, #sig-1)
for i = 2, #sig do
pos = tostring(i-1)
local name = "a"..pos
local ch = sig:sub(i,i)
h[#h+1] = ch
h[#h+1] = " "
h[#h+1] = name
h[#h+1] = ","
t[#t+1] = "V_"
t[#t+1] = ch
t[#t+1] = "["
t[#t+1] = pos
t[#t+1] = "]"
t[#t+1] = "="
t[#t+1] = name
t[#t+1] = ";"
end
h[#h] = "){"
t[#t+1] = "ret_"
t[#t+1] = sig:sub(1,1)
t[#t+1] = "("
t[#t+1] = pos
t[#t+1] = ")"
t[#t+1] = "}\n"
return table.concat(h,"")..table.concat(t,"")
end
function mkfuntab(n)
local s = { "funptr G_funtab[] = {\n"}
for i = 1, n do
s[#s+1] = "\t(funptr)&f"..i..",\n"
end
s[#s+1] = "};\n"
return table.concat(s,"")
end
function mksigtab(sigs)
local s = { "char const * G_sigtab[] = {\n"}
for k,v in pairs(sigs) do
s[#s+1] = '\t"'
s[#s+1] = v
s[#s+1] = '",\n'
end
s[#s+1] = "};\n"
return table.concat(s,"")
end
function mkall()
local lineno = 1
local sigtab = { }
for line in io.lines() do
local sig = trim(line)
io.write(mkcase(lineno,sig))
sigtab[#sigtab+1] = sig
lineno = lineno + 1
end
io.write(mkfuntab(lineno-1))
io.write(mksigtab(sigtab))
io.write("int G_maxargs = "..maxargs..";\n")
end
mkall()
-- print(mkcase(1,"vififififi"))
|
