a bunch of random bugfixes

genkernel.sh

@@ -1,2 +1,3 @@
 #!/bin/bash
 ./genkernel.lua build.cfg "$(git rev-parse --short HEAD)" > kernel.lua
+lua strip.lua kernel.lua skernel.lua

modules/applications/skex2.lua

@@ -4,10 +4,12 @@ function skex2(fp)
   if not fp then return end
   if not rp then ft = {} end
   local f=io.open(fp,"rb")
-  C=f:read("*a")
-  f:close()
-  for l in C:gmatch("[^\n]+") do
-   ft[#ft+1] = l
+  if f then
+   C=f:read("*a")
+   f:close()
+   for l in C:gmatch("[^\n]+") do
+    ft[#ft+1] = l
+   end
   end
  end
  function ct.writefile(nfp)
@@ -30,7 +32,7 @@ function skex2(fp)
   end
  end
  function ct.sp(np)
-  if np then p=tonumber(np)%#ft end
+  if np then p=(tonumber(np)%#ft)+1 end
  end
  function ct.pointer(np)
   ct.sp(np)

modules/base/header.lua

@@ -9,7 +9,7 @@ do -- so local works
  --  ["ep"]= event queue pointer
  -- }
  local tT,nP,rg,eq,p = {},1,_G,{},1 -- taskTable,nextPid,real _G,event queue
- _G.cT,sbt,C,T = 0,{},coroutine,table -- currentTask,sandboxTable
+ _G.cT,sbt,C,T,io = 0,{},coroutine,table,io -- currentTask,sandboxTable
  function _G.spawn(n,f,e)
   tT[nP] = {}
   sbt[nP] = {}

modules/lib/print.lua

@@ -8,3 +8,4 @@ function print(...)
   write(tostring(v).."\n")
  end
 end
+io.write = write