{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Bits.FunPtr (
SDL3.Sys.Bindgen.Bits.FunPtr.sDL_MostSignificantBitIndex32,
SDL3.Sys.Bindgen.Bits.FunPtr.sDL_HasExactlyOneBitSet32,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI 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/SDL_bits.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Bits_get_SDL_MostSignificantBitIndex32 */"
, "__attribute__ ((const))"
, "signed int (*hs_bindgen_ef0d609239e2f97c (void)) ("
, " Uint32 arg1"
, ")"
, "{"
, " return &SDL_MostSignificantBitIndex32;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Bits_get_SDL_HasExactlyOneBitSet32 */"
, "__attribute__ ((const))"
, "_Bool (*hs_bindgen_424cf674227955df (void)) ("
, " Uint32 arg1"
, ")"
, "{"
, " return &SDL_HasExactlyOneBitSet32;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_ef0d609239e2f97c"
hs_bindgen_ef0d609239e2f97c_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_ef0d609239e2f97c :: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CInt))
hs_bindgen_ef0d609239e2f97c :: IO (FunPtr (Uint32 -> IO CInt))
hs_bindgen_ef0d609239e2f97c =
(FunPtr Void -> FunPtr (Uint32 -> IO CInt))
-> IO (FunPtr Void) -> IO (FunPtr (Uint32 -> 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 (Uint32 -> IO CInt)
FFIType (FunPtr (Uint32 -> IO CInt)) -> FunPtr (Uint32 -> IO CInt)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_ef0d609239e2f97c_base
{-# NOINLINE sDL_MostSignificantBitIndex32 #-}
sDL_MostSignificantBitIndex32 :: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CInt)
sDL_MostSignificantBitIndex32 :: FunPtr (Uint32 -> IO CInt)
sDL_MostSignificantBitIndex32 =
IO (FunPtr (Uint32 -> IO CInt)) -> FunPtr (Uint32 -> IO CInt)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint32 -> IO CInt))
hs_bindgen_ef0d609239e2f97c
foreign import ccall unsafe "hs_bindgen_424cf674227955df"
hs_bindgen_424cf674227955df_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_424cf674227955df :: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CBool))
hs_bindgen_424cf674227955df :: IO (FunPtr (Uint32 -> IO CBool))
hs_bindgen_424cf674227955df =
(FunPtr Void -> FunPtr (Uint32 -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (Uint32 -> 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 (Uint32 -> IO CBool)
FFIType (FunPtr (Uint32 -> IO CBool))
-> FunPtr (Uint32 -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_424cf674227955df_base
{-# NOINLINE sDL_HasExactlyOneBitSet32 #-}
sDL_HasExactlyOneBitSet32 :: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint32 -> IO BG.CBool)
sDL_HasExactlyOneBitSet32 :: FunPtr (Uint32 -> IO CBool)
sDL_HasExactlyOneBitSet32 =
IO (FunPtr (Uint32 -> IO CBool)) -> FunPtr (Uint32 -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint32 -> IO CBool))
hs_bindgen_424cf674227955df