FFI.hsc

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

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_SetName" c_tsystem_setname ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_SetNameTitle" c_tsystem_setnametitle ::
               Ptr RawTSystem -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_SetTitle" c_tsystem_settitle ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_Clear" c_tsystem_clear ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_Draw" c_tsystem_draw ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_FindObject" c_tsystem_findobject ::
               Ptr RawTSystem -> CString -> IO (Ptr RawTObject)

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_GetName" c_tsystem_getname ::
               Ptr RawTSystem -> IO CString

foreign import ccall interruptible "HROOTCoreTSystem.h TSystem_IsA"
               c_tsystem_isa :: Ptr RawTSystem -> IO (Ptr RawTClass)

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_Paint" c_tsystem_paint ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_printObj" c_tsystem_printobj ::
               Ptr RawTSystem -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_SaveAs" c_tsystem_saveas ::
               Ptr RawTSystem -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_Write" c_tsystem_write ::
               Ptr RawTSystem -> CString -> CInt -> CInt -> IO CInt

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_Write_" c_tsystem_write_ ::
               Ptr RawTSystem -> IO CInt

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_delete" c_tsystem_delete ::
               Ptr RawTSystem -> IO ()

foreign import ccall interruptible
               "HROOTCoreTSystem.h TSystem_ProcessEvents" c_tsystem_processevents
               :: Ptr RawTSystem -> IO CBool