OC-KittenOS/code/apps/svc-t.lua

-- This is released into the public domain.
-- No warranty is provided, implied or otherwise.

-- svc-t.lua : terminal

local _, _, retTbl, title = ...

assert(retTbl, "need to alert creator")

if title ~= nil then
 assert(type(title) == "string", "title must be string")
end

local function rW()
 return string.format("%04x", math.random(0, 65535))
end

local id = "svc.t/" .. rW() .. rW() .. rW() .. rW()
local closeNow = false

local tReg = neo.requireAccess("r." .. id, "registration")

-- unicode.safeTextFormat'd lines
local console = {}
for i = 1, 14 do
 console[i] = (" "):rep(40)
end

local l15 = ""
--++++++++++++++++++++++++++++++++++++++++

-- sW must not go below 3.
-- sH must not go below 2.
local sW, sH = 40, 15
local cX = 1
local windows = neo.requireAccess("x.neo.pub.window", "windows")
local window = windows(sW, sH, title)

local function fmtLine(s)
 s = unicode.safeTextFormat(s)
 local l = unicode.len(s)
 return unicode.sub(s .. (" "):rep(sW - l), -sW)
end

local function line(i)
 local l, c = console[i] or l15
 l, c = unicode.safeTextFormat(l, cX)
 l = require("lineedit").draw(sW, l, i == sH and c)
 if i ~= sH then
  window.span(1, i, l, 0xFFFFFF, 0)
 else
  window.span(1, i, l, 0, 0xFFFFFF)
 end
end

local function incoming(s)
 local function shift(f)
  for i = 1, #console - 1 do
   console[i] = console[i + 1]
  end
  console[#console] = f
 end
 -- Need to break this safely.
 shift("")
 for i = 1, unicode.len(s) do
  local ch = unicode.sub(s, i, i)
  if unicode.wlen(console[#console] .. ch) > sW then
   shift(" ")
  end
  console[#console] = console[#console] .. ch
 end
 for i = 1, #console do
  line(i)
 end
end

local sendSigs = {}

do
 tReg(function (_, pid, sendSig)
  sendSigs[pid] = sendSig
  return {
   id = "x." .. id,
   pid = neo.pid,
   line = function (text)
    incoming(tostring(text))
   end
  }
 end)

 if retTbl then
  coroutine.resume(coroutine.create(retTbl), {
   access = "x." .. id,
   close = function ()
    closeNow = true
    neo.scheduleTimer(0)
   end
  })
 end
end

local function key(a, c)
 local lT, lC, lX = require("lineedit").key(a, c, l15, cX)
 l15 = lT or l15
 cX = lC or cX
 if lX == "nl" then
  for _, v in pairs(sendSigs) do
   v("line", l15)
  end
  l15 = ""
  cX = 1
 end
end

local control = false
while not closeNow do
 local e = {coroutine.yield()}
 if e[1] == "k.procdie" then
  sendSigs[e[3]] = nil
 elseif e[1] == "x.neo.pub.window" then
  if e[3] == "close" then
   break
  elseif e[3] == "clipboard" then
   for i = 1, unicode.len(e[4]) do
    local c = unicode.sub(e[4], i, i)
    if c ~= "\r" then
     if c == "\n" then
      c = "\r"
     end
     key(c, 0)
    end
   end
   line(sH)
  elseif e[3] == "key" then
   if e[5] == 29 or e[5] == 157 then
    control = e[6]
   elseif e[6] then
    if not control then
     key(e[4] ~= 0 and unicode.char(e[4]), e[5])
     line(sH)
    elseif e[5] == 203 and sW > 8 then
     sW = sW - 1
     window.setSize(sW, sH)
    elseif e[5] == 200 and sH > 2 then
     sH = sH - 1
     table.remove(console, 1)
     window.setSize(sW, sH)
    elseif e[5] == 205 then
     sW = sW + 1
     window.setSize(sW, sH)
    elseif e[5] == 208 then
     sH = sH + 1
     table.insert(console, 1, "")
     window.setSize(sW, sH)
    end
   end
  elseif e[3] == "line" then
   line(e[4])
  end
 end
end