{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.IO.TDirectoryFile.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.IO.TDirectoryFile.RawType import HROOT.IO.TDirectoryFile.FFI import HROOT.IO.TDirectoryFile.Interface import HROOT.IO.TDirectoryFile.Cast import HROOT.IO.TDirectoryFile.RawType import HROOT.IO.TDirectoryFile.Cast import HROOT.IO.TDirectoryFile.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.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 () => ITDirectoryFile (TDirectoryFile) where instance () => ITDirectory (TDirectoryFile) where append :: forall c0. (ITObject c0, FPtr c0) => TDirectoryFile -> c0 -> CBool -> IO () append = (Ptr RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO () c_tdirectoryfile_append addD :: forall c0. (ITObject c0, FPtr c0) => TDirectoryFile -> c0 -> CBool -> IO () addD = (Ptr RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> Ptr RawTObject -> CBool -> IO () c_tdirectoryfile_addd appendKey :: forall c0. (ITKey c0, FPtr c0) => TDirectoryFile -> c0 -> IO CInt appendKey = (Ptr RawTDirectoryFile -> Ptr RawTKey -> IO CInt) -> TDirectoryFile -> 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 RawTDirectoryFile -> Ptr RawTKey -> IO CInt c_tdirectoryfile_appendkey close :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () close = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_close get :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO TObject get = (Ptr RawTDirectoryFile -> CString -> IO (Ptr RawTObject)) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO (Ptr RawTObject) c_tdirectoryfile_get cd_TDirectory :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO CBool cd_TDirectory = (Ptr RawTDirectoryFile -> CString -> IO CBool) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO CBool c_tdirectoryfile_cd_tdirectory instance () => ITNamed (TDirectoryFile) where setName :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () setName = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TDirectoryFile -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTDirectoryFile -> CString -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> CString -> IO () c_tdirectoryfile_setnametitle setTitle :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () setTitle = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_settitle instance () => ITObject (TDirectoryFile) where clear :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () clear = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_clear draw :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () draw = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_draw findObject :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO TObject findObject = (Ptr RawTDirectoryFile -> CString -> IO (Ptr RawTObject)) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO (Ptr RawTObject) c_tdirectoryfile_findobject getName :: TDirectoryFile -> IO CString getName = (Ptr RawTDirectoryFile -> IO CString) -> TDirectoryFile -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectoryFile -> IO CString c_tdirectoryfile_getname isA :: TDirectoryFile -> IO TClass isA = (Ptr RawTDirectoryFile -> IO (Ptr RawTClass)) -> TDirectoryFile -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectoryFile -> IO (Ptr RawTClass) c_tdirectoryfile_isa paint :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () paint = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_paint printObj :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> IO () printObj = (Ptr RawTDirectoryFile -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> IO () c_tdirectoryfile_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TDirectoryFile -> c0 -> c1 -> IO () saveAs = (Ptr RawTDirectoryFile -> CString -> CString -> IO ()) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> CString -> IO () c_tdirectoryfile_saveas write :: forall c0. Castable c0 CString => TDirectoryFile -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTDirectoryFile -> CString -> CInt -> CInt -> IO CInt) -> TDirectoryFile -> 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 RawTDirectoryFile -> CString -> CInt -> CInt -> IO CInt c_tdirectoryfile_write write_ :: TDirectoryFile -> IO CInt write_ = (Ptr RawTDirectoryFile -> IO CInt) -> TDirectoryFile -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectoryFile -> IO CInt c_tdirectoryfile_write_ instance () => IDeletable (TDirectoryFile) where delete :: TDirectoryFile -> IO () delete = (Ptr RawTDirectoryFile -> IO ()) -> TDirectoryFile -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTDirectoryFile -> IO () c_tdirectoryfile_delete