{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Log.FunPtr (
SDL3.Sys.Bindgen.Log.FunPtr.sDL_SetLogPriorities,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_SetLogPriority,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_GetLogPriority,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_ResetLogPriorities,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_SetLogPriorityPrefix,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_GetDefaultLogOutputFunction,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_GetLogOutputFunction,
SDL3.Sys.Bindgen.Log.FunPtr.sDL_SetLogOutputFunction,
)
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
import SDL3.Sys.Bindgen.Log
$( 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/SDL_log.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_SetLogPriorities */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_53f49172bb06fac5 (void)) ("
, " SDL_LogPriority arg1"
, ")"
, "{"
, " return &SDL_SetLogPriorities;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_SetLogPriority */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_efaec8fe88879163 (void)) ("
, " signed int arg1,"
, " SDL_LogPriority arg2"
, ")"
, "{"
, " return &SDL_SetLogPriority;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_GetLogPriority */"
, "__attribute__ ((const))"
, "SDL_LogPriority (*hs_bindgen_0a5edd280b63c817 (void)) ("
, " signed int arg1"
, ")"
, "{"
, " return &SDL_GetLogPriority;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_ResetLogPriorities */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_a50e52f5fe769c57 (void)) (void)"
, "{"
, " return &SDL_ResetLogPriorities;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_SetLogPriorityPrefix */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_69bb7de79ceb0d36 (void)) ("
, " SDL_LogPriority arg1,"
, " char const *arg2"
, ")"
, "{"
, " return &SDL_SetLogPriorityPrefix;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_GetDefaultLogOutputFunction */"
, "__attribute__ ((const))"
, "SDL_LogOutputFunction (*hs_bindgen_48e509121cb8d650 (void)) (void)"
, "{"
, " return &SDL_GetDefaultLogOutputFunction;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_GetLogOutputFunction */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_ae4995884c29f0d4 (void)) ("
, " SDL_LogOutputFunction *arg1,"
, " void **arg2"
, ")"
, "{"
, " return &SDL_GetLogOutputFunction;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Log_get_SDL_SetLogOutputFunction */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_b53e5cacb1899dae (void)) ("
, " SDL_LogOutputFunction arg1,"
, " void *arg2"
, ")"
, "{"
, " return &SDL_SetLogOutputFunction;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_53f49172bb06fac5"
hs_bindgen_53f49172bb06fac5_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_53f49172bb06fac5 :: IO (BG.FunPtr (SDL_LogPriority -> IO ()))
hs_bindgen_53f49172bb06fac5 :: IO (FunPtr (SDL_LogPriority -> IO ()))
hs_bindgen_53f49172bb06fac5 =
(FunPtr Void -> FunPtr (SDL_LogPriority -> IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (SDL_LogPriority -> IO ()))
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 (SDL_LogPriority -> IO ())
FFIType (FunPtr (SDL_LogPriority -> IO ()))
-> FunPtr (SDL_LogPriority -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_53f49172bb06fac5_base
{-# NOINLINE sDL_SetLogPriorities #-}
sDL_SetLogPriorities :: BG.FunPtr (SDL_LogPriority -> IO ())
sDL_SetLogPriorities :: FunPtr (SDL_LogPriority -> IO ())
sDL_SetLogPriorities =
IO (FunPtr (SDL_LogPriority -> IO ()))
-> FunPtr (SDL_LogPriority -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_LogPriority -> IO ()))
hs_bindgen_53f49172bb06fac5
foreign import ccall unsafe "hs_bindgen_efaec8fe88879163"
hs_bindgen_efaec8fe88879163_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_efaec8fe88879163 :: IO (BG.FunPtr (BG.CInt -> SDL_LogPriority -> IO ()))
hs_bindgen_efaec8fe88879163 :: IO (FunPtr (CInt -> SDL_LogPriority -> IO ()))
hs_bindgen_efaec8fe88879163 =
(FunPtr Void -> FunPtr (CInt -> SDL_LogPriority -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (CInt -> SDL_LogPriority -> IO ()))
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 (CInt -> SDL_LogPriority -> IO ())
FFIType (FunPtr (CInt -> SDL_LogPriority -> IO ()))
-> FunPtr (CInt -> SDL_LogPriority -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_efaec8fe88879163_base
{-# NOINLINE sDL_SetLogPriority #-}
sDL_SetLogPriority :: BG.FunPtr (BG.CInt -> SDL_LogPriority -> IO ())
sDL_SetLogPriority :: FunPtr (CInt -> SDL_LogPriority -> IO ())
sDL_SetLogPriority =
IO (FunPtr (CInt -> SDL_LogPriority -> IO ()))
-> FunPtr (CInt -> SDL_LogPriority -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> SDL_LogPriority -> IO ()))
hs_bindgen_efaec8fe88879163
foreign import ccall unsafe "hs_bindgen_0a5edd280b63c817"
hs_bindgen_0a5edd280b63c817_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_0a5edd280b63c817 :: IO (BG.FunPtr (BG.CInt -> IO SDL_LogPriority))
hs_bindgen_0a5edd280b63c817 :: IO (FunPtr (CInt -> IO SDL_LogPriority))
hs_bindgen_0a5edd280b63c817 =
(FunPtr Void -> FunPtr (CInt -> IO SDL_LogPriority))
-> IO (FunPtr Void) -> IO (FunPtr (CInt -> IO SDL_LogPriority))
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 (CInt -> IO SDL_LogPriority)
FFIType (FunPtr (CInt -> IO SDL_LogPriority))
-> FunPtr (CInt -> IO SDL_LogPriority)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_0a5edd280b63c817_base
{-# NOINLINE sDL_GetLogPriority #-}
sDL_GetLogPriority :: BG.FunPtr (BG.CInt -> IO SDL_LogPriority)
sDL_GetLogPriority :: FunPtr (CInt -> IO SDL_LogPriority)
sDL_GetLogPriority =
IO (FunPtr (CInt -> IO SDL_LogPriority))
-> FunPtr (CInt -> IO SDL_LogPriority)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (CInt -> IO SDL_LogPriority))
hs_bindgen_0a5edd280b63c817
foreign import ccall unsafe "hs_bindgen_a50e52f5fe769c57"
hs_bindgen_a50e52f5fe769c57_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a50e52f5fe769c57 :: IO (BG.FunPtr (IO ()))
hs_bindgen_a50e52f5fe769c57 :: IO (FunPtr (IO ()))
hs_bindgen_a50e52f5fe769c57 =
(FunPtr Void -> FunPtr (IO ()))
-> IO (FunPtr Void) -> IO (FunPtr (IO ()))
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 ())
FFIType (FunPtr (IO ())) -> FunPtr (IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a50e52f5fe769c57_base
{-# NOINLINE sDL_ResetLogPriorities #-}
sDL_ResetLogPriorities :: BG.FunPtr (IO ())
sDL_ResetLogPriorities :: FunPtr (IO ())
sDL_ResetLogPriorities =
IO (FunPtr (IO ())) -> FunPtr (IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO ()))
hs_bindgen_a50e52f5fe769c57
foreign import ccall unsafe "hs_bindgen_69bb7de79ceb0d36"
hs_bindgen_69bb7de79ceb0d36_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_69bb7de79ceb0d36
:: IO (BG.FunPtr (SDL_LogPriority -> PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_69bb7de79ceb0d36 :: IO (FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool))
hs_bindgen_69bb7de79ceb0d36 =
(FunPtr Void
-> FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_LogPriority -> 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 (SDL_LogPriority -> PtrConst CChar -> IO CBool)
FFIType (FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool))
-> FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_69bb7de79ceb0d36_base
{-# NOINLINE sDL_SetLogPriorityPrefix #-}
sDL_SetLogPriorityPrefix :: BG.FunPtr (SDL_LogPriority -> PtrConst.PtrConst BG.CChar -> IO BG.CBool)
sDL_SetLogPriorityPrefix :: FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool)
sDL_SetLogPriorityPrefix =
IO (FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool))
-> FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_LogPriority -> PtrConst CChar -> IO CBool))
hs_bindgen_69bb7de79ceb0d36
foreign import ccall unsafe "hs_bindgen_48e509121cb8d650"
hs_bindgen_48e509121cb8d650_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_48e509121cb8d650 :: IO (BG.FunPtr (IO SDL_LogOutputFunction))
hs_bindgen_48e509121cb8d650 :: IO (FunPtr (IO SDL_LogOutputFunction))
hs_bindgen_48e509121cb8d650 =
(FunPtr Void -> FunPtr (IO SDL_LogOutputFunction))
-> IO (FunPtr Void) -> IO (FunPtr (IO SDL_LogOutputFunction))
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 SDL_LogOutputFunction)
FFIType (FunPtr (IO SDL_LogOutputFunction))
-> FunPtr (IO SDL_LogOutputFunction)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_48e509121cb8d650_base
{-# NOINLINE sDL_GetDefaultLogOutputFunction #-}
sDL_GetDefaultLogOutputFunction :: BG.FunPtr (IO SDL_LogOutputFunction)
sDL_GetDefaultLogOutputFunction :: FunPtr (IO SDL_LogOutputFunction)
sDL_GetDefaultLogOutputFunction =
IO (FunPtr (IO SDL_LogOutputFunction))
-> FunPtr (IO SDL_LogOutputFunction)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO SDL_LogOutputFunction))
hs_bindgen_48e509121cb8d650
foreign import ccall unsafe "hs_bindgen_ae4995884c29f0d4"
hs_bindgen_ae4995884c29f0d4_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_ae4995884c29f0d4
:: IO (BG.FunPtr (BG.Ptr SDL_LogOutputFunction -> BG.Ptr (BG.Ptr BG.Void) -> IO ()))
hs_bindgen_ae4995884c29f0d4 :: IO (FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
hs_bindgen_ae4995884c29f0d4 =
(FunPtr Void
-> FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
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 (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ())
FFIType
(FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
-> FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_ae4995884c29f0d4_base
{-# NOINLINE sDL_GetLogOutputFunction #-}
sDL_GetLogOutputFunction
:: BG.FunPtr (BG.Ptr SDL_LogOutputFunction -> BG.Ptr (BG.Ptr BG.Void) -> IO ())
sDL_GetLogOutputFunction :: FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ())
sDL_GetLogOutputFunction =
IO (FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
-> FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Ptr SDL_LogOutputFunction -> Ptr (Ptr Void) -> IO ()))
hs_bindgen_ae4995884c29f0d4
foreign import ccall unsafe "hs_bindgen_b53e5cacb1899dae"
hs_bindgen_b53e5cacb1899dae_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_b53e5cacb1899dae :: IO (BG.FunPtr (SDL_LogOutputFunction -> BG.Ptr BG.Void -> IO ()))
hs_bindgen_b53e5cacb1899dae :: IO (FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
hs_bindgen_b53e5cacb1899dae =
(FunPtr Void
-> FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
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 (SDL_LogOutputFunction -> Ptr Void -> IO ())
FFIType (FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
-> FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_b53e5cacb1899dae_base
{-# NOINLINE sDL_SetLogOutputFunction #-}
sDL_SetLogOutputFunction :: BG.FunPtr (SDL_LogOutputFunction -> BG.Ptr BG.Void -> IO ())
sDL_SetLogOutputFunction :: FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ())
sDL_SetLogOutputFunction =
IO (FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
-> FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_LogOutputFunction -> Ptr Void -> IO ()))
hs_bindgen_b53e5cacb1899dae