FFI.hsc

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

foreign import ccall safe "HROOTCoreTNamed.h TNamed_Draw"
               c_tnamed_draw :: Ptr RawTNamed -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_FindObject"
               c_tnamed_findobject ::
               Ptr RawTNamed -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTCoreTNamed.h TNamed_GetName"
               c_tnamed_getname :: Ptr RawTNamed -> IO CString

foreign import ccall safe "HROOTCoreTNamed.h TNamed_IsA"
               c_tnamed_isa :: Ptr RawTNamed -> IO (Ptr RawTClass)

foreign import ccall safe "HROOTCoreTNamed.h TNamed_Paint"
               c_tnamed_paint :: Ptr RawTNamed -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_printObj"
               c_tnamed_printobj :: Ptr RawTNamed -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_SaveAs"
               c_tnamed_saveas :: Ptr RawTNamed -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_Write"
               c_tnamed_write ::
               Ptr RawTNamed -> CString -> CInt -> CInt -> IO CInt

foreign import ccall safe "HROOTCoreTNamed.h TNamed_delete"
               c_tnamed_delete :: Ptr RawTNamed -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_newTNamed"
               c_tnamed_newtnamed :: CString -> CString -> IO (Ptr RawTNamed)

foreign import ccall safe "HROOTCoreTNamed.h TNamed_SetName"
               c_tnamed_setname :: Ptr RawTNamed -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_SetNameTitle"
               c_tnamed_setnametitle ::
               Ptr RawTNamed -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTNamed.h TNamed_SetTitle"
               c_tnamed_settitle :: Ptr RawTNamed -> CString -> IO ()