1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
--
-- file: system.lua
-- brief: system calls table
-- author: Dave Rodgers
--
-- Copyright (C) 2007.
-- Licensed under the terms of the GNU GPL, v2 or later.
--
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
--
-- Utility that traverses a table tree and converts string keys to lowercase
--
-- NOTE: metatable are not affected (pairs() does not use them)
--
local lowerkeys
do
local lowerMap = {}
local function lowerkeys2(t)
if (lowerMap[t]) then
return -- avoid recursion / repetition
end
lowerMap[t] = true
local changes = {}
for k, v in pairs(t) do
if (type(k) == 'string') then
local l = string.lower(k)
if (l ~= k) then
if (t[l] == nil) then
changes[l] = v
end
t[k] = nil
end
end
if (type(v) == 'table') then
lowerkeys2(v)
end
end
-- insert new keys outside of the pairs() loop
for k, v in pairs(changes) do
t[k] = v
end
end
lowerkeys = function(t)
lowerMap = {}
lowerkeys2(t)
return t -- convenience, do not mistake this for a copy
end
end
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
-- no metatable protection
local function reftable(ref, tbl)
tbl = tbl or {}
setmetatable(tbl, { __index = ref })
return tbl
end
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
local system = {
-- Custom packages
VFS = VFS,
Spring = Spring,
-- Custom functions
lowerkeys = lowerkeys,
reftable = reftable,
-- Custom tables
DEFS = DEFS,
-- Standard packages
math = math,
table = table,
string = string,
coroutine = coroutine,
--
-- Standard functions and variables
--
assert = assert,
error = error,
print = print,
next = next,
pairs = pairs,
ipairs = ipairs,
tonumber = tonumber,
tostring = tostring,
type = type,
--collectgarbage = collectgarbage,
--gcinfo = gcinfo,
unpack = unpack,
select = select,
--dofile = dofile,
--loadfile = loadfile,
--loadlib = loadlib,
loadstring = loadstring,
--require = require,
getmetatable = getmetatable,
setmetatable = setmetatable,
rawequal = rawequal,
rawget = rawget,
rawset = rawset,
getfenv = getfenv,
setfenv = setfenv,
pcall = pcall,
xpcall = xpcall,
_VERSION = _VERSION
}
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
setmetatable(system, {
__newindex = function() error('Attempt to write to system') end,
__metatable = function() error('Attempt to access system metatable') end,
})
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
return system
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
|
