module Graphics.Luminance.Core.Query where
import Control.Monad ( (>=>) )
import Control.Monad.IO.Class ( MonadIO(..) )
import Data.Traversable ( for )
import Foreign.Marshal.Alloc ( alloca )
import Foreign.Storable ( peek )
import Foreign.C.String ( peekCString )
import Foreign.Ptr ( castPtr )
import Graphics.GL
getString :: (MonadIO m) => GLenum -> m String
getString name = liftIO $ glGetString name >>= peekCString . castPtr
getGLVendor :: (MonadIO m) => m String
getGLVendor = getString GL_VENDOR
getGLRenderer :: (MonadIO m) => m String
getGLRenderer = getString GL_RENDERER
getGLVersion :: (MonadIO m) => m String
getGLVersion = getString GL_VERSION
getGLSLVersion :: (MonadIO m) => m String
getGLSLVersion = getString GL_SHADING_LANGUAGE_VERSION
getGLExtensions :: (MonadIO m) => m [String]
getGLExtensions = liftIO $ do
num <- alloca $ \num -> glGetIntegerv GL_NUM_EXTENSIONS num >> peek num
for [0..fromIntegral num 1] $ glGetStringi GL_EXTENSIONS >=> peekCString . castPtr