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
|
#!/usr/bin/lua5.2
usedlines = {c={}, n={}}
useddefs = {c={}, n={}}
function AddElem(tab, q)
if (tab.c[q]) then
tab.c[q] = tab.c[q] + 1
else
tab.c[q] = 1
tab.n[#tab.n+1]=q
end
end
function PrintTab(tab)
table.sort(tab.n)
for _,n in ipairs(tab.n) do
--print(tab.c[n], n)
print(n)
end
end
function noifdef(f)
local out = {}
local changed = false
for l in io.lines(f) do
local n = l:gsub("^#ifdef ([%w_]+)", "#if defined(%1)")
n = n:gsub("^#ifndef ([%w_]+)", "#if !defined(%1)")
out[#out+1] = (n)
if l ~= n then
--print(l , "-->", n)
changed = true
end
if n:match("^#if") then
local q = n:gsub("%/%*.+%*%/", "")
q = q:gsub("%s+$", "")
q = q:gsub("^%s+", "")
q = q:gsub("%s+", " ")
AddElem(usedlines, q)
for w in q:gmatch("%(%s*([%w_]+)%s*%)") do
AddElem(useddefs, w)
end
end
end
if changed then
local fi = io.open(f, "w")
for _,l in pairs(out) do
fi:write(l .. "\n")
end
fi:close()
print(f .. " rewritten")
end
-- print(#out .. " lines processed")
end
path = path or ""
noifdef(path .. "src/civetweb.c")
noifdef(path .. "src/civetweb_private_lua.h")
noifdef(path .. "src/main.c")
noifdef(path .. "src/md5.inl")
noifdef(path .. "src/mod_duktape.inl")
noifdef(path .. "src/mod_http2.inl")
noifdef(path .. "src/mod_lua.inl")
noifdef(path .. "src/mod_lua_shared.inl")
noifdef(path .. "src/mod_zlib.inl")
noifdef(path .. "src/sha1.inl")
noifdef(path .. "src/timer.inl")
noifdef(path .. "src/wolfssl_extras.inl")
noifdef(path .. "src/response.inl")
noifdef(path .. "src/handle_form.inl")
--PrintTab(usedlines)
--print("Defines used")
PrintTab(useddefs)
|
