channel07/oop.lua at master · digitalcreature/channel07 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
class = {}
subclass = class --syntactic sugar; both class(super) and subclass(super) can be used to extend an existing class

local class_mt = {}
setmetatable(class, class_mt)

--create an instance of a class
local function newObject(class, ...)
	local object = {}
	setmetatable(object, class)
	if (object.init) then object:init(...) end
	return object
end

--create a new class
local function newClass(_, super)
	local class = {}
	local class_mt = {}
	setmetatable(class, class_mt)
	class_mt.__index = super
	class_mt.__call = newObject
	class.new = newObject
	class.super = super
	class.class = class --yo dawg
	class.base = class
	class.extend = subclass --syntactic sugar: "super:extend()" := "subclass(super)"
	class.__index = class
	class.is = instanceof
	return class
end

function instanceof(obj, class)
	if type(obj) == "table" then
		local objclass = obj.class
		repeat
			if objclass == class then return true end
			objclass = objclass.super
		until not objclass
	end
end

class_mt.__call = newClass