kskit/Install_00/Prototype.lua

55 lines
1.5 KiB
Lua
Raw Normal View History

Prototype={}
function Prototype:init() end -- dummy constructor
-- function for injecting our functionality into an table
function Prototype:__set_parent(newparent)
setmetatable(self, {
-- non-overwritten keys are to be fetched from parent
__index=newparent,
-- construct a child when called directly
__call=function(parent, ...)
local newchild = {}
self.__set_parent(newchild, parent)
newchild:init(...)
return newchild
end
})
end
-- serialize our object into a string
function Prototype:__tostring()
local t=type(self)
if t=="table" then
local r=""
-- load and sort table keys
local tkeys={}
for k in pairs(self) do table.insert(tkeys, k) end
table.sort(tkeys, function(a,b) return tostring(a)<tostring(b) end)
-- iterate over our table
for _,k in ipairs(tkeys) do
local v = Prototype.__tostring(self[k])
-- ignore nil values, they unset the key anyways
if v~= nil and v ~= "nil" then
if r~="" then r=r.."," end
-- short format: foo="bar", saves bytes
if type(k)=="string" and k:match("^[%l%u_][%w_]*$") then
r=r..k.."="..v
-- long format: ["foo"]="bar", allows weird keys
else
r=r.."["..Prototype.__tostring(k).."]="..v
end
end
end
return "{"..r.."}"
elseif t=="number" then
return tostring(self)
elseif t=="string" then
return "\""..self:gsub("\\","\\\\"):gsub("\"","\\\"").."\""
else
return "nil"
end
end
Prototype:__set_parent(nil) -- enable __call