{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Dialog.FunPtr (
SDL3.Sys.Bindgen.Dialog.FunPtr.sDL_ShowOpenFileDialog,
SDL3.Sys.Bindgen.Dialog.FunPtr.sDL_ShowSaveFileDialog,
SDL3.Sys.Bindgen.Dialog.FunPtr.sDL_ShowOpenFolderDialog,
SDL3.Sys.Bindgen.Dialog.FunPtr.sDL_ShowFileDialogWithProperties,
)
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.Dialog
import SDL3.Sys.Bindgen.Properties qualified
import SDL3.Sys.Bindgen.Video 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_dialog.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Dialog_get_SDL_ShowOpenFileDialog */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_6641ec3e92287ca2 (void)) ("
, " SDL_DialogFileCallback arg1,"
, " void *arg2,"
, " SDL_Window *arg3,"
, " SDL_DialogFileFilter const *arg4,"
, " signed int arg5,"
, " char const *arg6,"
, " _Bool arg7"
, ")"
, "{"
, " return &SDL_ShowOpenFileDialog;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Dialog_get_SDL_ShowSaveFileDialog */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_a4a801b9d3bede11 (void)) ("
, " SDL_DialogFileCallback arg1,"
, " void *arg2,"
, " SDL_Window *arg3,"
, " SDL_DialogFileFilter const *arg4,"
, " signed int arg5,"
, " char const *arg6"
, ")"
, "{"
, " return &SDL_ShowSaveFileDialog;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Dialog_get_SDL_ShowOpenFolderDialog */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_87c736a1fcfa392e (void)) ("
, " SDL_DialogFileCallback arg1,"
, " void *arg2,"
, " SDL_Window *arg3,"
, " char const *arg4,"
, " _Bool arg5"
, ")"
, "{"
, " return &SDL_ShowOpenFolderDialog;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Dialog_get_SDL_ShowFileDialogWithProperties */"
, "__attribute__ ((const))"
, "void (*hs_bindgen_f3b5f0c530765109 (void)) ("
, " SDL_FileDialogType arg1,"
, " SDL_DialogFileCallback arg2,"
, " void *arg3,"
, " SDL_PropertiesID arg4"
, ")"
, "{"
, " return &SDL_ShowFileDialogWithProperties;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_6641ec3e92287ca2"
hs_bindgen_6641ec3e92287ca2_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_6641ec3e92287ca2
:: IO
( BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst SDL_DialogFileFilter
-> BG.CInt
-> PtrConst.PtrConst BG.CChar
-> BG.CBool
-> IO ()
)
)
hs_bindgen_6641ec3e92287ca2 :: IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ()))
hs_bindgen_6641ec3e92287ca2 =
(FunPtr Void
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> 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_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ())
FFIType
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_6641ec3e92287ca2_base
{-# NOINLINE sDL_ShowOpenFileDialog #-}
sDL_ShowOpenFileDialog
:: BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst SDL_DialogFileFilter
-> BG.CInt
-> PtrConst.PtrConst BG.CChar
-> BG.CBool
-> IO ()
)
sDL_ShowOpenFileDialog :: FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ())
sDL_ShowOpenFileDialog =
IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> CBool
-> IO ()))
hs_bindgen_6641ec3e92287ca2
foreign import ccall unsafe "hs_bindgen_a4a801b9d3bede11"
hs_bindgen_a4a801b9d3bede11_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a4a801b9d3bede11
:: IO
( BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst SDL_DialogFileFilter
-> BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
)
)
hs_bindgen_a4a801b9d3bede11 :: IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ()))
hs_bindgen_a4a801b9d3bede11 =
(FunPtr Void
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> 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_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ())
FFIType
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a4a801b9d3bede11_base
{-# NOINLINE sDL_ShowSaveFileDialog #-}
sDL_ShowSaveFileDialog
:: BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst SDL_DialogFileFilter
-> BG.CInt
-> PtrConst.PtrConst BG.CChar
-> IO ()
)
sDL_ShowSaveFileDialog :: FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ())
sDL_ShowSaveFileDialog =
IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void
-> Ptr SDL_Window
-> PtrConst SDL_DialogFileFilter
-> CInt
-> PtrConst CChar
-> IO ()))
hs_bindgen_a4a801b9d3bede11
foreign import ccall unsafe "hs_bindgen_87c736a1fcfa392e"
hs_bindgen_87c736a1fcfa392e_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_87c736a1fcfa392e
:: IO
( BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst BG.CChar
-> BG.CBool
-> IO ()
)
)
hs_bindgen_87c736a1fcfa392e :: IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ()))
hs_bindgen_87c736a1fcfa392e =
(FunPtr Void
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> 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_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ())
FFIType
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_87c736a1fcfa392e_base
{-# NOINLINE sDL_ShowOpenFolderDialog #-}
sDL_ShowOpenFolderDialog
:: BG.FunPtr
( SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> BG.Ptr SDL3.Sys.Bindgen.Video.SDL_Window
-> PtrConst.PtrConst BG.CChar
-> BG.CBool
-> IO ()
)
sDL_ShowOpenFolderDialog :: FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ())
sDL_ShowOpenFolderDialog =
IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ()))
-> FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(SDL_DialogFileCallback
-> Ptr Void -> Ptr SDL_Window -> PtrConst CChar -> CBool -> IO ()))
hs_bindgen_87c736a1fcfa392e
foreign import ccall unsafe "hs_bindgen_f3b5f0c530765109"
hs_bindgen_f3b5f0c530765109_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_f3b5f0c530765109
:: IO
( BG.FunPtr
( SDL_FileDialogType
-> SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> SDL3.Sys.Bindgen.Properties.SDL_PropertiesID
-> IO ()
)
)
hs_bindgen_f3b5f0c530765109 :: IO
(FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> IO ()))
hs_bindgen_f3b5f0c530765109 =
(FunPtr Void
-> FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> IO ()))
-> IO (FunPtr Void)
-> IO
(FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> 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_FileDialogType
-> SDL_DialogFileCallback -> Ptr Void -> SDL_PropertiesID -> IO ())
FFIType
(FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> IO ()))
-> FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback -> Ptr Void -> SDL_PropertiesID -> IO ())
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_f3b5f0c530765109_base
{-# NOINLINE sDL_ShowFileDialogWithProperties #-}
sDL_ShowFileDialogWithProperties
:: BG.FunPtr
( SDL_FileDialogType
-> SDL_DialogFileCallback
-> BG.Ptr BG.Void
-> SDL3.Sys.Bindgen.Properties.SDL_PropertiesID
-> IO ()
)
sDL_ShowFileDialogWithProperties :: FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback -> Ptr Void -> SDL_PropertiesID -> IO ())
sDL_ShowFileDialogWithProperties =
IO
(FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> IO ()))
-> FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback -> Ptr Void -> SDL_PropertiesID -> IO ())
forall a. IO a -> a
BG.unsafePerformIO IO
(FunPtr
(SDL_FileDialogType
-> SDL_DialogFileCallback
-> Ptr Void
-> SDL_PropertiesID
-> IO ()))
hs_bindgen_f3b5f0c530765109