LÖVE

Code: Select all

function deepcopy(orig)
  local orig_type = type(orig)
  local copy
  if orig_type == 'table' then
    copy = {}
    for orig_key, orig_value in next, orig, nil do
      copy[deepcopy(orig_key)] = deepcopy(orig_value)
    end
    setmetatable(copy, deepcopy(getmetatable(orig)))
	else -- number, string, boolean, etc
    copy = orig
  end
  return copy
end

local function class(prototype)
	local function metaclass(self, k, v) if ({constructor = true, id = true, super = true})[k] then rawset(getmetatable(self).__index, k, v) end end
	local function metaobject(self, k, v) if not(({class = true, id = true})[k]) then rawset(self, k, v) end end
	local function mt(table, type, timestamp) return {__timestamp = timestamp or 0, __index = table, __type = type, __tostring = function() return type .. tostring(table):sub(6) end, __newindex = function(self, k, v) pcall((type == 'class') and metaclass or metaobject, self, k, v) end} end
	local table = {
		prototype = prototype,
		constructor = function(self, ...) end,
		id = function(self, object) return tostring(object):sub(8) end,
		new = function(self, ...)
			local table = setmetatable({class = self}, {__index = self.prototype})
			table.id = self:id(table); self.constructor(table, ...)
			return setmetatable({}, mt(table, 'object', love.timer.getTime()))
		end,
		implements = function(self, interface, static)
			local interface = deepcopy(interface)
			local table = (static or false) and self or getmetatable(self).__index.prototype
			for k, v in pairs(interface) do rawset(table, k, v) end
			return self
		end,
		extend = function(self, prototype)
			local super = deepcopy(self)
			local index = getmetatable(super).__index
			local table = {super = self}
			for k, v in pairs(prototype) do rawset(index.prototype, k, v) end
			for k, v in pairs(index) do rawset(table, k, v) end
			for k, v in pairs(super) do rawset(table, k, v) end
			return setmetatable({}, mt(table, 'class'))
		end
	}
	return setmetatable({}, mt(table, 'class'))
end

local interface = {
	test = {
		slot = 0xc1,
		set = function(self, val) self[self.slot] = val end
	}
}

local original = class{}:implements(interface, true)
original.test:set(3)

local clone = original:extend{}
clone.test:set(8)

print(original.test, original.event[original.test.slot])
print(clone.test, clone.event[clone.test.slot])

Code: Select all

table: 0x1d2e820
table: 0x1d2d330

Code: Select all

lua: copytab.lua:61: attempt to index field 'event' (a nil value)

Code: Select all

local table =

Code: Select all

local function encapsulate(table, prototype, ...)