CC Lua for opencomputers

local component = require("component")
local package = require("package")
local term = require("term")
local serialization = require("serialization")
local shell = require("shell")

local args, options = shell.parse(...)
local env = setmetatable({}, {__index = _ENV})

if #args > 0 then
  local script, reason = loadfile(args[1], nil, env)
  if not script then
    io.stderr:write(tostring(reason) .. "\n")
    os.exit(false)
  end
  local result, reason = pcall(script, table.unpack(args, 2))
  if not result then
    io.stderr:write(reason)
    os.exit(false)
  end
end

if #args == 0 or options.i then
  local function optrequire(...)
    local success, module = pcall(require, ...)
    if success then
      return module
    end
  end
  setmetatable(env, {__index = function(t, k)
    return _ENV[k] or optrequire(k)
  end})

  local history = {}
  component.gpu.setForeground(0xFFFF00)
  term.write("Interactive lua prompt:\nto exit the lua interpeter use: exit()\n")
  component.gpu.setForeground(0xFFFFFF)
  while term.isAvailable() do
    local foreground = component.gpu.setForeground(0xffff00)
    term.write(tostring(env._PROMPT or "lua> "))
    component.gpu.setForeground(foreground)
    local command = term.read(history)
    if command == nil then -- eof
      return
    end
    while #history > 10 do
      table.remove(history, 1)
    end
    local code, reason
    if string.find(command,"=") == nil then
      command = "="..command
    end
    res = command == "=exit()\n"
    if res == true then
      break
    else
      if string.sub(command,1,1) == "=" then
        code, reason = load("return " .. string.sub(command, 2), "=stdin", "t", env)
      else
        code, reason = load(command, "=stdin", "t", env)
      end
    end
    if code then
      local result = table.pack(xpcall(code, debug.traceback))
      if not result[1] then
        if type(result[2]) == "table" and result[2].reason == "terminated" then
          os.exit(result[2].code)
        end
        io.stderr:write(tostring(result[2]) .. "\n")
      else
        for i = 2, result.n do
          term.write(serialization.serialize(result[i], true) .. "\t", true)
        end
        if term.getCursor() > 1 then
          term.write("\n")
        end
      end
    else
      io.stderr:write(tostring(reason) .. "\n")
    end
  end
end