AddCSLuaFile( "wire/gates/freefall_string.lua" )

function string.instr(stringIn, toFind, start)
	local i = 1
	local start = start or 1
	
	if (stringIn == "" || type(stringIn) != "string") then return -2 end
	if (toFind == "" || type(toFind) != "string") then return -2 end
	
	local stringLength = string.len(stringIn)
	local findLength = string.len(toFind)
	
	for i = start,stringLength-(findLength-1) do
		if (string.sub(stringIn,i,i+(findLength-1)) == toFind) then
			return i
		end
		
		i = i + 1
	end
	
	return -1
end

GateActions("String")

GateActions["string_switchgate"] = {
	name = "Switch",
	inputs = { "A", "B", "C", "D", "E", "F", "G", "H", "Num" },
	inputtypes = { "STRING", "STRING", "STRING", "STRING", "STRING", "STRING", "STRING", "STRING", "NORMAL" },
	outputs = { "Out" },
	outputtypes = { "STRING" },
	output = function(gate, A, B, C, D, E, F, G, H, Num)
		if (Num == 1) then return A end
		if (Num == 2) then return B end
		if (Num == 3) then return C end
		if (Num == 4) then return D end
		if (Num == 5) then return E end
		if (Num == 6) then return F end
		if (Num == 7) then return G end
		if (Num == 8) then return H end
		if (Num < 1 || Num > 8) then return "" end
	end,
	label = function(Out, A, B, C, D, E, F, G, H, Num)
		return ("Selected: "..Out.Out)
	end
}

GateActions["string_hispeed_convert"] = {
	name = "Hi-Speed String Converter",
	inputs = { "String", "AddrRead" },
	inputtypes = { "STRING", "NORMAL" },
	output = function(gate, String, AddrRead )
		if (String ~= gate.LastString) then
			gate.LatchStore = {}
			for i = 1,string.len(String) do
				gate.LatchStore[i-1] = string.byte(string.sub(String,i,i))
			end
			gate.LastString = String
			gate.LatchSize = string.len(String)
		end
		
		AddrRead = math.floor(tonumber(AddrRead))
		
		if (AddrRead == 0) then return gate.LatchSize end
		
		if (AddrRead < 0) or ((AddrRead-1) >= gate.LatchSize) then return 0 end
		
		return gate.LatchStore[AddrRead-1] or 0
	end,
	reset = function(gate)
		gate.LatchStore = {}
		gate.LastString = ""
		gate.LatchSize = 0
	end,
	label = function(Out, String, AddrRead)
		return "String: "..String.."\nReadAddr:"..AddrRead.." = "..Out
	end,
	ReadCell = function(dummy,gate,Address)
		if (Address < 0) || ((Address-1) >= gate.LatchSize) then
			return 0
		else
			if (Address == 0) then
				return gate.LatchSize
			else
				return gate.LatchStore[Address-1] or 0
			end
		end
	end,
	WriteCell = function(dummy,gate,Address,value)
		return false
	end
}

GateActions("Memory")

GateActions["advduperam"] = {
	name = "Adv. Dupe. Teleporter Data RAM",
	timed = true,
	inputs = { "Clk", "AddrRead", "AddrWrite", "Data","Send" },
	inputtypes = { "NORMAL","NORMAL","NORMAL","STRING","NORMAL" },
	outputs = { "Data","Blocks","IsSending","IsReceiving" },
	outputtypes = { "STRING","NORMAL","NORMAL","NORMAL" },
	output = function(gate, Clk, AddrRead, AddrWrite, Data, Send )
		AddrRead = math.floor(tonumber(AddrRead))
		AddrWrite = math.floor(tonumber(AddrWrite))
		local DeltaTime = CurTime()-(gate.PrevTime or CurTime())
		
		if (gate.Receiving == 0) then
			gate.AddrWrite = AddrWrite
		end
		if (gate.Sending == 0) then
			gate.AddrRead = AddrRead
		end
		
		if (Clk > 0) then
			if (Data != "" && string.sub(Data,1,5) == "Data:" && (gate.AddrWrite != gate.AddrRead || gate.Sending == 0)) then
				if (string.sub(Data,6,10) == "Start") then
					gate.Store[gate.AddrWrite] = {}
					gate.Store[gate.AddrWrite].List = {}
					gate.Store[gate.AddrWrite].BlockCount = 0
					
					gate.Receiving = 1
					
					gate.Store[gate.AddrWrite].BlockCount = tonumber(string.sub(Data,12,string.len(Data)))
				elseif (gate.Receiving == 1) then
					pos = string.instr(Data,":",6)
					BlockNum = tonumber(string.sub(Data,6,pos-1))
					
					gate.Store[gate.AddrWrite].List[BlockNum] = string.sub(Data,pos+1,string.len(Data))
					
					if (BlockNum == (gate.Store[gate.AddrWrite].BlockCount - 1)) then
						gate.Receiving = 0
					end
				end			
			end
		end
		
		if (DeltaTime >= 0.1 && gate.Sending == 1) then
			gate.SendBlockNum = gate.SendBlockNum + 1
			gate.PrevTime = CurTime()
			if (gate.SendBlockNum == gate.Store[gate.AddrRead].BlockCount) then
				gate.Sending = 0
			end
		end
		
		if (gate.Sending == 0) then
			if (Send > 0) then
				Msg("Send Called\n")
				if (gate.Store[gate.AddrRead] && (gate.Receiving == 0 || gate.AddrRead != gate.AddrWrite)) then
					if (gate.Store[gate.AddrRead].List && gate.Store[gate.AddrRead].BlockCount > 0) then
						gate.Sending = 1
						gate.SendBlockNum = -2
						gate.PrevTime = 0
					end
				end
			end
		
			if (gate.Receiving == 1 && AddrRead == gate.AddrWrite) then
				return "",0,0,1
			else
				if (gate.Store[AddrRead]) then
					return "", gate.Store[AddrRead].BlockCount or 0,0,gate.Receiving or 0
				else
					return "", 0,0,gate.Receiving or 0
				end
			end
		else
			if (gate.SendBlockNum == -1) then
				return "Data:Start:"..gate.Store[gate.AddrRead].BlockCount, gate.Store[AddrRead].BlockCount or 0,1,gate.Receiving or 0
			elseif (gate.SendBlockNum > -1) then
				return "Data:"..gate.SendBlockNum..":"..gate.Store[gate.AddrRead].List[gate.SendBlockNum], gate.Store[AddrRead].BlockCount or 0,1,gate.Receiving or 0
			end
		end
	end,
	reset = function(gate)
		gate.Store = {}
		gate.Receiving = 0
		gate.Sending = 0
	end,
	label = function(Out, Clk, AddrRead, AddrWrite, Data)
		return ""
	end
}

GateActions()