random-stuff/computercraft/ULTRADUMP.lua

local a=http.get"https://pastebin.com/raw/KXHSsHkt"local b=fs.open("ser","w")b.write(a.readAll())a.close()b.close()

local ultradump = {}
local ser = require "/ser"
local e = ser.serialize

local function copy(x)
	if type(x) == "table" then
		local out = {}
		for k, v in pairs(x) do
			out[k] = v
		end
		return out
	else return x end
end

function ultradump.dump(x)
	local objects = {}
	local enclookup = {}
	local count = 0

	local function addobj(o)
		objects[o] = count
		local c = count
		count = count + 1
		return c
	end

	local function mkref(id)
		return { _to = id }
	end

	local function recurse(x)
		if enclookup[x] then print("Using From Cache", x) return enclookup[x] end -- If we already have an encoded copy cached, use it
		local t = type(x)

		if t == "string" or t == "number" then
			return x
		elseif t == "table" then
			local mt = debug.getmetatable(x)
			local out = {}
			local id = addobj(out)
			local ref = mkref(id)
			enclookup[x] = ref
			for k, v in pairs(x) do
				out[recurse(k)] = recurse(v) -- copy table
			end
			if mt then out._mt = recurse(mt) end -- If table has metatable, add it to output table
			return ref
		elseif t == "function" then
			local ok, code = pcall(string.dump, x)
			if ok then
				local info = debug.getinfo(x, "u") -- contains number of upvalues of function
				local upvalues = {}
				for i = 1, info.nups do
					local name, value = debug.getupvalue(x, i)
					upvalues[i] = value -- upvalues seem to be handled by index, so the name's not important
				end
				local env
				if getfenv then env = getfenv(x)
				else env = upvalues[1] end -- it seems that in Lua 5.3 the first upvalue is the function environment.
				local out = { 
					_t = "f", -- type: function
					c = code,
					u = recurse(upvalues),
					e = recurse(env)
				}
				local id = addobj(out)
				local ref = mkref(id)
				enclookup[x] = ref
				return ref
			else
				return nil -- is a non-Lua-defined function, so we can't operate on it very much
			end
		end
	end

	local root = recurse(x)

	local inverted = {}
	for k, v in pairs(objects) do
		inverted[v] = k
	end

	print(e(root), e(objects), e(inverted))

	inverted._root = copy(root)

	return inverted
end

function ultradump.load(objects)
	local function recurse(x)
		local t = type(x)
		if t == "string" or t == "number" then
			return x
		elseif t == "table" then

		else
			error("Unexpected Type " .. t)
		end
	end

	return recurse(objects._root)
end

local input = {
	1, 2, 3, function() print "HI!" end
}
input[5] = input

local out = ultradump.dump(input)
--print(e(out))

return ultradump