1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- globals.lua
-- reads the output of luac -d -l -p and reports global variable usage
-- typical usage: luac -p -l -d file.lua | lua globals.lua | sort
local P="^.*; " -- pattern to extract comments
local l="" -- last line seen
while 1 do
local s=read()
if s==nil then return end
if strfind(s,"%sSETLINE") then
l=gsub(s,P,"")
elseif strfind(s,"%sGETGLOBAL") then
local g=gsub(s,P,"")
write(g,"\t",l,"\n")
elseif strfind(s,"%sSETGLOBAL") then
local g=gsub(s,P,"")
write(g,"*\t",l,"\n")
end
end
|
