made unarchive yield

exec/ping.lua

@@ -0,0 +1,17 @@
+local minitel = require "minitel"
+local event = require "event"
+local tArgs = {...}
+local addr = tArgs[1]
+local times = tonumber(tArgs[2]) or 5
+local timeout = tonumber(tArgs[3]) or 30
+for i = 1, times do
+ local ipt = computer.uptime()
+ local pid = minitel.genPacketID()
+ computer.pushSignal("net_send",1,addr,0,"ping",pid)
+ local t,a = event.pull(timeout,"net_ack")
+ if t == "net_ack" and a == pid then
+  print("Ping reply: "..tostring(computer.uptime()-ipt).." seconds.")
+ else
+  print("Timed out.")
+ end
+end

exec/shell.lua

@@ -7,6 +7,7 @@ function shenv.quit()
 end
 shenv.cd = os.chdir
 shenv.mkdir = fs.makeDirectory
+shenv.cp = fs.copy
 local function findPath(name)
  path = os.getenv("PATH") or "/boot/exec"
  for l in path:gmatch("[^\n]+") do

exec/unarchive.lua

@@ -47,5 +47,6 @@ while true do
   until rsize <= 1
  end
  print(fsize)
+ coroutine.yield()
 end
 fi:close()