{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Clipboard.Unsafe (
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_SetClipboardText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_GetClipboardText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_HasClipboardText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_SetPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_GetPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_HasPrimarySelectionText,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_SetClipboardData,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_ClearClipboardData,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_GetClipboardData,
SDL3.Sys.Bindgen.Clipboard.Unsafe.sDL_HasClipboardData,
SDL3.Sys.Bindgen.Clipboard.Unsafe.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_9f2a95dedb650832 ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_SetClipboardText)(arg1);"
, "}"
, "char *hs_bindgen_421a57638d4c3dac (void)"
, "{"
, " return (SDL_GetClipboardText)();"
, "}"
, "_Bool hs_bindgen_98d342e69ea4a567 (void)"
, "{"
, " return (SDL_HasClipboardText)();"
, "}"
, "_Bool hs_bindgen_6488f17232c683bf ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_SetPrimarySelectionText)(arg1);"
, "}"
, "char *hs_bindgen_5e7b06376b2e9bbd (void)"
, "{"
, " return (SDL_GetPrimarySelectionText)();"
, "}"
, "_Bool hs_bindgen_219ce6e82c7fc2f7 (void)"
, "{"
, " return (SDL_HasPrimarySelectionText)();"
, "}"
, "_Bool hs_bindgen_d48cb2fd87e5c697 ("
, " 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_c332ca2219d94718 (void)"
, "{"
, " return (SDL_ClearClipboardData)();"
, "}"
, "void *hs_bindgen_c38a6cca511b3536 ("
, " char const *arg1,"
, " size_t *arg2"
, ")"
, "{"
, " return (SDL_GetClipboardData)(arg1, arg2);"
, "}"
, "_Bool hs_bindgen_5aacfbaa2a2e29f4 ("
, " char const *arg1"
, ")"
, "{"
, " return (SDL_HasClipboardData)(arg1);"
, "}"
, "char **hs_bindgen_936644e3f850ec42 ("
, " size_t *arg1"
, ")"
, "{"
, " return (SDL_GetClipboardMimeTypes)(arg1);"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_9f2a95dedb650832"
hs_bindgen_9f2a95dedb650832_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_9f2a95dedb650832
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_9f2a95dedb650832 :: PtrConst CChar -> IO CBool
hs_bindgen_9f2a95dedb650832 =
\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_9f2a95dedb650832_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_9f2a95dedb650832
foreign import ccall unsafe "hs_bindgen_421a57638d4c3dac"
hs_bindgen_421a57638d4c3dac_base
:: IO (BG.Ptr BG.Void)
hs_bindgen_421a57638d4c3dac :: IO (BG.Ptr BG.CChar)
hs_bindgen_421a57638d4c3dac :: IO (Ptr CChar)
hs_bindgen_421a57638d4c3dac =
(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_421a57638d4c3dac_base
sDL_GetClipboardText :: IO (BG.Ptr BG.CChar)
sDL_GetClipboardText :: IO (Ptr CChar)
sDL_GetClipboardText = IO (Ptr CChar)
hs_bindgen_421a57638d4c3dac
foreign import ccall unsafe "hs_bindgen_98d342e69ea4a567"
hs_bindgen_98d342e69ea4a567_base
:: IO BG.CBool
hs_bindgen_98d342e69ea4a567 :: IO BG.CBool
hs_bindgen_98d342e69ea4a567 :: IO CBool
hs_bindgen_98d342e69ea4a567 =
(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_98d342e69ea4a567_base
sDL_HasClipboardText :: IO BG.CBool
sDL_HasClipboardText :: IO CBool
sDL_HasClipboardText = IO CBool
hs_bindgen_98d342e69ea4a567
foreign import ccall unsafe "hs_bindgen_6488f17232c683bf"
hs_bindgen_6488f17232c683bf_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_6488f17232c683bf
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_6488f17232c683bf :: PtrConst CChar -> IO CBool
hs_bindgen_6488f17232c683bf =
\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_6488f17232c683bf_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_6488f17232c683bf
foreign import ccall unsafe "hs_bindgen_5e7b06376b2e9bbd"
hs_bindgen_5e7b06376b2e9bbd_base
:: IO (BG.Ptr BG.Void)
hs_bindgen_5e7b06376b2e9bbd :: IO (BG.Ptr BG.CChar)
hs_bindgen_5e7b06376b2e9bbd :: IO (Ptr CChar)
hs_bindgen_5e7b06376b2e9bbd =
(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_5e7b06376b2e9bbd_base
sDL_GetPrimarySelectionText :: IO (BG.Ptr BG.CChar)
sDL_GetPrimarySelectionText :: IO (Ptr CChar)
sDL_GetPrimarySelectionText =
IO (Ptr CChar)
hs_bindgen_5e7b06376b2e9bbd
foreign import ccall unsafe "hs_bindgen_219ce6e82c7fc2f7"
hs_bindgen_219ce6e82c7fc2f7_base
:: IO BG.CBool
hs_bindgen_219ce6e82c7fc2f7 :: IO BG.CBool
hs_bindgen_219ce6e82c7fc2f7 :: IO CBool
hs_bindgen_219ce6e82c7fc2f7 =
(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_219ce6e82c7fc2f7_base
sDL_HasPrimarySelectionText :: IO BG.CBool
sDL_HasPrimarySelectionText :: IO CBool
sDL_HasPrimarySelectionText =
IO CBool
hs_bindgen_219ce6e82c7fc2f7
foreign import ccall unsafe "hs_bindgen_d48cb2fd87e5c697"
hs_bindgen_d48cb2fd87e5c697_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_d48cb2fd87e5c697
:: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> BG.Ptr BG.Void
-> PtrConst.PtrConst (PtrConst.PtrConst BG.CChar)
-> HsBindgen.Runtime.LibC.CSize
-> IO BG.CBool
hs_bindgen_d48cb2fd87e5c697 :: SDL_ClipboardDataCallback
-> SDL_ClipboardCleanupCallback
-> Ptr Void
-> PtrConst (PtrConst CChar)
-> CSize
-> IO CBool
hs_bindgen_d48cb2fd87e5c697 =
\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_d48cb2fd87e5c697_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_d48cb2fd87e5c697
foreign import ccall unsafe "hs_bindgen_c332ca2219d94718"
hs_bindgen_c332ca2219d94718_base
:: IO BG.CBool
hs_bindgen_c332ca2219d94718 :: IO BG.CBool
hs_bindgen_c332ca2219d94718 :: IO CBool
hs_bindgen_c332ca2219d94718 =
(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_c332ca2219d94718_base
sDL_ClearClipboardData :: IO BG.CBool
sDL_ClearClipboardData :: IO CBool
sDL_ClearClipboardData = IO CBool
hs_bindgen_c332ca2219d94718
foreign import ccall unsafe "hs_bindgen_c38a6cca511b3536"
hs_bindgen_c38a6cca511b3536_base
:: BG.Ptr BG.Void
-> BG.Ptr BG.Void
-> IO (BG.Ptr BG.Void)
hs_bindgen_c38a6cca511b3536
:: PtrConst.PtrConst BG.CChar
-> BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr BG.Void)
hs_bindgen_c38a6cca511b3536 :: PtrConst CChar -> Ptr CSize -> IO (Ptr Void)
hs_bindgen_c38a6cca511b3536 =
\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_c38a6cca511b3536_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_c38a6cca511b3536
foreign import ccall unsafe "hs_bindgen_5aacfbaa2a2e29f4"
hs_bindgen_5aacfbaa2a2e29f4_base
:: BG.Ptr BG.Void
-> IO BG.CBool
hs_bindgen_5aacfbaa2a2e29f4
:: PtrConst.PtrConst BG.CChar
-> IO BG.CBool
hs_bindgen_5aacfbaa2a2e29f4 :: PtrConst CChar -> IO CBool
hs_bindgen_5aacfbaa2a2e29f4 =
\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_5aacfbaa2a2e29f4_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_5aacfbaa2a2e29f4
foreign import ccall unsafe "hs_bindgen_936644e3f850ec42"
hs_bindgen_936644e3f850ec42_base
:: BG.Ptr BG.Void
-> IO (BG.Ptr BG.Void)
hs_bindgen_936644e3f850ec42
:: BG.Ptr HsBindgen.Runtime.LibC.CSize
-> IO (BG.Ptr (BG.Ptr BG.CChar))
hs_bindgen_936644e3f850ec42 :: Ptr CSize -> IO (Ptr (Ptr CChar))
hs_bindgen_936644e3f850ec42 =
\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_936644e3f850ec42_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_936644e3f850ec42