faketerm

--defaults
local color = true
local size_x = 51
local size_y = 19
local cur_x = 1
local cur_y = 1

local history = {}
local spill_t = {}

function table.find(t,val) for i, v in ipairs(t) do if v == val then return i end end return nil end

function write(text) if history[table.getn(history)][1]=="write" then history[table.getn(history)][1] = history[table.getn(history)][1]..text else table.insert(history,{"write",text}) end return end
function clear() if history[table.getn(history)][1]=="clear" then return end table.insert(history,{"clear"}) return end
function clearLine() if history[table.getn(history)][1]=="clearLine" then return end table.insert(history,{"clearLine"}) return end
function getCursorPos() return cur_x,cur_y end
function setCursorPos(x,y) cur_x = x cur_y = y if history[table.getn(history)][1]=="setCursorPos" then history[table.getn(history)][2],history[table.getn(history)][3] = x,y return end table.insert(history,{"setCursorPos",x,y}) return end
function setCursorBlink(b) if history[table.getn(history)][1] == "setCursorBlink" then history[table.getn(history)][2] = b return end table.insert(history,{"setCursorBlink",b}) return end
function isColor() return color end
isColour = isColor
function getSize() return size_x,size_y end
function scroll(n) if history[table.getn(history)][1] == "scroll" then history[table.getn(history)][2] = history[table.getn(history)][2]+n return end table.insert(history,{"scroll",n}) return end
function setTextColor(color) if history[table.getn(history)][1] == "setTextColor" then  history[table.getn(history)][2] = color return end table.insert(history,{"setTextColor",color}) return end
setTextColour = setTextColor
function setBackgroundColor(color) if history[table.getn(history)][1] == "setBackgroundColor" then  history[table.getn(history)][2] = color return end table.insert(history,{"setBackgroundColor",color}) return end
setBackgroundColour = setBackgroundColor
function setTextScale(scale) if history[table.getn(history)][1] == "setTextScale" then  history[table.getn(history)][2] = scale return end table.insert(history,{"setTextScale",scale}) return end

function newFakeTerm(col,sx,sy,cx,cy)
  local ft = os.clock()
  local ft_sp = {}
  --spill
  ft_sp["color"] = color
  ft_sp["size_x"] = size_x
  ft_sp["size_y"] = size_y
  ft_sp["cur_x"] = cur_x
  ft_sp["cur_y"] = cur_y
  ft_sp["history"] = {} for _,v in ipairs(history) do table.insert(ft_sp["history"],v) end
  history = {}
  spill_t[ft] = ft_sp
  --set new vals
  if col == nil then color = true else color = col end
  if sx == nil then size_x = 51 else color = sx end
  if sy == nil then size_y = 19 else color = sy end
  if cx == nil then cur_x = 1 else color = cx end
  if cy == nil then cur_y = 1 else color = cy end
  return ft
end

function deleteFakeTerm(ft)
  local ft_sp = spill_t[ft]
  if ft_sp == nil then return end
  color = ft_sp["color"]
  size_x = ft_sp["size_x"]
  size_y = ft_sp["size_y"]
  cur_x = ft_sp["cur_x"]
  cur_y = ft_sp["cur_y"]
  history = {} for _,v in ipairs(ft_sp["history"]) do table.insert(history,v) end

  local ind = table.find(spill_t,ft)
  if ind ~= nil then table.remove(spill_t,ind) end
end

function clearHistory(ft) history = {} end
function historyCopy(ft) local rval = {} for _,v in ipairs(history) do table.insert(rval, v) end return rval end

function replayHistory(historyTable, termObject)
  if termObject == nil then termObject = term.current() end
  for i,v in pairs(historyTable) do
    if v[1] == "write" then termObject.write(v[2]) end
    if v[1] == "clear" then termObject.clear() end
    if v[1] == "clearLine" then termObject.clearLine() end
    if v[1] == "setCursorPos" then termObject.setCursorPos(v[2],v[3]) end
    if v[1] == "setCursorBlink" then termObject.setCursorBlink(v[2]) end
    if v[1] == "scroll" then termObject.scroll(v[2]) end
    if v[1] == "setTextColor" then termObject.setTextColor(v[2]) end
    if v[1] == "setBackgroundColor" then termObject.setBackgroundColor(v[2]) end
    if v[1] == "setTextScale" then termObject.setTextScale(v[2]) end
  end
end

function wrapTerm(termObject)
  local rval = {}
  rval.col = termObject.isColor()
  rval.sx,rval.sy = termObject.getSize()
  rval.cx,rval.cy = termObject.getCursorPos()
  return rval
end