Updated OpenGL registry to r33312. Bumped version to 3.2.4.0.

Author: svenpanne

CHANGELOG.md

@@ -1,3 +1,7 @@
+3.2.4.0
+-------
+* Updated OpenGL registry to r33312.
+
 3.2.3.0
 -------
 * Updated OpenGL registry to r33189.

OpenGLRaw.cabal

@@ -1,5 +1,5 @@
 name: OpenGLRaw
-version: 3.2.3.0
+version: 3.2.4.0
 synopsis: A raw binding for the OpenGL graphics system
 description:
   OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and

RegistryProcessor/OpenGL-Registry

@@ -101,7 +101,9 @@ module Graphics.GL.Functions.F06 (
   glDrawTexxOES,
   glDrawTexxvOES,
   glDrawTransformFeedback,
+  glDrawTransformFeedbackEXT,
   glDrawTransformFeedbackInstanced,
+  glDrawTransformFeedbackInstancedEXT,
   glDrawTransformFeedbackNV,
   glDrawTransformFeedbackStream,
   glDrawTransformFeedbackStreamInstanced,
@@ -112,9 +114,7 @@ module Graphics.GL.Functions.F06 (
   glEdgeFlagPointer,
   glEdgeFlagPointerEXT,
   glEdgeFlagPointerListIBM,
-  glEdgeFlagv,
-  glElementPointerAPPLE,
-  glElementPointerATI
+  glEdgeFlagv
 ) where
 
 import Control.Monad.IO.Class ( MonadIO(..) )
@@ -1433,6 +1433,20 @@ glDrawTransformFeedback v1 v2 = liftIO $ dyn16 ptr_glDrawTransformFeedback v1 v2
 ptr_glDrawTransformFeedback :: FunPtr (GLenum -> GLuint -> IO ())
 ptr_glDrawTransformFeedback = unsafePerformIO $ getCommand "glDrawTransformFeedback"
 
+-- glDrawTransformFeedbackEXT --------------------------------------------------
+
+-- | This command is an alias for 'glDrawTransformFeedback'.
+glDrawTransformFeedbackEXT
+  :: MonadIO m
+  => GLenum -- ^ @mode@ of type [PrimitiveType](Graphics-GL-Groups.html#PrimitiveType).
+  -> GLuint -- ^ @id@.
+  -> m ()
+glDrawTransformFeedbackEXT v1 v2 = liftIO $ dyn16 ptr_glDrawTransformFeedbackEXT v1 v2
+
+{-# NOINLINE ptr_glDrawTransformFeedbackEXT #-}
+ptr_glDrawTransformFeedbackEXT :: FunPtr (GLenum -> GLuint -> IO ())
+ptr_glDrawTransformFeedbackEXT = unsafePerformIO $ getCommand "glDrawTransformFeedbackEXT"
+
 -- glDrawTransformFeedbackInstanced --------------------------------------------
 
 -- | Manual page for <https://www.opengl.org/sdk/docs/man4/html/glDrawTransformFeedbackInstanced.xhtml OpenGL 4.x>.
@@ -1448,6 +1462,21 @@ glDrawTransformFeedbackInstanced v1 v2 v3 = liftIO $ dyn257 ptr_glDrawTransformF
 ptr_glDrawTransformFeedbackInstanced :: FunPtr (GLenum -> GLuint -> GLsizei -> IO ())
 ptr_glDrawTransformFeedbackInstanced = unsafePerformIO $ getCommand "glDrawTransformFeedbackInstanced"
 
+-- glDrawTransformFeedbackInstancedEXT -----------------------------------------
+
+-- | This command is an alias for 'glDrawTransformFeedbackInstanced'.
+glDrawTransformFeedbackInstancedEXT
+  :: MonadIO m
+  => GLenum -- ^ @mode@ of type [PrimitiveType](Graphics-GL-Groups.html#PrimitiveType).
+  -> GLuint -- ^ @id@.
+  -> GLsizei -- ^ @instancecount@.
+  -> m ()
+glDrawTransformFeedbackInstancedEXT v1 v2 v3 = liftIO $ dyn257 ptr_glDrawTransformFeedbackInstancedEXT v1 v2 v3
+
+{-# NOINLINE ptr_glDrawTransformFeedbackInstancedEXT #-}
+ptr_glDrawTransformFeedbackInstancedEXT :: FunPtr (GLenum -> GLuint -> GLsizei -> IO ())
+ptr_glDrawTransformFeedbackInstancedEXT = unsafePerformIO $ getCommand "glDrawTransformFeedbackInstancedEXT"
+
 -- glDrawTransformFeedbackNV ---------------------------------------------------
 
 -- | This command is an alias for 'glDrawTransformFeedback'.
@@ -1599,29 +1628,3 @@ glEdgeFlagv v1 = liftIO $ dyn263 ptr_glEdgeFlagv v1
 ptr_glEdgeFlagv :: FunPtr (Ptr GLboolean -> IO ())
 ptr_glEdgeFlagv = unsafePerformIO $ getCommand "glEdgeFlagv"
 
--- glElementPointerAPPLE -------------------------------------------------------
-
-glElementPointerAPPLE
-  :: MonadIO m
-  => GLenum -- ^ @type@ of type @ElementPointerTypeATI@.
-  -> Ptr a -- ^ @pointer@ pointing to @COMPSIZE(type)@ elements of type @a@.
-  -> m ()
-glElementPointerAPPLE v1 v2 = liftIO $ dyn230 ptr_glElementPointerAPPLE v1 v2
-
-{-# NOINLINE ptr_glElementPointerAPPLE #-}
-ptr_glElementPointerAPPLE :: FunPtr (GLenum -> Ptr a -> IO ())
-ptr_glElementPointerAPPLE = unsafePerformIO $ getCommand "glElementPointerAPPLE"
-
--- glElementPointerATI ---------------------------------------------------------
-
-glElementPointerATI
-  :: MonadIO m
-  => GLenum -- ^ @type@ of type @ElementPointerTypeATI@.
-  -> Ptr a -- ^ @pointer@ pointing to @COMPSIZE(type)@ elements of type @a@.
-  -> m ()
-glElementPointerATI v1 v2 = liftIO $ dyn230 ptr_glElementPointerATI v1 v2
-
-{-# NOINLINE ptr_glElementPointerATI #-}
-ptr_glElementPointerATI :: FunPtr (GLenum -> Ptr a -> IO ())
-ptr_glElementPointerATI = unsafePerformIO $ getCommand "glElementPointerATI"
-

src/Graphics/GL/Foreign.hs

@@ -15,6 +15,8 @@
 --------------------------------------------------------------------------------
 
 module Graphics.GL.Functions.F07 (
+  glElementPointerAPPLE,
+  glElementPointerATI,
   glEnable,
   glEnableClientState,
   glEnableClientStateIndexedEXT,
@@ -112,9 +114,7 @@ module Graphics.GL.Functions.F07 (
   glFogCoordd,
   glFogCoorddEXT,
   glFogCoorddv,
-  glFogCoorddvEXT,
-  glFogCoordf,
-  glFogCoordfEXT
+  glFogCoorddvEXT
 ) where
 
 import Control.Monad.IO.Class ( MonadIO(..) )
@@ -123,6 +123,32 @@ import Graphics.GL.Foreign
 import Graphics.GL.Types
 import System.IO.Unsafe ( unsafePerformIO )
 
+-- glElementPointerAPPLE -------------------------------------------------------
+
+glElementPointerAPPLE
+  :: MonadIO m
+  => GLenum -- ^ @type@ of type @ElementPointerTypeATI@.
+  -> Ptr a -- ^ @pointer@ pointing to @COMPSIZE(type)@ elements of type @a@.
+  -> m ()
+glElementPointerAPPLE v1 v2 = liftIO $ dyn230 ptr_glElementPointerAPPLE v1 v2
+
+{-# NOINLINE ptr_glElementPointerAPPLE #-}
+ptr_glElementPointerAPPLE :: FunPtr (GLenum -> Ptr a -> IO ())
+ptr_glElementPointerAPPLE = unsafePerformIO $ getCommand "glElementPointerAPPLE"
+
+-- glElementPointerATI ---------------------------------------------------------
+
+glElementPointerATI
+  :: MonadIO m
+  => GLenum -- ^ @type@ of type @ElementPointerTypeATI@.
+  -> Ptr a -- ^ @pointer@ pointing to @COMPSIZE(type)@ elements of type @a@.
+  -> m ()
+glElementPointerATI v1 v2 = liftIO $ dyn230 ptr_glElementPointerATI v1 v2
+
+{-# NOINLINE ptr_glElementPointerATI #-}
+ptr_glElementPointerATI :: FunPtr (GLenum -> Ptr a -> IO ())
+ptr_glElementPointerATI = unsafePerformIO $ getCommand "glElementPointerATI"
+
 -- glEnable --------------------------------------------------------------------
 
 -- | Manual pages for <https://www.opengl.org/sdk/docs/man2/xhtml/glEnable.xml OpenGL 2.x> or <https://www.opengl.org/sdk/docs/man3/xhtml/glEnable.xml OpenGL 3.x> or <https://www.opengl.org/sdk/docs/man4/html/glEnable.xhtml OpenGL 4.x>.
@@ -1418,29 +1444,3 @@ glFogCoorddvEXT v1 = liftIO $ dyn39 ptr_glFogCoorddvEXT v1
 ptr_glFogCoorddvEXT :: FunPtr (Ptr GLdouble -> IO ())
 ptr_glFogCoorddvEXT = unsafePerformIO $ getCommand "glFogCoorddvEXT"
 
--- glFogCoordf -----------------------------------------------------------------
-
--- | Manual page for <https://www.opengl.org/sdk/docs/man2/xhtml/glFogCoord.xml OpenGL 2.x>. The vector equivalent of this command is 'glFogCoordfv'.
-glFogCoordf
-  :: MonadIO m
-  => GLfloat -- ^ @coord@ of type @CoordF@.
-  -> m ()
-glFogCoordf v1 = liftIO $ dyn79 ptr_glFogCoordf v1
-
-{-# NOINLINE ptr_glFogCoordf #-}
-ptr_glFogCoordf :: FunPtr (GLfloat -> IO ())
-ptr_glFogCoordf = unsafePerformIO $ getCommand "glFogCoordf"
-
--- glFogCoordfEXT --------------------------------------------------------------
-
--- | The vector equivalent of this command is 'glFogCoordfvEXT'. This command is an alias for 'glFogCoordf'.
-glFogCoordfEXT
-  :: MonadIO m
-  => GLfloat -- ^ @coord@ of type @CoordF@.
-  -> m ()
-glFogCoordfEXT v1 = liftIO $ dyn79 ptr_glFogCoordfEXT v1
-
-{-# NOINLINE ptr_glFogCoordfEXT #-}
-ptr_glFogCoordfEXT :: FunPtr (GLfloat -> IO ())
-ptr_glFogCoordfEXT = unsafePerformIO $ getCommand "glFogCoordfEXT"
-