opus/sys/network/proxy.lua

local Event  = require('event')
local Socket = require('socket')

Event.addRoutine(function()
	while true do
		print('proxy: listening on port 188')
		local socket = Socket.server(188)

		print('proxy: connection from ' .. socket.dhost)

		Event.addRoutine(function()
			local api = socket:read(2)
			if api then
				local proxy = _G[api]

				if not proxy then
					print('proxy: invalid API')
					return
				end

				local methods = { }
				for k,v in pairs(proxy) do
					if type(v) == 'function' then
						table.insert(methods, k)
					end
				end
				socket:write(methods)

				while true do
					local data = socket:read()
					if not data then
						print('proxy: lost connection from ' .. socket.dhost)
						break
					end
					socket:write({ proxy[data[1]](table.unpack(data, 2)) })
				end
			end
		end)
	end
end)