{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TDirectory.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.TDirectory.RawType import HROOT.Core.TDirectory.FFI import HROOT.Core.TDirectory.Interface import HROOT.Core.TDirectory.Cast import HROOT.Core.TDirectory.RawType import HROOT.Core.TDirectory.Cast import HROOT.Core.TDirectory.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Core.TKey.RawType import HROOT.Core.TKey.Cast import HROOT.Core.TKey.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 () => ITDirectory (TDirectory) where append :: forall c0. (ITObject c0, FPtr c0) => TDirectory -> c0 -> CBool -> IO () append = (Ptr RawTDirectory -> Ptr RawTObject -> CBool -> IO ()) -> TDirectory -> 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 RawTDirectory -> Ptr RawTObject -> CBool -> IO () c_tdirectory_append addD :: forall c0. (ITObject c0, FPtr c0) => TDirectory -> c0 -> CBool -> IO () addD = (Ptr RawTDirectory -> Ptr RawTObject -> CBool -> IO ()) -> TDirectory -> 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 RawTDirectory -> Ptr RawTObject -> CBool -> IO () c_tdirectory_addd appendKey :: forall c0. (ITKey c0, FPtr c0) => TDirectory -> c0 -> IO CInt appendKey = (Ptr RawTDirectory -> Ptr RawTKey -> IO CInt) -> TDirectory -> 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 RawTDirectory -> Ptr RawTKey -> IO CInt c_tdirectory_appendkey close :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () close = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_close get :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO TObject get = (Ptr RawTDirectory -> CString -> IO (Ptr RawTObject)) -> TDirectory -> 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 RawTDirectory -> CString -> IO (Ptr RawTObject) c_tdirectory_get cd_TDirectory :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO CBool cd_TDirectory = (Ptr RawTDirectory -> CString -> IO CBool) -> TDirectory -> 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 RawTDirectory -> CString -> IO CBool c_tdirectory_cd_tdirectory instance () => ITNamed (TDirectory) where setName :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () setName = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TDirectory -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTDirectory -> CString -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> CString -> IO () c_tdirectory_setnametitle setTitle :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () setTitle = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_settitle instance () => ITObject (TDirectory) where clear :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () clear = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_clear draw :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () draw = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_draw findObject :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO TObject findObject = (Ptr RawTDirectory -> CString -> IO (Ptr RawTObject)) -> TDirectory -> 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 RawTDirectory -> CString -> IO (Ptr RawTObject) c_tdirectory_findobject getName :: TDirectory -> IO CString getName = (Ptr RawTDirectory -> IO CString) -> TDirectory -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectory -> IO CString c_tdirectory_getname isA :: TDirectory -> IO TClass isA = (Ptr RawTDirectory -> IO (Ptr RawTClass)) -> TDirectory -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectory -> IO (Ptr RawTClass) c_tdirectory_isa paint :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () paint = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_paint printObj :: forall c0. Castable c0 CString => TDirectory -> c0 -> IO () printObj = (Ptr RawTDirectory -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> IO () c_tdirectory_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TDirectory -> c0 -> c1 -> IO () saveAs = (Ptr RawTDirectory -> CString -> CString -> IO ()) -> TDirectory -> 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 RawTDirectory -> CString -> CString -> IO () c_tdirectory_saveas write :: forall c0. Castable c0 CString => TDirectory -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTDirectory -> CString -> CInt -> CInt -> IO CInt) -> TDirectory -> 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 RawTDirectory -> CString -> CInt -> CInt -> IO CInt c_tdirectory_write write_ :: TDirectory -> IO CInt write_ = (Ptr RawTDirectory -> IO CInt) -> TDirectory -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectory -> IO CInt c_tdirectory_write_ instance () => IDeletable (TDirectory) where delete :: TDirectory -> IO () delete = (Ptr RawTDirectory -> IO ()) -> TDirectory -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectory -> IO () c_tdirectory_delete tDirectory_AddDirectory :: () => CBool -> IO () tDirectory_AddDirectory :: CBool -> IO () tDirectory_AddDirectory = (CBool -> IO ()) -> CBool -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 CBool -> IO () c_tdirectory_tdirectory_adddirectory tDirectory_AddDirectoryStatus :: () => IO CBool tDirectory_AddDirectoryStatus :: IO CBool tDirectory_AddDirectoryStatus = IO CBool -> IO CBool forall a ca. Castable a ca => IO ca -> IO a xformnull IO CBool c_tdirectory_tdirectory_adddirectorystatus