{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.Class.TFile.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

import HROOT.Class.TFile.RawType
import HROOT.Class.TList.RawType
import HROOT.Class.TObject.RawType
import HROOT.Class.TKey.RawType
import HROOT.Class.TClass.RawType

#include "HROOTTFile.h"

foreign import ccall "HROOTTFile.h TFile_GetListOfKeys" c_tfile_getlistofkeys 
  :: (Ptr RawTFile) -> IO (Ptr RawTList)
foreign import ccall "HROOTTFile.h TFile_Append" c_tfile_append 
  :: (Ptr RawTFile) -> (Ptr RawTObject) -> CInt -> IO ()
foreign import ccall "HROOTTFile.h TFile_addD" c_tfile_addd 
  :: (Ptr RawTFile) -> (Ptr RawTObject) -> CInt -> IO ()
foreign import ccall "HROOTTFile.h TFile_AppendKey" c_tfile_appendkey 
  :: (Ptr RawTFile) -> (Ptr RawTKey) -> IO CInt
foreign import ccall "HROOTTFile.h TFile_Close" c_tfile_close 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_Get" c_tfile_get 
  :: (Ptr RawTFile) -> CString -> IO (Ptr RawTObject)
foreign import ccall "HROOTTFile.h TFile_SetName" c_tfile_setname 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_SetNameTitle" c_tfile_setnametitle 
  :: (Ptr RawTFile) -> CString -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_SetTitle" c_tfile_settitle 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_Draw" c_tfile_draw 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_FindObject" c_tfile_findobject 
  :: (Ptr RawTFile) -> CString -> IO (Ptr RawTObject)
foreign import ccall "HROOTTFile.h TFile_GetName" c_tfile_getname 
  :: (Ptr RawTFile) -> IO CString
foreign import ccall "HROOTTFile.h TFile_IsA" c_tfile_isa 
  :: (Ptr RawTFile) -> IO (Ptr RawTClass)
foreign import ccall "HROOTTFile.h TFile_IsFolder" c_tfile_isfolder 
  :: (Ptr RawTFile) -> IO CInt
foreign import ccall "HROOTTFile.h TFile_IsEqual" c_tfile_isequal 
  :: (Ptr RawTFile) -> (Ptr RawTObject) -> IO CInt
foreign import ccall "HROOTTFile.h TFile_IsSortable" c_tfile_issortable 
  :: (Ptr RawTFile) -> IO CInt
foreign import ccall "HROOTTFile.h TFile_Paint" c_tfile_paint 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_printObj" c_tfile_printobj 
  :: (Ptr RawTFile) -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_RecursiveRemove" c_tfile_recursiveremove 
  :: (Ptr RawTFile) -> (Ptr RawTObject) -> IO ()
foreign import ccall "HROOTTFile.h TFile_SaveAs" c_tfile_saveas 
  :: (Ptr RawTFile) -> CString -> CString -> IO ()
foreign import ccall "HROOTTFile.h TFile_UseCurrentStyle" c_tfile_usecurrentstyle 
  :: (Ptr RawTFile) -> IO ()
foreign import ccall "HROOTTFile.h TFile_Write" c_tfile_write 
  :: (Ptr RawTFile) -> CString -> CInt -> CInt -> IO CInt
foreign import ccall "HROOTTFile.h TFile_delete" c_tfile_delete 
  :: (Ptr RawTFile) -> IO ()
foreign import ccall "HROOTTFile.h TFile_newTFile" c_tfile_newtfile 
  :: CString -> CString -> CString -> CInt -> IO (Ptr RawTFile)