Implementation.hs

{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances,
  ForeignFunctionInterface, IncoherentInstances,
  MultiParamTypeClasses, OverlappingInstances, TemplateHaskell,
  TypeFamilies, TypeSynonymInstances #-}
module HROOT.Hist.TF1.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.TF1.RawType
import HROOT.Hist.TF1.FFI
import HROOT.Hist.TF1.Interface
import HROOT.Hist.TF1.Cast
import HROOT.Hist.TF1.RawType
import HROOT.Hist.TF1.Cast
import HROOT.Hist.TF1.Interface
import HROOT.Core.TObject.RawType
import HROOT.Core.TObject.Cast
import HROOT.Core.TObject.Interface
import HROOT.Hist.TH1.RawType
import HROOT.Hist.TH1.Cast
import HROOT.Hist.TH1.Interface
import HROOT.Hist.TAxis.RawType
import HROOT.Hist.TAxis.Cast
import HROOT.Hist.TAxis.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.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 () => ITF1 (TF1) where
        derivative = xform3 c_tf1_derivative
        derivative2 = xform3 c_tf1_derivative2
        derivative3 = xform3 c_tf1_derivative3
        drawCopyTF1 = xform1 c_tf1_drawcopytf1
        drawDerivative = xform1 c_tf1_drawderivative
        drawIntegral = xform1 c_tf1_drawintegral
        fixParameter = xform2 c_tf1_fixparameter
        getMaximumTF1 = xform5 c_tf1_getmaximumtf1
        getMinimumTF1 = xform5 c_tf1_getminimumtf1
        getMaximumX = xform5 c_tf1_getmaximumx
        getMinimumX = xform5 c_tf1_getminimumx
        getNDF = xform0 c_tf1_getndf
        getNpx = xform0 c_tf1_getnpx
        getNumberFreeParameters = xform0 c_tf1_getnumberfreeparameters
        getNumberFitPoints = xform0 c_tf1_getnumberfitpoints
        getParError = xform1 c_tf1_getparerror
        getProb = xform0 c_tf1_getprob
        getQuantilesTF1 = xform3 c_tf1_getquantilestf1
        getRandomTF1 = xform2 c_tf1_getrandomtf1
        getSave = xform1 c_tf1_getsave
        getX = xform5 c_tf1_getx
        getXmin = xform0 c_tf1_getxmin
        getXmax = xform0 c_tf1_getxmax
        gradientPar = xform3 c_tf1_gradientpar
        initArgs = xform2 c_tf1_initargs
        integralTF1 = xform3 c_tf1_integraltf1
        integralError = xform5 c_tf1_integralerror
        integralFast = xform7 c_tf1_integralfast
        isInside = xform1 c_tf1_isinside
        releaseParameter = xform1 c_tf1_releaseparameter
        setChisquare = xform1 c_tf1_setchisquare
        setMaximumTF1 = xform1 c_tf1_setmaximumtf1
        setMinimumTF1 = xform1 c_tf1_setminimumtf1
        setNDF = xform1 c_tf1_setndf
        setNumberFitPoints = xform1 c_tf1_setnumberfitpoints
        setNpx = xform1 c_tf1_setnpx
        setParError = xform2 c_tf1_setparerror
        setParErrors = xform1 c_tf1_setparerrors
        setParLimits = xform3 c_tf1_setparlimits
        setParent = xform1 c_tf1_setparent
        setRange1 = xform2 c_tf1_setrange1
        setRange2 = xform4 c_tf1_setrange2
        setRange3 = xform6 c_tf1_setrange3
        setSavedPoint = xform2 c_tf1_setsavedpoint
        moment = xform5 c_tf1_moment
        centralMoment = xform5 c_tf1_centralmoment
        mean = xform4 c_tf1_mean
        variance = xform4 c_tf1_variance

instance () => ITAttLine (TF1) where
        getLineColor = xform0 c_tf1_getlinecolor
        getLineStyle = xform0 c_tf1_getlinestyle
        getLineWidth = xform0 c_tf1_getlinewidth
        resetAttLine = xform1 c_tf1_resetattline
        setLineAttributes = xform0 c_tf1_setlineattributes
        setLineColor = xform1 c_tf1_setlinecolor
        setLineStyle = xform1 c_tf1_setlinestyle
        setLineWidth = xform1 c_tf1_setlinewidth

instance () => ITAttFill (TF1) where
        setFillColor = xform1 c_tf1_setfillcolor
        setFillStyle = xform1 c_tf1_setfillstyle

instance () => ITAttMarker (TF1) where
        getMarkerColor = xform0 c_tf1_getmarkercolor
        getMarkerStyle = xform0 c_tf1_getmarkerstyle
        getMarkerSize = xform0 c_tf1_getmarkersize
        resetAttMarker = xform1 c_tf1_resetattmarker
        setMarkerAttributes = xform0 c_tf1_setmarkerattributes
        setMarkerColor = xform1 c_tf1_setmarkercolor
        setMarkerStyle = xform1 c_tf1_setmarkerstyle
        setMarkerSize = xform1 c_tf1_setmarkersize

instance () => IDeletable (TF1) where
        delete = xform0 c_tf1_delete

newTF1 ::
         (Castable c1 CString, Castable c0 CString) =>
         c0 -> c1 -> CDouble -> CDouble -> IO TF1
newTF1 = xform3 c_tf1_newtf1

tF1_GetChisquare :: () => TF1 -> IO CDouble
tF1_GetChisquare = xform0 c_tf1_tf1_getchisquare

tF1_GetHistogram :: () => TF1 -> IO TH1
tF1_GetHistogram = xform0 c_tf1_tf1_gethistogram

tF1_GetParent :: () => TF1 -> IO TObject
tF1_GetParent = xform0 c_tf1_tf1_getparent

tF1_GetXaxis :: () => TF1 -> IO TAxis
tF1_GetXaxis = xform0 c_tf1_tf1_getxaxis

tF1_GetYaxis :: () => TF1 -> IO TAxis
tF1_GetYaxis = xform0 c_tf1_tf1_getyaxis

tF1_GetZaxis :: () => TF1 -> IO TAxis
tF1_GetZaxis = xform0 c_tf1_tf1_getzaxis

tF1_DerivativeError :: () => IO CDouble
tF1_DerivativeError = xformnull c_tf1_tf1_derivativeerror

tF1_InitStandardFunctions :: () => IO ()
tF1_InitStandardFunctions
  = xformnull c_tf1_tf1_initstandardfunctions

tF1_GetCurrent :: () => IO TF1
tF1_GetCurrent = xformnull c_tf1_tf1_getcurrent

tF1_AbsValue :: () => CBool -> IO ()
tF1_AbsValue = xform0 c_tf1_tf1_absvalue

tF1_RejectPoint :: () => CBool -> IO ()
tF1_RejectPoint = xform0 c_tf1_tf1_rejectpoint

tF1_RejectedPoint :: () => IO CBool
tF1_RejectedPoint = xformnull c_tf1_tf1_rejectedpoint

tF1_SetCurrent :: (ITF1 c0, FPtr c0) => c0 -> IO ()
tF1_SetCurrent = xform0 c_tf1_tf1_setcurrent

tF1_CalcGaussLegendreSamplingPoints ::
                                      () => CInt -> Ptr CDouble -> Ptr CDouble -> CDouble -> IO ()
tF1_CalcGaussLegendreSamplingPoints
  = xform3 c_tf1_tf1_calcgausslegendresamplingpoints