----------------------------------------------------------------------------- -- | -- Copyright : (C) 2015 Dimitri Sabadie -- License : BSD3 -- -- Maintainer : Dimitri Sabadie -- Stability : experimental -- Portability : portable ---------------------------------------------------------------------------- module Sound.ALC.Context where import Foreign.C.Types import Foreign.Ptr ( Ptr ) import Sound.AL.Types import Sound.ALC.Types foreign import CALLCV "alcCreateContext" alcCreateContext :: Ptr ALCdevice -> Ptr ALint -> IO (Ptr ALvoid) foreign import CALLCV "alcMakeContextCurrent" alcMakeContextCurrent :: Ptr ALvoid -> IO ALCenum foreign import CALLCV "alcProcessContext" alcProcessContext :: Ptr ALvoid -> IO () foreign import CALLCV "alcSuspendContext" alcSuspendContext :: Ptr ALvoid -> IO () foreign import CALLCV "alcDestroyContext" alcDestroyContext :: Ptr ALvoid -> IO ALCenum foreign import CALLCV "alcGetCurrentContext" alcGetCurrentContext :: IO (Ptr ALvoid)