{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Version.Unsafe (
SDL3.Sys.Bindgen.Version.Unsafe.sDL_GetVersion,
SDL3.Sys.Bindgen.Version.Unsafe.sDL_GetRevision,
)
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/SDL_version.h>"
, "signed int hs_bindgen_0ffc70e00585797e (void)"
, "{"
, " return (SDL_GetVersion)();"
, "}"
, "char const *hs_bindgen_204f064542493b41 (void)"
, "{"
, " return (SDL_GetRevision)();"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_0ffc70e00585797e"
hs_bindgen_0ffc70e00585797e_base
:: IO BG.CInt
hs_bindgen_0ffc70e00585797e :: IO BG.CInt
hs_bindgen_0ffc70e00585797e :: IO CInt
hs_bindgen_0ffc70e00585797e =
(CInt -> CInt) -> IO CInt -> IO CInt
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CInt -> CInt
FFIType CInt -> CInt
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO CInt
hs_bindgen_0ffc70e00585797e_base
sDL_GetVersion :: IO BG.CInt
sDL_GetVersion :: IO CInt
sDL_GetVersion = IO CInt
hs_bindgen_0ffc70e00585797e
foreign import ccall unsafe "hs_bindgen_204f064542493b41"
hs_bindgen_204f064542493b41_base
:: IO (BG.Ptr BG.Void)
hs_bindgen_204f064542493b41 :: IO (PtrConst.PtrConst BG.CChar)
hs_bindgen_204f064542493b41 :: IO (PtrConst CChar)
hs_bindgen_204f064542493b41 =
(Ptr Void -> PtrConst CChar)
-> IO (Ptr Void) -> IO (PtrConst CChar)
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Ptr Void -> PtrConst CChar
FFIType (PtrConst CChar) -> PtrConst CChar
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (Ptr Void)
hs_bindgen_204f064542493b41_base
sDL_GetRevision :: IO (PtrConst.PtrConst BG.CChar)
sDL_GetRevision :: IO (PtrConst CChar)
sDL_GetRevision = IO (PtrConst CChar)
hs_bindgen_204f064542493b41