{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}

module SDL3.Sys.Bindgen.ErrorShims.Safe (
  SDL3.Sys.Bindgen.ErrorShims.Safe.lithon_SDL_SetError,
  SDL3.Sys.Bindgen.ErrorShims.Safe.lithon_SDL_Unsupported,
  SDL3.Sys.Bindgen.ErrorShims.Safe.lithon_SDL_InvalidParamError,
)
where

import Prelude (IO, fmap)

import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified

$( HsBindgen.Runtime.Support.CAPI.addCSource
     ( HsBindgen.Runtime.Support.CAPI.unlines
         [ "#define SDL_MAIN_HANDLED"
         , "#define SDL_SLOW_MEMCPY"
         , "#define SDL_SLOW_MEMMOVE"
         , "#define SDL_SLOW_MEMSET"
         , "#include <sdl3-bindgen-sys/SDL_error_shims.h>"
         , "_Bool hs_bindgen_c73a2f11222ce000 ("
         , "  char const *arg1"
         , ")"
         , "{"
         , "  return (lithon_SDL_SetError)(arg1);"
         , "}"
         , "_Bool hs_bindgen_a0235790ef732ce0 (void)"
         , "{"
         , "  return (lithon_SDL_Unsupported)();"
         , "}"
         , "_Bool hs_bindgen_ef91fbeac7b7bf79 ("
         , "  char const *arg1"
         , ")"
         , "{"
         , "  return (lithon_SDL_InvalidParamError)(arg1);"
         , "}"
         ]
     )
 )

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_SetError@
foreign import ccall safe "hs_bindgen_c73a2f11222ce000"
  hs_bindgen_c73a2f11222ce000_base
    :: BG.Ptr BG.Void
    -> IO BG.CBool

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_SetError@
hs_bindgen_c73a2f11222ce000
  :: PtrConst.PtrConst BG.CChar
  -> IO BG.CBool
hs_bindgen_c73a2f11222ce000 :: PtrConst CChar -> IO CBool
hs_bindgen_c73a2f11222ce000 =
  \PtrConst CChar
x0 ->
    (CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_c73a2f11222ce000_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))

-- | Set the SDL error message for the current thread.
--
--     A fixed-arity shim over the variadic SDL_SetError: @message@ becomes the error message verbatim. It is never parsed as a printf-style format string, so a percent sign in it needs no escaping.
--
--     Calling this function will replace any previous error message that was set. It always returns false, since SDL frequently uses false to signify a failing result.
--
--     [Returns]: false.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: SDL_ClearError, SDL_GetError
--
--     [C declaration]: @lithon_SDL_SetError@, defined at @sdl3-bindgen-sys\/SDL_error_shims.h 45:24@
lithon_SDL_SetError
  :: PtrConst.PtrConst BG.CChar
  -- ^
  --
  --           [@message@]: the error message, in UTF-8.
  -> IO BG.CBool
lithon_SDL_SetError :: PtrConst CChar -> IO CBool
lithon_SDL_SetError = PtrConst CChar -> IO CBool
hs_bindgen_c73a2f11222ce000

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_Unsupported@
foreign import ccall safe "hs_bindgen_a0235790ef732ce0"
  hs_bindgen_a0235790ef732ce0_base
    :: IO BG.CBool

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_Unsupported@
hs_bindgen_a0235790ef732ce0 :: IO BG.CBool
hs_bindgen_a0235790ef732ce0 :: IO CBool
hs_bindgen_a0235790ef732ce0 =
  (CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO CBool
hs_bindgen_a0235790ef732ce0_base

-- | Report an unsupported operation with SDL\'s standard error message.
--
--     The SDL_Unsupported macro as a function: it sets the error message to \"That operation is not supported\".
--
--     [Returns]: false.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: SDL_SetError
--
--     [C declaration]: @lithon_SDL_Unsupported@, defined at @sdl3-bindgen-sys\/SDL_error_shims.h 64:24@
lithon_SDL_Unsupported :: IO BG.CBool
lithon_SDL_Unsupported :: IO CBool
lithon_SDL_Unsupported = IO CBool
hs_bindgen_a0235790ef732ce0

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_InvalidParamError@
foreign import ccall safe "hs_bindgen_ef91fbeac7b7bf79"
  hs_bindgen_ef91fbeac7b7bf79_base
    :: BG.Ptr BG.Void
    -> IO BG.CBool

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_Safe_lithon_SDL_InvalidParamError@
hs_bindgen_ef91fbeac7b7bf79
  :: PtrConst.PtrConst BG.CChar
  -> IO BG.CBool
hs_bindgen_ef91fbeac7b7bf79 :: PtrConst CChar -> IO CBool
hs_bindgen_ef91fbeac7b7bf79 =
  \PtrConst CChar
x0 ->
    (CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_ef91fbeac7b7bf79_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))

-- | Report an invalid parameter with SDL\'s standard error message.
--
--     The SDL_InvalidParamError macro as a function: it sets the error message to \"Parameter \'name\' is invalid\", with the parameter\'s name in place of name.
--
--     [Returns]: false.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: SDL_SetError
--
--     [C declaration]: @lithon_SDL_InvalidParamError@, defined at @sdl3-bindgen-sys\/SDL_error_shims.h 84:24@
lithon_SDL_InvalidParamError
  :: PtrConst.PtrConst BG.CChar
  -- ^
  --
  --           [@param@]: the name of the invalid parameter, in UTF-8.
  -> IO BG.CBool
lithon_SDL_InvalidParamError :: PtrConst CChar -> IO CBool
lithon_SDL_InvalidParamError =
  PtrConst CChar -> IO CBool
hs_bindgen_ef91fbeac7b7bf79