{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}
module SDL3.Sys.Bindgen.TimerShims.FunPtr (
SDL3.Sys.Bindgen.TimerShims.FunPtr.lithon_SDL_SECONDS_TO_NS,
SDL3.Sys.Bindgen.TimerShims.FunPtr.lithon_SDL_MS_TO_NS,
SDL3.Sys.Bindgen.TimerShims.FunPtr.lithon_SDL_US_TO_NS,
)
where
import Prelude (IO, fmap)
import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Stdinc 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-bindgen-sys/SDL_timer_shims.h>"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.TimerShims_get_lithon_SDL_SECONDS_TO_NS */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_bb4a7cef88282955 (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_SECONDS_TO_NS;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.TimerShims_get_lithon_SDL_MS_TO_NS */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_e0cb179de29f3904 (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_MS_TO_NS;"
, "}"
, "/* sdl3bindgensys_SDL3.Sys.Bindgen.TimerShims_get_lithon_SDL_US_TO_NS */"
, "__attribute__ ((const))"
, "Uint64 (*hs_bindgen_258f5234969dea47 (void)) ("
, " Uint64 arg1"
, ")"
, "{"
, " return &lithon_SDL_US_TO_NS;"
, "}"
]
)
)
foreign import ccall unsafe "hs_bindgen_bb4a7cef88282955"
hs_bindgen_bb4a7cef88282955_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_bb4a7cef88282955
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_bb4a7cef88282955 :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_bb4a7cef88282955 =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
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 (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_bb4a7cef88282955_base
{-# NOINLINE lithon_SDL_SECONDS_TO_NS #-}
lithon_SDL_SECONDS_TO_NS
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_SECONDS_TO_NS :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_SECONDS_TO_NS =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_bb4a7cef88282955
foreign import ccall unsafe "hs_bindgen_e0cb179de29f3904"
hs_bindgen_e0cb179de29f3904_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_e0cb179de29f3904
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_e0cb179de29f3904 :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_e0cb179de29f3904 =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
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 (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_e0cb179de29f3904_base
{-# NOINLINE lithon_SDL_MS_TO_NS #-}
lithon_SDL_MS_TO_NS
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_MS_TO_NS :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_MS_TO_NS =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_e0cb179de29f3904
foreign import ccall unsafe "hs_bindgen_258f5234969dea47"
hs_bindgen_258f5234969dea47_base
:: IO (BG.FunPtr BG.Void)
hs_bindgen_258f5234969dea47
:: IO (BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64))
hs_bindgen_258f5234969dea47 :: IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_258f5234969dea47 =
(FunPtr Void -> FunPtr (Uint64 -> IO Uint64))
-> IO (FunPtr Void) -> IO (FunPtr (Uint64 -> IO Uint64))
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 (Uint64 -> IO Uint64)
FFIType (FunPtr (Uint64 -> IO Uint64))
-> FunPtr (Uint64 -> IO Uint64)
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_258f5234969dea47_base
{-# NOINLINE lithon_SDL_US_TO_NS #-}
lithon_SDL_US_TO_NS
:: BG.FunPtr (SDL3.Sys.Bindgen.Stdinc.Uint64 -> IO SDL3.Sys.Bindgen.Stdinc.Uint64)
lithon_SDL_US_TO_NS :: FunPtr (Uint64 -> IO Uint64)
lithon_SDL_US_TO_NS =
IO (FunPtr (Uint64 -> IO Uint64)) -> FunPtr (Uint64 -> IO Uint64)
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Uint64 -> IO Uint64))
hs_bindgen_258f5234969dea47