techpack/smartline/icta/action.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,
})