Added support for ARB_get_program_binary.

Author: svenpanne

OpenGLRaw.cabal

@@ -63,6 +63,7 @@ library
       Graphics.Rendering.OpenGL.Raw.ARB.FramebufferObject,
       Graphics.Rendering.OpenGL.Raw.ARB.FramebufferSRGB,
       Graphics.Rendering.OpenGL.Raw.ARB.GeometryShader4,
+      Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary,
       Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatPixel,
       Graphics.Rendering.OpenGL.Raw.ARB.HalfFloatVertex,
       Graphics.Rendering.OpenGL.Raw.ARB.InstancedArrays,

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

@@ -89,6 +89,7 @@ module Graphics.Rendering.OpenGL.Raw.ARB (
    module Graphics.Rendering.OpenGL.Raw.ARB.TessellationShader,          -- #91
    module Graphics.Rendering.OpenGL.Raw.ARB.TransformFeedback3,          -- #94
    module Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility,            -- #95
+   module Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary,            -- #96
    module Graphics.Rendering.OpenGL.Raw.ARB.ShaderAtomicCounters,        -- #114
    module Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader,               -- #122
    module Graphics.Rendering.OpenGL.Raw.ARB.ES3Compatibility,            -- #127
@@ -167,6 +168,7 @@ import Graphics.Rendering.OpenGL.Raw.ARB.DrawIndirect
 import Graphics.Rendering.OpenGL.Raw.ARB.TessellationShader
 import Graphics.Rendering.OpenGL.Raw.ARB.TransformFeedback3
 import Graphics.Rendering.OpenGL.Raw.ARB.ES2Compatibility
+import Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary
 import Graphics.Rendering.OpenGL.Raw.ARB.ShaderAtomicCounters
 import Graphics.Rendering.OpenGL.Raw.ARB.ComputeShader
 import Graphics.Rendering.OpenGL.Raw.ARB.ES3Compatibility

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

@@ -0,0 +1,53 @@
+{-# LANGUAGE ForeignFunctionInterface, CPP #-}
+--------------------------------------------------------------------------------
+-- |
+-- Module      :  Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary
+-- Copyright   :  (c) Sven Panne 2013
+-- License     :  BSD3
+--
+-- Maintainer  :  Sven Panne <[email protected]>
+-- Stability   :  stable
+-- Portability :  portable
+--
+-- All raw functions and tokens from the ARB_get_program_binary extension, see
+-- <http://www.opengl.org/registry/specs/ARB/get_program_binary.txt>.
+--
+--------------------------------------------------------------------------------
+
+module Graphics.Rendering.OpenGL.Raw.ARB.GetProgramBinary (
+   -- * Functions
+   glGetProgramBinary, glProgramBinary, glProgramParameteri,
+
+   -- * Tokens
+   gl_PROGRAM_BINARY_RETRIEVABLE_HINT,
+   gl_PROGRAM_BINARY_LENGTH,
+   gl_NUM_PROGRAM_BINARY_FORMATS,
+   gl_PROGRAM_BINARY_FORMATS
+
+) where
+
+import Foreign.C.Types
+import Foreign.Ptr
+import Graphics.Rendering.OpenGL.Raw.ARB.GeometryShader4
+import Graphics.Rendering.OpenGL.Raw.Core31.Types
+import Graphics.Rendering.OpenGL.Raw.Extensions
+
+#include "HsOpenGLRaw.h"
+
+extensionNameString :: String
+extensionNameString = "GL_ARB_get_program_binary"
+
+EXTENSION_ENTRY(glGetProgramBinary,GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLenum -> Ptr a -> IO ())
+EXTENSION_ENTRY(glProgramBinary,GLuint -> GLenum -> Ptr a -> GLsizei -> IO ())
+
+gl_PROGRAM_BINARY_RETRIEVABLE_HINT :: GLenum
+gl_PROGRAM_BINARY_RETRIEVABLE_HINT = 0x8257
+
+gl_PROGRAM_BINARY_LENGTH :: GLenum
+gl_PROGRAM_BINARY_LENGTH = 0x8741
+
+gl_NUM_PROGRAM_BINARY_FORMATS :: GLenum
+gl_NUM_PROGRAM_BINARY_FORMATS = 0x87FE
+
+gl_PROGRAM_BINARY_FORMATS :: GLenum
+gl_PROGRAM_BINARY_FORMATS = 0x87FF