local is_window_setup = false

---Return the userdata's name from its metatable.
---
---Returns nil if the userdata doesn't have a metatable.
---@param val userdata
---@return string|nil
function udname(val)
    local tbl = debug.getmetatable(val)

    if tbl == nil then
        return nil
    end

    return tbl.__name
end

function dump(o)
    if type(o) == 'table' then
       local s = '{ '
       for k,v in pairs(o) do
          if type(k) ~= 'number' then k = '"'..k..'"' end
          s = s .. '['..k..'] = ' .. dump(v) .. ','
       end
       return s .. '} '
    else
       return tostring(o)
    end
 end
 

function on_init()
    local cube = world:request_asset("../assets/cube-texture-embedded.gltf") --[[@as GltfHandle]]
    print("Loaded textured cube (" .. udname(cube) .. ")")

    cube:wait_until_loaded()
    local scenes = cube:scenes()
    local cube_scene = scenes[1]

    local pos = Transform.from_translation(Vec3.new(0, 0, -8.0))

    local e = world:spawn(pos, cube_scene)
    print("spawned entity " .. tostring(e))
end

function on_first()
    if not is_window_setup then
        world:view(
            ---@param w Window
            function (w)
                if w.cursor_grab == CursorGrabMode.NONE then
                    w.cursor_grab = CursorGrabMode.LOCKED
                    w.cursor_visible = false
                    return w
                else
                    is_window_setup = true
                    print("Window setup")
                end
            end, Window
        )
    end

    ---@type EventReader
    local reader = world:read_event(DeviceEvent)

    ---@param ev DeviceEvent
    for ev in reader:read() do
        if ev.event.kind == DeviceEventKind.MOTION then
            local motion_ev = ev.event --[[@as DeviceEventMotion]]
            print("axis: " .. tostring(motion_ev.axis) .. " = " .. tostring(motion_ev.value))
        end
    end
end

--[[ function on_pre_update()
    print("Lua's pre-update function was called")
end ]]

function on_update()
    -- Although WorldTransform isn't used, I only want to
    -- modify entities with that component.
    local view = View.new(Transform, WorldTransform, Res(DeltaTime))
    local res = world:view_query(view)

    ---@param transform Transform
    ---@param _wt WorldTransform
    ---@param dt DeltaTime
    for entity, transform, _wt, dt in res:iter() do
        transform:translate(0, 0.15 * dt, 0)
        entity:update(transform)
    end

    local changed_view = View.new(Changed(Transform))
    local changed_res = world:view_query(changed_view)
    ---@param transform Transform
    for _, transform in changed_res:iter() do
        print("Entity transform changed to: '" .. tostring(transform) .. "' on tick " .. tostring(world:get_tick()))
    end
end

--[[ function on_post_update()
    print("Lua's post-update function was called")
end

function on_last()
    print("Lua's last function was called")
end ]]