Merge pull request 'libs: Make libmtar assert on version, make download close the connection' (#6) from Amanda/OC-PsychOS2:libs/minor-fixes into master

Reviewed-on: https://git.shadowkat.net/izaya/OC-PsychOS2/pulls/6

lib/download.lua

@@ -110,6 +110,7 @@ function dl.protos.http(host, optPort, path, dest, url) -- string string string
   ns = R.read()
   f:write(ns or "")
  until not ns
+ R.close()
  f:close()
  print("Done.")
  return true

lib/libmtar.lua

@@ -38,6 +38,7 @@ function mtar.iter(stream) -- table -- function -- Given buffer *stream*, return
    return
   elseif nlen == 65535 then -- versioned header
    version = string.byte(stream:read(1))
+   assert(versions[version], "Unknown version: " .. version)
    nlen = string.unpack(versions[version].nlf, stream:read(string.packsize(versions[version].nlf)))
   end
   local name = cleanPath(stream:read(nlen))

service/clipboard.lua

@@ -15,3 +15,4 @@ function start()
    end
  end)
 end
+return {start=start}

service/screenblank.lua

@@ -23,3 +23,4 @@ function start()
   end
  end, "screenblank")
 end
+return {start=start}

service/tape-devfs.lua

@@ -16,6 +16,9 @@ end
 for addr in component.list("tape_drive") do
  addNode(addr)
 end
+
+function start()
+ return os.spawn(function()
   while true do
    local tE = {coroutine.yield()}
    if tE[1] == "component_added" and tE[3] == "tape_drive" then
@@ -26,3 +29,6 @@ while true do
     end
    end
   end
+ end, "tape-devfs")
+end
+return {start=start}

service/termsrv.lua

@@ -61,3 +61,4 @@ function start()
  end
  end,"termsrv")
 end
+return {start=start}

service/wolbeacon.lua

@@ -6,6 +6,8 @@ for modem in component.list("modem") do
  component.invoke(modem,"setWakeMessage",message)
 end
 
+function start()
+ return os.spawn(function()
   local ltime = computer.uptime()
   while true do
    if computer.uptime() > ltime+delay then
@@ -16,3 +18,6 @@ while true do
    end
    coroutine.yield()
   end
+ end, "WoLBeacon")
+end
+return {start=start}