Added support for ARB_draw_indirect.

Author: svenpanne

OpenGLRaw.cabal

@@ -53,6 +53,7 @@ library
       Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffers,
       Graphics.Rendering.OpenGL.Raw.ARB.DrawBuffersBlend,
       Graphics.Rendering.OpenGL.Raw.ARB.DrawElementsBaseVertex,
+      Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect,
       Graphics.Rendering.OpenGL.Raw.ARB.DrawInstanced,
       Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility,
       Graphics.Rendering.OpenGL.Raw.ARB.ES3Compatibility,

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

@@ -85,6 +85,7 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
    module Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2,             -- #80
    -- module Graphics.Rendering.OpenGL.Raw.ARB.ShaderBitEncoding,        -- #82
    module Graphics.Rendering.OpenGL.Raw.ARB.TimerQuery,                  -- #85
+   module Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect,                -- #87
    module Graphics.Rendering.OpenGL.Raw.ARB.TransformFeedback3,          -- #94
    module Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility,            -- #95
    module Graphics.Rendering.OpenGL.Raw.ARB.ShaderAtomicCounters,        -- #114
@@ -160,6 +161,7 @@ import Graphics.Rendering.OpenGL.Raw.ARB.TextureGather
 import Graphics.Rendering.OpenGL.Raw.ARB.CreateContextProfile
 import Graphics.Rendering.OpenGL.Raw.ARB.OcclusionQuery2
 import Graphics.Rendering.OpenGL.Raw.ARB.TimerQuery
+import Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect
 import Graphics.Rendering.OpenGL.Raw.ARB.TransformFeedback3
 import Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility
 import Graphics.Rendering.OpenGL.Raw.ARB.ShaderAtomicCounters

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

@@ -0,0 +1,43 @@
+{-# LANGUAGE ForeignFunctionInterface, CPP #-}
+--------------------------------------------------------------------------------
+-- |
+-- Module      :  Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect
+-- Copyright   :  (c) Sven Panne 2013
+-- License     :  BSD3
+--
+-- Maintainer  :  Sven Panne <[email protected]>
+-- Stability   :  stable
+-- Portability :  portable
+--
+-- All raw functions and tokens from the ARB_draw_indirect extension, see
+-- <http://www.opengl.org/registry/specs/ARB/draw_indirect.txt>.
+--
+--------------------------------------------------------------------------------
+
+module Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect (
+   -- * Functions
+   glDrawArraysIndirect, glDrawElementsIndirect,
+
+   -- * Tokens
+   gl_DRAW_INDIRECT_BUFFER, gl_DRAW_INDIRECT_BUFFER_BINDING
+
+) where
+
+import Foreign.C.Types
+import Foreign.Ptr
+import Graphics.Rendering.OpenGL.Raw.Extensions
+import Graphics.Rendering.OpenGL.Raw.Core31.Types
+
+#include "HsOpenGLRaw.h"
+
+extensionNameString :: String
+extensionNameString = "GL_ARB_draw_indirect"
+
+EXTENSION_ENTRY(glDrawArraysIndirect,GLenum -> Ptr a -> IO ())
+EXTENSION_ENTRY(glDrawElementsIndirect,GLenum -> GLenum -> Ptr a -> IO ())
+
+gl_DRAW_INDIRECT_BUFFER :: GLenum
+gl_DRAW_INDIRECT_BUFFER = 0x8F3F
+
+gl_DRAW_INDIRECT_BUFFER_BINDING :: GLenum
+gl_DRAW_INDIRECT_BUFFER_BINDING = 0x8F43