{-# LINE 1 "src/HROOT/Class/TClass/FFI.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "src/HROOT/Class/TClass/FFI.hsc" #-}

-- module HROOT.Class.FFI where

module HROOT.Class.TClass.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

import HROOT.Class.TClass.RawType
import HROOT.Class.TObject.RawType


{-# LINE 19 "src/HROOT/Class/TClass/FFI.hsc" #-}

foreign import ccall "HROOTTClass.h TClass_SetName" c_tclass_setname 
  :: (Ptr RawTClass) -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_SetNameTitle" c_tclass_setnametitle 
  :: (Ptr RawTClass) -> CString -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_SetTitle" c_tclass_settitle 
  :: (Ptr RawTClass) -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_Draw" c_tclass_draw 
  :: (Ptr RawTClass) -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_FindObject" c_tclass_findobject 
  :: (Ptr RawTClass) -> CString -> IO (Ptr RawTObject)
foreign import ccall "HROOTTClass.h TClass_GetName" c_tclass_getname 
  :: (Ptr RawTClass) -> IO CString
foreign import ccall "HROOTTClass.h TClass_IsA" c_tclass_isa 
  :: (Ptr RawTClass) -> IO (Ptr RawTClass)
foreign import ccall "HROOTTClass.h TClass_IsFolder" c_tclass_isfolder 
  :: (Ptr RawTClass) -> IO CInt
foreign import ccall "HROOTTClass.h TClass_IsEqual" c_tclass_isequal 
  :: (Ptr RawTClass) -> (Ptr RawTObject) -> IO CInt
foreign import ccall "HROOTTClass.h TClass_IsSortable" c_tclass_issortable 
  :: (Ptr RawTClass) -> IO CInt
foreign import ccall "HROOTTClass.h TClass_Paint" c_tclass_paint 
  :: (Ptr RawTClass) -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_printObj" c_tclass_printobj 
  :: (Ptr RawTClass) -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_RecursiveRemove" c_tclass_recursiveremove 
  :: (Ptr RawTClass) -> (Ptr RawTObject) -> IO ()
foreign import ccall "HROOTTClass.h TClass_SaveAs" c_tclass_saveas 
  :: (Ptr RawTClass) -> CString -> CString -> IO ()
foreign import ccall "HROOTTClass.h TClass_UseCurrentStyle" c_tclass_usecurrentstyle 
  :: (Ptr RawTClass) -> IO ()
foreign import ccall "HROOTTClass.h TClass_Write" c_tclass_write 
  :: (Ptr RawTClass) -> CString -> CInt -> CInt -> IO CInt
foreign import ccall "HROOTTClass.h TClass_delete" c_tclass_delete 
  :: (Ptr RawTClass) -> IO ()