module Bindings.GLib.DataTypes.Quarks 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.Fundamentals
type C'GQuark = CUInt
foreign import ccall "g_quark_from_string" c'g_quark_from_string
:: Ptr C'gchar -> IO C'GQuark
foreign import ccall "&g_quark_from_string" p'g_quark_from_string
:: FunPtr (Ptr C'gchar -> IO C'GQuark)
foreign import ccall "g_quark_from_static_string" c'g_quark_from_static_string
:: Ptr C'gchar -> IO C'GQuark
foreign import ccall "&g_quark_from_static_string" p'g_quark_from_static_string
:: FunPtr (Ptr C'gchar -> IO C'GQuark)
foreign import ccall "g_quark_to_string" c'g_quark_to_string
:: C'GQuark -> IO (Ptr C'gchar)
foreign import ccall "&g_quark_to_string" p'g_quark_to_string
:: FunPtr (C'GQuark -> IO (Ptr C'gchar))
foreign import ccall "g_quark_try_string" c'g_quark_try_string
:: Ptr C'gchar -> IO C'GQuark
foreign import ccall "&g_quark_try_string" p'g_quark_try_string
:: FunPtr (Ptr C'gchar -> IO C'GQuark)
foreign import ccall "g_intern_string" c'g_intern_string
:: Ptr C'gchar -> IO (Ptr C'gchar)
foreign import ccall "&g_intern_string" p'g_intern_string
:: FunPtr (Ptr C'gchar -> IO (Ptr C'gchar))
foreign import ccall "g_intern_static_string" c'g_intern_static_string
:: Ptr C'gchar -> IO (Ptr C'gchar)
foreign import ccall "&g_intern_static_string" p'g_intern_static_string
:: FunPtr (Ptr C'gchar -> IO (Ptr C'gchar))