iframe-proxy | Sunbelt Computer Software

50 lines (50 loc) · 1.52 KB

function bootcode()
  -- Low level dofile implementation to read the rest of the OS.
  local bootfs = {}
  function bootfs.invoke(method, ...)
    return component.invoke(computer.getBootAddress(), method, ...)
  function bootfs.open(file) return bootfs.invoke("open", file) end
  function bootfs.read(handle) return bootfs.invoke("read", handle, math.huge) end
  function bootfs.close(handle) return bootfs.invoke("close", handle) end
  function bootfs.inits(file) return ipairs(bootfs.invoke("list", "boot")) end
  function bootfs.isDirectory(path) return bootfs.invoke("isDirectory", path) end
  -- Custom low-level loadfile/dofile implementation reading from our bootfs.
  local function loadfile(file, mode, env)
    local handle, reason = bootfs.open(file)
    if not handle then
      error(reason)
    local buffer = ""
      local data, reason = bootfs.read(handle)
      if not data and reason then
        error(reason)
      buffer = buffer .. (data or "")
    until not data
    bootfs.close(handle)
	if mode == nil then mode = "bt" end
    if env == nil then env = _G end
    return load(buffer, "=" .. file)
  _G.loadfile = loadfile
local function dofile(file)
  local program, reason = loadfile(file)
  if program then
   bootcode = nil
   loadfile = nil
   dofile = nil
    local result = table.pack(pcall(program))
    if result[1] then
      return table.unpack(result, 2, result.n)
      error(result[2], 3)
    error(reason, 3)
dofile("minios.lua")

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

init.lua

Latest commit

History

init.lua

File metadata and controls