From 32ddefbd01ae73a0ee2ee60a4efac559711ca191 Mon Sep 17 00:00:00 2001
From: berengma <Gundul@mailbox.org>
Date: Fri, 19 May 2017 07:46:25 +0200
Subject: [PATCH] add luacontroller to programmer and checks area protection

---
 mesecons_fpga/tool.lua | 98 ++++++++++++++++++++++++++++++++----------
 1 file changed, 75 insertions(+), 23 deletions(-)

diff --git a/mesecons_fpga/tool.lua b/mesecons_fpga/tool.lua
index 26ab49e..efd003b 100644
--- a/mesecons_fpga/tool.lua
+++ b/mesecons_fpga/tool.lua
@@ -1,28 +1,53 @@
 return function(plg)
 
+local function reset_meta(pos, code, errmsg) 
+	local meta = minetest.get_meta(pos)
+	meta:set_string("code", code)
+	code = minetest.formspec_escape(code or "")
+	errmsg = minetest.formspec_escape(errmsg or "")
+	meta:set_string("formspec", "size[10,8]"..
+		"background[-0.2,-0.25;10.4,8.75;jeija_luac_background.png]"..
+		"textarea[0.2,0.6;10.2,5;code;;"..code.."]"..
+		"image_button[3.75,6;2.5,1;jeija_luac_runbutton.png;program;]"..
+		"image_button_exit[9.72,-0.25;0.425,0.4;jeija_close_window.png;exit;]"..
+		"label[0.1,5;"..errmsg.."]")
+	meta:set_int("heat", 0)
+	meta:set_int("luac_id", math.random(1, 65535))
+end
+
 
 minetest.register_tool("mesecons_fpga:programmer", {
-	description = "FPGA Programmer",
+	description = "Programmer for FPGA and luacontroller",
 	inventory_image = "jeija_fpga_programmer.png",
 	stack_max = 1,
 	on_place = function(itemstack, placer, pointed_thing)
 		if pointed_thing.type ~= "node" then
 			return itemstack
 		end
-
+		
 		local pos = pointed_thing.under
-		if minetest.get_node(pos).name:find("mesecons_fpga:fpga") ~= 1 then
-			return itemstack
-		end
-
-		local meta = minetest.get_meta(pos)
-		if meta:get_string("instr") == "//////////////" then
+		if minetest.get_node(pos).name:find("mesecons_fpga:fpga") == 1 then
+			local meta = minetest.get_meta(pos)
+			if meta:get_string("instr") == "//////////////" then
 			minetest.chat_send_player(placer:get_player_name(), "This FPGA is unprogrammed.")
 			return itemstack
+			end
+			itemstack:set_metadata(meta:get_string("instr"))
+			minetest.chat_send_player(placer:get_player_name(), "FPGA gate configuration was successfully copied!")
+			
+			return itemstack
+			
+		elseif minetest.get_node(pos).name:find("mesecons_luacontroller:luacontroller") == 1 then
+			local meta = minetest.get_meta(pos)
+			if meta:get_string("code") == "" then
+			  minetest.chat_send_player(placer:get_player_name(), "This luacontroller is unprogrammed.")
+			  return itemstack
+			end
+			itemstack:set_metadata(meta:get_string("code"))
+			minetest.chat_send_player(placer:get_player_name(), "luacontroller was successfully copied!")
+			return itemstack
 		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)
@@ -31,21 +56,48 @@ minetest.register_tool("mesecons_fpga:programmer", {
 		end
 
 		local pos = pointed_thing.under
-		if minetest.get_node(pos).name:find("mesecons_fpga:fpga") ~= 1 then
-			return itemstack
+		
+		if minetest.is_protected(pos, user:get_player_name()) then
+		      minetest.chat_send_player(user:get_player_name(), "This is not your device !")
+		      return itemstack
 		end
+		
+		if minetest.get_node(pos).name:find("mesecons_fpga:fpga") == 1 then
+		      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.")
+			    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.")
-			return itemstack
+		      local meta = minetest.get_meta(pos)
+		      local _, count = string.gsub(imeta, "/", "")  -- fpga's always have 14 slashes in code
+		      if count ~= 14 or imeta:find("[IiEeUuOoNntT]") ~= nil then    -- very unlikely but there could be a controller with 14 slashes too
+			  minetest.chat_send_player(user:get_player_name(), "Code in Programmer is for a lua controller")
+			  return itemstack
+		      end
+		      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!")
+		      return itemstack
+		      
+		elseif minetest.get_node(pos).name:find("mesecons_luacontroller:luacontroller") == 1 then
+		      local imeta = itemstack:get_metadata()
+		      
+		      if imeta == "" then
+			    minetest.chat_send_player(user:get_player_name(), "Use shift+right-click to copy configuration first.")
+			    return itemstack
+		      end
+		      local meta = minetest.get_meta(pos)
+		      local _, count = string.gsub(imeta, "/", "")  -- fpga's always have 14 slashes in code
+		      if (count == 14) and (imeta:find("[IiEeUuOoNntT]") == nil) then    
+			  minetest.chat_send_player(user:get_player_name(), "Code in Programmer is for a FPGA")
+			  return itemstack
+		      end
+		      meta:set_string("code", imeta)
+		      reset_meta(pos, imeta, err)
+		      minetest.chat_send_player(user:get_player_name(), "Configuration was successfully written to luacontroller!")
+		      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!")
-
 		return itemstack
 	end
 })