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
|
---------------------------------------------------------------------------
-- base.lua:
-- Base Lua definitions that other Lua scripts rely on.
-- NOTE: Other Lua scripts may demonstrate buggy behaviour if you do
-- not source this file. If you're using no Lua scripts at all, you
-- needn't source base.lua.
--
-- To use this, add this line to your init.txt:
-- lua_file = lua/base.lua
---------------------------------------------------------------------------
-- Lua global data
chk_interrupt_macro = { }
chk_interrupt_activity = { }
chk_lua_option = { }
-- Push into this table, rather than indexing into it.
chk_lua_save = { }
function c_save(file)
if not chk_lua_save then
return
end
for i, fn in ipairs(chk_lua_save) do
fn(file)
end
end
-- This function returns true to tell Crawl not to process the option further
function c_process_lua_option(key, val)
if chk_lua_option and chk_lua_option[key] then
return chk_lua_option[key](key, val)
end
return false
end
function c_interrupt_macro(iname, cause, extra)
-- If some joker undefined the table, stop all macros
if not chk_interrupt_macro then
return true
end
-- Maybe we don't know what macro is running? Kill it to be safe
-- We also kill macros that don't add an entry to chk_interrupt_macro.
if not c_macro_name or not chk_interrupt_macro[c_macro_name] then
return true
end
return chk_interrupt_macro[c_macro_name](iname, cause, extra)
end
-- Notice that c_interrupt_activity defaults to *false* whereas
-- c_interrupt_macro defaults to *true*. This is because "false" really just
-- means "go ahead and use the default logic to kill this activity" here,
-- whereas false is interpreted as "no, don't stop this macro" for
-- c_interrupt_macro.
--
-- If c_interrupt_activity, or one of the individual hooks wants to ensure that
-- the activity continues, it must return *nil* (make sure you know what you're
-- doing when you return nil!).
function c_interrupt_activity(aname, iname, cause, extra)
-- If some joker undefined the table, bail out
if not chk_interrupt_activity then
return false
end
-- No activity name? Bail!
if not aname or not chk_interrupt_activity[aname] then
return false
end
return chk_interrupt_activity[aname](iname, cause, extra)
end
|