Difference between revisions of "Module:No globals"

From BESA® Wiki
Jump to: navigation, search
m (1 revision)
(Created page with 'local mt = getmetatable(_G) or {} local oldIndex = mt.__index or function() return nil end mt.__index = function(t, k) if k ~= 'name' and k ~= 'arg' then erro...')
(4 intermediate revisions by 2 users not shown)
Line 1: Line 1:
 
local mt = getmetatable(_G) or {}
 
local mt = getmetatable(_G) or {}
function mt.__index (t, k)
+
local oldIndex = mt.__index or function() return nil end
if k ~= 'arg' then
+
mt.__index = function(t, k)
 +
if k ~= 'name' and k ~= 'arg' then
 
error('Tried to read nil global ' .. tostring(k), 2)
 
error('Tried to read nil global ' .. tostring(k), 2)
 
end
 
end
return nil
+
return oldIndex(t, k)
 
end
 
end
 +
local oldNewindex = mt.__newindex or rawset
 
function mt.__newindex(t, k, v)
 
function mt.__newindex(t, k, v)
if k ~= 'arg' then
+
if k ~= 'name' and k ~= 'arg' then
 
error('Tried to write global ' .. tostring(k), 2)
 
error('Tried to write global ' .. tostring(k), 2)
 
end
 
end
rawset(t, k, v)
+
oldNewindex(t, k, v)
 
end
 
end
 
setmetatable(_G, mt)
 
setmetatable(_G, mt)

Revision as of 21:38, 23 April 2014

Documentation for this module may be created at Module:No globals/doc

Script error: Lua error: Internal error: The interpreter exited with status 126.

local mt = getmetatable(_G) or {}
local oldIndex = mt.__index or function() return nil end
mt.__index = function(t, k)
	if k ~= 'name' and k ~= 'arg' then
		error('Tried to read nil global ' .. tostring(k), 2)
	end
	return oldIndex(t, k)
end
local oldNewindex = mt.__newindex or rawset
function mt.__newindex(t, k, v)
	if k ~= 'name' and k ~= 'arg' then
		error('Tried to write global ' .. tostring(k), 2)
	end
	oldNewindex(t, k, v)
end
setmetatable(_G, mt)