{-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-}
module HROOT.IO.TDirectoryFile.FFI where
import Data.Word
import Data.Int
import Foreign.C
import Foreign.Ptr
import HROOT.IO.TDirectoryFile.RawType
import HROOT.IO.TDirectoryFile.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TKey.RawType
import HROOT.Core.TClass.RawType

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Append"
               c_tdirectoryfile_append ::
               Ptr RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_addD" c_tdirectoryfile_addd
               :: Ptr RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_AppendKey"
               c_tdirectoryfile_appendkey ::
               Ptr RawTDirectoryFile -> Ptr RawTKey -> IO CInt

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Close"
               c_tdirectoryfile_close :: Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Get" c_tdirectoryfile_get
               :: Ptr RawTDirectoryFile -> CString -> IO (Ptr RawTObject)

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_cd_TDirectory"
               c_tdirectoryfile_cd_tdirectory ::
               Ptr RawTDirectoryFile -> CString -> IO CBool

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_SetName"
               c_tdirectoryfile_setname ::
               Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_SetNameTitle"
               c_tdirectoryfile_setnametitle ::
               Ptr RawTDirectoryFile -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_SetTitle"
               c_tdirectoryfile_settitle ::
               Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Clear"
               c_tdirectoryfile_clear :: Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Draw" c_tdirectoryfile_draw
               :: Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_FindObject"
               c_tdirectoryfile_findobject ::
               Ptr RawTDirectoryFile -> CString -> IO (Ptr RawTObject)

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_GetName"
               c_tdirectoryfile_getname :: Ptr RawTDirectoryFile -> IO CString

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_IsA" c_tdirectoryfile_isa
               :: Ptr RawTDirectoryFile -> IO (Ptr RawTClass)

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Paint"
               c_tdirectoryfile_paint :: Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_printObj"
               c_tdirectoryfile_printobj ::
               Ptr RawTDirectoryFile -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_SaveAs"
               c_tdirectoryfile_saveas ::
               Ptr RawTDirectoryFile -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Write"
               c_tdirectoryfile_write ::
               Ptr RawTDirectoryFile -> CString -> CInt -> CInt -> IO CInt

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_Write_"
               c_tdirectoryfile_write_ :: Ptr RawTDirectoryFile -> IO CInt

foreign import ccall interruptible
               "HROOTIOTDirectoryFile.h TDirectoryFile_delete"
               c_tdirectoryfile_delete :: Ptr RawTDirectoryFile -> IO ()