79 lines
2.3 KiB
Lua
79 lines
2.3 KiB
Lua
package.path="?.lua;?/init.lua;?.lua;?/?/init.lua;"..package.path
|
|
-- local sterilizer = require("multi.integration.sterilization")
|
|
multi,thread = require("multi"):init()
|
|
local function inList(t,o,n)
|
|
local c = 1
|
|
if not o["$__COUNTER__$"] then
|
|
o["$__COUNTER__$"] = 1
|
|
end
|
|
if o["$__COUNTER__$"]==n then
|
|
return o
|
|
end
|
|
for i,v in pairs(t) do
|
|
if v==o then
|
|
o["$__COUNTER__$"] = o["$__COUNTER__$"] + 1
|
|
if o["$__COUNTER__$"]==n then
|
|
return o
|
|
end
|
|
end
|
|
end
|
|
end
|
|
function initLoop(t,max)
|
|
for i,v in pairs(t) do
|
|
v["$__COUNTER__$"] = max
|
|
end
|
|
return t
|
|
end
|
|
function _getPath(tbl, obj, conn, loop, path, orig)
|
|
local max = 100
|
|
if not loop then loop = initLoop({package,_G,math,io,os,debug,string,table,coroutine},max) end
|
|
if not path then path = {} end
|
|
if not ref then ref = {} end
|
|
for k, v in pairs(tbl) do
|
|
if type(v) == "table" and type(k)~="number" and not inList(loop,v,max) then -- Only go this deep
|
|
if v~=orig and k=="Parent" then
|
|
--
|
|
else
|
|
--print(table.concat(path,".").."."..k)
|
|
table.insert(ref,v)
|
|
table.insert(loop,v)
|
|
table.insert(path,k)
|
|
if v==obj then
|
|
conn(table.concat(path,".").."."..k,ref)
|
|
end
|
|
_getPath(v, obj, conn, loop, path, orig)
|
|
table.remove(path)
|
|
table.remove(ref)
|
|
end
|
|
end
|
|
if v==obj and orig[k] then
|
|
conn(k,ref)
|
|
elseif v==obj then
|
|
if type(k)=="number" then return end
|
|
local str = table.concat(path,".").."."..k
|
|
conn(str,ref)
|
|
end
|
|
end
|
|
end
|
|
function getPath(tbl,obj)
|
|
local instances = {}
|
|
_getPath(tbl, obj, function(ins)
|
|
table.insert(instances,ins)
|
|
end,nil,nil,tbl)
|
|
local min = math.huge
|
|
local ins
|
|
for i,v in pairs(instances) do
|
|
if #v<min then
|
|
ins = v
|
|
min = #v
|
|
end
|
|
end
|
|
return ins or false
|
|
end
|
|
test = {}
|
|
test.temp = {}
|
|
test.temp.hello = multi:newAlarm(3)
|
|
local hmm = test.temp.hello
|
|
print(getPath(_G, hmm))
|
|
print(getPath(_G, multi.Garbage)) -- Cannot index into multi because of __index
|
|
print(getPath(_G, multi.DestroyedObj)) |