peripheral overhaul

sys/network/peripheral.lua

@@ -0,0 +1,68 @@
+--[[
+  Allow sharing of local peripherals.
+]]--
+
+local Event      = require('event')
+local Peripheral = require('peripheral')
+local Socket     = require('socket')
+local Util       = require('util')
+
+Event.addRoutine(function()
+  while true do
+    print('peripheral: listening on port 189')
+    local socket = Socket.server(189)
+
+    print('peripheral: connection from ' .. socket.dhost)
+
+    Event.addRoutine(function()
+      local uri = socket:read(2)
+      if uri then
+        local peripheral = Peripheral.lookup(uri)
+
+        if peripheral then
+          print('peripheral: proxing ' .. uri)
+          local proxy = {
+            methods = { }
+          }
+
+          if peripheral.blit then
+            peripheral = Util.shallowCopy(peripheral)
+            peripheral.fastBlit = function(data)
+              for _,v in ipairs(data) do
+                peripheral[v.fn](unpack(v.args))
+              end
+            end
+          end
+
+          for k,v in pairs(peripheral) do
+            if type(v) == 'function' then
+              table.insert(proxy.methods, k)
+            else
+              proxy[k] = v
+            end
+          end
+
+          socket:write(proxy)
+
+          if proxy.type == 'monitor' then
+            local h
+            h = Event.on('monitor_touch', function(...)
+              if not socket:write({ ... }) then
+                Event.off(h)
+              end
+            end)
+          end
+
+          while true do
+            local data = socket:read()
+            if not data then
+              print('peripheral: lost connection from ' .. socket.dhost)
+              break
+            end
+            socket:write({ peripheral[data.fn](table.unpack(data.args)) })
+          end
+        end
+      end
+    end)
+  end
+end)