build.sh

@@ -1,11 +1,9 @@
 #!/bin/sh
 rm -r target/*
-mkdir target &>/dev/null
+mkdir target
-mkdir target/cfg
 lua luapreproc.lua module/init.lua target/init.lua
 echo _OSVERSION=\"PsychOS 2.0a1-$(git rev-parse --short HEAD)\" > target/version.lua
 cat target/version.lua target/init.lua > target/tinit.lua
 mv target/tinit.lua target/init.lua
 cp -r exec/ service/ lib/ target/
-cp default-init.txt target/cfg/
 lua finddesc.lua $(find module/ -type f) $(find lib/ -type f) > apidoc.md

default-init.txt

@@ -1 +1,3 @@
-getty.lua
+minitel.lua
+tape-iofs.lua
+fsmanager.service

exec/init.lua

@@ -1,26 +1,16 @@
-if os.taskInfo(1) then
+xpcall(function()
- return false, "init already started"
-end
 os.setenv("PWD","/boot")
-io.input("/dev/null")
+os.spawnfile("/boot/service/getty.lua")
-io.output("/dev/syslog")
+coroutine.yield()
-local pids = {}
+for k,v in pairs(fs.list("/dev/")) do
-local function loadlist()
+ if v:sub(1,3) == "tty" then
- local f = io.open("/boot/cfg/init.txt","rb")
+  dprint(tostring(io.input("/dev/"..v)))
- if not f then return false end
+  dprint(tostring(io.output("/dev/"..v)))
- for line in f:read("*a"):gmatch("[^\r\n]+") do
+  print(_OSVERSION.." - "..tostring(math.floor(computer.totalMemory()/1024)).."K RAM")
-  dprint(line)
+  os.spawnfile("/boot/exec/shell.lua")
-  pids[line] = -1
  end
- f:close()
 end
-loadlist()
 while true do
- for k,v in pairs(pids) do
-  if not os.taskInfo(v) then
-   dprint("Starting service "..k)
-   pids[k] = os.spawnfile("/boot/service/"..k)
-  end
- end
  coroutine.yield()
 end
+end,function(e) dprint(e) end,"init")

module/sched.lua

@@ -30,7 +30,6 @@ function os.tasks()
  return rt
 end
 function os.taskInfo(pid)
- pid = pid or os.pid()
  if not tTasks[pid] then return false end
  return {name=tTasks[pid].n,parent=tTasks[pid].P}
 end

service/getty.lua

@@ -1,4 +1,4 @@
-local gpus,screens,ttyn,pids = {}, {}, 0, {}
+local gpus,screens,ttyn = {}, {}, 0
 local function scan()
  local w,di = pcall(computer.getDeviceInfo)
  if w then
@@ -29,14 +29,6 @@ local function nextScreen(n)
  end
  return rt[n] or rt[8000] or rt[2000] or rt[600]
 end
-
-local function spawnShell(fin,fout)
- io.input(fin)
- io.output(fout)
- print(_OSVERSION.." - "..tostring(math.floor(computer.totalMemory()/1024)).."K RAM")
- return os.spawnfile("/boot/exec/shell.lua")
-end
-
 local function allocate()
  for k,v in pairs(gpus) do
   dprint(k)
@@ -46,22 +38,13 @@ local function allocate()
    devfs.register("tty"..tostring(ttyn), function() return r,w,function() end end)
    gpus[k][1] = true
    screens[sA][1] = true
-   pids["tty"..tostring(ttyn)] = {-1}
    ttyn = ttyn + 1
   end
  end
 end
-
 scan()
 allocate()
 dprint("screens ready")
 while true do
  coroutine.yield()
- for k,v in pairs(pids) do
-  if not os.taskInfo(v[1]) then
-   dprint("Spawning new shell for "..k)
-   pids[k][1] = spawnShell(v[2] or "/dev/"..k, v[3] or "/dev/"..k)
-   pids[k][2], pids[k][3] = pids[k][2] or io.input(), pids[k][3] or io.output()
-  end
- end
 end