claw/code-claw.lua

@@ -3,7 +3,7 @@
 return {
  ["neo"] = {
   desc = "KittenOS NEO Kernel & Base Libs",
-  v = 8,
+  v = 5,
   deps = {
   },
   dirs = {
@@ -26,7 +26,7 @@ return {
  },
  ["neo-init"] = {
   desc = "KittenOS NEO / sys-init (startup)",
-  v = 7,
+  v = 6,
   deps = {
    "neo",
    "neo-icecap",
@@ -67,7 +67,7 @@ return {
  },
  ["neo-icecap"] = {
   desc = "KittenOS NEO / Icecap",
-  v = 8,
+  v = 3,
   deps = {
    "neo"
   },
@@ -84,7 +84,7 @@ return {
  },
  ["neo-secpolicy"] = {
   desc = "KittenOS NEO / Secpolicy",
-  v = 8,
+  v = 2,
   deps = {
   },
   dirs = {
@@ -125,7 +125,7 @@ return {
  },
  ["neo-logo"] = {
   desc = "KittenOS NEO Logo (data)",
-  v = 8,
+  v = 6,
   deps = {
   },
   dirs = {

claw/repo-claw.lua

@@ -24,7 +24,7 @@ return {
  },
  ["neo-docs"] = {
   desc = "KittenOS NEO system documentation",
-  v = 8,
+  v = 5,
   deps = {
    "zzz-license-pd"
   },
@@ -251,24 +251,6 @@ return {
    "docs/repoauthors/app-slaunch"
   },
  },
- ["svc-virtudev"] = {
-  desc = "a clone of vcomponent",
-  v = 0,
-  deps = {
-   "neo",
-   "zzz-license-pd"
-  },
-  dirs = {
-   "apps",
-   "docs",
-   "docs/repoauthors"
-  },
-  files = {
-   "apps/svc-virtudev.lua",
-   "apps/app-vdrslamp.lua",
-   "docs/repoauthors/svc-virtudev"
-  },
- },
  -- libraries
  ["lib-knbs"] = {
   desc = "NBS reader/writer library",

code/apps/sys-icecap.lua

@@ -109,20 +109,17 @@ donkonitDFProvider(function (pkg, pid, sendSig)
   end
  end
  return {
-  showFileDialogAsync = function (forWrite, defName)
+  showFileDialogAsync = function (forWrite)
    if not rawequal(forWrite, nil) then
     require("sys-filewrap").ensureMode(forWrite)
    end
-   if not rawequal(defName, nil) then
-    defName = tostring(defName)
-   end
    -- Not hooked into the event API, so can't safely interfere
    -- Thus, this is async and uses a return event.
    local tag = {}
    neo.scheduleTimer(0)
    table.insert(todo, function ()
     -- sys-filedialog is yet another "library to control memory usage".
-    local closer = require("sys-filedialog")(event, nexus, function (res) openHandles[tag] = nil sendSig("filedialog", tag, res) end, neo.requireAccess("c.filesystem", "file managers"), pkg, forWrite, defName)
+    local closer = require("sys-filedialog")(event, nexus, function (res) openHandles[tag] = nil sendSig("filedialog", tag, res) end, neo.requireAccess("c.filesystem", "file managers"), pkg, forWrite)
     openHandles[tag] = closer
    end)
    return tag

code/apps/sys-init.lua

@@ -65,17 +65,6 @@ local function basicDraw(bg)
  return gpu
 end
 
-local function consoleEventHandler(ev)
- if ev[1] == "h._kosneo_syslog" then
-  local text = ""
-  for i = 3, #ev do
-   if i ~= 3 then text = text .. " " end
-   text = text .. tostring(ev[i])
-  end
-  table.insert(console, text)
- end
-end
-
 -- Attempts to get an NSS monitor with a priority list of screens
 local function retrieveNssMonitor(...)
  local spc = {...}
@@ -144,6 +133,17 @@ local function retrieveNssMonitor(...)
  end
 end
 
+local function consoleEventHandler(ev)
+ if ev[1] == "h._kosneo_syslog" then
+  local text = ""
+  for i = 3, #ev do
+   if i ~= 3 then text = text .. " " end
+   text = text .. tostring(ev[i])
+  end
+  table.insert(console, text)
+ end
+end
+
 local function sleep(t)
  neo.scheduleTimer(os.uptime() + t)
  while true do

code/libs/neoux.lua

@@ -25,7 +25,7 @@ newNeoux = function (event, neo)
   end
  end)
  local neoux = {}
- neoux.fileDialog = function (forWrite, callback, dfn)
+ neoux.fileDialog = function (forWrite, callback)
   local sync = false
   local rtt = nil
   if not callback then
@@ -35,7 +35,7 @@ newNeoux = function (event, neo)
     rtt = rt
    end
   end
-  local tag = neo.requireAccess("x.neo.pub.base", "filedialog").showFileDialogAsync(forWrite, dfn)
+  local tag = neo.requireAccess("x.neo.pub.base", "filedialog").showFileDialogAsync(forWrite)
   local f
   f = function (_, fd, tg, re)
    if fd == "filedialog" then

code/libs/sys-filedialog.lua

@@ -2,7 +2,7 @@
 -- No warranty is provided, implied or otherwise.
 
 -- just don't bother with proper indent here
-return function (event, nexus, retFunc, fs, pkg, mode, defName)
+return function (event, nexus, retFunc, fs, pkg, mode)
 
 local fmt = require("fmttext")
 local class = "manage"
@@ -141,7 +141,7 @@ end
 nexus.create(w, h, class .. " " .. pkg, function (w, ev, a, b, c)
  if not wnd then
   wnd = w
-  prepareNode(require("sys-filevfs")(fs, mode, defName))
+  prepareNode(require("sys-filevfs")(fs, mode))
  end
  if ev == "key" then
   key2(a, b, c)

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, true)
   else
-   return nil, setupCopyNode(parent, res, op, complete)
+   return nil, setupCopyNode(parent, res, op, complete, impliedName)
   end
  end
  return {
@@ -32,6 +32,11 @@ function setupCopyNode(parent, myRoot, op, complete)
     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]())
@@ -49,7 +54,7 @@ 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, impliedName)
+ local myRoot = getRoot(fs, true)
  -- Setup wrapping node
  return setupCopyNode(parent, myRoot, "Copy", function (fwrap2, intent)
   if not fwrap2 then
@@ -67,22 +72,14 @@ local function setupCopyVirtualEnvironment(fs, parent, fwrap, impliedName)
   fwrap.close()
   fwrap2.close()
   return false, dialog("Completed copy.", parent)
- end)
+ end, impliedName)
 end
-function getFsNode(fs, parent, fsc, path, mode, impliedName)
+function getFsNode(fs, parent, fsc, path, mode)
  local va = fsc.address:sub(1, 4)
  local fscrw = not fsc.isReadOnly()
  local dir = path:sub(#path, #path) == "/"
  local confirmedDel = false
  local t
- local function selectUnknown(text)
-  -- Relies on text being nil if used in leaf node
-  local rt, re = require("sys-filewrap").create(fsc, path .. (text or ""), mode)
-  if not rt then
-   return false, dialog("Open Error: " .. tostring(re), parent)
-  end
-  return true, rt
- end
  t = {
   name = ((dir and "DIR: ") or "FILE: ") .. va .. path,
   list = function ()
@@ -97,7 +94,7 @@ function getFsNode(fs, parent, fsc, path, mode, impliedName)
      if fsc.isDirectory(fp) then
       nm = "D: " .. v
      end
-     n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode, impliedName) end}
+     n[k + 1] = {nm, function () return nil, getFsNode(fs, t, fsc, fp, mode) end}
     end
    end
    if fscrw then
@@ -117,6 +114,31 @@ function getFsNode(fs, parent, fsc, path, mode, impliedName)
        end
       }
      end})
+    else
+     if mode ~= nil then
+      local tx = "Open"
+      if mode == true then
+       tx = "Save"
+      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
+         return false, dialog("Open Error: " .. tostring(re), parent)
+        end
+        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, path:match("[^/]*$") or "")
+     end})
     end
     if path ~= "/" then
      local delText = "Delete"
@@ -150,38 +172,20 @@ function getFsNode(fs, parent, fsc, path, mode, impliedName)
      end})
     end
    end
-   if not dir then
-    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, path:match("[^/]*$") or "")
-    end})
-    if (fscrw or mode == false) and (mode ~= nil) then
-     local tx = "Open"
-     if mode == true then
-      tx = "Save (Overwrite)"
-     elseif mode == "append" then
-      tx = "Append"
-     end
-     if fscrw or mode == false then
-      table.insert(n, {tx, selectUnknown})
-     end
-    end
-   elseif impliedName then
-    table.insert(n, {"Implied: " .. impliedName, function ()
-     return selectUnknown(impliedName)
-    end})
-   end
    return n
   end,
   unknownAvailable = dir and (mode ~= nil) and ((mode == false) or fscrw),
-  selectUnknown = selectUnknown
+  selectUnknown = function (text)
+   local rt, re = require("sys-filewrap").create(fsc, path .. text, mode)
+   if not rt then
+    return false, dialog("Open Error: " .. tostring(re), parent)
+   end
+   return true, rt
+  end
  }
  return t
 end
-function getRoot(fs, mode, defName)
+function getRoot(fs, mode)
  local t
  t = {
   name = "DRVS:",
@@ -205,7 +209,7 @@ function getRoot(fs, mode, defName)
      id = "RW " .. amount .. "% " .. mb .. "M " .. id
     end
     table.insert(l, {fsi.address:sub(1, 4) .. " " .. id, function ()
-     return nil, getFsNode(fs, t, fsi, "/", mode, defName)
+     return nil, getFsNode(fs, t, fsi, "/", mode)
     end})
    end
    return l

code/libs/sys-secpolicy.lua

@@ -22,7 +22,7 @@ local function actualPolicy(pkg, pid, perm, matchesSvc)
   return "allow"
  end
  -- These signals are harmless, though they identify HW (as does everything in OC...)
- if perm == "s.h.component_added" or perm == "s.h.component_removed" or perm == "s.h.tablet_use" or perm == "c.tablet" then
+ if perm == "s.h.component_added" or perm == "s.h.component_removed" then
   return "allow"
  end
  if matchesSvc("r.", pkg, perm) then

com2/bdivide.lua

@@ -34,13 +34,9 @@ while blk ~= "" do
    break
   end
   local pm = p - 1
-  local thirdByte = pm % 256
+  bestData = string.char(128 + lm, math.floor(pm / 256), pm % 256)
-  -- anti ']'-corruption helper
-  if thirdByte ~= 93 then
-   bestData = string.char(128 + lm, math.floor(pm / 256), thirdByte)
   bestRes = pfx
  end
- end
  -- ok, encode!
  io.write(bestData)
  crop(bestRes)

laboratory/reset.sh

@@ -6,5 +6,9 @@
 cp ocemu.cfg.default ocemu.cfg && rm -rf c1-sda c1-sdb
 mkdir c1-sda c1-sdb
 echo -n c1-sda > c1-eeprom/data.bin
-
+cd ..
-./update.sh
+cp -r code/* laboratory/c1-sdb/
+cp -r repository/* laboratory/c1-sdb/
+lua claw/clawconv.lua laboratory/c1-sdb/data/app-claw/ < claw/code-claw.lua > /dev/null
+lua claw/clawconv.lua laboratory/c1-sdb/data/app-claw/ < claw/repo-claw.lua >> /dev/null
+cp -r laboratory/c1-sdb/* laboratory/c1-sda/

laboratory/update.sh

@@ -1,11 +0,0 @@
-#!/bin/sh
-
-# This is released into the public domain.
-# No warranty is provided, implied or otherwise.
-
-cd ..
-cp -r code/* laboratory/c1-sdb/
-cp -r repository/* laboratory/c1-sdb/
-lua claw/clawconv.lua laboratory/c1-sdb/data/app-claw/ < claw/code-claw.lua > /dev/null
-lua claw/clawconv.lua laboratory/c1-sdb/data/app-claw/ < claw/repo-claw.lua >> /dev/null
-cp -r laboratory/c1-sdb/* laboratory/c1-sda/

package-repo.sh

@@ -5,11 +5,8 @@
 
 # Package repository using supplied inst.lua (use inst-gold.lua for repository branch)
 
-# this is a guard check to avoid removing repobuild if it's blatantly
+stat repobuild/data/app-claw && rm -rf repobuild
-#  not the actual repobuild directory (this is an rm -rf after all)
+mkdir repobuild
-stat repobuild/data/app-claw 1>/dev/null 2>/dev/null && rm -rf repobuild
-
-mkdir -p repobuild
 cp -r code/* repobuild/
 cp -r repository/* repobuild/
 cp $1 repobuild/

package.sh

@@ -4,7 +4,6 @@
 # No warranty is provided, implied or otherwise.
 
 rm code/data/app-claw/*
-mkdir -p code/data/app-claw
 lua claw/clawconv.lua code/data/app-claw/ < claw/code-claw.lua > /dev/null
 rm code.tar
 # Hey, look behind you, there's nothing to see here.

repository/apps/app-vdrslamp.lua

@@ -1,49 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- svc-vdrslamp.lua : Virtual Redstone Lamp
--- Authors: 20kdc
-
-local vdev = neo.requireAccess("x.svc.virtudev", "lamp dev")
-
-local evr = neo.requireAccess("x.neo.pub.window", "the lamp")
-local wnd = evr(12, 6)
-
-local bLine = (" "):rep(12)
-
-local function blank()
- return 0
-end
-
-local total = 0
-
-vdev.install({
- type = "redstone",
- address = "vdrslamp-" .. neo.pid,
- slot = 0,
- getWakeThreshold = blank,
- setWakeThreshold = blank,
- getInput = blank,
- getOutput = function (i)
-  return total
- end,
- setOutput = function (i, v)
-  total = v
-  wnd.setSize(12, 6)
- end
-})
-
-while true do
- local e = {coroutine.yield()}
- if e[1] == "x.neo.pub.window" then
-  if e[3] == "close" then
-   -- the ignorance of unregistration is deliberate
-   -- a working impl. will properly recover
-   return
-  elseif e[3] == "line" then
-   local bg = 0xFFFFFF
-   if total == 0 then bg = 0 end
-   wnd.span(1, e[4], bLine, bg, bg)
-  end
- end
-end

repository/apps/svc-virtudev.lua

@@ -1,156 +0,0 @@
--- This is released into the public domain.
--- No warranty is provided, implied or otherwise.
-
--- svc-virtudev.lua : Virtual Device interface
--- Authors: 20kdc
-
-local ic = neo.requireAccess("x.neo.pub.base", "to lock x.svc.virtudev")
--- this is a pretty powerful permission, and PROBABLY EXPLOITABLE
-ic.lockPerm("x.svc.virtudev")
-local r = neo.requireAccess("r.svc.virtudev", "api endpoint")
-
-local root = neo.requireAccess("k.root", "the ability to modify the component API")
-
-local proxies = {}
-local types = {}
-
-local function uninstall(k)
- proxies[k] = nil
- types[k] = nil
- root.computer.pushSignal("component_removed", k, types[k])
-end
-
-local users = {}
-local userCount = 0
-
-r(function (pkg, pid, sendSig)
- local userAddresses = {}
- users[pid] = userAddresses
- userCount = userCount + 1
- return {
-  install = function (proxy)
-   local proxyAddress = proxy.address
-   local proxyType = proxy.type
-   assert(type(proxyAddress) == "string")
-   assert(type(proxyType) == "string")
-   assert(not proxies[proxyAddress], "proxy address in use: " .. proxyAddress)
-   proxies[proxyAddress] = proxy
-   types[proxyAddress] = proxyType
-   userAddresses[proxyAddress] = true
-   root.computer.pushSignal("component_added", proxyAddress, proxyType)
-   return function (a, ...)
-    root.computer.pushSignal(a, proxyAddress, ...)
-   end
-  end,
-  uninstall = function (k)
-   if userAddresses[k] then
-    uninstall(k)
-    userAddresses[k] = nil
-   end
-  end
- }
-end)
-
-local componentProxyRaw = root.component.proxy
-local componentTypeRaw = root.component.type
-local componentMethodsRaw = root.component.methods
-local componentFieldsRaw = root.component.fields
-local componentDocRaw = root.component.doc
-local componentInvokeRaw = root.component.invoke
-local componentListRaw = root.component.list
-
-root.component.proxy = function (address)
- if proxies[address] then
-  return proxies[address]
- end
- return componentProxyRaw(address)
-end
-
-root.component.type = function (address)
- if types[address] then
-  return types[address]
- end
- return componentTypeRaw(address)
-end
-
-local function methodsFieldsHandler(address, methods)
- if proxies[address] then
-  local mt = {}
-  for k, v in pairs(proxies[address]) do
-   if (type(v) == "function") == methods then
-    mt[k] = true
-   end
-  end
-  return mt
- end
- if methods then
-  return componentMethodsRaw(address)
- else
-  return componentFieldsRaw(address)
- end
-end
-
-root.component.methods = function (address) return methodsFieldsHandler(address, true) end
-root.component.fields = function (address) return methodsFieldsHandler(address, false) end
-root.component.doc = function (address, method)
- if proxies[address] then
-  return tostring(proxies[address][method])
- end
- return componentDocRaw(address, method)
-end
-root.component.invoke = function (address, method, ...)
- if proxies[address] then
-  return proxies[address][method](...)
- end
- return componentInvokeRaw(address, method, ...)
-end
-
-root.component.list = function (f, e)
- local iter = componentListRaw(f, e)
- local ended = false
- local others = {}
- for k, v in pairs(types) do
-  if (f == v) or ((not e) and v:find(f, 1, true)) then
-   table.insert(others, {k, v})
-  end
- end
- return function ()
-  if not ended then
-   local a, t = iter()
-   if not a then
-    ended = true
-   else
-    return a, t
-   end
-  end
-  -- at end of that, so what about others
-  local ent = table.remove(others, 1)
-  if ent then
-   return table.unpack(ent)
-  end
- end
-end
-
-while true do
- local e1, e2, e3 = coroutine.yield()
- if e1 == "k.procdie" then
-  if users[e3] then
-   for k, _ in pairs(users[e3]) do
-    uninstall(k)
-   end
-   users[e3] = nil
-   userCount = userCount - 1
-   if userCount == 0 then
-    break
-   end
-  end
- end
-end
-
-root.component.proxy = componentProxyRaw
-root.component.type = componentTypeRaw
-root.component.methods = componentMethodsRaw
-root.component.fields = componentFieldsRaw
-root.component.doc = componentDocRaw
-root.component.invoke = componentInvokeRaw
-root.component.list = componentListRaw

repository/docs/kn-perms

@@ -53,9 +53,9 @@ Here, "*" means that everything after
   program to start up.
 
 "k.computer": The "computer" table,
-               with wrapMeta applied.
+               with wrapMeta applied,
-The security check may be aliased to
+               pullSignal removed,
- the "k.root" permission in future.
+               and also pushSignal.
 
 "k.kill": function (pid) to kill any
            process on the system.

repository/docs/repoauthors/svc-virtudev

@@ -1,3 +0,0 @@
-repository/apps/svc-virtudev.lua: 20kdc, Public Domain
-repository/apps/app-vdrslamp.lua: 20kdc, Public Domain
-

repository/docs/ul-fwrap

@@ -15,12 +15,10 @@ The mode you give to it can be one of
  true: Write "wb"
  "append": Append "ab"
            May have some readability
-            properties - just in
+            propertiues - just in
             case, I've added 'read',
             but don't get your hopes
             up...
- "access": Like read, but can be
-  re-opened for write.
 
 It returns two things - a table, that
  being the file object, and the
@@ -39,9 +37,7 @@ The possible functions are:
  [aw] write(data): Writes to the
   file.
  [arw] read(data): Reads from the
-  file. data is the byte count.
+  file.
-  However, "*a" is valid here.
-  Other string-based options are not.
 
 NOTE: Some of these may not actually
  work. They're just there as more or

repository/docs/ul-neoux

@@ -33,19 +33,16 @@ The most reliable reference on the
 
 Main functions:
 
- neoux.fileDialog(mode, [callback],
+ fileDialog(mode[, callback]):
-  [dfn]):
   Creates a file dialog, returning a
    file wrapper (see ul-fwrap) on
    success, or nil on failure.
-  If callback isn't nil, then nil is
+  If a callback is given, then nil is
    always returned immediately, and
-   the callback is called with the
+   the callback is called when the
-   result when the dialog is closed.
+   dialog has shown.
   mode is the mode used for the file,
    so see ul-fwrap for values.
-  dfn is, if not nil, the default
-   'implied' filename (as with Copy).
 
  neoux.create(w, h, title, callback):
   Creates a window,

repository/docs/us-perms

@@ -57,15 +57,11 @@ Paths for the IO parts of this API
  the standard KittenOS NEO path
  safety rules in the kernel.
 
- showFileDialogAsync(mode, dfn):
+ showFileDialogAsync(mode): Shows a
- Shows a filedialog with a given
+  filedialog with a given filemode,
-  filemode, or nil for "none".
+  or nil for "none". Returns a new,
- Returns a new, empty table as a
+  empty table as a "tag", and emits a
-  "tag", and emits a "filedialog"
+  "filedialog" event on completion.
-  event on completion.
- dfn meanwhile adds an 'Implied'
-  button for reasonable default file
-  names.
 
  myApi: A string such as "svc.abc"
   for the program svc-abc, used for