Cleansing.

modules/bcstart.lua

@@ -1 +0,0 @@
-ns(01,computer.address())

modules/counter.lua

@@ -1,4 +0,0 @@
-function count()
- for i = 1, 10 do print(i) C.yield() end
-end
-s("counter",count)

modules/net.lua

@@ -1,56 +0,0 @@
-tMn, tMs, tTs, CT, CO = {},{},{},component,computer
-for m in CT.list("modem") do
- T.insert(tMs,CT.proxy(m))
- tMs[#tMs].open(4096)
-end
-for m in CT.list("tunnel") do
- T.insert(tTs,CT.proxy(m))
- tTs[#tTs].open(4096)
-end
-
-function ncs(n)
- for k,v in ipairs(tMn) do
-  if v == n then return true end
- end
-end
-function grn()
- repeat
-  mn=math.random(-65536,65535)
- until not ncs(mn)
- return mn
-end
-function rns(...)
- for k,m in ipairs(tMs) do
-  m.broadcast(4096,...)
- end
- for m in ipairs(tTs) do
-  m.send(4096,...)
- end
-end
-function ns(to,msg)
- if msg:len() > 4096 then
-  msg=msg:sub(1,4096)
- end
- rns(grn(),to,CO.address(),msg)
-end
-function netrecv()
- CO.beep()
- while true do
-  evtype,_,_,_,_,mn,to,from,msg=l()
-  if evtype == "modem_message" then
-   ns("Debug 1",mn,to,from,msg)
-   if not ncs(mn) then
-    if to == CO.address() then
-     h("net_msg",from,msg)
-     CO.beep()
-    else
-     rns(mn,to,from,msg)
-    end
-   end
-  end
-  C.yield()
- end
-end
-s("netrecv",function()
- while true do ns(pcall(netrecv)) end
-end)

modules/pev.lua

@@ -1,8 +0,0 @@
-function pev()
- for i = 1, 10 do
-  te=l()
-  print(T.unpack(te))
-  C.yield()
- end
-end
-s("evprint",pev)

modules/ping.lua

@@ -1,8 +0,0 @@
-s("pingd",function()
- while true do
-  local evt={l()}
-  if evt[1] == "net_msg" then
-   ns(evt[2],CO.address,"Ping!")
-  end
- end
-end)

modules/reptest.lua

@@ -1,3 +0,0 @@
---[[this is test 1]]
---[[this is test 2]]
-this is not test 3 --[[this is test 3]] this is also not test 3

modules/simplefs.lua

@@ -1 +0,0 @@
-fs=component.proxy(computer.tmpAddress())