{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.Class.TBRIK.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

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

#include "HROOTTBRIK.h"

foreign import ccall "HROOTTBRIK.h TBRIK_SetName" c_tbrik_setname 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetNameTitle" c_tbrik_setnametitle 
  :: (Ptr RawTBRIK) -> CString -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetTitle" c_tbrik_settitle 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_GetLineColor" c_tbrik_getlinecolor 
  :: (Ptr RawTBRIK) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_GetLineStyle" c_tbrik_getlinestyle 
  :: (Ptr RawTBRIK) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_GetLineWidth" c_tbrik_getlinewidth 
  :: (Ptr RawTBRIK) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_ResetAttLine" c_tbrik_resetattline 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetLineAttributes" c_tbrik_setlineattributes 
  :: (Ptr RawTBRIK) -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetLineColor" c_tbrik_setlinecolor 
  :: (Ptr RawTBRIK) -> CInt -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetLineStyle" c_tbrik_setlinestyle 
  :: (Ptr RawTBRIK) -> CInt -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetLineWidth" c_tbrik_setlinewidth 
  :: (Ptr RawTBRIK) -> CInt -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetFillColor" c_tbrik_setfillcolor 
  :: (Ptr RawTBRIK) -> CInt -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SetFillStyle" c_tbrik_setfillstyle 
  :: (Ptr RawTBRIK) -> CInt -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_Draw" c_tbrik_draw 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_FindObject" c_tbrik_findobject 
  :: (Ptr RawTBRIK) -> CString -> IO (Ptr RawTObject)
foreign import ccall "HROOTTBRIK.h TBRIK_GetName" c_tbrik_getname 
  :: (Ptr RawTBRIK) -> IO CString
foreign import ccall "HROOTTBRIK.h TBRIK_IsA" c_tbrik_isa 
  :: (Ptr RawTBRIK) -> IO (Ptr RawTClass)
foreign import ccall "HROOTTBRIK.h TBRIK_IsFolder" c_tbrik_isfolder 
  :: (Ptr RawTBRIK) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_IsEqual" c_tbrik_isequal 
  :: (Ptr RawTBRIK) -> (Ptr RawTObject) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_IsSortable" c_tbrik_issortable 
  :: (Ptr RawTBRIK) -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_Paint" c_tbrik_paint 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_printObj" c_tbrik_printobj 
  :: (Ptr RawTBRIK) -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_RecursiveRemove" c_tbrik_recursiveremove 
  :: (Ptr RawTBRIK) -> (Ptr RawTObject) -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_SaveAs" c_tbrik_saveas 
  :: (Ptr RawTBRIK) -> CString -> CString -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_UseCurrentStyle" c_tbrik_usecurrentstyle 
  :: (Ptr RawTBRIK) -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_Write" c_tbrik_write 
  :: (Ptr RawTBRIK) -> CString -> CInt -> CInt -> IO CInt
foreign import ccall "HROOTTBRIK.h TBRIK_delete" c_tbrik_delete 
  :: (Ptr RawTBRIK) -> IO ()
foreign import ccall "HROOTTBRIK.h TBRIK_newTBRIK" c_tbrik_newtbrik 
  :: CString -> CString -> CString -> CDouble -> CDouble -> CDouble -> IO (Ptr RawTBRIK)