-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.NV.ParameterBufferObject (
  -- * Extension Support
    gl_NV_parameter_buffer_object

  -- * GL_NV_parameter_buffer_object
  , glProgramBufferParametersIivNV
  , glProgramBufferParametersIuivNV
  , glProgramBufferParametersfvNV
  , pattern GL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV
  , pattern GL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV
  , pattern GL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV
  , pattern GL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV
  , pattern GL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV
) where

import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Internal.FFI
import Graphics.GL.Internal.Proc
import Graphics.GL.Types
import System.IO.Unsafe

-- | Checks that the <https://cvs.khronos.org/svn/repos/ogl/trunk/doc/registry/public/specs/NV/parameter_buffer_object.txt GL_NV_parameter_buffer_object> extension is available.

gl_NV_parameter_buffer_object :: Bool
gl_NV_parameter_buffer_object :: Bool
gl_NV_parameter_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_parameter_buffer_object" Set String
extensions
{-# NOINLINE gl_NV_parameter_buffer_object #-}

-- | Usage: @'glProgramBufferParametersIivNV' target bindingIndex wordIndex count params@
--
-- The parameter @target@ is a @ProgramTarget@.
--
-- The length of @params@ should be @count@.


glProgramBufferParametersIivNV :: MonadIO m => GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLint -> m ()
glProgramBufferParametersIivNV :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> m ()
glProgramBufferParametersIivNV = FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> m ()
ffienumuintuintsizeiPtrintIOV FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ())
glProgramBufferParametersIivNVFunPtr

glProgramBufferParametersIivNVFunPtr :: FunPtr (GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLint -> IO ())
glProgramBufferParametersIivNVFunPtr :: FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ())
glProgramBufferParametersIivNVFunPtr = IO
  (FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ()))
-> FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLsizei -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glProgramBufferParametersIivNV")

{-# NOINLINE glProgramBufferParametersIivNVFunPtr #-}

-- | Usage: @'glProgramBufferParametersIuivNV' target bindingIndex wordIndex count params@
--
-- The parameter @target@ is a @ProgramTarget@.
--
-- The length of @params@ should be @count@.


glProgramBufferParametersIuivNV :: MonadIO m => GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLuint -> m ()
glProgramBufferParametersIuivNV :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> m ()
glProgramBufferParametersIuivNV = FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> m ()
ffienumuintuintsizeiPtruintIOV FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ())
glProgramBufferParametersIuivNVFunPtr

glProgramBufferParametersIuivNVFunPtr :: FunPtr (GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLuint -> IO ())
glProgramBufferParametersIuivNVFunPtr :: FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ())
glProgramBufferParametersIuivNVFunPtr = IO
  (FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ()))
-> FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLenum -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glProgramBufferParametersIuivNV")

{-# NOINLINE glProgramBufferParametersIuivNVFunPtr #-}

-- | Usage: @'glProgramBufferParametersfvNV' target bindingIndex wordIndex count params@
--
-- The parameter @target@ is a @ProgramTarget@.
--
-- The length of @params@ should be @count@.


glProgramBufferParametersfvNV :: MonadIO m => GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLfloat -> m ()
glProgramBufferParametersfvNV :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> m ()
glProgramBufferParametersfvNV = FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ())
-> GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> m ()
ffienumuintuintsizeiPtrfloatIOV FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ())
glProgramBufferParametersfvNVFunPtr

glProgramBufferParametersfvNVFunPtr :: FunPtr (GLenum -> GLuint -> GLuint -> GLsizei -> Ptr GLfloat -> IO ())
glProgramBufferParametersfvNVFunPtr :: FunPtr
  (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ())
glProgramBufferParametersfvNVFunPtr = IO
  (FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ()))
-> FunPtr
     (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLenum -> GLenum -> GLenum -> GLsizei -> Ptr GLfloat -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glProgramBufferParametersfvNV")

{-# NOINLINE glProgramBufferParametersfvNVFunPtr #-}

pattern GL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV  :: (Eq a, Num a) => a

pattern $mGL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV :: forall a. (Eq a, Num a) => a
GL_FRAGMENT_PROGRAM_PARAMETER_BUFFER_NV = 0x8DA4

pattern GL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV  :: (Eq a, Num a) => a

pattern $mGL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV :: forall a. (Eq a, Num a) => a
GL_GEOMETRY_PROGRAM_PARAMETER_BUFFER_NV = 0x8DA3

pattern GL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV  :: (Eq a, Num a) => a

pattern $mGL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV :: forall a. (Eq a, Num a) => a
GL_MAX_PROGRAM_PARAMETER_BUFFER_BINDINGS_NV = 0x8DA0

pattern GL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV  :: (Eq a, Num a) => a

pattern $mGL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV :: forall a. (Eq a, Num a) => a
GL_MAX_PROGRAM_PARAMETER_BUFFER_SIZE_NV = 0x8DA1

pattern GL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV  :: (Eq a, Num a) => a

pattern $mGL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV :: forall a. (Eq a, Num a) => a
GL_VERTEX_PROGRAM_PARAMETER_BUFFER_NV = 0x8DA2