component = require("component")
event = require("event")

-- thank you, https://stackoverflow.com/a/20100401

function split(s, delimiter)
    result = {};
    for match in (s..delimiter):gmatch("(.-)"..delimiter) do
        table.insert(result, match);
    end
    return result;
end

tunnels = {}
probes = {}

i = 0
j = 0

for k,v in component.list() do
  if v == "tunnel" then
    print("Found a tunnel: " .. k)
    tunnels[i] = k
    i = i + 1
  end
  if v == "ElnProbe" then
    print("Found a Eln Probe: " .. k)
    probes[j] = k
    j = j + 1
  end
end

link = component.proxy(component.get(tunnels[0]))
probe = component.proxy(component.get(probes[0]))

sn = {}
sn[1] = "XN"
sn[2] = "XP"
sn[3] = "YN"
sn[4] = "YP"
sn[5] = "ZN"
sn[6] = "ZP"

for k,v in pairs(sn) do
  probe.signalSetDir(v,"out")
end

while 1 do
  _, _, _, _, _, message = event.pull("modem_message")

  tab = split(message, ",")

  i = 1

  for k,v in pairs(tab) do
    probe.signalSetOut(sn[i], tonumber(v))
    i = i + 1
  end

  os.sleep(0.05)
end