implement component.get for convenience

build.lua

@@ -1,3 +1,7 @@
 local preproc = require "preproc"
 --local tA = {...}
+function preproc.directives.includelib(file,name)
+ return string.format("package.loaded.%s = (function()\n%s\nend)()", name, preproc.preproc(file))
+end
+
 preproc(...)

cfg/rc.cfg

@@ -1 +1 @@
-{enabled={"getty","minitel"}}
+{enabled={"getty","minitel","fsmanager","rtfsman","partman"}}

module/component-get.lua

@@ -0,0 +1,8 @@
+function component.get(addr, ctype)
+  for c in component.list(ctype, true) do
+    if c:sub(1, addr:len()) == addr then
+      return c
+    end
+  end
+  return nil, "no such component"
+end

module/init.lua

@@ -6,6 +6,7 @@
 --#include "module/io.lua"
 --#include "module/devfs.lua"
 --#include "module/devfs/syslog.lua"
+--#include "module/component-get.lua"
 --#include "module/loadfile.lua"
 
 _OSVERSION=_OSVERSION or "PsychOS 2"

module/io.lua

@@ -32,8 +32,9 @@ function io.write(...) -- Writes its arguments to the default output stream.
  io.output():write(...)
 end
 
-function print(...) -- Writes each argument to the default output stream, separated by newlines.
+function print(...) -- Writes each argument to the default output stream, separated by space.
  for k,v in ipairs({...}) do
-  io.write(tostring(v).."\n")
+  io.write(tostring(v).."   ")
  end
+ io.write("\n")
 end

module/sched.lua

@@ -1,5 +1,5 @@
 do
-local tTasks,nPid,nTimeout,cPid = {},1,0.25,0 -- table of tasks, next process ID, event timeout, current PID
+local tTasks,nPid,nTimeout,cPid = {},1,0.25,0 -- table of tasks, next process ID, default event timeout, current PID
 function os.spawn(f,n) -- function string -- number -- creates a process from function *f* with name *n*
  tTasks[nPid] = {
   c=coroutine.create(function()
@@ -14,6 +14,7 @@ function os.spawn(f,n) -- function string -- number -- creates a process from fu
   P=cPid, -- parent PID
   t=0, -- CPU time
   T=0, -- total uptime
+  E=nTimeout, -- event timeout
   e={} -- environment variables
  }
  if tTasks[cPid] then
@@ -44,18 +45,22 @@ function os.taskInfo(pid) -- number -- table -- returns info on process *pid* as
 end
 function os.sched() -- the actual scheduler function
  os.sched = nil
+ local sTimeout = nTimeout
  while #tTasks > 0 do
-  local tEv = {computer.pullSignal(nTimeout)}
+  local tEv = {computer.pullSignal(sTimeout)}
+  sTimeout = nTimeout
   for k,v in pairs(tTasks) do
    if coroutine.status(v.c) ~= "dead" then
     cPid = k
     local sT, sC = os.clock(), computer.uptime()
     coroutine.resume(v.c,table.unpack(tEv))
     v.t, v.T = v.t + os.clock() - sT, v.T + computer.uptime() - sC
+    sTimeout=math.min(sTimeout, v.E)
    else
     tTasks[k] = nil
    end
   end
+  sTimeout = nTimeout
  end
 end
 function os.setenv(k,v) -- set's the current process' environment variable *k* to *v*, which is passed to children
@@ -69,13 +74,11 @@ function os.getenv(k) -- gets a process' *k* environment variable
  end
 end
 function os.getTimeout()
- return nTimeout
+ return tTasks[cPid].E
 end
-function os.setTimeout(n)
+function os.setTimeout(n,pid)
- if type(n) == "number" and n >= 0 then
+ assert(type(n) == "number" and n >= 0)
-  nTimeout = n
+ tTasks[pid or cPid].E = n
-  return true
+ return true
- end
- return false
 end
 end

module/syslog.lua

@@ -1,3 +1,4 @@
+--#include "module/ocelot-debug.lua"
 do
 syslog = {}
 syslog.emergency = 0

service/fsmanager.lua

@@ -8,16 +8,17 @@ local function mount(addr)
  local w,r = fs.mount(dest,component.proxy(addr))
  if not w then 
   syslog("Failed to mount: "..r)
+  return false
  end
  fsmanager.filesystems[addr] = dest
 end
-for addr, _ in component.list("filesystem") do
- mount(addr)
-end
 
 function fsmanager.start()
  run = true
  return os.spawn(function()
+  for addr, _ in component.list("filesystem") do
+   mount(addr)
+  end
   while run do
    local tE = {coroutine.yield()}
    if tE[1] == "component_added" and tE[3] == "filesystem" then
@@ -25,6 +26,7 @@ function fsmanager.start()
    elseif tE[1] == "component_removed" and fsmanager.filesystems[tE[2]] and tE[3] == "filesystem" then
     syslog("Unmounting "..tE[2].." from "..fsmanager.filesystems[tE[2]])
     fs.umount(fsmanager.filesystems[tE[2]])
+    fsmanager.filesystems[tE[2]] = nil
    end
   end
  end,"fsmanager")