Add app-wget, bump versions to 2 for safety, and make the FM better

I might be worryingly forgetful regarding version bumps, it seems.

code/apps/app-wget.lua

@@ -0,0 +1,64 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+local event = require("event")(neo)
+local neoux = require("neoux")(event, neo)
+
+local primaryINet = neo.requireAccess("c.internet", "internet access").list()()
+
+-- Enter URL dialog
+local running = true
+-- useful to perform a system update
+local url = "http://20kdc.duckdns.org/neo/inst.lua"
+local w = neoux.create(25, 3, nil, neoux.tcwindow(25, 3, {
+ neoux.tcrawview(1, 1, {"URL to download?"}),
+ neoux.tcfield(1, 2, 25, function (t)
+  url = t or url
+  return url
+ end),
+ neoux.tcbutton(16, 3, "Confirm", function (w)
+  local nurl = url
+  local fd = neoux.fileDialog(true)
+  if not fd then return end
+  -- download!
+  local req, err = primaryINet.request(nurl)
+  if not req then
+   neoux.startDialog("failed request:\n" .. tostring(err))
+  end
+  -- OpenComputers#535
+  req.finishConnect()
+  while true do
+   local n, n2 = req.read(neo.readBufSize)
+   if not n then
+    req.close()
+    fd.close()
+    if n2 then
+     neoux.startDialog("failed download:\n" .. tostring(n2))
+     return
+    else
+     break
+    end
+   else
+    if n == "" then
+     yielder()
+    else
+     local o, r = fd.write(n)
+     if not o then
+      req.close()
+      fd.close()
+      neoux.startDialog("failed write:\n" .. tostring(r))
+      return
+     end
+    end
+   end
+  end
+ end)
+}, function (w)
+ w.close()
+ running = false
+end, 0xFFFFFF, 0))
+
+while running do
+ event.pull()
+end
+

code/data/app-claw/local.lua

@@ -25,7 +25,7 @@ return {
  },
  ["neo-init"] = {
   desc = "KittenOS NEO / sys-init (startup)",
-  v = 0,
+  v = 2,
   deps = {
    "neo",
    "neo-icecap",
@@ -40,7 +40,7 @@ return {
  },
  ["neo-launcher"] = {
   desc = "KittenOS NEO / Default app-launcher",
-  v = 0,
+  v = 2,
   deps = {
    "neo"
   },
@@ -66,7 +66,7 @@ return {
  },
  ["neo-icecap"] = {
   desc = "KittenOS NEO / Icecap",
-  v = 1,
+  v = 2,
   deps = {
    "neo"
   },
@@ -148,9 +148,22 @@ return {
    "apps/app-flash.lua"
   },
  },
+ ["app-wget"] = {
+  desc = "KittenOS Web Retriever",
+  v = 2,
+  deps = {
+   "neo"
+  },
+  dirs = {
+   "apps"
+  },
+  files = {
+   "apps/app-wget.lua"
+  },
+ },
  ["app-claw"] = {
   desc = "KittenOS NEO Package Manager",
-  v = 1,
+  v = 2,
   deps = {
    "neo"
   },
@@ -165,7 +178,7 @@ return {
  },
  ["neo-meta"] = {
   desc = "KittenOS NEO: Use 'All' to install to other disks",
-  v = 0,
+  v = 2,
   deps = {
    "neo",
    "neo-init",

code/libs/sys-filevfs.lua

@@ -16,12 +16,12 @@ end
 
 local getFsNode, getRoot
 local setupCopyNode
-function setupCopyNode(parent, myRoot, op, complete)
+function setupCopyNode(parent, myRoot, op, complete, impliedName)
  local function handleResult(aRes, res)
   if aRes then
-   return complete(res)
+   return complete(res, true)
   else
-   return nil, setupCopyNode(parent, res, op, complete)
+   return nil, setupCopyNode(parent, res, op, complete, impliedName)
   end
  end
  return {
@@ -29,8 +29,14 @@ function setupCopyNode(parent, myRoot, op, complete)
   list = function ()
    local l = {}
    table.insert(l, {"Cancel Operation: " .. op, function ()
+    complete(nil, false)
     return false, parent
    end})
+   if impliedName and myRoot.unknownAvailable then
+    table.insert(l, {"Implied: " .. impliedName, function ()
+     return handleResult(myRoot.selectUnknown(impliedName))
+    end})
+   end
    for _, v in ipairs(myRoot.list()) do
     table.insert(l, {v[1], function ()
      return handleResult(v[2]())
@@ -44,16 +50,20 @@ function setupCopyNode(parent, myRoot, op, complete)
   end
  }
 end
-local function setupCopyVirtualEnvironment(fs, parent, fwrap)
+local function setupCopyVirtualEnvironment(fs, parent, fwrap, impliedName)
  if not fwrap then
   return false, dialog("Could not open source", parent)
  end
  local myRoot = getRoot(fs, true)
  -- Setup wrapping node
- return setupCopyNode(parent, myRoot, "Copy", function (fwrap2)
+ return setupCopyNode(parent, myRoot, "Copy", function (fwrap2, intent)
   if not fwrap2 then
+   fwrap.close()
+   if intent then
     return false, dialog("Could not open dest.", parent)
    end
+   return false, parent
+  end
   local data = fwrap.read(neo.readBufSize)
   while data do
    fwrap2.write(data)
@@ -62,10 +72,11 @@ local function setupCopyVirtualEnvironment(fs, parent, fwrap)
   fwrap.close()
   fwrap2.close()
   return false, dialog("Completed copy.", parent)
- end)
+ end, impliedName)
 end
-getFsNode = function (fs, parent, fsc, path, mode)
+function getFsNode(fs, parent, fsc, path, mode)
  local va = fsc.address:sub(1, 4)
+ local fscrw = not fsc.isReadOnly()
  if path:sub(#path, #path) == "/" then
   local t
   local confirmedDel = false
@@ -84,11 +95,12 @@ getFsNode = function (fs, parent, fsc, path, mode)
      end
      n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode) end}
     end
+    if fscrw then
+     if path ~= "/" then
       local delText = "Delete"
       if confirmedDel then
        delText = "Delete <ARMED>"
       end
-    if path ~= "/" then
       table.insert(n, {delText, function ()
        if not confirmedDel then
         confirmedDel = true
@@ -97,6 +109,23 @@ getFsNode = function (fs, parent, fsc, path, mode)
        fsc.remove(path)
        return nil, dialog("Done.", parent)
       end})
+     else
+      table.insert(n, {"Relabel Disk", function ()
+       return nil, {
+        name = "Disk Relabel...",
+        list = function () return {{
+         fsc.getLabel() or "Cancel",
+         function ()
+          return false, t
+         end
+        }} end,
+        unknownAvailable = true,
+        selectUnknown = function (tx)
+         fsc.setLabel(tx)
+         return false, t
+        end
+       }
+      end})
      end
      table.insert(n, {"Mk. Directory", function ()
       return nil, {
@@ -109,9 +138,10 @@ getFsNode = function (fs, parent, fsc, path, mode)
        end
       }
      end})
+    end
     return n
    end,
-   unknownAvailable = mode ~= nil,
+   unknownAvailable = (mode ~= nil) and ((mode == false) or fscrw),
    selectUnknown = function (text)
     local rt, re = require("sys-filewrap").create(fsc, path .. text, mode)
     if not rt then
@@ -136,6 +166,7 @@ getFsNode = function (fs, parent, fsc, path, mode)
     elseif mode == "append" then
      tx = "Append"
     end
+    if fscrw or mode == false then
      table.insert(n, {tx, function ()
       local rt, re = require("sys-filewrap").create(fsc, path, mode)
       if not rt then
@@ -144,17 +175,20 @@ getFsNode = function (fs, parent, fsc, path, mode)
       return true, rt
      end})
     end
+   end
    table.insert(n, {"Copy", function ()
     local rt, re = require("sys-filewrap").create(fsc, path, false)
     if not rt then
      return false, dialog("Open Error: " .. tostring(re), parent)
     end
-    return nil, setupCopyVirtualEnvironment(fs, parent, rt)
+    return nil, setupCopyVirtualEnvironment(fs, parent, rt, path:match("[^/]*$") or "")
    end})
+   if fscrw then
     table.insert(n, {"Delete", function ()
      fsc.remove(path)
      return nil, dialog("Done.", parent)
     end})
+   end
    return n
   end,
   unknownAvailable = false,
@@ -169,32 +203,31 @@ function getRoot(fs, mode)
    local l = {}
    for fsi in fs.list() do
     local id = fsi.getLabel()
-    if not id then
-     id = " Disk"
-    else
-     id = ":" .. id
-    end
     if fsi == fs.primary then
-     id = "NEO" .. id
+     id = "NEO" .. ((id and (":" .. id)) or " Disk")
     elseif fsi == fs.temporary then
-     id = "RAM" .. id
+     id = "RAM" .. ((id and (" " .. id)) or "Disk")
+    else
+     id = id or "Disk"
     end
     local used, total = fsi.spaceUsed(), fsi.spaceTotal()
     local amount = string.format("%02i", math.ceil((used / total) * 100))
     local mb = math.floor(total / (1024 * 1024))
     if fsi.isReadOnly() then
-     id = amount .. "% RO " .. mb .. "M " .. id
+     id = "RO " .. amount .. "% " .. mb .. "M " .. id
     else
-     id = amount .. "% RW " .. mb .. "M " .. id
+     id = "RW " .. amount .. "% " .. mb .. "M " .. id
     end
-    table.insert(l, {fsi.address:sub(1, 4) .. ": " .. id, function ()
+    table.insert(l, {fsi.address:sub(1, 4) .. " " .. id, function ()
      return nil, getFsNode(fs, t, fsi, "/", mode)
     end})
    end
    return l
   end,
   unknownAvailable = false,
-  selectUnknown = function (text) end
+  selectUnknown = function (text)
+   return false, dialog("Ow, that hurt...", t)
+  end
  }
  return t
 end