{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Core.TAttMarker.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.TAttMarker.RawType import HROOT.Core.TAttMarker.FFI import HROOT.Core.TAttMarker.Interface import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => ITAttMarker (TAttMarker) where getMarkerColor :: TAttMarker -> IO CShort getMarkerColor = (Ptr RawTAttMarker -> IO CShort) -> TAttMarker -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttMarker -> IO CShort c_tattmarker_getmarkercolor getMarkerStyle :: TAttMarker -> IO CShort getMarkerStyle = (Ptr RawTAttMarker -> IO CShort) -> TAttMarker -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttMarker -> IO CShort c_tattmarker_getmarkerstyle getMarkerSize :: TAttMarker -> IO CFloat getMarkerSize = (Ptr RawTAttMarker -> IO CFloat) -> TAttMarker -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttMarker -> IO CFloat c_tattmarker_getmarkersize resetAttMarker :: forall c0. Castable c0 CString => TAttMarker -> c0 -> IO () resetAttMarker = (Ptr RawTAttMarker -> CString -> IO ()) -> TAttMarker -> 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 RawTAttMarker -> CString -> IO () c_tattmarker_resetattmarker setMarkerAttributes :: TAttMarker -> IO () setMarkerAttributes = (Ptr RawTAttMarker -> IO ()) -> TAttMarker -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttMarker -> IO () c_tattmarker_setmarkerattributes setMarkerColor :: TAttMarker -> CShort -> IO () setMarkerColor = (Ptr RawTAttMarker -> CShort -> IO ()) -> TAttMarker -> 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 RawTAttMarker -> CShort -> IO () c_tattmarker_setmarkercolor setMarkerStyle :: TAttMarker -> CShort -> IO () setMarkerStyle = (Ptr RawTAttMarker -> CShort -> IO ()) -> TAttMarker -> 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 RawTAttMarker -> CShort -> IO () c_tattmarker_setmarkerstyle setMarkerSize :: TAttMarker -> CShort -> IO () setMarkerSize = (Ptr RawTAttMarker -> CShort -> IO ()) -> TAttMarker -> 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 RawTAttMarker -> CShort -> IO () c_tattmarker_setmarkersize instance () => IDeletable (TAttMarker) where delete :: TAttMarker -> IO () delete = (Ptr RawTAttMarker -> IO ()) -> TAttMarker -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAttMarker -> IO () c_tattmarker_delete newTAttMarker :: () => CShort -> CShort -> CShort -> IO TAttMarker newTAttMarker :: CShort -> CShort -> CShort -> IO TAttMarker newTAttMarker = (CShort -> CShort -> CShort -> IO (Ptr RawTAttMarker)) -> CShort -> CShort -> CShort -> IO TAttMarker 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 CShort -> CShort -> CShort -> IO (Ptr RawTAttMarker) c_tattmarker_newtattmarker