{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TCollection.Implementation where import Data.Monoid import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import Language.Haskell.TH import Language.Haskell.TH.Syntax import System.IO.Unsafe import FFICXX.Runtime.Cast import FFICXX.Runtime.CodeGen.Cxx import FFICXX.Runtime.TH import HROOT.Core.TCollection.RawType import HROOT.Core.TCollection.FFI import HROOT.Core.TCollection.Interface import HROOT.Core.TCollection.Cast import HROOT.Core.TCollection.RawType import HROOT.Core.TCollection.Cast import HROOT.Core.TCollection.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Core.TObject.RawType import HROOT.Core.TObject.Cast import HROOT.Core.TObject.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => ITCollection (TCollection) where instance () => ITObject (TCollection) where clear :: forall c0. Castable c0 CString => TCollection -> c0 -> IO () clear = (Ptr RawTCollection -> CString -> IO ()) -> TCollection -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCollection -> CString -> IO () c_tcollection_clear draw :: forall c0. Castable c0 CString => TCollection -> c0 -> IO () draw = (Ptr RawTCollection -> CString -> IO ()) -> TCollection -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCollection -> CString -> IO () c_tcollection_draw findObject :: forall c0. Castable c0 CString => TCollection -> c0 -> IO TObject findObject = (Ptr RawTCollection -> CString -> IO (Ptr RawTObject)) -> TCollection -> c0 -> IO TObject forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCollection -> CString -> IO (Ptr RawTObject) c_tcollection_findobject getName :: TCollection -> IO CString getName = (Ptr RawTCollection -> IO CString) -> TCollection -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCollection -> IO CString c_tcollection_getname isA :: TCollection -> IO TClass isA = (Ptr RawTCollection -> IO (Ptr RawTClass)) -> TCollection -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCollection -> IO (Ptr RawTClass) c_tcollection_isa paint :: forall c0. Castable c0 CString => TCollection -> c0 -> IO () paint = (Ptr RawTCollection -> CString -> IO ()) -> TCollection -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCollection -> CString -> IO () c_tcollection_paint printObj :: forall c0. Castable c0 CString => TCollection -> c0 -> IO () printObj = (Ptr RawTCollection -> CString -> IO ()) -> TCollection -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCollection -> CString -> IO () c_tcollection_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TCollection -> c0 -> c1 -> IO () saveAs = (Ptr RawTCollection -> CString -> CString -> IO ()) -> TCollection -> c0 -> c1 -> IO () forall a ca x1 cx1 x2 cx2 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable y cy) => (ca -> cx1 -> cx2 -> IO cy) -> a -> x1 -> x2 -> IO y xform2 Ptr RawTCollection -> CString -> CString -> IO () c_tcollection_saveas write :: forall c0. Castable c0 CString => TCollection -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTCollection -> CString -> CInt -> CInt -> IO CInt) -> TCollection -> c0 -> CInt -> CInt -> IO CInt forall a ca x1 cx1 x2 cx2 x3 cx3 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable x3 cx3, Castable y cy) => (ca -> cx1 -> cx2 -> cx3 -> IO cy) -> a -> x1 -> x2 -> x3 -> IO y xform3 Ptr RawTCollection -> CString -> CInt -> CInt -> IO CInt c_tcollection_write write_ :: TCollection -> IO CInt write_ = (Ptr RawTCollection -> IO CInt) -> TCollection -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCollection -> IO CInt c_tcollection_write_ instance () => IDeletable (TCollection) where delete :: TCollection -> IO () delete = (Ptr RawTCollection -> IO ()) -> TCollection -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCollection -> IO () c_tcollection_delete