Updated OpenGL registry to 39e37f838. Bumped version to 3.3.2.0.

Author: svenpanne

.travis.yml

@@ -44,10 +44,10 @@ matrix:
     # env: TEST=--disable-tests BENCH=--disable-benchmarks
       env: HADDOCK=false
       addons: {apt: {packages: [ghc-ppa-tools,cabal-install-head,ghc-8.4.3], sources: [hvr-ghc]}}
-    - compiler: "ghc-8.6.1"
+    - compiler: "ghc-8.6.3"
     # env: TEST=--disable-tests BENCH=--disable-benchmarks
       env: HADDOCK=false
-      addons: {apt: {packages: [ghc-ppa-tools,cabal-install-head,ghc-8.6.1], sources: [hvr-ghc]}}
+      addons: {apt: {packages: [ghc-ppa-tools,cabal-install-head,ghc-8.6.3], sources: [hvr-ghc]}}
     - compiler: "ghc-head"
       env: GHCHEAD=true HADDOCK=false
       addons: {apt: {packages: [ghc-ppa-tools,cabal-install-head,ghc-head], sources: [hvr-ghc]}}

CHANGELOG.md

@@ -1,3 +1,7 @@
+3.3.2.0
+-------
+* Updated OpenGL registry to 39e37f838.
+
 3.3.1.0
 -------
 * Updated OpenGL registry to accf5ad3c.

OpenGLRaw.cabal

@@ -1,5 +1,5 @@
 name: OpenGLRaw
-version: 3.3.1.0
+version: 3.3.2.0
 synopsis: A raw binding for the OpenGL graphics system
 description:
   OpenGLRaw is a raw Haskell binding for the OpenGL 4.6 graphics system and
@@ -33,7 +33,7 @@ tested-with:
   GHC == 8.0.2
   GHC == 8.2.2
   GHC == 8.4.3
-  GHC == 8.6.1
+  GHC == 8.6.3
   GHC == 8.7.*
 cabal-version: >= 1.10
 extra-source-files:
@@ -385,6 +385,7 @@ library
     Graphics.GL.EXT.TextureSNorm
     Graphics.GL.EXT.TextureSRGB
     Graphics.GL.EXT.TextureSRGBDecode
+    Graphics.GL.EXT.TextureSRGBR8
     Graphics.GL.EXT.TextureSharedExponent
     Graphics.GL.EXT.TextureSwizzle
     Graphics.GL.EXT.TimerQuery
@@ -488,6 +489,8 @@ library
     Graphics.GL.NV.HalfFloat
     Graphics.GL.NV.InternalformatSampleQuery
     Graphics.GL.NV.LightMaxExponent
+    Graphics.GL.NV.MemoryAttachment
+    Graphics.GL.NV.MeshShader
     Graphics.GL.NV.MultisampleCoverage
     Graphics.GL.NV.MultisampleFilterHint
     Graphics.GL.NV.OcclusionQuery
@@ -504,11 +507,14 @@ library
     Graphics.GL.NV.QueryResourceTag
     Graphics.GL.NV.RegisterCombiners
     Graphics.GL.NV.RegisterCombiners2
+    Graphics.GL.NV.RepresentativeFragmentTest
     Graphics.GL.NV.RobustnessVideoMemoryPurge
     Graphics.GL.NV.SampleLocations
+    Graphics.GL.NV.ScissorExclusive
     Graphics.GL.NV.ShaderBufferLoad
     Graphics.GL.NV.ShaderBufferStore
     Graphics.GL.NV.ShaderThreadGroup
+    Graphics.GL.NV.ShadingRateImage
     Graphics.GL.NV.TessellationProgram5
     Graphics.GL.NV.TexgenEmboss
     Graphics.GL.NV.TexgenReflection
@@ -524,6 +530,7 @@ library
     Graphics.GL.NV.TransformFeedback2
     Graphics.GL.NV.UniformBufferUnifiedMemory
     Graphics.GL.NV.VDPAUInterop
+    Graphics.GL.NV.VDPAUInterop2
     Graphics.GL.NV.VertexArrayRange
     Graphics.GL.NV.VertexArrayRange2
     Graphics.GL.NV.VertexAttribInteger64Bit

src/Graphics/GL/ARB/InternalformatQuery2.hs

@@ -122,8 +122,27 @@ module Graphics.GL.ARB.InternalformatQuery2 (
   pattern GL_VIEW_CLASS_64_BITS,
   pattern GL_VIEW_CLASS_8_BITS,
   pattern GL_VIEW_CLASS_96_BITS,
+  pattern GL_VIEW_CLASS_ASTC_10x10_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_10x5_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_10x6_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_10x8_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_12x10_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_12x12_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_4x4_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_5x4_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_5x5_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_6x5_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_6x6_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_8x5_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_8x6_RGBA,
+  pattern GL_VIEW_CLASS_ASTC_8x8_RGBA,
   pattern GL_VIEW_CLASS_BPTC_FLOAT,
   pattern GL_VIEW_CLASS_BPTC_UNORM,
+  pattern GL_VIEW_CLASS_EAC_R11,
+  pattern GL_VIEW_CLASS_EAC_RG11,
+  pattern GL_VIEW_CLASS_ETC2_EAC_RGBA,
+  pattern GL_VIEW_CLASS_ETC2_RGB,
+  pattern GL_VIEW_CLASS_ETC2_RGBA,
   pattern GL_VIEW_CLASS_RGTC1_RED,
   pattern GL_VIEW_CLASS_RGTC2_RG,
   pattern GL_VIEW_CLASS_S3TC_DXT1_RGB,

src/Graphics/GL/EXT.hs

@@ -104,6 +104,7 @@ module Graphics.GL.EXT (
   module Graphics.GL.EXT.TextureSNorm,
   module Graphics.GL.EXT.TextureSRGB,
   module Graphics.GL.EXT.TextureSRGBDecode,
+  module Graphics.GL.EXT.TextureSRGBR8,
   module Graphics.GL.EXT.TextureSharedExponent,
   module Graphics.GL.EXT.TextureSwizzle,
   module Graphics.GL.EXT.TimerQuery,
@@ -209,6 +210,7 @@ import Graphics.GL.EXT.TexturePerturbNormal
 import Graphics.GL.EXT.TextureSNorm
 import Graphics.GL.EXT.TextureSRGB
 import Graphics.GL.EXT.TextureSRGBDecode
+import Graphics.GL.EXT.TextureSRGBR8
 import Graphics.GL.EXT.TextureSharedExponent
 import Graphics.GL.EXT.TextureSwizzle
 import Graphics.GL.EXT.TimerQuery

src/Graphics/GL/EXT/TextureSRGBR8.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE PatternSynonyms #-}
+--------------------------------------------------------------------------------
+-- |
+-- Module      :  Graphics.GL.EXT.TextureSRGBR8
+-- Copyright   :  (c) Sven Panne 2018
+-- License     :  BSD3
+--
+-- Maintainer  :  Sven Panne <[email protected]>
+-- Stability   :  stable
+-- Portability :  portable
+--
+--------------------------------------------------------------------------------
+
+module Graphics.GL.EXT.TextureSRGBR8 (
+  -- * Extension Support
+  glGetEXTTextureSRGBR8,
+  gl_EXT_texture_sRGB_R8,
+  -- * Enums
+  pattern GL_SR8_EXT
+) where
+
+import Graphics.GL.ExtensionPredicates
+import Graphics.GL.Tokens

src/Graphics/GL/ExtensionPredicates.hs

@@ -3132,6 +3132,17 @@ gl_EXT_texture_sRGB :: Bool
 gl_EXT_texture_sRGB = member "GL_EXT_texture_sRGB" extensions
 {-# NOINLINE gl_EXT_texture_sRGB #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/EXT/texture_sRGB_R8.txt EXT_texture_sRGB_R8> extension supported?
+glGetEXTTextureSRGBR8 :: MonadIO m => m Bool
+glGetEXTTextureSRGBR8 = getExtensions >>= (return . member "GL_EXT_texture_sRGB_R8")
+
+-- | Is the <https://www.opengl.org/registry/specs/EXT/texture_sRGB_R8.txt EXT_texture_sRGB_R8> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetEXTTextureSRGBR8' in those cases instead.
+gl_EXT_texture_sRGB_R8 :: Bool
+gl_EXT_texture_sRGB_R8 = member "GL_EXT_texture_sRGB_R8" extensions
+{-# NOINLINE gl_EXT_texture_sRGB_R8 #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/EXT/texture_sRGB_decode.txt EXT_texture_sRGB_decode> extension supported?
 glGetEXTTextureSRGBDecode :: MonadIO m => m Bool
 glGetEXTTextureSRGBDecode = getExtensions >>= (return . member "GL_EXT_texture_sRGB_decode")
@@ -4144,6 +4155,28 @@ gl_NV_light_max_exponent :: Bool
 gl_NV_light_max_exponent = member "GL_NV_light_max_exponent" extensions
 {-# NOINLINE gl_NV_light_max_exponent #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/memory_attachment.txt NV_memory_attachment> extension supported?
+glGetNVMemoryAttachment :: MonadIO m => m Bool
+glGetNVMemoryAttachment = getExtensions >>= (return . member "GL_NV_memory_attachment")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/memory_attachment.txt NV_memory_attachment> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVMemoryAttachment' in those cases instead.
+gl_NV_memory_attachment :: Bool
+gl_NV_memory_attachment = member "GL_NV_memory_attachment" extensions
+{-# NOINLINE gl_NV_memory_attachment #-}
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/mesh_shader.txt NV_mesh_shader> extension supported?
+glGetNVMeshShader :: MonadIO m => m Bool
+glGetNVMeshShader = getExtensions >>= (return . member "GL_NV_mesh_shader")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/mesh_shader.txt NV_mesh_shader> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVMeshShader' in those cases instead.
+gl_NV_mesh_shader :: Bool
+gl_NV_mesh_shader = member "GL_NV_mesh_shader" extensions
+{-# NOINLINE gl_NV_mesh_shader #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/multisample_coverage.txt NV_multisample_coverage> extension supported?
 glGetNVMultisampleCoverage :: MonadIO m => m Bool
 glGetNVMultisampleCoverage = getExtensions >>= (return . member "GL_NV_multisample_coverage")
@@ -4309,6 +4342,17 @@ gl_NV_register_combiners2 :: Bool
 gl_NV_register_combiners2 = member "GL_NV_register_combiners2" extensions
 {-# NOINLINE gl_NV_register_combiners2 #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/representative_fragment_test.txt NV_representative_fragment_test> extension supported?
+glGetNVRepresentativeFragmentTest :: MonadIO m => m Bool
+glGetNVRepresentativeFragmentTest = getExtensions >>= (return . member "GL_NV_representative_fragment_test")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/representative_fragment_test.txt NV_representative_fragment_test> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVRepresentativeFragmentTest' in those cases instead.
+gl_NV_representative_fragment_test :: Bool
+gl_NV_representative_fragment_test = member "GL_NV_representative_fragment_test" extensions
+{-# NOINLINE gl_NV_representative_fragment_test #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/robustness_video_memory_purge.txt NV_robustness_video_memory_purge> extension supported?
 glGetNVRobustnessVideoMemoryPurge :: MonadIO m => m Bool
 glGetNVRobustnessVideoMemoryPurge = getExtensions >>= (return . member "GL_NV_robustness_video_memory_purge")
@@ -4331,6 +4375,17 @@ gl_NV_sample_locations :: Bool
 gl_NV_sample_locations = member "GL_NV_sample_locations" extensions
 {-# NOINLINE gl_NV_sample_locations #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/scissor_exclusive.txt NV_scissor_exclusive> extension supported?
+glGetNVScissorExclusive :: MonadIO m => m Bool
+glGetNVScissorExclusive = getExtensions >>= (return . member "GL_NV_scissor_exclusive")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/scissor_exclusive.txt NV_scissor_exclusive> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVScissorExclusive' in those cases instead.
+gl_NV_scissor_exclusive :: Bool
+gl_NV_scissor_exclusive = member "GL_NV_scissor_exclusive" extensions
+{-# NOINLINE gl_NV_scissor_exclusive #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/shader_buffer_load.txt NV_shader_buffer_load> extension supported?
 glGetNVShaderBufferLoad :: MonadIO m => m Bool
 glGetNVShaderBufferLoad = getExtensions >>= (return . member "GL_NV_shader_buffer_load")
@@ -4364,6 +4419,17 @@ gl_NV_shader_thread_group :: Bool
 gl_NV_shader_thread_group = member "GL_NV_shader_thread_group" extensions
 {-# NOINLINE gl_NV_shader_thread_group #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/shading_rate_image.txt NV_shading_rate_image> extension supported?
+glGetNVShadingRateImage :: MonadIO m => m Bool
+glGetNVShadingRateImage = getExtensions >>= (return . member "GL_NV_shading_rate_image")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/shading_rate_image.txt NV_shading_rate_image> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVShadingRateImage' in those cases instead.
+gl_NV_shading_rate_image :: Bool
+gl_NV_shading_rate_image = member "GL_NV_shading_rate_image" extensions
+{-# NOINLINE gl_NV_shading_rate_image #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/tessellation_program5.txt NV_tessellation_program5> extension supported?
 glGetNVTessellationProgram5 :: MonadIO m => m Bool
 glGetNVTessellationProgram5 = getExtensions >>= (return . member "GL_NV_tessellation_program5")
@@ -4529,6 +4595,17 @@ gl_NV_vdpau_interop :: Bool
 gl_NV_vdpau_interop = member "GL_NV_vdpau_interop" extensions
 {-# NOINLINE gl_NV_vdpau_interop #-}
 
+-- | Is the <https://www.opengl.org/registry/specs/NV/vdpau_interop2.txt NV_vdpau_interop2> extension supported?
+glGetNVVDPAUInterop2 :: MonadIO m => m Bool
+glGetNVVDPAUInterop2 = getExtensions >>= (return . member "GL_NV_vdpau_interop2")
+
+-- | Is the <https://www.opengl.org/registry/specs/NV/vdpau_interop2.txt NV_vdpau_interop2> extension supported?
+-- Note that in the presence of multiple contexts with different capabilities,
+-- this might be wrong. Use 'glGetNVVDPAUInterop2' in those cases instead.
+gl_NV_vdpau_interop2 :: Bool
+gl_NV_vdpau_interop2 = member "GL_NV_vdpau_interop2" extensions
+{-# NOINLINE gl_NV_vdpau_interop2 #-}
+
 -- | Is the <https://www.opengl.org/registry/specs/NV/vertex_array_range.txt NV_vertex_array_range> extension supported?
 glGetNVVertexArrayRange :: MonadIO m => m Bool
 glGetNVVertexArrayRange = getExtensions >>= (return . member "GL_NV_vertex_array_range")