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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
------------------------------------------------------------------------------
-- util.lua
-- Lua utilities.
------------------------------------------------------------------------------
util = { }
function util.subclass(parent)
-- parent should have no-arg constructor.
local subclass = parent:new()
subclass.super = parent
-- Not strictly necessary - parent constructor should do this.
subclass.__index = subclass
return subclass
end
function util.identity(x)
return x
end
-- Returns the sublist of elements at indices [istart, iend) of the
-- supplied list.
function util.slice(list, istart, iend)
if not iend then
iend = #list + 1
end
local res = { }
for i = istart, iend - 1 do
table.insert(res, list[i])
end
return res
end
function util.partition(list, slice, increment)
local res = { }
for i = 1, #list, increment or slice do
table.insert(res, util.slice(list, i, i + slice))
end
return res
end
function util.curry(fn, ...)
local params = { ... }
if #params == 1 then
return function (...)
return fn(params[1], ...)
end
else
return function (...)
return fn(unpack(util.catlist(params, ...)))
end
end
end
-- Returns a list of the keys in the given map.
function util.keys(map)
local keys = { }
for key, _ in pairs(ziggurat_builder_map) do
table.insert(keys, key)
end
return keys
end
-- Returns a list of the values in the given map.
function util.values(map)
local values = { }
for _, value in pairs(ziggurat_builder_map) do
table.insert(values, value)
end
return values
end
-- Creates a string of the elements in list joined by separator.
function util.join(sep, list)
return table.concat(list, sep)
end
-- Creates a set (a map of keys to true) from the list supplied.
function util.set(list)
local set = { }
for _, value in ipairs(list) do
set[value] = true
end
return set
end
-- Appends the elements in any number of additional tables to the first table.
function util.append(first, ...)
local res = first
local tables = { ... }
for _, tab in ipairs(tables) do
for _, val in ipairs(tab) do
table.insert(res, val)
end
end
return res
end
function util.catlist(...)
return util.append({ }, ...)
end
function util.cathash(...)
local res = { }
local tables = { ... }
if #tables == 1 then
return tables[1]
else
for _, tab in ipairs(tables) do
for key, val in pairs(tab) do
res[key] = val
end
end
end
return res
end
function util.foreach(list, fn)
for _, val in ipairs(list) do
fn(val)
end
end
-- Classic map, but discards nil values (table.insert doesn't like nil).
function util.map(fn, ...)
local lists = { ... }
local res = { }
if #lists == 0 then
return res
elseif #lists == 1 then
for _, val in ipairs(lists[1]) do
local nval = fn(val)
if nval ~= nil then
table.insert(res, nval)
end
end
else
for i = 1, #lists[1] do
local args = { }
for _, list in ipairs(lists) do
if not list[i] then
break
end
table.insert(args, list[i])
end
if #args < #lists then
break
end
local nval = fn(unpack(args))
if nval ~= nil then
table.insert(res, nval)
end
end
end
return res
end
function util.filter(fn, list)
local res = { }
for _, val in ipairs(list) do
if fn(val) then
table.insert(res, val)
end
end
return res
end
function util.forall(list, pred)
for _, value in ipairs(list) do
if not pred(value) then
return false
end
end
return true
end
function util.exists(list, pred)
for _, value in ipairs(list) do
if pred(value) then
return true
end
end
return false
end
function util.contains(haystack, needle)
for _, value in ipairs(haystack) do
if value == needle then
return true
end
end
return false
end
function util.random_from(list)
return list[ crawl.random2(#list) + 1 ]
end
function util.random_weighted_from(weightfn, list)
if type(weightfn) ~= "function" then
local weightkey = weightfn
weightfn = function (table)
return table[weightkey]
end
end
local cweight = 0
local chosen = nil
util.foreach(list,
function (e)
local wt = weightfn(e) or 10
cweight = cweight + wt
if crawl.random2(cweight) < wt then
chosen = e
end
end)
return chosen
end
function util.expand_entity(entity, msg)
if not entity or not msg then
return msg
end
local msg_a = string.gsub(msg, "$F%{(%w+)%}",
function (desc)
return crawl.grammar(entity, desc)
end)
return string.gsub(msg_a, "$F",
function ()
return crawl.grammar(entity, 'a')
end)
end
----------------------------------------------------------
util.Timer = { CLASS = "Timer" }
util.Timer.__index = util.Timer
function util.Timer:new(pars)
self.__index = self
local timer = pars or { }
setmetatable(timer, self)
timer:init()
return timer
end
function util.Timer:init()
self.epoch = crawl.millis()
end
function util.Timer:mark(what)
local last = self.last or self.epoch
local now = crawl.millis()
crawl.mpr(what .. ": " .. (now - last) .. " ms")
self.last = now
end
-- Turn contents of a table into a human readable string
function table_to_string(table, depth)
depth = depth or 0
local indent = string.rep(" ", depth * 4)
if type(table) ~= "table" then
return indent .. "['" .. type(table) .. "', not a table]"
end
local str = ""
local meta = getmetatable(table)
if meta and meta.CLASS then
str = str .. indent .. "CLASS: "
if type (meta.CLASS) == "string" then
str = str .. meta.CLASS .. "\n"
else
str = str .. "[type " .. type(meta.CLASS) .. "]\n"
end
end
for key, value in pairs(table) do
local typ = type(key)
if typ == "string" or typ == "number" then
str = str .. indent .. key .. ": "
else
str = str .. indent .. "[type " .. typ .. "]: "
end
typ = type(value)
if typ == "table" then
str = str .. "\n" .. table_to_string(value, depth + 1)
elseif typ == "number" or typ == "string" or typ == "boolen" then
str = str .. value
else
str = str .. "[type " .. typ .. "]"
end
str = str .. "\n"
end
return str
end
-- Copied from http://lua-users.org/wiki/CopyTable
function util.copy_table(object)
local lookup_table = {}
local function _copy(object)
if type(object) ~= "table" then
return object
elseif lookup_table[object] then
return lookup_table[object]
end
local new_table = {}
lookup_table[object] = new_table
for index, value in pairs(object) do
new_table[_copy(index)] = _copy(value)
end
return setmetatable(new_table, getmetatable(object))
end
return _copy(object)
end
-- Initialises a namespace that has functions spread across multiple files.
-- If the namespace table does not exist, it is created. If it already exists,
-- it is not modified.
function util.namespace(table_name)
if _G[table_name] == nil then
_G[table_name] = { }
end
end
|