{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TROOT.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.TROOT.RawType import HROOT.Core.TROOT.FFI import HROOT.Core.TROOT.Interface import HROOT.Core.TROOT.Cast import HROOT.Core.TROOT.RawType import HROOT.Core.TROOT.Cast import HROOT.Core.TROOT.Interface import HROOT.Core.TKey.RawType import HROOT.Core.TKey.Cast import HROOT.Core.TKey.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Core.TGlobal.RawType import HROOT.Core.TGlobal.Cast import HROOT.Core.TGlobal.Interface import HROOT.Core.TDirectory.RawType import HROOT.Core.TDirectory.Cast import HROOT.Core.TDirectory.Interface import HROOT.Core.TNamed.RawType import HROOT.Core.TNamed.Cast import HROOT.Core.TNamed.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 () => ITROOT (TROOT) where instance () => ITDirectory (TROOT) where append :: forall c0. (ITObject c0, FPtr c0) => TROOT -> c0 -> CBool -> IO () append = (Ptr RawTROOT -> Ptr RawTObject -> CBool -> IO ()) -> TROOT -> c0 -> CBool -> 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 RawTROOT -> Ptr RawTObject -> CBool -> IO () c_troot_append addD :: forall c0. (ITObject c0, FPtr c0) => TROOT -> c0 -> CBool -> IO () addD = (Ptr RawTROOT -> Ptr RawTObject -> CBool -> IO ()) -> TROOT -> c0 -> CBool -> 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 RawTROOT -> Ptr RawTObject -> CBool -> IO () c_troot_addd appendKey :: forall c0. (ITKey c0, FPtr c0) => TROOT -> c0 -> IO CInt appendKey = (Ptr RawTROOT -> Ptr RawTKey -> IO CInt) -> TROOT -> c0 -> IO CInt 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 RawTROOT -> Ptr RawTKey -> IO CInt c_troot_appendkey close :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () close = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_close get :: forall c0. Castable c0 CString => TROOT -> c0 -> IO TObject get = (Ptr RawTROOT -> CString -> IO (Ptr RawTObject)) -> TROOT -> 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 RawTROOT -> CString -> IO (Ptr RawTObject) c_troot_get cd_TDirectory :: forall c0. Castable c0 CString => TROOT -> c0 -> IO CBool cd_TDirectory = (Ptr RawTROOT -> CString -> IO CBool) -> TROOT -> c0 -> IO CBool 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 RawTROOT -> CString -> IO CBool c_troot_cd_tdirectory instance () => ITNamed (TROOT) where setName :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () setName = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TROOT -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTROOT -> CString -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> CString -> IO () c_troot_setnametitle setTitle :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () setTitle = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_settitle instance () => ITObject (TROOT) where clear :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () clear = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_clear draw :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () draw = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_draw findObject :: forall c0. Castable c0 CString => TROOT -> c0 -> IO TObject findObject = (Ptr RawTROOT -> CString -> IO (Ptr RawTObject)) -> TROOT -> 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 RawTROOT -> CString -> IO (Ptr RawTObject) c_troot_findobject getName :: TROOT -> IO CString getName = (Ptr RawTROOT -> IO CString) -> TROOT -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTROOT -> IO CString c_troot_getname isA :: TROOT -> IO TClass isA = (Ptr RawTROOT -> IO (Ptr RawTClass)) -> TROOT -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTROOT -> IO (Ptr RawTClass) c_troot_isa paint :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () paint = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_paint printObj :: forall c0. Castable c0 CString => TROOT -> c0 -> IO () printObj = (Ptr RawTROOT -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> IO () c_troot_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TROOT -> c0 -> c1 -> IO () saveAs = (Ptr RawTROOT -> CString -> CString -> IO ()) -> TROOT -> 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 RawTROOT -> CString -> CString -> IO () c_troot_saveas write :: forall c0. Castable c0 CString => TROOT -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTROOT -> CString -> CInt -> CInt -> IO CInt) -> TROOT -> 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 RawTROOT -> CString -> CInt -> CInt -> IO CInt c_troot_write write_ :: TROOT -> IO CInt write_ = (Ptr RawTROOT -> IO CInt) -> TROOT -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTROOT -> IO CInt c_troot_write_ instance () => IDeletable (TROOT) where delete :: TROOT -> IO () delete = (Ptr RawTROOT -> IO ()) -> TROOT -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTROOT -> IO () c_troot_delete tROOT_GetGlobal :: (Castable c0 CString) => TROOT -> c0 -> CBool -> IO TGlobal tROOT_GetGlobal :: forall c0. Castable c0 CString => TROOT -> c0 -> CBool -> IO TGlobal tROOT_GetGlobal = (Ptr RawTROOT -> CString -> CBool -> IO (Ptr RawTGlobal)) -> TROOT -> c0 -> CBool -> IO TGlobal 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 RawTROOT -> CString -> CBool -> IO (Ptr RawTGlobal) c_troot_troot_getglobal tROOT_Initialized :: () => IO CBool tROOT_Initialized :: IO CBool tROOT_Initialized = IO CBool -> IO CBool forall a ca. Castable a ca => IO ca -> IO a xformnull IO CBool c_troot_troot_initialized