Added extensionSupported. Bumped version to 2.13.1.0.

Author: svenpanne

OpenGL.cabal

@@ -1,5 +1,5 @@
 name: OpenGL
-version: 2.13.0.1
+version: 2.13.1.0
 synopsis: A binding for the OpenGL graphics system
 description:
   A Haskell binding for the OpenGL graphics system (GL, version 4.5) and its

src/Graphics/Rendering/OpenGL/GL/QueryUtils/PName.hs

@@ -570,6 +570,8 @@ data PName1I
     | GetDebugNextLoggedMessageLength -- ^ int
     | GetMaxDebugGroupStackDepth      -- ^ int
     | GetMaxLabelLength               -- ^ int
+    -- Extensions
+    | GetNumExtensions     -- ^ uint
 
 instance GetPName1I PName1I where
 
@@ -848,6 +850,7 @@ instance GetPName PName1I where
         GetDebugNextLoggedMessageLength -> Just gl_DEBUG_NEXT_LOGGED_MESSAGE_LENGTH
         GetMaxDebugGroupStackDepth -> Just gl_MAX_DEBUG_GROUP_STACK_DEPTH
         GetMaxLabelLength -> Just gl_MAX_LABEL_LENGTH
+        GetNumExtensions -> Just gl_NUM_EXTENSIONS
 
 -- 0x8825 through 0x8834 are reserved for draw buffers
 

src/Graphics/Rendering/OpenGL/GL/StringQueries.hs

@@ -14,8 +14,8 @@
 --------------------------------------------------------------------------------
 
 module Graphics.Rendering.OpenGL.GL.StringQueries (
-   vendor, renderer, glVersion, glExtensions, shadingLanguageVersion,
-   majorMinor, ContextProfile'(..), contextProfile
+   vendor, renderer, glVersion, glExtensions, extensionSupported,
+   shadingLanguageVersion, majorMinor, ContextProfile'(..), contextProfile
 ) where
 
 import Data.Bits
@@ -39,6 +39,14 @@ glVersion = makeGettableStateVar (getString gl_VERSION)
 glExtensions :: GettableStateVar [String]
 glExtensions = makeGettableStateVar (fmap words $ getString gl_EXTENSIONS)
 
+extensionSupported :: String -> GettableStateVar Bool
+extensionSupported ext = makeGettableStateVar $ do
+   n <- getInteger1 fromIntegral GetNumExtensions
+   anyM $ map isExt [ 0 .. n - 1 ]
+   where anyM = foldr orM (return False)
+         x `orM` y = x >>= \q -> if q then return True else y
+         isExt = fmap (== ext) . getStringi gl_EXTENSIONS
+
 shadingLanguageVersion :: GettableStateVar String
 shadingLanguageVersion = makeGettableStateVar (getString gl_SHADING_LANGUAGE_VERSION)
 
@@ -67,6 +75,9 @@ i2cps bitfield =
 getString :: GLenum -> IO String
 getString = getStringWith . glGetString
 
+getStringi :: GLenum -> GLuint -> IO String
+getStringi n = getStringWith . glGetStringi n
+
 --------------------------------------------------------------------------------
 
 -- | A utility function to be used with e.g. 'glVersion' or