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

module SDL3.Sys.Bindgen.Platform.FunPtr (
  SDL3.Sys.Bindgen.Platform.FunPtr.sDL_GetPlatform,
)
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_platform.h>"
         , "/* sdl3bindgensys_SDL3.Sys.Bindgen.Platform_get_SDL_GetPlatform */"
         , "__attribute__ ((const))"
         , "char const *(*hs_bindgen_77c6464e30daf2fd (void)) (void)"
         , "{"
         , "  return &SDL_GetPlatform;"
         , "}"
         ]
     )
 )

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Platform_get_SDL_GetPlatform@
foreign import ccall unsafe "hs_bindgen_77c6464e30daf2fd"
  hs_bindgen_77c6464e30daf2fd_base
    :: IO (BG.FunPtr BG.Void)

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

{-# NOINLINE sDL_GetPlatform #-}

-- | [C declaration]: @SDL_GetPlatform@, defined at @SDL3\/SDL_platform.h 58:42@
sDL_GetPlatform :: BG.FunPtr (IO (PtrConst.PtrConst BG.CChar))
sDL_GetPlatform :: FunPtr (IO (PtrConst CChar))
sDL_GetPlatform =
  IO (FunPtr (IO (PtrConst CChar))) -> FunPtr (IO (PtrConst CChar))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (IO (PtrConst CChar)))
hs_bindgen_77c6464e30daf2fd