-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.EXT.Robustness (
  -- * Extension Support
    gl_EXT_robustness

  -- * GL_EXT_robustness
  , glGetGraphicsResetStatusEXT
  , glGetnUniformfvEXT
  , glGetnUniformivEXT
  , glReadnPixelsEXT
  , pattern GL_CONTEXT_ROBUST_ACCESS_EXT
  , pattern GL_GUILTY_CONTEXT_RESET_EXT
  , pattern GL_INNOCENT_CONTEXT_RESET_EXT
  , pattern GL_LOSE_CONTEXT_ON_RESET_EXT
  , pattern GL_NO_ERROR
  , pattern GL_NO_RESET_NOTIFICATION_EXT
  , pattern GL_RESET_NOTIFICATION_STRATEGY_EXT
  , pattern GL_UNKNOWN_CONTEXT_RESET_EXT
) 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.Internal.Shared
import Graphics.GL.Types
import System.IO.Unsafe

-- | Checks that the <https://www.khronos.org/registry/gles/extensions/EXT/EXT_robustness.txt GL_EXT_robustness> extension is available.

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

-- | Usage: @'glGetGraphicsResetStatusEXT'@


glGetGraphicsResetStatusEXT :: MonadIO m => m GLenum
glGetGraphicsResetStatusEXT :: forall (m :: * -> *). MonadIO m => m GLenum
glGetGraphicsResetStatusEXT = FunPtr (IO GLenum) -> m GLenum
forall (m :: * -> *). MonadIO m => FunPtr (IO GLenum) -> m GLenum
ffiIOenum FunPtr (IO GLenum)
glGetGraphicsResetStatusEXTFunPtr

glGetGraphicsResetStatusEXTFunPtr :: FunPtr (IO GLenum)
glGetGraphicsResetStatusEXTFunPtr :: FunPtr (IO GLenum)
glGetGraphicsResetStatusEXTFunPtr = IO (FunPtr (IO GLenum)) -> FunPtr (IO GLenum)
forall a. IO a -> a
unsafePerformIO (String -> IO (FunPtr (IO GLenum))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glGetGraphicsResetStatusEXT")

{-# NOINLINE glGetGraphicsResetStatusEXTFunPtr #-}

-- | Usage: @'glGetnUniformfvEXT' program location bufSize params@
--
-- The length of @params@ should be @bufSize@.


glGetnUniformfvEXT :: MonadIO m => GLuint -> GLint -> GLsizei -> Ptr GLfloat -> m ()
glGetnUniformfvEXT :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLint -> GLint -> Ptr GLfloat -> m ()
glGetnUniformfvEXT = FunPtr (GLenum -> GLint -> GLint -> Ptr GLfloat -> IO ())
-> GLenum -> GLint -> GLint -> Ptr GLfloat -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> GLint -> Ptr GLfloat -> IO ())
-> GLenum -> GLint -> GLint -> Ptr GLfloat -> m ()
ffiuintintsizeiPtrfloatIOV FunPtr (GLenum -> GLint -> GLint -> Ptr GLfloat -> IO ())
glGetnUniformfvEXTFunPtr

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

{-# NOINLINE glGetnUniformfvEXTFunPtr #-}

-- | Usage: @'glGetnUniformivEXT' program location bufSize params@
--
-- The length of @params@ should be @bufSize@.


glGetnUniformivEXT :: MonadIO m => GLuint -> GLint -> GLsizei -> Ptr GLint -> m ()
glGetnUniformivEXT :: forall (m :: * -> *).
MonadIO m =>
GLenum -> GLint -> GLint -> Ptr GLint -> m ()
glGetnUniformivEXT = FunPtr (GLenum -> GLint -> GLint -> Ptr GLint -> IO ())
-> GLenum -> GLint -> GLint -> Ptr GLint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLenum -> GLint -> GLint -> Ptr GLint -> IO ())
-> GLenum -> GLint -> GLint -> Ptr GLint -> m ()
ffiuintintsizeiPtrintIOV FunPtr (GLenum -> GLint -> GLint -> Ptr GLint -> IO ())
glGetnUniformivEXTFunPtr

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

{-# NOINLINE glGetnUniformivEXTFunPtr #-}

-- | Usage: @'glReadnPixelsEXT' x y width height format type bufSize data@
--
-- The length of @data@ should be @bufSize@.
--
-- This command is an alias for 'Graphics.GL.Internal.Shared.glReadnPixels'.


glReadnPixelsEXT :: MonadIO m => GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> GLsizei -> Ptr () -> m ()
glReadnPixelsEXT :: forall (m :: * -> *).
MonadIO m =>
GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> GLint
-> Ptr ()
-> m ()
glReadnPixelsEXT = FunPtr
  (GLint
   -> GLint
   -> GLint
   -> GLint
   -> GLenum
   -> GLenum
   -> GLint
   -> Ptr ()
   -> IO ())
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> GLint
-> Ptr ()
-> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr
  (GLint
   -> GLint
   -> GLint
   -> GLint
   -> GLenum
   -> GLenum
   -> GLint
   -> Ptr ()
   -> IO ())
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> GLint
-> Ptr ()
-> m ()
ffiintintsizeisizeienumenumsizeiPtrVIOV FunPtr
  (GLint
   -> GLint
   -> GLint
   -> GLint
   -> GLenum
   -> GLenum
   -> GLint
   -> Ptr ()
   -> IO ())
glReadnPixelsEXTFunPtr

glReadnPixelsEXTFunPtr :: FunPtr (GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> GLsizei -> Ptr () -> IO ())
glReadnPixelsEXTFunPtr :: FunPtr
  (GLint
   -> GLint
   -> GLint
   -> GLint
   -> GLenum
   -> GLenum
   -> GLint
   -> Ptr ()
   -> IO ())
glReadnPixelsEXTFunPtr = IO
  (FunPtr
     (GLint
      -> GLint
      -> GLint
      -> GLint
      -> GLenum
      -> GLenum
      -> GLint
      -> Ptr ()
      -> IO ()))
-> FunPtr
     (GLint
      -> GLint
      -> GLint
      -> GLint
      -> GLenum
      -> GLenum
      -> GLint
      -> Ptr ()
      -> IO ())
forall a. IO a -> a
unsafePerformIO (String
-> IO
     (FunPtr
        (GLint
         -> GLint
         -> GLint
         -> GLint
         -> GLenum
         -> GLenum
         -> GLint
         -> Ptr ()
         -> IO ()))
forall a. String -> IO (FunPtr a)
getProcAddress String
"glReadnPixelsEXT")

{-# NOINLINE glReadnPixelsEXTFunPtr #-}

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

pattern $mGL_CONTEXT_ROBUST_ACCESS_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_CONTEXT_ROBUST_ACCESS_EXT :: forall a. (Eq a, Num a) => a
GL_CONTEXT_ROBUST_ACCESS_EXT = 0x90F3

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

pattern $mGL_GUILTY_CONTEXT_RESET_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_GUILTY_CONTEXT_RESET_EXT :: forall a. (Eq a, Num a) => a
GL_GUILTY_CONTEXT_RESET_EXT = 0x8253

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

pattern $mGL_INNOCENT_CONTEXT_RESET_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_INNOCENT_CONTEXT_RESET_EXT :: forall a. (Eq a, Num a) => a
GL_INNOCENT_CONTEXT_RESET_EXT = 0x8254

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

pattern $mGL_LOSE_CONTEXT_ON_RESET_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_LOSE_CONTEXT_ON_RESET_EXT :: forall a. (Eq a, Num a) => a
GL_LOSE_CONTEXT_ON_RESET_EXT = 0x8252

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

pattern $mGL_NO_RESET_NOTIFICATION_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_NO_RESET_NOTIFICATION_EXT :: forall a. (Eq a, Num a) => a
GL_NO_RESET_NOTIFICATION_EXT = 0x8261

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

pattern $mGL_RESET_NOTIFICATION_STRATEGY_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_RESET_NOTIFICATION_STRATEGY_EXT :: forall a. (Eq a, Num a) => a
GL_RESET_NOTIFICATION_STRATEGY_EXT = 0x8256

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

pattern $mGL_UNKNOWN_CONTEXT_RESET_EXT :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bGL_UNKNOWN_CONTEXT_RESET_EXT :: forall a. (Eq a, Num a) => a
GL_UNKNOWN_CONTEXT_RESET_EXT = 0x8255