-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.EXT.DebugLabel (
  -- * Extension Support
    gl_EXT_debug_label

  -- * GL_EXT_debug_label
  , glGetObjectLabelEXT
  , glLabelObjectEXT
  , pattern GL_BUFFER_OBJECT_EXT
  , pattern GL_PROGRAM_OBJECT_EXT
  , pattern GL_PROGRAM_PIPELINE_OBJECT_EXT
  , pattern GL_QUERY_OBJECT_EXT
  , pattern GL_SAMPLER
  , pattern GL_SHADER_OBJECT_EXT
  , pattern GL_TRANSFORM_FEEDBACK
  , pattern GL_VERTEX_ARRAY_OBJECT_EXT
) where

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

gl_EXT_debug_label :: Bool
gl_EXT_debug_label = member "GL_EXT_debug_label" extensions

glGetObjectLabelEXT :: MonadIO m => GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> m ()
glGetObjectLabelEXT = ffienumuintsizeiPtrsizeiPtrcharIOV glGetObjectLabelEXTFunPtr

glGetObjectLabelEXTFunPtr :: FunPtr (GLenum -> GLuint -> GLsizei -> Ptr GLsizei -> Ptr GLchar -> IO ())
glGetObjectLabelEXTFunPtr = unsafePerformIO (getProcAddress "glGetObjectLabelEXT")

{-# NOINLINE glGetObjectLabelEXTFunPtr #-}

glLabelObjectEXT :: MonadIO m => GLenum -> GLuint -> GLsizei -> Ptr GLchar -> m ()
glLabelObjectEXT = ffienumuintsizeiPtrcharIOV glLabelObjectEXTFunPtr

glLabelObjectEXTFunPtr :: FunPtr (GLenum -> GLuint -> GLsizei -> Ptr GLchar -> IO ())
glLabelObjectEXTFunPtr = unsafePerformIO (getProcAddress "glLabelObjectEXT")

{-# NOINLINE glLabelObjectEXTFunPtr #-}

pattern GL_BUFFER_OBJECT_EXT = 0x9151

pattern GL_PROGRAM_OBJECT_EXT = 0x8B40

pattern GL_PROGRAM_PIPELINE_OBJECT_EXT = 0x8A4F

pattern GL_QUERY_OBJECT_EXT = 0x9153

pattern GL_SHADER_OBJECT_EXT = 0x8B48

pattern GL_VERTEX_ARRAY_OBJECT_EXT = 0x9154