gen1recomp/src/core/VSync.lua

local VSync = {}

-- Adaptive (swap interval -1) is parked.  EGL/KMSDRM reject it, and offering
-- it on a mixed matrix sent PresentProbe into fail-closed after one OPTIONS
-- step.  Saved "adaptive" keys fold to ON.  Restore by putting "adaptive"
-- back on MODES and dropping the fold in normalize().
VSync.MODES = { "on", "off" }

local INTERVAL = { on = 1, off = 0, adaptive = -1 }
local LABELS = { on = "ON", off = "OFF", adaptive = "ADAPTIVE" }

local boot = nil
-- `wanted` is what the user/options asked for.  `live` is what the driver
-- reports after setVSync (may be "off" under vblank_mode=0 / Gamescope even
-- when we requested on -- PresentProbe still tries a real wait on native X11).
local wanted = nil
local live = nil

local function fromInterval(interval)
  interval = tonumber(interval)
  if not interval then return nil end
  -- Parked adaptive: a driver still reporting -1 is treated as ON.
  if interval < 0 then return "on" end
  if interval == 0 then return "off" end
  return "on"
end

local function query()
  if not (love and love.window and love.window.getVSync) then return nil end
  local ok, interval = pcall(love.window.getVSync)
  if not ok then return nil end
  return fromInterval(interval)
end

function VSync.default()
  if not boot then boot = query() or "on" end
  return boot
end

function VSync.normalize(mode)
  if mode == "adaptive" then return "on" end
  for _, m in ipairs(VSync.MODES) do
    if mode == m then return m end
  end
  return VSync.default()
end

function VSync.label(mode)
  return LABELS[VSync.normalize(mode)] or LABELS.on
end

function VSync.cycle(mode, dir)
  local cur = 1
  local normalized = VSync.normalize(mode)
  for i, m in ipairs(VSync.MODES) do
    if m == normalized then cur = i break end
  end
  return VSync.MODES[(cur - 1 + (dir or 1)) % #VSync.MODES + 1]
end

function VSync.apply(mode)
  mode = VSync.normalize(mode)
  wanted = mode
  live = mode
  if not (love and love.window and love.window.setVSync) then return mode end
  local ok = pcall(love.window.setVSync, INTERVAL[mode])
  if not ok and mode == "adaptive" then
    pcall(love.window.setVSync, INTERVAL.on)
    live = "on"
    wanted = "on"
  end
  local got = query()
  if got then live = got end
  -- Linux present-sync remeasures whether the swap interval actually gates
  -- presents after the driver call above (Gamescope/XWayland no-ops).
  local okLPS, PS = pcall(require, "src.core.PresentSync")
  if okLPS and PS.reprobe then pcall(PS.reprobe) end
  return mode
end

function VSync.applyOptions(opts)
  local mode = VSync.apply(opts and opts.vsync)
  if type(opts) == "table" and opts.vsync == "adaptive" then
    opts.vsync = mode
  end
  return mode
end

-- Drop the live swap interval without changing wanted and without re-entering
-- PresentSync.reprobe.  Used by Android/iOS/UWP composited-GLES fail-closed:
-- FrameCap cannot keep the swapchain engaged while eglSwapInterval stays 1,
-- so vsync never locks unless the driver wait is silenced for the software path.
function VSync.silenceDriver()
  if love and love.window and love.window.setVSync then
    pcall(love.window.setVSync, 0)
  end
  live = "off"
end

-- True when the user asked for sync (on/adaptive), even if the driver
-- reported the interval as 0 afterwards.
function VSync.isOn()
  if wanted then return wanted ~= "off" end
  if not live then live = query() or VSync.default() end
  return live ~= "off"
end

-- What getVSync currently reports (may disagree with isOn under mesa quirks).
function VSync.effective()
  if live then return live end
  return query() or VSync.default()
end

function VSync.reset()
  boot, wanted, live = nil, nil, nil
end

return VSync