summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mesecons_fpga/init.lua87
-rw-r--r--mesecons_fpga/tool.lua13
2 files changed, 78 insertions, 22 deletions
diff --git a/mesecons_fpga/init.lua b/mesecons_fpga/init.lua
index 590571c..3ff43bc 100644
--- a/mesecons_fpga/init.lua
+++ b/mesecons_fpga/init.lua
@@ -1,5 +1,7 @@
local plg = {}
plg.rules = {}
+-- per-player formspec positions
+plg.open_formspecs = {}
local lcore = dofile(minetest.get_modpath(minetest.get_current_modname()) .. "/logic.lua")
@@ -93,16 +95,20 @@ plg.register_nodes({
meta:set_string("instr", lcore.serialize(is))
meta:set_int("valid", 0)
- meta:set_string("formspec", plg.to_formspec_string(is))
meta:set_string("infotext", "FPGA")
end,
- on_receive_fields = function(pos, formname, fields, sender)
- if fields.program == nil then return end -- we only care when the user clicks "Program"
+ on_rightclick = function(pos, node, clicker)
+ if not minetest.is_player(clicker) then
+ return
+ end
local meta = minetest.get_meta(pos)
- local is = plg.from_formspec_fields(fields)
+ local name = clicker:get_player_name()
+ -- Erase formspecs of old FPGAs
+ meta:set_string("formspec", "")
- meta:set_string("instr", lcore.serialize(is))
- plg.update_formspec(pos, is)
+ plg.open_formspecs[name] = pos
+ local is = lcore.deserialize(meta:get_string("instr"))
+ minetest.show_formspec(name, "mesecons:fpga", plg.to_formspec_string(is, nil))
end,
sounds = default.node_sound_stone_defaults(),
mesecons = {
@@ -116,6 +122,12 @@ plg.register_nodes({
},
after_dig_node = function(pos, node)
mesecon.receptor_off(pos, plg.rules[node.name])
+ for name, open_pos in pairs(plg.open_formspecs) do
+ if vector.equals(pos, open_pos) then
+ minetest.close_formspec(name, "mesecons:fpga")
+ plg.open_formspecs[name] = nil
+ end
+ end
end,
on_blast = mesecon.on_blastnode,
on_rotate = function(pos, node, user, mode)
@@ -153,13 +165,12 @@ plg.register_nodes({
end
meta:set_string("instr", lcore.serialize(instr))
- plg.update_formspec(pos, instr)
+ plg.update_meta(pos, instr)
return true
end,
})
-
-plg.to_formspec_string = function(is)
+plg.to_formspec_string = function(is, err)
local function dropdown_op(x, y, name, val)
local s = "dropdown[" .. tostring(x) .. "," .. tostring(y) .. ";"
.. "0.75,0.5;" .. name .. ";" -- the height seems to be ignored?
@@ -193,7 +204,7 @@ plg.to_formspec_string = function(is)
end
local s = "size[9,9]"..
"label[3.4,-0.15;FPGA gate configuration]"..
- "button_exit[7,7.5;2,2.5;program;Program]"..
+ "button[7,7.5;2,2.5;program;Program]"..
"box[4.2,0.5;0.03,7;#ffffff]"..
"label[0.25,0.25;op. 1]"..
"label[1.0,0.25;gate type]"..
@@ -219,6 +230,12 @@ plg.to_formspec_string = function(is)
y = 1 - 0.25
end
end
+ if err then
+ local fmsg = minetest.colorize("#ff0000", minetest.formspec_escape(err.msg))
+ s = s .. plg.red_box_around(err.i) ..
+ "label[0.25,8.25;The gate configuration is erroneous in the marked area:]"..
+ "label[0.25,8.5;" .. fmsg .. "]"
+ end
return s
end
@@ -251,12 +268,11 @@ plg.from_formspec_fields = function(fields)
return is
end
-plg.update_formspec = function(pos, is)
+plg.update_meta = function(pos, is)
if type(is) == "string" then -- serialized string
is = lcore.deserialize(is)
end
local meta = minetest.get_meta(pos)
- local form = plg.to_formspec_string(is)
local err = lcore.validate(is)
if err == nil then
@@ -265,17 +281,20 @@ plg.update_formspec = function(pos, is)
else
meta:set_int("valid", 0)
meta:set_string("infotext", "FPGA")
- local fmsg = minetest.colorize("#ff0000", minetest.formspec_escape(err.msg))
- form = form .. plg.red_box_around(err.i) ..
- "label[0.25,8.25;The gate configuration is erroneous in the marked area:]"..
- "label[0.25,8.5;" .. fmsg .. "]"
end
- meta:set_string("formspec", form)
-
-- reset ports and run programmed logic
plg.setports(pos, false, false, false, false)
plg.update(pos)
+
+ -- Refresh open formspecs
+ local form = plg.to_formspec_string(is, err)
+ for name, open_pos in pairs(plg.open_formspecs) do
+ if vector.equals(pos, open_pos) then
+ minetest.show_formspec(name, "mesecons:fpga", form)
+ end
+ end
+ return err
end
plg.red_box_around = function(i)
@@ -394,6 +413,38 @@ plg.setports = function(pos, A, B, C, D) -- sets states of OUTPUT
end
end
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+ local player_name = player:get_player_name()
+
+ if formname ~= "mesecons:fpga" or fields.quit then
+ plg.open_formspecs[player_name] = nil -- potential garbage
+ return
+ end
+ if not fields.program then
+ return -- we only care when the user clicks "Program"
+ end
+ local pos = plg.open_formspecs[player_name]
+ if minetest.is_protected(pos, player_name) then
+ minetest.record_protection_violation(pos, player_name)
+ return
+ end
+
+ local meta = minetest.get_meta(pos)
+ local is = plg.from_formspec_fields(fields)
+
+ meta:set_string("instr", lcore.serialize(is))
+ local err = plg.update_meta(pos, is)
+
+ if not err then
+ plg.open_formspecs[player_name] = nil
+ -- Close on success
+ minetest.close_formspec(player_name, "mesecons:fpga")
+ end
+end)
+
+minetest.register_on_leaveplayer(function(player)
+ plg.open_formspecs[player:get_player_name()] = nil
+end)
minetest.register_craft({
output = "mesecons_fpga:fpga0000 2",
diff --git a/mesecons_fpga/tool.lua b/mesecons_fpga/tool.lua
index 26ab49e..22bfaea 100644
--- a/mesecons_fpga/tool.lua
+++ b/mesecons_fpga/tool.lua
@@ -22,7 +22,7 @@ minetest.register_tool("mesecons_fpga:programmer", {
end
itemstack:set_metadata(meta:get_string("instr"))
minetest.chat_send_player(placer:get_player_name(), "FPGA gate configuration was successfully copied!")
-
+
return itemstack
end,
on_use = function(itemstack, user, pointed_thing)
@@ -34,17 +34,22 @@ minetest.register_tool("mesecons_fpga:programmer", {
if minetest.get_node(pos).name:find("mesecons_fpga:fpga") ~= 1 then
return itemstack
end
+ local player_name = user:get_player_name()
+ if minetest.is_protected(pos, player_name) then
+ minetest.record_protection_violation(pos, player_name)
+ return itemstack
+ end
local imeta = itemstack:get_metadata()
if imeta == "" then
- minetest.chat_send_player(user:get_player_name(), "Use shift+right-click to copy a gate configuration first.")
+ minetest.chat_send_player(player_name, "Use shift+right-click to copy a gate configuration first.")
return itemstack
end
local meta = minetest.get_meta(pos)
meta:set_string("instr", imeta)
- plg.update_formspec(pos, imeta)
- minetest.chat_send_player(user:get_player_name(), "Gate configuration was successfully written to FPGA!")
+ plg.update_meta(pos, imeta)
+ minetest.chat_send_player(player_name, "Gate configuration was successfully written to FPGA!")
return itemstack
end