Update tapewrite.lua

tapewrite.lua

@@ -1,8 +1,5 @@
 local tArg = {...}
 
--- this doesn't work very well, keep it false
-local doByteByByte = false
-
 local fileName = tArg[1]
 local tapeName = tArg[2]
 
@@ -10,57 +7,45 @@ local function getHelp()
     print("tapewrite [file / url] [name]")
 end
 
-assert(fileName, getHelp())
+if not fileName then
+    getHelp()
+    return
+end
 
 local tape = peripheral.find("tape_drive")
-local file
+if not tape then
+    print("Tape drive not connected.")
+    return
+end
+
+local totalSize = tape.getSize()
+
+-- Make file, and detect URL
+local file, contents
 if fileName:sub(1,8) == "https://" then
-    print("Downloading...")
+    write("Downloading...")
-    file = http.get(fileName)
+    file = http.get(fileName, nil, true)
+    print("Done.")
 else
     file = fs.open(fs.combine(shell.dir(), fileName), "r")
 end
-
+contents = file.readAll()
-local byte = 0
+file.close()
-tape.seek(-tape.getPosition())
 
 if tapeName then
     tape.setLabel(tapeName)
 end
-local counter = 0
 
-local totalSize = tape.getSize()
+tape.seek(-tape.getPosition())
-
-if doByteByByte then
-
-    while true do
-        byte = file.read()
-        if not byte then
-            break
-        end
-        counter = counter + 1
-        tape.write(byte:byte())
-        if counter == 4096 then
-            counter = 0
-            os.queueEvent("yield")
-            os.pullEvent("yield")
-            write(".")
-        end
-    end
-
-else
 
 print("Writing...")
-    local contents = file.readAll()
+
 if #contents > totalSize then
     contents = contents:sub(1, totalSize)
     print("Tape too small. Audio was written incompletely.")
 end
 tape.write(contents)
 
-end
-
 tape.seek(-tape.getPosition())
-file.close()
 
-print("\nIt is written.")
+print("\nIt is written. (" .. tostring(#contents) .. " bytes)")