From afc5ebdeece428d4ef72f4f1f4b178a92d1b9cba Mon Sep 17 00:00:00 2001
From: chai <chaifix@163.com>
Date: Fri, 7 Dec 2018 01:18:45 +0800
Subject: +lua51

---
 src/3rdparty/lua-5.1.5/etc/strict.lua | 41 +++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/3rdparty/lua-5.1.5/etc/strict.lua

(limited to 'src/3rdparty/lua-5.1.5/etc/strict.lua')

diff --git a/src/3rdparty/lua-5.1.5/etc/strict.lua b/src/3rdparty/lua-5.1.5/etc/strict.lua
new file mode 100644
index 0000000..604619d
--- /dev/null
+++ b/src/3rdparty/lua-5.1.5/etc/strict.lua
@@ -0,0 +1,41 @@
+--
+-- strict.lua
+-- checks uses of undeclared global variables
+-- All global variables must be 'declared' through a regular assignment
+-- (even assigning nil will do) in a main chunk before being used
+-- anywhere or assigned to inside a function.
+--
+
+local getinfo, error, rawset, rawget = debug.getinfo, error, rawset, rawget
+
+local mt = getmetatable(_G)
+if mt == nil then
+  mt = {}
+  setmetatable(_G, mt)
+end
+
+mt.__declared = {}
+
+local function what ()
+  local d = getinfo(3, "S")
+  return d and d.what or "C"
+end
+
+mt.__newindex = function (t, n, v)
+  if not mt.__declared[n] then
+    local w = what()
+    if w ~= "main" and w ~= "C" then
+      error("assign to undeclared variable '"..n.."'", 2)
+    end
+    mt.__declared[n] = true
+  end
+  rawset(t, n, v)
+end
+  
+mt.__index = function (t, n)
+  if not mt.__declared[n] and what() ~= "C" then
+    error("variable '"..n.."' is not declared", 2)
+  end
+  return rawget(t, n)
+end
+
-- 
cgit v1.1-26-g67d0