module Bindings.GObject.EnumerationAndFlagTypes where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.GLib
import Bindings.GObject.TypeInformation
data C'GEnumClass = C'GEnumClass{
c'GEnumClass'g_type_class :: C'GTypeClass
,
c'GEnumClass'minimum :: C'gint
,
c'GEnumClass'maximum :: C'gint
,
c'GEnumClass'n_values :: C'guint
,
c'GEnumClass'values :: Ptr C'GEnumValue
} deriving (Eq,Show)
instance Storable C'GEnumClass where
sizeOf _ = 20
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
return $ C'GEnumClass v0 v1 v2 v3 v4
poke p (C'GEnumClass v0 v1 v2 v3 v4) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
return ()
data C'GFlagsClass = C'GFlagsClass{
c'GFlagsClass'g_type_class :: C'GTypeClass
,
c'GFlagsClass'mask :: C'guint
,
c'GFlagsClass'n_values :: C'guint
,
c'GFlagsClass'values :: Ptr C'GFlagsValue
} deriving (Eq,Show)
instance Storable C'GFlagsClass where
sizeOf _ = 16
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
return $ C'GFlagsClass v0 v1 v2 v3
poke p (C'GFlagsClass v0 v1 v2 v3) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
return ()
foreign import ccall "inline_G_ENUM_CLASS_TYPE" c'G_ENUM_CLASS_TYPE
:: Ptr C'GEnumClass -> C'GType
foreign import ccall "inline_G_ENUM_CLASS_TYPE_NAME" c'G_ENUM_CLASS_TYPE_NAME
:: Ptr C'GEnumClass -> IO (Ptr C'gchar)
foreign import ccall "inline_G_TYPE_IS_ENUM" c'G_TYPE_IS_ENUM
:: C'GType -> IO C'gboolean
foreign import ccall "inline_G_ENUM_CLASS" c'G_ENUM_CLASS
:: Ptr a -> Ptr C'GEnumClass
foreign import ccall "inline_G_IS_ENUM_CLASS" c'G_IS_ENUM_CLASS
:: Ptr a -> IO C'gboolean
foreign import ccall "inline_G_TYPE_IS_FLAGS" c'G_TYPE_IS_FLAGS
:: C'GType -> IO C'gboolean
foreign import ccall "inline_G_FLAGS_CLASS" c'G_FLAGS_CLASS
:: Ptr a -> Ptr C'GFlagsClass
foreign import ccall "inline_G_IS_FLAGS_CLASS" c'G_IS_FLAGS_CLASS
:: Ptr a -> C'gboolean
foreign import ccall "inline_G_FLAGS_CLASS_TYPE" c'G_FLAGS_CLASS_TYPE
:: Ptr C'GFlagsClass -> C'GType
foreign import ccall "inline_G_FLAGS_CLASS_TYPE_NAME" c'G_FLAGS_CLASS_TYPE_NAME
:: Ptr C'GFlagsClass -> IO (Ptr C'gchar)
data C'GEnumValue = C'GEnumValue{
c'GEnumValue'value :: C'gint
,
c'GEnumValue'value_name :: Ptr C'gchar
,
c'GEnumValue'value_nick :: Ptr C'gchar
} deriving (Eq,Show)
instance Storable C'GEnumValue where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GEnumValue v0 v1 v2
poke p (C'GEnumValue v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
data C'GFlagsValue = C'GFlagsValue{
c'GFlagsValue'value :: C'gint
,
c'GFlagsValue'value_name :: Ptr C'gchar
,
c'GFlagsValue'value_nick :: Ptr C'gchar
} deriving (Eq,Show)
instance Storable C'GFlagsValue where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GFlagsValue v0 v1 v2
poke p (C'GFlagsValue v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "g_enum_get_value" c'g_enum_get_value
:: Ptr C'GEnumClass -> C'gint -> IO (Ptr C'GEnumValue)
foreign import ccall "&g_enum_get_value" p'g_enum_get_value
:: FunPtr (Ptr C'GEnumClass -> C'gint -> IO (Ptr C'GEnumValue))
foreign import ccall "g_enum_get_value_by_name" c'g_enum_get_value_by_name
:: Ptr C'GEnumClass -> Ptr C'gchar -> IO (Ptr C'GEnumValue)
foreign import ccall "&g_enum_get_value_by_name" p'g_enum_get_value_by_name
:: FunPtr (Ptr C'GEnumClass -> Ptr C'gchar -> IO (Ptr C'GEnumValue))
foreign import ccall "g_enum_get_value_by_nick" c'g_enum_get_value_by_nick
:: Ptr C'GEnumClass -> Ptr C'gchar -> IO (Ptr C'GEnumValue)
foreign import ccall "&g_enum_get_value_by_nick" p'g_enum_get_value_by_nick
:: FunPtr (Ptr C'GEnumClass -> Ptr C'gchar -> IO (Ptr C'GEnumValue))
foreign import ccall "g_flags_get_first_value" c'g_flags_get_first_value
:: Ptr C'GFlagsClass -> C'guint -> IO (Ptr C'GFlagsValue)
foreign import ccall "&g_flags_get_first_value" p'g_flags_get_first_value
:: FunPtr (Ptr C'GFlagsClass -> C'guint -> IO (Ptr C'GFlagsValue))
foreign import ccall "g_flags_get_value_by_name" c'g_flags_get_value_by_name
:: Ptr C'GFlagsClass -> Ptr C'gchar -> IO (Ptr C'GFlagsValue)
foreign import ccall "&g_flags_get_value_by_name" p'g_flags_get_value_by_name
:: FunPtr (Ptr C'GFlagsClass -> Ptr C'gchar -> IO (Ptr C'GFlagsValue))
foreign import ccall "g_flags_get_value_by_nick" c'g_flags_get_value_by_nick
:: Ptr C'GFlagsClass -> Ptr C'gchar -> IO (Ptr C'GFlagsValue)
foreign import ccall "&g_flags_get_value_by_nick" p'g_flags_get_value_by_nick
:: FunPtr (Ptr C'GFlagsClass -> Ptr C'gchar -> IO (Ptr C'GFlagsValue))
foreign import ccall "g_enum_register_static" c'g_enum_register_static
:: Ptr C'gchar -> Ptr C'GEnumValue -> IO C'GType
foreign import ccall "&g_enum_register_static" p'g_enum_register_static
:: FunPtr (Ptr C'gchar -> Ptr C'GEnumValue -> IO C'GType)
foreign import ccall "g_flags_register_static" c'g_flags_register_static
:: Ptr C'gchar -> Ptr C'GFlagsValue -> IO C'GType
foreign import ccall "&g_flags_register_static" p'g_flags_register_static
:: FunPtr (Ptr C'gchar -> Ptr C'GFlagsValue -> IO C'GType)
foreign import ccall "g_enum_complete_type_info" c'g_enum_complete_type_info
:: C'GType -> Ptr C'GTypeInfo -> Ptr C'GEnumValue -> IO ()
foreign import ccall "&g_enum_complete_type_info" p'g_enum_complete_type_info
:: FunPtr (C'GType -> Ptr C'GTypeInfo -> Ptr C'GEnumValue -> IO ())
foreign import ccall "g_flags_complete_type_info" c'g_flags_complete_type_info
:: C'GType -> Ptr C'GTypeInfo -> Ptr C'GFlagsValue -> IO ()
foreign import ccall "&g_flags_complete_type_info" p'g_flags_complete_type_info
:: FunPtr (C'GType -> Ptr C'GTypeInfo -> Ptr C'GFlagsValue -> IO ())