HROOT-core-0.8: src/HROOT/Core/TROOT/FFI.hsc

{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.Core.TROOT.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

import HROOT.Core.TROOT.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TKey.RawType
import HROOT.Core.TClass.RawType
import HROOT.Core.TGlobal.RawType

#include "HROOTCoreTROOT.h"

foreign import ccall "HROOTCoreTROOT.h TROOT_Append" c_troot_append 
  :: (Ptr RawTROOT) -> (Ptr RawTObject) -> CInt -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_addD" c_troot_addd 
  :: (Ptr RawTROOT) -> (Ptr RawTObject) -> CInt -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_AppendKey" c_troot_appendkey 
  :: (Ptr RawTROOT) -> (Ptr RawTKey) -> IO CInt

foreign import ccall "HROOTCoreTROOT.h TROOT_Close" c_troot_close 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_Get" c_troot_get 
  :: (Ptr RawTROOT) -> CString -> IO (Ptr RawTObject)

foreign import ccall "HROOTCoreTROOT.h TROOT_cd_TDirectory" c_troot_cd_tdirectory 
  :: (Ptr RawTROOT) -> CString -> IO CInt

foreign import ccall "HROOTCoreTROOT.h TROOT_SetName" c_troot_setname 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_SetNameTitle" c_troot_setnametitle 
  :: (Ptr RawTROOT) -> CString -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_SetTitle" c_troot_settitle 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_Draw" c_troot_draw 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_FindObject" c_troot_findobject 
  :: (Ptr RawTROOT) -> CString -> IO (Ptr RawTObject)

foreign import ccall "HROOTCoreTROOT.h TROOT_GetName" c_troot_getname 
  :: (Ptr RawTROOT) -> IO CString

foreign import ccall "HROOTCoreTROOT.h TROOT_IsA" c_troot_isa 
  :: (Ptr RawTROOT) -> IO (Ptr RawTClass)

foreign import ccall "HROOTCoreTROOT.h TROOT_Paint" c_troot_paint 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_printObj" c_troot_printobj 
  :: (Ptr RawTROOT) -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_SaveAs" c_troot_saveas 
  :: (Ptr RawTROOT) -> CString -> CString -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_Write" c_troot_write 
  :: (Ptr RawTROOT) -> CString -> CInt -> CInt -> IO CInt

foreign import ccall "HROOTCoreTROOT.h TROOT_delete" c_troot_delete 
  :: (Ptr RawTROOT) -> IO ()

foreign import ccall "HROOTCoreTROOT.h TROOT_tROOTGetGlobal" c_troot_trootgetglobal 
  :: (Ptr RawTROOT) -> CString -> CInt -> IO (Ptr RawTGlobal)

foreign import ccall "HROOTCoreTROOT.h TROOT_tROOTInitialized" c_troot_trootinitialized 
  :: IO CInt