{-# language CPP #-}
-- No documentation found for Chapter "Version"
module Vulkan.Version  ( pattern HEADER_VERSION
                       , pattern HEADER_VERSION_COMPLETE
                       , pattern MAKE_API_VERSION
                       , pattern MAKE_VERSION
                       , _VERSION_MAJOR
                       , _VERSION_MINOR
                       , _VERSION_PATCH
                       , _API_VERSION_MAJOR
                       , _API_VERSION_MINOR
                       , _API_VERSION_PATCH
                       ) where

import Data.Bits ((.&.))
import Data.Bits ((.|.))
import Data.Bits (shiftL)
import Data.Bits (shiftR)
import Data.Word (Word32)

pattern HEADER_VERSION :: Word32
pattern $bHEADER_VERSION :: Word32
$mHEADER_VERSION :: forall {r}. Word32 -> (Void# -> r) -> (Void# -> r) -> r
HEADER_VERSION = 230


pattern HEADER_VERSION_COMPLETE :: Word32
pattern $bHEADER_VERSION_COMPLETE :: Word32
$mHEADER_VERSION_COMPLETE :: forall {r}. Word32 -> (Void# -> r) -> (Void# -> r) -> r
HEADER_VERSION_COMPLETE = MAKE_API_VERSION 1 3 230


pattern MAKE_API_VERSION :: Word32 -> Word32 -> Word32 -> Word32
pattern $bMAKE_API_VERSION :: Word32 -> Word32 -> Word32 -> Word32
$mMAKE_API_VERSION :: forall {r}.
Word32 -> (Word32 -> Word32 -> Word32 -> r) -> (Void# -> r) -> r
MAKE_API_VERSION major minor patch <-
  (\Word32
v -> (Word32 -> Word32
_VERSION_MAJOR Word32
v, Word32 -> Word32
_VERSION_MINOR Word32
v, Word32 -> Word32
_VERSION_PATCH Word32
v) -> (major, minor, patch))
  where MAKE_API_VERSION Word32
major Word32
minor Word32
patch = Word32
major Word32 -> Int -> Word32
forall a. Bits a => a -> Int -> a
`shiftL` Int
22 Word32 -> Word32 -> Word32
forall a. Bits a => a -> a -> a
.|. Word32
minor Word32 -> Int -> Word32
forall a. Bits a => a -> Int -> a
`shiftL` Int
12 Word32 -> Word32 -> Word32
forall a. Bits a => a -> a -> a
.|. Word32
patch

{-# complete MAKE_API_VERSION #-}

{-# deprecated MAKE_VERSION "This pattern is deprecated. MAKE_API_VERSION should be used instead." #-}
pattern MAKE_VERSION :: Word32 -> Word32 -> Word32 -> Word32
pattern $bMAKE_VERSION :: Word32 -> Word32 -> Word32 -> Word32
$mMAKE_VERSION :: forall {r}.
Word32 -> (Word32 -> Word32 -> Word32 -> r) -> (Void# -> r) -> r
MAKE_VERSION major minor patch = MAKE_API_VERSION major minor patch

{-# complete MAKE_VERSION #-}

{-# deprecated _VERSION_MAJOR "This function is deprecated. _API_VERSION_MAJOR should be used instead." #-}
_VERSION_MAJOR :: Word32 -> Word32
_VERSION_MAJOR :: Word32 -> Word32
_VERSION_MAJOR = Word32 -> Word32
_API_VERSION_MAJOR

{-# deprecated _VERSION_MINOR "This function is deprecated. _API_VERSION_MINOR should be used instead." #-}
_VERSION_MINOR :: Word32 -> Word32
_VERSION_MINOR :: Word32 -> Word32
_VERSION_MINOR = Word32 -> Word32
_API_VERSION_MINOR

{-# deprecated _VERSION_PATCH "This function is deprecated. _API_VERSION_PATCH should be used instead." #-}
_VERSION_PATCH :: Word32 -> Word32
_VERSION_PATCH :: Word32 -> Word32
_VERSION_PATCH = Word32 -> Word32
_API_VERSION_PATCH

_API_VERSION_MAJOR :: Word32 -> Word32
_API_VERSION_MAJOR :: Word32 -> Word32
_API_VERSION_MAJOR Word32
v = Word32
v Word32 -> Int -> Word32
forall a. Bits a => a -> Int -> a
`shiftR` Int
22

_API_VERSION_MINOR :: Word32 -> Word32
_API_VERSION_MINOR :: Word32 -> Word32
_API_VERSION_MINOR Word32
v = Word32
v Word32 -> Int -> Word32
forall a. Bits a => a -> Int -> a
`shiftR` Int
12 Word32 -> Word32 -> Word32
forall a. Bits a => a -> a -> a
.&. Word32
0x3ff

_API_VERSION_PATCH :: Word32 -> Word32
_API_VERSION_PATCH :: Word32 -> Word32
_API_VERSION_PATCH Word32
v = Word32
v Word32 -> Word32 -> Word32
forall a. Bits a => a -> a -> a
.&. Word32
0xfff