{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Hist.TAxis.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.Hist.TAxis.RawType import HROOT.Hist.TAxis.FFI import HROOT.Hist.TAxis.Interface import HROOT.Hist.TAxis.Cast import HROOT.Hist.TAxis.RawType import HROOT.Hist.TAxis.Cast import HROOT.Hist.TAxis.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Core.TArrayD.RawType import HROOT.Core.TArrayD.Cast import HROOT.Core.TArrayD.Interface import HROOT.Core.TNamed.RawType import HROOT.Core.TNamed.Cast import HROOT.Core.TNamed.Interface import HROOT.Core.TAttAxis.RawType import HROOT.Core.TAttAxis.Cast import HROOT.Core.TAttAxis.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 () => ITAxis (TAxis) where findBinTAxis :: TAxis -> CDouble -> IO CInt findBinTAxis = (Ptr RawTAxis -> CDouble -> IO CInt) -> TAxis -> CDouble -> 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 RawTAxis -> CDouble -> IO CInt c_taxis_findbintaxis findFixBinTAxis :: TAxis -> CDouble -> IO CInt findFixBinTAxis = (Ptr RawTAxis -> CDouble -> IO CInt) -> TAxis -> CDouble -> 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 RawTAxis -> CDouble -> IO CInt c_taxis_findfixbintaxis getBinCenterTAxis :: TAxis -> CInt -> IO CDouble getBinCenterTAxis = (Ptr RawTAxis -> CInt -> IO CDouble) -> TAxis -> CInt -> IO CDouble 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 RawTAxis -> CInt -> IO CDouble c_taxis_getbincentertaxis getBinCenterLog :: TAxis -> CInt -> IO CDouble getBinCenterLog = (Ptr RawTAxis -> CInt -> IO CDouble) -> TAxis -> CInt -> IO CDouble 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 RawTAxis -> CInt -> IO CDouble c_taxis_getbincenterlog getBinUpEdge :: TAxis -> CInt -> IO CDouble getBinUpEdge = (Ptr RawTAxis -> CInt -> IO CDouble) -> TAxis -> CInt -> IO CDouble 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 RawTAxis -> CInt -> IO CDouble c_taxis_getbinupedge setLimits :: TAxis -> CDouble -> CDouble -> IO () setLimits = (Ptr RawTAxis -> CDouble -> CDouble -> IO ()) -> TAxis -> CDouble -> CDouble -> 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 RawTAxis -> CDouble -> CDouble -> IO () c_taxis_setlimits setTimeDisplay :: TAxis -> CInt -> IO () setTimeDisplay = (Ptr RawTAxis -> CInt -> IO ()) -> TAxis -> 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 RawTAxis -> CInt -> IO () c_taxis_settimedisplay setTimeFormat :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () setTimeFormat = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_settimeformat setTimeOffset :: forall c0. Castable c0 CString => TAxis -> CDouble -> c0 -> IO () setTimeOffset = (Ptr RawTAxis -> CDouble -> CString -> IO ()) -> TAxis -> CDouble -> c0 -> 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 RawTAxis -> CDouble -> CString -> IO () c_taxis_settimeoffset instance () => ITNamed (TAxis) where setName :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () setName = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_setname setNameTitle :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TAxis -> c0 -> c1 -> IO () setNameTitle = (Ptr RawTAxis -> CString -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> CString -> IO () c_taxis_setnametitle setTitle :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () setTitle = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_settitle instance () => ITAttAxis (TAxis) where getNdivisions :: TAxis -> IO CInt getNdivisions = (Ptr RawTAxis -> IO CInt) -> TAxis -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CInt c_taxis_getndivisions getAxisColor :: TAxis -> IO CShort getAxisColor = (Ptr RawTAxis -> IO CShort) -> TAxis -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CShort c_taxis_getaxiscolor getLabelColor :: TAxis -> IO CShort getLabelColor = (Ptr RawTAxis -> IO CShort) -> TAxis -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CShort c_taxis_getlabelcolor getLabelFont :: TAxis -> IO CShort getLabelFont = (Ptr RawTAxis -> IO CShort) -> TAxis -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CShort c_taxis_getlabelfont getLabelOffset :: TAxis -> IO CFloat getLabelOffset = (Ptr RawTAxis -> IO CFloat) -> TAxis -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CFloat c_taxis_getlabeloffset getLabelSize :: TAxis -> IO CFloat getLabelSize = (Ptr RawTAxis -> IO CFloat) -> TAxis -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CFloat c_taxis_getlabelsize getTitleOffset :: TAxis -> IO CFloat getTitleOffset = (Ptr RawTAxis -> IO CFloat) -> TAxis -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CFloat c_taxis_gettitleoffset getTitleSize :: TAxis -> IO CFloat getTitleSize = (Ptr RawTAxis -> IO CFloat) -> TAxis -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CFloat c_taxis_gettitlesize getTickLength :: TAxis -> IO CFloat getTickLength = (Ptr RawTAxis -> IO CFloat) -> TAxis -> IO CFloat forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CFloat c_taxis_getticklength getTitleFont :: TAxis -> IO CShort getTitleFont = (Ptr RawTAxis -> IO CShort) -> TAxis -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CShort c_taxis_gettitlefont setNdivisions :: TAxis -> CInt -> CBool -> IO () setNdivisions = (Ptr RawTAxis -> CInt -> CBool -> IO ()) -> TAxis -> CInt -> 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 RawTAxis -> CInt -> CBool -> IO () c_taxis_setndivisions setAxisColor :: TAxis -> CShort -> IO () setAxisColor = (Ptr RawTAxis -> CShort -> IO ()) -> TAxis -> 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 RawTAxis -> CShort -> IO () c_taxis_setaxiscolor setLabelColor :: TAxis -> CShort -> IO () setLabelColor = (Ptr RawTAxis -> CShort -> IO ()) -> TAxis -> 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 RawTAxis -> CShort -> IO () c_taxis_setlabelcolor setLabelFont :: TAxis -> CShort -> IO () setLabelFont = (Ptr RawTAxis -> CShort -> IO ()) -> TAxis -> 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 RawTAxis -> CShort -> IO () c_taxis_setlabelfont setLabelOffset :: TAxis -> CFloat -> IO () setLabelOffset = (Ptr RawTAxis -> CFloat -> IO ()) -> TAxis -> CFloat -> 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 RawTAxis -> CFloat -> IO () c_taxis_setlabeloffset setLabelSize :: TAxis -> CFloat -> IO () setLabelSize = (Ptr RawTAxis -> CFloat -> IO ()) -> TAxis -> CFloat -> 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 RawTAxis -> CFloat -> IO () c_taxis_setlabelsize setTickLength :: TAxis -> CFloat -> IO () setTickLength = (Ptr RawTAxis -> CFloat -> IO ()) -> TAxis -> CFloat -> 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 RawTAxis -> CFloat -> IO () c_taxis_setticklength setTitleOffset :: TAxis -> CFloat -> IO () setTitleOffset = (Ptr RawTAxis -> CFloat -> IO ()) -> TAxis -> CFloat -> 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 RawTAxis -> CFloat -> IO () c_taxis_settitleoffset setTitleSize :: TAxis -> CFloat -> IO () setTitleSize = (Ptr RawTAxis -> CFloat -> IO ()) -> TAxis -> CFloat -> 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 RawTAxis -> CFloat -> IO () c_taxis_settitlesize setTitleColor :: TAxis -> CShort -> IO () setTitleColor = (Ptr RawTAxis -> CShort -> IO ()) -> TAxis -> 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 RawTAxis -> CShort -> IO () c_taxis_settitlecolor setTitleFont :: TAxis -> CShort -> IO () setTitleFont = (Ptr RawTAxis -> CShort -> IO ()) -> TAxis -> 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 RawTAxis -> CShort -> IO () c_taxis_settitlefont instance () => ITObject (TAxis) where clear :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () clear = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_clear draw :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () draw = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_draw findObject :: forall c0. Castable c0 CString => TAxis -> c0 -> IO TObject findObject = (Ptr RawTAxis -> CString -> IO (Ptr RawTObject)) -> TAxis -> 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 RawTAxis -> CString -> IO (Ptr RawTObject) c_taxis_findobject getName :: TAxis -> IO CString getName = (Ptr RawTAxis -> IO CString) -> TAxis -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CString c_taxis_getname isA :: TAxis -> IO TClass isA = (Ptr RawTAxis -> IO (Ptr RawTClass)) -> TAxis -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO (Ptr RawTClass) c_taxis_isa paint :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () paint = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_paint printObj :: forall c0. Castable c0 CString => TAxis -> c0 -> IO () printObj = (Ptr RawTAxis -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> IO () c_taxis_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TAxis -> c0 -> c1 -> IO () saveAs = (Ptr RawTAxis -> CString -> CString -> IO ()) -> TAxis -> 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 RawTAxis -> CString -> CString -> IO () c_taxis_saveas write :: forall c0. Castable c0 CString => TAxis -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTAxis -> CString -> CInt -> CInt -> IO CInt) -> TAxis -> 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 RawTAxis -> CString -> CInt -> CInt -> IO CInt c_taxis_write write_ :: TAxis -> IO CInt write_ = (Ptr RawTAxis -> IO CInt) -> TAxis -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CInt c_taxis_write_ instance () => IDeletable (TAxis) where delete :: TAxis -> IO () delete = (Ptr RawTAxis -> IO ()) -> TAxis -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO () c_taxis_delete newTAxis :: () => CInt -> CDouble -> CDouble -> IO TAxis newTAxis :: CInt -> CDouble -> CDouble -> IO TAxis newTAxis = (CInt -> CDouble -> CDouble -> IO (Ptr RawTAxis)) -> CInt -> CDouble -> CDouble -> IO TAxis 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 CInt -> CDouble -> CDouble -> IO (Ptr RawTAxis) c_taxis_newtaxis tAxis_GetCenterLabels :: () => TAxis -> IO CBool tAxis_GetCenterLabels :: TAxis -> IO CBool tAxis_GetCenterLabels = (Ptr RawTAxis -> IO CBool) -> TAxis -> IO CBool forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CBool c_taxis_taxis_getcenterlabels tAxis_GetCenterTitle :: () => TAxis -> IO CBool tAxis_GetCenterTitle :: TAxis -> IO CBool tAxis_GetCenterTitle = (Ptr RawTAxis -> IO CBool) -> TAxis -> IO CBool forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CBool c_taxis_taxis_getcentertitle tAxis_GetFirst :: () => TAxis -> IO CInt tAxis_GetFirst :: TAxis -> IO CInt tAxis_GetFirst = (Ptr RawTAxis -> IO CInt) -> TAxis -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CInt c_taxis_taxis_getfirst tAxis_GetLast :: () => TAxis -> IO CInt tAxis_GetLast :: TAxis -> IO CInt tAxis_GetLast = (Ptr RawTAxis -> IO CInt) -> TAxis -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CInt c_taxis_taxis_getlast tAxis_GetNbins :: () => TAxis -> IO CInt tAxis_GetNbins :: TAxis -> IO CInt tAxis_GetNbins = (Ptr RawTAxis -> IO CInt) -> TAxis -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CInt c_taxis_taxis_getnbins tAxis_GetXbins :: () => TAxis -> IO TArrayD tAxis_GetXbins :: TAxis -> IO TArrayD tAxis_GetXbins = (Ptr RawTAxis -> IO (Ptr RawTArrayD)) -> TAxis -> IO TArrayD forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO (Ptr RawTArrayD) c_taxis_taxis_getxbins tAxis_GetXmax :: () => TAxis -> IO CDouble tAxis_GetXmax :: TAxis -> IO CDouble tAxis_GetXmax = (Ptr RawTAxis -> IO CDouble) -> TAxis -> IO CDouble forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CDouble c_taxis_taxis_getxmax tAxis_GetXmin :: () => TAxis -> IO CDouble tAxis_GetXmin :: TAxis -> IO CDouble tAxis_GetXmin = (Ptr RawTAxis -> IO CDouble) -> TAxis -> IO CDouble forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTAxis -> IO CDouble c_taxis_taxis_getxmin