LIKO-12/runtime.lua

local lume = require("libraries.lume")
local r = {}

function r:newGlobals(spritesheet,tilemap)
  local GLOB = {
    assert=assert,
    error=error,
    ipairs=ipairs,
    pairs=pairs,
    ripairs = lume.ripairs,
    next=next,
    pcall=pcall,
    select=select,
    tonumber=tonumber,
    tostring=tostring,
    type=type,
    unpack=unpack,
    _VERSION=_VERSION,
    xpcall=xpcall,
    string={
      byte=string.byte,
      char=string.char,
      find=string.find,
      format=string.format,
      gmatch=string.gmatch,
      gsub=string.gsub,
      len=string.len,
      lower=string.lower,
      match=string.match,
      rep=string.rep,
      reverse=string.reverse,
      sub=string.sub,
      upper=string.upper
    },
    table={
      insert=table.insert,
      maxn=table.maxn,
      remove=table.remove,
      sort=table.sort
    },
    math={
      abs=math.abs,
      acos=math.acos,
      asin=math.asin,
      atan=math.atan,
      atan2=math.atan2,
      ceil=math.ceil,
      cos=math.cos,
      cosh=math.cosh,
      deg=math.deg,
      exp=math.exp,
      floor=math.floor,
      fmod=math.fmod,
      frexp=math.frexp,
      huge=math.huge,
      ldexp=math.ldexp,
      log=math.log,
      log10=math.log10,
      max=math.max,
      min=math.min,
      modf=math.modf,
      pi=math.pi,
      pow=math.pow,
      rad=math.rad,
      random=math.random,
      randomseed=math.randomseed,
      sin=math.sin,
      sinh=math.sinh,
      sqrt=math.sqrt,
      tan=math.tan,
      tanh=math.tanh,
    }
  }
  local newAPI = api.newAPI(true,spritesheet,tilemap)
  for k,v in pairs(newAPI) do
    GLOB[k] = v
  end
  
  GLOB._G=GLOB --Mirror Mirror
  return GLOB
end

local function tr(fnc,...)
  if not fnc then return end
  local ok, err = pcall(fnc,...)
  if not ok then
    r.onerr(err)
    r.cg = {}
  end
end

function r:compile(code, G, spritesheet)
  local G = G or r:newGlobals(spritesheet)
  local chunk, err = loadstring(code or "")
  if err and not chunk then -- maybe it's an expression, not a statement
    chunk, err = loadstring("return " .. code)
    if err and not chunk then
      return false, err
    end
  end

  setfenv(chunk,G)
  self.cg = G
  return chunk
end

function r:loadGame(code,spritesheet,tilemap,onerr,...)
  --[[local success, err = self:compile(code, false, spritesheet, false)
  if not success then return false, err end
  self.onerr = onerr or error
  return true]] -- The loadGame will have it's own loading code because r:compile made by technomancy is so so buggy..
  local G = self:newGlobals(spritesheet,tilemap)
  local cart, err = loadstring(code or "")
  if not cart then return false, err end

  setfenv(cart,G)
  local ok, err = pcall(cart,...)
  if not ok then return err end
  self.cg = G
  self.onerr = onerr or error
  require("editor.console").G = G
  return self
end

function r:startGame()
  api.clear(1)
  tr(self.cg._init)
end

function r:_init()
  self.cg = {}
end

function r:_update(...)
  tr(self.cg._update,...)
end

function r:_mpress(...)
  tr(self.cg._mpress,...)
end

function r:_mmove(...)
  tr(self.cg._mmove,...)
end

function r:_mrelease(...)
  tr(self.cg._mrelease,...)
end

function r:_tpress(...)
  tr(self.cg._tpress,...)
end

function r:_tmove(...)
  tr(self.cg._tmove,...)
end

function r:_trelease(...)
  tr(self.cg._trelease,...)
end

function r:_kpress(...)
  tr(self.cg._kpress,...)
end

function r:_krelease(...)
  tr(self.cg._krelease,...)
end

function r:_tinput(...)
  tr(self.cg._tinput,...)
end

return r