-- This file was automatically generated.
{-# LANGUAGE CPP, ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Ext.ATI.MapObjectBuffer (
  -- * Extension Support
    gl_ATI_map_object_buffer

  -- * GL_ATI_map_object_buffer
  , glMapObjectBufferATI
  , glUnmapObjectBufferATI
) 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/ATI/map_object_buffer.txt GL_ATI_map_object_buffer> extension is available.

gl_ATI_map_object_buffer :: Bool
gl_ATI_map_object_buffer :: Bool
gl_ATI_map_object_buffer = [Char] -> Set [Char] -> Bool
forall a. Ord a => a -> Set a -> Bool
member "GL_ATI_map_object_buffer" Set [Char]
extensions
{-# NOINLINE gl_ATI_map_object_buffer #-}

-- | Usage: @'glMapObjectBufferATI' buffer@


glMapObjectBufferATI :: MonadIO m => GLuint -> m (Ptr ())
glMapObjectBufferATI :: GLuint -> m (Ptr ())
glMapObjectBufferATI = FunPtr (GLuint -> IO (Ptr ())) -> GLuint -> m (Ptr ())
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> IO (Ptr ())) -> GLuint -> m (Ptr ())
ffiuintIOPtrV FunPtr (GLuint -> IO (Ptr ()))
glMapObjectBufferATIFunPtr

glMapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO (Ptr ()))
glMapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO (Ptr ()))
glMapObjectBufferATIFunPtr = IO (FunPtr (GLuint -> IO (Ptr ())))
-> FunPtr (GLuint -> IO (Ptr ()))
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> IO (Ptr ())))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glMapObjectBufferATI")

{-# NOINLINE glMapObjectBufferATIFunPtr #-}

-- | Usage: @'glUnmapObjectBufferATI' buffer@


glUnmapObjectBufferATI :: MonadIO m => GLuint -> m ()
glUnmapObjectBufferATI :: GLuint -> m ()
glUnmapObjectBufferATI = FunPtr (GLuint -> IO ()) -> GLuint -> m ()
forall (m :: * -> *).
MonadIO m =>
FunPtr (GLuint -> IO ()) -> GLuint -> m ()
ffiuintIOV FunPtr (GLuint -> IO ())
glUnmapObjectBufferATIFunPtr

glUnmapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO ())
glUnmapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO ())
glUnmapObjectBufferATIFunPtr = IO (FunPtr (GLuint -> IO ())) -> FunPtr (GLuint -> IO ())
forall a. IO a -> a
unsafePerformIO ([Char] -> IO (FunPtr (GLuint -> IO ()))
forall a. [Char] -> IO (FunPtr a)
getProcAddress "glUnmapObjectBufferATI")

{-# NOINLINE glUnmapObjectBufferATIFunPtr #-}