diff options
author | Mike Pall <mike> | 2012-10-24 13:12:37 +0200 |
---|---|---|
committer | Mike Pall <mike> | 2012-10-24 13:12:37 +0200 |
commit | f874452ddb9d094e1ed845e835bf11fc26216e51 (patch) | |
tree | 0a2828aa36c08b0b30f7cb6695fd1c355c79fcb2 | |
parent | 1fef908a0f8c30bf3cfc1889312ee7dee3556c52 (diff) | |
download | luajit-f874452ddb9d094e1ed845e835bf11fc26216e51.tar.gz luajit-f874452ddb9d094e1ed845e835bf11fc26216e51.tar.bz2 luajit-f874452ddb9d094e1ed845e835bf11fc26216e51.zip |
Remove strict.lua.
-rw-r--r-- | etc/strict.lua | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/etc/strict.lua b/etc/strict.lua deleted file mode 100644 index e57b0cc1..00000000 --- a/etc/strict.lua +++ /dev/null | |||
@@ -1,41 +0,0 @@ | |||
1 | -- | ||
2 | -- strict.lua | ||
3 | -- checks uses of undeclared global variables | ||
4 | -- All global variables must be 'declared' through a regular assignment | ||
5 | -- (even assigning nil will do) in a main chunk before being used | ||
6 | -- anywhere or assigned to inside a function. | ||
7 | -- | ||
8 | |||
9 | local getinfo, error, rawset, rawget = debug.getinfo, error, rawset, rawget | ||
10 | |||
11 | local mt = getmetatable(_G) | ||
12 | if mt == nil then | ||
13 | mt = {} | ||
14 | setmetatable(_G, mt) | ||
15 | end | ||
16 | |||
17 | mt.__declared = {} | ||
18 | |||
19 | local function what () | ||
20 | local d = getinfo(3, "S") | ||
21 | return d and d.what or "C" | ||
22 | end | ||
23 | |||
24 | mt.__newindex = function (t, n, v) | ||
25 | if not mt.__declared[n] then | ||
26 | local w = what() | ||
27 | if w ~= "main" and w ~= "C" then | ||
28 | error("assign to undeclared variable '"..n.."'", 2) | ||
29 | end | ||
30 | mt.__declared[n] = true | ||
31 | end | ||
32 | rawset(t, n, v) | ||
33 | end | ||
34 | |||
35 | mt.__index = function (t, n) | ||
36 | if not mt.__declared[n] and what() ~= "C" then | ||
37 | error("variable '"..n.."' is not declared", 2) | ||
38 | end | ||
39 | return rawget(t, n) | ||
40 | end | ||
41 | |||