Add an EEPROM to the Microcontroller

1 files changed, 84 insertions, 6 deletions

diff --git a/mesecons_microcontroller/init.lua b/mesecons_microcontroller/init.lua
index 6f665e0..89a7736 100644
--- a/mesecons_microcontroller/init.lua
+++ b/mesecons_microcontroller/init.lua
@@ -1,3 +1,5 @@
+EEPROM_SIZE = 255
+
 minetest.register_node("mesecons_microcontroller:microcontroller", {
 	description = "Microcontroller",
 	drawtype = "nodebox",
@@ -23,6 +25,9 @@ minetest.register_node("mesecons_microcontroller:microcontroller", {
 			"field[0.256,0.5;8,1;code;Code:;]"..
 			"button_exit[3,0.5;2,2;program;Program]")
 		meta:set_string("infotext", "Unprogrammed Microcontroller")
+		local r = ""
+		for i=1, EEPROM_SIZE+1 do r=r.."0" end --Generate a string with EEPROM_SIZE*"0"
+		meta:set_string("eeprom", r)
 	end,
 	on_receive_fields = function(pos, formanme, fields, sender)
 		if fields.program then
@@ -52,6 +57,10 @@ function reset_yc(pos)
 	mesecon:receptor_off(pos, mesecon:get_rules("microcontrollerB"))
 	mesecon:receptor_off(pos, mesecon:get_rules("microcontrollerC"))
 	mesecon:receptor_off(pos, mesecon:get_rules("microcontrollerD"))
+	local meta = minetest.env:get_meta(pos)
+	local r = ""
+	for i=1, EEPROM_SIZE+1 do r=r.."0" end --Generate a string with EEPROM_SIZE*"0"
+	meta:set_string("eeprom", r)
 end
 
 function update_yc(pos)
@@ -70,12 +79,13 @@ function parse_yccode(code, pos)
 	local endi = 1
 	local L = yc_get_portstates(pos)
 	local c
+	local eeprom = minetest.env:get_meta(pos):get_string("eeprom")
 	while true do
 		command, endi = parse_get_command(code, endi)
 		if command == nil then return nil end
 		if command == true then break end
 		if command == "if" then
-			r, endi = yc_command_if(code, endi, L)
+			r, endi = yc_command_if(code, endi, L, eeprom)
 			if r == nil then return nil end
 			if r == true then -- nothing
 			elseif r == false then
@@ -90,11 +100,15 @@ function parse_yccode(code, pos)
 			L = yc_command_on (params, L)
 		elseif command == "off" then
 			L = yc_command_off(params, L)
+		elseif command == "sbi" then
+			eeprom = yc_command_sbi (params, eeprom)
 		elseif command == "if" then --nothing
 		else
 			return nil
 		end
 		if L == nil then return nil end
+		if eeprom == nil then return nil else
+		minetest.env:get_meta(pos):set_string("eeprom", eeprom) end
 	end
 	yc_action(pos, L)
 	return true
@@ -140,6 +154,22 @@ function parse_get_params(code, starti)
 	return nil, nil
 end
 
+function yc_parse_get_eeprom_params(code, starti)
+	i = starti
+	s = nil
+	local params = {}
+	while s ~= "" do
+		s = string.sub(code, i, i)
+		if s == ">" then
+			table.insert(params, string.sub(code, starti, i-1)) -- i: ) i+1 after )
+			return params, i + 1
+		end
+		if s == "," then return nil, nil end
+		i = i + 1
+	end
+	return nil, nil
+end
+
 function yc_command_on(params, L)
 	local rules = {}
 	for i, port in ipairs(params) do
@@ -156,11 +186,25 @@ function yc_command_off(params, L)
 	return L
 end
 
-function yc_command_if(code, starti, L)
+function yc_command_sbi(params, eeprom)
+	if params[1]==nil or params[2]==nil or params[3] ~=nil or tonumber(params[1])==nil or tonumber(params[2])==nil then return nil end
+	if tonumber(params[1])>EEPROM_SIZE or tonumber(params[1])<1 or (tonumber(params[2])~=1 and tonumber(params[2]~=0)) then return nil end
+	new_eeprom = "";
+	for i=1, #eeprom do
+		if tonumber(params[1])==i then 
+			new_eeprom = new_eeprom..params[2] 
+		else
+			new_eeprom = new_eeprom..eeprom:sub(i, i)
+		end
+	end
+	return new_eeprom
+end
+
+function yc_command_if(code, starti, L, eeprom)
 	local cond, endi = yc_command_if_getcondition(code, starti)
 	if cond == nil then return nil end
 
-	cond = yc_command_if_parsecondition(cond, L)
+	cond = yc_command_if_parsecondition(cond, L, eeprom)
 
 	if cond == "0" then result = false
 	elseif cond == "1" then result = true
@@ -171,17 +215,28 @@ end
 function yc_command_if_getcondition(code, starti)
 	i = starti
 	s = nil
+	local brackets = 1 --1 Bracket to close
 	while s ~= "" do
 		s = string.sub(code, i, i)
+		
 		if s == ")" then
-			return string.sub(code, starti, i-1), i + 1 -- i: (; i+1 after (;
+			brackets = brackets - 1
+		end
+
+		if s == "(" then
+			brackets = brackets + 1
+		end
+
+		if brackets == 0 then
+			return string.sub(code, starti, i-1), i + 1 -- i: ( i+1 after (
 		end
+
 		i = i + 1
 	end
 	return nil, nil
 end
 
-function yc_command_if_parsecondition(cond, L)
+function yc_command_if_parsecondition(cond, L, eeprom)
 	cond = string.gsub(cond, "A", tostring(L.a and 1 or 0))
 	cond = string.gsub(cond, "B", tonumber(L.b and 1 or 0))
 	cond = string.gsub(cond, "C", tonumber(L.c and 1 or 0))
@@ -190,6 +245,22 @@ function yc_command_if_parsecondition(cond, L)
 	cond = string.gsub(cond, "!0", "1")
 	cond = string.gsub(cond, "!1", "0")
 
+	local i = 1
+	local l = string.len(cond)
+	while i<=l do
+		local s = cond:sub(i,i)
+		if s == "<" then
+			params, endi = yc_parse_get_eeprom_params(cond, i+1)
+			buf = yc_eeprom_read(tonumber(params[1]), eeprom)
+			if buf == nil then return nil end
+			local call = cond:sub(i, endi-1)
+			cond = string.gsub(cond, call, buf)
+			i = 0
+			l = string.len(cond)
+		end
+		i = i + 1
+	end
+
 	local i = 2
 	local l = string.len(cond)
 	while i<=l do
@@ -207,7 +278,7 @@ function yc_command_if_parsecondition(cond, L)
 		i = i + 1
 	end
 
-	local i = 2
+	local i = 2 
 	local l = string.len(cond)
 	while i<=l do
 		local s = cond:sub(i,i)
@@ -243,6 +314,13 @@ function yc_command_if_parsecondition(cond, L)
 	return cond
 end
 
+function yc_eeprom_read(number, eeprom)
+	if params == nil then return nil, nil end
+	value = eeprom:sub(params[1], number)
+	if value  == nil then return nil, nil end
+	return value, endi
+end
+
 function yc_get_port_rules(port)
 	local rules = nil
 	if port == "A" then