dev_luadebugger.lua

local translate_Ts = false
local h_print = CreatePrint({"Debugger"})
local function DbgLuaCode(t, indent)
  indent = indent or ""
  local result = {}
  local format = function(k, v)
    local s
    local ktype, vtype = type(k), type(v)
    if (ktype == "string" or ktype == "number" or ktype == "nil") and (vtype == "string" or vtype == "number" or vtype == "table" or vtype == "boolean" or IsPStr(v)) then
      if k then
        s = FormatKey(k)
      else
        s = ""
      end
      if vtype == "table" then
        s = s .. DbgLuaCode(v, indent .. "\t")
      elseif vtype == "string" or IsPStr(v) then
        s = s .. StringToLuaCode(v)
      elseif vtype == "number" or vtype == "boolean" then
        s = s .. tostring(v)
      end
      result[#result + 1] = s
    end
  end
  local len = #t
  for i = 1, len do
    format(nil, t[i])
  end
  for k, v in pairs(t) do
    if type(k) ~= "number" or k > len or k < 1 then
      format(k, v)
    end
  end
  return "{" .. table.concat(result, ",") .. "}"
end
luadebugger = {}
function luadebugger:new(obj)
  obj = obj or {}
  setmetatable(obj, self)
  self.__index = self
  --obj.server = LuaSocket:new()
  obj.update_thread = false
  obj.started = false
  obj.call_stack = {}
  obj.stack_vars = {}
  obj.to_send = {}
  obj.in_break = false
  obj.context_id = 0
  obj.stack_level = 1
  obj.eval_env = false
  obj.watches = {}
  obj.to_expand = {}
  obj.watches_results = {}
  obj.watches_evaluated = {}
  obj.last_received = false
  obj.init_packet_received = false
  obj.SetStepOver = false
  obj.SetStepInto = false
  obj.breakpoints = {}
  obj.continue = false
  obj.timeout = 300000
  obj.handle_to_obj = {}
  obj.obj_to_handle = {}
  obj.conditions = {}
  obj.user_stack_level_top = false
  obj.__threadmeta = {
    __tostring = function(v)
      if v.type == "key" then
        return v.info.short_src .. " ( line: " .. v.info.currentline .. " )"
      else
        return tostring(v.info.name)
      end
    end
  }
  obj.__tuple_meta = {
    __tostring = function(v)
      local str = {}
      for i, value in ipairs(v) do
        if ObjectClass(value) then
          str[i] = value.class
        else
          str[i] = print_format(value)
        end
      end
      return table.concat(str, ", ")
    end
  }
  obj.condition_env = {}
  obj.reload_thread = false
  setmetatable(obj.condition_env, {
    __index = DebuggerIndex
  })
  return obj
end
function luadebugger:BreakExecution()
  DebuggerBreakExecution()
end
function luadebugger:Break(co, break_offset)
  Msg("DebuggerBreak")
  self.in_break = true
  self.call_info, self.stack_vars = self:GetCallInfo(co, co and 0 or 3)
  local level = 1
  if "keep_user_stack_level_top" == break_offset and self.user_stack_level_top then
    level = #self.call_info - self.user_stack_level_top + 1
  else
    if self.call_info[1].Name == "assert" then
      level = Min(#self.stack_vars, 2)
    elseif self.call_info[1].Name == "error" then
      level = Min(#self.stack_vars, 3)
    end
    level = level + (break_offset or 0)
    while self.call_info[level] and self.call_info[level].Source == "C function" do
      level = level + 1
    end
    self.user_stack_level_top = #self.call_info - level + 1
  end
  for i = 1, level - 1 do
    table.remove(self.call_info, 1)
    table.remove(self.stack_vars, 1)
  end
  self.stack_level = 1
  self.eval_env = self.stack_vars[1] or {}
  self.watches_evaluated = {}
  self.watches_results = {}
  self:AgeHandles()
  self.context_id = self.context_id + 1
  if self.context_id > 30000 then
    self.context_id = 0
  end
  local autos = self:GetAutos()
  self:Send({
    Event = "Break",
    ShowLevel = 1,
    Watches = self:EvalWatches(),
    CallStack = self.call_info,
    ContextId = self.context_id,
    Autos = autos
  })
  self.continue = false
  while not self.continue do
    if not self:DebuggerTick() then
      self:Stop()
      break
    end
    os.sleep(1)
  end
end
function OpenTextFileWithEditorOfChoice(file, line)
  file = ConvertToOSPath(file)
  line = line or 0
  if config.EditorVSCode then
    AsyncExec("cmd /c code -r -g \"" .. file .. ":" .. line .. "\"", true, true)
  elseif config.EditorGed or not Platform.desktop then
    OpenGedApp("GedFileEditor", false, {file_name = file})
  else
    local err = AsyncExec("explorer " .. file, true, true)
    if err then
      h_print(err)
      OS_LocateFile(file)
    end
  end
end
function luadebugger:OpenFile(file, line)
  if config.AlternativeDebugger then
    OpenTextFileWithEditorOfChoice(file, line)
  else
    self:Send({
      Event = "OpenFile",
      File = file,
      Line = line
    })
  end
end
function luadebugger:BreakInFile(file, line, status_text)
  Msg("DebuggerBreak")
  self.in_break = true
  self.call_info = {
    {
      Source = file or "",
      Line = line - 1 or 0,
      Name = "?",
      NameWhat = ""
    }
  }
  self.stack_vars = {}
  self.eval_env = {}
  self.watches_evaluated = {}
  self.watches_results = {}
  self:AgeHandles()
  self.context_id = self.context_id + 1
  if self.context_id > 30000 then
    self.context_id = 0
  end
  self:Send({
    Event = "Break",
    ShowLevel = 1,
    Watches = {},
    CallStack = self.call_info,
    ContextId = self.context_id,
    Autos = {}
  })
  if status_text then
    self:Send({
      Event = "UpdateStatusText",
      text = status_text
    })
  end
  self.continue = false
  while not self.continue do
    if not self:DebuggerTick() then
      self:Stop()
      break
    end
    os.sleep(1)
  end
end
function luadebugger:Continue()
  self.in_break = false
  self.continue = true
  Msg("DebuggerContinue")
end
function luadebugger:Run(to_expand)
  self:SetAllExpanded(to_expand)
  self:Continue()
end
function luadebugger:StepOver(to_expand)
  self:SetAllExpanded(to_expand)
  DebuggerStep("step over")
  self:Continue()
end
function luadebugger:StepInto(to_expand)
  self:SetAllExpanded(to_expand)
  DebuggerStep("step into")
  self:Continue()
end
function luadebugger:StepOut(to_expand)
  self:SetAllExpanded(to_expand)
  DebuggerStep("step out")
  self:Continue()
end
function luadebugger:Goto(to_expand, line)
  self:SetAllExpanded(to_expand)
  DebuggerGoto(self.user_stack_level_top, line)
  self:Break(nil, "keep_user_stack_level_top")
end
function luadebugger:GetGotoTargets(id)
  local absolute_level = self.user_stack_level_top
  local relative_level = DebuggerToRelativeStackLevel(absolute_level)
  local info = debug.getinfo(relative_level, "SL")
  if not info then
    return
  end
  local lines = table.keys(info.activelines)
  self:Send({
    Event = "Result",
    RequestId = id,
    Data = {
      level = self.stack_level,
      source = string.gsub(info.source, "^@", "") or "",
      lines = lines
    }
  })
end
function luadebugger:SetStackLevel(req_id, level)
  if self.in_break and self.stack_level ~= level and level <= #self.stack_vars then
    self.stack_level = level
    self.eval_env = self.stack_vars[level] or {}
    self.watches_evaluated = {}
    self.watches_results = {}
    self.context_id = self.context_id + 1
    if self.context_id > 30000 then
      self.context_id = 0
    end
    local autos = self:GetAutos()
    local watches = self:EvalWatches()
    self:Send({
      Event = "Result",
      RequestId = req_id,
      Data = {Watches = watches, Autos = autos}
    })
  elseif config.AlternativeDebugger then
  end
end
function luadebugger:SetBreakpoints(b)
  DebuggerClearBreakpoints()
  for _, bp in ipairs(b) do
    if bp.Condition then
      local eval, err = load("return " .. bp.Condition, nil, nil, self.condition_env)
      if eval then
        DebuggerAddBreakpoint(bp.File, bp.Line, eval)
      else
        h_print(err)
        DebuggerAddBreakpoint(bp.File, bp.Line)
      end
    else
      DebuggerAddBreakpoint(bp.File, bp.Line)
    end
  end
  self.breakpoints = b
end
function luadebugger:SetWatches(req_id, to_eval)
  self.watches = to_eval
  local res = self:EvalWatches()
  if next(res) ~= nil then
    self:Send({
      Event = "Result",
      RequestId = req_id,
      Data = res
    })
  end
end
function luadebugger:SetAllExpanded(expanded)
  self.to_expand = {}
  for _, v in ipairs(expanded) do
    self.to_expand[v] = true
  end
end
function luadebugger:Expand(req_id, to_expand)
  self.to_expand[to_expand] = true
  local res = self:EvalWatches()
  if next(res) ~= nil then
    self:Send({
      Event = "Result",
      RequestId = req_id,
      Data = res
    })
  end
end
function luadebugger:ViewInGame(to_view)
  local r, err = load("return " .. to_view, nil, nil, self.eval_env)
  if r then
    local ok, r = pcall(r)
    if IsValidPos(r) then
      ShowMe(r)
    end
  end
end
function luadebugger:StreamGrid(req_id, expression, size)
  local ok
  local r, err = load("return " .. expression, nil, nil, self.eval_env)
  if r then
    local ok, r = pcall(r)
    if ok then
      if IsGrid(r) then
        r = GridRepack(r, "F")
        local w, h = r:size()
        local orig_w, orig_h = w, h
        if size and 0 < size and (size < w or size < h) then
          r = GridResample(r, size, size, false)
          w, h = size, size
        end
        local packet_size = 262144
        for i = 0, w * h - 1, packet_size do
          do
            local offset = i
            self:Send(function()
              local data = GridGetBinData(r, offset, packet_size)
              data = Encode64(data)
              return {
                Event = "Result",
                RequestId = req_id,
                Data = {
                  Expression = expression,
                  width = w,
                  height = h,
                  orig_w = orig_w,
                  orig_h = orig_h,
                  offset = offset
                }
              }, data
            end)
          end
        end
      else
        self:Send({
          Event = "Result",
          RequestId = req_id,
          Data = {
            Expression = expression,
            Error = "not a grid (" .. self:Type(r) .. ")"
          }
        })
      end
    else
      self:Send({
        Event = "Result",
        RequestId = req_id,
        Data = {Expression = expression, Error = r}
      })
    end
  else
    self:Send({
      Event = "Result",
      RequestId = req_id,
      Data = {Expression = expression, Error = err}
    })
  end
end
function luadebugger:Eval(req_id, expression)
  local ok
  local r, err = load("return " .. expression, nil, nil, self.eval_env)
  if r then
    local ok, r = pcall(r)
    if ok then
      self:Send({
        Event = "Result",
        RequestId = req_id,
        Data = {Expression = expression, Result = r}
      })
    else
      self:Send({
        Event = "Result",
        RequestId = req_id,
        Data = {Expression = expression, Error = r}
      })
    end
  else
    self:Send({
      Event = "Result",
      RequestId = req_id,
      Data = {Expression = expression, Error = err}
    })
  end
end
function luadebugger:Init(breakpoints, watches, expanded)
  self.watches = watches
  self:SetBreakpoints(breakpoints)
  self:SetAllExpanded(expanded)
  self.init_packet_received = true
end
function luadebugger:GetAutos()
  local autos = {}
  for k in pairs(self.eval_env) do
    table.insert(autos, k)
  end
  return autos
end
function luadebugger:Quit()
  quit()
end
OverloadFilesPath = "AppData/overload/"
if FirstLoad then
  PendingFileOverloads = 0
  function OnMsg.Autorun()
    if not Platform.goldmaster and (Platform.xbox or Platform.playstation or Platform.switch) then
      local err = DeleteFolderTree(OverloadFilesPath)
      if err and err ~= "File Not Found" and err ~= "Path Not Found" then
        print("Overload path delete error: ", err)
      end
      err = AsyncCreatePath("AppData/overload/")
      if err then
        print("Overload path create error: ", err)
      end
    end
  end
end
local MountOverloadFolder = function(folder_name)
  local label = folder_name .. "Overload"
  local folder_path = OverloadFilesPath .. folder_name .. "/"
  if MountsByLabel(label) == 0 and io.exists(folder_path) then
    local err = MountFolder(folder_name, folder_path, "priority:high,seethrough,label:" .. label)
    if err then
      print("Overload folder mount error: ", err)
    end
  end
end
local OverloadFile = function(filepath, data)
  filepath = OverloadFilesPath .. filepath
  local dir = SplitPath(filepath)
  AsyncCreatePath(dir)
  AsyncStringToFile(filepath, data)
end
function luadebugger:OverloadFile(filepath, size)
  if size == 0 then
    OverloadFile(filepath, "")
    return
  end
  self.binary_mode = true
  function self.binary_handler(data)
    self.binary_mode = false
    PendingFileOverloads = PendingFileOverloads + 1
    CreateRealTimeThread(function()
      OverloadFile(filepath, data)
      h_print(string.format("[downloaded %d KB] %s (overload)", string.len(data) / 1024, filepath))
      PendingFileOverloads = PendingFileOverloads - 1
    end)
  end
end
function luadebugger:CompileShaders(shader)
  local shader_config = config.Haerald.CompileShaders
  self:Send({
    Event = "CompileShaders",
    Shader = shader,
    ListFilePath = shader_config.ListFilePath or "",
    BuildTool = shader_config.BuildTool or "",
    BuildArgs = shader_config.BuildArgs or "",
    ShaderCachePath = shader_config.ShaderCachePath or ""
  })
end
function luadebugger:ReloadShader(shader)
  local shader_config = config.Haerald.CompileShaders
  self:Send({
    Event = "CompileShaders",
    Shader = shader,
    ListFilePath = shader_config.ListFilePath or "",
    BuildTool = shader_config.BuildTool or "",
    BuildArgs = shader_config.BuildArgs or "",
    ShaderCachePath = shader_config.ShaderCachePath or ""
  })
end
function luadebugger:ReloadShaderCache()
  CreateRealTimeThread(function()
    MountOverloadFolder("ShaderCache")
    while PendingFileOverloads > 0 do
      Sleep(5)
    end
    hr.AddRemotelyCompiledShader = true
  end)
end
function luadebugger:ReloadLua()
  h_print("Reload request")
  DeleteThread(self.reload_thread)
  self.reload_thread = CreateRealTimeThread(function()
    Sleep(1000)
    MountOverloadFolder("CommonLua")
    MountOverloadFolder("Lua")
    MountOverloadFolder("Data")
    ReloadLua()
  end)
end
function luadebugger:RemoteExec(code)
  if dlgConsole then
    dlgConsole:Exec(code)
  end
end
function luadebugger:RemoteAutoComplete(code, idx)
  if dlgConsole then
    local list = GetAutoCompletionList(code, idx)
    self:Send({
      Event = "AutoCompleteList",
      List = list
    })
  end
end
function luadebugger:RemotePrint(text)
  h_print(text)
end
function luadebugger:EvalWatches()
  if not self.in_break then
    return {}
  end
  local new = {}
  local old = {}
  for k, v in pairs(self.watches_results) do
    old[k] = v.Children ~= nil
  end
  for _, value_lua in pairs(self.watches) do
    if not self.watches_evaluated[value_lua] then
      self:EvalWatch(value_lua)
    end
  end
  for k in pairs(self.eval_env) do
    if not self.watches_evaluated[k] then
      self:EvalWatch(k)
    end
  end
  for value_lua in pairs(self.to_expand) do
    self:ExpandWatch(value_lua)
  end
  for k, v in pairs(self.watches_results) do
    if old[k] == nil or old[k] == false and v.Children then
      new[k] = v
    end
  end
  return new
end
function luadebugger:EvalWatch(ToEval)
  local ok
  local r, err = load("return " .. ToEval, nil, nil, self.eval_env)
  if r then
    err = nil
    local old = config.InDebugger
    config.InDebugger = true
    local results = {
      pcall(r)
    }
    config.InDebugger = old
    if results[1] then
      local res = results[2]
      if 2 < #results then
        res = setmetatable({
          unpack_params(results, 2)
        }, self.__tuple_meta)
      end
      self:AddWatch(ToEval, res, ToEval, ToEval)
    else
      err = results[2]
    end
  end
  if err then
    err = string.gsub(err, "%[.+%]:%d+: ", "")
    self:AddWatch(ToEval, err, ToEval, ToEval)
  end
  if self.to_expand[ToEval] then
    self:ExpandWatch(ToEval)
  end
end
function luadebugger:ExpandWatch(value_lua, new)
  local t = self.watches_results[value_lua]
  if not t or t.Children then
    return
  end
  local res = {}
  if t.Expandable and self.to_expand[value_lua] then
    local value_obj = self.watches_evaluated[value_lua].ValueObj
    for key2_obj, value2_obj, key2_lua, value2_lua, sort_priority in self:Enum(value_obj, value_lua) do
      self:AddWatch(key2_obj, value2_obj, key2_lua, value2_lua, sort_priority)
      if self.to_expand[value2_lua] then
        self:ExpandWatch(value2_lua)
      end
      table.insert(res, value2_lua)
    end
    local watches_results = self.watches_results
    table.sort(res, function(a, b)
      local a, b = watches_results[a] or empty_table, watches_results[b] or empty_table
      if (a.SortPriority or 0) ~= (b.SortPriority or 0) then
        return (a.SortPriority or 0) > (b.SortPriority or 0)
      end
      if a.KeyType == "number" and b.KeyType == "number" then
        return tonumber(a.Key) < tonumber(b.Key)
      end
      if a.KeyType == "number" then
        return true
      end
      if b.KeyType == "number" then
        return false
      end
      return CmpLower(a.Key, b.Key)
    end)
    t.Children = res
    return t
  end
end
function luadebugger:ToString(v)
  local type = type(v)
  if rawequal(v, _G) then
    return "_G"
  elseif type == "thread" then
    if coroutine.running() == v then
      return "current " .. tostring(v)
    end
    return coroutine.status(v) .. " " .. tostring(v)
  elseif type == "function" then
    local info = debug.getinfo(v)
    if info and info.short_src and info.linedefined and info.linedefined ~= -1 then
      return string.format("%s(%d)", info.short_src, info.linedefined)
    end
    return tostring(v)
  elseif type == "table" then
    if IsValid(rawget(v, 1)) then
      local str = tostring(v)
      if 80 < #str then
        return string.sub(str, 1, 80) .. "..."
      end
      return str
    end
    if IsT(v) then
      if translate_Ts then
        return _InternalTranslate(v, nil, false)
      else
        return TDevModeGetEnglishText(v, "deep", "no_assert")
      end
    elseif ObjectClass(v) then
      local suffix, num = string.gsub(tostring(v), "^table", "")
      if num == 0 then
        suffix = ""
      end
      if rawget(_G, "CObject") and IsKindOf(v, "CObject") and not IsValid(v) then
        return "invalid object" .. suffix
      else
        return "object" .. suffix
      end
    end
    for k, class in pairs(g_Classes or empty_table) do
      if v == class then
        return "class " .. k
      end
    end
    local meta = getmetatable(v)
    if meta == rawget(_G, "g_traceMeta") then
      return "trace log"
    end
    if meta and rawget(meta, "__tostring") ~= nil then
      local ok, result = pcall(meta.__tostring, v)
      return ok and result or "error in custom tostring function: " .. result
    else
      return tostring(v) .. " (len: " .. #v .. ")"
    end
  else
    return tostring(v)
  end
end
function luadebugger:Type(o)
  local otype = type(o)
  if otype == "table" and IsT(o) then
    return "translation"
  end
  if rawequal(o, _G) then
    return "table"
  end
  if ObjectClass(o) then
    local ctype = o.class
    local particles = IsValid(o) and g_Classes.CObject and o:IsKindOf("CObject") and o:GetParticlesName() or ""
    if type(particles) == "string" and particles ~= "" then
      ctype = ctype .. ": " .. particles
    end
    local id = rawget(o, "id") or ""
    if type(id) == "string" and id ~= "" then
      ctype = ctype .. ": " .. id
    end
    return ctype
  end
  local meta = getmetatable(o)
  if meta then
    if IsPoint(o) then
      return "Point"
    end
    if IsBox(o) then
      return "Box"
    end
    if IsQuaternion(o) then
      return "Quaternion"
    end
    if IsGrid(o) then
      local pid = GridGetPID(o)
      local w, h = o:size()
      return "Grid " .. pid .. " " .. w .. "x" .. h
    end
    if IsPStr(o) then
      return "pstr (#" .. #o .. ")"
    end
    if meta == __range_meta then
      return "Range"
    end
    if meta == __set_meta then
      return "Set"
    end
    if meta == self.__tuple_meta then
      return "tuple (#" .. #o .. ")"
    end
    if meta == self.__threadmeta then
      return "thread level info"
    end
  end
  if otype == "string" then
    return "string (#" .. #o .. ")"
  end
  if otype == "table" then
    return "table (#" .. #o .. " / " .. table.count(o) - #o .. ")"
  end
  if otype == "function" then
    if IsCFunction(o) then
      return "C function"
    end
    return "function"
  end
  return otype
end
function luadebugger:AgeHandles()
  for k, v in pairs(self.handle_to_obj) do
    if v.age >= 1 then
      self.obj_to_handle[v.obj] = nil
      self.handle_to_obj[k] = nil
    else
      v.age = v.age + 1
    end
  end
end
function luadebugger:GetHandle(obj)
  local handle = self.obj_to_handle[obj]
  if handle == nil then
    handle = #self.handle_to_obj + 1
    self.handle_to_obj[handle] = {obj = obj, age = 0}
    self.obj_to_handle[obj] = handle
  end
  self.handle_to_obj[handle].age = 0
  return handle
end
function luadebugger:GetObj(handle)
  local obj_desc = self.handle_to_obj[handle]
  if obj_desc ~= nil then
    obj_desc.age = 0
    return obj_desc.obj
  end
  return nil
end
function luadebugger:FormatIndex(to_index, k)
  to_index = "(" .. to_index .. ")"
  if type(k) == "number" or type(k) == "boolean" then
    return tostring(k), to_index .. "[" .. tostring(k) .. "]"
  elseif type(k) == "string" then
    if string.match(k, "^[_%a][_%w]*$") then
      return StringToLuaCode(k), to_index .. "." .. k
    else
      return StringToLuaCode(k), to_index .. "[ " .. StringToLuaCode(k) .. " ]"
    end
  else
    local expr = "g_LuaDebugger:GetObj(" .. g_LuaDebugger:GetHandle(k) .. ")"
    return expr, to_index .. "[" .. expr .. "]"
  end
end
function luadebugger:Enum(value, value_str)
  local vtype = type(value)
  if vtype == "table" then
    local metatable = getmetatable(value)
    if metatable == self.__threadmeta then
      local up, l = 1, 1
      local info = value.info
      return function()
        if up then
          if up <= info.nups then
            local name, val = debug.getupvalue(info.func, up)
            up = up + 1
            return (name or "") .. "(upvalue)", val, "", "g_LuaDebugger:GetUpvalue(" .. value_str .. "," .. up .. ")", 1
          else
            up = false
          end
        end
        if not up then
          local name, val = debug.getlocal(value.thread, value.level, l)
          if not name then
            return
          end
          l = l + 1
          return (name or "") .. "(local)", val, "", "g_LuaDebugger:GetLocal(" .. value_str .. "," .. l .. ")", 2
        end
      end
    else
      do
        local key, meta
        return function()
          if not meta then
            meta = true
            local m = metatable
            if m and m ~= self.__tuple_meta then
              return "metatable", m, "", "getmetatable(" .. value_str .. ")", 1
            end
          end
          local v
          key, v = next(value, key)
          if v == nil then
            return
          end
          local key_str, value_str = self:FormatIndex(value_str, key)
          return key, v, key_str, value_str
        end
      end
    end
  elseif vtype == "function" then
    local up = 1
    local info = debug.getinfo(value, "u")
    return function()
      if up <= info.nups then
        local name, val = debug.getupvalue(value, up)
        up = up + 1
        return tostring(name) .. "(upvalue)", val, "", "g_LuaDebugger:GetFnUpvalue(" .. value_str .. "," .. up .. ")", 1
      end
    end
  elseif vtype == "thread" then
    local level = 0
    return function()
      local k = self:ThreadKeyWrapper(value, level)
      if not k then
        return
      end
      local v = self:ThreadValueWrapper(value, level)
      level = level + 1
      return k, v, "", "g_LuaDebugger:ThreadValueWrapper(" .. value_str .. "," .. level .. ")", -level
    end
  else
    return function()
    end
  end
end
function luadebugger:GetFnUpvalue(fn, i)
  local _, v = debug.getupvalue(fn, i)
  return v
end
function luadebugger:GetUpvalue(thread_wrapper, i)
  local _, v = debug.getupvalue(thread_wrapper.info.func, i)
  return v
end
function luadebugger:GetLocal(thread_wrapper, i)
  local _, v = debug.getlocal(thread_wrapper.thread, thread_wrapper.level, i)
  return v
end
function luadebugger:ThreadKeyWrapper(thread, level)
  local info = debug.getinfo(thread, level, "Slfun")
  if info then
    local v = {
      type = "key",
      thread = thread,
      level = level,
      info = info
    }
    setmetatable(v, self.__threadmeta)
    return v
  end
end
function luadebugger:ThreadValueWrapper(thread, level)
  local info = debug.getinfo(thread, level, "Slfun")
  if info then
    local v = {
      type = "value",
      thread = thread,
      level = level,
      info = info
    }
    setmetatable(v, self.__threadmeta)
    return v
  end
end
function luadebugger:IsExpandable(v)
  local meta = getmetatable(v)
  if meta == self.__threadmeta and meta.type == "key" then
    return false
  end
  if coroutine.running() == v then
    return false
  end
  local type = type(v)
  return type == "thread" or type == "function" or type == "table"
end
local IsValidPos = rawget(_G, "IsValidPos") or empty_func
function luadebugger:CustomViews(luav, v)
  local type = type(v)
  if type == "string" or IsPStr(v) then
    return {
      {
        MenuText = "Inspect as String",
        Viewer = "Text"
      }
    }
  end
  if type == "function" then
    if IsCFunction(v) then
      return
    end
    local info = debug.getinfo(v, "Sln")
    return {
      {
        MenuText = "Open source file",
        Viewer = "OpenFile",
        Expression = info.short_src .. "(" .. info.linedefined .. ")"
      }
    }
  end
  if type == "table" and getmetatable(v) == self.__threadmeta then
    return {
      {
        MenuText = "Open source file",
        Viewer = "OpenFile",
        Expression = v.info.short_src .. "(" .. v.info.currentline .. ")"
      }
    }
  end
  if IsValidPos(v) then
    return {
      {
        MenuText = "View InGame",
        Viewer = "ViewInGame"
      }
    }
  end
  if IsGrid(v) then
    return {
      {
        MenuText = "View as Image",
        Viewer = "FloatGridAsImage",
        Expression = luav
      }
    }
  end
end
function luadebugger:AddWatch(key_obj, value_obj, key_lua, value_lua, sort_priority)
  self.watches_results[value_lua] = {
    KeyLua = key_lua,
    ValueLua = value_lua,
    Key = self:ToString(key_obj),
    Value = self:ToString(value_obj),
    KeyType = self:Type(key_obj),
    ValueType = self:Type(value_obj),
    Expandable = self:IsExpandable(value_obj),
    CustomViews = self:CustomViews(value_lua, value_obj),
    SortPriority = sort_priority
  }
  self.watches_evaluated[value_lua] = {KeyObj = key_obj, ValueObj = value_obj}
end
function luadebugger:Send(t)
  table.insert(self.to_send, t)
end
function luadebugger:Received(t, packet)
  if not t or not t.command then
    h_print("no command found in packet " .. packet)
  else
    local handler = rawget(self, t.command) or rawget(luadebugger, t.command)
    if not handler then
      h_print("the command " .. t.command .. " is not recognized in packet " .. packet)
    else
      self.last_received = t
      handler(self, unpack_params(t.parameters))
    end
  end
end
function luadebugger:ClearBreakpoints()
  DebuggerClearBreakpoints()
end
function luadebugger:ReadPacket(packet)
  if self.binary_mode then
    local callback = self.binary_handler
    if not callback or type(callback) ~= "function" then
      self.binary_mode = false
    else
      callback(packet)
      return
    end
  end
  local r, err = load("return " .. packet)
  if r then
    local ok, r = pcall(r)
    if ok then
      self:Received(r, packet)
    else
      h_print("while loadind string " .. packet)
    end
  else
    h_print(err)
    h_print("while loadind string " .. packet)
  end
end
--[[ function luadebugger:DebuggerTick()
  local server = self.server
  if not self.in_break or #server.send_buffer == 0 then
    while 0 < #self.to_send do
      local to_send, data = self.to_send[1]
      if type(to_send) == "function" then
        to_send, data = to_send()
      end
      if data then
        server:send("!", data)
      end
      local s = DbgLuaCode(to_send)
      server:send(s)
      table.remove(self.to_send, 1)
      s = nil
      if self.in_break then
        break
      end
    end
  end
  if not server.update then
  end
  server:update()
  while true do
    local packet = server:readpacket()
    if packet then
      self:ReadPacket(packet)
    else
      break
    end
  end
  if server:isdisconnected() then
    h_print("Disconnected")
    return false
  end
  return true
end ]]
function luadebugger:CaptureVars(co, level)
  local vars = {}
  local info
  if co then
    info = debug.getinfo(co, level, "fu")
  else
    info = debug.getinfo(level, "fu")
  end
  local func = info and info.func or nil
  if not func then
    return vars
  end
  local i = 1
  local nils = {}
  local capture = function(name, value)
    if name then
      if rawequal(value, nil) then
        nils[name] = true
      else
        vars[name] = value
      end
      return true
    end
  end
  if co then
    while capture(debug.getlocal(co, level, i)) do
      i = i + 1
    end
  else
    while capture(debug.getlocal(level, i)) do
      i = i + 1
    end
  end
  for i = 1, info.nups do
    capture(debug.getupvalue(func, i))
  end
  return setmetatable(vars, {
    __index = function(t, key)
      if nils[key] then
        return nil
      end
      return rawget(_G, key)
    end
  })
end
function luadebugger:GetCallInfo(co, level)
  local stack_vars = {}
  local call_stack = {}
  local i = 1
  local start_level = level + (co and 0 or 1) - 1
  while i < 100 do
    local info
    if co then
      info = debug.getinfo(co, i + start_level, "Sln")
    else
      info = debug.getinfo(i + start_level, "Sln")
    end
    if not info then
      break
    end
    if info.what ~= "C" then
      stack_vars[i] = self:CaptureVars(co, i + start_level + (co and 0 or 1))
      local source = string.gsub(info.source, "^@", "") or ""
      local nl = string.find(source, "\n") or 0
      source = string.sub(source, 1, nl - 1)
      call_stack[i] = {
        Source = source,
        Line = info.currentline or 0,
        Name = tostring(info.name or "?"),
        NameWhat = tostring(info.namewhat)
      }
    else
      stack_vars[i] = self:CaptureVars(co, i + start_level + (co and 0 or 1))
      call_stack[i] = {
        Source = "C function",
        Line = 0,
        Name = tostring(info.name or "?"),
        NameWhat = ""
      }
    end
    i = i + 1
  end
  return call_stack, stack_vars
end
-- function luadebugger:Start()
--   if self.started then
--     return
--   end
--   h_print("Starting...")
--   DebuggerInit()
--   DebuggerClearBreakpoints()
--   self.started = true
--   local server = self.server
--   local debugger_port = controller_port + 2
--   if config.ForceDebuggerPort then
--     debugger_port = config.ForceDebuggerPort
--   end
--   controller_host = not Platform.pc and config.Haerald and config.Haerald.ip or "localhost"
--   server:connect(controller_host, debugger_port)
--   server:update()
--   if not server:isconnected() then
--     if Platform.pc then
--       local processes = os.enumprocesses()
--       local running = false
--       for i = 1, #processes do
--         if string.find(processes[i], "Haerald.exe") then
--           running = true
--           break
--         end
--       end
--       if not running and not config.AlternativeDebugger then
--         local os_path = ConvertToOSPath(config.LuaDebuggerPath)
--         local exit_code, std_out, std_error = os.exec(os_path)
--         if exit_code ~= 0 then
--           h_print("Could not launch from:", os_path, [[

-- Exec error:]], std_error)
--           self:Stop()
--           return
--         end
--       end
--     end
--     local total_timeout = 6000
--     local retry_timeout = Platform.pc and 100 or 2000
--     local steps_before_reset = Platform.pc and 10 or 1
--     local num_retries = total_timeout / retry_timeout
--     for i = 1, num_retries do
--       server:update()
--       if server:isconnected() then
--         break
--       end
--       if not server:isconnecting() or i % steps_before_reset == 0 then
--         server:close()
--         server:connect(controller_host, debugger_port, retry_timeout)
--       end
--       os.sleep(retry_timeout)
--     end
--     if not server:isconnected() then
--       h_print("Could not connect to debugger at " .. controller_host .. ":" .. debugger_port)
--       self:Stop()
--       return
--     end
--   end
--   server.timeout = 5000
--   self.watches = {}
--   self.handle_to_obj = {}
--   self.obj_to_handle = {}
--   local PathRemapping
--   if not Platform.pc then
--     PathRemapping = config.Haerald and config.Haerald.PathRemapping or {}
--   elseif IsFSUnpacked() then
--     PathRemapping = config.Haerald and config.Haerald.PathRemapping or {
--       CommonLua = "CommonLua",
--       Lua = Platform.cmdline and "" or "Lua",
--       Data = Platform.cmdline and "" or "Data",
--       ["svnProject/Dlc"] = Platform.cmdline and "" or "svnProject/Dlc",
--       Swarm = "CommonLua/../Swarm",
--       Tools = "CommonLua/../Tools",
--       Shaders = "Shaders",
--       ["AppData/Mods"] = Platform.cmdline and "" or "AppData/Mods"
--     }
--     for key, value in pairs(PathRemapping) do
--       if value ~= "" then
--         local game_path = value .. "/."
--         local os_path, failed = ConvertToOSPath(game_path)
--         if failed or not io.exists(os_path) then
--           os_path = nil
--         end
--         PathRemapping[key] = os_path
--       end
--     end
--   end
--   local FileDictionaryPath = config.Haerald and config.Haerald.FileDictionaryPath or {
--     "CommonLua",
--     "Lua",
--     "svnProject/Dlc",
--     "Swarm",
--     "Tools",
--     "AppData/Mods"
--   }
--   local FileDictionaryExclude = config.Haerald and config.Haerald.FileDictionaryExclude or {
--     ".svn",
--     "__load.lua",
--     ".prefab.lua",
--     "/Storage/"
--   }
--   local PropFormatList = config.Haerald and config.Haerald.PropFormatList or {
--     "category",
--     "id",
--     "name",
--     "editor",
--     "default"
--   }
--   local FileDictionaryIgnore = config.Haerald and config.Haerald.FileDictionaryIgnore or {
--     "^exec$",
--     "^items$",
--     "^filter$",
--     "^action$",
--     "^state$",
--     "^f$",
--     "^func$",
--     "^no_edit$"
--   }
--   local SearchExclude = config.Haerald and config.Haerald.SearchExclude or {
--     ".svn",
--     "/Prefabs/",
--     "/Storage/",
--     "/Collections/",
--     "/BuildCache/"
--   }
--   local TablesToKeys = {}
--   local InitPacket = {
--     Event = "InitPacket",
--     PathRemapping = PathRemapping,
--     ExeFileName = string.gsub(GetExecName(), "/", "\\"),
--     ExePath = string.gsub(GetExecDirectory(), "/", "\\"),
--     CurrentDirectory = Platform.pc and string.gsub(GetCWD(), "/", "\\") or "",
--     FileDictionaryPath = FileDictionaryPath,
--     FileDictionaryExclude = FileDictionaryExclude,
--     PropFormatList = PropFormatList,
--     FileDictionaryIgnore = FileDictionaryIgnore,
--     SearchExclude = SearchExclude,
--     TablesToKeys = TablesToKeys,
--     ConsoleHistory = rawget(_G, "LocalStorage") and LocalStorage.history_log or {}
--   }
--   InitPacket.Platform = GetDebuggeePlatform()
--   if Platform.console or Platform.ios then
--     InitPacket.UploadData = "true"
--     InitPacket.UploadPartSize = config.Haerald and config.Haerald.UploadPartSize or 2097152
--     InitPacket.UploadFolders = config.Haerald and config.Haerald.UploadFolders or {}
--   end
--   local project_name = const.ProjectName
--   if not project_name then
--     local dir, filename, ext = SplitPath(GetExecName())
--     project_name = filename or "unknown"
--   end
--   InitPacket.ProjectName = project_name
--   self:Send(InitPacket)
--   for i = 1, 500 do
--     if not self:DebuggerTick() or self.init_packet_received then
--       break
--     end
--     os.sleep(10)
--   end
--   if not self.init_packet_received then
--     h_print("Didn't receive initialization packages (maybe the debugger is taking too long to upload the files?)")
--     self:Stop()
--     return
--   end
--   UpdateThreadDebugHook()
--   if DebuggerTracingEnabled() then
--     local coroutine_resume, coroutine_status = coroutine.resume, coroutine.status
--     SetThreadResumeFunc(function(thread)
--       collectgarbage("stop")
--       DebuggerPreThreadResume(thread)
--       local r1, r2 = coroutine.resume(thread)
--       local time = DebuggerPostThreadYield(thread)
--       collectgarbage("restart")
--       if coroutine_status(thread) ~= "suspended" then
--         DebuggerClearThreadHistory(thread)
--       end
--       return r1, r2
--     end)
--   end
--   DeleteThread(self.update_thread)
--   self.update_thread = CreateRealTimeThread(function()
--     h_print("Connected.")
--     while self:DebuggerTick() do
--       Sleep(25)
--     end
--     self:Stop()
--   end)
--   if Platform.console and not Platform.switch then
--     RemoteCompileRequestShaders()
--   end
-- end
--[[ function luadebugger:Stop(disabledPrint)
  if not self.started then
    if not disabledPrint then
      h_print("Not currently active!")
    end
    return
  end
  DebuggerDone()
  self.handle_to_obj = {}
  self.obj_to_handle = {}
  self.server:close()
  if not disabledPrint then
    h_print("Deactivated.")
  end
  local thread = self.update_thread
  self.update_thread = false
  self.started = false
  g_LuaDebugger = false
  UpdateThreadDebugHook()
  DeleteThread(thread, true)
end ]]
g_LuaDebugger = rawget(_G, "g_LuaDebugger") or false
--[[ function SetupRemoteDebugger(ip, srcRootPath, projectFolder)
  config.Haerald = config.Haerald or {}
  local projectPath = srcRootPath .. "\\" .. projectFolder
  h_print("Setting up for remote debugging...")
  h_print("Source  root: " .. srcRootPath)
  h_print("Project root: " .. projectPath)
  h_print("Host ip: " .. ip)
  config.Haerald.RemoteRoot = srcRootPath
  config.Haerald.ProjectFolder = projectFolder
  config.Haerald.ProjectAssetsPath = projectPath .. "Assets"
  config.Haerald.UploadPartSize = 2097152
  config.Haerald.ip = ip
  local platform = GetDebuggeePlatform()
  local shader_config = {}
  shader_config.ListFilePath = string.format("%s\\BuildCache\\%s\\ShaderListRemote.txt", config.Haerald.ProjectAssetsPath, platform)
  shader_config.ShaderCachePath = string.format("%s\\BuildCache\\%s\\ShaderCacheRemote", config.Haerald.ProjectAssetsPath, platform)
  shader_config.BuildTool = string.format("%s\\%s\\Build.bat", srcRootPath, projectFolder)
  shader_config.BuildArgs = "ShaderCacheRemote-" .. platform .. " --err_msg_limit=false"
  config.Haerald.CompileShaders = shader_config
  config.Haerald.PathRemapping = {
    Lua = projectPath .. "\\Lua",
    Data = projectPath .. "\\Data",
    Dlc = projectPath .. "\\Dlc",
    CommonLua = srcRootPath .. "\\CommonLua",
    Swarm = srcRootPath .. "\\Swarm",
    Tools = srcRootPath .. "\\Tools",
    ShaderCache = shader_config.ShaderCachePath,
    Shaders = srcRootPath .. "\\HR\\Shaders"
  }
end ]]
function StartDebugger()
  if g_LuaDebugger and not g_LuaDebugger.started then
    g_LuaDebugger = false
  end
  if not g_LuaDebugger then
    if Platform.console then
      config.Haerald = config.Haerald or {}
      SetupRemoteDebugger(config.Haerald and config.Haerald.ip or "localhost", config.Haerald.RemoteRoot or "", config.Haerald.ProjectFolder or "")
    end
    g_LuaDebugger = luadebugger:new()
    g_LuaDebugger:Start()
  end
end
function StopDebugger()
  if g_LuaDebugger then
    g_LuaDebugger:Stop()
    g_LuaDebugger = false
  end
end
function _G.startdebugger(co, break_offset)
  StartDebugger()
  if g_LuaDebugger then
    DebuggerEnableHook(true)
    g_LuaDebugger:Break(co, break_offset)
  end
end
function _G.openindebugger(file, line, status_text)
  StartDebugger()
  if g_LuaDebugger then
    g_LuaDebugger:BreakInFile(file, line, status_text)
  end
end
function _G.openineditor(file, line)
  StartDebugger()
  if g_LuaDebugger then
    g_LuaDebugger:OpenFile(file, line)
  end
end
--[[ function OnMsg.ReloadLua()
  DebuggerEnableHook(false)
end
function OnMsg.ClassesBuilt()
  DebuggerEnableHook(true)
end ]]
function _G.bp(...)
  if select("#", ...) == 0 or select(1, ...) then
    StartDebugger()
    DebuggerEnableHook(true)
    if g_LuaDebugger then
      local break_offset = select(2, ...)
      g_LuaDebugger:Break(nil, break_offset)
    end
  end
end
function hookBreakLuaDebugger()
  if g_LuaDebugger then
    g_LuaDebugger:Break()
  end
end
function GetDebuggeePlatform()
  if Platform.pc then
    return "win32"
  elseif Platform.osx then
    return "osx"
  elseif Platform.linux then
    return "linux"
  elseif Platform.ios then
    return "ios"
  elseif Platform.ps4 then
    return "ps4"
  elseif Platform.ps5 then
    return "ps5"
  elseif Platform.xbox_one or Platform.xbox_one_x then
    return "xbox_one"
  elseif Platform.xbox_series_x or Platform.xbox_series_s then
    return "xbox_series"
  elseif Platform.switch then
    return "switch"
  else
    return "unknown"
  end
end
function RemoteCompileRequestShaders()
  local list = RemoteCompileGetShadersList()
  if g_LuaDebugger and list and 0 < #list then
    g_LuaDebugger:CompileShaders(list)
  end
end
function OpenFileLineInHaerald(file, line)
  StartDebugger()
  if g_LuaDebugger then
    g_LuaDebugger:OpenFile(file, line - 1)
  end
end