{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Endian.Unsafe (
SDL3.Sys.Bindgen.Endian.Unsafe.sDL_SwapFloat,
)
where
import Prelude (IO, fmap)
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/SDL_endian.h>"
, "float hs_bindgen_0b945d9b61dbd23c ("
, " float arg1"
, ")"
, "{"
, " return (SDL_SwapFloat)(arg1);"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_0b945d9b61dbd23c"
hs_bindgen_0b945d9b61dbd23c_base
:: BG.CFloat
-> IO BG.CFloat
hs_bindgen_0b945d9b61dbd23c
:: BG.CFloat
-> IO BG.CFloat
hs_bindgen_0b945d9b61dbd23c :: CFloat -> IO CFloat
hs_bindgen_0b945d9b61dbd23c =
\CFloat
x0 ->
(CFloat -> CFloat) -> IO CFloat -> IO CFloat
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CFloat -> CFloat
FFIType CFloat -> CFloat
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (CFloat -> IO CFloat
hs_bindgen_0b945d9b61dbd23c_base (CFloat -> FFIType CFloat
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CFloat
x0))
sDL_SwapFloat
:: BG.CFloat
-> IO BG.CFloat
sDL_SwapFloat :: CFloat -> IO CFloat
sDL_SwapFloat = CFloat -> IO CFloat
hs_bindgen_0b945d9b61dbd23c