{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Graf.TPCON.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.Graf.TPCON.RawType import HROOT.Graf.TPCON.FFI import HROOT.Graf.TPCON.Interface import HROOT.Graf.TPCON.Cast import HROOT.Graf.TPCON.RawType import HROOT.Graf.TPCON.Cast import HROOT.Graf.TPCON.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Graf.TShape.RawType import HROOT.Graf.TShape.Cast import HROOT.Graf.TShape.Interface import HROOT.Core.TNamed.RawType import HROOT.Core.TNamed.Cast import HROOT.Core.TNamed.Interface import HROOT.Core.TAttLine.RawType import HROOT.Core.TAttLine.Cast import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.RawType import HROOT.Core.TAttFill.Cast import HROOT.Core.TAttFill.Interface import HROOT.Core.TAtt3D.RawType import HROOT.Core.TAtt3D.Cast import HROOT.Core.TAtt3D.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 () => ITPCON (TPCON) where instance () => ITShape (TPCON) where instance () => ITNamed (TPCON) where setName :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () setName = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TPCON -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTPCON -> CString -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> CString -> IO () c_tpcon_setnametitle setTitle :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () setTitle = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_settitle instance () => ITAttLine (TPCON) where getLineColor :: TPCON -> IO CShort getLineColor = (Ptr RawTPCON -> IO CShort) -> TPCON -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO CShort c_tpcon_getlinecolor getLineStyle :: TPCON -> IO CShort getLineStyle = (Ptr RawTPCON -> IO CShort) -> TPCON -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO CShort c_tpcon_getlinestyle getLineWidth :: TPCON -> IO CShort getLineWidth = (Ptr RawTPCON -> IO CShort) -> TPCON -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO CShort c_tpcon_getlinewidth resetAttLine :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () resetAttLine = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_resetattline setLineAttributes :: TPCON -> IO () setLineAttributes = (Ptr RawTPCON -> IO ()) -> TPCON -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO () c_tpcon_setlineattributes setLineColor :: TPCON -> CShort -> IO () setLineColor = (Ptr RawTPCON -> CShort -> IO ()) -> TPCON -> CShort -> 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 RawTPCON -> CShort -> IO () c_tpcon_setlinecolor setLineStyle :: TPCON -> CShort -> IO () setLineStyle = (Ptr RawTPCON -> CShort -> IO ()) -> TPCON -> CShort -> 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 RawTPCON -> CShort -> IO () c_tpcon_setlinestyle setLineWidth :: TPCON -> CShort -> IO () setLineWidth = (Ptr RawTPCON -> CShort -> IO ()) -> TPCON -> CShort -> 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 RawTPCON -> CShort -> IO () c_tpcon_setlinewidth instance () => ITAttFill (TPCON) where setFillColor :: TPCON -> CInt -> IO () setFillColor = (Ptr RawTPCON -> CInt -> IO ()) -> TPCON -> CInt -> 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 RawTPCON -> CInt -> IO () c_tpcon_setfillcolor setFillStyle :: TPCON -> CInt -> IO () setFillStyle = (Ptr RawTPCON -> CInt -> IO ()) -> TPCON -> CInt -> 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 RawTPCON -> CInt -> IO () c_tpcon_setfillstyle instance () => ITAtt3D (TPCON) where instance () => ITObject (TPCON) where clear :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () clear = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_clear draw :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () draw = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_draw findObject :: forall c0. Castable c0 CString => TPCON -> c0 -> IO TObject findObject = (Ptr RawTPCON -> CString -> IO (Ptr RawTObject)) -> TPCON -> 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 RawTPCON -> CString -> IO (Ptr RawTObject) c_tpcon_findobject getName :: TPCON -> IO CString getName = (Ptr RawTPCON -> IO CString) -> TPCON -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO CString c_tpcon_getname isA :: TPCON -> IO TClass isA = (Ptr RawTPCON -> IO (Ptr RawTClass)) -> TPCON -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO (Ptr RawTClass) c_tpcon_isa paint :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () paint = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_paint printObj :: forall c0. Castable c0 CString => TPCON -> c0 -> IO () printObj = (Ptr RawTPCON -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> IO () c_tpcon_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TPCON -> c0 -> c1 -> IO () saveAs = (Ptr RawTPCON -> CString -> CString -> IO ()) -> TPCON -> 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 RawTPCON -> CString -> CString -> IO () c_tpcon_saveas write :: forall c0. Castable c0 CString => TPCON -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTPCON -> CString -> CInt -> CInt -> IO CInt) -> TPCON -> 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 RawTPCON -> CString -> CInt -> CInt -> IO CInt c_tpcon_write write_ :: TPCON -> IO CInt write_ = (Ptr RawTPCON -> IO CInt) -> TPCON -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO CInt c_tpcon_write_ instance () => IDeletable (TPCON) where delete :: TPCON -> IO () delete = (Ptr RawTPCON -> IO ()) -> TPCON -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTPCON -> IO () c_tpcon_delete newTPCON :: (Castable c2 CString, Castable c1 CString, Castable c0 CString) => c0 -> c1 -> c2 -> CFloat -> CFloat -> CInt -> IO TPCON newTPCON :: forall c2 c1 c0. (Castable c2 CString, Castable c1 CString, Castable c0 CString) => c0 -> c1 -> c2 -> CFloat -> CFloat -> CInt -> IO TPCON newTPCON = (CString -> CString -> CString -> CFloat -> CFloat -> CInt -> IO (Ptr RawTPCON)) -> c0 -> c1 -> c2 -> CFloat -> CFloat -> CInt -> IO TPCON forall a ca x1 cx1 x2 cx2 x3 cx3 x4 cx4 x5 cx5 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable x3 cx3, Castable x4 cx4, Castable x5 cx5, Castable y cy) => (ca -> cx1 -> cx2 -> cx3 -> cx4 -> cx5 -> IO cy) -> a -> x1 -> x2 -> x3 -> x4 -> x5 -> IO y xform5 CString -> CString -> CString -> CFloat -> CFloat -> CInt -> IO (Ptr RawTPCON) c_tpcon_newtpcon