From f065d7884d353c3545535850e4e8bdf8e10025ca Mon Sep 17 00:00:00 2001
From: chai <chaifix@163.com>
Date: Thu, 6 Dec 2018 00:32:34 +0800
Subject: =?UTF-8?q?*=E5=88=9D=E5=A7=8B=E5=8C=96?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'libs/lua-5.1.5/etc/strict.lua')

diff --git a/libs/lua-5.1.5/etc/strict.lua b/libs/lua-5.1.5/etc/strict.lua
new file mode 100644
index 0000000..604619d
--- /dev/null
+++ b/libs/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