{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.ErrorShims.FunPtr (
SDL3.Sys.Bindgen.ErrorShims.FunPtr.lithon_SDL_SetError,
SDL3.Sys.Bindgen.ErrorShims.FunPtr.lithon_SDL_Unsupported,
SDL3.Sys.Bindgen.ErrorShims.FunPtr.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>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_get_lithon_SDL_SetError */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_a66f7538e1b5fb4e (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &lithon_SDL_SetError;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_get_lithon_SDL_Unsupported */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_b1a48c819dd22277 (void)) (void)"
, "{"
, " return &lithon_SDL_Unsupported;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.ErrorShims_get_lithon_SDL_InvalidParamError */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_b87b43a376c75268 (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &lithon_SDL_InvalidParamError;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_a66f7538e1b5fb4e"
hs_bindgen_a66f7538e1b5fb4e_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a66f7538e1b5fb4e :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_a66f7538e1b5fb4e :: IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_a66f7538e1b5fb4e =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool)
FFIType (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a66f7538e1b5fb4e_base
{-# NOINLINE lithon_SDL_SetError #-}
lithon_SDL_SetError :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool)
lithon_SDL_SetError :: FunPtr (PtrConst CChar -> IO CBool)
lithon_SDL_SetError =
IO (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_a66f7538e1b5fb4e
foreign import ccall unsafe "hs_bindgen_b1a48c819dd22277"
hs_bindgen_b1a48c819dd22277_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_b1a48c819dd22277 :: IO (BG.FunPtr (IO BG.CBool))
hs_bindgen_b1a48c819dd22277 :: IO (FunPtr (IO CBool))
hs_bindgen_b1a48c819dd22277 =
(FunPtr Void -> FunPtr (IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (IO CBool)
FFIType (FunPtr (IO CBool)) -> FunPtr (IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_b1a48c819dd22277_base
{-# NOINLINE lithon_SDL_Unsupported #-}
lithon_SDL_Unsupported :: BG.FunPtr (IO BG.CBool)
lithon_SDL_Unsupported :: FunPtr (IO CBool)
lithon_SDL_Unsupported =
IO (FunPtr (IO CBool)) -> FunPtr (IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO CBool))
hs_bindgen_b1a48c819dd22277
foreign import ccall unsafe "hs_bindgen_b87b43a376c75268"
hs_bindgen_b87b43a376c75268_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_b87b43a376c75268 :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_b87b43a376c75268 :: IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_b87b43a376c75268 =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> IO CBool))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool)
FFIType (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_b87b43a376c75268_base
{-# NOINLINE lithon_SDL_InvalidParamError #-}
lithon_SDL_InvalidParamError :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool)
lithon_SDL_InvalidParamError :: FunPtr (PtrConst CChar -> IO CBool)
lithon_SDL_InvalidParamError =
IO (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_b87b43a376c75268