AP2PTP

ap2ptp.lua

function init(modemBinding, starterChannel, nextChannelFn)
  modemBinding.open(starterChannel)
  local stateTable = {
    modemBinding = modemBinding,
    chan = starterChannel,
    nextfn = nextChannelFn
  }
  return stateTable -- Until I can figure out metatables, this will be strictly function-based.
end

function listen(tbl)
  local a, side, from, reply, message, distance = os.pullEvent("modem_message")
  tbl.modemBinding.close(tbl.chan)
  tbl.chan = reply
  tbl.modemBinding.open(tbl.chan)
  return side, from, reply, message, distance
end

function transmit(tbl, msg)
  nextChannel = tbl.nextfn(tbl.chan, msg)
  tbl.modemBinding.transmit(tbl.chan, nextChannel, msg)
  tbl.chan = nextChannel
end