{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.Class.TArc.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

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

#include "HROOTTArc.h"

foreign import ccall "HROOTTArc.h TArc_Draw" c_tarc_draw 
  :: (Ptr RawTArc) -> CString -> IO ()
foreign import ccall "HROOTTArc.h TArc_FindObject" c_tarc_findobject 
  :: (Ptr RawTArc) -> CString -> IO (Ptr RawTObject)
foreign import ccall "HROOTTArc.h TArc_GetName" c_tarc_getname 
  :: (Ptr RawTArc) -> IO CString
foreign import ccall "HROOTTArc.h TArc_IsA" c_tarc_isa 
  :: (Ptr RawTArc) -> IO (Ptr RawTClass)
foreign import ccall "HROOTTArc.h TArc_IsFolder" c_tarc_isfolder 
  :: (Ptr RawTArc) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_IsEqual" c_tarc_isequal 
  :: (Ptr RawTArc) -> (Ptr RawTObject) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_IsSortable" c_tarc_issortable 
  :: (Ptr RawTArc) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_Paint" c_tarc_paint 
  :: (Ptr RawTArc) -> CString -> IO ()
foreign import ccall "HROOTTArc.h TArc_printObj" c_tarc_printobj 
  :: (Ptr RawTArc) -> CString -> IO ()
foreign import ccall "HROOTTArc.h TArc_RecursiveRemove" c_tarc_recursiveremove 
  :: (Ptr RawTArc) -> (Ptr RawTObject) -> IO ()
foreign import ccall "HROOTTArc.h TArc_SaveAs" c_tarc_saveas 
  :: (Ptr RawTArc) -> CString -> CString -> IO ()
foreign import ccall "HROOTTArc.h TArc_UseCurrentStyle" c_tarc_usecurrentstyle 
  :: (Ptr RawTArc) -> IO ()
foreign import ccall "HROOTTArc.h TArc_Write" c_tarc_write 
  :: (Ptr RawTArc) -> CString -> CInt -> CInt -> IO CInt
foreign import ccall "HROOTTArc.h TArc_GetLineColor" c_tarc_getlinecolor 
  :: (Ptr RawTArc) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_GetLineStyle" c_tarc_getlinestyle 
  :: (Ptr RawTArc) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_GetLineWidth" c_tarc_getlinewidth 
  :: (Ptr RawTArc) -> IO CInt
foreign import ccall "HROOTTArc.h TArc_ResetAttLine" c_tarc_resetattline 
  :: (Ptr RawTArc) -> CString -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetLineAttributes" c_tarc_setlineattributes 
  :: (Ptr RawTArc) -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetLineColor" c_tarc_setlinecolor 
  :: (Ptr RawTArc) -> CInt -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetLineStyle" c_tarc_setlinestyle 
  :: (Ptr RawTArc) -> CInt -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetLineWidth" c_tarc_setlinewidth 
  :: (Ptr RawTArc) -> CInt -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetFillColor" c_tarc_setfillcolor 
  :: (Ptr RawTArc) -> CInt -> IO ()
foreign import ccall "HROOTTArc.h TArc_SetFillStyle" c_tarc_setfillstyle 
  :: (Ptr RawTArc) -> CInt -> IO ()
foreign import ccall "HROOTTArc.h TArc_delete" c_tarc_delete 
  :: (Ptr RawTArc) -> IO ()
foreign import ccall "HROOTTArc.h TArc_newTArc" c_tarc_newtarc 
  :: CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO (Ptr RawTArc)