-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.AMD.NameGenDelete (
  -- * Extension Support
    gl_AMD_name_gen_delete

  -- * GL_AMD_name_gen_delete
  , glDeleteNamesAMD
  , glGenNamesAMD
  , glIsNameAMD
  , pattern GL_DATA_BUFFER_AMD
  , pattern GL_PERFORMANCE_MONITOR_AMD
  , pattern GL_QUERY_OBJECT_AMD
  , pattern GL_SAMPLER_OBJECT_AMD
  , pattern GL_VERTEX_ARRAY_OBJECT_AMD
) 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/AMD/name_gen_delete.txt GL_AMD_name_gen_delete> extension is available.

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

-- | Usage: @'glDeleteNamesAMD' identifier num names@
--
-- The length of @names@ should be @num@.


glDeleteNamesAMD :: MonadIO m => GLenum -> GLuint -> Ptr GLuint -> m ()
glDeleteNamesAMD :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLenum -> Ptr GLenum -> m ()
glDeleteNamesAMD = FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> Ptr GLenum -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> Ptr GLenum -> m ()
ffienumuintPtruintIOV FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
glDeleteNamesAMDFunPtr

glDeleteNamesAMDFunPtr :: FunPtr (GLenum -> GLuint -> Ptr GLuint -> IO ())
glDeleteNamesAMDFunPtr :: FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
glDeleteNamesAMDFunPtr = IO (FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ()))
-> FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glDeleteNamesAMD")

{-# NOINLINE glDeleteNamesAMDFunPtr #-}

-- | Usage: @'glGenNamesAMD' identifier num names@
--
-- The length of @names@ should be @num@.


glGenNamesAMD :: MonadIO m => GLenum -> GLuint -> Ptr GLuint -> m ()
glGenNamesAMD :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLenum -> Ptr GLenum -> m ()
glGenNamesAMD = FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> Ptr GLenum -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
-> GLenum -> GLenum -> Ptr GLenum -> m ()
ffienumuintPtruintIOV FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
glGenNamesAMDFunPtr

glGenNamesAMDFunPtr :: FunPtr (GLenum -> GLuint -> Ptr GLuint -> IO ())
glGenNamesAMDFunPtr :: FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
glGenNamesAMDFunPtr = IO (FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ()))
-> FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ())
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> GLenum -> Ptr GLenum -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glGenNamesAMD")

{-# NOINLINE glGenNamesAMDFunPtr #-}

-- | Usage: @'glIsNameAMD' identifier name@


glIsNameAMD :: MonadIO m => GLenum -> GLuint -> m GLboolean
glIsNameAMD :: forall (m :: * -> *). MonadIO m => GLenum -> GLenum -> m GLboolean
glIsNameAMD = FunPtr (GLenum -> GLenum -> IO GLboolean)
-> GLenum -> GLenum -> m GLboolean
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLenum -> IO GLboolean)
-> GLenum -> GLenum -> m GLboolean
ffienumuintIOboolean FunPtr (GLenum -> GLenum -> IO GLboolean)
glIsNameAMDFunPtr

glIsNameAMDFunPtr :: FunPtr (GLenum -> GLuint -> IO GLboolean)
glIsNameAMDFunPtr :: FunPtr (GLenum -> GLenum -> IO GLboolean)
glIsNameAMDFunPtr = IO (FunPtr (GLenum -> GLenum -> IO GLboolean))
-> FunPtr (GLenum -> GLenum -> IO GLboolean)
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (GLenum -> GLenum -> IO GLboolean))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glIsNameAMD")

{-# NOINLINE glIsNameAMDFunPtr #-}

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

pattern $mGL_DATA_BUFFER_AMD :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_DATA_BUFFER_AMD :: forall a. (Eq a, Num a) => a
GL_DATA_BUFFER_AMD = 0x9151

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

pattern $mGL_PERFORMANCE_MONITOR_AMD :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_PERFORMANCE_MONITOR_AMD :: forall a. (Eq a, Num a) => a
GL_PERFORMANCE_MONITOR_AMD = 0x9152

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

pattern $mGL_QUERY_OBJECT_AMD :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_QUERY_OBJECT_AMD :: forall a. (Eq a, Num a) => a
GL_QUERY_OBJECT_AMD = 0x9153

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

pattern $mGL_SAMPLER_OBJECT_AMD :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_SAMPLER_OBJECT_AMD :: forall a. (Eq a, Num a) => a
GL_SAMPLER_OBJECT_AMD = 0x9155

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

pattern $mGL_VERTEX_ARRAY_OBJECT_AMD :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_VERTEX_ARRAY_OBJECT_AMD :: forall a. (Eq a, Num a) => a
GL_VERTEX_ARRAY_OBJECT_AMD = 0x9154