{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.AudioShims.FunPtr (
SDL3.Sys.Bindgen.AudioShims.FunPtr.lithon_SDL_AUDIO_FRAMESIZE,
SDL3.Sys.Bindgen.AudioShims.FunPtr.lithon_SDL_DEFINE_AUDIO_FORMAT,
)
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.Audio qualified
import SDL3.Sys.Bindgen.Stdinc 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_audio_shims.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.AudioShims_get_lithon_SDL_AUDIO_FRAMESIZE */"
, "__attribute__ ((const))"
, "signed int (*hs_bindgen_3cb9c5cf09b44f74 (void)) ("
, " SDL_AudioSpec const *arg1"
, ")"
, "{"
, " return &lithon_SDL_AUDIO_FRAMESIZE;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.AudioShims_get_lithon_SDL_DEFINE_AUDIO_FORMAT */"
, "__attribute__ ((const))"
, "SDL_AudioFormat (*hs_bindgen_009c1c5649507734 (void)) ("
, " _Bool arg1,"
, " _Bool arg2,"
, " _Bool arg3,"
, " Uint8 arg4"
, ")"
, "{"
, " return &lithon_SDL_DEFINE_AUDIO_FORMAT;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_3cb9c5cf09b44f74"
hs_bindgen_3cb9c5cf09b44f74_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_3cb9c5cf09b44f74
:: IO (BG.FunPtr (PtrConst.PtrConst SDL3.Sys.Bindgen.Audio.SDL_AudioSpec -> IO BG.CInt))
hs_bindgen_3cb9c5cf09b44f74 :: IO (FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
hs_bindgen_3cb9c5cf09b44f74 =
(FunPtr Void -> FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
-> IO (FunPtr Void)
-> IO (FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
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 SDL_AudioSpec -> IO CInt)
FFIType (FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
-> FunPtr (PtrConst SDL_AudioSpec -> IO CInt)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_3cb9c5cf09b44f74_base
{-# NOINLINE lithon_SDL_AUDIO_FRAMESIZE #-}
lithon_SDL_AUDIO_FRAMESIZE
:: BG.FunPtr (PtrConst.PtrConst SDL3.Sys.Bindgen.Audio.SDL_AudioSpec -> IO BG.CInt)
lithon_SDL_AUDIO_FRAMESIZE :: FunPtr (PtrConst SDL_AudioSpec -> IO CInt)
lithon_SDL_AUDIO_FRAMESIZE =
IO (FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
-> FunPtr (PtrConst SDL_AudioSpec -> IO CInt)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst SDL_AudioSpec -> IO CInt))
hs_bindgen_3cb9c5cf09b44f74
foreign import ccall unsafe "hs_bindgen_009c1c5649507734"
hs_bindgen_009c1c5649507734_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_009c1c5649507734
:: IO
( BG.FunPtr
( BG.CBool
-> BG.CBool
-> BG.CBool
-> SDL3.Sys.Bindgen.Stdinc.Uint8
-> IO SDL3.Sys.Bindgen.Audio.SDL_AudioFormat
)
)
hs_bindgen_009c1c5649507734 :: IO
(FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
hs_bindgen_009c1c5649507734 =
(FunPtr Void
-> FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
-> IO (FunPtr Void)
-> IO
(FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
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 (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat)
FFIType
(FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
-> FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_009c1c5649507734_base
{-# NOINLINE lithon_SDL_DEFINE_AUDIO_FORMAT #-}
lithon_SDL_DEFINE_AUDIO_FORMAT
:: BG.FunPtr
( BG.CBool
-> BG.CBool
-> BG.CBool
-> SDL3.Sys.Bindgen.Stdinc.Uint8
-> IO SDL3.Sys.Bindgen.Audio.SDL_AudioFormat
)
lithon_SDL_DEFINE_AUDIO_FORMAT :: FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat)
lithon_SDL_DEFINE_AUDIO_FORMAT =
IO
(FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
-> FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat)
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr (CBool -> CBool -> CBool -> Uint8 -> IO SDL_AudioFormat))
hs_bindgen_009c1c5649507734