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

foreign import ccall safe "HROOTCoreTKey.h TKey_SetName"
               c_tkey_setname :: Ptr RawTKey -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_SetNameTitle"
               c_tkey_setnametitle :: Ptr RawTKey -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_SetTitle"
               c_tkey_settitle :: Ptr RawTKey -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_Draw" c_tkey_draw
               :: Ptr RawTKey -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_FindObject"
               c_tkey_findobject :: Ptr RawTKey -> CString -> IO (Ptr RawTObject)

foreign import ccall safe "HROOTCoreTKey.h TKey_GetName"
               c_tkey_getname :: Ptr RawTKey -> IO CString

foreign import ccall safe "HROOTCoreTKey.h TKey_IsA" c_tkey_isa ::
               Ptr RawTKey -> IO (Ptr RawTClass)

foreign import ccall safe "HROOTCoreTKey.h TKey_Paint" c_tkey_paint
               :: Ptr RawTKey -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_printObj"
               c_tkey_printobj :: Ptr RawTKey -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_SaveAs"
               c_tkey_saveas :: Ptr RawTKey -> CString -> CString -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_Write" c_tkey_write
               :: Ptr RawTKey -> CString -> CInt -> CInt -> IO CInt

foreign import ccall safe "HROOTCoreTKey.h TKey_delete"
               c_tkey_delete :: Ptr RawTKey -> IO ()

foreign import ccall safe "HROOTCoreTKey.h TKey_newTKey"
               c_tkey_newtkey ::
               CString ->
                 CString ->
                   Ptr RawTClass -> CInt -> Ptr RawTDirectory -> IO (Ptr RawTKey)