{-# LINE 1 "Data/GI/Base/GHashTable.hsc" #-}
module Data.GI.Base.GHashTable
( GHashFunc
, GEqualFunc
, gDirectHash
, gDirectEqual
, ptrPackPtr
, ptrUnpackPtr
, gStrHash
, gStrEqual
, cstringPackPtr
, cstringUnpackPtr
, gvaluePackPtr
, gvalueUnpackPtr
) where
import Foreign.C
import Foreign.Ptr (Ptr, castPtr)
import Data.GI.Base.BasicTypes (PtrWrapped(..), GHashFunc, GEqualFunc)
import Data.GI.Base.GValue (GValue)
foreign import ccall "&g_direct_hash" gDirectHash :: GHashFunc (Ptr a)
foreign import ccall "&g_direct_equal" gDirectEqual :: GEqualFunc (Ptr a)
ptrPackPtr :: Ptr a -> PtrWrapped (Ptr a)
ptrPackPtr = PtrWrapped . castPtr
ptrUnpackPtr :: PtrWrapped (Ptr a) -> Ptr a
ptrUnpackPtr = castPtr . unwrapPtr
foreign import ccall "&g_str_hash" gStrHash :: GHashFunc CString
foreign import ccall "&g_str_equal" gStrEqual :: GEqualFunc CString
cstringPackPtr :: CString -> PtrWrapped CString
cstringPackPtr = ptrPackPtr
cstringUnpackPtr :: PtrWrapped CString -> CString
cstringUnpackPtr = ptrUnpackPtr
gvaluePackPtr :: Ptr GValue -> PtrWrapped (Ptr GValue)
gvaluePackPtr = ptrPackPtr
gvalueUnpackPtr :: PtrWrapped (Ptr GValue) -> Ptr GValue
gvalueUnpackPtr = ptrUnpackPtr