{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.Touch.FunPtr (
SDL3.Sys.Bindgen.Touch.FunPtr.sDL_GetTouchDevices,
SDL3.Sys.Bindgen.Touch.FunPtr.sDL_GetTouchDeviceName,
SDL3.Sys.Bindgen.Touch.FunPtr.sDL_GetTouchDeviceType,
SDL3.Sys.Bindgen.Touch.FunPtr.sDL_GetTouchFingers,
)
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.Touch
$( 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_touch.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Touch_get_SDL_GetTouchDevices */"
, "__attribute__ ((const))"
, "SDL_TouchID *(*hs_bindgen_d990cfdd3ce3b935 (void)) ("
, " signed int *arg1"
, ")"
, "{"
, " return &SDL_GetTouchDevices;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Touch_get_SDL_GetTouchDeviceName */"
, "__attribute__ ((const))"
, "char const *(*hs_bindgen_a221ea688dfb8835 (void)) ("
, " SDL_TouchID arg1"
, ")"
, "{"
, " return &SDL_GetTouchDeviceName;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Touch_get_SDL_GetTouchDeviceType */"
, "__attribute__ ((const))"
, "SDL_TouchDeviceType (*hs_bindgen_41907e6474c07d6d (void)) ("
, " SDL_TouchID arg1"
, ")"
, "{"
, " return &SDL_GetTouchDeviceType;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.Touch_get_SDL_GetTouchFingers */"
, "__attribute__ ((const))"
, "SDL_Finger **(*hs_bindgen_7edabe47405f9352 (void)) ("
, " SDL_TouchID arg1,"
, " signed int *arg2"
, ")"
, "{"
, " return &SDL_GetTouchFingers;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_d990cfdd3ce3b935"
hs_bindgen_d990cfdd3ce3b935_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_d990cfdd3ce3b935 :: IO (BG.FunPtr (BG.Ptr BG.CInt -> IO (BG.Ptr SDL_TouchID)))
hs_bindgen_d990cfdd3ce3b935 :: IO (FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
hs_bindgen_d990cfdd3ce3b935 =
(FunPtr Void -> FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
-> IO (FunPtr Void)
-> IO (FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
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 (Ptr CInt -> IO (Ptr SDL_TouchID))
FFIType (FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
-> FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_d990cfdd3ce3b935_base
{-# NOINLINE sDL_GetTouchDevices #-}
sDL_GetTouchDevices :: BG.FunPtr (BG.Ptr BG.CInt -> IO (BG.Ptr SDL_TouchID))
sDL_GetTouchDevices :: FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID))
sDL_GetTouchDevices =
IO (FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
-> FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Ptr CInt -> IO (Ptr SDL_TouchID)))
hs_bindgen_d990cfdd3ce3b935
foreign import ccall unsafe "hs_bindgen_a221ea688dfb8835"
hs_bindgen_a221ea688dfb8835_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_a221ea688dfb8835 :: IO (BG.FunPtr (SDL_TouchID -> IO (PtrConst.PtrConst BG.CChar)))
hs_bindgen_a221ea688dfb8835 :: IO (FunPtr (SDL_TouchID -> IO (PtrConst CChar)))
hs_bindgen_a221ea688dfb8835 =
(FunPtr Void -> FunPtr (SDL_TouchID -> IO (PtrConst CChar)))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_TouchID -> 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 (SDL_TouchID -> IO (PtrConst CChar))
FFIType (FunPtr (SDL_TouchID -> IO (PtrConst CChar)))
-> FunPtr (SDL_TouchID -> IO (PtrConst CChar))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_a221ea688dfb8835_base
{-# NOINLINE sDL_GetTouchDeviceName #-}
sDL_GetTouchDeviceName :: BG.FunPtr (SDL_TouchID -> IO (PtrConst.PtrConst BG.CChar))
sDL_GetTouchDeviceName :: FunPtr (SDL_TouchID -> IO (PtrConst CChar))
sDL_GetTouchDeviceName =
IO (FunPtr (SDL_TouchID -> IO (PtrConst CChar)))
-> FunPtr (SDL_TouchID -> IO (PtrConst CChar))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_TouchID -> IO (PtrConst CChar)))
hs_bindgen_a221ea688dfb8835
foreign import ccall unsafe "hs_bindgen_41907e6474c07d6d"
hs_bindgen_41907e6474c07d6d_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_41907e6474c07d6d :: IO (BG.FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
hs_bindgen_41907e6474c07d6d :: IO (FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
hs_bindgen_41907e6474c07d6d =
(FunPtr Void -> FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
-> IO (FunPtr Void)
-> IO (FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
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_TouchID -> IO SDL_TouchDeviceType)
FFIType (FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
-> FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_41907e6474c07d6d_base
{-# NOINLINE sDL_GetTouchDeviceType #-}
sDL_GetTouchDeviceType :: BG.FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType)
sDL_GetTouchDeviceType :: FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType)
sDL_GetTouchDeviceType =
IO (FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
-> FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_TouchID -> IO SDL_TouchDeviceType))
hs_bindgen_41907e6474c07d6d
foreign import ccall unsafe "hs_bindgen_7edabe47405f9352"
hs_bindgen_7edabe47405f9352_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_7edabe47405f9352
:: IO (BG.FunPtr (SDL_TouchID -> BG.Ptr BG.CInt -> IO (BG.Ptr (BG.Ptr SDL_Finger))))
hs_bindgen_7edabe47405f9352 :: IO (FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
hs_bindgen_7edabe47405f9352 =
(FunPtr Void
-> FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
-> IO (FunPtr Void)
-> IO
(FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
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_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger)))
FFIType
(FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
-> FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger)))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_7edabe47405f9352_base
{-# NOINLINE sDL_GetTouchFingers #-}
sDL_GetTouchFingers :: BG.FunPtr (SDL_TouchID -> BG.Ptr BG.CInt -> IO (BG.Ptr (BG.Ptr SDL_Finger)))
sDL_GetTouchFingers :: FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger)))
sDL_GetTouchFingers =
IO (FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
-> FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger)))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (SDL_TouchID -> Ptr CInt -> IO (Ptr (Ptr SDL_Finger))))
hs_bindgen_7edabe47405f9352