{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Clipboard.Safe (
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_SetClipboardText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_GetClipboardText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_HasClipboardText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_SetPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_GetPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_HasPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_SetClipboardData,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_ClearClipboardData,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_GetClipboardData,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_HasClipboardData,
SDL3.Sys.Bindgen.Clipboard.Safe.sDL_GetClipboardMimeTypes,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.LibC qualified
import HsBindgen.Runtime.PtrConst qualified as PtrConst
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Clipboard
$( 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_clipboard.h>"
, "_Bool hs_bindgen_b1150c42ea076e8c ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_SetClipboardText)(arg1);"
, "}"
, "char *hs_bindgen_280a176c02a40213 (void)"
, "{"
, " return (SDL_GetClipboardText)();"
, "}"
, "_Bool hs_bindgen_0a5b78c7f4d4d82d (void)"
, "{"
, " return (SDL_HasClipboardText)();"
, "}"
, "_Bool hs_bindgen_296e622e9e7c041e ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_SetPrimarySelectionText)(arg1);"
, "}"
, "char *hs_bindgen_b29f4f6c44c760ae (void)"
, "{"
, " return (SDL_GetPrimarySelectionText)();"
, "}"
, "_Bool hs_bindgen_72e968e77e5a4b30 (void)"
, "{"
, " return (SDL_HasPrimarySelectionText)();"
, "}"
, "_Bool hs_bindgen_36bebff7824b1300 ("
, " SDL_ClipboardDataCallback arg1,"
, " SDL_ClipboardCleanupCallback arg2,"
, " void *arg3,"
, " char const *const *arg4,"
, " size_t arg5"
, ")"
, "{"
, " return (SDL_SetClipboardData)(arg1, arg2, arg3, arg4, arg5);"
, "}"
, "_Bool hs_bindgen_acd3467dd81bcf1b (void)"
, "{"
, " return (SDL_ClearClipboardData)();"
, "}"
, "void *hs_bindgen_d971d4d8159c9733 ("
, " char const *arg1,"
, " size_t *arg2"
, ")"
, "{"
, " return (SDL_GetClipboardData)(arg1, arg2);"
, "}"
, "_Bool hs_bindgen_7056b6a1011e4cda ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_HasClipboardData)(arg1);"
, "}"
, "char **hs_bindgen_333d0a0010885f59 ("
, " size_t *arg1"
, ")"
, "{"
, " return (SDL_GetClipboardMimeTypes)(arg1);"
, "}"
]
)
)
foreign import ccall safe "hs_bindgen_b1150c42ea076e8c"
hs_bindgen_b1150c42ea076e8c_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_b1150c42ea076e8c
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_b1150c42ea076e8c :: PtrConst CChar -> IO CBool
hs_bindgen_b1150c42ea076e8c =
\PtrConst CChar
x0 ->
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_b1150c42ea076e8c_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))
sDL_SetClipboardText
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
sDL_SetClipboardText :: PtrConst CChar -> IO CBool
sDL_SetClipboardText = PtrConst CChar -> IO CBool
hs_bindgen_b1150c42ea076e8c
foreign import ccall safe "hs_bindgen_280a176c02a40213"
hs_bindgen_280a176c02a40213_base
:: IO (BG.Ptr BG.Void)
hs_bindgen_280a176c02a40213 :: IO (BG.Ptr BG.CChar)
hs_bindgen_280a176c02a40213 :: IO (Ptr CChar)
hs_bindgen_280a176c02a40213 =
(Ptr Void -> Ptr CChar) -> IO (Ptr Void) -> IO (Ptr CChar)
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 CChar
FFIType (Ptr CChar) -> Ptr CChar
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (Ptr Void)
hs_bindgen_280a176c02a40213_base
sDL_GetClipboardText :: IO (BG.Ptr BG.CChar)
sDL_GetClipboardText :: IO (Ptr CChar)
sDL_GetClipboardText = IO (Ptr CChar)
hs_bindgen_280a176c02a40213
foreign import ccall safe "hs_bindgen_0a5b78c7f4d4d82d"
hs_bindgen_0a5b78c7f4d4d82d_base
:: IO BG.CBool
hs_bindgen_0a5b78c7f4d4d82d :: IO BG.CBool
hs_bindgen_0a5b78c7f4d4d82d :: IO CBool
hs_bindgen_0a5b78c7f4d4d82d =
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO CBool
hs_bindgen_0a5b78c7f4d4d82d_base
sDL_HasClipboardText :: IO BG.CBool
sDL_HasClipboardText :: IO CBool
sDL_HasClipboardText = IO CBool
hs_bindgen_0a5b78c7f4d4d82d
foreign import ccall safe "hs_bindgen_296e622e9e7c041e"
hs_bindgen_296e622e9e7c041e_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_296e622e9e7c041e
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_296e622e9e7c041e :: PtrConst CChar -> IO CBool
hs_bindgen_296e622e9e7c041e =
\PtrConst CChar
x0 ->
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_296e622e9e7c041e_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))
sDL_SetPrimarySelectionText
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
sDL_SetPrimarySelectionText :: PtrConst CChar -> IO CBool
sDL_SetPrimarySelectionText =
PtrConst CChar -> IO CBool
hs_bindgen_296e622e9e7c041e
foreign import ccall safe "hs_bindgen_b29f4f6c44c760ae"
hs_bindgen_b29f4f6c44c760ae_base
:: IO (BG.Ptr BG.Void)
hs_bindgen_b29f4f6c44c760ae :: IO (BG.Ptr BG.CChar)
hs_bindgen_b29f4f6c44c760ae :: IO (Ptr CChar)
hs_bindgen_b29f4f6c44c760ae =
(Ptr Void -> Ptr CChar) -> IO (Ptr Void) -> IO (Ptr CChar)
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 CChar
FFIType (Ptr CChar) -> Ptr CChar
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (Ptr Void)
hs_bindgen_b29f4f6c44c760ae_base
sDL_GetPrimarySelectionText :: IO (BG.Ptr BG.CChar)
sDL_GetPrimarySelectionText :: IO (Ptr CChar)
sDL_GetPrimarySelectionText =
IO (Ptr CChar)
hs_bindgen_b29f4f6c44c760ae
foreign import ccall safe "hs_bindgen_72e968e77e5a4b30"
hs_bindgen_72e968e77e5a4b30_base
:: IO BG.CBool
hs_bindgen_72e968e77e5a4b30 :: IO BG.CBool
hs_bindgen_72e968e77e5a4b30 :: IO CBool
hs_bindgen_72e968e77e5a4b30 =
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO CBool
hs_bindgen_72e968e77e5a4b30_base
sDL_HasPrimarySelectionText :: IO BG.CBool
sDL_HasPrimarySelectionText :: IO CBool
sDL_HasPrimarySelectionText =
IO CBool
hs_bindgen_72e968e77e5a4b30
foreign import ccall safe "hs_bindgen_36bebff7824b1300"
hs_bindgen_36bebff7824b1300_base
:: BG.FunPtr BG.Void
-> BG.FunPtr BG.Void
-> BG.Ptr BG.Void
-> BG.Ptr BG.Void
-> HsBindgen.Runtime.LibC.CSize
-> IO BG.CBool
hs_bindgen_36bebff7824b1300
:: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> BG.Ptr BG.Void
-> PtrConst.PtrConst (PtrConst.PtrConst BG.CChar)
-> HsBindgen.Runtime.LibC.CSize
-> IO BG.CBool
hs_bindgen_36bebff7824b1300 :: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> Ptr Void
-> PtrConst (PtrConst CChar)
-> CSize
-> IO CBool
hs_bindgen_36bebff7824b1300 =
\SDL_ClipboardDataCallback
x0 ->
\SDL_ClipboardCleanupCallback
x1 ->
\Ptr Void
x2 ->
\PtrConst (PtrConst CChar)
x3 ->
\CSize
x4 ->
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap
CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType
( FunPtr Void
-> FunPtr Void -> Ptr Void -> Ptr Void -> CSize -> IO CBool
hs_bindgen_36bebff7824b1300_base
(SDL_ClipboardDataCallback -> FFIType SDL_ClipboardDataCallback
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_ClipboardDataCallback
x0)
(SDL_ClipboardCleanupCallback
-> FFIType SDL_ClipboardCleanupCallback
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType SDL_ClipboardCleanupCallback
x1)
(Ptr Void -> FFIType (Ptr Void)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr Void
x2)
(PtrConst (PtrConst CChar) -> FFIType (PtrConst (PtrConst CChar))
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst (PtrConst CChar)
x3)
(CSize -> FFIType CSize
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType CSize
x4)
)
sDL_SetClipboardData
:: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> BG.Ptr BG.Void
-> PtrConst.PtrConst (PtrConst.PtrConst BG.CChar)
-> HsBindgen.Runtime.LibC.CSize
-> IO BG.CBool
sDL_SetClipboardData :: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> Ptr Void
-> PtrConst (PtrConst CChar)
-> CSize
-> IO CBool
sDL_SetClipboardData = SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> Ptr Void
-> PtrConst (PtrConst CChar)
-> CSize
-> IO CBool
hs_bindgen_36bebff7824b1300
foreign import ccall safe "hs_bindgen_acd3467dd81bcf1b"
hs_bindgen_acd3467dd81bcf1b_base
:: IO BG.CBool
hs_bindgen_acd3467dd81bcf1b :: IO BG.CBool
hs_bindgen_acd3467dd81bcf1b :: IO CBool
hs_bindgen_acd3467dd81bcf1b =
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO CBool
hs_bindgen_acd3467dd81bcf1b_base
sDL_ClearClipboardData :: IO BG.CBool
sDL_ClearClipboardData :: IO CBool
sDL_ClearClipboardData = IO CBool
hs_bindgen_acd3467dd81bcf1b
foreign import ccall safe "hs_bindgen_d971d4d8159c9733"
hs_bindgen_d971d4d8159c9733_base
:: BG.Ptr BG.Void
-> BG.Ptr BG.Void
-> IO (BG.Ptr BG.Void)
hs_bindgen_d971d4d8159c9733
:: PtrConst.PtrConst BG.CChar
-> BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr BG.Void)
hs_bindgen_d971d4d8159c9733 :: PtrConst CChar -> Ptr CSize -> IO (Ptr Void)
hs_bindgen_d971d4d8159c9733 =
\PtrConst CChar
x0 ->
\Ptr CSize
x1 ->
(Ptr Void -> Ptr Void) -> IO (Ptr Void) -> IO (Ptr Void)
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 Void
FFIType (Ptr Void) -> Ptr Void
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> Ptr Void -> IO (Ptr Void)
hs_bindgen_d971d4d8159c9733_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0) (Ptr CSize -> FFIType (Ptr CSize)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr CSize
x1))
sDL_GetClipboardData
:: PtrConst.PtrConst BG.CChar
-> BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr BG.Void)
sDL_GetClipboardData :: PtrConst CChar -> Ptr CSize -> IO (Ptr Void)
sDL_GetClipboardData = PtrConst CChar -> Ptr CSize -> IO (Ptr Void)
hs_bindgen_d971d4d8159c9733
foreign import ccall safe "hs_bindgen_7056b6a1011e4cda"
hs_bindgen_7056b6a1011e4cda_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_7056b6a1011e4cda
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_7056b6a1011e4cda :: PtrConst CChar -> IO CBool
hs_bindgen_7056b6a1011e4cda =
\PtrConst CChar
x0 ->
(CBool -> CBool) -> IO CBool -> IO CBool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CBool -> CBool
FFIType CBool -> CBool
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO CBool
hs_bindgen_7056b6a1011e4cda_base (PtrConst CChar -> FFIType (PtrConst CChar)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType PtrConst CChar
x0))
sDL_HasClipboardData
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
sDL_HasClipboardData :: PtrConst CChar -> IO CBool
sDL_HasClipboardData = PtrConst CChar -> IO CBool
hs_bindgen_7056b6a1011e4cda
foreign import ccall safe "hs_bindgen_333d0a0010885f59"
hs_bindgen_333d0a0010885f59_base
:: BG.Ptr BG.Void
-> IO (BG.Ptr BG.Void)
hs_bindgen_333d0a0010885f59
:: BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr (BG.Ptr BG.CChar))
hs_bindgen_333d0a0010885f59 :: Ptr CSize -> IO (Ptr (Ptr CChar))
hs_bindgen_333d0a0010885f59 =
\Ptr CSize
x0 ->
(Ptr Void -> Ptr (Ptr CChar))
-> IO (Ptr Void) -> IO (Ptr (Ptr CChar))
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 (Ptr CChar)
FFIType (Ptr (Ptr CChar)) -> Ptr (Ptr CChar)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType (Ptr Void -> IO (Ptr Void)
hs_bindgen_333d0a0010885f59_base (Ptr CSize -> FFIType (Ptr CSize)
forall a. HasFFIType a => a -> FFIType a
BG.toFFIType Ptr CSize
x0))
sDL_GetClipboardMimeTypes
:: BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr (BG.Ptr BG.CChar))
sDL_GetClipboardMimeTypes :: Ptr CSize -> IO (Ptr (Ptr CChar))
sDL_GetClipboardMimeTypes =
Ptr CSize -> IO (Ptr (Ptr CChar))
hs_bindgen_333d0a0010885f59