HROOT-core-0.9: src/HROOT/Core/TROOT/FFI.hsc

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

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Append"
               c_troot_append :: Ptr RawTROOT -> Ptr RawTObject -> CInt -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_addD"
               c_troot_addd :: Ptr RawTROOT -> Ptr RawTObject -> CInt -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_AppendKey"
               c_troot_appendkey :: Ptr RawTROOT -> Ptr RawTKey -> IO CInt

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Close"
               c_troot_close :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Get" c_troot_get
               :: Ptr RawTROOT -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTCoreTROOT.h TROOT_cd_TDirectory"
               c_troot_cd_tdirectory :: Ptr RawTROOT -> CString -> IO CInt

foreign import ccall safe "HROOTCoreTROOT.h TROOT_SetName"
               c_troot_setname :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_SetNameTitle"
               c_troot_setnametitle :: Ptr RawTROOT -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_SetTitle"
               c_troot_settitle :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Draw"
               c_troot_draw :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_FindObject"
               c_troot_findobject ::
               Ptr RawTROOT -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTCoreTROOT.h TROOT_GetName"
               c_troot_getname :: Ptr RawTROOT -> IO CString

foreign import ccall safe "HROOTCoreTROOT.h TROOT_IsA" c_troot_isa
               :: Ptr RawTROOT -> IO (Ptr RawTClass)

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Paint"
               c_troot_paint :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_printObj"
               c_troot_printobj :: Ptr RawTROOT -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_SaveAs"
               c_troot_saveas :: Ptr RawTROOT -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_Write"
               c_troot_write :: Ptr RawTROOT -> CString -> CInt -> CInt -> IO CInt

foreign import ccall safe "HROOTCoreTROOT.h TROOT_delete"
               c_troot_delete :: Ptr RawTROOT -> IO ()

foreign import ccall safe "HROOTCoreTROOT.h TROOT_tROOTGetGlobal"
               c_troot_trootgetglobal ::
               Ptr RawTROOT -> CString -> CInt -> IO (Ptr RawTGlobal)

foreign import ccall safe "HROOTCoreTROOT.h TROOT_tROOTInitialized"
               c_troot_trootinitialized :: IO CInt