add CC projects

computercraft/ULTRADUMP.lua

@@ -0,0 +1,115 @@
+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