{-# LANGUAGE ForeignFunctionInterface #-} module HROOT.Core.TApplication.FFI where import Foreign.C import Foreign.Ptr import HROOT.Core.TApplication.RawType import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType foreign import ccall safe "HROOTCoreTApplication.h TApplication_Draw" c_tapplication_draw :: Ptr RawTApplication -> CString -> IO () foreign import ccall safe "HROOTCoreTApplication.h TApplication_FindObject" c_tapplication_findobject :: Ptr RawTApplication -> CString -> IO (Ptr RawTObject) foreign import ccall safe "HROOTCoreTApplication.h TApplication_GetName" c_tapplication_getname :: Ptr RawTApplication -> IO CString foreign import ccall safe "HROOTCoreTApplication.h TApplication_IsA" c_tapplication_isa :: Ptr RawTApplication -> IO (Ptr RawTClass) foreign import ccall safe "HROOTCoreTApplication.h TApplication_Paint" c_tapplication_paint :: Ptr RawTApplication -> CString -> IO () foreign import ccall safe "HROOTCoreTApplication.h TApplication_printObj" c_tapplication_printobj :: Ptr RawTApplication -> CString -> IO () foreign import ccall safe "HROOTCoreTApplication.h TApplication_SaveAs" c_tapplication_saveas :: Ptr RawTApplication -> CString -> CString -> IO () foreign import ccall safe "HROOTCoreTApplication.h TApplication_Write" c_tapplication_write :: Ptr RawTApplication -> CString -> CInt -> CInt -> IO CInt foreign import ccall safe "HROOTCoreTApplication.h TApplication_delete" c_tapplication_delete :: Ptr RawTApplication -> IO () foreign import ccall safe "HROOTCoreTApplication.h TApplication_newTApplication" c_tapplication_newtapplication :: CString -> (Ptr CInt) -> (Ptr (CString)) -> IO (Ptr RawTApplication) foreign import ccall safe "HROOTCoreTApplication.h TApplication_Run" c_tapplication_run :: Ptr RawTApplication -> CInt -> IO ()