minetest-mm/mods/techpack/smartline/icta/action.lua
2020-11-15 20:25:38 +01:00

105 lines
2.4 KiB
Lua

--[[
ICTA Controller
===============
Part of the SmartLine mod
Copyright (C) 2018 Joachim Stolberg
LGPLv2.1+
See LICENSE.txt for more information
action.lua
]]--
local sl = smartline
--local mail_exists = minetest.get_modpath("mail") and mail ~= nil TODO
-- tables with all data from action registrations
local kvRegisteredActn = {}
-- list of keys for actions
local aActnTypes = {}
-- list of titles for actions
local aActnTitles = {}
--
-- API function for action registrations
--
function sl.icta_register_action(key, tData)
table.insert(aActnTypes, key)
table.insert(aActnTitles, tData.title)
tData.__idx__ = #aActnTypes
if kvRegisteredActn[key] ~= nil then
print("[SmartLine] Action registration error "..key)
return
end
kvRegisteredActn[key] = tData
for _,item in ipairs(tData.formspec) do
if item.type == "textlist" then
item.tChoices = string.split(item.choices, ",")
item.num_choices = #item.tChoices
end
end
end
-- return formspec string
function sl.actn_formspec(row, kvSelect)
return sl.submenu_generate_formspec(
row, "actn", "Action type", aActnTypes, aActnTitles, kvRegisteredActn, kvSelect)
end
-- evaluate the row action input
-- and return new data
function sl.actn_eval_input(kvSelect, fields)
kvSelect = sl.submenu_eval_input(kvRegisteredActn, aActnTypes, aActnTitles, kvSelect, fields)
return kvSelect
end
-- return the Lua code
function sl.code_action(kvSelect, environ)
if kvSelect and kvRegisteredActn[kvSelect.choice] then
if smartline.submenu_verify(kvRegisteredActn, kvSelect) then
return kvRegisteredActn[kvSelect.choice].code(kvSelect, environ)
end
end
return nil
end
sl.icta_register_action("default", {
title = "",
formspec = {},
code = function(data, environ) return false, false end,
button = function(data, environ) return "..." end,
})
sl.icta_register_action("print", {
title = "print to output window",
formspec = {
{
type = "ascii",
name = "text",
label = "Output the following text",
default = "",
},
{
type = "label",
name = "lbl",
label = "Use a '*' character as reference to any\ncondition state",
},
},
button = function(data, environ)
return 'print("'..data.text:sub(1,12)..'")'
end,
code = function(data, environ)
local s1 = 'local text = string.gsub("'..(smartline.escape(data.text))..'", "*", env.result[#])'
local s2 = 'output(env.pos, text)'
return s1.."\n\t"..s2
end,
})