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

{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.IO.TFile.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

import HROOT.IO.TFile.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TKey.RawType
import HROOT.Core.TClass.RawType

#include "HROOTIOTFile.h"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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