Skip to content

Commit cccb052

Browse files
svenpannesvenpanne
committed
Updated OpenGL registry to r33080. Bumped version to 3.2.2.0.
1 parent e00da32 commit cccb052

File tree

32 files changed

+1840
-1684
lines changed

32 files changed

+1840
-1684
lines changed

‎CHANGELOG.md‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,7 @@
1+
3.2.2.0
2+
-------
3+
* Updated OpenGL registry to r33080.
4+
15
3.2.1.0
26
-------
37
* Updated OpenGL registry to r33061.

‎OpenGLRaw.cabal‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
name: OpenGLRaw
2-
version: 3.2.1.0
2+
version: 3.2.2.0
33
synopsis: A raw binding for the OpenGL graphics system
44
description:
55
OpenGLRaw is a raw Haskell binding for the OpenGL 4.5 graphics system and

‎RegistryProcessor/OpenGL-Registry‎

‎src/Graphics/GL/Functions/F05.hs‎

Lines changed: 31 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -106,15 +106,15 @@ module Graphics.GL.Functions.F05 (
106106
glDepthMask,
107107
glDepthRange,
108108
glDepthRangeArrayfvNV,
109+
glDepthRangeArrayfvOES,
109110
glDepthRangeArrayv,
110111
glDepthRangeIndexed,
111112
glDepthRangeIndexedfNV,
113+
glDepthRangeIndexedfOES,
112114
glDepthRangedNV,
113115
glDepthRangef,
114116
glDepthRangefOES,
115-
glDepthRangex,
116-
glDepthRangexOES,
117-
glDetachObjectARB
117+
glDepthRangex
118118
) where
119119

120120
import Control.Monad.IO.Class ( MonadIO(..) )
@@ -1394,6 +1394,20 @@ glDepthRangeArrayfvNV v1 v2 v3 = liftIO $ dyn218 ptr_glDepthRangeArrayfvNV v1 v2
13941394
ptr_glDepthRangeArrayfvNV :: FunPtr (GLuint -> GLsizei -> Ptr GLfloat -> IO ())
13951395
ptr_glDepthRangeArrayfvNV = unsafePerformIO $ getCommand "glDepthRangeArrayfvNV"
13961396

1397+
-- glDepthRangeArrayfvOES ------------------------------------------------------
1398+
1399+
glDepthRangeArrayfvOES
1400+
:: MonadIO m
1401+
=> GLuint -- ^ @first@.
1402+
-> GLsizei -- ^ @count@.
1403+
-> Ptr GLfloat -- ^ @v@.
1404+
-> m ()
1405+
glDepthRangeArrayfvOES v1 v2 v3 = liftIO $ dyn218 ptr_glDepthRangeArrayfvOES v1 v2 v3
1406+
1407+
{-# NOINLINE ptr_glDepthRangeArrayfvOES #-}
1408+
ptr_glDepthRangeArrayfvOES :: FunPtr (GLuint -> GLsizei -> Ptr GLfloat -> IO ())
1409+
ptr_glDepthRangeArrayfvOES = unsafePerformIO $ getCommand "glDepthRangeArrayfvOES"
1410+
13971411
-- glDepthRangeArrayv ----------------------------------------------------------
13981412

13991413
-- | Manual page for <https://www.opengl.org/sdk/docs/man4/html/glDepthRangeArray.xhtml OpenGL 4.x>.
@@ -1438,6 +1452,20 @@ glDepthRangeIndexedfNV v1 v2 v3 = liftIO $ dyn221 ptr_glDepthRangeIndexedfNV v1
14381452
ptr_glDepthRangeIndexedfNV :: FunPtr (GLuint -> GLfloat -> GLfloat -> IO ())
14391453
ptr_glDepthRangeIndexedfNV = unsafePerformIO $ getCommand "glDepthRangeIndexedfNV"
14401454

1455+
-- glDepthRangeIndexedfOES -----------------------------------------------------
1456+
1457+
glDepthRangeIndexedfOES
1458+
:: MonadIO m
1459+
=> GLuint -- ^ @index@.
1460+
-> GLfloat -- ^ @n@.
1461+
-> GLfloat -- ^ @f@.
1462+
-> m ()
1463+
glDepthRangeIndexedfOES v1 v2 v3 = liftIO $ dyn221 ptr_glDepthRangeIndexedfOES v1 v2 v3
1464+
1465+
{-# NOINLINE ptr_glDepthRangeIndexedfOES #-}
1466+
ptr_glDepthRangeIndexedfOES :: FunPtr (GLuint -> GLfloat -> GLfloat -> IO ())
1467+
ptr_glDepthRangeIndexedfOES = unsafePerformIO $ getCommand "glDepthRangeIndexedfOES"
1468+
14411469
-- glDepthRangedNV -------------------------------------------------------------
14421470

14431471
glDepthRangedNV
@@ -1492,30 +1520,3 @@ glDepthRangex v1 v2 = liftIO $ dyn224 ptr_glDepthRangex v1 v2
14921520
ptr_glDepthRangex :: FunPtr (GLfixed -> GLfixed -> IO ())
14931521
ptr_glDepthRangex = unsafePerformIO $ getCommand "glDepthRangex"
14941522

1495-
-- glDepthRangexOES ------------------------------------------------------------
1496-
1497-
glDepthRangexOES
1498-
:: MonadIO m
1499-
=> GLfixed -- ^ @n@ of type @ClampedFixed@.
1500-
-> GLfixed -- ^ @f@ of type @ClampedFixed@.
1501-
-> m ()
1502-
glDepthRangexOES v1 v2 = liftIO $ dyn224 ptr_glDepthRangexOES v1 v2
1503-
1504-
{-# NOINLINE ptr_glDepthRangexOES #-}
1505-
ptr_glDepthRangexOES :: FunPtr (GLfixed -> GLfixed -> IO ())
1506-
ptr_glDepthRangexOES = unsafePerformIO $ getCommand "glDepthRangexOES"
1507-
1508-
-- glDetachObjectARB -----------------------------------------------------------
1509-
1510-
-- | This command is an alias for 'glDetachShader'.
1511-
glDetachObjectARB
1512-
:: MonadIO m
1513-
=> GLhandleARB -- ^ @containerObj@ of type @handleARB@.
1514-
-> GLhandleARB -- ^ @attachedObj@ of type @handleARB@.
1515-
-> m ()
1516-
glDetachObjectARB v1 v2 = liftIO $ dyn14 ptr_glDetachObjectARB v1 v2
1517-
1518-
{-# NOINLINE ptr_glDetachObjectARB #-}
1519-
ptr_glDetachObjectARB :: FunPtr (GLhandleARB -> GLhandleARB -> IO ())
1520-
ptr_glDetachObjectARB = unsafePerformIO $ getCommand "glDetachObjectARB"
1521-

‎src/Graphics/GL/Functions/F06.hs‎

Lines changed: 30 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,8 @@
1515
--------------------------------------------------------------------------------
1616

1717
module Graphics.GL.Functions.F06 (
18+
glDepthRangexOES,
19+
glDetachObjectARB,
1820
glDetachShader,
1921
glDetailTexFuncSGIS,
2022
glDisable,
@@ -112,9 +114,7 @@ module Graphics.GL.Functions.F06 (
112114
glElementPointerAPPLE,
113115
glElementPointerATI,
114116
glEnable,
115-
glEnableClientState,
116-
glEnableClientStateIndexedEXT,
117-
glEnableClientStateiEXT
117+
glEnableClientState
118118
) where
119119

120120
import Control.Monad.IO.Class ( MonadIO(..) )
@@ -123,6 +123,33 @@ import Graphics.GL.Foreign
123123
import Graphics.GL.Types
124124
import System.IO.Unsafe ( unsafePerformIO )
125125

126+
-- glDepthRangexOES ------------------------------------------------------------
127+
128+
glDepthRangexOES
129+
:: MonadIO m
130+
=> GLfixed -- ^ @n@ of type @ClampedFixed@.
131+
-> GLfixed -- ^ @f@ of type @ClampedFixed@.
132+
-> m ()
133+
glDepthRangexOES v1 v2 = liftIO $ dyn224 ptr_glDepthRangexOES v1 v2
134+
135+
{-# NOINLINE ptr_glDepthRangexOES #-}
136+
ptr_glDepthRangexOES :: FunPtr (GLfixed -> GLfixed -> IO ())
137+
ptr_glDepthRangexOES = unsafePerformIO $ getCommand "glDepthRangexOES"
138+
139+
-- glDetachObjectARB -----------------------------------------------------------
140+
141+
-- | This command is an alias for 'glDetachShader'.
142+
glDetachObjectARB
143+
:: MonadIO m
144+
=> GLhandleARB -- ^ @containerObj@ of type @handleARB@.
145+
-> GLhandleARB -- ^ @attachedObj@ of type @handleARB@.
146+
-> m ()
147+
glDetachObjectARB v1 v2 = liftIO $ dyn14 ptr_glDetachObjectARB v1 v2
148+
149+
{-# NOINLINE ptr_glDetachObjectARB #-}
150+
ptr_glDetachObjectARB :: FunPtr (GLhandleARB -> GLhandleARB -> IO ())
151+
ptr_glDetachObjectARB = unsafePerformIO $ getCommand "glDetachObjectARB"
152+
126153
-- glDetachShader --------------------------------------------------------------
127154

128155
-- | Manual pages for <https://www.opengl.org/sdk/docs/man2/xhtml/glDetachShader.xml OpenGL 2.x> or <https://www.opengl.org/sdk/docs/man3/xhtml/glDetachShader.xml OpenGL 3.x> or <https://www.opengl.org/sdk/docs/man4/html/glDetachShader.xhtml OpenGL 4.x>.
@@ -1597,29 +1624,3 @@ glEnableClientState v1 = liftIO $ dyn4 ptr_glEnableClientState v1
15971624
ptr_glEnableClientState :: FunPtr (GLenum -> IO ())
15981625
ptr_glEnableClientState = unsafePerformIO $ getCommand "glEnableClientState"
15991626

1600-
-- glEnableClientStateIndexedEXT -----------------------------------------------
1601-
1602-
glEnableClientStateIndexedEXT
1603-
:: MonadIO m
1604-
=> GLenum -- ^ @array@ of type [EnableCap](Graphics-GL-Groups.html#EnableCap).
1605-
-> GLuint -- ^ @index@.
1606-
-> m ()
1607-
glEnableClientStateIndexedEXT v1 v2 = liftIO $ dyn16 ptr_glEnableClientStateIndexedEXT v1 v2
1608-
1609-
{-# NOINLINE ptr_glEnableClientStateIndexedEXT #-}
1610-
ptr_glEnableClientStateIndexedEXT :: FunPtr (GLenum -> GLuint -> IO ())
1611-
ptr_glEnableClientStateIndexedEXT = unsafePerformIO $ getCommand "glEnableClientStateIndexedEXT"
1612-
1613-
-- glEnableClientStateiEXT -----------------------------------------------------
1614-
1615-
glEnableClientStateiEXT
1616-
:: MonadIO m
1617-
=> GLenum -- ^ @array@ of type [EnableCap](Graphics-GL-Groups.html#EnableCap).
1618-
-> GLuint -- ^ @index@.
1619-
-> m ()
1620-
glEnableClientStateiEXT v1 v2 = liftIO $ dyn16 ptr_glEnableClientStateiEXT v1 v2
1621-
1622-
{-# NOINLINE ptr_glEnableClientStateiEXT #-}
1623-
ptr_glEnableClientStateiEXT :: FunPtr (GLenum -> GLuint -> IO ())
1624-
ptr_glEnableClientStateiEXT = unsafePerformIO $ getCommand "glEnableClientStateiEXT"
1625-

‎src/Graphics/GL/Functions/F07.hs‎

Lines changed: 29 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,8 @@
1515
--------------------------------------------------------------------------------
1616

1717
module Graphics.GL.Functions.F07 (
18+
glEnableClientStateIndexedEXT,
19+
glEnableClientStateiEXT,
1820
glEnableDriverControlQCOM,
1921
glEnableIndexedEXT,
2022
glEnableVariantClientStateEXT,
@@ -112,9 +114,7 @@ module Graphics.GL.Functions.F07 (
112114
glFogCoordf,
113115
glFogCoordfEXT,
114116
glFogCoordfv,
115-
glFogCoordfvEXT,
116-
glFogCoordhNV,
117-
glFogCoordhvNV
117+
glFogCoordfvEXT
118118
) where
119119

120120
import Control.Monad.IO.Class ( MonadIO(..) )
@@ -123,6 +123,32 @@ import Graphics.GL.Foreign
123123
import Graphics.GL.Types
124124
import System.IO.Unsafe ( unsafePerformIO )
125125

126+
-- glEnableClientStateIndexedEXT -----------------------------------------------
127+
128+
glEnableClientStateIndexedEXT
129+
:: MonadIO m
130+
=> GLenum -- ^ @array@ of type [EnableCap](Graphics-GL-Groups.html#EnableCap).
131+
-> GLuint -- ^ @index@.
132+
-> m ()
133+
glEnableClientStateIndexedEXT v1 v2 = liftIO $ dyn16 ptr_glEnableClientStateIndexedEXT v1 v2
134+
135+
{-# NOINLINE ptr_glEnableClientStateIndexedEXT #-}
136+
ptr_glEnableClientStateIndexedEXT :: FunPtr (GLenum -> GLuint -> IO ())
137+
ptr_glEnableClientStateIndexedEXT = unsafePerformIO $ getCommand "glEnableClientStateIndexedEXT"
138+
139+
-- glEnableClientStateiEXT -----------------------------------------------------
140+
141+
glEnableClientStateiEXT
142+
:: MonadIO m
143+
=> GLenum -- ^ @array@ of type [EnableCap](Graphics-GL-Groups.html#EnableCap).
144+
-> GLuint -- ^ @index@.
145+
-> m ()
146+
glEnableClientStateiEXT v1 v2 = liftIO $ dyn16 ptr_glEnableClientStateiEXT v1 v2
147+
148+
{-# NOINLINE ptr_glEnableClientStateiEXT #-}
149+
ptr_glEnableClientStateiEXT :: FunPtr (GLenum -> GLuint -> IO ())
150+
ptr_glEnableClientStateiEXT = unsafePerformIO $ getCommand "glEnableClientStateiEXT"
151+
126152
-- glEnableDriverControlQCOM ---------------------------------------------------
127153

128154
glEnableDriverControlQCOM
@@ -1418,28 +1444,3 @@ glFogCoordfvEXT v1 = liftIO $ dyn41 ptr_glFogCoordfvEXT v1
14181444
ptr_glFogCoordfvEXT :: FunPtr (Ptr GLfloat -> IO ())
14191445
ptr_glFogCoordfvEXT = unsafePerformIO $ getCommand "glFogCoordfvEXT"
14201446

1421-
-- glFogCoordhNV ---------------------------------------------------------------
1422-
1423-
-- | The vector equivalent of this command is 'glFogCoordhvNV'.
1424-
glFogCoordhNV
1425-
:: MonadIO m
1426-
=> GLhalfNV -- ^ @fog@ of type @Half16NV@.
1427-
-> m ()
1428-
glFogCoordhNV v1 = liftIO $ dyn281 ptr_glFogCoordhNV v1
1429-
1430-
{-# NOINLINE ptr_glFogCoordhNV #-}
1431-
ptr_glFogCoordhNV :: FunPtr (GLhalfNV -> IO ())
1432-
ptr_glFogCoordhNV = unsafePerformIO $ getCommand "glFogCoordhNV"
1433-
1434-
-- glFogCoordhvNV --------------------------------------------------------------
1435-
1436-
glFogCoordhvNV
1437-
:: MonadIO m
1438-
=> Ptr GLhalfNV -- ^ @fog@ pointing to @1@ element of type @Half16NV@.
1439-
-> m ()
1440-
glFogCoordhvNV v1 = liftIO $ dyn99 ptr_glFogCoordhvNV v1
1441-
1442-
{-# NOINLINE ptr_glFogCoordhvNV #-}
1443-
ptr_glFogCoordhvNV :: FunPtr (Ptr GLhalfNV -> IO ())
1444-
ptr_glFogCoordhvNV = unsafePerformIO $ getCommand "glFogCoordhvNV"
1445-

‎src/Graphics/GL/Functions/F08.hs‎

Lines changed: 28 additions & 28 deletions
Original file line numberDiff line numberDiff line change
@@ -15,6 +15,8 @@
1515
--------------------------------------------------------------------------------
1616

1717
module Graphics.GL.Functions.F08 (
18+
glFogCoordhNV,
19+
glFogCoordhvNV,
1820
glFogFuncSGIS,
1921
glFogf,
2022
glFogfv,
@@ -112,9 +114,7 @@ module Graphics.GL.Functions.F08 (
112114
glGenTransformFeedbacksNV,
113115
glGenVertexArrays,
114116
glGenVertexArraysAPPLE,
115-
glGenVertexArraysOES,
116-
glGenVertexShadersEXT,
117-
glGenerateMipmap
117+
glGenVertexArraysOES
118118
) where
119119

120120
import Control.Monad.IO.Class ( MonadIO(..) )
@@ -123,6 +123,31 @@ import Graphics.GL.Foreign
123123
import Graphics.GL.Types
124124
import System.IO.Unsafe ( unsafePerformIO )
125125

126+
-- glFogCoordhNV ---------------------------------------------------------------
127+
128+
-- | The vector equivalent of this command is 'glFogCoordhvNV'.
129+
glFogCoordhNV
130+
:: MonadIO m
131+
=> GLhalfNV -- ^ @fog@ of type @Half16NV@.
132+
-> m ()
133+
glFogCoordhNV v1 = liftIO $ dyn281 ptr_glFogCoordhNV v1
134+
135+
{-# NOINLINE ptr_glFogCoordhNV #-}
136+
ptr_glFogCoordhNV :: FunPtr (GLhalfNV -> IO ())
137+
ptr_glFogCoordhNV = unsafePerformIO $ getCommand "glFogCoordhNV"
138+
139+
-- glFogCoordhvNV --------------------------------------------------------------
140+
141+
glFogCoordhvNV
142+
:: MonadIO m
143+
=> Ptr GLhalfNV -- ^ @fog@ pointing to @1@ element of type @Half16NV@.
144+
-> m ()
145+
glFogCoordhvNV v1 = liftIO $ dyn99 ptr_glFogCoordhvNV v1
146+
147+
{-# NOINLINE ptr_glFogCoordhvNV #-}
148+
ptr_glFogCoordhvNV :: FunPtr (Ptr GLhalfNV -> IO ())
149+
ptr_glFogCoordhvNV = unsafePerformIO $ getCommand "glFogCoordhvNV"
150+
126151
-- glFogFuncSGIS ---------------------------------------------------------------
127152

128153
glFogFuncSGIS
@@ -1549,28 +1574,3 @@ glGenVertexArraysOES v1 v2 = liftIO $ dyn193 ptr_glGenVertexArraysOES v1 v2
15491574
ptr_glGenVertexArraysOES :: FunPtr (GLsizei -> Ptr GLuint -> IO ())
15501575
ptr_glGenVertexArraysOES = unsafePerformIO $ getCommand "glGenVertexArraysOES"
15511576

1552-
-- glGenVertexShadersEXT -------------------------------------------------------
1553-
1554-
glGenVertexShadersEXT
1555-
:: MonadIO m
1556-
=> GLuint -- ^ @range@.
1557-
-> m GLuint
1558-
glGenVertexShadersEXT v1 = liftIO $ dyn298 ptr_glGenVertexShadersEXT v1
1559-
1560-
{-# NOINLINE ptr_glGenVertexShadersEXT #-}
1561-
ptr_glGenVertexShadersEXT :: FunPtr (GLuint -> IO GLuint)
1562-
ptr_glGenVertexShadersEXT = unsafePerformIO $ getCommand "glGenVertexShadersEXT"
1563-
1564-
-- glGenerateMipmap ------------------------------------------------------------
1565-
1566-
-- | Manual pages for <https://www.opengl.org/sdk/docs/man3/xhtml/glGenerateMipmap.xml OpenGL 3.x> or <https://www.opengl.org/sdk/docs/man4/html/glGenerateMipmap.xhtml OpenGL 4.x>.
1567-
glGenerateMipmap
1568-
:: MonadIO m
1569-
=> GLenum -- ^ @target@.
1570-
-> m ()
1571-
glGenerateMipmap v1 = liftIO $ dyn4 ptr_glGenerateMipmap v1
1572-
1573-
{-# NOINLINE ptr_glGenerateMipmap #-}
1574-
ptr_glGenerateMipmap :: FunPtr (GLenum -> IO ())
1575-
ptr_glGenerateMipmap = unsafePerformIO $ getCommand "glGenerateMipmap"
1576-

0 commit comments

Comments
 (0)