milo wip

milo/plugins/remote.lua

@@ -0,0 +1,52 @@
+local Event  = require('event')
+local Milo   = require('milo')
+local Socket = require('socket')
+
+local device      = _G.device
+local manipulator = device.manipulator_1
+local turtle      = _G.turtle
+
+local context = Milo:getContext()
+
+local function client(socket)
+	repeat
+		local data = socket:read()
+		if not data then
+			break
+		end
+		if data.request == 'list' then
+			local items = Milo:listItems()
+			Milo:mergeResources(items)
+			socket:write(items)
+
+		elseif data.request == 'transfer' then
+			context.inventoryAdapter:provide(
+				data.item,
+				data.count,
+				nil,
+				context.localName)
+
+			turtle.eachFilledSlot(function(slot)
+				manipulator.getInventory().pullItems(
+					context.localName,
+					slot.index,
+					slot.count)
+			end)
+		end
+	until not socket.connected
+end
+
+if device.wireless_modem then
+	Event.addRoutine(function()
+		debug('Milo: listening on port 4242')
+		while true do
+			local socket = Socket.server(4242)
+
+			debug('connection from ' .. socket.dhost)
+
+			Event.addRoutine(function()
+				client(socket)
+			end)
+		end
+	end)
+end