{-# LINE 1 "Data/GI/Base/GType.hsc" #-}
module Data.GI.Base.GType
( GType(..)
, CGType
, gtypeName
, gtypeString
, gtypePointer
, gtypeInt
, gtypeUInt
, gtypeLong
, gtypeULong
, gtypeInt64
, gtypeUInt64
, gtypeFloat
, gtypeDouble
, gtypeBoolean
, gtypeGType
, gtypeStrv
, gtypeBoxed
, gtypeObject
, gtypeVariant
, gtypeByteArray
, gtypeInvalid
) where
import Data.Word
import Foreign.C.String (CString, peekCString)
type CGType = Word64
{-# LINE 37 "Data/GI/Base/GType.hsc" #-}
newtype GType = GType {gtypeToCGType :: CGType}
foreign import ccall "g_type_name" g_type_name :: GType -> IO CString
gtypeName :: GType -> IO String
gtypeName gtype = g_type_name gtype >>= peekCString
gtypeString :: GType
gtypeString = GType 64
{-# LINE 66 "Data/GI/Base/GType.hsc" #-}
gtypePointer :: GType
gtypePointer = GType 68
{-# LINE 70 "Data/GI/Base/GType.hsc" #-}
gtypeInt :: GType
gtypeInt = GType 24
{-# LINE 74 "Data/GI/Base/GType.hsc" #-}
gtypeUInt :: GType
gtypeUInt = GType 28
{-# LINE 78 "Data/GI/Base/GType.hsc" #-}
gtypeLong :: GType
gtypeLong = GType 32
{-# LINE 82 "Data/GI/Base/GType.hsc" #-}
gtypeULong :: GType
gtypeULong = GType 36
{-# LINE 86 "Data/GI/Base/GType.hsc" #-}
gtypeInt64 :: GType
gtypeInt64 = GType 40
{-# LINE 90 "Data/GI/Base/GType.hsc" #-}
gtypeUInt64 :: GType
gtypeUInt64 = GType 44
{-# LINE 94 "Data/GI/Base/GType.hsc" #-}
gtypeFloat :: GType
gtypeFloat = GType 56
{-# LINE 98 "Data/GI/Base/GType.hsc" #-}
gtypeDouble :: GType
gtypeDouble = GType 60
{-# LINE 102 "Data/GI/Base/GType.hsc" #-}
gtypeBoolean :: GType
gtypeBoolean = GType 20
{-# LINE 106 "Data/GI/Base/GType.hsc" #-}
gtypeBoxed :: GType
gtypeBoxed = GType 72
{-# LINE 110 "Data/GI/Base/GType.hsc" #-}
gtypeObject :: GType
gtypeObject = GType 80
{-# LINE 114 "Data/GI/Base/GType.hsc" #-}
gtypeInvalid :: GType
gtypeInvalid = GType 0
{-# LINE 119 "Data/GI/Base/GType.hsc" #-}
gtypeVariant :: GType
gtypeVariant = GType 84
{-# LINE 123 "Data/GI/Base/GType.hsc" #-}
foreign import ccall "g_gtype_get_type" g_gtype_get_type :: CGType
gtypeGType :: GType
gtypeGType = GType g_gtype_get_type
foreign import ccall "g_strv_get_type" g_strv_get_type :: CGType
gtypeStrv :: GType
gtypeStrv = GType g_strv_get_type
foreign import ccall "g_byte_array_get_type" g_byte_array_get_type :: CGType
gtypeByteArray :: GType
gtypeByteArray = GType g_byte_array_get_type