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

module SDL3.Sys.Bindgen.Misc.FunPtr (
  SDL3.Sys.Bindgen.Misc.FunPtr.sDL_OpenURL,
)
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_misc.h>"
         , "/* sdl3bindgensys_SDL3.Sys.Bindgen.Misc_get_SDL_OpenURL */"
         , "__attribute__ ((const))"
         , "_Bool (*hs_bindgen_4c967d8f61448acb (void)) ("
         , "  char const *arg1"
         , ")"
         , "{"
         , "  return &SDL_OpenURL;"
         , "}"
         ]
     )
 )

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Misc_get_SDL_OpenURL@
foreign import ccall unsafe "hs_bindgen_4c967d8f61448acb"
  hs_bindgen_4c967d8f61448acb_base
    :: IO (BG.FunPtr BG.Void)

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Misc_get_SDL_OpenURL@
hs_bindgen_4c967d8f61448acb :: IO (BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool))
hs_bindgen_4c967d8f61448acb :: IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_4c967d8f61448acb =
  (FunPtr Void -> FunPtr (PtrConst CChar -> IO CBool))
-> IO (FunPtr Void) -> IO (FunPtr (PtrConst CChar -> 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 (PtrConst CChar -> IO CBool)
FFIType (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_4c967d8f61448acb_base

{-# NOINLINE sDL_OpenURL #-}

-- | [C declaration]: @SDL_OpenURL@, defined at @SDL3\/SDL_misc.h 72:34@
sDL_OpenURL :: BG.FunPtr (PtrConst.PtrConst BG.CChar -> IO BG.CBool)
sDL_OpenURL :: FunPtr (PtrConst CChar -> IO CBool)
sDL_OpenURL =
  IO (FunPtr (PtrConst CChar -> IO CBool))
-> FunPtr (PtrConst CChar -> IO CBool)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (PtrConst CChar -> IO CBool))
hs_bindgen_4c967d8f61448acb