HROOT-io-0.9: src/HROOT/IO/TFile/FFI.hsc

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

foreign import ccall safe "HROOTIOTFile.h TFile_Append"
               c_tfile_append :: Ptr RawTFile -> Ptr RawTObject -> CInt -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_addD" c_tfile_addd
               :: Ptr RawTFile -> Ptr RawTObject -> CInt -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_AppendKey"
               c_tfile_appendkey :: Ptr RawTFile -> Ptr RawTKey -> IO CInt

foreign import ccall safe "HROOTIOTFile.h TFile_Close"
               c_tfile_close :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_Get" c_tfile_get ::
               Ptr RawTFile -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTIOTFile.h TFile_cd_TDirectory"
               c_tfile_cd_tdirectory :: Ptr RawTFile -> CString -> IO CInt

foreign import ccall safe "HROOTIOTFile.h TFile_SetName"
               c_tfile_setname :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_SetNameTitle"
               c_tfile_setnametitle :: Ptr RawTFile -> CString -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_SetTitle"
               c_tfile_settitle :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_Draw" c_tfile_draw
               :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_FindObject"
               c_tfile_findobject ::
               Ptr RawTFile -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTIOTFile.h TFile_GetName"
               c_tfile_getname :: Ptr RawTFile -> IO CString

foreign import ccall safe "HROOTIOTFile.h TFile_IsA" c_tfile_isa ::
               Ptr RawTFile -> IO (Ptr RawTClass)

foreign import ccall safe "HROOTIOTFile.h TFile_Paint"
               c_tfile_paint :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_printObj"
               c_tfile_printobj :: Ptr RawTFile -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_SaveAs"
               c_tfile_saveas :: Ptr RawTFile -> CString -> CString -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_Write"
               c_tfile_write :: Ptr RawTFile -> CString -> CInt -> CInt -> IO CInt

foreign import ccall safe "HROOTIOTFile.h TFile_delete"
               c_tfile_delete :: Ptr RawTFile -> IO ()

foreign import ccall safe "HROOTIOTFile.h TFile_newTFile"
               c_tfile_newtfile ::
               CString -> CString -> CString -> CInt -> IO (Ptr RawTFile)