127 lignes
4.1 KiB
Lua
127 lignes
4.1 KiB
Lua
--[[-------------------------------------------------------------------------
|
|
James Whitehead II grants anyone the right to use this work for any purpose,
|
|
without any conditions, unless such conditions are required by law.
|
|
---------------------------------------------------------------------------]]
|
|
|
|
local major = "DongleStub"
|
|
local minor = tonumber(string.match("$Revision: 313 $", "(%d+)") or 1)
|
|
|
|
local g = getfenv(0)
|
|
|
|
if not g.DongleStub or g.DongleStub:IsNewerVersion(major, minor) then
|
|
local lib = setmetatable({}, {
|
|
__call = function(t,k)
|
|
if type(t.versions) == "table" and t.versions[k] then
|
|
return t.versions[k].instance
|
|
else
|
|
error("Cannot find a library with name '"..tostring(k).."'", 2)
|
|
end
|
|
end
|
|
})
|
|
|
|
function lib:IsNewerVersion(major, minor)
|
|
local versionData = self.versions and self.versions[major]
|
|
|
|
-- If DongleStub versions have differing major version names
|
|
-- such as DongleStub-Beta0 and DongleStub-1.0-RC2 then a second
|
|
-- instance will be loaded, with older logic. This code attempts
|
|
-- to compensate for that by matching the major version against
|
|
-- "^DongleStub", and handling the version check correctly.
|
|
|
|
if major:match("^DongleStub") then
|
|
local oldmajor,oldminor = self:GetVersion()
|
|
if self.versions and self.versions[oldmajor] then
|
|
return minor > oldminor
|
|
else
|
|
return true
|
|
end
|
|
end
|
|
|
|
if not versionData then return true end
|
|
local oldmajor,oldminor = versionData.instance:GetVersion()
|
|
return minor > oldminor
|
|
end
|
|
|
|
local function NilCopyTable(src, dest)
|
|
for k,v in pairs(dest) do dest[k] = nil end
|
|
for k,v in pairs(src) do dest[k] = v end
|
|
end
|
|
|
|
function lib:Register(newInstance, activate, deactivate)
|
|
assert(type(newInstance.GetVersion) == "function",
|
|
"Attempt to register a library with DongleStub that does not have a 'GetVersion' method.")
|
|
|
|
local major,minor = newInstance:GetVersion()
|
|
assert(type(major) == "string",
|
|
"Attempt to register a library with DongleStub that does not have a proper major version.")
|
|
assert(type(minor) == "number",
|
|
"Attempt to register a library with DongleStub that does not have a proper minor version.")
|
|
|
|
-- Generate a log of all library registrations
|
|
if not self.log then self.log = {} end
|
|
table.insert(self.log, string.format("Register: %s, %s", major, minor))
|
|
|
|
if not self:IsNewerVersion(major, minor) then return false end
|
|
if not self.versions then self.versions = {} end
|
|
|
|
local versionData = self.versions[major]
|
|
if not versionData then
|
|
-- New major version
|
|
versionData = {
|
|
["instance"] = newInstance,
|
|
["deactivate"] = deactivate,
|
|
}
|
|
|
|
self.versions[major] = versionData
|
|
if type(activate) == "function" then
|
|
table.insert(self.log, string.format("Activate: %s, %s", major, minor))
|
|
activate(newInstance)
|
|
end
|
|
return newInstance
|
|
end
|
|
|
|
local oldDeactivate = versionData.deactivate
|
|
local oldInstance = versionData.instance
|
|
|
|
versionData.deactivate = deactivate
|
|
|
|
local skipCopy
|
|
if type(activate) == "function" then
|
|
table.insert(self.log, string.format("Activate: %s, %s", major, minor))
|
|
skipCopy = activate(newInstance, oldInstance)
|
|
end
|
|
|
|
-- Deactivate the old libary if necessary
|
|
if type(oldDeactivate) == "function" then
|
|
local major, minor = oldInstance:GetVersion()
|
|
table.insert(self.log, string.format("Deactivate: %s, %s", major, minor))
|
|
oldDeactivate(oldInstance, newInstance)
|
|
end
|
|
|
|
-- Re-use the old table, and discard the new one
|
|
if not skipCopy then
|
|
NilCopyTable(newInstance, oldInstance)
|
|
end
|
|
return oldInstance
|
|
end
|
|
|
|
function lib:GetVersion() return major,minor end
|
|
|
|
local function Activate(new, old)
|
|
-- This code ensures that we'll move the versions table even
|
|
-- if the major version names are different, in the case of
|
|
-- DongleStub
|
|
if not old then old = g.DongleStub end
|
|
|
|
if old then
|
|
new.versions = old.versions
|
|
new.log = old.log
|
|
end
|
|
g.DongleStub = new
|
|
end
|
|
|
|
-- Actually trigger libary activation here
|
|
local stub = g.DongleStub or lib
|
|
lib = stub:Register(lib, Activate)
|
|
end
|