-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.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.Raw.Internal.FFI
import Graphics.GL.Raw.Internal.Proc
import Graphics.GL.Raw.Types
import System.IO.Unsafe

gl_ATI_map_object_buffer :: Bool
gl_ATI_map_object_buffer = member "GL_ATI_map_object_buffer" extensions

glMapObjectBufferATI :: MonadIO m => GLuint -> m (Ptr ())
glMapObjectBufferATI = ffiuintIOPtrV glMapObjectBufferATIFunPtr

glMapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO (Ptr ()))
glMapObjectBufferATIFunPtr = unsafePerformIO (getProcAddress "glMapObjectBufferATI")

{-# NOINLINE glMapObjectBufferATIFunPtr #-}

glUnmapObjectBufferATI :: MonadIO m => GLuint -> m ()
glUnmapObjectBufferATI = ffiuintIOV glUnmapObjectBufferATIFunPtr

glUnmapObjectBufferATIFunPtr :: FunPtr (GLuint -> IO ())
glUnmapObjectBufferATIFunPtr = unsafePerformIO (getProcAddress "glUnmapObjectBufferATI")

{-# NOINLINE glUnmapObjectBufferATIFunPtr #-}