assets/opencomputers/lua/rom/bin/more.lua

local component = require("component")
local keyboard = require("keyboard")
local shell = require("shell")
local term = require("term")
local unicode = require("unicode")

local args = shell.parse(...)
if #args == 0 then
  io.write("Usage: less <filename1>")
  return
end

local file, reason = io.open(shell.resolve(args[1]))
if not file then
  io.write(reason)
  return
end

local line = nil
while true do
  local w, h = component.gpu.getResolution()
  term.clear()
  term.setCursorBlink(false)
  local i = 1
  while i < h do
    if not line then
      line = file:read("*l")
      if not line then -- eof
        return 
      end
    end
    if unicode.len(line) > w then
      io.write(unicode.sub(line, 1, w), "\n")
      line = unicode.sub(line, w + 1)
    else
      io.write(line, "\n")
      line = nil
    end
    i = i + 1
  end
  term.setCursor(1, h)
  term.write(":")
  term.setCursorBlink(true)
  while true do
    local event, address, char, code = coroutine.yield("key_down")
    if component.isPrimary(address) then
      if code == keyboard.keys.q then
        term.setCursorBlink(false)
        term.clearLine()
        return
      elseif code == keyboard.keys.space then
        break
      end
    end
  end
end