{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Guid.FunPtr (
SDL3.Sys.Bindgen.Guid.FunPtr.sDL_GUIDToString,
SDL3.Sys.Bindgen.Guid.FunPtr.sDL_StringToGUID,
)
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.Guid
$( 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_guid.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Guid_get_SDL_GUIDToString */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_b89f8bb369b8de4d (void)) ("
, " SDL_GUID arg1,"
, " char *arg2,"
, " signed int arg3"
, ")"
, "{"
, " return &SDL_GUIDToString;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Guid_get_SDL_StringToGUID */"
, "__attribute__ ((const))"
, "SDL_GUID (*hs_bindgen_0ce736a26b941e7b (void)) ("
, " char const *arg1"
, ")"
, "{"
, " return &SDL_StringToGUID;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_b89f8bb369b8de4d"
hs_bindgen_b89f8bb369b8de4d_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_b89f8bb369b8de4d :: IO (BG.FunPtr (SDL_GUID -> BG.Ptr BG.CChar -> BG.CInt -> IO ()))
hs_bindgen_b89f8bb369b8de4d :: IO (FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ()))
hs_bindgen_b89f8bb369b8de4d =
(FunPtr Void -> FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ()))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_GUID -> Ptr CChar -> CInt -> 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_GUID -> Ptr CChar -> CInt -> IO ())
FFIType (FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ()))
-> FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_b89f8bb369b8de4d_base
{-# NOINLINE sDL_GUIDToString #-}
sDL_GUIDToString :: BG.FunPtr (SDL_GUID -> BG.Ptr BG.CChar -> BG.CInt -> IO ())
sDL_GUIDToString :: FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ())
sDL_GUIDToString =
IO (FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ()))
-> FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_GUID -> Ptr CChar -> CInt -> IO ()))
hs_bindgen_b89f8bb369b8de4d
foreign import ccall unsafe "hs_bindgen_0ce736a26b941e7b"
hs_bindgen_0ce736a26b941e7b_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_0ce736a26b941e7b :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO SDL_GUID))
hs_bindgen_0ce736a26b941e7b :: IO (FunPtr (PtrConst CChar -> IO SDL_GUID))
hs_bindgen_0ce736a26b941e7b =
(FunPtr Void -> FunPtr (PtrConst CChar -> IO SDL_GUID))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> IO SDL_GUID))
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 CChar -> IO SDL_GUID)
FFIType (FunPtr (PtrConst CChar -> IO SDL_GUID))
-> FunPtr (PtrConst CChar -> IO SDL_GUID)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_0ce736a26b941e7b_base
{-# NOINLINE sDL_StringToGUID #-}
sDL_StringToGUID :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO SDL_GUID)
sDL_StringToGUID :: FunPtr (PtrConst CChar -> IO SDL_GUID)
sDL_StringToGUID =
IO (FunPtr (PtrConst CChar -> IO SDL_GUID))
-> FunPtr (PtrConst CChar -> IO SDL_GUID)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO SDL_GUID))
hs_bindgen_0ce736a26b941e7b