Restructured GeometryShader4 according to gl.xml.

Author: svenpanne

src/Graphics/Rendering/OpenGL/Raw/ARB/GeometryShader4.hs

@@ -20,35 +20,38 @@ module Graphics.Rendering.OpenGL.Raw.ARB.GeometryShader4 (
    glFramebufferTexture,
    glFramebufferTextureLayer,
    glFramebufferTextureFace,
+
    -- * Tokens
+   gl_LINES_ADJACENCY,
+   gl_LINE_STRIP_ADJACENCY,
+   gl_TRIANGLES_ADJACENCY,
+   gl_TRIANGLE_STRIP_ADJACENCY,
+   gl_PROGRAM_POINT_SIZE,
+   gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS,
+   gl_FRAMEBUFFER_ATTACHMENT_LAYERED,
+   gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS,
+   gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT,
    gl_GEOMETRY_SHADER,
    gl_GEOMETRY_VERTICES_OUT,
    gl_GEOMETRY_INPUT_TYPE,
    gl_GEOMETRY_OUTPUT_TYPE,
-   gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS,
    gl_MAX_GEOMETRY_VARYING_COMPONENTS,
    gl_MAX_VERTEX_VARYING_COMPONENTS,
-   gl_MAX_VARYING_COMPONENTS,
    gl_MAX_GEOMETRY_UNIFORM_COMPONENTS,
    gl_MAX_GEOMETRY_OUTPUT_VERTICES,
    gl_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS,
-   gl_LINES_ADJACENCY,
-   gl_LINE_STRIP_ADJACENCY,
-   gl_TRIANGLES_ADJACENCY,
-   gl_TRIANGLE_STRIP_ADJACENCY,
-   gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS,
-   gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT,
-   gl_FRAMEBUFFER_ATTACHMENT_LAYERED,
-   gl_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER,
-   gl_PROGRAM_POINT_SIZE
+   gl_MAX_VARYING_COMPONENTS,
+   gl_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER
 ) where
 
 import Foreign.C.Types
-import Graphics.Rendering.OpenGL.Raw.Core31.Functions ( glFramebufferTextureLayer )
-import Graphics.Rendering.OpenGL.Raw.Core31.Tokens ( gl_MAX_VARYING_COMPONENTS, gl_FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER )
+import Graphics.Rendering.OpenGL.Raw.Core31.Functions
+import Graphics.Rendering.OpenGL.Raw.Core31.Tokens
 import Graphics.Rendering.OpenGL.Raw.Core31.Types
 import Graphics.Rendering.OpenGL.Raw.Extensions
 
+--------------------------------------------------------------------------------
+
 #include "HsOpenGLRaw.h"
 
 extensionNameString :: String
@@ -58,6 +61,33 @@ EXTENSION_ENTRY(glProgramParameteri,GLuint -> GLenum -> GLint -> IO ())
 EXTENSION_ENTRY(glFramebufferTexture,GLenum -> GLenum -> GLuint -> GLint -> IO ())
 EXTENSION_ENTRY(glFramebufferTextureFace,GLenum -> GLenum -> GLuint -> GLint -> GLenum -> IO ())
 
+gl_LINES_ADJACENCY :: GLenum
+gl_LINES_ADJACENCY = 0x000A
+
+gl_LINE_STRIP_ADJACENCY :: GLenum
+gl_LINE_STRIP_ADJACENCY = 0x000B
+
+gl_TRIANGLES_ADJACENCY :: GLenum
+gl_TRIANGLES_ADJACENCY = 0x000C
+
+gl_TRIANGLE_STRIP_ADJACENCY :: GLenum
+gl_TRIANGLE_STRIP_ADJACENCY = 0x000D
+
+gl_PROGRAM_POINT_SIZE :: GLenum
+gl_PROGRAM_POINT_SIZE = 0x8642
+
+gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS :: GLenum
+gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS = 0x8C29
+
+gl_FRAMEBUFFER_ATTACHMENT_LAYERED :: GLenum
+gl_FRAMEBUFFER_ATTACHMENT_LAYERED = 0x8DA7
+
+gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS :: GLenum
+gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS = 0x8DA8
+
+gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT :: GLenum
+gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT = 0x8DA9
+
 gl_GEOMETRY_SHADER :: GLenum
 gl_GEOMETRY_SHADER = 0x8DD9
 
@@ -70,9 +100,6 @@ gl_GEOMETRY_INPUT_TYPE = 0x8DDB
 gl_GEOMETRY_OUTPUT_TYPE :: GLenum
 gl_GEOMETRY_OUTPUT_TYPE = 0x8DDC
 
-gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS :: GLenum
-gl_MAX_GEOMETRY_TEXTURE_IMAGE_UNITS = 0x8C29
-
 gl_MAX_GEOMETRY_VARYING_COMPONENTS :: GLenum
 gl_MAX_GEOMETRY_VARYING_COMPONENTS = 0x8DDD
 
@@ -87,27 +114,3 @@ gl_MAX_GEOMETRY_OUTPUT_VERTICES = 0x8DE0
 
 gl_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS :: GLenum
 gl_MAX_GEOMETRY_TOTAL_OUTPUT_COMPONENTS = 0x8DE1
-
-gl_LINES_ADJACENCY :: GLenum
-gl_LINES_ADJACENCY = 0xA
-
-gl_LINE_STRIP_ADJACENCY :: GLenum
-gl_LINE_STRIP_ADJACENCY = 0xB
-
-gl_TRIANGLES_ADJACENCY :: GLenum
-gl_TRIANGLES_ADJACENCY = 0xC
-
-gl_TRIANGLE_STRIP_ADJACENCY :: GLenum
-gl_TRIANGLE_STRIP_ADJACENCY = 0xD
-
-gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS :: GLenum
-gl_FRAMEBUFFER_INCOMPLETE_LAYER_TARGETS = 0x8DA8
-
-gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT :: GLenum
-gl_FRAMEBUFFER_INCOMPLETE_LAYER_COUNT = 0x8DA9
-
-gl_FRAMEBUFFER_ATTACHMENT_LAYERED :: GLenum
-gl_FRAMEBUFFER_ATTACHMENT_LAYERED = 0x8DA7
-
-gl_PROGRAM_POINT_SIZE :: GLenum
-gl_PROGRAM_POINT_SIZE = 0x8642