PowerExample.hs

module Main where

import Control.Monad
import Foreign.Marshal.Alloc (alloca)
import Foreign.Storable (peek)
import SDL3
import System.Exit (exitFailure)

-- Check power state
main :: IO ()
main = do
  -- Check compiled version
  sdlLog $ "Compiled SDL Version: " ++ show sdlVersion
  when (sdlVersionAtLeast 3 3 0) $
    sdlLog "Compiled with at least SDL 3.3.0"

  -- Get linked version
  linkedVersion <- sdlGetVersion
  sdlLog $ "Linked SDL Version: " ++ show linkedVersion

  -- Get revision
  revision <- sdlGetRevision
  sdlLog $ "SDL Revision: " ++ revision

  -- Set a hint before initialization
  sdlLog "Setting hint SDL_VIDEO_ALLOW_SCREENSAVER to enable screensaver..."
  success <- sdlSetHint sdlHintVideoAllowScreensaver "1"
  if success
    then sdlLog "Hint set successfully."
    else do
      sdlLog "Failed to set hint!"
      err <- sdlGetError
      sdlLog $ "Error: " ++ err

  -- Query the hint
  mHintValue <- sdlGetHint sdlHintVideoAllowScreensaver
  sdlLog $ "SDL_VIDEO_ALLOW_SCREENSAVER value: " ++ maybe "Not set" id mHintValue

  -- Initialize SDL with video and events subsystems
  initSuccess <- sdlInit [SDL_INIT_VIDEO]
  unless initSuccess $ do
    sdlLog "Failed to initialize SDL!"
    exitFailure

  -- Check initialized subsystems
  initializedSystems <- sdlWasInit []
  sdlLog "Initialized subsystems:"
  mapM_ printSubsystem initializedSystems

  sdlLog "Checking power state..."
  alloca $ \secondsPtr ->
    alloca $ \percentPtr -> do
      mState <- sdlGetPowerInfo (Just secondsPtr) (Just percentPtr)
      case mState of
        Nothing -> do
          sdlLog "Failed to get power info!"
          err <- sdlGetError
          sdlLog $ "Error: " ++ err
        Just state -> do
          seconds <- peek secondsPtr
          percent <- peek percentPtr
          sdlLog $ "Power State: " ++ show state
          sdlLog $ "Seconds remaining: " ++ (if seconds == -1 then "Unknown" else show seconds)
          sdlLog $ "Percent remaining: " ++ (if percent == -1 then "Unknown" else show percent ++ "%")

  sdlQuit

-- Helper function to print subsystem names
printSubsystem :: SDLInitFlags -> IO ()
printSubsystem flag =
  sdlLog $
    "  - " ++ case flag of
      SDL_INIT_AUDIO -> "Audio"
      SDL_INIT_VIDEO -> "Video"
      SDL_INIT_JOYSTICK -> "Joystick"
      SDL_INIT_HAPTIC -> "Haptic"
      SDL_INIT_GAMEPAD -> "Gamepad"
      SDL_INIT_EVENTS -> "Events"
      SDL_INIT_SENSOR -> "Sensor"
      SDL_INIT_CAMERA -> "Camera"
      _ -> "Unknown subsystem"