{-# LANGUAGE ForeignFunctionInterface #-}
module HROOT.Core.TGlobal.FFI where
import Foreign.C
import Foreign.Ptr
import HROOT.Core.TGlobal.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TClass.RawType

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_SetName"
               c_tglobal_setname :: Ptr RawTGlobal -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_SetNameTitle"
               c_tglobal_setnametitle ::
               Ptr RawTGlobal -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_SetTitle"
               c_tglobal_settitle :: Ptr RawTGlobal -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_Draw"
               c_tglobal_draw :: Ptr RawTGlobal -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_FindObject"
               c_tglobal_findobject ::
               Ptr RawTGlobal -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_GetName"
               c_tglobal_getname :: Ptr RawTGlobal -> IO CString

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_IsA"
               c_tglobal_isa :: Ptr RawTGlobal -> IO (Ptr RawTClass)

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_Paint"
               c_tglobal_paint :: Ptr RawTGlobal -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_printObj"
               c_tglobal_printobj :: Ptr RawTGlobal -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_SaveAs"
               c_tglobal_saveas :: Ptr RawTGlobal -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_Write"
               c_tglobal_write ::
               Ptr RawTGlobal -> CString -> CInt -> CInt -> IO CInt

foreign import ccall safe "HROOTCoreTGlobal.h TGlobal_delete"
               c_tglobal_delete :: Ptr RawTGlobal -> IO ()