{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}

module SDL3.Sys.Bindgen.Loadso.Safe (
  SDL3.Sys.Bindgen.Loadso.Safe.sDL_LoadObject,
  SDL3.Sys.Bindgen.Loadso.Safe.sDL_LoadFunction,
  SDL3.Sys.Bindgen.Loadso.Safe.sDL_UnloadObject,
)
where

import Prelude (IO, fmap)

import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Loadso
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_loadso.h>"
         , "SDL_SharedObject *hs_bindgen_db107edc1c41c909 ("
         , "  char const *arg1"
         , ")"
         , "{"
         , "  return (SDL_LoadObject)(arg1);"
         , "}"
         , "SDL_FunctionPointer hs_bindgen_47da86a71a34f8de ("
         , "  SDL_SharedObject *arg1,"
         , "  char const *arg2"
         , ")"
         , "{"
         , "  return (SDL_LoadFunction)(arg1, arg2);"
         , "}"
         , "void hs_bindgen_e548a8de357a59b9 ("
         , "  SDL_SharedObject *arg1"
         , ")"
         , "{"
         , "  (SDL_UnloadObject)(arg1);"
         , "}"
         ]
     )
 )

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_LoadObject@
foreign import ccall safe "hs_bindgen_db107edc1c41c909"
  hs_bindgen_db107edc1c41c909_base
    :: BG.Ptr BG.Void
    -> IO (BG.Ptr BG.Void)

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_LoadObject@
hs_bindgen_db107edc1c41c909
  :: PtrConst.PtrConst BG.CChar
  -> IO (BG.Ptr SDL_SharedObject)
hs_bindgen_db107edc1c41c909 :: PtrConst CChar -> IO (Ptr SDL_SharedObject)
hs_bindgen_db107edc1c41c909 =
  \PtrConst CChar
x0 ->
    (Ptr Void -> Ptr SDL_SharedObject)
-> IO (Ptr Void) -> IO (Ptr SDL_SharedObject)
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Ptr Void -> Ptr SDL_SharedObject
FFIType (Ptr SDL_SharedObject) -> Ptr SDL_SharedObject
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO (Ptr Void)
hs_bindgen_db107edc1c41c909_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))

-- | Dynamically load a shared object.
--
--     [Returns]: an opaque pointer to the object handle or NULL on failure; call SDL_GetError() for more information.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: 'sDL_LoadFunction', 'sDL_UnloadObject'
--
--     [C declaration]: @SDL_LoadObject@, defined at @SDL3\/SDL_loadso.h 93:48@
sDL_LoadObject
  :: PtrConst.PtrConst BG.CChar
  -- ^
  --
  --           [@sofile@]: a system-dependent name of the object file.
  -> IO (BG.Ptr SDL_SharedObject)
sDL_LoadObject :: PtrConst CChar -> IO (Ptr SDL_SharedObject)
sDL_LoadObject = PtrConst CChar -> IO (Ptr SDL_SharedObject)
hs_bindgen_db107edc1c41c909

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_LoadFunction@
foreign import ccall safe "hs_bindgen_47da86a71a34f8de"
  hs_bindgen_47da86a71a34f8de_base
    :: BG.Ptr BG.Void
    -> BG.Ptr BG.Void
    -> IO HsBindgen.Runtime.Support.FunPtrVoid

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_LoadFunction@
hs_bindgen_47da86a71a34f8de
  :: BG.Ptr SDL_SharedObject
  -> PtrConst.PtrConst BG.CChar
  -> IO SDL3.Sys.Bindgen.Stdinc.SDL_FunctionPointer
hs_bindgen_47da86a71a34f8de :: Ptr SDL_SharedObject -> PtrConst CChar -> IO SDL_FunctionPointer
hs_bindgen_47da86a71a34f8de =
  \Ptr SDL_SharedObject
x0 ->
    \PtrConst CChar
x1 ->
      (FunPtrVoid -> SDL_FunctionPointer)
-> IO FunPtrVoid -> IO SDL_FunctionPointer
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtrVoid -> SDL_FunctionPointer
FFIType SDL_FunctionPointer -> SDL_FunctionPointer
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> Ptr Void -> IO FunPtrVoid
hs_bindgen_47da86a71a34f8de_base (Ptr SDL_SharedObject -> FFIType (Ptr SDL_SharedObject)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr SDL_SharedObject
x0) (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x1))

-- | Look up the address of the named function in a shared object.
--
--     This function pointer is no longer valid after calling @SDL_UnloadObject()@.
--
--     This function can only look up C function names. Other languages may have name mangling and intrinsic language support that varies from compiler to compiler.
--
--     Make sure you declare your function pointers with the same calling convention as the actual library function. Your code will crash mysteriously if you do not do this.
--
--     If the requested function doesn\'t exist, NULL is returned.
--
--     [Returns]: a pointer to the function or NULL on failure; call SDL_GetError() for more information.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: 'sDL_LoadObject'
--
--     [C declaration]: @SDL_LoadFunction@, defined at @SDL3\/SDL_loadso.h 121:49@
sDL_LoadFunction
  :: BG.Ptr SDL_SharedObject
  -- ^
  --
  --           [@handle@]: a valid shared object handle returned by @SDL_LoadObject()@.
  -> PtrConst.PtrConst BG.CChar
  -- ^
  --
  --           [@name@]: the name of the function to look up.
  -> IO SDL3.Sys.Bindgen.Stdinc.SDL_FunctionPointer
sDL_LoadFunction :: Ptr SDL_SharedObject -> PtrConst CChar -> IO SDL_FunctionPointer
sDL_LoadFunction = Ptr SDL_SharedObject -> PtrConst CChar -> IO SDL_FunctionPointer
hs_bindgen_47da86a71a34f8de

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_UnloadObject@
foreign import ccall safe "hs_bindgen_e548a8de357a59b9"
  hs_bindgen_e548a8de357a59b9_base
    :: BG.Ptr BG.Void
    -> IO ()

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Loadso_Safe_SDL_UnloadObject@
hs_bindgen_e548a8de357a59b9
  :: BG.Ptr SDL_SharedObject
  -> IO ()
hs_bindgen_e548a8de357a59b9 :: Ptr SDL_SharedObject -> IO ()
hs_bindgen_e548a8de357a59b9 =
  \Ptr SDL_SharedObject
x0 ->
    Ptr Void -> IO ()
hs_bindgen_e548a8de357a59b9_base (Ptr SDL_SharedObject -> FFIType (Ptr SDL_SharedObject)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr SDL_SharedObject
x0)

-- | Unload a shared object from memory.
--
--     Note that any pointers from this object looked up through @SDL_LoadFunction()@ will no longer be valid.
--
--     [Thread safety]: It is safe to call this function from any thread.
--
--     @since 3.2.0
--
--     [See also]: 'sDL_LoadObject'
--
--     [C declaration]: @SDL_UnloadObject@, defined at @SDL3\/SDL_loadso.h 137:34@
sDL_UnloadObject
  :: BG.Ptr SDL_SharedObject
  -- ^
  --
  --           [@handle@]: a valid shared object handle returned by @SDL_LoadObject()@.
  -> IO ()
sDL_UnloadObject :: Ptr SDL_SharedObject -> IO ()
sDL_UnloadObject = Ptr SDL_SharedObject -> IO ()
hs_bindgen_e548a8de357a59b9