diff --git a/CHANGES b/CHANGES deleted file mode 100644 --- a/CHANGES +++ /dev/null @@ -1,39 +0,0 @@ -0.5.0: 31 Jul 2011 - * initial preview release - -0.5.1: 3 Aug 2011 - * support for delete - -0.6: 16 Aug 2011 - * implement Deletable. delete method for every object - * refactor HROOT generated file names (Interface.hs, Implementation.hs, FFI.hs) - -0.6.3: 22 Sep 2011 - * Implement Existential Types - -0.6.4: 28 Sep 2011 - * add many TH2 class methods - -0.6.6: 7 Oct 2011 - * do not need OverlappingInstances, IncoherentInstances, UndecidableInstances - - -0.6.7: 18 Oct 2011 - * implement almost all TH1 class methods - -0.6.8: 20 Oct 2011 - * implement almost all class methods of TH2, TH3, TFormula, TF1 and TGraph - -0.6.9: 20 Oct 2011 - * implement almost all class methods of TLine, TAttLine, TAttMarker, TAttText and TAttPad - -0.7 : 8 Nov 2011 - * separate all class interfaces and implementation in different modules - * overhaul Existential - -0.7.1 : 12 Nov 2011 - * support for static methods - * add TROOT - -0.8 : 17 Jun 2014 - * separate packages into HROOT-core, HROOT-hist, HROOT-io, HROOT-math, HROOT-graf and HROOT is now an umbrella package diff --git a/Config.hs b/Config.hs deleted file mode 100644 --- a/Config.hs +++ /dev/null @@ -1,85 +0,0 @@ -{-# LANGUAGE ScopedTypeVariables #-} - -module Config where - -import Distribution.Simple -import Distribution.Simple.Setup -import Distribution.PackageDescription -import Distribution.Simple.LocalBuildInfo - -import System.Exit -import System.Process - -config :: LocalBuildInfo -> IO (Maybe HookedBuildInfo) -config bInfo = do - (excode, out, err) <- readProcessWithExitCode "root-config" ["--glibs"] "" - liboptset' <- case excode of - ExitSuccess -> do - return . Just . mkLibraryOptionSet . words $ out - _ -> do - putStrLn $ "root-config failure but I am installing HROOT without ROOT. It will not work. This is only for documentation." - return Nothing - (excode2,out2,err2) <- readProcessWithExitCode "root-config" ["--incdir"] "" - incdir' <- case excode2 of - ExitSuccess -> do - return . Just . head . words $ out2 - _ -> do - putStrLn $ "root-config failure but I am installing HROOT without ROOT. It will not work. This is only for documentation." - return Nothing - let Just lib = library . localPkgDescr $ bInfo - buildinfo = libBuildInfo lib - let (r :: Maybe HookedBuildInfo) = case liboptset' of - Nothing -> Nothing - Just liboptset -> - case incdir' of - Nothing -> Nothing - Just incdir -> - let hbi = emptyBuildInfo { extraLibs = extraLibs buildinfo - ++ libs liboptset - , extraLibDirs = libdirs liboptset - , includeDirs = incdir : includeDirs buildinfo - } - in Just (Just hbi, []) - return r - - -data LibraryOptionSet = LibraryOptionSet { - libs :: [String], - libdirs :: [String], - libopts :: [String] -} deriving Show - -data LibraryOption = Lib String - | Dir String - | Opt String - deriving Show - -mkLibraryOptionSet :: [String] -> LibraryOptionSet -mkLibraryOptionSet strs = let opts = libraryOptions strs - in foldr f (LibraryOptionSet [] [] []) opts - where f x (LibraryOptionSet l d o) = case x of - Lib st -> LibraryOptionSet (st:l) d o - Dir st -> LibraryOptionSet l (st:d) o - Opt st -> LibraryOptionSet l d (st:o) - -libraryOptions :: [String] -> [LibraryOption] -- LibraryOptionSet -libraryOptions = map f - where f x = let r = parseLibraryOptionClassifier x - in case r of - Left msg -> error (show msg) - Right result -> result - - -parseLibraryOptionClassifier :: String -> Either String LibraryOption -parseLibraryOptionClassifier [] = Left "empty option" -parseLibraryOptionClassifier str@(x:xs) = - case x of - '-' -> if null xs - then Left "parse error" - else let (y:ys) = xs - in case y of - 'L' -> Right (Dir ys) - 'l' -> Right (Lib ys) - _ -> Right (Opt str) - _ -> Right (Opt str) - diff --git a/HROOT-hist.cabal b/HROOT-hist.cabal --- a/HROOT-hist.cabal +++ b/HROOT-hist.cabal @@ -1,22 +1,21 @@ -Name: HROOT-hist -Version: 0.8 -Synopsis: Haskell binding to ROOT Hist modules -Description: HROOT is a haskell Foreign Function Interface (FFI) binding to ROOT. ROOT(http://root.cern.ch) is an object-oriented program and library developed by CERN for physics data analysis. +Name: HROOT-hist +Version: 0.9 +Synopsis: Haskell binding to ROOT Hist modules +Description: HROOT is a haskell Foreign Function Interface (FFI) binding to ROOT. ROOT(http://root.cern.ch) is an object-oriented program and library developed by CERN for physics data analysis. Homepage: http://ianwookim.org/HROOT -License: LGPL-2.1 -License-file: LICENSE -Author: Ian-Woo Kim -Maintainer: Ian-Woo Kim +license: LGPL-2.1 +license-file: LICENSE +Author: Ian-Woo Kim +Maintainer: Ian-Woo Kim Category: Graphics, Statistics, Math, Numerical Tested-with: GHC >= 7.6 -Build-Type: Custom +Build-Type: Custom cabal-version: >=1.10 -Extra-source-files: - CHANGES - Config.hs +Extra-source-files: csrc/HROOTHistTAxis.h csrc/HROOTHistTF1.h - csrc/HROOTHistTFormula.h + csrc/HROOTHistTFitResult.h + csrc/HROOTHistTFitResultPtr.h csrc/HROOTHistTGraph.h csrc/HROOTHistTGraphAsymmErrors.h csrc/HROOTHistTGraphBentErrors.h @@ -44,7 +43,8 @@ csrc/HROOTHistTHStack.h csrc/HROOTHistTAxis.cpp csrc/HROOTHistTF1.cpp - csrc/HROOTHistTFormula.cpp + csrc/HROOTHistTFitResult.cpp + csrc/HROOTHistTFitResultPtr.cpp csrc/HROOTHistTGraph.cpp csrc/HROOTHistTGraphAsymmErrors.cpp csrc/HROOTHistTGraphBentErrors.cpp @@ -79,12 +79,14 @@ hs-source-dirs: src ghc-options: -Wall -funbox-strict-fields -fno-warn-unused-do-bind -fno-warn-orphans -fno-warn-unused-imports ghc-prof-options: -caf-all -auto-all - Build-Depends: base>4 && < 5, fficxx-runtime >= 0.0.999 ,HROOT-core + cc-options: -std=c++14 + Build-Depends: base>4 && < 5, fficxx >= 0.3, fficxx-runtime >= 0.3, template-haskell,HROOT-core Exposed-Modules: HROOT.Hist HROOT.Hist.TAxis HROOT.Hist.TF1 - HROOT.Hist.TFormula + HROOT.Hist.TFitResult + HROOT.Hist.TFitResultPtr HROOT.Hist.TGraph HROOT.Hist.TGraphAsymmErrors HROOT.Hist.TGraphBentErrors @@ -112,7 +114,8 @@ HROOT.Hist.THStack HROOT.Hist.TAxis.RawType HROOT.Hist.TF1.RawType - HROOT.Hist.TFormula.RawType + HROOT.Hist.TFitResult.RawType + HROOT.Hist.TFitResultPtr.RawType HROOT.Hist.TGraph.RawType HROOT.Hist.TGraphAsymmErrors.RawType HROOT.Hist.TGraphBentErrors.RawType @@ -140,7 +143,8 @@ HROOT.Hist.THStack.RawType HROOT.Hist.TAxis.FFI HROOT.Hist.TF1.FFI - HROOT.Hist.TFormula.FFI + HROOT.Hist.TFitResult.FFI + HROOT.Hist.TFitResultPtr.FFI HROOT.Hist.TGraph.FFI HROOT.Hist.TGraphAsymmErrors.FFI HROOT.Hist.TGraphBentErrors.FFI @@ -168,7 +172,8 @@ HROOT.Hist.THStack.FFI HROOT.Hist.TAxis.Interface HROOT.Hist.TF1.Interface - HROOT.Hist.TFormula.Interface + HROOT.Hist.TFitResult.Interface + HROOT.Hist.TFitResultPtr.Interface HROOT.Hist.TGraph.Interface HROOT.Hist.TGraphAsymmErrors.Interface HROOT.Hist.TGraphBentErrors.Interface @@ -196,7 +201,8 @@ HROOT.Hist.THStack.Interface HROOT.Hist.TAxis.Cast HROOT.Hist.TF1.Cast - HROOT.Hist.TFormula.Cast + HROOT.Hist.TFitResult.Cast + HROOT.Hist.TFitResultPtr.Cast HROOT.Hist.TGraph.Cast HROOT.Hist.TGraphAsymmErrors.Cast HROOT.Hist.TGraphBentErrors.Cast @@ -224,7 +230,8 @@ HROOT.Hist.THStack.Cast HROOT.Hist.TAxis.Implementation HROOT.Hist.TF1.Implementation - HROOT.Hist.TFormula.Implementation + HROOT.Hist.TFitResult.Implementation + HROOT.Hist.TFitResultPtr.Implementation HROOT.Hist.TGraph.Implementation HROOT.Hist.TGraphAsymmErrors.Implementation HROOT.Hist.TGraphBentErrors.Implementation @@ -250,17 +257,18 @@ HROOT.Hist.TH3I.Implementation HROOT.Hist.TH3S.Implementation HROOT.Hist.THStack.Implementation - + Other-Modules: extra-lib-dirs: extra-libraries: stdc++ - Include-dirs: csrc - Install-includes: + Include-dirs: csrc + Install-includes: HROOT-histType.h HROOTHistTAxis.h HROOTHistTF1.h - HROOTHistTFormula.h + HROOTHistTFitResult.h + HROOTHistTFitResultPtr.h HROOTHistTGraph.h HROOTHistTGraphAsymmErrors.h HROOTHistTGraphBentErrors.h @@ -287,10 +295,11 @@ HROOTHistTH3S.h HROOTHistTHStack.h - C-sources: + C-sources: csrc/HROOTHistTAxis.cpp csrc/HROOTHistTF1.cpp - csrc/HROOTHistTFormula.cpp + csrc/HROOTHistTFitResult.cpp + csrc/HROOTHistTFitResultPtr.cpp csrc/HROOTHistTGraph.cpp csrc/HROOTHistTGraphAsymmErrors.cpp csrc/HROOTHistTGraphBentErrors.cpp @@ -316,8 +325,5 @@ csrc/HROOTHistTH3I.cpp csrc/HROOTHistTH3S.cpp csrc/HROOTHistTHStack.cpp - - - diff --git a/csrc/HROOT-histType.h b/csrc/HROOT-histType.h --- a/csrc/HROOT-histType.h +++ b/csrc/HROOT-histType.h @@ -10,143 +10,178 @@ typedef TAxis_t * TAxis_p; typedef TAxis_t const* const_TAxis_p; + // Opaque type definition for TF1 typedef struct TF1_tag TF1_t; typedef TF1_t * TF1_p; typedef TF1_t const* const_TF1_p; -// Opaque type definition for TFormula -typedef struct TFormula_tag TFormula_t; -typedef TFormula_t * TFormula_p; -typedef TFormula_t const* const_TFormula_p; +// Opaque type definition for TFitResult +typedef struct TFitResult_tag TFitResult_t; +typedef TFitResult_t * TFitResult_p; +typedef TFitResult_t const* const_TFitResult_p; + + +// Opaque type definition for TFitResultPtr +typedef struct TFitResultPtr_tag TFitResultPtr_t; +typedef TFitResultPtr_t * TFitResultPtr_p; +typedef TFitResultPtr_t const* const_TFitResultPtr_p; + + // Opaque type definition for TGraph typedef struct TGraph_tag TGraph_t; typedef TGraph_t * TGraph_p; typedef TGraph_t const* const_TGraph_p; + // Opaque type definition for TGraphAsymmErrors typedef struct TGraphAsymmErrors_tag TGraphAsymmErrors_t; typedef TGraphAsymmErrors_t * TGraphAsymmErrors_p; typedef TGraphAsymmErrors_t const* const_TGraphAsymmErrors_p; + // Opaque type definition for TGraphBentErrors typedef struct TGraphBentErrors_tag TGraphBentErrors_t; typedef TGraphBentErrors_t * TGraphBentErrors_p; typedef TGraphBentErrors_t const* const_TGraphBentErrors_p; + // Opaque type definition for TGraphErrors typedef struct TGraphErrors_tag TGraphErrors_t; typedef TGraphErrors_t * TGraphErrors_p; typedef TGraphErrors_t const* const_TGraphErrors_p; + // Opaque type definition for TH1 typedef struct TH1_tag TH1_t; typedef TH1_t * TH1_p; typedef TH1_t const* const_TH1_p; + // Opaque type definition for TH1C typedef struct TH1C_tag TH1C_t; typedef TH1C_t * TH1C_p; typedef TH1C_t const* const_TH1C_p; + // Opaque type definition for TH1D typedef struct TH1D_tag TH1D_t; typedef TH1D_t * TH1D_p; typedef TH1D_t const* const_TH1D_p; + // Opaque type definition for TH1F typedef struct TH1F_tag TH1F_t; typedef TH1F_t * TH1F_p; typedef TH1F_t const* const_TH1F_p; + // Opaque type definition for TH1I typedef struct TH1I_tag TH1I_t; typedef TH1I_t * TH1I_p; typedef TH1I_t const* const_TH1I_p; + // Opaque type definition for TH1K typedef struct TH1K_tag TH1K_t; typedef TH1K_t * TH1K_p; typedef TH1K_t const* const_TH1K_p; + // Opaque type definition for TH1S typedef struct TH1S_tag TH1S_t; typedef TH1S_t * TH1S_p; typedef TH1S_t const* const_TH1S_p; + // Opaque type definition for TH2 typedef struct TH2_tag TH2_t; typedef TH2_t * TH2_p; typedef TH2_t const* const_TH2_p; + // Opaque type definition for TH2C typedef struct TH2C_tag TH2C_t; typedef TH2C_t * TH2C_p; typedef TH2C_t const* const_TH2C_p; + // Opaque type definition for TH2D typedef struct TH2D_tag TH2D_t; typedef TH2D_t * TH2D_p; typedef TH2D_t const* const_TH2D_p; + // Opaque type definition for TH2F typedef struct TH2F_tag TH2F_t; typedef TH2F_t * TH2F_p; typedef TH2F_t const* const_TH2F_p; + // Opaque type definition for TH2I typedef struct TH2I_tag TH2I_t; typedef TH2I_t * TH2I_p; typedef TH2I_t const* const_TH2I_p; + // Opaque type definition for TH2Poly typedef struct TH2Poly_tag TH2Poly_t; typedef TH2Poly_t * TH2Poly_p; typedef TH2Poly_t const* const_TH2Poly_p; + // Opaque type definition for TH2S typedef struct TH2S_tag TH2S_t; typedef TH2S_t * TH2S_p; typedef TH2S_t const* const_TH2S_p; + // Opaque type definition for TH3 typedef struct TH3_tag TH3_t; typedef TH3_t * TH3_p; typedef TH3_t const* const_TH3_p; + // Opaque type definition for TH3C typedef struct TH3C_tag TH3C_t; typedef TH3C_t * TH3C_p; typedef TH3C_t const* const_TH3C_p; + // Opaque type definition for TH3D typedef struct TH3D_tag TH3D_t; typedef TH3D_t * TH3D_p; typedef TH3D_t const* const_TH3D_p; + // Opaque type definition for TH3F typedef struct TH3F_tag TH3F_t; typedef TH3F_t * TH3F_p; typedef TH3F_t const* const_TH3F_p; + // Opaque type definition for TH3I typedef struct TH3I_tag TH3I_t; typedef TH3I_t * TH3I_p; typedef TH3I_t const* const_TH3I_p; + // Opaque type definition for TH3S typedef struct TH3S_tag TH3S_t; typedef TH3S_t * TH3S_p; typedef TH3S_t const* const_TH3S_p; + // Opaque type definition for THStack typedef struct THStack_tag THStack_t; typedef THStack_t * THStack_p; typedef THStack_t const* const_THStack_p; + #endif // __HROOT_HIST__ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTAxis.cpp b/csrc/HROOTHistTAxis.cpp --- a/csrc/HROOTHistTAxis.cpp +++ b/csrc/HROOTHistTAxis.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttAxis.h" #include "TAxis.h" #include "HROOTHistTAxis.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -45,5 +22,4 @@ TAXIS_DEF_VIRT(TAxis) TAXIS_DEF_NONVIRT(TAxis) - diff --git a/csrc/HROOTHistTAxis.h b/csrc/HROOTHistTAxis.h --- a/csrc/HROOTHistTAxis.h +++ b/csrc/HROOTHistTAxis.h @@ -1,19 +1,18 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TAxis__ #define __HROOT_HIST__TAxis__ #include "HROOT-histType.h" - #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttAxis.h" #include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TAXIS_DECL_VIRT +#undef TAXIS_DECL_VIRT #define TAXIS_DECL_VIRT(Type) \ int Type ## _findBinTAxis ( Type ## _p p, double x ); \ int Type ## _findFixBinTAxis ( Type ## _p p, double x ); \ @@ -24,7 +23,7 @@ void Type ## _SetTimeFormat ( Type ## _p p, const char* format ); \ void Type ## _SetTimeOffset ( Type ## _p p, double toffset, const char* option ) -#undef TAXIS_DECL_NONVIRT +#undef TAXIS_DECL_NONVIRT #define TAXIS_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTAxis ( int nbins, double xmin, double xmax ); \ int Type ## _tAxisGetCenterLabels ( Type ## _p p ); \ @@ -98,3 +97,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTF1.cpp b/csrc/HROOTHistTF1.cpp --- a/csrc/HROOTHistTF1.cpp +++ b/csrc/HROOTHistTF1.cpp @@ -1,39 +1,15 @@ #include - #include "HROOTCoreTObject.h" #include "HROOTHistTH1.h" #include "HROOTHistTAxis.h" -#include "HROOTHistTFormula.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" #include "TF1.h" #include "HROOTHistTF1.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -42,16 +18,12 @@ (to_nonconst) ) -TFORMULA_DEF_VIRT(TF1) TATTLINE_DEF_VIRT(TF1) TATTFILL_DEF_VIRT(TF1) TATTMARKER_DEF_VIRT(TF1) -TNAMED_DEF_VIRT(TF1) -TOBJECT_DEF_VIRT(TF1) DELETABLE_DEF_VIRT(TF1) TF1_DEF_VIRT(TF1) TF1_DEF_NONVIRT(TF1) - diff --git a/csrc/HROOTHistTF1.h b/csrc/HROOTHistTF1.h --- a/csrc/HROOTHistTF1.h +++ b/csrc/HROOTHistTF1.h @@ -1,22 +1,18 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TF1__ #define __HROOT_HIST__TF1__ #include "HROOT-histType.h" - -#include "HROOTHistTFormula.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" -#include "HROOTCoreTNamed.h" -#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TF1_DECL_VIRT +#undef TF1_DECL_VIRT #define TF1_DECL_VIRT(Type) \ double Type ## _Derivative ( Type ## _p p, double x, double * params, double epsilon ); \ double Type ## _Derivative2 ( Type ## _p p, double x, double * params, double epsilon ); \ @@ -24,7 +20,6 @@ Type ## _p Type ## _drawCopyTF1 ( Type ## _p p, const char* option ); \ TObject_p Type ## _DrawDerivative ( Type ## _p p, const char* option ); \ TObject_p Type ## _DrawIntegral ( Type ## _p p, const char* option ); \ -void Type ## _DrawF1 ( Type ## _p p, const char* formula, double xmin, double xmax, const char* option ); \ void Type ## _FixParameter ( Type ## _p p, int ipar, double value ); \ double Type ## _getMaximumTF1 ( Type ## _p p, double xmin, double xmax, double epsilon, double maxiter, int logx ); \ double Type ## _getMinimumTF1 ( Type ## _p p, double xmin, double xmax, double epsilon, double maxiter, int logx ); \ @@ -44,7 +39,7 @@ double Type ## _GetXmax ( Type ## _p p ); \ double Type ## _GradientPar ( Type ## _p p, int ipar, double * x, double eps ); \ void Type ## _InitArgs ( Type ## _p p, double * x, double * params ); \ -double Type ## _IntegralTF1 ( Type ## _p p, double a, double b, double * params, double epsilon ); \ +double Type ## _IntegralTF1 ( Type ## _p p, double a, double b, double epsilon ); \ double Type ## _IntegralError ( Type ## _p p, double a, double b, double * params, double * covmat, double epsilon ); \ double Type ## _IntegralFast ( Type ## _p p, int num, double * x, double * w, double a, double b, double * params, double epsilon ); \ int Type ## _IsInside ( Type ## _p p, double * x ); \ @@ -68,7 +63,7 @@ double Type ## _Mean ( Type ## _p p, double a, double b, double * params, double epsilon ); \ double Type ## _Variance ( Type ## _p p, double a, double b, double * params, double epsilon ) -#undef TF1_DECL_NONVIRT +#undef TF1_DECL_NONVIRT #define TF1_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTF1 ( const char* name, const char* formula, double xmin, double xmax ); \ double Type ## _tF1DerivativeError ( ); \ @@ -112,10 +107,6 @@ {\ return to_nonconst((TObject*)TYPECASTMETHOD(Type,DrawIntegral,TF1)(p)->DrawIntegral(option));\ }\ -void Type ## _DrawF1 ( Type ## _p p, const char* formula, double xmin, double xmax, const char* option )\ -{\ -TYPECASTMETHOD(Type,DrawF1,TF1)(p)->DrawF1(formula, xmin, xmax, option);\ -}\ void Type ## _FixParameter ( Type ## _p p, int ipar, double value )\ {\ TYPECASTMETHOD(Type,FixParameter,TF1)(p)->FixParameter(ipar, value);\ @@ -192,9 +183,9 @@ {\ TYPECASTMETHOD(Type,InitArgs,TF1)(p)->InitArgs(x, params);\ }\ -double Type ## _IntegralTF1 ( Type ## _p p, double a, double b, double * params, double epsilon )\ +double Type ## _IntegralTF1 ( Type ## _p p, double a, double b, double epsilon )\ {\ -return TYPECASTMETHOD(Type,IntegralTF1,TF1)(p)->Integral(a, b, params, epsilon);\ +return TYPECASTMETHOD(Type,IntegralTF1,TF1)(p)->Integral(a, b, epsilon);\ }\ double Type ## _IntegralError ( Type ## _p p, double a, double b, double * params, double * covmat, double epsilon )\ {\ @@ -349,12 +340,9 @@ TF1::CalcGaussLegendreSamplingPoints(num, x, w, eps);\ } -TFORMULA_DECL_VIRT(TF1); TATTLINE_DECL_VIRT(TF1); TATTFILL_DECL_VIRT(TF1); TATTMARKER_DECL_VIRT(TF1); -TNAMED_DECL_VIRT(TF1); -TOBJECT_DECL_VIRT(TF1); DELETABLE_DECL_VIRT(TF1); @@ -369,3 +357,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTFitResult.cpp b/csrc/HROOTHistTFitResult.cpp new file mode 100644 --- /dev/null +++ b/csrc/HROOTHistTFitResult.cpp @@ -0,0 +1,23 @@ +#include +#include "HROOTCoreTNamed.h" +#include "TFitResult.h" +#include "HROOTHistTFitResult.h" + + + +#define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) + +#define TYPECASTMETHOD(cname,mname,oname) \ + IIF( CHECKPROTECT(cname,mname) ) ( \ + (to_nonconst), \ + (to_nonconst) ) + + +TNAMED_DEF_VIRT(TFitResult) +TOBJECT_DEF_VIRT(TFitResult) +DELETABLE_DEF_VIRT(TFitResult) + +TFITRESULT_DEF_VIRT(TFitResult) + +TFITRESULT_DEF_NONVIRT(TFitResult) + diff --git a/csrc/HROOTHistTFitResult.h b/csrc/HROOTHistTFitResult.h new file mode 100644 --- /dev/null +++ b/csrc/HROOTHistTFitResult.h @@ -0,0 +1,46 @@ +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef __HROOT_HIST__TFitResult__ +#define __HROOT_HIST__TFitResult__ + +#include "HROOT-histType.h" +#include "HROOTCoreTNamed.h" +#include "HROOTCoreTObject.h" +#include "HROOTCoreDeletable.h" +#include "HROOT-coreType.h" + +#undef TFITRESULT_DECL_VIRT +#define TFITRESULT_DECL_VIRT(Type) \ + + +#undef TFITRESULT_DECL_NONVIRT +#define TFITRESULT_DECL_NONVIRT(Type) \ + + +#undef TFITRESULT_DEF_VIRT +#define TFITRESULT_DEF_VIRT(Type)\ + + +#undef TFITRESULT_DEF_NONVIRT +#define TFITRESULT_DEF_NONVIRT(Type)\ + + +TNAMED_DECL_VIRT(TFitResult); +TOBJECT_DECL_VIRT(TFitResult); +DELETABLE_DECL_VIRT(TFitResult); + + +TFITRESULT_DECL_VIRT(TFitResult); + + +TFITRESULT_DECL_NONVIRT(TFitResult); + + +#endif // __HROOT_HIST__TFitResult__ + +#ifdef __cplusplus +} +#endif + diff --git a/csrc/HROOTHistTFitResultPtr.cpp b/csrc/HROOTHistTFitResultPtr.cpp new file mode 100644 --- /dev/null +++ b/csrc/HROOTHistTFitResultPtr.cpp @@ -0,0 +1,20 @@ +#include +#include "HROOTHistTFitResult.h" +#include "TFitResultPtr.h" +#include "HROOTHistTFitResultPtr.h" + + + +#define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) + +#define TYPECASTMETHOD(cname,mname,oname) \ + IIF( CHECKPROTECT(cname,mname) ) ( \ + (to_nonconst), \ + (to_nonconst) ) + + + +TFITRESULTPTR_DEF_VIRT(TFitResultPtr) + +TFITRESULTPTR_DEF_NONVIRT(TFitResultPtr) + diff --git a/csrc/HROOTHistTFitResultPtr.h b/csrc/HROOTHistTFitResultPtr.h new file mode 100644 --- /dev/null +++ b/csrc/HROOTHistTFitResultPtr.h @@ -0,0 +1,43 @@ +#ifdef __cplusplus +extern "C" { +#endif + +#ifndef __HROOT_HIST__TFitResultPtr__ +#define __HROOT_HIST__TFitResultPtr__ + +#include "HROOT-histType.h" + + +#undef TFITRESULTPTR_DECL_VIRT +#define TFITRESULTPTR_DECL_VIRT(Type) \ + + +#undef TFITRESULTPTR_DECL_NONVIRT +#define TFITRESULTPTR_DECL_NONVIRT(Type) \ +TFitResult_p Type ## _tFitResultPtrGet ( Type ## _p p ) + +#undef TFITRESULTPTR_DEF_VIRT +#define TFITRESULTPTR_DEF_VIRT(Type)\ + + +#undef TFITRESULTPTR_DEF_NONVIRT +#define TFITRESULTPTR_DEF_NONVIRT(Type)\ +TFitResult_p Type ## _tFitResultPtrGet ( Type ## _p p )\ +{\ +return to_nonconst((TFitResult*)TYPECASTMETHOD(Type,tFitResultPtrGet,TFitResultPtr)(p)->Get());\ +} + + + +TFITRESULTPTR_DECL_VIRT(TFitResultPtr); + + +TFITRESULTPTR_DECL_NONVIRT(TFitResultPtr); + + +#endif // __HROOT_HIST__TFitResultPtr__ + +#ifdef __cplusplus +} +#endif + diff --git a/csrc/HROOTHistTFormula.cpp b/csrc/HROOTHistTFormula.cpp deleted file mode 100644 --- a/csrc/HROOTHistTFormula.cpp +++ /dev/null @@ -1,47 +0,0 @@ -#include - -#include "HROOTCoreTNamed.h" -#include "TFormula.h" -#include "HROOTHistTFormula.h" - -using namespace std; - - -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - -#define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) - -#define TYPECASTMETHOD(cname,mname,oname) \ - IIF( CHECKPROTECT(cname,mname) ) ( \ - (to_nonconst), \ - (to_nonconst) ) - - -TNAMED_DEF_VIRT(TFormula) -TOBJECT_DEF_VIRT(TFormula) -DELETABLE_DEF_VIRT(TFormula) - -TFORMULA_DEF_VIRT(TFormula) - -TFORMULA_DEF_NONVIRT(TFormula) - - diff --git a/csrc/HROOTHistTFormula.h b/csrc/HROOTHistTFormula.h deleted file mode 100644 --- a/csrc/HROOTHistTFormula.h +++ /dev/null @@ -1,148 +0,0 @@ -#ifdef __cplusplus -extern "C" { -#endif - -#ifndef __HROOT_HIST__TFormula__ -#define __HROOT_HIST__TFormula__ - -#include "HROOT-histType.h" - -#include "HROOTCoreTNamed.h" -#include "HROOTCoreTObject.h" -#include "HROOTCoreDeletable.h" -#include "HROOT-coreType.h" - -#undef TFORMULA_DECL_VIRT -#define TFORMULA_DECL_VIRT(Type) \ -int Type ## _Compile ( Type ## _p p, const char* expression ); \ -void Type ## _Clear ( Type ## _p p, const char* option ); \ -double Type ## _DefinedValue ( Type ## _p p, int code ); \ -double Type ## _Eval ( Type ## _p p, double x, double y, double z, double t ); \ -double Type ## _EvalParOld ( Type ## _p p, double * x, double * params ); \ -double Type ## _EvalPar ( Type ## _p p, double * x, double * params ); \ -int Type ## _GetNdim ( Type ## _p p ); \ -int Type ## _GetNpar ( Type ## _p p ); \ -int Type ## _GetNumber ( Type ## _p p ); \ -int Type ## _GetParNumber ( Type ## _p p, const char* name ); \ -int Type ## _IsLinear ( Type ## _p p ); \ -int Type ## _IsNormalized ( Type ## _p p ); \ -void Type ## _SetNumber ( Type ## _p p, int number ); \ -void Type ## _SetParameter ( Type ## _p p, const char* name, double parvalue ); \ -void Type ## _SetParameters ( Type ## _p p, double * params ); \ -void Type ## _SetParName ( Type ## _p p, int ipar, const char* name ); \ -void Type ## _SetParNames ( Type ## _p p, const char* name0, const char* name1, const char* name2, const char* name3, const char* name4, const char* name5, const char* name6, const char* name7, const char* name8, const char* name9, const char* name10 ); \ -void Type ## _Update ( Type ## _p p ) - -#undef TFORMULA_DECL_NONVIRT -#define TFORMULA_DECL_NONVIRT(Type) \ -Type ## _p Type ## _newTFormula ( const char* name, const char* formula ); \ -void Type ## _tFormulaOptimize ( Type ## _p p ); \ -double Type ## _tFormulaGetParameter ( Type ## _p p, const char* name ) - -#undef TFORMULA_DEF_VIRT -#define TFORMULA_DEF_VIRT(Type)\ -int Type ## _Compile ( Type ## _p p, const char* expression )\ -{\ -return TYPECASTMETHOD(Type,Compile,TFormula)(p)->Compile(expression);\ -}\ -void Type ## _Clear ( Type ## _p p, const char* option )\ -{\ -TYPECASTMETHOD(Type,Clear,TFormula)(p)->Clear(option);\ -}\ -double Type ## _DefinedValue ( Type ## _p p, int code )\ -{\ -return TYPECASTMETHOD(Type,DefinedValue,TFormula)(p)->DefinedValue(code);\ -}\ -double Type ## _Eval ( Type ## _p p, double x, double y, double z, double t )\ -{\ -return TYPECASTMETHOD(Type,Eval,TFormula)(p)->Eval(x, y, z, t);\ -}\ -double Type ## _EvalParOld ( Type ## _p p, double * x, double * params )\ -{\ -return TYPECASTMETHOD(Type,EvalParOld,TFormula)(p)->EvalParOld(x, params);\ -}\ -double Type ## _EvalPar ( Type ## _p p, double * x, double * params )\ -{\ -return TYPECASTMETHOD(Type,EvalPar,TFormula)(p)->EvalPar(x, params);\ -}\ -int Type ## _GetNdim ( Type ## _p p )\ -{\ -return TYPECASTMETHOD(Type,GetNdim,TFormula)(p)->GetNdim();\ -}\ -int Type ## _GetNpar ( Type ## _p p )\ -{\ -return TYPECASTMETHOD(Type,GetNpar,TFormula)(p)->GetNpar();\ -}\ -int Type ## _GetNumber ( Type ## _p p )\ -{\ -return TYPECASTMETHOD(Type,GetNumber,TFormula)(p)->GetNumber();\ -}\ -int Type ## _GetParNumber ( Type ## _p p, const char* name )\ -{\ -return TYPECASTMETHOD(Type,GetParNumber,TFormula)(p)->GetParNumber(name);\ -}\ -int Type ## _IsLinear ( Type ## _p p )\ -{\ -return TYPECASTMETHOD(Type,IsLinear,TFormula)(p)->IsLinear();\ -}\ -int Type ## _IsNormalized ( Type ## _p p )\ -{\ -return TYPECASTMETHOD(Type,IsNormalized,TFormula)(p)->IsNormalized();\ -}\ -void Type ## _SetNumber ( Type ## _p p, int number )\ -{\ -TYPECASTMETHOD(Type,SetNumber,TFormula)(p)->SetNumber(number);\ -}\ -void Type ## _SetParameter ( Type ## _p p, const char* name, double parvalue )\ -{\ -TYPECASTMETHOD(Type,SetParameter,TFormula)(p)->SetParameter(name, parvalue);\ -}\ -void Type ## _SetParameters ( Type ## _p p, double * params )\ -{\ -TYPECASTMETHOD(Type,SetParameters,TFormula)(p)->SetParameters(params);\ -}\ -void Type ## _SetParName ( Type ## _p p, int ipar, const char* name )\ -{\ -TYPECASTMETHOD(Type,SetParName,TFormula)(p)->SetParName(ipar, name);\ -}\ -void Type ## _SetParNames ( Type ## _p p, const char* name0, const char* name1, const char* name2, const char* name3, const char* name4, const char* name5, const char* name6, const char* name7, const char* name8, const char* name9, const char* name10 )\ -{\ -TYPECASTMETHOD(Type,SetParNames,TFormula)(p)->SetParNames(name0, name1, name2, name3, name4, name5, name6, name7, name8, name9, name10);\ -}\ -void Type ## _Update ( Type ## _p p )\ -{\ -TYPECASTMETHOD(Type,Update,TFormula)(p)->Update();\ -} - -#undef TFORMULA_DEF_NONVIRT -#define TFORMULA_DEF_NONVIRT(Type)\ -Type ## _p Type ## _newTFormula ( const char* name, const char* formula )\ -{\ -Type * newp = new Type (name, formula); \ -return to_nonconst(newp);\ -}\ -void Type ## _tFormulaOptimize ( Type ## _p p )\ -{\ -TYPECASTMETHOD(Type,tFormulaOptimize,TFormula)(p)->Optimize();\ -}\ -double Type ## _tFormulaGetParameter ( Type ## _p p, const char* name )\ -{\ -return TYPECASTMETHOD(Type,tFormulaGetParameter,TFormula)(p)->GetParameter(name);\ -} - -TNAMED_DECL_VIRT(TFormula); -TOBJECT_DECL_VIRT(TFormula); -DELETABLE_DECL_VIRT(TFormula); - - -TFORMULA_DECL_VIRT(TFormula); - - -TFORMULA_DECL_NONVIRT(TFormula); - - -#endif // __HROOT_HIST__TFormula__ - -#ifdef __cplusplus -} -#endif diff --git a/csrc/HROOTHistTGraph.cpp b/csrc/HROOTHistTGraph.cpp --- a/csrc/HROOTHistTGraph.cpp +++ b/csrc/HROOTHistTGraph.cpp @@ -1,5 +1,4 @@ #include - #include "HROOTHistTF1.h" #include "HROOTHistTH1F.h" #include "HROOTHistTAxis.h" @@ -10,30 +9,8 @@ #include "TGraph.h" #include "HROOTHistTGraph.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -52,5 +29,4 @@ TGRAPH_DEF_VIRT(TGraph) TGRAPH_DEF_NONVIRT(TGraph) - diff --git a/csrc/HROOTHistTGraph.h b/csrc/HROOTHistTGraph.h --- a/csrc/HROOTHistTGraph.h +++ b/csrc/HROOTHistTGraph.h @@ -1,12 +1,11 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TGraph__ #define __HROOT_HIST__TGraph__ #include "HROOT-histType.h" - #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" @@ -15,7 +14,7 @@ #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TGRAPH_DECL_VIRT +#undef TGRAPH_DECL_VIRT #define TGRAPH_DECL_VIRT(Type) \ void Type ## _Apply ( Type ## _p p, TF1_p f ); \ double Type ## _Chisquare ( Type ## _p p, TF1_p f1 ); \ @@ -50,7 +49,7 @@ void Type ## _Set ( Type ## _p p, int n ); \ void Type ## _SetPoint ( Type ## _p p, int i, double x, double y ) -#undef TGRAPH_DECL_NONVIRT +#undef TGRAPH_DECL_NONVIRT #define TGRAPH_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTGraph ( int n, double * x, double * y ); \ int Type ## _tGraphGetEditable ( Type ## _p p ); \ @@ -267,3 +266,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTGraphAsymmErrors.cpp b/csrc/HROOTHistTGraphAsymmErrors.cpp --- a/csrc/HROOTHistTGraphAsymmErrors.cpp +++ b/csrc/HROOTHistTGraphAsymmErrors.cpp @@ -1,33 +1,10 @@ #include - #include "HROOTHistTGraph.h" #include "TGraphAsymmErrors.h" #include "HROOTHistTGraphAsymmErrors.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -47,5 +24,4 @@ TGRAPHASYMMERRORS_DEF_VIRT(TGraphAsymmErrors) TGRAPHASYMMERRORS_DEF_NONVIRT(TGraphAsymmErrors) - diff --git a/csrc/HROOTHistTGraphAsymmErrors.h b/csrc/HROOTHistTGraphAsymmErrors.h --- a/csrc/HROOTHistTGraphAsymmErrors.h +++ b/csrc/HROOTHistTGraphAsymmErrors.h @@ -1,12 +1,11 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TGraphAsymmErrors__ #define __HROOT_HIST__TGraphAsymmErrors__ #include "HROOT-histType.h" - #include "HROOTHistTGraph.h" #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" @@ -15,11 +14,11 @@ #include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" -#undef TGRAPHASYMMERRORS_DECL_VIRT +#undef TGRAPHASYMMERRORS_DECL_VIRT #define TGRAPHASYMMERRORS_DECL_VIRT(Type) \ -#undef TGRAPHASYMMERRORS_DECL_NONVIRT +#undef TGRAPHASYMMERRORS_DECL_NONVIRT #define TGRAPHASYMMERRORS_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTGraphAsymmErrors ( int n, double * x, double * y, double * exl, double * exh, double * eyl, double * eyh ) @@ -55,3 +54,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTGraphBentErrors.cpp b/csrc/HROOTHistTGraphBentErrors.cpp --- a/csrc/HROOTHistTGraphBentErrors.cpp +++ b/csrc/HROOTHistTGraphBentErrors.cpp @@ -1,33 +1,10 @@ #include - #include "HROOTHistTGraph.h" #include "TGraphBentErrors.h" #include "HROOTHistTGraphBentErrors.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -47,5 +24,4 @@ TGRAPHBENTERRORS_DEF_VIRT(TGraphBentErrors) TGRAPHBENTERRORS_DEF_NONVIRT(TGraphBentErrors) - diff --git a/csrc/HROOTHistTGraphBentErrors.h b/csrc/HROOTHistTGraphBentErrors.h --- a/csrc/HROOTHistTGraphBentErrors.h +++ b/csrc/HROOTHistTGraphBentErrors.h @@ -1,12 +1,11 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TGraphBentErrors__ #define __HROOT_HIST__TGraphBentErrors__ #include "HROOT-histType.h" - #include "HROOTHistTGraph.h" #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" @@ -15,11 +14,11 @@ #include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" -#undef TGRAPHBENTERRORS_DECL_VIRT +#undef TGRAPHBENTERRORS_DECL_VIRT #define TGRAPHBENTERRORS_DECL_VIRT(Type) \ -#undef TGRAPHBENTERRORS_DECL_NONVIRT +#undef TGRAPHBENTERRORS_DECL_NONVIRT #define TGRAPHBENTERRORS_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTGraphBentErrors ( int n, double * x, double * y, double * exl, double * exh, double * eyl, double * eyh, double * exld, double * exhd, double * eyld, double * eyhd ) @@ -55,3 +54,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTGraphErrors.cpp b/csrc/HROOTHistTGraphErrors.cpp --- a/csrc/HROOTHistTGraphErrors.cpp +++ b/csrc/HROOTHistTGraphErrors.cpp @@ -1,33 +1,10 @@ #include - #include "HROOTHistTGraph.h" #include "TGraphErrors.h" #include "HROOTHistTGraphErrors.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -47,5 +24,4 @@ TGRAPHERRORS_DEF_VIRT(TGraphErrors) TGRAPHERRORS_DEF_NONVIRT(TGraphErrors) - diff --git a/csrc/HROOTHistTGraphErrors.h b/csrc/HROOTHistTGraphErrors.h --- a/csrc/HROOTHistTGraphErrors.h +++ b/csrc/HROOTHistTGraphErrors.h @@ -1,12 +1,11 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TGraphErrors__ #define __HROOT_HIST__TGraphErrors__ #include "HROOT-histType.h" - #include "HROOTHistTGraph.h" #include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" @@ -15,11 +14,11 @@ #include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" -#undef TGRAPHERRORS_DECL_VIRT +#undef TGRAPHERRORS_DECL_VIRT #define TGRAPHERRORS_DECL_VIRT(Type) \ -#undef TGRAPHERRORS_DECL_NONVIRT +#undef TGRAPHERRORS_DECL_NONVIRT #define TGRAPHERRORS_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTGraphErrors ( int n, double * x, double * y, double * ex, double * ey ) @@ -55,3 +54,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1.cpp b/csrc/HROOTHistTH1.cpp --- a/csrc/HROOTHistTH1.cpp +++ b/csrc/HROOTHistTH1.cpp @@ -1,40 +1,18 @@ #include - #include "HROOTCoreTDirectory.h" #include "HROOTHistTF1.h" #include "HROOTCoreTArrayD.h" #include "HROOTHistTAxis.h" #include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" #include "TH1.h" #include "HROOTHistTH1.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,14 +21,14 @@ (to_nonconst) ) -TOBJECT_DEF_VIRT(TH1) +TNAMED_DEF_VIRT(TH1) TATTLINE_DEF_VIRT(TH1) TATTFILL_DEF_VIRT(TH1) TATTMARKER_DEF_VIRT(TH1) +TOBJECT_DEF_VIRT(TH1) DELETABLE_DEF_VIRT(TH1) TH1_DEF_VIRT(TH1) TH1_DEF_NONVIRT(TH1) - diff --git a/csrc/HROOTHistTH1.h b/csrc/HROOTHistTH1.h --- a/csrc/HROOTHistTH1.h +++ b/csrc/HROOTHistTH1.h @@ -1,20 +1,20 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1__ #define __HROOT_HIST__TH1__ #include "HROOT-histType.h" - -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TH1_DECL_VIRT +#undef TH1_DECL_VIRT #define TH1_DECL_VIRT(Type) \ void Type ## _Add ( Type ## _p p, TH1_p h1, double c1 ); \ void Type ## _AddBinContent ( Type ## _p p, int bin, double w ); \ @@ -36,6 +36,7 @@ int Type ## _FindFixBin ( Type ## _p p, double x, double y, double z ); \ int Type ## _FindFirstBinAbove ( Type ## _p p, double threshold, int axis ); \ int Type ## _FindLastBinAbove ( Type ## _p p, double threshold, int axis ); \ +void Type ## _Fit ( Type ## _p p, TF1_p f1, const char* option, const char* goption, double xmin, double xmax ); \ void Type ## _FitPanelTH1 ( Type ## _p p ); \ int Type ## _getNdivisionA ( Type ## _p p, const char* axis ); \ int Type ## _getAxisColorA ( Type ## _p p, const char* axis ); \ @@ -147,7 +148,7 @@ void Type ## _Smooth ( Type ## _p p, int ntimes, const char* option ); \ void Type ## _Sumw2 ( Type ## _p p ) -#undef TH1_DECL_NONVIRT +#undef TH1_DECL_NONVIRT #define TH1_DECL_NONVIRT(Type) \ Type ## _p Type ## _tH1GetAsymmetry ( Type ## _p p, TH1_p h2, double c2, double dc2 ); \ int Type ## _tH1GetBufferLength ( Type ## _p p ); \ @@ -245,6 +246,10 @@ {\ return TYPECASTMETHOD(Type,FindLastBinAbove,TH1)(p)->FindLastBinAbove(threshold, axis);\ }\ +void Type ## _Fit ( Type ## _p p, TF1_p f1, const char* option, const char* goption, double xmin, double xmax )\ +{\ +TYPECASTMETHOD(Type,Fit,TH1)(p)->Fit(to_nonconst(f1), option, goption, xmin, xmax);\ +}\ void Type ## _FitPanelTH1 ( Type ## _p p )\ {\ TYPECASTMETHOD(Type,FitPanelTH1,TH1)(p)->FitPanel();\ @@ -741,10 +746,11 @@ TYPECASTMETHOD(Type,tH1UseCurrentStyle,TH1)(p)->UseCurrentStyle();\ } -TOBJECT_DECL_VIRT(TH1); +TNAMED_DECL_VIRT(TH1); TATTLINE_DECL_VIRT(TH1); TATTFILL_DECL_VIRT(TH1); TATTMARKER_DECL_VIRT(TH1); +TOBJECT_DECL_VIRT(TH1); DELETABLE_DECL_VIRT(TH1); @@ -759,3 +765,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1C.cpp b/csrc/HROOTHistTH1C.cpp --- a/csrc/HROOTHistTH1C.cpp +++ b/csrc/HROOTHistTH1C.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayC.h" #include "TH1C.h" #include "HROOTHistTH1C.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1C) TARRAYC_DEF_VIRT(TH1C) -TOBJECT_DEF_VIRT(TH1C) +TNAMED_DEF_VIRT(TH1C) TATTLINE_DEF_VIRT(TH1C) TATTFILL_DEF_VIRT(TH1C) TATTMARKER_DEF_VIRT(TH1C) +TOBJECT_DEF_VIRT(TH1C) DELETABLE_DEF_VIRT(TH1C) TARRAY_DEF_VIRT(TH1C) TH1C_DEF_VIRT(TH1C) TH1C_DEF_NONVIRT(TH1C) - diff --git a/csrc/HROOTHistTH1C.h b/csrc/HROOTHistTH1C.h --- a/csrc/HROOTHistTH1C.h +++ b/csrc/HROOTHistTH1C.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1C__ #define __HROOT_HIST__TH1C__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayC.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1C_DECL_VIRT +#undef TH1C_DECL_VIRT #define TH1C_DECL_VIRT(Type) \ -#undef TH1C_DECL_NONVIRT +#undef TH1C_DECL_NONVIRT #define TH1C_DECL_NONVIRT(Type) \ @@ -35,10 +35,11 @@ TH1_DECL_VIRT(TH1C); TARRAYC_DECL_VIRT(TH1C); -TOBJECT_DECL_VIRT(TH1C); +TNAMED_DECL_VIRT(TH1C); TATTLINE_DECL_VIRT(TH1C); TATTFILL_DECL_VIRT(TH1C); TATTMARKER_DECL_VIRT(TH1C); +TOBJECT_DECL_VIRT(TH1C); DELETABLE_DECL_VIRT(TH1C); TARRAY_DECL_VIRT(TH1C); @@ -54,3 +55,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1D.cpp b/csrc/HROOTHistTH1D.cpp --- a/csrc/HROOTHistTH1D.cpp +++ b/csrc/HROOTHistTH1D.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayD.h" #include "TH1D.h" #include "HROOTHistTH1D.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1D) TARRAYD_DEF_VIRT(TH1D) -TOBJECT_DEF_VIRT(TH1D) +TNAMED_DEF_VIRT(TH1D) TATTLINE_DEF_VIRT(TH1D) TATTFILL_DEF_VIRT(TH1D) TATTMARKER_DEF_VIRT(TH1D) +TOBJECT_DEF_VIRT(TH1D) DELETABLE_DEF_VIRT(TH1D) TARRAY_DEF_VIRT(TH1D) TH1D_DEF_VIRT(TH1D) TH1D_DEF_NONVIRT(TH1D) - diff --git a/csrc/HROOTHistTH1D.h b/csrc/HROOTHistTH1D.h --- a/csrc/HROOTHistTH1D.h +++ b/csrc/HROOTHistTH1D.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1D__ #define __HROOT_HIST__TH1D__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayD.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1D_DECL_VIRT +#undef TH1D_DECL_VIRT #define TH1D_DECL_VIRT(Type) \ -#undef TH1D_DECL_NONVIRT +#undef TH1D_DECL_NONVIRT #define TH1D_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTH1D ( const char* name, const char* title, int nbinsx, double xlow, double xup ) @@ -39,10 +39,11 @@ TH1_DECL_VIRT(TH1D); TARRAYD_DECL_VIRT(TH1D); -TOBJECT_DECL_VIRT(TH1D); +TNAMED_DECL_VIRT(TH1D); TATTLINE_DECL_VIRT(TH1D); TATTFILL_DECL_VIRT(TH1D); TATTMARKER_DECL_VIRT(TH1D); +TOBJECT_DECL_VIRT(TH1D); DELETABLE_DECL_VIRT(TH1D); TARRAY_DECL_VIRT(TH1D); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1F.cpp b/csrc/HROOTHistTH1F.cpp --- a/csrc/HROOTHistTH1F.cpp +++ b/csrc/HROOTHistTH1F.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayF.h" #include "TH1F.h" #include "HROOTHistTH1F.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1F) TARRAYF_DEF_VIRT(TH1F) -TOBJECT_DEF_VIRT(TH1F) +TNAMED_DEF_VIRT(TH1F) TATTLINE_DEF_VIRT(TH1F) TATTFILL_DEF_VIRT(TH1F) TATTMARKER_DEF_VIRT(TH1F) +TOBJECT_DEF_VIRT(TH1F) DELETABLE_DEF_VIRT(TH1F) TARRAY_DEF_VIRT(TH1F) TH1F_DEF_VIRT(TH1F) TH1F_DEF_NONVIRT(TH1F) - diff --git a/csrc/HROOTHistTH1F.h b/csrc/HROOTHistTH1F.h --- a/csrc/HROOTHistTH1F.h +++ b/csrc/HROOTHistTH1F.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1F__ #define __HROOT_HIST__TH1F__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayF.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1F_DECL_VIRT +#undef TH1F_DECL_VIRT #define TH1F_DECL_VIRT(Type) \ -#undef TH1F_DECL_NONVIRT +#undef TH1F_DECL_NONVIRT #define TH1F_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTH1F ( const char* name, const char* title, int nbinsx, double xlow, double xup ) @@ -39,10 +39,11 @@ TH1_DECL_VIRT(TH1F); TARRAYF_DECL_VIRT(TH1F); -TOBJECT_DECL_VIRT(TH1F); +TNAMED_DECL_VIRT(TH1F); TATTLINE_DECL_VIRT(TH1F); TATTFILL_DECL_VIRT(TH1F); TATTMARKER_DECL_VIRT(TH1F); +TOBJECT_DECL_VIRT(TH1F); DELETABLE_DECL_VIRT(TH1F); TARRAY_DECL_VIRT(TH1F); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1I.cpp b/csrc/HROOTHistTH1I.cpp --- a/csrc/HROOTHistTH1I.cpp +++ b/csrc/HROOTHistTH1I.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayI.h" #include "TH1I.h" #include "HROOTHistTH1I.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1I) TARRAYI_DEF_VIRT(TH1I) -TOBJECT_DEF_VIRT(TH1I) +TNAMED_DEF_VIRT(TH1I) TATTLINE_DEF_VIRT(TH1I) TATTFILL_DEF_VIRT(TH1I) TATTMARKER_DEF_VIRT(TH1I) +TOBJECT_DEF_VIRT(TH1I) DELETABLE_DEF_VIRT(TH1I) TARRAY_DEF_VIRT(TH1I) TH1I_DEF_VIRT(TH1I) TH1I_DEF_NONVIRT(TH1I) - diff --git a/csrc/HROOTHistTH1I.h b/csrc/HROOTHistTH1I.h --- a/csrc/HROOTHistTH1I.h +++ b/csrc/HROOTHistTH1I.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1I__ #define __HROOT_HIST__TH1I__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayI.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1I_DECL_VIRT +#undef TH1I_DECL_VIRT #define TH1I_DECL_VIRT(Type) \ -#undef TH1I_DECL_NONVIRT +#undef TH1I_DECL_NONVIRT #define TH1I_DECL_NONVIRT(Type) \ @@ -35,10 +35,11 @@ TH1_DECL_VIRT(TH1I); TARRAYI_DECL_VIRT(TH1I); -TOBJECT_DECL_VIRT(TH1I); +TNAMED_DECL_VIRT(TH1I); TATTLINE_DECL_VIRT(TH1I); TATTFILL_DECL_VIRT(TH1I); TATTMARKER_DECL_VIRT(TH1I); +TOBJECT_DECL_VIRT(TH1I); DELETABLE_DECL_VIRT(TH1I); TARRAY_DECL_VIRT(TH1I); @@ -54,3 +55,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1K.cpp b/csrc/HROOTHistTH1K.cpp --- a/csrc/HROOTHistTH1K.cpp +++ b/csrc/HROOTHistTH1K.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayF.h" #include "TH1K.h" #include "HROOTHistTH1K.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1K) TARRAYF_DEF_VIRT(TH1K) -TOBJECT_DEF_VIRT(TH1K) +TNAMED_DEF_VIRT(TH1K) TATTLINE_DEF_VIRT(TH1K) TATTFILL_DEF_VIRT(TH1K) TATTMARKER_DEF_VIRT(TH1K) +TOBJECT_DEF_VIRT(TH1K) DELETABLE_DEF_VIRT(TH1K) TARRAY_DEF_VIRT(TH1K) TH1K_DEF_VIRT(TH1K) TH1K_DEF_NONVIRT(TH1K) - diff --git a/csrc/HROOTHistTH1K.h b/csrc/HROOTHistTH1K.h --- a/csrc/HROOTHistTH1K.h +++ b/csrc/HROOTHistTH1K.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1K__ #define __HROOT_HIST__TH1K__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayF.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1K_DECL_VIRT +#undef TH1K_DECL_VIRT #define TH1K_DECL_VIRT(Type) \ -#undef TH1K_DECL_NONVIRT +#undef TH1K_DECL_NONVIRT #define TH1K_DECL_NONVIRT(Type) \ @@ -35,10 +35,11 @@ TH1_DECL_VIRT(TH1K); TARRAYF_DECL_VIRT(TH1K); -TOBJECT_DECL_VIRT(TH1K); +TNAMED_DECL_VIRT(TH1K); TATTLINE_DECL_VIRT(TH1K); TATTFILL_DECL_VIRT(TH1K); TATTMARKER_DECL_VIRT(TH1K); +TOBJECT_DECL_VIRT(TH1K); DELETABLE_DECL_VIRT(TH1K); TARRAY_DECL_VIRT(TH1K); @@ -54,3 +55,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH1S.cpp b/csrc/HROOTHistTH1S.cpp --- a/csrc/HROOTHistTH1S.cpp +++ b/csrc/HROOTHistTH1S.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayS.h" #include "TH1S.h" #include "HROOTHistTH1S.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,15 +16,15 @@ TH1_DEF_VIRT(TH1S) TARRAYS_DEF_VIRT(TH1S) -TOBJECT_DEF_VIRT(TH1S) +TNAMED_DEF_VIRT(TH1S) TATTLINE_DEF_VIRT(TH1S) TATTFILL_DEF_VIRT(TH1S) TATTMARKER_DEF_VIRT(TH1S) +TOBJECT_DEF_VIRT(TH1S) DELETABLE_DEF_VIRT(TH1S) TARRAY_DEF_VIRT(TH1S) TH1S_DEF_VIRT(TH1S) TH1S_DEF_NONVIRT(TH1S) - diff --git a/csrc/HROOTHistTH1S.h b/csrc/HROOTHistTH1S.h --- a/csrc/HROOTHistTH1S.h +++ b/csrc/HROOTHistTH1S.h @@ -1,27 +1,27 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH1S__ #define __HROOT_HIST__TH1S__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTArrayS.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH1S_DECL_VIRT +#undef TH1S_DECL_VIRT #define TH1S_DECL_VIRT(Type) \ -#undef TH1S_DECL_NONVIRT +#undef TH1S_DECL_NONVIRT #define TH1S_DECL_NONVIRT(Type) \ @@ -35,10 +35,11 @@ TH1_DECL_VIRT(TH1S); TARRAYS_DECL_VIRT(TH1S); -TOBJECT_DECL_VIRT(TH1S); +TNAMED_DECL_VIRT(TH1S); TATTLINE_DECL_VIRT(TH1S); TATTFILL_DECL_VIRT(TH1S); TATTMARKER_DECL_VIRT(TH1S); +TOBJECT_DECL_VIRT(TH1S); DELETABLE_DECL_VIRT(TH1S); TARRAY_DECL_VIRT(TH1S); @@ -54,3 +55,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2.cpp b/csrc/HROOTHistTH2.cpp --- a/csrc/HROOTHistTH2.cpp +++ b/csrc/HROOTHistTH2.cpp @@ -1,5 +1,4 @@ #include - #include "HROOTHistTH1D.h" #include "HROOTHistTH1.h" #include "HROOTHistTF1.h" @@ -7,30 +6,8 @@ #include "TH2.h" #include "HROOTHistTH2.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,14 +18,14 @@ #define IS_TH2_fill1_PROTECTED () TH1_DEF_VIRT(TH2) -TOBJECT_DEF_VIRT(TH2) +TNAMED_DEF_VIRT(TH2) TATTLINE_DEF_VIRT(TH2) TATTFILL_DEF_VIRT(TH2) TATTMARKER_DEF_VIRT(TH2) +TOBJECT_DEF_VIRT(TH2) DELETABLE_DEF_VIRT(TH2) TH2_DEF_VIRT(TH2) TH2_DEF_NONVIRT(TH2) - diff --git a/csrc/HROOTHistTH2.h b/csrc/HROOTHistTH2.h --- a/csrc/HROOTHistTH2.h +++ b/csrc/HROOTHistTH2.h @@ -1,21 +1,21 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2__ #define __HROOT_HIST__TH2__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TH2_DECL_VIRT +#undef TH2_DECL_VIRT #define TH2_DECL_VIRT(Type) \ int Type ## _fill2 ( Type ## _p p, double x, double y ); \ int Type ## _fill2w ( Type ## _p p, double x, double y, double w ); \ @@ -34,7 +34,7 @@ void Type ## _SetShowProjectionX ( Type ## _p p, int nbins ); \ void Type ## _SetShowProjectionY ( Type ## _p p, int nbins ) -#undef TH2_DECL_NONVIRT +#undef TH2_DECL_NONVIRT #define TH2_DECL_NONVIRT(Type) \ TH1D_p Type ## _tH2ProjectionX ( Type ## _p p, const char* name, int firstybin, int lastybin, const char* option ); \ TH1D_p Type ## _tH2ProjectionY ( Type ## _p p, const char* name, int firstxbin, int lastxbin, const char* option ) @@ -118,10 +118,11 @@ } TH1_DECL_VIRT(TH2); -TOBJECT_DECL_VIRT(TH2); +TNAMED_DECL_VIRT(TH2); TATTLINE_DECL_VIRT(TH2); TATTFILL_DECL_VIRT(TH2); TATTMARKER_DECL_VIRT(TH2); +TOBJECT_DECL_VIRT(TH2); DELETABLE_DECL_VIRT(TH2); @@ -136,3 +137,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2C.cpp b/csrc/HROOTHistTH2C.cpp --- a/csrc/HROOTHistTH2C.cpp +++ b/csrc/HROOTHistTH2C.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayC.h" #include "TH2C.h" #include "HROOTHistTH2C.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,15 +18,15 @@ TH2_DEF_VIRT(TH2C) TARRAYC_DEF_VIRT(TH2C) TH1_DEF_VIRT(TH2C) -TOBJECT_DEF_VIRT(TH2C) +TNAMED_DEF_VIRT(TH2C) TATTLINE_DEF_VIRT(TH2C) TATTFILL_DEF_VIRT(TH2C) TATTMARKER_DEF_VIRT(TH2C) +TOBJECT_DEF_VIRT(TH2C) DELETABLE_DEF_VIRT(TH2C) TARRAY_DEF_VIRT(TH2C) TH2C_DEF_VIRT(TH2C) TH2C_DEF_NONVIRT(TH2C) - diff --git a/csrc/HROOTHistTH2C.h b/csrc/HROOTHistTH2C.h --- a/csrc/HROOTHistTH2C.h +++ b/csrc/HROOTHistTH2C.h @@ -1,28 +1,28 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2C__ #define __HROOT_HIST__TH2C__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayC.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH2C_DECL_VIRT +#undef TH2C_DECL_VIRT #define TH2C_DECL_VIRT(Type) \ -#undef TH2C_DECL_NONVIRT +#undef TH2C_DECL_NONVIRT #define TH2C_DECL_NONVIRT(Type) \ @@ -37,10 +37,11 @@ TH2_DECL_VIRT(TH2C); TARRAYC_DECL_VIRT(TH2C); TH1_DECL_VIRT(TH2C); -TOBJECT_DECL_VIRT(TH2C); +TNAMED_DECL_VIRT(TH2C); TATTLINE_DECL_VIRT(TH2C); TATTFILL_DECL_VIRT(TH2C); TATTMARKER_DECL_VIRT(TH2C); +TOBJECT_DECL_VIRT(TH2C); DELETABLE_DECL_VIRT(TH2C); TARRAY_DECL_VIRT(TH2C); @@ -56,3 +57,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2D.cpp b/csrc/HROOTHistTH2D.cpp --- a/csrc/HROOTHistTH2D.cpp +++ b/csrc/HROOTHistTH2D.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayD.h" #include "TH2D.h" #include "HROOTHistTH2D.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,15 +18,15 @@ TH2_DEF_VIRT(TH2D) TARRAYD_DEF_VIRT(TH2D) TH1_DEF_VIRT(TH2D) -TOBJECT_DEF_VIRT(TH2D) +TNAMED_DEF_VIRT(TH2D) TATTLINE_DEF_VIRT(TH2D) TATTFILL_DEF_VIRT(TH2D) TATTMARKER_DEF_VIRT(TH2D) +TOBJECT_DEF_VIRT(TH2D) DELETABLE_DEF_VIRT(TH2D) TARRAY_DEF_VIRT(TH2D) TH2D_DEF_VIRT(TH2D) TH2D_DEF_NONVIRT(TH2D) - diff --git a/csrc/HROOTHistTH2D.h b/csrc/HROOTHistTH2D.h --- a/csrc/HROOTHistTH2D.h +++ b/csrc/HROOTHistTH2D.h @@ -1,28 +1,28 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2D__ #define __HROOT_HIST__TH2D__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayD.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH2D_DECL_VIRT +#undef TH2D_DECL_VIRT #define TH2D_DECL_VIRT(Type) \ -#undef TH2D_DECL_NONVIRT +#undef TH2D_DECL_NONVIRT #define TH2D_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTH2D ( const char* name, const char* title, int nbinsx, double xlow, double xup, int nbinsy, double ylow, double yup ) @@ -41,10 +41,11 @@ TH2_DECL_VIRT(TH2D); TARRAYD_DECL_VIRT(TH2D); TH1_DECL_VIRT(TH2D); -TOBJECT_DECL_VIRT(TH2D); +TNAMED_DECL_VIRT(TH2D); TATTLINE_DECL_VIRT(TH2D); TATTFILL_DECL_VIRT(TH2D); TATTMARKER_DECL_VIRT(TH2D); +TOBJECT_DECL_VIRT(TH2D); DELETABLE_DECL_VIRT(TH2D); TARRAY_DECL_VIRT(TH2D); @@ -60,3 +61,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2F.cpp b/csrc/HROOTHistTH2F.cpp --- a/csrc/HROOTHistTH2F.cpp +++ b/csrc/HROOTHistTH2F.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayF.h" #include "TH2F.h" #include "HROOTHistTH2F.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,15 +18,15 @@ TH2_DEF_VIRT(TH2F) TARRAYF_DEF_VIRT(TH2F) TH1_DEF_VIRT(TH2F) -TOBJECT_DEF_VIRT(TH2F) +TNAMED_DEF_VIRT(TH2F) TATTLINE_DEF_VIRT(TH2F) TATTFILL_DEF_VIRT(TH2F) TATTMARKER_DEF_VIRT(TH2F) +TOBJECT_DEF_VIRT(TH2F) DELETABLE_DEF_VIRT(TH2F) TARRAY_DEF_VIRT(TH2F) TH2F_DEF_VIRT(TH2F) TH2F_DEF_NONVIRT(TH2F) - diff --git a/csrc/HROOTHistTH2F.h b/csrc/HROOTHistTH2F.h --- a/csrc/HROOTHistTH2F.h +++ b/csrc/HROOTHistTH2F.h @@ -1,28 +1,28 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2F__ #define __HROOT_HIST__TH2F__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayF.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH2F_DECL_VIRT +#undef TH2F_DECL_VIRT #define TH2F_DECL_VIRT(Type) \ -#undef TH2F_DECL_NONVIRT +#undef TH2F_DECL_NONVIRT #define TH2F_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTH2F ( const char* name, const char* title, int nbinsx, double xlow, double xup, int nbinsy, double ylow, double yup ) @@ -41,10 +41,11 @@ TH2_DECL_VIRT(TH2F); TARRAYF_DECL_VIRT(TH2F); TH1_DECL_VIRT(TH2F); -TOBJECT_DECL_VIRT(TH2F); +TNAMED_DECL_VIRT(TH2F); TATTLINE_DECL_VIRT(TH2F); TATTFILL_DECL_VIRT(TH2F); TATTMARKER_DECL_VIRT(TH2F); +TOBJECT_DECL_VIRT(TH2F); DELETABLE_DECL_VIRT(TH2F); TARRAY_DECL_VIRT(TH2F); @@ -60,3 +61,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2I.cpp b/csrc/HROOTHistTH2I.cpp --- a/csrc/HROOTHistTH2I.cpp +++ b/csrc/HROOTHistTH2I.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayI.h" #include "TH2I.h" #include "HROOTHistTH2I.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,15 +18,15 @@ TH2_DEF_VIRT(TH2I) TARRAYI_DEF_VIRT(TH2I) TH1_DEF_VIRT(TH2I) -TOBJECT_DEF_VIRT(TH2I) +TNAMED_DEF_VIRT(TH2I) TATTLINE_DEF_VIRT(TH2I) TATTFILL_DEF_VIRT(TH2I) TATTMARKER_DEF_VIRT(TH2I) +TOBJECT_DEF_VIRT(TH2I) DELETABLE_DEF_VIRT(TH2I) TARRAY_DEF_VIRT(TH2I) TH2I_DEF_VIRT(TH2I) TH2I_DEF_NONVIRT(TH2I) - diff --git a/csrc/HROOTHistTH2I.h b/csrc/HROOTHistTH2I.h --- a/csrc/HROOTHistTH2I.h +++ b/csrc/HROOTHistTH2I.h @@ -1,28 +1,28 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2I__ #define __HROOT_HIST__TH2I__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayI.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH2I_DECL_VIRT +#undef TH2I_DECL_VIRT #define TH2I_DECL_VIRT(Type) \ -#undef TH2I_DECL_NONVIRT +#undef TH2I_DECL_NONVIRT #define TH2I_DECL_NONVIRT(Type) \ @@ -37,10 +37,11 @@ TH2_DECL_VIRT(TH2I); TARRAYI_DECL_VIRT(TH2I); TH1_DECL_VIRT(TH2I); -TOBJECT_DECL_VIRT(TH2I); +TNAMED_DECL_VIRT(TH2I); TATTLINE_DECL_VIRT(TH2I); TATTFILL_DECL_VIRT(TH2I); TATTMARKER_DECL_VIRT(TH2I); +TOBJECT_DECL_VIRT(TH2I); DELETABLE_DECL_VIRT(TH2I); TARRAY_DECL_VIRT(TH2I); @@ -56,3 +57,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2Poly.cpp b/csrc/HROOTHistTH2Poly.cpp --- a/csrc/HROOTHistTH2Poly.cpp +++ b/csrc/HROOTHistTH2Poly.cpp @@ -1,33 +1,10 @@ #include - #include "HROOTHistTH2.h" #include "TH2Poly.h" #include "HROOTHistTH2Poly.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -39,14 +16,14 @@ TH2_DEF_VIRT(TH2Poly) TH1_DEF_VIRT(TH2Poly) -TOBJECT_DEF_VIRT(TH2Poly) +TNAMED_DEF_VIRT(TH2Poly) TATTLINE_DEF_VIRT(TH2Poly) TATTFILL_DEF_VIRT(TH2Poly) TATTMARKER_DEF_VIRT(TH2Poly) +TOBJECT_DEF_VIRT(TH2Poly) DELETABLE_DEF_VIRT(TH2Poly) TH2POLY_DEF_VIRT(TH2Poly) TH2POLY_DEF_NONVIRT(TH2Poly) - diff --git a/csrc/HROOTHistTH2Poly.h b/csrc/HROOTHistTH2Poly.h --- a/csrc/HROOTHistTH2Poly.h +++ b/csrc/HROOTHistTH2Poly.h @@ -1,25 +1,25 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2Poly__ #define __HROOT_HIST__TH2Poly__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" -#undef TH2POLY_DECL_VIRT +#undef TH2POLY_DECL_VIRT #define TH2POLY_DECL_VIRT(Type) \ -#undef TH2POLY_DECL_NONVIRT +#undef TH2POLY_DECL_NONVIRT #define TH2POLY_DECL_NONVIRT(Type) \ @@ -33,10 +33,11 @@ TH2_DECL_VIRT(TH2Poly); TH1_DECL_VIRT(TH2Poly); -TOBJECT_DECL_VIRT(TH2Poly); +TNAMED_DECL_VIRT(TH2Poly); TATTLINE_DECL_VIRT(TH2Poly); TATTFILL_DECL_VIRT(TH2Poly); TATTMARKER_DECL_VIRT(TH2Poly); +TOBJECT_DECL_VIRT(TH2Poly); DELETABLE_DECL_VIRT(TH2Poly); @@ -51,3 +52,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH2S.cpp b/csrc/HROOTHistTH2S.cpp --- a/csrc/HROOTHistTH2S.cpp +++ b/csrc/HROOTHistTH2S.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayS.h" #include "TH2S.h" #include "HROOTHistTH2S.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -41,15 +18,15 @@ TH2_DEF_VIRT(TH2S) TARRAYS_DEF_VIRT(TH2S) TH1_DEF_VIRT(TH2S) -TOBJECT_DEF_VIRT(TH2S) +TNAMED_DEF_VIRT(TH2S) TATTLINE_DEF_VIRT(TH2S) TATTFILL_DEF_VIRT(TH2S) TATTMARKER_DEF_VIRT(TH2S) +TOBJECT_DEF_VIRT(TH2S) DELETABLE_DEF_VIRT(TH2S) TARRAY_DEF_VIRT(TH2S) TH2S_DEF_VIRT(TH2S) TH2S_DEF_NONVIRT(TH2S) - diff --git a/csrc/HROOTHistTH2S.h b/csrc/HROOTHistTH2S.h --- a/csrc/HROOTHistTH2S.h +++ b/csrc/HROOTHistTH2S.h @@ -1,28 +1,28 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH2S__ #define __HROOT_HIST__TH2S__ #include "HROOT-histType.h" - #include "HROOTHistTH2.h" #include "HROOTCoreTArrayS.h" #include "HROOTHistTH1.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH2S_DECL_VIRT +#undef TH2S_DECL_VIRT #define TH2S_DECL_VIRT(Type) \ -#undef TH2S_DECL_NONVIRT +#undef TH2S_DECL_NONVIRT #define TH2S_DECL_NONVIRT(Type) \ @@ -37,10 +37,11 @@ TH2_DECL_VIRT(TH2S); TARRAYS_DECL_VIRT(TH2S); TH1_DECL_VIRT(TH2S); -TOBJECT_DECL_VIRT(TH2S); +TNAMED_DECL_VIRT(TH2S); TATTLINE_DECL_VIRT(TH2S); TATTFILL_DECL_VIRT(TH2S); TATTMARKER_DECL_VIRT(TH2S); +TOBJECT_DECL_VIRT(TH2S); DELETABLE_DECL_VIRT(TH2S); TARRAY_DECL_VIRT(TH2S); @@ -56,3 +57,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3.cpp b/csrc/HROOTHistTH3.cpp --- a/csrc/HROOTHistTH3.cpp +++ b/csrc/HROOTHistTH3.cpp @@ -1,5 +1,4 @@ #include - #include "HROOTHistTH1D.h" #include "HROOTHistTH1.h" #include "HROOTHistTF1.h" @@ -7,30 +6,8 @@ #include "TH3.h" #include "HROOTHistTH3.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,14 +20,14 @@ TH1_DEF_VIRT(TH3) TATT3D_DEF_VIRT(TH3) -TOBJECT_DEF_VIRT(TH3) +TNAMED_DEF_VIRT(TH3) TATTLINE_DEF_VIRT(TH3) TATTFILL_DEF_VIRT(TH3) TATTMARKER_DEF_VIRT(TH3) +TOBJECT_DEF_VIRT(TH3) DELETABLE_DEF_VIRT(TH3) TH3_DEF_VIRT(TH3) TH3_DEF_NONVIRT(TH3) - diff --git a/csrc/HROOTHistTH3.h b/csrc/HROOTHistTH3.h --- a/csrc/HROOTHistTH3.h +++ b/csrc/HROOTHistTH3.h @@ -1,22 +1,22 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3__ #define __HROOT_HIST__TH3__ #include "HROOT-histType.h" - #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef TH3_DECL_VIRT +#undef TH3_DECL_VIRT #define TH3_DECL_VIRT(Type) \ int Type ## _fill3 ( Type ## _p p, double x, double y, double z ); \ int Type ## _fill3w ( Type ## _p p, double x, double y, double z, double w ); \ @@ -28,7 +28,7 @@ TH3_p Type ## _rebinZ3 ( Type ## _p p, int ngroup, const char* newname ); \ TH3_p Type ## _Rebin3D ( Type ## _p p, int nxgroup, int nygroup, int nzgroup, const char* newname ) -#undef TH3_DECL_NONVIRT +#undef TH3_DECL_NONVIRT #define TH3_DECL_NONVIRT(Type) \ TH1D_p Type ## _tH3ProjectionX ( Type ## _p p, const char* name, int firstybin, int lastybin, int firstzbin, int lastzbin, const char* option ); \ TH1D_p Type ## _tH3ProjectionY ( Type ## _p p, const char* name, int firstxbin, int lastxbin, int firstzbin, int lastzbin, const char* option ); \ @@ -95,10 +95,11 @@ TH1_DECL_VIRT(TH3); TATT3D_DECL_VIRT(TH3); -TOBJECT_DECL_VIRT(TH3); +TNAMED_DECL_VIRT(TH3); TATTLINE_DECL_VIRT(TH3); TATTFILL_DECL_VIRT(TH3); TATTMARKER_DECL_VIRT(TH3); +TOBJECT_DECL_VIRT(TH3); DELETABLE_DECL_VIRT(TH3); @@ -113,3 +114,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3C.cpp b/csrc/HROOTHistTH3C.cpp --- a/csrc/HROOTHistTH3C.cpp +++ b/csrc/HROOTHistTH3C.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayC.h" #include "TH3C.h" #include "HROOTHistTH3C.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,15 +20,15 @@ TARRAYC_DEF_VIRT(TH3C) TH1_DEF_VIRT(TH3C) TATT3D_DEF_VIRT(TH3C) -TOBJECT_DEF_VIRT(TH3C) +TNAMED_DEF_VIRT(TH3C) TATTLINE_DEF_VIRT(TH3C) TATTFILL_DEF_VIRT(TH3C) TATTMARKER_DEF_VIRT(TH3C) +TOBJECT_DEF_VIRT(TH3C) DELETABLE_DEF_VIRT(TH3C) TARRAY_DEF_VIRT(TH3C) TH3C_DEF_VIRT(TH3C) TH3C_DEF_NONVIRT(TH3C) - diff --git a/csrc/HROOTHistTH3C.h b/csrc/HROOTHistTH3C.h --- a/csrc/HROOTHistTH3C.h +++ b/csrc/HROOTHistTH3C.h @@ -1,29 +1,29 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3C__ #define __HROOT_HIST__TH3C__ #include "HROOT-histType.h" - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayC.h" #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH3C_DECL_VIRT +#undef TH3C_DECL_VIRT #define TH3C_DECL_VIRT(Type) \ -#undef TH3C_DECL_NONVIRT +#undef TH3C_DECL_NONVIRT #define TH3C_DECL_NONVIRT(Type) \ @@ -39,10 +39,11 @@ TARRAYC_DECL_VIRT(TH3C); TH1_DECL_VIRT(TH3C); TATT3D_DECL_VIRT(TH3C); -TOBJECT_DECL_VIRT(TH3C); +TNAMED_DECL_VIRT(TH3C); TATTLINE_DECL_VIRT(TH3C); TATTFILL_DECL_VIRT(TH3C); TATTMARKER_DECL_VIRT(TH3C); +TOBJECT_DECL_VIRT(TH3C); DELETABLE_DECL_VIRT(TH3C); TARRAY_DECL_VIRT(TH3C); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3D.cpp b/csrc/HROOTHistTH3D.cpp --- a/csrc/HROOTHistTH3D.cpp +++ b/csrc/HROOTHistTH3D.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayD.h" #include "TH3D.h" #include "HROOTHistTH3D.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,15 +20,15 @@ TARRAYD_DEF_VIRT(TH3D) TH1_DEF_VIRT(TH3D) TATT3D_DEF_VIRT(TH3D) -TOBJECT_DEF_VIRT(TH3D) +TNAMED_DEF_VIRT(TH3D) TATTLINE_DEF_VIRT(TH3D) TATTFILL_DEF_VIRT(TH3D) TATTMARKER_DEF_VIRT(TH3D) +TOBJECT_DEF_VIRT(TH3D) DELETABLE_DEF_VIRT(TH3D) TARRAY_DEF_VIRT(TH3D) TH3D_DEF_VIRT(TH3D) TH3D_DEF_NONVIRT(TH3D) - diff --git a/csrc/HROOTHistTH3D.h b/csrc/HROOTHistTH3D.h --- a/csrc/HROOTHistTH3D.h +++ b/csrc/HROOTHistTH3D.h @@ -1,29 +1,29 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3D__ #define __HROOT_HIST__TH3D__ #include "HROOT-histType.h" - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayD.h" #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH3D_DECL_VIRT +#undef TH3D_DECL_VIRT #define TH3D_DECL_VIRT(Type) \ -#undef TH3D_DECL_NONVIRT +#undef TH3D_DECL_NONVIRT #define TH3D_DECL_NONVIRT(Type) \ @@ -39,10 +39,11 @@ TARRAYD_DECL_VIRT(TH3D); TH1_DECL_VIRT(TH3D); TATT3D_DECL_VIRT(TH3D); -TOBJECT_DECL_VIRT(TH3D); +TNAMED_DECL_VIRT(TH3D); TATTLINE_DECL_VIRT(TH3D); TATTFILL_DECL_VIRT(TH3D); TATTMARKER_DECL_VIRT(TH3D); +TOBJECT_DECL_VIRT(TH3D); DELETABLE_DECL_VIRT(TH3D); TARRAY_DECL_VIRT(TH3D); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3F.cpp b/csrc/HROOTHistTH3F.cpp --- a/csrc/HROOTHistTH3F.cpp +++ b/csrc/HROOTHistTH3F.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayF.h" #include "TH3F.h" #include "HROOTHistTH3F.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,15 +20,15 @@ TARRAYF_DEF_VIRT(TH3F) TH1_DEF_VIRT(TH3F) TATT3D_DEF_VIRT(TH3F) -TOBJECT_DEF_VIRT(TH3F) +TNAMED_DEF_VIRT(TH3F) TATTLINE_DEF_VIRT(TH3F) TATTFILL_DEF_VIRT(TH3F) TATTMARKER_DEF_VIRT(TH3F) +TOBJECT_DEF_VIRT(TH3F) DELETABLE_DEF_VIRT(TH3F) TARRAY_DEF_VIRT(TH3F) TH3F_DEF_VIRT(TH3F) TH3F_DEF_NONVIRT(TH3F) - diff --git a/csrc/HROOTHistTH3F.h b/csrc/HROOTHistTH3F.h --- a/csrc/HROOTHistTH3F.h +++ b/csrc/HROOTHistTH3F.h @@ -1,29 +1,29 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3F__ #define __HROOT_HIST__TH3F__ #include "HROOT-histType.h" - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayF.h" #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH3F_DECL_VIRT +#undef TH3F_DECL_VIRT #define TH3F_DECL_VIRT(Type) \ -#undef TH3F_DECL_NONVIRT +#undef TH3F_DECL_NONVIRT #define TH3F_DECL_NONVIRT(Type) \ @@ -39,10 +39,11 @@ TARRAYF_DECL_VIRT(TH3F); TH1_DECL_VIRT(TH3F); TATT3D_DECL_VIRT(TH3F); -TOBJECT_DECL_VIRT(TH3F); +TNAMED_DECL_VIRT(TH3F); TATTLINE_DECL_VIRT(TH3F); TATTFILL_DECL_VIRT(TH3F); TATTMARKER_DECL_VIRT(TH3F); +TOBJECT_DECL_VIRT(TH3F); DELETABLE_DECL_VIRT(TH3F); TARRAY_DECL_VIRT(TH3F); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3I.cpp b/csrc/HROOTHistTH3I.cpp --- a/csrc/HROOTHistTH3I.cpp +++ b/csrc/HROOTHistTH3I.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayI.h" #include "TH3I.h" #include "HROOTHistTH3I.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,15 +20,15 @@ TARRAYI_DEF_VIRT(TH3I) TH1_DEF_VIRT(TH3I) TATT3D_DEF_VIRT(TH3I) -TOBJECT_DEF_VIRT(TH3I) +TNAMED_DEF_VIRT(TH3I) TATTLINE_DEF_VIRT(TH3I) TATTFILL_DEF_VIRT(TH3I) TATTMARKER_DEF_VIRT(TH3I) +TOBJECT_DEF_VIRT(TH3I) DELETABLE_DEF_VIRT(TH3I) TARRAY_DEF_VIRT(TH3I) TH3I_DEF_VIRT(TH3I) TH3I_DEF_NONVIRT(TH3I) - diff --git a/csrc/HROOTHistTH3I.h b/csrc/HROOTHistTH3I.h --- a/csrc/HROOTHistTH3I.h +++ b/csrc/HROOTHistTH3I.h @@ -1,29 +1,29 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3I__ #define __HROOT_HIST__TH3I__ #include "HROOT-histType.h" - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayI.h" #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH3I_DECL_VIRT +#undef TH3I_DECL_VIRT #define TH3I_DECL_VIRT(Type) \ -#undef TH3I_DECL_NONVIRT +#undef TH3I_DECL_NONVIRT #define TH3I_DECL_NONVIRT(Type) \ @@ -39,10 +39,11 @@ TARRAYI_DECL_VIRT(TH3I); TH1_DECL_VIRT(TH3I); TATT3D_DECL_VIRT(TH3I); -TOBJECT_DECL_VIRT(TH3I); +TNAMED_DECL_VIRT(TH3I); TATTLINE_DECL_VIRT(TH3I); TATTFILL_DECL_VIRT(TH3I); TATTMARKER_DECL_VIRT(TH3I); +TOBJECT_DECL_VIRT(TH3I); DELETABLE_DECL_VIRT(TH3I); TARRAY_DECL_VIRT(TH3I); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTH3S.cpp b/csrc/HROOTHistTH3S.cpp --- a/csrc/HROOTHistTH3S.cpp +++ b/csrc/HROOTHistTH3S.cpp @@ -1,34 +1,11 @@ #include - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayS.h" #include "TH3S.h" #include "HROOTHistTH3S.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,15 +20,15 @@ TARRAYS_DEF_VIRT(TH3S) TH1_DEF_VIRT(TH3S) TATT3D_DEF_VIRT(TH3S) -TOBJECT_DEF_VIRT(TH3S) +TNAMED_DEF_VIRT(TH3S) TATTLINE_DEF_VIRT(TH3S) TATTFILL_DEF_VIRT(TH3S) TATTMARKER_DEF_VIRT(TH3S) +TOBJECT_DEF_VIRT(TH3S) DELETABLE_DEF_VIRT(TH3S) TARRAY_DEF_VIRT(TH3S) TH3S_DEF_VIRT(TH3S) TH3S_DEF_NONVIRT(TH3S) - diff --git a/csrc/HROOTHistTH3S.h b/csrc/HROOTHistTH3S.h --- a/csrc/HROOTHistTH3S.h +++ b/csrc/HROOTHistTH3S.h @@ -1,29 +1,29 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__TH3S__ #define __HROOT_HIST__TH3S__ #include "HROOT-histType.h" - #include "HROOTHistTH3.h" #include "HROOTCoreTArrayS.h" #include "HROOTHistTH1.h" #include "HROOTCoreTAtt3D.h" -#include "HROOTCoreTObject.h" +#include "HROOTCoreTNamed.h" #include "HROOTCoreTAttLine.h" #include "HROOTCoreTAttFill.h" #include "HROOTCoreTAttMarker.h" +#include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOTCoreTArray.h" #include "HROOT-coreType.h" -#undef TH3S_DECL_VIRT +#undef TH3S_DECL_VIRT #define TH3S_DECL_VIRT(Type) \ -#undef TH3S_DECL_NONVIRT +#undef TH3S_DECL_NONVIRT #define TH3S_DECL_NONVIRT(Type) \ @@ -39,10 +39,11 @@ TARRAYS_DECL_VIRT(TH3S); TH1_DECL_VIRT(TH3S); TATT3D_DECL_VIRT(TH3S); -TOBJECT_DECL_VIRT(TH3S); +TNAMED_DECL_VIRT(TH3S); TATTLINE_DECL_VIRT(TH3S); TATTFILL_DECL_VIRT(TH3S); TATTMARKER_DECL_VIRT(TH3S); +TOBJECT_DECL_VIRT(TH3S); DELETABLE_DECL_VIRT(TH3S); TARRAY_DECL_VIRT(TH3S); @@ -58,3 +59,4 @@ #ifdef __cplusplus } #endif + diff --git a/csrc/HROOTHistTHStack.cpp b/csrc/HROOTHistTHStack.cpp --- a/csrc/HROOTHistTHStack.cpp +++ b/csrc/HROOTHistTHStack.cpp @@ -1,33 +1,10 @@ #include - #include "HROOTCoreTNamed.h" #include "THStack.h" #include "HROOTHistTHStack.h" -using namespace std; -template -const ToType* to_const(const FromType* x) { - return reinterpret_cast(x); -} - -template -ToType* to_nonconst(FromType* x) { - return reinterpret_cast(x); -} - -template -const ToType& to_constref(const FromType& x) { - return reinterpret_cast(x); -} - -template -ToType& to_nonconstref(FromType& x) { - return reinterpret_cast(x); -} - - #define CHECKPROTECT(x,y) IS_PAREN(IS_ ## x ## _ ## y ## _PROTECTED) #define TYPECASTMETHOD(cname,mname,oname) \ @@ -43,5 +20,4 @@ THSTACK_DEF_VIRT(THStack) THSTACK_DEF_NONVIRT(THStack) - diff --git a/csrc/HROOTHistTHStack.h b/csrc/HROOTHistTHStack.h --- a/csrc/HROOTHistTHStack.h +++ b/csrc/HROOTHistTHStack.h @@ -1,22 +1,21 @@ #ifdef __cplusplus extern "C" { -#endif +#endif #ifndef __HROOT_HIST__THStack__ #define __HROOT_HIST__THStack__ #include "HROOT-histType.h" - #include "HROOTCoreTNamed.h" #include "HROOTCoreTObject.h" #include "HROOTCoreDeletable.h" #include "HROOT-coreType.h" -#undef THSTACK_DECL_VIRT +#undef THSTACK_DECL_VIRT #define THSTACK_DECL_VIRT(Type) \ -#undef THSTACK_DECL_NONVIRT +#undef THSTACK_DECL_NONVIRT #define THSTACK_DECL_NONVIRT(Type) \ Type ## _p Type ## _newTHStack ( const char* name, const char* title ) @@ -48,3 +47,4 @@ #ifdef __cplusplus } #endif + diff --git a/src/HROOT/Hist.hs b/src/HROOT/Hist.hs --- a/src/HROOT/Hist.hs +++ b/src/HROOT/Hist.hs @@ -1,7 +1,8 @@ module HROOT.Hist ( -module HROOT.Hist.TAxis + module HROOT.Hist.TAxis , module HROOT.Hist.TF1 -, module HROOT.Hist.TFormula +, module HROOT.Hist.TFitResult +, module HROOT.Hist.TFitResultPtr , module HROOT.Hist.TGraph , module HROOT.Hist.TGraphAsymmErrors , module HROOT.Hist.TGraphBentErrors @@ -26,12 +27,13 @@ , module HROOT.Hist.TH3F , module HROOT.Hist.TH3I , module HROOT.Hist.TH3S -, module HROOT.Hist.THStack +, module HROOT.Hist.THStack ) where import HROOT.Hist.TAxis import HROOT.Hist.TF1 -import HROOT.Hist.TFormula +import HROOT.Hist.TFitResult +import HROOT.Hist.TFitResultPtr import HROOT.Hist.TGraph import HROOT.Hist.TGraphAsymmErrors import HROOT.Hist.TGraphBentErrors diff --git a/src/HROOT/Hist/TAxis.hs b/src/HROOT/Hist/TAxis.hs --- a/src/HROOT/Hist/TAxis.hs +++ b/src/HROOT/Hist/TAxis.hs @@ -1,17 +1,7 @@ module HROOT.Hist.TAxis - ( - TAxis(..) - , ITAxis(..) - , upcastTAxis - , downcastTAxis - , newTAxis - , tAxisGetCenterLabels - , tAxisGetCenterTitle - - ) where - + (TAxis(..), ITAxis(..), upcastTAxis, downcastTAxis, newTAxis, + tAxisGetCenterLabels, tAxisGetCenterTitle) + where import HROOT.Hist.TAxis.RawType import HROOT.Hist.TAxis.Interface import HROOT.Hist.TAxis.Implementation - - diff --git a/src/HROOT/Hist/TAxis/Cast.hs b/src/HROOT/Hist/TAxis/Cast.hs --- a/src/HROOT/Hist/TAxis/Cast.hs +++ b/src/HROOT/Hist/TAxis/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TAxis.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TAxis.RawType import HROOT.Hist.TAxis.Interface instance (ITAxis a, FPtr a) => Castable a (Ptr RawTAxis) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TAxis (Ptr RawTAxis) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TAxis/FFI.hsc b/src/HROOT/Hist/TAxis/FFI.hsc --- a/src/HROOT/Hist/TAxis/FFI.hsc +++ b/src/HROOT/Hist/TAxis/FFI.hsc @@ -1,152 +1,144 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TAxis.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TAxis.RawType import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTAxis.h" - -foreign import ccall "HROOTHistTAxis.h TAxis_SetName" c_taxis_setname - :: (Ptr RawTAxis) -> CString -> IO () - -foreign import ccall "HROOTHistTAxis.h TAxis_SetNameTitle" c_taxis_setnametitle - :: (Ptr RawTAxis) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetName" + c_taxis_setname :: Ptr RawTAxis -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTitle" c_taxis_settitle - :: (Ptr RawTAxis) -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetNameTitle" + c_taxis_setnametitle :: Ptr RawTAxis -> CString -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_GetNdivisions" c_taxis_getndivisions - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTitle" + c_taxis_settitle :: Ptr RawTAxis -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_GetAxisColor" c_taxis_getaxiscolor - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetNdivisions" + c_taxis_getndivisions :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_GetLabelColor" c_taxis_getlabelcolor - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetAxisColor" + c_taxis_getaxiscolor :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_GetLabelFont" c_taxis_getlabelfont - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetLabelColor" + c_taxis_getlabelcolor :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_GetLabelOffset" c_taxis_getlabeloffset - :: (Ptr RawTAxis) -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetLabelFont" + c_taxis_getlabelfont :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_GetLabelSize" c_taxis_getlabelsize - :: (Ptr RawTAxis) -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetLabelOffset" + c_taxis_getlabeloffset :: Ptr RawTAxis -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_GetTitleOffset" c_taxis_gettitleoffset - :: (Ptr RawTAxis) -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetLabelSize" + c_taxis_getlabelsize :: Ptr RawTAxis -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_GetTitleSize" c_taxis_gettitlesize - :: (Ptr RawTAxis) -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetTitleOffset" + c_taxis_gettitleoffset :: Ptr RawTAxis -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_GetTickLength" c_taxis_getticklength - :: (Ptr RawTAxis) -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetTitleSize" + c_taxis_gettitlesize :: Ptr RawTAxis -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_GetTitleFont" c_taxis_gettitlefont - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetTickLength" + c_taxis_getticklength :: Ptr RawTAxis -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_SetNdivisions" c_taxis_setndivisions - :: (Ptr RawTAxis) -> CInt -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetTitleFont" + c_taxis_gettitlefont :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_SetAxisColor" c_taxis_setaxiscolor - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetNdivisions" + c_taxis_setndivisions :: Ptr RawTAxis -> CInt -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetLabelColor" c_taxis_setlabelcolor - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetAxisColor" + c_taxis_setaxiscolor :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetLabelFont" c_taxis_setlabelfont - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetLabelColor" + c_taxis_setlabelcolor :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetLabelOffset" c_taxis_setlabeloffset - :: (Ptr RawTAxis) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetLabelFont" + c_taxis_setlabelfont :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetLabelSize" c_taxis_setlabelsize - :: (Ptr RawTAxis) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetLabelOffset" + c_taxis_setlabeloffset :: Ptr RawTAxis -> CDouble -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTickLength" c_taxis_setticklength - :: (Ptr RawTAxis) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetLabelSize" + c_taxis_setlabelsize :: Ptr RawTAxis -> CDouble -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTitleOffset" c_taxis_settitleoffset - :: (Ptr RawTAxis) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTickLength" + c_taxis_setticklength :: Ptr RawTAxis -> CDouble -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTitleSize" c_taxis_settitlesize - :: (Ptr RawTAxis) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTitleOffset" + c_taxis_settitleoffset :: Ptr RawTAxis -> CDouble -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTitleColor" c_taxis_settitlecolor - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTitleSize" + c_taxis_settitlesize :: Ptr RawTAxis -> CDouble -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTitleFont" c_taxis_settitlefont - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTitleColor" + c_taxis_settitlecolor :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_Draw" c_taxis_draw - :: (Ptr RawTAxis) -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTitleFont" + c_taxis_settitlefont :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_FindObject" c_taxis_findobject - :: (Ptr RawTAxis) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTAxis.h TAxis_Draw" + c_taxis_draw :: Ptr RawTAxis -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_GetName" c_taxis_getname - :: (Ptr RawTAxis) -> IO CString +foreign import ccall safe "HROOTHistTAxis.h TAxis_FindObject" + c_taxis_findobject :: + Ptr RawTAxis -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTAxis.h TAxis_IsA" c_taxis_isa - :: (Ptr RawTAxis) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetName" + c_taxis_getname :: Ptr RawTAxis -> IO CString -foreign import ccall "HROOTHistTAxis.h TAxis_Paint" c_taxis_paint - :: (Ptr RawTAxis) -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_IsA" c_taxis_isa + :: Ptr RawTAxis -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTAxis.h TAxis_printObj" c_taxis_printobj - :: (Ptr RawTAxis) -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_Paint" + c_taxis_paint :: Ptr RawTAxis -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SaveAs" c_taxis_saveas - :: (Ptr RawTAxis) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_printObj" + c_taxis_printobj :: Ptr RawTAxis -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_Write" c_taxis_write - :: (Ptr RawTAxis) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_SaveAs" + c_taxis_saveas :: Ptr RawTAxis -> CString -> CString -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_delete" c_taxis_delete - :: (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_Write" + c_taxis_write :: Ptr RawTAxis -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_newTAxis" c_taxis_newtaxis - :: CInt -> CDouble -> CDouble -> IO (Ptr RawTAxis) +foreign import ccall safe "HROOTHistTAxis.h TAxis_delete" + c_taxis_delete :: Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_findBinTAxis" c_taxis_findbintaxis - :: (Ptr RawTAxis) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_newTAxis" + c_taxis_newtaxis :: CInt -> CDouble -> CDouble -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTAxis.h TAxis_findFixBinTAxis" c_taxis_findfixbintaxis - :: (Ptr RawTAxis) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_findBinTAxis" + c_taxis_findbintaxis :: Ptr RawTAxis -> CDouble -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_getBinCenterTAxis" c_taxis_getbincentertaxis - :: (Ptr RawTAxis) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_findFixBinTAxis" + c_taxis_findfixbintaxis :: Ptr RawTAxis -> CDouble -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_GetBinCenterLog" c_taxis_getbincenterlog - :: (Ptr RawTAxis) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTAxis.h TAxis_getBinCenterTAxis" + c_taxis_getbincentertaxis :: Ptr RawTAxis -> CInt -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_GetBinUpEdge" c_taxis_getbinupedge - :: (Ptr RawTAxis) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetBinCenterLog" + c_taxis_getbincenterlog :: Ptr RawTAxis -> CInt -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_tAxisGetCenterLabels" c_taxis_taxisgetcenterlabels - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe "HROOTHistTAxis.h TAxis_GetBinUpEdge" + c_taxis_getbinupedge :: Ptr RawTAxis -> CInt -> IO CDouble -foreign import ccall "HROOTHistTAxis.h TAxis_tAxisGetCenterTitle" c_taxis_taxisgetcentertitle - :: (Ptr RawTAxis) -> IO CInt +foreign import ccall safe + "HROOTHistTAxis.h TAxis_tAxisGetCenterLabels" + c_taxis_taxisgetcenterlabels :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_SetTimeDisplay" c_taxis_settimedisplay - :: (Ptr RawTAxis) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTAxis.h TAxis_tAxisGetCenterTitle" + c_taxis_taxisgetcentertitle :: Ptr RawTAxis -> IO CInt -foreign import ccall "HROOTHistTAxis.h TAxis_SetTimeFormat" c_taxis_settimeformat - :: (Ptr RawTAxis) -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTimeDisplay" + c_taxis_settimedisplay :: Ptr RawTAxis -> CInt -> IO () -foreign import ccall "HROOTHistTAxis.h TAxis_SetTimeOffset" c_taxis_settimeoffset - :: (Ptr RawTAxis) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTimeFormat" + c_taxis_settimeformat :: Ptr RawTAxis -> CString -> IO () +foreign import ccall safe "HROOTHistTAxis.h TAxis_SetTimeOffset" + c_taxis_settimeoffset :: + Ptr RawTAxis -> CDouble -> CString -> IO () diff --git a/src/HROOT/Hist/TAxis/Implementation.hs b/src/HROOT/Hist/TAxis/Implementation.hs --- a/src/HROOT/Hist/TAxis/Implementation.hs +++ b/src/HROOT/Hist/TAxis/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TAxis.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TAxis.RawType import HROOT.Hist.TAxis.FFI import HROOT.Hist.TAxis.Interface @@ -27,108 +28,56 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - - instance ITAxis TAxis where - findBinTAxis = xform1 c_taxis_findbintaxis - findFixBinTAxis = xform1 c_taxis_findfixbintaxis - getBinCenterTAxis = xform1 c_taxis_getbincentertaxis - getBinCenterLog = xform1 c_taxis_getbincenterlog - getBinUpEdge = xform1 c_taxis_getbinupedge - setTimeDisplay = xform1 c_taxis_settimedisplay - setTimeFormat = xform1 c_taxis_settimeformat - setTimeOffset = xform2 c_taxis_settimeoffset + findBinTAxis = xform1 c_taxis_findbintaxis + findFixBinTAxis = xform1 c_taxis_findfixbintaxis + getBinCenterTAxis = xform1 c_taxis_getbincentertaxis + getBinCenterLog = xform1 c_taxis_getbincenterlog + getBinUpEdge = xform1 c_taxis_getbinupedge + setTimeDisplay = xform1 c_taxis_settimedisplay + setTimeFormat = xform1 c_taxis_settimeformat + setTimeOffset = xform2 c_taxis_settimeoffset + instance ITNamed TAxis where - setName = xform1 c_taxis_setname - setNameTitle = xform2 c_taxis_setnametitle - setTitle = xform1 c_taxis_settitle + setName = xform1 c_taxis_setname + setNameTitle = xform2 c_taxis_setnametitle + setTitle = xform1 c_taxis_settitle + instance ITAttAxis TAxis where - getNdivisions = xform0 c_taxis_getndivisions - getAxisColor = xform0 c_taxis_getaxiscolor - getLabelColor = xform0 c_taxis_getlabelcolor - getLabelFont = xform0 c_taxis_getlabelfont - getLabelOffset = xform0 c_taxis_getlabeloffset - getLabelSize = xform0 c_taxis_getlabelsize - getTitleOffset = xform0 c_taxis_gettitleoffset - getTitleSize = xform0 c_taxis_gettitlesize - getTickLength = xform0 c_taxis_getticklength - getTitleFont = xform0 c_taxis_gettitlefont - setNdivisions = xform2 c_taxis_setndivisions - setAxisColor = xform1 c_taxis_setaxiscolor - setLabelColor = xform1 c_taxis_setlabelcolor - setLabelFont = xform1 c_taxis_setlabelfont - setLabelOffset = xform1 c_taxis_setlabeloffset - setLabelSize = xform1 c_taxis_setlabelsize - setTickLength = xform1 c_taxis_setticklength - setTitleOffset = xform1 c_taxis_settitleoffset - setTitleSize = xform1 c_taxis_settitlesize - setTitleColor = xform1 c_taxis_settitlecolor - setTitleFont = xform1 c_taxis_settitlefont -instance ITObject TAxis where - draw = xform1 c_taxis_draw - findObject = xform1 c_taxis_findobject - getName = xform0 c_taxis_getname - isA = xform0 c_taxis_isa - paint = xform1 c_taxis_paint - printObj = xform1 c_taxis_printobj - saveAs = xform2 c_taxis_saveas - write = xform3 c_taxis_write -instance IDeletable TAxis where - delete = xform0 c_taxis_delete + getNdivisions = xform0 c_taxis_getndivisions + getAxisColor = xform0 c_taxis_getaxiscolor + getLabelColor = xform0 c_taxis_getlabelcolor + getLabelFont = xform0 c_taxis_getlabelfont + getLabelOffset = xform0 c_taxis_getlabeloffset + getLabelSize = xform0 c_taxis_getlabelsize + getTitleOffset = xform0 c_taxis_gettitleoffset + getTitleSize = xform0 c_taxis_gettitlesize + getTickLength = xform0 c_taxis_getticklength + getTitleFont = xform0 c_taxis_gettitlefont + setNdivisions = xform2 c_taxis_setndivisions + setAxisColor = xform1 c_taxis_setaxiscolor + setLabelColor = xform1 c_taxis_setlabelcolor + setLabelFont = xform1 c_taxis_setlabelfont + setLabelOffset = xform1 c_taxis_setlabeloffset + setLabelSize = xform1 c_taxis_setlabelsize + setTickLength = xform1 c_taxis_setticklength + setTitleOffset = xform1 c_taxis_settitleoffset + setTitleSize = xform1 c_taxis_settitlesize + setTitleColor = xform1 c_taxis_settitlecolor + setTitleFont = xform1 c_taxis_settitlefont -instance ITAxis (Exist TAxis) where - findBinTAxis (ETAxis x) = findBinTAxis x - findFixBinTAxis (ETAxis x) = findFixBinTAxis x - getBinCenterTAxis (ETAxis x) = getBinCenterTAxis x - getBinCenterLog (ETAxis x) = getBinCenterLog x - getBinUpEdge (ETAxis x) = getBinUpEdge x - setTimeDisplay (ETAxis x) = setTimeDisplay x - setTimeFormat (ETAxis x) = setTimeFormat x - setTimeOffset (ETAxis x) = setTimeOffset x -instance ITNamed (Exist TAxis) where - setName (ETAxis x) = setName x - setNameTitle (ETAxis x) = setNameTitle x - setTitle (ETAxis x) = setTitle x -instance ITAttAxis (Exist TAxis) where - getNdivisions (ETAxis x) = getNdivisions x - getAxisColor (ETAxis x) = getAxisColor x - getLabelColor (ETAxis x) = getLabelColor x - getLabelFont (ETAxis x) = getLabelFont x - getLabelOffset (ETAxis x) = getLabelOffset x - getLabelSize (ETAxis x) = getLabelSize x - getTitleOffset (ETAxis x) = getTitleOffset x - getTitleSize (ETAxis x) = getTitleSize x - getTickLength (ETAxis x) = getTickLength x - getTitleFont (ETAxis x) = getTitleFont x - setNdivisions (ETAxis x) = setNdivisions x - setAxisColor (ETAxis x) = setAxisColor x - setLabelColor (ETAxis x) = setLabelColor x - setLabelFont (ETAxis x) = setLabelFont x - setLabelOffset (ETAxis x) = setLabelOffset x - setLabelSize (ETAxis x) = setLabelSize x - setTickLength (ETAxis x) = setTickLength x - setTitleOffset (ETAxis x) = setTitleOffset x - setTitleSize (ETAxis x) = setTitleSize x - setTitleColor (ETAxis x) = setTitleColor x - setTitleFont (ETAxis x) = setTitleFont x -instance ITObject (Exist TAxis) where - draw (ETAxis x) = draw x - findObject (ETAxis x) = findObject x - getName (ETAxis x) = getName x - isA (ETAxis x) = isA x - paint (ETAxis x) = paint x - printObj (ETAxis x) = printObj x - saveAs (ETAxis x) = saveAs x - write (ETAxis x) = write x -instance IDeletable (Exist TAxis) where - delete (ETAxis x) = delete x +instance ITObject TAxis where + draw = xform1 c_taxis_draw + findObject = xform1 c_taxis_findobject + getName = xform0 c_taxis_getname + isA = xform0 c_taxis_isa + paint = xform1 c_taxis_paint + printObj = xform1 c_taxis_printobj + saveAs = xform2 c_taxis_saveas + write = xform3 c_taxis_write +instance IDeletable TAxis where + delete = xform0 c_taxis_delete newTAxis :: CInt -> CDouble -> CDouble -> IO TAxis newTAxis = xform2 c_taxis_newtaxis @@ -138,10 +87,3 @@ tAxisGetCenterTitle :: TAxis -> IO CInt tAxisGetCenterTitle = xform0 c_taxis_taxisgetcentertitle - - - -instance FPtr (Exist TAxis) where - type Raw (Exist TAxis) = RawTAxis - get_fptr (ETAxis obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETAxis (cast_fptr_to_obj (fptr :: ForeignPtr RawTAxis) :: TAxis) diff --git a/src/HROOT/Hist/TAxis/Interface.hs b/src/HROOT/Hist/TAxis/Interface.hs --- a/src/HROOT/Hist/TAxis/Interface.hs +++ b/src/HROOT/Hist/TAxis/Interface.hs @@ -1,53 +1,41 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TAxis.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TAxis.RawType - import HROOT.Core.TNamed.Interface import HROOT.Core.TAttAxis.Interface ----- ============ ---- - - -class (ITNamed a,ITAttAxis a) => ITAxis a where - - findBinTAxis :: a -> CDouble -> IO CInt - - findFixBinTAxis :: a -> CDouble -> IO CInt - - getBinCenterTAxis :: a -> CInt -> IO CDouble - - getBinCenterLog :: a -> CInt -> IO CDouble - - getBinUpEdge :: a -> CInt -> IO CDouble - - setTimeDisplay :: a -> CInt -> IO () - - setTimeFormat :: a -> CString -> IO () - - setTimeOffset :: a -> CDouble -> CString -> IO () - -instance Existable TAxis where - data Exist TAxis = forall a. (FPtr a, ITAxis a) => ETAxis a +class (ITNamed a, ITAttAxis a) => ITAxis a where + findBinTAxis :: a -> CDouble -> IO CInt + + findFixBinTAxis :: a -> CDouble -> IO CInt + + getBinCenterTAxis :: a -> CInt -> IO CDouble + + getBinCenterLog :: a -> CInt -> IO CDouble + + getBinUpEdge :: a -> CInt -> IO CDouble + + setTimeDisplay :: a -> CInt -> IO () + + setTimeFormat :: Castable c0 CString => a -> c0 -> IO () + + setTimeOffset :: Castable c0 CString => a -> CDouble -> c0 -> IO () -upcastTAxis :: (FPtr a, ITAxis a) => a -> TAxis -upcastTAxis h = let fh = get_fptr h - fh2 :: ForeignPtr RawTAxis = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTAxis :: forall a . (FPtr a, ITAxis a) => a -> TAxis +upcastTAxis h + = let fh = get_fptr h + fh2 :: Ptr RawTAxis = castPtr fh + in cast_fptr_to_obj fh2 -downcastTAxis :: (FPtr a, ITAxis a) => TAxis -> a -downcastTAxis h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTAxis :: forall a . (FPtr a, ITAxis a) => TAxis -> a +downcastTAxis h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TAxis/RawType.hs b/src/HROOT/Hist/TAxis/RawType.hs --- a/src/HROOT/Hist/TAxis/RawType.hs +++ b/src/HROOT/Hist/TAxis/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TAxis.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTAxis -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TAxis = TAxis (Ptr RawTAxis) + deriving (Eq, Ord, Show) -data RawTAxis -newtype TAxis = TAxis (ForeignPtr RawTAxis) deriving (Eq, Ord, Show) instance FPtr TAxis where - type Raw TAxis = RawTAxis - get_fptr (TAxis fptr) = fptr - cast_fptr_to_obj = TAxis + type Raw TAxis = RawTAxis + get_fptr (TAxis ptr) = ptr + cast_fptr_to_obj = TAxis diff --git a/src/HROOT/Hist/TF1.hs b/src/HROOT/Hist/TF1.hs --- a/src/HROOT/Hist/TF1.hs +++ b/src/HROOT/Hist/TF1.hs @@ -1,28 +1,11 @@ module HROOT.Hist.TF1 - ( - TF1(..) - , ITF1(..) - , upcastTF1 - , downcastTF1 - , newTF1 - , tF1GetChisquare - , tF1GetHistogram - , tF1GetParent - , tF1GetXaxis - , tF1GetYaxis - , tF1GetZaxis - , tF1DerivativeError - , tF1InitStandardFunctions - , tF1GetCurrent - , tF1AbsValue - , tF1RejectPoint - , tF1RejectedPoint - , tF1SetCurrent - , tF1CalcGaussLegendreSamplingPoints - ) where - + (TF1(..), ITF1(..), upcastTF1, downcastTF1, newTF1, + tF1GetChisquare, tF1GetHistogram, tF1GetParent, tF1GetXaxis, + tF1GetYaxis, tF1GetZaxis, tF1DerivativeError, + tF1InitStandardFunctions, tF1GetCurrent, tF1AbsValue, + tF1RejectPoint, tF1RejectedPoint, tF1SetCurrent, + tF1CalcGaussLegendreSamplingPoints) + where import HROOT.Hist.TF1.RawType import HROOT.Hist.TF1.Interface import HROOT.Hist.TF1.Implementation - - diff --git a/src/HROOT/Hist/TF1/Cast.hs b/src/HROOT/Hist/TF1/Cast.hs --- a/src/HROOT/Hist/TF1/Cast.hs +++ b/src/HROOT/Hist/TF1/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TF1.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TF1.RawType import HROOT.Hist.TF1.Interface instance (ITF1 a, FPtr a) => Castable a (Ptr RawTF1) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TF1 (Ptr RawTF1) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TF1/FFI.hsc b/src/HROOT/Hist/TF1/FFI.hsc --- a/src/HROOT/Hist/TF1/FFI.hsc +++ b/src/HROOT/Hist/TF1/FFI.hsc @@ -1,358 +1,298 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TF1.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TF1.RawType import HROOT.Core.TObject.RawType -import HROOT.Core.TClass.RawType import HROOT.Hist.TH1.RawType import HROOT.Hist.TAxis.RawType -#include "HROOTHistTF1.h" - -foreign import ccall "HROOTHistTF1.h TF1_Compile" c_tf1_compile - :: (Ptr RawTF1) -> CString -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_Clear" c_tf1_clear - :: (Ptr RawTF1) -> CString -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_DefinedValue" c_tf1_definedvalue - :: (Ptr RawTF1) -> CInt -> IO CDouble - -foreign import ccall "HROOTHistTF1.h TF1_Eval" c_tf1_eval - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CDouble - -foreign import ccall "HROOTHistTF1.h TF1_EvalParOld" c_tf1_evalparold - :: (Ptr RawTF1) -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - -foreign import ccall "HROOTHistTF1.h TF1_EvalPar" c_tf1_evalpar - :: (Ptr RawTF1) -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - -foreign import ccall "HROOTHistTF1.h TF1_GetNdim" c_tf1_getndim - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetNpar" c_tf1_getnpar - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetNumber" c_tf1_getnumber - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetParNumber" c_tf1_getparnumber - :: (Ptr RawTF1) -> CString -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_IsLinear" c_tf1_islinear - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_IsNormalized" c_tf1_isnormalized - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_SetNumber" c_tf1_setnumber - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetParameter" c_tf1_setparameter - :: (Ptr RawTF1) -> CString -> CDouble -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetParameters" c_tf1_setparameters - :: (Ptr RawTF1) -> (Ptr CDouble) -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetParName" c_tf1_setparname - :: (Ptr RawTF1) -> CInt -> CString -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetParNames" c_tf1_setparnames - :: (Ptr RawTF1) -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_Update" c_tf1_update - :: (Ptr RawTF1) -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_GetLineColor" c_tf1_getlinecolor - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetLineStyle" c_tf1_getlinestyle - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetLineWidth" c_tf1_getlinewidth - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_ResetAttLine" c_tf1_resetattline - :: (Ptr RawTF1) -> CString -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetLineAttributes" c_tf1_setlineattributes - :: (Ptr RawTF1) -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetLineColor" c_tf1_setlinecolor - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetLineStyle" c_tf1_setlinestyle - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetLineWidth" c_tf1_setlinewidth - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetFillColor" c_tf1_setfillcolor - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_SetFillStyle" c_tf1_setfillstyle - :: (Ptr RawTF1) -> CInt -> IO () - -foreign import ccall "HROOTHistTF1.h TF1_GetMarkerColor" c_tf1_getmarkercolor - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetMarkerStyle" c_tf1_getmarkerstyle - :: (Ptr RawTF1) -> IO CInt - -foreign import ccall "HROOTHistTF1.h TF1_GetMarkerSize" c_tf1_getmarkersize - :: (Ptr RawTF1) -> IO CDouble - -foreign import ccall "HROOTHistTF1.h TF1_ResetAttMarker" c_tf1_resetattmarker - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_GetLineColor" + c_tf1_getlinecolor :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_SetMarkerAttributes" c_tf1_setmarkerattributes - :: (Ptr RawTF1) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_GetLineStyle" + c_tf1_getlinestyle :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_SetMarkerColor" c_tf1_setmarkercolor - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_GetLineWidth" + c_tf1_getlinewidth :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_SetMarkerStyle" c_tf1_setmarkerstyle - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_ResetAttLine" + c_tf1_resetattline :: Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetMarkerSize" c_tf1_setmarkersize - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetLineAttributes" + c_tf1_setlineattributes :: Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetName" c_tf1_setname - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetLineColor" + c_tf1_setlinecolor :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetNameTitle" c_tf1_setnametitle - :: (Ptr RawTF1) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetLineStyle" + c_tf1_setlinestyle :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetTitle" c_tf1_settitle - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetLineWidth" + c_tf1_setlinewidth :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_Draw" c_tf1_draw - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetFillColor" + c_tf1_setfillcolor :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_FindObject" c_tf1_findobject - :: (Ptr RawTF1) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTF1.h TF1_SetFillStyle" + c_tf1_setfillstyle :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_GetName" c_tf1_getname - :: (Ptr RawTF1) -> IO CString +foreign import ccall safe "HROOTHistTF1.h TF1_GetMarkerColor" + c_tf1_getmarkercolor :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_IsA" c_tf1_isa - :: (Ptr RawTF1) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTF1.h TF1_GetMarkerStyle" + c_tf1_getmarkerstyle :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_Paint" c_tf1_paint - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_GetMarkerSize" + c_tf1_getmarkersize :: Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_printObj" c_tf1_printobj - :: (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_ResetAttMarker" + c_tf1_resetattmarker :: Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SaveAs" c_tf1_saveas - :: (Ptr RawTF1) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetMarkerAttributes" + c_tf1_setmarkerattributes :: Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTF1.h TF1_Write" c_tf1_write - :: (Ptr RawTF1) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_SetMarkerColor" + c_tf1_setmarkercolor :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_delete" c_tf1_delete - :: (Ptr RawTF1) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetMarkerStyle" + c_tf1_setmarkerstyle :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_newTF1" c_tf1_newtf1 - :: CString -> CString -> CDouble -> CDouble -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTF1.h TF1_SetMarkerSize" + c_tf1_setmarkersize :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_Derivative" c_tf1_derivative - :: (Ptr RawTF1) -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_delete" c_tf1_delete + :: Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTF1.h TF1_Derivative2" c_tf1_derivative2 - :: (Ptr RawTF1) -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_newTF1" c_tf1_newtf1 + :: CString -> CString -> CDouble -> CDouble -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTF1.h TF1_Derivative3" c_tf1_derivative3 - :: (Ptr RawTF1) -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_Derivative" + c_tf1_derivative :: + Ptr RawTF1 -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_tF1DerivativeError" c_tf1_tf1derivativeerror - :: IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_Derivative2" + c_tf1_derivative2 :: + Ptr RawTF1 -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_drawCopyTF1" c_tf1_drawcopytf1 - :: (Ptr RawTF1) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTF1.h TF1_Derivative3" + c_tf1_derivative3 :: + Ptr RawTF1 -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_DrawDerivative" c_tf1_drawderivative - :: (Ptr RawTF1) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTF1.h TF1_tF1DerivativeError" + c_tf1_tf1derivativeerror :: IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_DrawIntegral" c_tf1_drawintegral - :: (Ptr RawTF1) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTF1.h TF1_drawCopyTF1" + c_tf1_drawcopytf1 :: Ptr RawTF1 -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTF1.h TF1_DrawF1" c_tf1_drawf1 - :: (Ptr RawTF1) -> CString -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_DrawDerivative" + c_tf1_drawderivative :: + Ptr RawTF1 -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTF1.h TF1_FixParameter" c_tf1_fixparameter - :: (Ptr RawTF1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_DrawIntegral" + c_tf1_drawintegral :: Ptr RawTF1 -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTF1.h TF1_tF1GetChisquare" c_tf1_tf1getchisquare - :: (Ptr RawTF1) -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_FixParameter" + c_tf1_fixparameter :: Ptr RawTF1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_tF1GetHistogram" c_tf1_tf1gethistogram - :: (Ptr RawTF1) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetChisquare" + c_tf1_tf1getchisquare :: Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_getMaximumTF1" c_tf1_getmaximumtf1 - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetHistogram" + c_tf1_tf1gethistogram :: Ptr RawTF1 -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTF1.h TF1_getMinimumTF1" c_tf1_getminimumtf1 - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_getMaximumTF1" + c_tf1_getmaximumtf1 :: + Ptr RawTF1 -> + CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetMaximumX" c_tf1_getmaximumx - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_getMinimumTF1" + c_tf1_getminimumtf1 :: + Ptr RawTF1 -> + CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetMinimumX" c_tf1_getminimumx - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_GetMaximumX" + c_tf1_getmaximumx :: + Ptr RawTF1 -> + CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetNDF" c_tf1_getndf - :: (Ptr RawTF1) -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_GetMinimumX" + c_tf1_getminimumx :: + Ptr RawTF1 -> + CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetNpx" c_tf1_getnpx - :: (Ptr RawTF1) -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_GetNDF" c_tf1_getndf + :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_GetNumberFreeParameters" c_tf1_getnumberfreeparameters - :: (Ptr RawTF1) -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_GetNpx" c_tf1_getnpx + :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_GetNumberFitPoints" c_tf1_getnumberfitpoints - :: (Ptr RawTF1) -> IO CInt +foreign import ccall safe + "HROOTHistTF1.h TF1_GetNumberFreeParameters" + c_tf1_getnumberfreeparameters :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_tF1GetParent" c_tf1_tf1getparent - :: (Ptr RawTF1) -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTF1.h TF1_GetNumberFitPoints" + c_tf1_getnumberfitpoints :: Ptr RawTF1 -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_GetParError" c_tf1_getparerror - :: (Ptr RawTF1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetParent" + c_tf1_tf1getparent :: Ptr RawTF1 -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTF1.h TF1_GetProb" c_tf1_getprob - :: (Ptr RawTF1) -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_GetParError" + c_tf1_getparerror :: Ptr RawTF1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_getQuantilesTF1" c_tf1_getquantilestf1 - :: (Ptr RawTF1) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_GetProb" + c_tf1_getprob :: Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_getRandomTF1" c_tf1_getrandomtf1 - :: (Ptr RawTF1) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_getQuantilesTF1" + c_tf1_getquantilestf1 :: + Ptr RawTF1 -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_GetSave" c_tf1_getsave - :: (Ptr RawTF1) -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_getRandomTF1" + c_tf1_getrandomtf1 :: + Ptr RawTF1 -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetX" c_tf1_getx - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_GetSave" + c_tf1_getsave :: Ptr RawTF1 -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetXmin" c_tf1_getxmin - :: (Ptr RawTF1) -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_GetX" c_tf1_getx :: + Ptr RawTF1 -> + CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_GetXmax" c_tf1_getxmax - :: (Ptr RawTF1) -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_GetXmin" + c_tf1_getxmin :: Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_tF1GetXaxis" c_tf1_tf1getxaxis - :: (Ptr RawTF1) -> IO (Ptr RawTAxis) +foreign import ccall safe "HROOTHistTF1.h TF1_GetXmax" + c_tf1_getxmax :: Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_tF1GetYaxis" c_tf1_tf1getyaxis - :: (Ptr RawTF1) -> IO (Ptr RawTAxis) +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetXaxis" + c_tf1_tf1getxaxis :: Ptr RawTF1 -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTF1.h TF1_tF1GetZaxis" c_tf1_tf1getzaxis - :: (Ptr RawTF1) -> IO (Ptr RawTAxis) +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetYaxis" + c_tf1_tf1getyaxis :: Ptr RawTF1 -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTF1.h TF1_GradientPar" c_tf1_gradientpar - :: (Ptr RawTF1) -> CInt -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetZaxis" + c_tf1_tf1getzaxis :: Ptr RawTF1 -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTF1.h TF1_InitArgs" c_tf1_initargs - :: (Ptr RawTF1) -> (Ptr CDouble) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_GradientPar" + c_tf1_gradientpar :: + Ptr RawTF1 -> CInt -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_tF1InitStandardFunctions" c_tf1_tf1initstandardfunctions - :: IO () +foreign import ccall safe "HROOTHistTF1.h TF1_InitArgs" + c_tf1_initargs :: + Ptr RawTF1 -> (Ptr CDouble) -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTF1.h TF1_IntegralTF1" c_tf1_integraltf1 - :: (Ptr RawTF1) -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe + "HROOTHistTF1.h TF1_tF1InitStandardFunctions" + c_tf1_tf1initstandardfunctions :: IO () -foreign import ccall "HROOTHistTF1.h TF1_IntegralError" c_tf1_integralerror - :: (Ptr RawTF1) -> CDouble -> CDouble -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_IntegralTF1" + c_tf1_integraltf1 :: + Ptr RawTF1 -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_IntegralFast" c_tf1_integralfast - :: (Ptr RawTF1) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_IntegralError" + c_tf1_integralerror :: + Ptr RawTF1 -> + CDouble -> + CDouble -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_IsInside" c_tf1_isinside - :: (Ptr RawTF1) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_IntegralFast" + c_tf1_integralfast :: + Ptr RawTF1 -> + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_ReleaseParameter" c_tf1_releaseparameter - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_IsInside" + c_tf1_isinside :: Ptr RawTF1 -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTF1.h TF1_SetChisquare" c_tf1_setchisquare - :: (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_ReleaseParameter" + c_tf1_releaseparameter :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_setMaximumTF1" c_tf1_setmaximumtf1 - :: (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetChisquare" + c_tf1_setchisquare :: Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_setMinimumTF1" c_tf1_setminimumtf1 - :: (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_setMaximumTF1" + c_tf1_setmaximumtf1 :: Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetNDF" c_tf1_setndf - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_setMinimumTF1" + c_tf1_setminimumtf1 :: Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetNumberFitPoints" c_tf1_setnumberfitpoints - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetNDF" c_tf1_setndf + :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetNpx" c_tf1_setnpx - :: (Ptr RawTF1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetNumberFitPoints" + c_tf1_setnumberfitpoints :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetParError" c_tf1_setparerror - :: (Ptr RawTF1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetNpx" c_tf1_setnpx + :: Ptr RawTF1 -> CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetParErrors" c_tf1_setparerrors - :: (Ptr RawTF1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetParError" + c_tf1_setparerror :: Ptr RawTF1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetParLimits" c_tf1_setparlimits - :: (Ptr RawTF1) -> CInt -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetParErrors" + c_tf1_setparerrors :: Ptr RawTF1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetParent" c_tf1_setparent - :: (Ptr RawTF1) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetParLimits" + c_tf1_setparlimits :: + Ptr RawTF1 -> CInt -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_setRange1" c_tf1_setrange1 - :: (Ptr RawTF1) -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_SetParent" + c_tf1_setparent :: Ptr RawTF1 -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTF1.h TF1_setRange2" c_tf1_setrange2 - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_setRange1" + c_tf1_setrange1 :: Ptr RawTF1 -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_setRange3" c_tf1_setrange3 - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_setRange2" + c_tf1_setrange2 :: + Ptr RawTF1 -> CDouble -> CDouble -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_SetSavedPoint" c_tf1_setsavedpoint - :: (Ptr RawTF1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_setRange3" + c_tf1_setrange3 :: + Ptr RawTF1 -> + CDouble -> + CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_tF1GetCurrent" c_tf1_tf1getcurrent - :: IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTF1.h TF1_SetSavedPoint" + c_tf1_setsavedpoint :: Ptr RawTF1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTF1.h TF1_tF1AbsValue" c_tf1_tf1absvalue - :: CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_tF1GetCurrent" + c_tf1_tf1getcurrent :: IO (Ptr RawTF1) -foreign import ccall "HROOTHistTF1.h TF1_tF1RejectPoint" c_tf1_tf1rejectpoint - :: CInt -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_tF1AbsValue" + c_tf1_tf1absvalue :: CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_tF1RejectedPoint" c_tf1_tf1rejectedpoint - :: IO CInt +foreign import ccall safe "HROOTHistTF1.h TF1_tF1RejectPoint" + c_tf1_tf1rejectpoint :: CInt -> IO () -foreign import ccall "HROOTHistTF1.h TF1_tF1SetCurrent" c_tf1_tf1setcurrent - :: (Ptr RawTF1) -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_tF1RejectedPoint" + c_tf1_tf1rejectedpoint :: IO CInt -foreign import ccall "HROOTHistTF1.h TF1_Moment" c_tf1_moment - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_tF1SetCurrent" + c_tf1_tf1setcurrent :: Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTF1.h TF1_CentralMoment" c_tf1_centralmoment - :: (Ptr RawTF1) -> CDouble -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_Moment" c_tf1_moment + :: + Ptr RawTF1 -> + CDouble -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_Mean" c_tf1_mean - :: (Ptr RawTF1) -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_CentralMoment" + c_tf1_centralmoment :: + Ptr RawTF1 -> + CDouble -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_Variance" c_tf1_variance - :: (Ptr RawTF1) -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTF1.h TF1_Mean" c_tf1_mean :: + Ptr RawTF1 -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTF1.h TF1_tF1CalcGaussLegendreSamplingPoints" c_tf1_tf1calcgausslegendresamplingpoints - :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTF1.h TF1_Variance" + c_tf1_variance :: + Ptr RawTF1 -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble +foreign import ccall safe + "HROOTHistTF1.h TF1_tF1CalcGaussLegendreSamplingPoints" + c_tf1_tf1calcgausslegendresamplingpoints :: + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO () diff --git a/src/HROOT/Hist/TF1/Implementation.hs b/src/HROOT/Hist/TF1/Implementation.hs --- a/src/HROOT/Hist/TF1/Implementation.hs +++ b/src/HROOT/Hist/TF1/Implementation.hs @@ -1,28 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TF1.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TF1.RawType import HROOT.Hist.TF1.FFI import HROOT.Hist.TF1.Interface import HROOT.Hist.TF1.Cast -import HROOT.Core.TClass.RawType -import HROOT.Core.TClass.Cast -import HROOT.Core.TClass.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.Hist.TFormula.RawType -import HROOT.Hist.TFormula.Cast -import HROOT.Hist.TFormula.Interface import HROOT.Core.TAttLine.RawType import HROOT.Core.TAttLine.Cast import HROOT.Core.TAttLine.Interface @@ -32,238 +30,90 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.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 HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - - 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 - drawF1 = xform4 c_tf1_drawf1 - 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 = xform4 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 ITFormula TF1 where - compile = xform1 c_tf1_compile - clear = xform1 c_tf1_clear - definedValue = xform1 c_tf1_definedvalue - eval = xform4 c_tf1_eval - evalParOld = xform2 c_tf1_evalparold - evalPar = xform2 c_tf1_evalpar - getNdim = xform0 c_tf1_getndim - getNpar = xform0 c_tf1_getnpar - getNumber = xform0 c_tf1_getnumber - getParNumber = xform1 c_tf1_getparnumber - isLinear = xform0 c_tf1_islinear - isNormalized = xform0 c_tf1_isnormalized - setNumber = xform1 c_tf1_setnumber - setParameter = xform2 c_tf1_setparameter - setParameters = xform1 c_tf1_setparameters - setParName = xform2 c_tf1_setparname - setParNames = xform11 c_tf1_setparnames - update = xform0 c_tf1_update + 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 + 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 ITNamed TF1 where - setName = xform1 c_tf1_setname - setNameTitle = xform2 c_tf1_setnametitle - setTitle = xform1 c_tf1_settitle -instance ITObject TF1 where - draw = xform1 c_tf1_draw - findObject = xform1 c_tf1_findobject - getName = xform0 c_tf1_getname - isA = xform0 c_tf1_isa - paint = xform1 c_tf1_paint - printObj = xform1 c_tf1_printobj - saveAs = xform2 c_tf1_saveas - write = xform3 c_tf1_write -instance IDeletable TF1 where - delete = xform0 c_tf1_delete + setFillColor = xform1 c_tf1_setfillcolor + setFillStyle = xform1 c_tf1_setfillstyle -instance ITF1 (Exist TF1) where - derivative (ETF1 x) = derivative x - derivative2 (ETF1 x) = derivative2 x - derivative3 (ETF1 x) = derivative3 x - drawCopyTF1 (ETF1 x) a1 = return . ETF1 =<< drawCopyTF1 x a1 - drawDerivative (ETF1 x) = drawDerivative x - drawIntegral (ETF1 x) = drawIntegral x - drawF1 (ETF1 x) = drawF1 x - fixParameter (ETF1 x) = fixParameter x - getMaximumTF1 (ETF1 x) = getMaximumTF1 x - getMinimumTF1 (ETF1 x) = getMinimumTF1 x - getMaximumX (ETF1 x) = getMaximumX x - getMinimumX (ETF1 x) = getMinimumX x - getNDF (ETF1 x) = getNDF x - getNpx (ETF1 x) = getNpx x - getNumberFreeParameters (ETF1 x) = getNumberFreeParameters x - getNumberFitPoints (ETF1 x) = getNumberFitPoints x - getParError (ETF1 x) = getParError x - getProb (ETF1 x) = getProb x - getQuantilesTF1 (ETF1 x) = getQuantilesTF1 x - getRandomTF1 (ETF1 x) = getRandomTF1 x - getSave (ETF1 x) = getSave x - getX (ETF1 x) = getX x - getXmin (ETF1 x) = getXmin x - getXmax (ETF1 x) = getXmax x - gradientPar (ETF1 x) = gradientPar x - initArgs (ETF1 x) = initArgs x - integralTF1 (ETF1 x) = integralTF1 x - integralError (ETF1 x) = integralError x - integralFast (ETF1 x) = integralFast x - isInside (ETF1 x) = isInside x - releaseParameter (ETF1 x) = releaseParameter x - setChisquare (ETF1 x) = setChisquare x - setMaximumTF1 (ETF1 x) = setMaximumTF1 x - setMinimumTF1 (ETF1 x) = setMinimumTF1 x - setNDF (ETF1 x) = setNDF x - setNumberFitPoints (ETF1 x) = setNumberFitPoints x - setNpx (ETF1 x) = setNpx x - setParError (ETF1 x) = setParError x - setParErrors (ETF1 x) = setParErrors x - setParLimits (ETF1 x) = setParLimits x - setParent (ETF1 x) = setParent x - setRange1 (ETF1 x) = setRange1 x - setRange2 (ETF1 x) = setRange2 x - setRange3 (ETF1 x) = setRange3 x - setSavedPoint (ETF1 x) = setSavedPoint x - moment (ETF1 x) = moment x - centralMoment (ETF1 x) = centralMoment x - mean (ETF1 x) = mean x - variance (ETF1 x) = variance x -instance ITFormula (Exist TF1) where - compile (ETF1 x) = compile x - clear (ETF1 x) = clear x - definedValue (ETF1 x) = definedValue x - eval (ETF1 x) = eval x - evalParOld (ETF1 x) = evalParOld x - evalPar (ETF1 x) = evalPar x - getNdim (ETF1 x) = getNdim x - getNpar (ETF1 x) = getNpar x - getNumber (ETF1 x) = getNumber x - getParNumber (ETF1 x) = getParNumber x - isLinear (ETF1 x) = isLinear x - isNormalized (ETF1 x) = isNormalized x - setNumber (ETF1 x) = setNumber x - setParameter (ETF1 x) = setParameter x - setParameters (ETF1 x) = setParameters x - setParName (ETF1 x) = setParName x - setParNames (ETF1 x) = setParNames x - update (ETF1 x) = update x -instance ITAttLine (Exist TF1) where - getLineColor (ETF1 x) = getLineColor x - getLineStyle (ETF1 x) = getLineStyle x - getLineWidth (ETF1 x) = getLineWidth x - resetAttLine (ETF1 x) = resetAttLine x - setLineAttributes (ETF1 x) = setLineAttributes x - setLineColor (ETF1 x) = setLineColor x - setLineStyle (ETF1 x) = setLineStyle x - setLineWidth (ETF1 x) = setLineWidth x -instance ITAttFill (Exist TF1) where - setFillColor (ETF1 x) = setFillColor x - setFillStyle (ETF1 x) = setFillStyle x -instance ITAttMarker (Exist TF1) where - getMarkerColor (ETF1 x) = getMarkerColor x - getMarkerStyle (ETF1 x) = getMarkerStyle x - getMarkerSize (ETF1 x) = getMarkerSize x - resetAttMarker (ETF1 x) = resetAttMarker x - setMarkerAttributes (ETF1 x) = setMarkerAttributes x - setMarkerColor (ETF1 x) = setMarkerColor x - setMarkerStyle (ETF1 x) = setMarkerStyle x - setMarkerSize (ETF1 x) = setMarkerSize x -instance ITNamed (Exist TF1) where - setName (ETF1 x) = setName x - setNameTitle (ETF1 x) = setNameTitle x - setTitle (ETF1 x) = setTitle x -instance ITObject (Exist TF1) where - draw (ETF1 x) = draw x - findObject (ETF1 x) = findObject x - getName (ETF1 x) = getName x - isA (ETF1 x) = isA x - paint (ETF1 x) = paint x - printObj (ETF1 x) = printObj x - saveAs (ETF1 x) = saveAs x - write (ETF1 x) = write x -instance IDeletable (Exist TF1) where - delete (ETF1 x) = delete x +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 :: CString -> CString -> CDouble -> CDouble -> IO TF1 +newTF1 :: + (Castable c1 CString, Castable c0 CString) => + c0 -> c1 -> CDouble -> CDouble -> IO TF1 newTF1 = xform3 c_tf1_newtf1 tF1GetChisquare :: TF1 -> IO CDouble @@ -302,13 +152,10 @@ tF1RejectedPoint :: IO CInt tF1RejectedPoint = xformnull c_tf1_tf1rejectedpoint -tF1SetCurrent :: TF1 -> IO () +tF1SetCurrent :: (ITF1 c0, FPtr c0) => c0 -> IO () tF1SetCurrent = xform0 c_tf1_tf1setcurrent -tF1CalcGaussLegendreSamplingPoints :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO () -tF1CalcGaussLegendreSamplingPoints = xform3 c_tf1_tf1calcgausslegendresamplingpoints - -instance FPtr (Exist TF1) where - type Raw (Exist TF1) = RawTF1 - get_fptr (ETF1 obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETF1 (cast_fptr_to_obj (fptr :: ForeignPtr RawTF1) :: TF1) +tF1CalcGaussLegendreSamplingPoints :: + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO () +tF1CalcGaussLegendreSamplingPoints + = xform3 c_tf1_tf1calcgausslegendresamplingpoints diff --git a/src/HROOT/Hist/TF1/Interface.hs b/src/HROOT/Hist/TF1/Interface.hs --- a/src/HROOT/Hist/TF1/Interface.hs +++ b/src/HROOT/Hist/TF1/Interface.hs @@ -1,140 +1,154 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TF1.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TF1.RawType import HROOT.Core.TObject.RawType import HROOT.Hist.TH1.RawType import HROOT.Hist.TAxis.RawType -import HROOT.Hist.TFormula.Interface import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.Interface import HROOT.Core.TAttMarker.Interface import HROOT.Core.TObject.Interface ----- ============ ---- - - -class (ITFormula a,ITAttLine a,ITAttFill a,ITAttMarker a) => ITF1 a where - - derivative :: a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - derivative2 :: a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - derivative3 :: a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - drawCopyTF1 :: a -> CString -> IO a - - drawDerivative :: a -> CString -> IO TObject - - drawIntegral :: a -> CString -> IO TObject - - drawF1 :: a -> CString -> CDouble -> CDouble -> CString -> IO () - - fixParameter :: a -> CInt -> CDouble -> IO () - - getMaximumTF1 :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble - - getMinimumTF1 :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble - - getMaximumX :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble - - getMinimumX :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble - - getNDF :: a -> IO CInt - - getNpx :: a -> IO CInt - - getNumberFreeParameters :: a -> IO CInt - - getNumberFitPoints :: a -> IO CInt - - getParError :: a -> CInt -> IO CDouble - - getProb :: a -> IO CDouble - - getQuantilesTF1 :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt - - getRandomTF1 :: a -> CDouble -> CDouble -> IO CDouble - - getSave :: a -> (Ptr CDouble) -> IO CDouble - - getX :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble - - getXmin :: a -> IO CDouble - - getXmax :: a -> IO CDouble - - gradientPar :: a -> CInt -> (Ptr CDouble) -> CDouble -> IO CDouble - - initArgs :: a -> (Ptr CDouble) -> (Ptr CDouble) -> IO () - - integralTF1 :: a -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - integralError :: a -> CDouble -> CDouble -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO CDouble - - integralFast :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - isInside :: a -> (Ptr CDouble) -> IO CInt - - releaseParameter :: a -> CInt -> IO () - - setChisquare :: a -> CDouble -> IO () - - setMaximumTF1 :: a -> CDouble -> IO () - - setMinimumTF1 :: a -> CDouble -> IO () - - setNDF :: a -> CInt -> IO () - - setNumberFitPoints :: a -> CInt -> IO () - - setNpx :: a -> CInt -> IO () - - setParError :: a -> CInt -> CDouble -> IO () - - setParErrors :: a -> (Ptr CDouble) -> IO () - - setParLimits :: a -> CInt -> CDouble -> CDouble -> IO () - - setParent :: (ITObject c0, FPtr c0) => a -> c0 -> IO () - - setRange1 :: a -> CDouble -> CDouble -> IO () - - setRange2 :: a -> CDouble -> CDouble -> CDouble -> CDouble -> IO () - - setRange3 :: a -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO () - - setSavedPoint :: a -> CInt -> CDouble -> IO () - - moment :: a -> CDouble -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - centralMoment :: a -> CDouble -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - mean :: a -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - - variance :: a -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble - -instance Existable TF1 where - data Exist TF1 = forall a. (FPtr a, ITF1 a) => ETF1 a +class (ITAttLine a, ITAttFill a, ITAttMarker a) => ITF1 a where + derivative :: + a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + derivative2 :: + a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + derivative3 :: + a -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + drawCopyTF1 :: Castable c0 CString => a -> c0 -> IO a + + drawDerivative :: Castable c0 CString => a -> c0 -> IO TObject + + drawIntegral :: Castable c0 CString => a -> c0 -> IO TObject + + fixParameter :: a -> CInt -> CDouble -> IO () + + getMaximumTF1 :: + a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble + + getMinimumTF1 :: + a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble + + getMaximumX :: + a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble + + getMinimumX :: + a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble + + getNDF :: a -> IO CInt + + getNpx :: a -> IO CInt + + getNumberFreeParameters :: a -> IO CInt + + getNumberFitPoints :: a -> IO CInt + + getParError :: a -> CInt -> IO CDouble + + getProb :: a -> IO CDouble + + getQuantilesTF1 :: + a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt + + getRandomTF1 :: a -> CDouble -> CDouble -> IO CDouble + + getSave :: a -> (Ptr CDouble) -> IO CDouble + + getX :: + a -> CDouble -> CDouble -> CDouble -> CDouble -> CInt -> IO CDouble + + getXmin :: a -> IO CDouble + + getXmax :: a -> IO CDouble + + gradientPar :: a -> CInt -> (Ptr CDouble) -> CDouble -> IO CDouble + + initArgs :: a -> (Ptr CDouble) -> (Ptr CDouble) -> IO () + + integralTF1 :: a -> CDouble -> CDouble -> CDouble -> IO CDouble + + integralError :: + a -> + CDouble -> + CDouble -> (Ptr CDouble) -> (Ptr CDouble) -> CDouble -> IO CDouble + + integralFast :: + a -> + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + isInside :: a -> (Ptr CDouble) -> IO CInt + + releaseParameter :: a -> CInt -> IO () + + setChisquare :: a -> CDouble -> IO () + + setMaximumTF1 :: a -> CDouble -> IO () + + setMinimumTF1 :: a -> CDouble -> IO () + + setNDF :: a -> CInt -> IO () + + setNumberFitPoints :: a -> CInt -> IO () + + setNpx :: a -> CInt -> IO () + + setParError :: a -> CInt -> CDouble -> IO () + + setParErrors :: a -> (Ptr CDouble) -> IO () + + setParLimits :: a -> CInt -> CDouble -> CDouble -> IO () + + setParent :: (ITObject c0, FPtr c0) => a -> c0 -> IO () + + setRange1 :: a -> CDouble -> CDouble -> IO () + + setRange2 :: a -> CDouble -> CDouble -> CDouble -> CDouble -> IO () + + setRange3 :: + a -> + CDouble -> + CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO () + + setSavedPoint :: a -> CInt -> CDouble -> IO () + + moment :: + a -> + CDouble -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + centralMoment :: + a -> + CDouble -> + CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + mean :: + a -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble + + variance :: + a -> CDouble -> CDouble -> (Ptr CDouble) -> CDouble -> IO CDouble -upcastTF1 :: (FPtr a, ITF1 a) => a -> TF1 -upcastTF1 h = let fh = get_fptr h - fh2 :: ForeignPtr RawTF1 = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTF1 :: forall a . (FPtr a, ITF1 a) => a -> TF1 +upcastTF1 h + = let fh = get_fptr h + fh2 :: Ptr RawTF1 = castPtr fh + in cast_fptr_to_obj fh2 -downcastTF1 :: (FPtr a, ITF1 a) => TF1 -> a -downcastTF1 h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTF1 :: forall a . (FPtr a, ITF1 a) => TF1 -> a +downcastTF1 h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TF1/RawType.hs b/src/HROOT/Hist/TF1/RawType.hs --- a/src/HROOT/Hist/TF1/RawType.hs +++ b/src/HROOT/Hist/TF1/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TF1.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTF1 -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TF1 = TF1 (Ptr RawTF1) + deriving (Eq, Ord, Show) -data RawTF1 -newtype TF1 = TF1 (ForeignPtr RawTF1) deriving (Eq, Ord, Show) instance FPtr TF1 where - type Raw TF1 = RawTF1 - get_fptr (TF1 fptr) = fptr - cast_fptr_to_obj = TF1 + type Raw TF1 = RawTF1 + get_fptr (TF1 ptr) = ptr + cast_fptr_to_obj = TF1 diff --git a/src/HROOT/Hist/TFitResult.hs b/src/HROOT/Hist/TFitResult.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult.hs @@ -0,0 +1,6 @@ +module HROOT.Hist.TFitResult + (TFitResult(..), ITFitResult, upcastTFitResult, downcastTFitResult) + where +import HROOT.Hist.TFitResult.RawType +import HROOT.Hist.TFitResult.Interface +import HROOT.Hist.TFitResult.Implementation diff --git a/src/HROOT/Hist/TFitResult/Cast.hs b/src/HROOT/Hist/TFitResult/Cast.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult/Cast.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} +module HROOT.Hist.TFitResult.Cast where +import Foreign.Ptr +import FFICXX.Runtime.Cast +import System.IO.Unsafe +import HROOT.Hist.TFitResult.RawType +import HROOT.Hist.TFitResult.Interface + +instance (ITFitResult a, FPtr a) => Castable a (Ptr RawTFitResult) + where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) + +instance Castable TFitResult (Ptr RawTFitResult) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TFitResult/FFI.hsc b/src/HROOT/Hist/TFitResult/FFI.hsc new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult/FFI.hsc @@ -0,0 +1,53 @@ +{-# LANGUAGE ForeignFunctionInterface #-} +module HROOT.Hist.TFitResult.FFI where +import Foreign.C +import Foreign.Ptr +import HROOT.Hist.TFitResult.RawType +import HROOT.Core.TObject.RawType +import HROOT.Core.TClass.RawType + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_SetName" c_tfitresult_setname :: + Ptr RawTFitResult -> CString -> IO () + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_SetNameTitle" + c_tfitresult_setnametitle :: + Ptr RawTFitResult -> CString -> CString -> IO () + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_SetTitle" c_tfitresult_settitle + :: Ptr RawTFitResult -> CString -> IO () + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_Draw" + c_tfitresult_draw :: Ptr RawTFitResult -> CString -> IO () + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_FindObject" + c_tfitresult_findobject :: + Ptr RawTFitResult -> CString -> IO (Ptr RawTObject) + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_GetName" c_tfitresult_getname :: + Ptr RawTFitResult -> IO CString + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_IsA" + c_tfitresult_isa :: Ptr RawTFitResult -> IO (Ptr RawTClass) + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_Paint" + c_tfitresult_paint :: Ptr RawTFitResult -> CString -> IO () + +foreign import ccall safe + "HROOTHistTFitResult.h TFitResult_printObj" c_tfitresult_printobj + :: Ptr RawTFitResult -> CString -> IO () + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_SaveAs" + c_tfitresult_saveas :: + Ptr RawTFitResult -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_Write" + c_tfitresult_write :: + Ptr RawTFitResult -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTFitResult.h TFitResult_delete" + c_tfitresult_delete :: Ptr RawTFitResult -> IO () diff --git a/src/HROOT/Hist/TFitResult/Implementation.hs b/src/HROOT/Hist/TFitResult/Implementation.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult/Implementation.hs @@ -0,0 +1,46 @@ +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} +module HROOT.Hist.TFitResult.Implementation where +import FFICXX.Runtime.Cast +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe +import HROOT.Hist.TFitResult.RawType +import HROOT.Hist.TFitResult.FFI +import HROOT.Hist.TFitResult.Interface +import HROOT.Hist.TFitResult.Cast +import HROOT.Core.TClass.RawType +import HROOT.Core.TClass.Cast +import HROOT.Core.TClass.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 HROOT.Core.Deletable.RawType +import HROOT.Core.Deletable.Cast +import HROOT.Core.Deletable.Interface + +instance ITFitResult TFitResult + +instance ITNamed TFitResult where + setName = xform1 c_tfitresult_setname + setNameTitle = xform2 c_tfitresult_setnametitle + setTitle = xform1 c_tfitresult_settitle + +instance ITObject TFitResult where + draw = xform1 c_tfitresult_draw + findObject = xform1 c_tfitresult_findobject + getName = xform0 c_tfitresult_getname + isA = xform0 c_tfitresult_isa + paint = xform1 c_tfitresult_paint + printObj = xform1 c_tfitresult_printobj + saveAs = xform2 c_tfitresult_saveas + write = xform3 c_tfitresult_write + +instance IDeletable TFitResult where + delete = xform0 c_tfitresult_delete diff --git a/src/HROOT/Hist/TFitResult/Interface.hs b/src/HROOT/Hist/TFitResult/Interface.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult/Interface.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} +module HROOT.Hist.TFitResult.Interface where +import Data.Word +import Foreign.C +import Foreign.Ptr +import FFICXX.Runtime.Cast +import HROOT.Hist.TFitResult.RawType +import HROOT.Core.TNamed.Interface + +class ITNamed a => ITFitResult a + +upcastTFitResult :: + forall a . (FPtr a, ITFitResult a) => a -> TFitResult +upcastTFitResult h + = let fh = get_fptr h + fh2 :: Ptr RawTFitResult = castPtr fh + in cast_fptr_to_obj fh2 + +downcastTFitResult :: + forall a . (FPtr a, ITFitResult a) => TFitResult -> a +downcastTFitResult h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TFitResult/RawType.hs b/src/HROOT/Hist/TFitResult/RawType.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResult/RawType.hs @@ -0,0 +1,16 @@ +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} +module HROOT.Hist.TFitResult.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast + +data RawTFitResult + +newtype TFitResult = TFitResult (Ptr RawTFitResult) + deriving (Eq, Ord, Show) + +instance FPtr TFitResult where + type Raw TFitResult = RawTFitResult + get_fptr (TFitResult ptr) = ptr + cast_fptr_to_obj = TFitResult diff --git a/src/HROOT/Hist/TFitResultPtr.hs b/src/HROOT/Hist/TFitResultPtr.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr.hs @@ -0,0 +1,7 @@ +module HROOT.Hist.TFitResultPtr + (TFitResultPtr(..), ITFitResultPtr, upcastTFitResultPtr, + downcastTFitResultPtr, tFitResultPtrGet) + where +import HROOT.Hist.TFitResultPtr.RawType +import HROOT.Hist.TFitResultPtr.Interface +import HROOT.Hist.TFitResultPtr.Implementation diff --git a/src/HROOT/Hist/TFitResultPtr/Cast.hs b/src/HROOT/Hist/TFitResultPtr/Cast.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr/Cast.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} +module HROOT.Hist.TFitResultPtr.Cast where +import Foreign.Ptr +import FFICXX.Runtime.Cast +import System.IO.Unsafe +import HROOT.Hist.TFitResultPtr.RawType +import HROOT.Hist.TFitResultPtr.Interface + +instance (ITFitResultPtr a, FPtr a) => Castable a + (Ptr RawTFitResultPtr) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) + +instance Castable TFitResultPtr (Ptr RawTFitResultPtr) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TFitResultPtr/FFI.hsc b/src/HROOT/Hist/TFitResultPtr/FFI.hsc new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr/FFI.hsc @@ -0,0 +1,11 @@ +{-# LANGUAGE ForeignFunctionInterface #-} +module HROOT.Hist.TFitResultPtr.FFI where +import Foreign.C +import Foreign.Ptr +import HROOT.Hist.TFitResultPtr.RawType +import HROOT.Hist.TFitResult.RawType + +foreign import ccall safe + "HROOTHistTFitResultPtr.h TFitResultPtr_tFitResultPtrGet" + c_tfitresultptr_tfitresultptrget :: + Ptr RawTFitResultPtr -> IO (Ptr RawTFitResult) diff --git a/src/HROOT/Hist/TFitResultPtr/Implementation.hs b/src/HROOT/Hist/TFitResultPtr/Implementation.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr/Implementation.hs @@ -0,0 +1,22 @@ +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} +module HROOT.Hist.TFitResultPtr.Implementation where +import FFICXX.Runtime.Cast +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe +import HROOT.Hist.TFitResultPtr.RawType +import HROOT.Hist.TFitResultPtr.FFI +import HROOT.Hist.TFitResultPtr.Interface +import HROOT.Hist.TFitResultPtr.Cast +import HROOT.Hist.TFitResult.RawType +import HROOT.Hist.TFitResult.Cast +import HROOT.Hist.TFitResult.Interface + +instance ITFitResultPtr TFitResultPtr + +tFitResultPtrGet :: TFitResultPtr -> IO TFitResult +tFitResultPtrGet = xform0 c_tfitresultptr_tfitresultptrget diff --git a/src/HROOT/Hist/TFitResultPtr/Interface.hs b/src/HROOT/Hist/TFitResultPtr/Interface.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr/Interface.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} +module HROOT.Hist.TFitResultPtr.Interface where +import Data.Word +import Foreign.C +import Foreign.Ptr +import FFICXX.Runtime.Cast +import HROOT.Hist.TFitResultPtr.RawType +import HROOT.Hist.TFitResult.RawType + +class ITFitResultPtr a + +upcastTFitResultPtr :: + forall a . (FPtr a, ITFitResultPtr a) => a -> TFitResultPtr +upcastTFitResultPtr h + = let fh = get_fptr h + fh2 :: Ptr RawTFitResultPtr = castPtr fh + in cast_fptr_to_obj fh2 + +downcastTFitResultPtr :: + forall a . (FPtr a, ITFitResultPtr a) => TFitResultPtr -> a +downcastTFitResultPtr h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TFitResultPtr/RawType.hs b/src/HROOT/Hist/TFitResultPtr/RawType.hs new file mode 100644 --- /dev/null +++ b/src/HROOT/Hist/TFitResultPtr/RawType.hs @@ -0,0 +1,16 @@ +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} +module HROOT.Hist.TFitResultPtr.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast + +data RawTFitResultPtr + +newtype TFitResultPtr = TFitResultPtr (Ptr RawTFitResultPtr) + deriving (Eq, Ord, Show) + +instance FPtr TFitResultPtr where + type Raw TFitResultPtr = RawTFitResultPtr + get_fptr (TFitResultPtr ptr) = ptr + cast_fptr_to_obj = TFitResultPtr diff --git a/src/HROOT/Hist/TFormula.hs b/src/HROOT/Hist/TFormula.hs deleted file mode 100644 --- a/src/HROOT/Hist/TFormula.hs +++ /dev/null @@ -1,17 +0,0 @@ -module HROOT.Hist.TFormula - ( - TFormula(..) - , ITFormula(..) - , upcastTFormula - , downcastTFormula - , newTFormula - , tFormulaOptimize - , tFormulaGetParameter - - ) where - -import HROOT.Hist.TFormula.RawType -import HROOT.Hist.TFormula.Interface -import HROOT.Hist.TFormula.Implementation - - diff --git a/src/HROOT/Hist/TFormula/Cast.hs b/src/HROOT/Hist/TFormula/Cast.hs deleted file mode 100644 --- a/src/HROOT/Hist/TFormula/Cast.hs +++ /dev/null @@ -1,22 +0,0 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - -module HROOT.Hist.TFormula.Cast where - - -import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe -import FFICXX.Runtime.Cast -import System.IO.Unsafe - -import HROOT.Hist.TFormula.RawType -import HROOT.Hist.TFormula.Interface - -instance (ITFormula a, FPtr a) => Castable a (Ptr RawTFormula) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ - -instance Castable TFormula (Ptr RawTFormula) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ diff --git a/src/HROOT/Hist/TFormula/FFI.hsc b/src/HROOT/Hist/TFormula/FFI.hsc deleted file mode 100644 --- a/src/HROOT/Hist/TFormula/FFI.hsc +++ /dev/null @@ -1,119 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - -module HROOT.Hist.TFormula.FFI where - - -import Foreign.C -import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - -import HROOT.Hist.TFormula.RawType -import HROOT.Core.TObject.RawType -import HROOT.Core.TClass.RawType - -#include "HROOTHistTFormula.h" - -foreign import ccall "HROOTHistTFormula.h TFormula_SetName" c_tformula_setname - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetNameTitle" c_tformula_setnametitle - :: (Ptr RawTFormula) -> CString -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetTitle" c_tformula_settitle - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_Draw" c_tformula_draw - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_FindObject" c_tformula_findobject - :: (Ptr RawTFormula) -> CString -> IO (Ptr RawTObject) - -foreign import ccall "HROOTHistTFormula.h TFormula_GetName" c_tformula_getname - :: (Ptr RawTFormula) -> IO CString - -foreign import ccall "HROOTHistTFormula.h TFormula_IsA" c_tformula_isa - :: (Ptr RawTFormula) -> IO (Ptr RawTClass) - -foreign import ccall "HROOTHistTFormula.h TFormula_Paint" c_tformula_paint - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_printObj" c_tformula_printobj - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SaveAs" c_tformula_saveas - :: (Ptr RawTFormula) -> CString -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_Write" c_tformula_write - :: (Ptr RawTFormula) -> CString -> CInt -> CInt -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_delete" c_tformula_delete - :: (Ptr RawTFormula) -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_newTFormula" c_tformula_newtformula - :: CString -> CString -> IO (Ptr RawTFormula) - -foreign import ccall "HROOTHistTFormula.h TFormula_tFormulaOptimize" c_tformula_tformulaoptimize - :: (Ptr RawTFormula) -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_Compile" c_tformula_compile - :: (Ptr RawTFormula) -> CString -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_Clear" c_tformula_clear - :: (Ptr RawTFormula) -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_DefinedValue" c_tformula_definedvalue - :: (Ptr RawTFormula) -> CInt -> IO CDouble - -foreign import ccall "HROOTHistTFormula.h TFormula_Eval" c_tformula_eval - :: (Ptr RawTFormula) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CDouble - -foreign import ccall "HROOTHistTFormula.h TFormula_EvalParOld" c_tformula_evalparold - :: (Ptr RawTFormula) -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - -foreign import ccall "HROOTHistTFormula.h TFormula_EvalPar" c_tformula_evalpar - :: (Ptr RawTFormula) -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - -foreign import ccall "HROOTHistTFormula.h TFormula_GetNdim" c_tformula_getndim - :: (Ptr RawTFormula) -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_GetNpar" c_tformula_getnpar - :: (Ptr RawTFormula) -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_GetNumber" c_tformula_getnumber - :: (Ptr RawTFormula) -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_tFormulaGetParameter" c_tformula_tformulagetparameter - :: (Ptr RawTFormula) -> CString -> IO CDouble - -foreign import ccall "HROOTHistTFormula.h TFormula_GetParNumber" c_tformula_getparnumber - :: (Ptr RawTFormula) -> CString -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_IsLinear" c_tformula_islinear - :: (Ptr RawTFormula) -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_IsNormalized" c_tformula_isnormalized - :: (Ptr RawTFormula) -> IO CInt - -foreign import ccall "HROOTHistTFormula.h TFormula_SetNumber" c_tformula_setnumber - :: (Ptr RawTFormula) -> CInt -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetParameter" c_tformula_setparameter - :: (Ptr RawTFormula) -> CString -> CDouble -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetParameters" c_tformula_setparameters - :: (Ptr RawTFormula) -> (Ptr CDouble) -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetParName" c_tformula_setparname - :: (Ptr RawTFormula) -> CInt -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_SetParNames" c_tformula_setparnames - :: (Ptr RawTFormula) -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> IO () - -foreign import ccall "HROOTHistTFormula.h TFormula_Update" c_tformula_update - :: (Ptr RawTFormula) -> IO () - diff --git a/src/HROOT/Hist/TFormula/Implementation.hs b/src/HROOT/Hist/TFormula/Implementation.hs deleted file mode 100644 --- a/src/HROOT/Hist/TFormula/Implementation.hs +++ /dev/null @@ -1,120 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - -module HROOT.Hist.TFormula.Implementation where - - -import FFICXX.Runtime.Cast - -import HROOT.Hist.TFormula.RawType -import HROOT.Hist.TFormula.FFI -import HROOT.Hist.TFormula.Interface -import HROOT.Hist.TFormula.Cast -import HROOT.Core.TClass.RawType -import HROOT.Core.TClass.Cast -import HROOT.Core.TClass.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 HROOT.Core.Deletable.RawType -import HROOT.Core.Deletable.Cast -import HROOT.Core.Deletable.Interface - -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - - -instance ITFormula TFormula where - compile = xform1 c_tformula_compile - clear = xform1 c_tformula_clear - definedValue = xform1 c_tformula_definedvalue - eval = xform4 c_tformula_eval - evalParOld = xform2 c_tformula_evalparold - evalPar = xform2 c_tformula_evalpar - getNdim = xform0 c_tformula_getndim - getNpar = xform0 c_tformula_getnpar - getNumber = xform0 c_tformula_getnumber - getParNumber = xform1 c_tformula_getparnumber - isLinear = xform0 c_tformula_islinear - isNormalized = xform0 c_tformula_isnormalized - setNumber = xform1 c_tformula_setnumber - setParameter = xform2 c_tformula_setparameter - setParameters = xform1 c_tformula_setparameters - setParName = xform2 c_tformula_setparname - setParNames = xform11 c_tformula_setparnames - update = xform0 c_tformula_update -instance ITNamed TFormula where - setName = xform1 c_tformula_setname - setNameTitle = xform2 c_tformula_setnametitle - setTitle = xform1 c_tformula_settitle -instance ITObject TFormula where - draw = xform1 c_tformula_draw - findObject = xform1 c_tformula_findobject - getName = xform0 c_tformula_getname - isA = xform0 c_tformula_isa - paint = xform1 c_tformula_paint - printObj = xform1 c_tformula_printobj - saveAs = xform2 c_tformula_saveas - write = xform3 c_tformula_write -instance IDeletable TFormula where - delete = xform0 c_tformula_delete - -instance ITFormula (Exist TFormula) where - compile (ETFormula x) = compile x - clear (ETFormula x) = clear x - definedValue (ETFormula x) = definedValue x - eval (ETFormula x) = eval x - evalParOld (ETFormula x) = evalParOld x - evalPar (ETFormula x) = evalPar x - getNdim (ETFormula x) = getNdim x - getNpar (ETFormula x) = getNpar x - getNumber (ETFormula x) = getNumber x - getParNumber (ETFormula x) = getParNumber x - isLinear (ETFormula x) = isLinear x - isNormalized (ETFormula x) = isNormalized x - setNumber (ETFormula x) = setNumber x - setParameter (ETFormula x) = setParameter x - setParameters (ETFormula x) = setParameters x - setParName (ETFormula x) = setParName x - setParNames (ETFormula x) = setParNames x - update (ETFormula x) = update x -instance ITNamed (Exist TFormula) where - setName (ETFormula x) = setName x - setNameTitle (ETFormula x) = setNameTitle x - setTitle (ETFormula x) = setTitle x -instance ITObject (Exist TFormula) where - draw (ETFormula x) = draw x - findObject (ETFormula x) = findObject x - getName (ETFormula x) = getName x - isA (ETFormula x) = isA x - paint (ETFormula x) = paint x - printObj (ETFormula x) = printObj x - saveAs (ETFormula x) = saveAs x - write (ETFormula x) = write x -instance IDeletable (Exist TFormula) where - delete (ETFormula x) = delete x - - -newTFormula :: CString -> CString -> IO TFormula -newTFormula = xform1 c_tformula_newtformula - -tFormulaOptimize :: TFormula -> IO () -tFormulaOptimize = xform0 c_tformula_tformulaoptimize - -tFormulaGetParameter :: TFormula -> CString -> IO CDouble -tFormulaGetParameter = xform1 c_tformula_tformulagetparameter - - - -instance FPtr (Exist TFormula) where - type Raw (Exist TFormula) = RawTFormula - get_fptr (ETFormula obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETFormula (cast_fptr_to_obj (fptr :: ForeignPtr RawTFormula) :: TFormula) diff --git a/src/HROOT/Hist/TFormula/Interface.hs b/src/HROOT/Hist/TFormula/Interface.hs deleted file mode 100644 --- a/src/HROOT/Hist/TFormula/Interface.hs +++ /dev/null @@ -1,72 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - -module HROOT.Hist.TFormula.Interface where - - -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast - -import HROOT.Hist.TFormula.RawType - -import HROOT.Core.TNamed.Interface ----- ============ ---- - - - -class (ITNamed a) => ITFormula a where - - compile :: a -> CString -> IO CInt - - clear :: a -> CString -> IO () - - definedValue :: a -> CInt -> IO CDouble - - eval :: a -> CDouble -> CDouble -> CDouble -> CDouble -> IO CDouble - - evalParOld :: a -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - - evalPar :: a -> (Ptr CDouble) -> (Ptr CDouble) -> IO CDouble - - getNdim :: a -> IO CInt - - getNpar :: a -> IO CInt - - getNumber :: a -> IO CInt - - getParNumber :: a -> CString -> IO CInt - - isLinear :: a -> IO CInt - - isNormalized :: a -> IO CInt - - setNumber :: a -> CInt -> IO () - - setParameter :: a -> CString -> CDouble -> IO () - - setParameters :: a -> (Ptr CDouble) -> IO () - - setParName :: a -> CInt -> CString -> IO () - - setParNames :: a -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> CString -> IO () - - update :: a -> IO () - -instance Existable TFormula where - data Exist TFormula = forall a. (FPtr a, ITFormula a) => ETFormula a - -upcastTFormula :: (FPtr a, ITFormula a) => a -> TFormula -upcastTFormula h = let fh = get_fptr h - fh2 :: ForeignPtr RawTFormula = castForeignPtr fh - in cast_fptr_to_obj fh2 - -downcastTFormula :: (FPtr a, ITFormula a) => TFormula -> a -downcastTFormula h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TFormula/RawType.hs b/src/HROOT/Hist/TFormula/RawType.hs deleted file mode 100644 --- a/src/HROOT/Hist/TFormula/RawType.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - -module HROOT.Hist.TFormula.RawType where - - -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast - -data RawTFormula -newtype TFormula = TFormula (ForeignPtr RawTFormula) deriving (Eq, Ord, Show) -instance FPtr TFormula where - type Raw TFormula = RawTFormula - get_fptr (TFormula fptr) = fptr - cast_fptr_to_obj = TFormula diff --git a/src/HROOT/Hist/TGraph.hs b/src/HROOT/Hist/TGraph.hs --- a/src/HROOT/Hist/TGraph.hs +++ b/src/HROOT/Hist/TGraph.hs @@ -1,26 +1,10 @@ module HROOT.Hist.TGraph - ( - TGraph(..) - , ITGraph(..) - , upcastTGraph - , downcastTGraph - , newTGraph - , tGraphGetEditable - , tGraphGetFunction - , tGraphGetHistogram - , tGraphGetMaxSize - , tGraphGetN - , tGraphGetMaximum - , tGraphGetMinimum - , tGraphGetXaxis - , tGraphGetYaxis - , tGraphPaintGraph - , tGraphPaintGrapHist - - ) where - + (TGraph(..), ITGraph(..), upcastTGraph, downcastTGraph, newTGraph, + tGraphGetEditable, tGraphGetFunction, tGraphGetHistogram, + tGraphGetMaxSize, tGraphGetN, tGraphGetMaximum, tGraphGetMinimum, + tGraphGetXaxis, tGraphGetYaxis, tGraphPaintGraph, + tGraphPaintGrapHist) + where import HROOT.Hist.TGraph.RawType import HROOT.Hist.TGraph.Interface import HROOT.Hist.TGraph.Implementation - - diff --git a/src/HROOT/Hist/TGraph/Cast.hs b/src/HROOT/Hist/TGraph/Cast.hs --- a/src/HROOT/Hist/TGraph/Cast.hs +++ b/src/HROOT/Hist/TGraph/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TGraph.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TGraph.RawType import HROOT.Hist.TGraph.Interface instance (ITGraph a, FPtr a) => Castable a (Ptr RawTGraph) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TGraph (Ptr RawTGraph) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TGraph/FFI.hsc b/src/HROOT/Hist/TGraph/FFI.hsc --- a/src/HROOT/Hist/TGraph/FFI.hsc +++ b/src/HROOT/Hist/TGraph/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TGraph.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TGraph.RawType import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType @@ -19,227 +9,256 @@ import HROOT.Hist.TH1F.RawType import HROOT.Hist.TAxis.RawType -#include "HROOTHistTGraph.h" - -foreign import ccall "HROOTHistTGraph.h TGraph_SetName" c_tgraph_setname - :: (Ptr RawTGraph) -> CString -> IO () - -foreign import ccall "HROOTHistTGraph.h TGraph_SetNameTitle" c_tgraph_setnametitle - :: (Ptr RawTGraph) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetName" + c_tgraph_setname :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetTitle" c_tgraph_settitle - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetNameTitle" + c_tgraph_setnametitle :: + Ptr RawTGraph -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_GetLineColor" c_tgraph_getlinecolor - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetTitle" + c_tgraph_settitle :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_GetLineStyle" c_tgraph_getlinestyle - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetLineColor" + c_tgraph_getlinecolor :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_GetLineWidth" c_tgraph_getlinewidth - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetLineStyle" + c_tgraph_getlinestyle :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_ResetAttLine" c_tgraph_resetattline - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetLineWidth" + c_tgraph_getlinewidth :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_SetLineAttributes" c_tgraph_setlineattributes - :: (Ptr RawTGraph) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_ResetAttLine" + c_tgraph_resetattline :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetLineColor" c_tgraph_setlinecolor - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_SetLineAttributes" + c_tgraph_setlineattributes :: Ptr RawTGraph -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetLineStyle" c_tgraph_setlinestyle - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetLineColor" + c_tgraph_setlinecolor :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetLineWidth" c_tgraph_setlinewidth - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetLineStyle" + c_tgraph_setlinestyle :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetFillColor" c_tgraph_setfillcolor - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetLineWidth" + c_tgraph_setlinewidth :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetFillStyle" c_tgraph_setfillstyle - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetFillColor" + c_tgraph_setfillcolor :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_GetMarkerColor" c_tgraph_getmarkercolor - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetFillStyle" + c_tgraph_setfillstyle :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_GetMarkerStyle" c_tgraph_getmarkerstyle - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetMarkerColor" + c_tgraph_getmarkercolor :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_GetMarkerSize" c_tgraph_getmarkersize - :: (Ptr RawTGraph) -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetMarkerStyle" + c_tgraph_getmarkerstyle :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_ResetAttMarker" c_tgraph_resetattmarker - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetMarkerSize" + c_tgraph_getmarkersize :: Ptr RawTGraph -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_SetMarkerAttributes" c_tgraph_setmarkerattributes - :: (Ptr RawTGraph) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_ResetAttMarker" + c_tgraph_resetattmarker :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetMarkerColor" c_tgraph_setmarkercolor - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_SetMarkerAttributes" + c_tgraph_setmarkerattributes :: Ptr RawTGraph -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetMarkerStyle" c_tgraph_setmarkerstyle - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetMarkerColor" + c_tgraph_setmarkercolor :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetMarkerSize" c_tgraph_setmarkersize - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetMarkerStyle" + c_tgraph_setmarkerstyle :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_Draw" c_tgraph_draw - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetMarkerSize" + c_tgraph_setmarkersize :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_FindObject" c_tgraph_findobject - :: (Ptr RawTGraph) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTGraph.h TGraph_Draw" + c_tgraph_draw :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_GetName" c_tgraph_getname - :: (Ptr RawTGraph) -> IO CString +foreign import ccall safe "HROOTHistTGraph.h TGraph_FindObject" + c_tgraph_findobject :: + Ptr RawTGraph -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTGraph.h TGraph_IsA" c_tgraph_isa - :: (Ptr RawTGraph) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetName" + c_tgraph_getname :: Ptr RawTGraph -> IO CString -foreign import ccall "HROOTHistTGraph.h TGraph_Paint" c_tgraph_paint - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_IsA" + c_tgraph_isa :: Ptr RawTGraph -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTGraph.h TGraph_printObj" c_tgraph_printobj - :: (Ptr RawTGraph) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_Paint" + c_tgraph_paint :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SaveAs" c_tgraph_saveas - :: (Ptr RawTGraph) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_printObj" + c_tgraph_printobj :: Ptr RawTGraph -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_Write" c_tgraph_write - :: (Ptr RawTGraph) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_SaveAs" + c_tgraph_saveas :: Ptr RawTGraph -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_delete" c_tgraph_delete - :: (Ptr RawTGraph) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_Write" + c_tgraph_write :: + Ptr RawTGraph -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_newTGraph" c_tgraph_newtgraph - :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraph) +foreign import ccall safe "HROOTHistTGraph.h TGraph_delete" + c_tgraph_delete :: Ptr RawTGraph -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_Apply" c_tgraph_apply - :: (Ptr RawTGraph) -> (Ptr RawTF1) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_newTGraph" + c_tgraph_newtgraph :: + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraph) -foreign import ccall "HROOTHistTGraph.h TGraph_Chisquare" c_tgraph_chisquare - :: (Ptr RawTGraph) -> (Ptr RawTF1) -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_Apply" + c_tgraph_apply :: Ptr RawTGraph -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_DrawGraph" c_tgraph_drawgraph - :: (Ptr RawTGraph) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_Chisquare" + c_tgraph_chisquare :: Ptr RawTGraph -> Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_drawPanelTGraph" c_tgraph_drawpaneltgraph - :: (Ptr RawTGraph) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_DrawGraph" + c_tgraph_drawgraph :: + Ptr RawTGraph -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_Expand" c_tgraph_expand - :: (Ptr RawTGraph) -> CInt -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_drawPanelTGraph" c_tgraph_drawpaneltgraph + :: Ptr RawTGraph -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_FitPanelTGraph" c_tgraph_fitpaneltgraph - :: (Ptr RawTGraph) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_Expand" + c_tgraph_expand :: Ptr RawTGraph -> CInt -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetEditable" c_tgraph_tgraphgeteditable - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_FitPanelTGraph" + c_tgraph_fitpaneltgraph :: Ptr RawTGraph -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetFunction" c_tgraph_tgraphgetfunction - :: (Ptr RawTGraph) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetEditable" + c_tgraph_tgraphgeteditable :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetHistogram" c_tgraph_tgraphgethistogram - :: (Ptr RawTGraph) -> IO (Ptr RawTH1F) +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetFunction" + c_tgraph_tgraphgetfunction :: + Ptr RawTGraph -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTGraph.h TGraph_getCorrelationFactorTGraph" c_tgraph_getcorrelationfactortgraph - :: (Ptr RawTGraph) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetHistogram" + c_tgraph_tgraphgethistogram :: Ptr RawTGraph -> IO (Ptr RawTH1F) -foreign import ccall "HROOTHistTGraph.h TGraph_getCovarianceTGraph" c_tgraph_getcovariancetgraph - :: (Ptr RawTGraph) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraph.h TGraph_getCorrelationFactorTGraph" + c_tgraph_getcorrelationfactortgraph :: Ptr RawTGraph -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_getMeanTGraph" c_tgraph_getmeantgraph - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraph.h TGraph_getCovarianceTGraph" + c_tgraph_getcovariancetgraph :: Ptr RawTGraph -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_getRMSTGraph" c_tgraph_getrmstgraph - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_getMeanTGraph" + c_tgraph_getmeantgraph :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetMaxSize" c_tgraph_tgraphgetmaxsize - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_getRMSTGraph" + c_tgraph_getrmstgraph :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetN" c_tgraph_tgraphgetn - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetMaxSize" + c_tgraph_tgraphgetmaxsize :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorX" c_tgraph_geterrorx - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_tGraphGetN" + c_tgraph_tgraphgetn :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorY" c_tgraph_geterrory - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorX" + c_tgraph_geterrorx :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorXhigh" c_tgraph_geterrorxhigh - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorY" + c_tgraph_geterrory :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorXlow" c_tgraph_geterrorxlow - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorXhigh" + c_tgraph_geterrorxhigh :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorYhigh" c_tgraph_geterroryhigh - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorXlow" + c_tgraph_geterrorxlow :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_GetErrorYlow" c_tgraph_geterrorylow - :: (Ptr RawTGraph) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorYhigh" + c_tgraph_geterroryhigh :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetMaximum" c_tgraph_tgraphgetmaximum - :: (Ptr RawTGraph) -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_GetErrorYlow" + c_tgraph_geterrorylow :: Ptr RawTGraph -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetMinimum" c_tgraph_tgraphgetminimum - :: (Ptr RawTGraph) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetMaximum" + c_tgraph_tgraphgetmaximum :: Ptr RawTGraph -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetXaxis" c_tgraph_tgraphgetxaxis - :: (Ptr RawTGraph) -> IO (Ptr RawTAxis) +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphGetMinimum" + c_tgraph_tgraphgetminimum :: Ptr RawTGraph -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphGetYaxis" c_tgraph_tgraphgetyaxis - :: (Ptr RawTGraph) -> IO (Ptr RawTAxis) +foreign import ccall safe "HROOTHistTGraph.h TGraph_tGraphGetXaxis" + c_tgraph_tgraphgetxaxis :: Ptr RawTGraph -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTGraph.h TGraph_InitExpo" c_tgraph_initexpo - :: (Ptr RawTGraph) -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_tGraphGetYaxis" + c_tgraph_tgraphgetyaxis :: Ptr RawTGraph -> IO (Ptr RawTAxis) -foreign import ccall "HROOTHistTGraph.h TGraph_InitGaus" c_tgraph_initgaus - :: (Ptr RawTGraph) -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_InitExpo" + c_tgraph_initexpo :: Ptr RawTGraph -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_InitPolynom" c_tgraph_initpolynom - :: (Ptr RawTGraph) -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_InitGaus" + c_tgraph_initgaus :: Ptr RawTGraph -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_InsertPoint" c_tgraph_insertpoint - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_InitPolynom" + c_tgraph_initpolynom :: + Ptr RawTGraph -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_integralTGraph" c_tgraph_integraltgraph - :: (Ptr RawTGraph) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTGraph.h TGraph_InsertPoint" + c_tgraph_insertpoint :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_IsEditable" c_tgraph_iseditable - :: (Ptr RawTGraph) -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_integralTGraph" + c_tgraph_integraltgraph :: + Ptr RawTGraph -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraph.h TGraph_isInsideTGraph" c_tgraph_isinsidetgraph - :: (Ptr RawTGraph) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_IsEditable" + c_tgraph_iseditable :: Ptr RawTGraph -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_LeastSquareFit" c_tgraph_leastsquarefit - :: (Ptr RawTGraph) -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_isInsideTGraph" + c_tgraph_isinsidetgraph :: + Ptr RawTGraph -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphPaintGraph" c_tgraph_tgraphpaintgraph - :: (Ptr RawTGraph) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_LeastSquareFit" + c_tgraph_leastsquarefit :: + Ptr RawTGraph -> + CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_tGraphPaintGrapHist" c_tgraph_tgraphpaintgraphist - :: (Ptr RawTGraph) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphPaintGraph" + c_tgraph_tgraphpaintgraph :: + Ptr RawTGraph -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_PaintStats" c_tgraph_paintstats - :: (Ptr RawTGraph) -> (Ptr RawTF1) -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_tGraphPaintGrapHist" + c_tgraph_tgraphpaintgraphist :: + Ptr RawTGraph -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_RemovePoint" c_tgraph_removepoint - :: (Ptr RawTGraph) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTGraph.h TGraph_PaintStats" + c_tgraph_paintstats :: Ptr RawTGraph -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetEditable" c_tgraph_seteditable - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_RemovePoint" + c_tgraph_removepoint :: Ptr RawTGraph -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraph.h TGraph_SetHistogram" c_tgraph_sethistogram - :: (Ptr RawTGraph) -> (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetEditable" + c_tgraph_seteditable :: Ptr RawTGraph -> CInt -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_setMaximumTGraph" c_tgraph_setmaximumtgraph - :: (Ptr RawTGraph) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetHistogram" + c_tgraph_sethistogram :: Ptr RawTGraph -> Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_setMinimumTGraph" c_tgraph_setminimumtgraph - :: (Ptr RawTGraph) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_setMaximumTGraph" + c_tgraph_setmaximumtgraph :: Ptr RawTGraph -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_Set" c_tgraph_set - :: (Ptr RawTGraph) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraph.h TGraph_setMinimumTGraph" + c_tgraph_setminimumtgraph :: Ptr RawTGraph -> CDouble -> IO () -foreign import ccall "HROOTHistTGraph.h TGraph_SetPoint" c_tgraph_setpoint - :: (Ptr RawTGraph) -> CInt -> CDouble -> CDouble -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_Set" + c_tgraph_set :: Ptr RawTGraph -> CInt -> IO () +foreign import ccall safe "HROOTHistTGraph.h TGraph_SetPoint" + c_tgraph_setpoint :: + Ptr RawTGraph -> CInt -> CDouble -> CDouble -> IO () diff --git a/src/HROOT/Hist/TGraph/Implementation.hs b/src/HROOT/Hist/TGraph/Implementation.hs --- a/src/HROOT/Hist/TGraph/Implementation.hs +++ b/src/HROOT/Hist/TGraph/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraph.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TGraph.RawType import HROOT.Hist.TGraph.FFI import HROOT.Hist.TGraph.Interface @@ -42,154 +43,82 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - - instance ITGraph TGraph where - apply = xform1 c_tgraph_apply - chisquare = xform1 c_tgraph_chisquare - drawGraph = xform4 c_tgraph_drawgraph - drawPanelTGraph = xform0 c_tgraph_drawpaneltgraph - expand = xform2 c_tgraph_expand - fitPanelTGraph = xform0 c_tgraph_fitpaneltgraph - getCorrelationFactorTGraph = xform0 c_tgraph_getcorrelationfactortgraph - getCovarianceTGraph = xform0 c_tgraph_getcovariancetgraph - getMeanTGraph = xform1 c_tgraph_getmeantgraph - getRMSTGraph = xform1 c_tgraph_getrmstgraph - getErrorX = xform1 c_tgraph_geterrorx - getErrorY = xform1 c_tgraph_geterrory - getErrorXhigh = xform1 c_tgraph_geterrorxhigh - getErrorXlow = xform1 c_tgraph_geterrorxlow - getErrorYhigh = xform1 c_tgraph_geterroryhigh - getErrorYlow = xform1 c_tgraph_geterrorylow - initExpo = xform2 c_tgraph_initexpo - initGaus = xform2 c_tgraph_initgaus - initPolynom = xform2 c_tgraph_initpolynom - insertPoint = xform0 c_tgraph_insertpoint - integralTGraph = xform2 c_tgraph_integraltgraph - isEditable = xform0 c_tgraph_iseditable - isInsideTGraph = xform2 c_tgraph_isinsidetgraph - leastSquareFit = xform4 c_tgraph_leastsquarefit - paintStats = xform1 c_tgraph_paintstats - removePoint = xform1 c_tgraph_removepoint - setEditable = xform1 c_tgraph_seteditable - setHistogram = xform1 c_tgraph_sethistogram - setMaximumTGraph = xform1 c_tgraph_setmaximumtgraph - setMinimumTGraph = xform1 c_tgraph_setminimumtgraph - set = xform1 c_tgraph_set - setPoint = xform3 c_tgraph_setpoint + apply = xform1 c_tgraph_apply + chisquare = xform1 c_tgraph_chisquare + drawGraph = xform4 c_tgraph_drawgraph + drawPanelTGraph = xform0 c_tgraph_drawpaneltgraph + expand = xform2 c_tgraph_expand + fitPanelTGraph = xform0 c_tgraph_fitpaneltgraph + getCorrelationFactorTGraph + = xform0 c_tgraph_getcorrelationfactortgraph + getCovarianceTGraph = xform0 c_tgraph_getcovariancetgraph + getMeanTGraph = xform1 c_tgraph_getmeantgraph + getRMSTGraph = xform1 c_tgraph_getrmstgraph + getErrorX = xform1 c_tgraph_geterrorx + getErrorY = xform1 c_tgraph_geterrory + getErrorXhigh = xform1 c_tgraph_geterrorxhigh + getErrorXlow = xform1 c_tgraph_geterrorxlow + getErrorYhigh = xform1 c_tgraph_geterroryhigh + getErrorYlow = xform1 c_tgraph_geterrorylow + initExpo = xform2 c_tgraph_initexpo + initGaus = xform2 c_tgraph_initgaus + initPolynom = xform2 c_tgraph_initpolynom + insertPoint = xform0 c_tgraph_insertpoint + integralTGraph = xform2 c_tgraph_integraltgraph + isEditable = xform0 c_tgraph_iseditable + isInsideTGraph = xform2 c_tgraph_isinsidetgraph + leastSquareFit = xform4 c_tgraph_leastsquarefit + paintStats = xform1 c_tgraph_paintstats + removePoint = xform1 c_tgraph_removepoint + setEditable = xform1 c_tgraph_seteditable + setHistogram = xform1 c_tgraph_sethistogram + setMaximumTGraph = xform1 c_tgraph_setmaximumtgraph + setMinimumTGraph = xform1 c_tgraph_setminimumtgraph + set = xform1 c_tgraph_set + setPoint = xform3 c_tgraph_setpoint + instance ITNamed TGraph where - setName = xform1 c_tgraph_setname - setNameTitle = xform2 c_tgraph_setnametitle - setTitle = xform1 c_tgraph_settitle + setName = xform1 c_tgraph_setname + setNameTitle = xform2 c_tgraph_setnametitle + setTitle = xform1 c_tgraph_settitle + instance ITAttLine TGraph where - getLineColor = xform0 c_tgraph_getlinecolor - getLineStyle = xform0 c_tgraph_getlinestyle - getLineWidth = xform0 c_tgraph_getlinewidth - resetAttLine = xform1 c_tgraph_resetattline - setLineAttributes = xform0 c_tgraph_setlineattributes - setLineColor = xform1 c_tgraph_setlinecolor - setLineStyle = xform1 c_tgraph_setlinestyle - setLineWidth = xform1 c_tgraph_setlinewidth + getLineColor = xform0 c_tgraph_getlinecolor + getLineStyle = xform0 c_tgraph_getlinestyle + getLineWidth = xform0 c_tgraph_getlinewidth + resetAttLine = xform1 c_tgraph_resetattline + setLineAttributes = xform0 c_tgraph_setlineattributes + setLineColor = xform1 c_tgraph_setlinecolor + setLineStyle = xform1 c_tgraph_setlinestyle + setLineWidth = xform1 c_tgraph_setlinewidth + instance ITAttFill TGraph where - setFillColor = xform1 c_tgraph_setfillcolor - setFillStyle = xform1 c_tgraph_setfillstyle + setFillColor = xform1 c_tgraph_setfillcolor + setFillStyle = xform1 c_tgraph_setfillstyle + instance ITAttMarker TGraph where - getMarkerColor = xform0 c_tgraph_getmarkercolor - getMarkerStyle = xform0 c_tgraph_getmarkerstyle - getMarkerSize = xform0 c_tgraph_getmarkersize - resetAttMarker = xform1 c_tgraph_resetattmarker - setMarkerAttributes = xform0 c_tgraph_setmarkerattributes - setMarkerColor = xform1 c_tgraph_setmarkercolor - setMarkerStyle = xform1 c_tgraph_setmarkerstyle - setMarkerSize = xform1 c_tgraph_setmarkersize -instance ITObject TGraph where - draw = xform1 c_tgraph_draw - findObject = xform1 c_tgraph_findobject - getName = xform0 c_tgraph_getname - isA = xform0 c_tgraph_isa - paint = xform1 c_tgraph_paint - printObj = xform1 c_tgraph_printobj - saveAs = xform2 c_tgraph_saveas - write = xform3 c_tgraph_write -instance IDeletable TGraph where - delete = xform0 c_tgraph_delete + getMarkerColor = xform0 c_tgraph_getmarkercolor + getMarkerStyle = xform0 c_tgraph_getmarkerstyle + getMarkerSize = xform0 c_tgraph_getmarkersize + resetAttMarker = xform1 c_tgraph_resetattmarker + setMarkerAttributes = xform0 c_tgraph_setmarkerattributes + setMarkerColor = xform1 c_tgraph_setmarkercolor + setMarkerStyle = xform1 c_tgraph_setmarkerstyle + setMarkerSize = xform1 c_tgraph_setmarkersize -instance ITGraph (Exist TGraph) where - apply (ETGraph x) = apply x - chisquare (ETGraph x) = chisquare x - drawGraph (ETGraph x) = drawGraph x - drawPanelTGraph (ETGraph x) = drawPanelTGraph x - expand (ETGraph x) = expand x - fitPanelTGraph (ETGraph x) = fitPanelTGraph x - getCorrelationFactorTGraph (ETGraph x) = getCorrelationFactorTGraph x - getCovarianceTGraph (ETGraph x) = getCovarianceTGraph x - getMeanTGraph (ETGraph x) = getMeanTGraph x - getRMSTGraph (ETGraph x) = getRMSTGraph x - getErrorX (ETGraph x) = getErrorX x - getErrorY (ETGraph x) = getErrorY x - getErrorXhigh (ETGraph x) = getErrorXhigh x - getErrorXlow (ETGraph x) = getErrorXlow x - getErrorYhigh (ETGraph x) = getErrorYhigh x - getErrorYlow (ETGraph x) = getErrorYlow x - initExpo (ETGraph x) = initExpo x - initGaus (ETGraph x) = initGaus x - initPolynom (ETGraph x) = initPolynom x - insertPoint (ETGraph x) = insertPoint x - integralTGraph (ETGraph x) = integralTGraph x - isEditable (ETGraph x) = isEditable x - isInsideTGraph (ETGraph x) = isInsideTGraph x - leastSquareFit (ETGraph x) = leastSquareFit x - paintStats (ETGraph x) = paintStats x - removePoint (ETGraph x) = removePoint x - setEditable (ETGraph x) = setEditable x - setHistogram (ETGraph x) = setHistogram x - setMaximumTGraph (ETGraph x) = setMaximumTGraph x - setMinimumTGraph (ETGraph x) = setMinimumTGraph x - set (ETGraph x) = set x - setPoint (ETGraph x) = setPoint x -instance ITNamed (Exist TGraph) where - setName (ETGraph x) = setName x - setNameTitle (ETGraph x) = setNameTitle x - setTitle (ETGraph x) = setTitle x -instance ITAttLine (Exist TGraph) where - getLineColor (ETGraph x) = getLineColor x - getLineStyle (ETGraph x) = getLineStyle x - getLineWidth (ETGraph x) = getLineWidth x - resetAttLine (ETGraph x) = resetAttLine x - setLineAttributes (ETGraph x) = setLineAttributes x - setLineColor (ETGraph x) = setLineColor x - setLineStyle (ETGraph x) = setLineStyle x - setLineWidth (ETGraph x) = setLineWidth x -instance ITAttFill (Exist TGraph) where - setFillColor (ETGraph x) = setFillColor x - setFillStyle (ETGraph x) = setFillStyle x -instance ITAttMarker (Exist TGraph) where - getMarkerColor (ETGraph x) = getMarkerColor x - getMarkerStyle (ETGraph x) = getMarkerStyle x - getMarkerSize (ETGraph x) = getMarkerSize x - resetAttMarker (ETGraph x) = resetAttMarker x - setMarkerAttributes (ETGraph x) = setMarkerAttributes x - setMarkerColor (ETGraph x) = setMarkerColor x - setMarkerStyle (ETGraph x) = setMarkerStyle x - setMarkerSize (ETGraph x) = setMarkerSize x -instance ITObject (Exist TGraph) where - draw (ETGraph x) = draw x - findObject (ETGraph x) = findObject x - getName (ETGraph x) = getName x - isA (ETGraph x) = isA x - paint (ETGraph x) = paint x - printObj (ETGraph x) = printObj x - saveAs (ETGraph x) = saveAs x - write (ETGraph x) = write x -instance IDeletable (Exist TGraph) where - delete (ETGraph x) = delete x +instance ITObject TGraph where + draw = xform1 c_tgraph_draw + findObject = xform1 c_tgraph_findobject + getName = xform0 c_tgraph_getname + isA = xform0 c_tgraph_isa + paint = xform1 c_tgraph_paint + printObj = xform1 c_tgraph_printobj + saveAs = xform2 c_tgraph_saveas + write = xform3 c_tgraph_write +instance IDeletable TGraph where + delete = xform0 c_tgraph_delete newTGraph :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO TGraph newTGraph = xform2 c_tgraph_newtgraph @@ -197,7 +126,7 @@ tGraphGetEditable :: TGraph -> IO CInt tGraphGetEditable = xform0 c_tgraph_tgraphgeteditable -tGraphGetFunction :: TGraph -> CString -> IO TF1 +tGraphGetFunction :: Castable c0 CString => TGraph -> c0 -> IO TF1 tGraphGetFunction = xform1 c_tgraph_tgraphgetfunction tGraphGetHistogram :: TGraph -> IO TH1F @@ -221,15 +150,12 @@ tGraphGetYaxis :: TGraph -> IO TAxis tGraphGetYaxis = xform0 c_tgraph_tgraphgetyaxis -tGraphPaintGraph :: TGraph -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +tGraphPaintGraph :: + Castable c0 CString => + TGraph -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> c0 -> IO () tGraphPaintGraph = xform4 c_tgraph_tgraphpaintgraph -tGraphPaintGrapHist :: TGraph -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +tGraphPaintGrapHist :: + Castable c0 CString => + TGraph -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> c0 -> IO () tGraphPaintGrapHist = xform4 c_tgraph_tgraphpaintgraphist - - - -instance FPtr (Exist TGraph) where - type Raw (Exist TGraph) = RawTGraph - get_fptr (ETGraph obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETGraph (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraph) :: TGraph) diff --git a/src/HROOT/Hist/TGraph/Interface.hs b/src/HROOT/Hist/TGraph/Interface.hs --- a/src/HROOT/Hist/TGraph/Interface.hs +++ b/src/HROOT/Hist/TGraph/Interface.hs @@ -1,18 +1,12 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraph.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TGraph.RawType import HROOT.Hist.TF1.RawType import HROOT.Hist.TH1F.RawType @@ -21,86 +15,86 @@ import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.Interface import HROOT.Core.TAttMarker.Interface ----- ============ ---- import {-# SOURCE #-} HROOT.Hist.TF1.Interface import {-# SOURCE #-} HROOT.Hist.TH1F.Interface - -class (ITNamed a,ITAttLine a,ITAttFill a,ITAttMarker a) => ITGraph a where - - apply :: (ITF1 c0, FPtr c0) => a -> c0 -> IO () - - chisquare :: (ITF1 c0, FPtr c0) => a -> c0 -> IO CDouble - - drawGraph :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () - - drawPanelTGraph :: a -> IO () - - expand :: a -> CInt -> CInt -> IO () - - fitPanelTGraph :: a -> IO () - - getCorrelationFactorTGraph :: a -> IO CDouble - - getCovarianceTGraph :: a -> IO CDouble - - getMeanTGraph :: a -> CInt -> IO CDouble - - getRMSTGraph :: a -> CInt -> IO CDouble - - getErrorX :: a -> CInt -> IO CDouble - - getErrorY :: a -> CInt -> IO CDouble - - getErrorXhigh :: a -> CInt -> IO CDouble - - getErrorXlow :: a -> CInt -> IO CDouble - - getErrorYhigh :: a -> CInt -> IO CDouble - - getErrorYlow :: a -> CInt -> IO CDouble - - initExpo :: a -> CDouble -> CDouble -> IO () - - initGaus :: a -> CDouble -> CDouble -> IO () - - initPolynom :: a -> CDouble -> CDouble -> IO () - - insertPoint :: a -> IO CInt - - integralTGraph :: a -> CInt -> CInt -> IO CDouble - - isEditable :: a -> IO CInt - - isInsideTGraph :: a -> CDouble -> CDouble -> IO CInt - - leastSquareFit :: a -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () - - paintStats :: (ITF1 c0, FPtr c0) => a -> c0 -> IO () - - removePoint :: a -> CInt -> IO CInt - - setEditable :: a -> CInt -> IO () - - setHistogram :: (ITH1F c0, FPtr c0) => a -> c0 -> IO () - - setMaximumTGraph :: a -> CDouble -> IO () - - setMinimumTGraph :: a -> CDouble -> IO () - - set :: a -> CInt -> IO () - - setPoint :: a -> CInt -> CDouble -> CDouble -> IO () - -instance Existable TGraph where - data Exist TGraph = forall a. (FPtr a, ITGraph a) => ETGraph a +class (ITNamed a, ITAttLine a, ITAttFill a, ITAttMarker a) => + ITGraph a where + apply :: (ITF1 c0, FPtr c0) => a -> c0 -> IO () + + chisquare :: (ITF1 c0, FPtr c0) => a -> c0 -> IO CDouble + + drawGraph :: + Castable c0 CString => + a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> c0 -> IO () + + drawPanelTGraph :: a -> IO () + + expand :: a -> CInt -> CInt -> IO () + + fitPanelTGraph :: a -> IO () + + getCorrelationFactorTGraph :: a -> IO CDouble + + getCovarianceTGraph :: a -> IO CDouble + + getMeanTGraph :: a -> CInt -> IO CDouble + + getRMSTGraph :: a -> CInt -> IO CDouble + + getErrorX :: a -> CInt -> IO CDouble + + getErrorY :: a -> CInt -> IO CDouble + + getErrorXhigh :: a -> CInt -> IO CDouble + + getErrorXlow :: a -> CInt -> IO CDouble + + getErrorYhigh :: a -> CInt -> IO CDouble + + getErrorYlow :: a -> CInt -> IO CDouble + + initExpo :: a -> CDouble -> CDouble -> IO () + + initGaus :: a -> CDouble -> CDouble -> IO () + + initPolynom :: a -> CDouble -> CDouble -> IO () + + insertPoint :: a -> IO CInt + + integralTGraph :: a -> CInt -> CInt -> IO CDouble + + isEditable :: a -> IO CInt + + isInsideTGraph :: a -> CDouble -> CDouble -> IO CInt + + leastSquareFit :: + a -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () + + paintStats :: (ITF1 c0, FPtr c0) => a -> c0 -> IO () + + removePoint :: a -> CInt -> IO CInt + + setEditable :: a -> CInt -> IO () + + setHistogram :: (ITH1F c0, FPtr c0) => a -> c0 -> IO () + + setMaximumTGraph :: a -> CDouble -> IO () + + setMinimumTGraph :: a -> CDouble -> IO () + + set :: a -> CInt -> IO () + + setPoint :: a -> CInt -> CDouble -> CDouble -> IO () -upcastTGraph :: (FPtr a, ITGraph a) => a -> TGraph -upcastTGraph h = let fh = get_fptr h - fh2 :: ForeignPtr RawTGraph = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTGraph :: forall a . (FPtr a, ITGraph a) => a -> TGraph +upcastTGraph h + = let fh = get_fptr h + fh2 :: Ptr RawTGraph = castPtr fh + in cast_fptr_to_obj fh2 -downcastTGraph :: (FPtr a, ITGraph a) => TGraph -> a -downcastTGraph h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTGraph :: forall a . (FPtr a, ITGraph a) => TGraph -> a +downcastTGraph h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TGraph/RawType.hs b/src/HROOT/Hist/TGraph/RawType.hs --- a/src/HROOT/Hist/TGraph/RawType.hs +++ b/src/HROOT/Hist/TGraph/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TGraph.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTGraph -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TGraph = TGraph (Ptr RawTGraph) + deriving (Eq, Ord, Show) -data RawTGraph -newtype TGraph = TGraph (ForeignPtr RawTGraph) deriving (Eq, Ord, Show) instance FPtr TGraph where - type Raw TGraph = RawTGraph - get_fptr (TGraph fptr) = fptr - cast_fptr_to_obj = TGraph + type Raw TGraph = RawTGraph + get_fptr (TGraph ptr) = ptr + cast_fptr_to_obj = TGraph diff --git a/src/HROOT/Hist/TGraphAsymmErrors.hs b/src/HROOT/Hist/TGraphAsymmErrors.hs --- a/src/HROOT/Hist/TGraphAsymmErrors.hs +++ b/src/HROOT/Hist/TGraphAsymmErrors.hs @@ -1,15 +1,8 @@ module HROOT.Hist.TGraphAsymmErrors - ( - TGraphAsymmErrors(..) - , ITGraphAsymmErrors - , upcastTGraphAsymmErrors - , downcastTGraphAsymmErrors - , newTGraphAsymmErrors - - ) where - + (TGraphAsymmErrors(..), ITGraphAsymmErrors, + upcastTGraphAsymmErrors, downcastTGraphAsymmErrors, + newTGraphAsymmErrors) + where import HROOT.Hist.TGraphAsymmErrors.RawType import HROOT.Hist.TGraphAsymmErrors.Interface import HROOT.Hist.TGraphAsymmErrors.Implementation - - diff --git a/src/HROOT/Hist/TGraphAsymmErrors/Cast.hs b/src/HROOT/Hist/TGraphAsymmErrors/Cast.hs --- a/src/HROOT/Hist/TGraphAsymmErrors/Cast.hs +++ b/src/HROOT/Hist/TGraphAsymmErrors/Cast.hs @@ -1,22 +1,19 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TGraphAsymmErrors.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TGraphAsymmErrors.RawType import HROOT.Hist.TGraphAsymmErrors.Interface -instance (ITGraphAsymmErrors a, FPtr a) => Castable a (Ptr RawTGraphAsymmErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ +instance (ITGraphAsymmErrors a, FPtr a) => Castable a + (Ptr RawTGraphAsymmErrors) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) -instance Castable TGraphAsymmErrors (Ptr RawTGraphAsymmErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ +instance Castable TGraphAsymmErrors (Ptr RawTGraphAsymmErrors) + where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TGraphAsymmErrors/FFI.hsc b/src/HROOT/Hist/TGraphAsymmErrors/FFI.hsc --- a/src/HROOT/Hist/TGraphAsymmErrors/FFI.hsc +++ b/src/HROOT/Hist/TGraphAsymmErrors/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TGraphAsymmErrors.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TGraphAsymmErrors.RawType import HROOT.Hist.TF1.RawType import HROOT.Hist.TH1F.RawType @@ -19,194 +9,323 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTGraphAsymmErrors.h" - -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Apply" c_tgraphasymmerrors_apply - :: (Ptr RawTGraphAsymmErrors) -> (Ptr RawTF1) -> IO () - -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Chisquare" c_tgraphasymmerrors_chisquare - :: (Ptr RawTGraphAsymmErrors) -> (Ptr RawTF1) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Apply" + c_tgraphasymmerrors_apply :: + Ptr RawTGraphAsymmErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_DrawGraph" c_tgraphasymmerrors_drawgraph - :: (Ptr RawTGraphAsymmErrors) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Chisquare" + c_tgraphasymmerrors_chisquare :: + Ptr RawTGraphAsymmErrors -> Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_drawPanelTGraph" c_tgraphasymmerrors_drawpaneltgraph - :: (Ptr RawTGraphAsymmErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_DrawGraph" + c_tgraphasymmerrors_drawgraph :: + Ptr RawTGraphAsymmErrors -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Expand" c_tgraphasymmerrors_expand - :: (Ptr RawTGraphAsymmErrors) -> CInt -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_drawPanelTGraph" + c_tgraphasymmerrors_drawpaneltgraph :: + Ptr RawTGraphAsymmErrors -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_FitPanelTGraph" c_tgraphasymmerrors_fitpaneltgraph - :: (Ptr RawTGraphAsymmErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Expand" + c_tgraphasymmerrors_expand :: + Ptr RawTGraphAsymmErrors -> CInt -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getCorrelationFactorTGraph" c_tgraphasymmerrors_getcorrelationfactortgraph - :: (Ptr RawTGraphAsymmErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_FitPanelTGraph" + c_tgraphasymmerrors_fitpaneltgraph :: + Ptr RawTGraphAsymmErrors -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getCovarianceTGraph" c_tgraphasymmerrors_getcovariancetgraph - :: (Ptr RawTGraphAsymmErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getCorrelationFactorTGraph" + c_tgraphasymmerrors_getcorrelationfactortgraph :: + Ptr RawTGraphAsymmErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getMeanTGraph" c_tgraphasymmerrors_getmeantgraph - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getCovarianceTGraph" + c_tgraphasymmerrors_getcovariancetgraph :: + Ptr RawTGraphAsymmErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getRMSTGraph" c_tgraphasymmerrors_getrmstgraph - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getMeanTGraph" + c_tgraphasymmerrors_getmeantgraph :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorX" c_tgraphasymmerrors_geterrorx - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_getRMSTGraph" + c_tgraphasymmerrors_getrmstgraph :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorY" c_tgraphasymmerrors_geterrory - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorX" + c_tgraphasymmerrors_geterrorx :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorXhigh" c_tgraphasymmerrors_geterrorxhigh - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorY" + c_tgraphasymmerrors_geterrory :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorXlow" c_tgraphasymmerrors_geterrorxlow - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorXhigh" + c_tgraphasymmerrors_geterrorxhigh :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorYhigh" c_tgraphasymmerrors_geterroryhigh - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorXlow" + c_tgraphasymmerrors_geterrorxlow :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorYlow" c_tgraphasymmerrors_geterrorylow - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorYhigh" + c_tgraphasymmerrors_geterroryhigh :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitExpo" c_tgraphasymmerrors_initexpo - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetErrorYlow" + c_tgraphasymmerrors_geterrorylow :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitGaus" c_tgraphasymmerrors_initgaus - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitExpo" + c_tgraphasymmerrors_initexpo :: + Ptr RawTGraphAsymmErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitPolynom" c_tgraphasymmerrors_initpolynom - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitGaus" + c_tgraphasymmerrors_initgaus :: + Ptr RawTGraphAsymmErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InsertPoint" c_tgraphasymmerrors_insertpoint - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InitPolynom" + c_tgraphasymmerrors_initpolynom :: + Ptr RawTGraphAsymmErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_integralTGraph" c_tgraphasymmerrors_integraltgraph - :: (Ptr RawTGraphAsymmErrors) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_InsertPoint" + c_tgraphasymmerrors_insertpoint :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_IsEditable" c_tgraphasymmerrors_iseditable - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_integralTGraph" + c_tgraphasymmerrors_integraltgraph :: + Ptr RawTGraphAsymmErrors -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_isInsideTGraph" c_tgraphasymmerrors_isinsidetgraph - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_IsEditable" + c_tgraphasymmerrors_iseditable :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_LeastSquareFit" c_tgraphasymmerrors_leastsquarefit - :: (Ptr RawTGraphAsymmErrors) -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_isInsideTGraph" + c_tgraphasymmerrors_isinsidetgraph :: + Ptr RawTGraphAsymmErrors -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_PaintStats" c_tgraphasymmerrors_paintstats - :: (Ptr RawTGraphAsymmErrors) -> (Ptr RawTF1) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_LeastSquareFit" + c_tgraphasymmerrors_leastsquarefit :: + Ptr RawTGraphAsymmErrors -> + CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_RemovePoint" c_tgraphasymmerrors_removepoint - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_PaintStats" + c_tgraphasymmerrors_paintstats :: + Ptr RawTGraphAsymmErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetEditable" c_tgraphasymmerrors_seteditable - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_RemovePoint" + c_tgraphasymmerrors_removepoint :: + Ptr RawTGraphAsymmErrors -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetHistogram" c_tgraphasymmerrors_sethistogram - :: (Ptr RawTGraphAsymmErrors) -> (Ptr RawTH1F) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetEditable" + c_tgraphasymmerrors_seteditable :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_setMaximumTGraph" c_tgraphasymmerrors_setmaximumtgraph - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetHistogram" + c_tgraphasymmerrors_sethistogram :: + Ptr RawTGraphAsymmErrors -> Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_setMinimumTGraph" c_tgraphasymmerrors_setminimumtgraph - :: (Ptr RawTGraphAsymmErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_setMaximumTGraph" + c_tgraphasymmerrors_setmaximumtgraph :: + Ptr RawTGraphAsymmErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Set" c_tgraphasymmerrors_set - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_setMinimumTGraph" + c_tgraphasymmerrors_setminimumtgraph :: + Ptr RawTGraphAsymmErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetPoint" c_tgraphasymmerrors_setpoint - :: (Ptr RawTGraphAsymmErrors) -> CInt -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Set" + c_tgraphasymmerrors_set :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetName" c_tgraphasymmerrors_setname - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetPoint" + c_tgraphasymmerrors_setpoint :: + Ptr RawTGraphAsymmErrors -> CInt -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetNameTitle" c_tgraphasymmerrors_setnametitle - :: (Ptr RawTGraphAsymmErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetName" + c_tgraphasymmerrors_setname :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetTitle" c_tgraphasymmerrors_settitle - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetNameTitle" + c_tgraphasymmerrors_setnametitle :: + Ptr RawTGraphAsymmErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineColor" c_tgraphasymmerrors_getlinecolor - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetTitle" + c_tgraphasymmerrors_settitle :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineStyle" c_tgraphasymmerrors_getlinestyle - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineColor" + c_tgraphasymmerrors_getlinecolor :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineWidth" c_tgraphasymmerrors_getlinewidth - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineStyle" + c_tgraphasymmerrors_getlinestyle :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_ResetAttLine" c_tgraphasymmerrors_resetattline - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetLineWidth" + c_tgraphasymmerrors_getlinewidth :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineAttributes" c_tgraphasymmerrors_setlineattributes - :: (Ptr RawTGraphAsymmErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_ResetAttLine" + c_tgraphasymmerrors_resetattline :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineColor" c_tgraphasymmerrors_setlinecolor - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineAttributes" + c_tgraphasymmerrors_setlineattributes :: + Ptr RawTGraphAsymmErrors -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineStyle" c_tgraphasymmerrors_setlinestyle - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineColor" + c_tgraphasymmerrors_setlinecolor :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineWidth" c_tgraphasymmerrors_setlinewidth - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineStyle" + c_tgraphasymmerrors_setlinestyle :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetFillColor" c_tgraphasymmerrors_setfillcolor - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetLineWidth" + c_tgraphasymmerrors_setlinewidth :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetFillStyle" c_tgraphasymmerrors_setfillstyle - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetFillColor" + c_tgraphasymmerrors_setfillcolor :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerColor" c_tgraphasymmerrors_getmarkercolor - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetFillStyle" + c_tgraphasymmerrors_setfillstyle :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerStyle" c_tgraphasymmerrors_getmarkerstyle - :: (Ptr RawTGraphAsymmErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerColor" + c_tgraphasymmerrors_getmarkercolor :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerSize" c_tgraphasymmerrors_getmarkersize - :: (Ptr RawTGraphAsymmErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerStyle" + c_tgraphasymmerrors_getmarkerstyle :: + Ptr RawTGraphAsymmErrors -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_ResetAttMarker" c_tgraphasymmerrors_resetattmarker - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetMarkerSize" + c_tgraphasymmerrors_getmarkersize :: + Ptr RawTGraphAsymmErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerAttributes" c_tgraphasymmerrors_setmarkerattributes - :: (Ptr RawTGraphAsymmErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_ResetAttMarker" + c_tgraphasymmerrors_resetattmarker :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerColor" c_tgraphasymmerrors_setmarkercolor - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerAttributes" + c_tgraphasymmerrors_setmarkerattributes :: + Ptr RawTGraphAsymmErrors -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerStyle" c_tgraphasymmerrors_setmarkerstyle - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerColor" + c_tgraphasymmerrors_setmarkercolor :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerSize" c_tgraphasymmerrors_setmarkersize - :: (Ptr RawTGraphAsymmErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerStyle" + c_tgraphasymmerrors_setmarkerstyle :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Draw" c_tgraphasymmerrors_draw - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SetMarkerSize" + c_tgraphasymmerrors_setmarkersize :: + Ptr RawTGraphAsymmErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_FindObject" c_tgraphasymmerrors_findobject - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Draw" + c_tgraphasymmerrors_draw :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetName" c_tgraphasymmerrors_getname - :: (Ptr RawTGraphAsymmErrors) -> IO CString +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_FindObject" + c_tgraphasymmerrors_findobject :: + Ptr RawTGraphAsymmErrors -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_IsA" c_tgraphasymmerrors_isa - :: (Ptr RawTGraphAsymmErrors) -> IO (Ptr RawTClass) +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_GetName" + c_tgraphasymmerrors_getname :: + Ptr RawTGraphAsymmErrors -> IO CString -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Paint" c_tgraphasymmerrors_paint - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_IsA" + c_tgraphasymmerrors_isa :: + Ptr RawTGraphAsymmErrors -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_printObj" c_tgraphasymmerrors_printobj - :: (Ptr RawTGraphAsymmErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Paint" + c_tgraphasymmerrors_paint :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SaveAs" c_tgraphasymmerrors_saveas - :: (Ptr RawTGraphAsymmErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_printObj" + c_tgraphasymmerrors_printobj :: + Ptr RawTGraphAsymmErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Write" c_tgraphasymmerrors_write - :: (Ptr RawTGraphAsymmErrors) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_SaveAs" + c_tgraphasymmerrors_saveas :: + Ptr RawTGraphAsymmErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_delete" c_tgraphasymmerrors_delete - :: (Ptr RawTGraphAsymmErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_Write" + c_tgraphasymmerrors_write :: + Ptr RawTGraphAsymmErrors -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_newTGraphAsymmErrors" c_tgraphasymmerrors_newtgraphasymmerrors - :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphAsymmErrors) +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_delete" + c_tgraphasymmerrors_delete :: Ptr RawTGraphAsymmErrors -> IO () +foreign import ccall safe + "HROOTHistTGraphAsymmErrors.h TGraphAsymmErrors_newTGraphAsymmErrors" + c_tgraphasymmerrors_newtgraphasymmerrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphAsymmErrors) diff --git a/src/HROOT/Hist/TGraphAsymmErrors/Implementation.hs b/src/HROOT/Hist/TGraphAsymmErrors/Implementation.hs --- a/src/HROOT/Hist/TGraphAsymmErrors/Implementation.hs +++ b/src/HROOT/Hist/TGraphAsymmErrors/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphAsymmErrors.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TGraphAsymmErrors.RawType import HROOT.Hist.TGraphAsymmErrors.FFI import HROOT.Hist.TGraphAsymmErrors.Interface @@ -45,166 +46,93 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITGraphAsymmErrors TGraphAsymmErrors -instance ITGraphAsymmErrors TGraphAsymmErrors where instance ITGraph TGraphAsymmErrors where - apply = xform1 c_tgraphasymmerrors_apply - chisquare = xform1 c_tgraphasymmerrors_chisquare - drawGraph = xform4 c_tgraphasymmerrors_drawgraph - drawPanelTGraph = xform0 c_tgraphasymmerrors_drawpaneltgraph - expand = xform2 c_tgraphasymmerrors_expand - fitPanelTGraph = xform0 c_tgraphasymmerrors_fitpaneltgraph - getCorrelationFactorTGraph = xform0 c_tgraphasymmerrors_getcorrelationfactortgraph - getCovarianceTGraph = xform0 c_tgraphasymmerrors_getcovariancetgraph - getMeanTGraph = xform1 c_tgraphasymmerrors_getmeantgraph - getRMSTGraph = xform1 c_tgraphasymmerrors_getrmstgraph - getErrorX = xform1 c_tgraphasymmerrors_geterrorx - getErrorY = xform1 c_tgraphasymmerrors_geterrory - getErrorXhigh = xform1 c_tgraphasymmerrors_geterrorxhigh - getErrorXlow = xform1 c_tgraphasymmerrors_geterrorxlow - getErrorYhigh = xform1 c_tgraphasymmerrors_geterroryhigh - getErrorYlow = xform1 c_tgraphasymmerrors_geterrorylow - initExpo = xform2 c_tgraphasymmerrors_initexpo - initGaus = xform2 c_tgraphasymmerrors_initgaus - initPolynom = xform2 c_tgraphasymmerrors_initpolynom - insertPoint = xform0 c_tgraphasymmerrors_insertpoint - integralTGraph = xform2 c_tgraphasymmerrors_integraltgraph - isEditable = xform0 c_tgraphasymmerrors_iseditable - isInsideTGraph = xform2 c_tgraphasymmerrors_isinsidetgraph - leastSquareFit = xform4 c_tgraphasymmerrors_leastsquarefit - paintStats = xform1 c_tgraphasymmerrors_paintstats - removePoint = xform1 c_tgraphasymmerrors_removepoint - setEditable = xform1 c_tgraphasymmerrors_seteditable - setHistogram = xform1 c_tgraphasymmerrors_sethistogram - setMaximumTGraph = xform1 c_tgraphasymmerrors_setmaximumtgraph - setMinimumTGraph = xform1 c_tgraphasymmerrors_setminimumtgraph - set = xform1 c_tgraphasymmerrors_set - setPoint = xform3 c_tgraphasymmerrors_setpoint -instance ITNamed TGraphAsymmErrors where - setName = xform1 c_tgraphasymmerrors_setname - setNameTitle = xform2 c_tgraphasymmerrors_setnametitle - setTitle = xform1 c_tgraphasymmerrors_settitle -instance ITAttLine TGraphAsymmErrors where - getLineColor = xform0 c_tgraphasymmerrors_getlinecolor - getLineStyle = xform0 c_tgraphasymmerrors_getlinestyle - getLineWidth = xform0 c_tgraphasymmerrors_getlinewidth - resetAttLine = xform1 c_tgraphasymmerrors_resetattline - setLineAttributes = xform0 c_tgraphasymmerrors_setlineattributes - setLineColor = xform1 c_tgraphasymmerrors_setlinecolor - setLineStyle = xform1 c_tgraphasymmerrors_setlinestyle - setLineWidth = xform1 c_tgraphasymmerrors_setlinewidth -instance ITAttFill TGraphAsymmErrors where - setFillColor = xform1 c_tgraphasymmerrors_setfillcolor - setFillStyle = xform1 c_tgraphasymmerrors_setfillstyle -instance ITAttMarker TGraphAsymmErrors where - getMarkerColor = xform0 c_tgraphasymmerrors_getmarkercolor - getMarkerStyle = xform0 c_tgraphasymmerrors_getmarkerstyle - getMarkerSize = xform0 c_tgraphasymmerrors_getmarkersize - resetAttMarker = xform1 c_tgraphasymmerrors_resetattmarker - setMarkerAttributes = xform0 c_tgraphasymmerrors_setmarkerattributes - setMarkerColor = xform1 c_tgraphasymmerrors_setmarkercolor - setMarkerStyle = xform1 c_tgraphasymmerrors_setmarkerstyle - setMarkerSize = xform1 c_tgraphasymmerrors_setmarkersize -instance ITObject TGraphAsymmErrors where - draw = xform1 c_tgraphasymmerrors_draw - findObject = xform1 c_tgraphasymmerrors_findobject - getName = xform0 c_tgraphasymmerrors_getname - isA = xform0 c_tgraphasymmerrors_isa - paint = xform1 c_tgraphasymmerrors_paint - printObj = xform1 c_tgraphasymmerrors_printobj - saveAs = xform2 c_tgraphasymmerrors_saveas - write = xform3 c_tgraphasymmerrors_write -instance IDeletable TGraphAsymmErrors where - delete = xform0 c_tgraphasymmerrors_delete - -instance ITGraphAsymmErrors (Exist TGraphAsymmErrors) where - -instance ITGraph (Exist TGraphAsymmErrors) where - apply (ETGraphAsymmErrors x) = apply x - chisquare (ETGraphAsymmErrors x) = chisquare x - drawGraph (ETGraphAsymmErrors x) = drawGraph x - drawPanelTGraph (ETGraphAsymmErrors x) = drawPanelTGraph x - expand (ETGraphAsymmErrors x) = expand x - fitPanelTGraph (ETGraphAsymmErrors x) = fitPanelTGraph x - getCorrelationFactorTGraph (ETGraphAsymmErrors x) = getCorrelationFactorTGraph x - getCovarianceTGraph (ETGraphAsymmErrors x) = getCovarianceTGraph x - getMeanTGraph (ETGraphAsymmErrors x) = getMeanTGraph x - getRMSTGraph (ETGraphAsymmErrors x) = getRMSTGraph x - getErrorX (ETGraphAsymmErrors x) = getErrorX x - getErrorY (ETGraphAsymmErrors x) = getErrorY x - getErrorXhigh (ETGraphAsymmErrors x) = getErrorXhigh x - getErrorXlow (ETGraphAsymmErrors x) = getErrorXlow x - getErrorYhigh (ETGraphAsymmErrors x) = getErrorYhigh x - getErrorYlow (ETGraphAsymmErrors x) = getErrorYlow x - initExpo (ETGraphAsymmErrors x) = initExpo x - initGaus (ETGraphAsymmErrors x) = initGaus x - initPolynom (ETGraphAsymmErrors x) = initPolynom x - insertPoint (ETGraphAsymmErrors x) = insertPoint x - integralTGraph (ETGraphAsymmErrors x) = integralTGraph x - isEditable (ETGraphAsymmErrors x) = isEditable x - isInsideTGraph (ETGraphAsymmErrors x) = isInsideTGraph x - leastSquareFit (ETGraphAsymmErrors x) = leastSquareFit x - paintStats (ETGraphAsymmErrors x) = paintStats x - removePoint (ETGraphAsymmErrors x) = removePoint x - setEditable (ETGraphAsymmErrors x) = setEditable x - setHistogram (ETGraphAsymmErrors x) = setHistogram x - setMaximumTGraph (ETGraphAsymmErrors x) = setMaximumTGraph x - setMinimumTGraph (ETGraphAsymmErrors x) = setMinimumTGraph x - set (ETGraphAsymmErrors x) = set x - setPoint (ETGraphAsymmErrors x) = setPoint x -instance ITNamed (Exist TGraphAsymmErrors) where - setName (ETGraphAsymmErrors x) = setName x - setNameTitle (ETGraphAsymmErrors x) = setNameTitle x - setTitle (ETGraphAsymmErrors x) = setTitle x -instance ITAttLine (Exist TGraphAsymmErrors) where - getLineColor (ETGraphAsymmErrors x) = getLineColor x - getLineStyle (ETGraphAsymmErrors x) = getLineStyle x - getLineWidth (ETGraphAsymmErrors x) = getLineWidth x - resetAttLine (ETGraphAsymmErrors x) = resetAttLine x - setLineAttributes (ETGraphAsymmErrors x) = setLineAttributes x - setLineColor (ETGraphAsymmErrors x) = setLineColor x - setLineStyle (ETGraphAsymmErrors x) = setLineStyle x - setLineWidth (ETGraphAsymmErrors x) = setLineWidth x -instance ITAttFill (Exist TGraphAsymmErrors) where - setFillColor (ETGraphAsymmErrors x) = setFillColor x - setFillStyle (ETGraphAsymmErrors x) = setFillStyle x -instance ITAttMarker (Exist TGraphAsymmErrors) where - getMarkerColor (ETGraphAsymmErrors x) = getMarkerColor x - getMarkerStyle (ETGraphAsymmErrors x) = getMarkerStyle x - getMarkerSize (ETGraphAsymmErrors x) = getMarkerSize x - resetAttMarker (ETGraphAsymmErrors x) = resetAttMarker x - setMarkerAttributes (ETGraphAsymmErrors x) = setMarkerAttributes x - setMarkerColor (ETGraphAsymmErrors x) = setMarkerColor x - setMarkerStyle (ETGraphAsymmErrors x) = setMarkerStyle x - setMarkerSize (ETGraphAsymmErrors x) = setMarkerSize x -instance ITObject (Exist TGraphAsymmErrors) where - draw (ETGraphAsymmErrors x) = draw x - findObject (ETGraphAsymmErrors x) = findObject x - getName (ETGraphAsymmErrors x) = getName x - isA (ETGraphAsymmErrors x) = isA x - paint (ETGraphAsymmErrors x) = paint x - printObj (ETGraphAsymmErrors x) = printObj x - saveAs (ETGraphAsymmErrors x) = saveAs x - write (ETGraphAsymmErrors x) = write x -instance IDeletable (Exist TGraphAsymmErrors) where - delete (ETGraphAsymmErrors x) = delete x + apply = xform1 c_tgraphasymmerrors_apply + chisquare = xform1 c_tgraphasymmerrors_chisquare + drawGraph = xform4 c_tgraphasymmerrors_drawgraph + drawPanelTGraph = xform0 c_tgraphasymmerrors_drawpaneltgraph + expand = xform2 c_tgraphasymmerrors_expand + fitPanelTGraph = xform0 c_tgraphasymmerrors_fitpaneltgraph + getCorrelationFactorTGraph + = xform0 c_tgraphasymmerrors_getcorrelationfactortgraph + getCovarianceTGraph + = xform0 c_tgraphasymmerrors_getcovariancetgraph + getMeanTGraph = xform1 c_tgraphasymmerrors_getmeantgraph + getRMSTGraph = xform1 c_tgraphasymmerrors_getrmstgraph + getErrorX = xform1 c_tgraphasymmerrors_geterrorx + getErrorY = xform1 c_tgraphasymmerrors_geterrory + getErrorXhigh = xform1 c_tgraphasymmerrors_geterrorxhigh + getErrorXlow = xform1 c_tgraphasymmerrors_geterrorxlow + getErrorYhigh = xform1 c_tgraphasymmerrors_geterroryhigh + getErrorYlow = xform1 c_tgraphasymmerrors_geterrorylow + initExpo = xform2 c_tgraphasymmerrors_initexpo + initGaus = xform2 c_tgraphasymmerrors_initgaus + initPolynom = xform2 c_tgraphasymmerrors_initpolynom + insertPoint = xform0 c_tgraphasymmerrors_insertpoint + integralTGraph = xform2 c_tgraphasymmerrors_integraltgraph + isEditable = xform0 c_tgraphasymmerrors_iseditable + isInsideTGraph = xform2 c_tgraphasymmerrors_isinsidetgraph + leastSquareFit = xform4 c_tgraphasymmerrors_leastsquarefit + paintStats = xform1 c_tgraphasymmerrors_paintstats + removePoint = xform1 c_tgraphasymmerrors_removepoint + setEditable = xform1 c_tgraphasymmerrors_seteditable + setHistogram = xform1 c_tgraphasymmerrors_sethistogram + setMaximumTGraph = xform1 c_tgraphasymmerrors_setmaximumtgraph + setMinimumTGraph = xform1 c_tgraphasymmerrors_setminimumtgraph + set = xform1 c_tgraphasymmerrors_set + setPoint = xform3 c_tgraphasymmerrors_setpoint +instance ITNamed TGraphAsymmErrors where + setName = xform1 c_tgraphasymmerrors_setname + setNameTitle = xform2 c_tgraphasymmerrors_setnametitle + setTitle = xform1 c_tgraphasymmerrors_settitle -newTGraphAsymmErrors :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphAsymmErrors -newTGraphAsymmErrors = xform6 c_tgraphasymmerrors_newtgraphasymmerrors +instance ITAttLine TGraphAsymmErrors where + getLineColor = xform0 c_tgraphasymmerrors_getlinecolor + getLineStyle = xform0 c_tgraphasymmerrors_getlinestyle + getLineWidth = xform0 c_tgraphasymmerrors_getlinewidth + resetAttLine = xform1 c_tgraphasymmerrors_resetattline + setLineAttributes = xform0 c_tgraphasymmerrors_setlineattributes + setLineColor = xform1 c_tgraphasymmerrors_setlinecolor + setLineStyle = xform1 c_tgraphasymmerrors_setlinestyle + setLineWidth = xform1 c_tgraphasymmerrors_setlinewidth +instance ITAttFill TGraphAsymmErrors where + setFillColor = xform1 c_tgraphasymmerrors_setfillcolor + setFillStyle = xform1 c_tgraphasymmerrors_setfillstyle +instance ITAttMarker TGraphAsymmErrors where + getMarkerColor = xform0 c_tgraphasymmerrors_getmarkercolor + getMarkerStyle = xform0 c_tgraphasymmerrors_getmarkerstyle + getMarkerSize = xform0 c_tgraphasymmerrors_getmarkersize + resetAttMarker = xform1 c_tgraphasymmerrors_resetattmarker + setMarkerAttributes + = xform0 c_tgraphasymmerrors_setmarkerattributes + setMarkerColor = xform1 c_tgraphasymmerrors_setmarkercolor + setMarkerStyle = xform1 c_tgraphasymmerrors_setmarkerstyle + setMarkerSize = xform1 c_tgraphasymmerrors_setmarkersize +instance ITObject TGraphAsymmErrors where + draw = xform1 c_tgraphasymmerrors_draw + findObject = xform1 c_tgraphasymmerrors_findobject + getName = xform0 c_tgraphasymmerrors_getname + isA = xform0 c_tgraphasymmerrors_isa + paint = xform1 c_tgraphasymmerrors_paint + printObj = xform1 c_tgraphasymmerrors_printobj + saveAs = xform2 c_tgraphasymmerrors_saveas + write = xform3 c_tgraphasymmerrors_write +instance IDeletable TGraphAsymmErrors where + delete = xform0 c_tgraphasymmerrors_delete -instance FPtr (Exist TGraphAsymmErrors) where - type Raw (Exist TGraphAsymmErrors) = RawTGraphAsymmErrors - get_fptr (ETGraphAsymmErrors obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETGraphAsymmErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphAsymmErrors) :: TGraphAsymmErrors) +newTGraphAsymmErrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphAsymmErrors +newTGraphAsymmErrors + = xform6 c_tgraphasymmerrors_newtgraphasymmerrors diff --git a/src/HROOT/Hist/TGraphAsymmErrors/Interface.hs b/src/HROOT/Hist/TGraphAsymmErrors/Interface.hs --- a/src/HROOT/Hist/TGraphAsymmErrors/Interface.hs +++ b/src/HROOT/Hist/TGraphAsymmErrors/Interface.hs @@ -1,36 +1,27 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphAsymmErrors.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TGraphAsymmErrors.RawType - import HROOT.Hist.TGraph.Interface ----- ============ ---- - - -class (ITGraph a) => ITGraphAsymmErrors a where - -instance Existable TGraphAsymmErrors where - data Exist TGraphAsymmErrors = forall a. (FPtr a, ITGraphAsymmErrors a) => ETGraphAsymmErrors a +class ITGraph a => ITGraphAsymmErrors a -upcastTGraphAsymmErrors :: (FPtr a, ITGraphAsymmErrors a) => a -> TGraphAsymmErrors -upcastTGraphAsymmErrors h = let fh = get_fptr h - fh2 :: ForeignPtr RawTGraphAsymmErrors = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTGraphAsymmErrors :: + forall a . (FPtr a, ITGraphAsymmErrors a) => a -> TGraphAsymmErrors +upcastTGraphAsymmErrors h + = let fh = get_fptr h + fh2 :: Ptr RawTGraphAsymmErrors = castPtr fh + in cast_fptr_to_obj fh2 -downcastTGraphAsymmErrors :: (FPtr a, ITGraphAsymmErrors a) => TGraphAsymmErrors -> a -downcastTGraphAsymmErrors h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTGraphAsymmErrors :: + forall a . (FPtr a, ITGraphAsymmErrors a) => TGraphAsymmErrors -> a +downcastTGraphAsymmErrors h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TGraphAsymmErrors/RawType.hs b/src/HROOT/Hist/TGraphAsymmErrors/RawType.hs --- a/src/HROOT/Hist/TGraphAsymmErrors/RawType.hs +++ b/src/HROOT/Hist/TGraphAsymmErrors/RawType.hs @@ -1,16 +1,17 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TGraphAsymmErrors.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTGraphAsymmErrors -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TGraphAsymmErrors = TGraphAsymmErrors (Ptr + RawTGraphAsymmErrors) + deriving (Eq, Ord, Show) -data RawTGraphAsymmErrors -newtype TGraphAsymmErrors = TGraphAsymmErrors (ForeignPtr RawTGraphAsymmErrors) deriving (Eq, Ord, Show) instance FPtr TGraphAsymmErrors where - type Raw TGraphAsymmErrors = RawTGraphAsymmErrors - get_fptr (TGraphAsymmErrors fptr) = fptr - cast_fptr_to_obj = TGraphAsymmErrors + type Raw TGraphAsymmErrors = RawTGraphAsymmErrors + get_fptr (TGraphAsymmErrors ptr) = ptr + cast_fptr_to_obj = TGraphAsymmErrors diff --git a/src/HROOT/Hist/TGraphBentErrors.hs b/src/HROOT/Hist/TGraphBentErrors.hs --- a/src/HROOT/Hist/TGraphBentErrors.hs +++ b/src/HROOT/Hist/TGraphBentErrors.hs @@ -1,15 +1,7 @@ module HROOT.Hist.TGraphBentErrors - ( - TGraphBentErrors(..) - , ITGraphBentErrors - , upcastTGraphBentErrors - , downcastTGraphBentErrors - , newTGraphBentErrors - - ) where - + (TGraphBentErrors(..), ITGraphBentErrors, upcastTGraphBentErrors, + downcastTGraphBentErrors, newTGraphBentErrors) + where import HROOT.Hist.TGraphBentErrors.RawType import HROOT.Hist.TGraphBentErrors.Interface import HROOT.Hist.TGraphBentErrors.Implementation - - diff --git a/src/HROOT/Hist/TGraphBentErrors/Cast.hs b/src/HROOT/Hist/TGraphBentErrors/Cast.hs --- a/src/HROOT/Hist/TGraphBentErrors/Cast.hs +++ b/src/HROOT/Hist/TGraphBentErrors/Cast.hs @@ -1,22 +1,18 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TGraphBentErrors.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TGraphBentErrors.RawType import HROOT.Hist.TGraphBentErrors.Interface -instance (ITGraphBentErrors a, FPtr a) => Castable a (Ptr RawTGraphBentErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ +instance (ITGraphBentErrors a, FPtr a) => Castable a + (Ptr RawTGraphBentErrors) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TGraphBentErrors (Ptr RawTGraphBentErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TGraphBentErrors/FFI.hsc b/src/HROOT/Hist/TGraphBentErrors/FFI.hsc --- a/src/HROOT/Hist/TGraphBentErrors/FFI.hsc +++ b/src/HROOT/Hist/TGraphBentErrors/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TGraphBentErrors.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TGraphBentErrors.RawType import HROOT.Hist.TF1.RawType import HROOT.Hist.TH1F.RawType @@ -19,194 +9,324 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTGraphBentErrors.h" - -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Apply" c_tgraphbenterrors_apply - :: (Ptr RawTGraphBentErrors) -> (Ptr RawTF1) -> IO () - -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Chisquare" c_tgraphbenterrors_chisquare - :: (Ptr RawTGraphBentErrors) -> (Ptr RawTF1) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Apply" + c_tgraphbenterrors_apply :: + Ptr RawTGraphBentErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_DrawGraph" c_tgraphbenterrors_drawgraph - :: (Ptr RawTGraphBentErrors) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Chisquare" + c_tgraphbenterrors_chisquare :: + Ptr RawTGraphBentErrors -> Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_drawPanelTGraph" c_tgraphbenterrors_drawpaneltgraph - :: (Ptr RawTGraphBentErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_DrawGraph" + c_tgraphbenterrors_drawgraph :: + Ptr RawTGraphBentErrors -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Expand" c_tgraphbenterrors_expand - :: (Ptr RawTGraphBentErrors) -> CInt -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_drawPanelTGraph" + c_tgraphbenterrors_drawpaneltgraph :: + Ptr RawTGraphBentErrors -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_FitPanelTGraph" c_tgraphbenterrors_fitpaneltgraph - :: (Ptr RawTGraphBentErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Expand" + c_tgraphbenterrors_expand :: + Ptr RawTGraphBentErrors -> CInt -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_getCorrelationFactorTGraph" c_tgraphbenterrors_getcorrelationfactortgraph - :: (Ptr RawTGraphBentErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_FitPanelTGraph" + c_tgraphbenterrors_fitpaneltgraph :: + Ptr RawTGraphBentErrors -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_getCovarianceTGraph" c_tgraphbenterrors_getcovariancetgraph - :: (Ptr RawTGraphBentErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_getCorrelationFactorTGraph" + c_tgraphbenterrors_getcorrelationfactortgraph :: + Ptr RawTGraphBentErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_getMeanTGraph" c_tgraphbenterrors_getmeantgraph - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_getCovarianceTGraph" + c_tgraphbenterrors_getcovariancetgraph :: + Ptr RawTGraphBentErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_getRMSTGraph" c_tgraphbenterrors_getrmstgraph - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_getMeanTGraph" + c_tgraphbenterrors_getmeantgraph :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorX" c_tgraphbenterrors_geterrorx - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_getRMSTGraph" + c_tgraphbenterrors_getrmstgraph :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorY" c_tgraphbenterrors_geterrory - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorX" + c_tgraphbenterrors_geterrorx :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorXhigh" c_tgraphbenterrors_geterrorxhigh - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorY" + c_tgraphbenterrors_geterrory :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorXlow" c_tgraphbenterrors_geterrorxlow - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorXhigh" + c_tgraphbenterrors_geterrorxhigh :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorYhigh" c_tgraphbenterrors_geterroryhigh - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorXlow" + c_tgraphbenterrors_geterrorxlow :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorYlow" c_tgraphbenterrors_geterrorylow - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorYhigh" + c_tgraphbenterrors_geterroryhigh :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitExpo" c_tgraphbenterrors_initexpo - :: (Ptr RawTGraphBentErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetErrorYlow" + c_tgraphbenterrors_geterrorylow :: + Ptr RawTGraphBentErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitGaus" c_tgraphbenterrors_initgaus - :: (Ptr RawTGraphBentErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitExpo" + c_tgraphbenterrors_initexpo :: + Ptr RawTGraphBentErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitPolynom" c_tgraphbenterrors_initpolynom - :: (Ptr RawTGraphBentErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitGaus" + c_tgraphbenterrors_initgaus :: + Ptr RawTGraphBentErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_InsertPoint" c_tgraphbenterrors_insertpoint - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_InitPolynom" + c_tgraphbenterrors_initpolynom :: + Ptr RawTGraphBentErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_integralTGraph" c_tgraphbenterrors_integraltgraph - :: (Ptr RawTGraphBentErrors) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_InsertPoint" + c_tgraphbenterrors_insertpoint :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_IsEditable" c_tgraphbenterrors_iseditable - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_integralTGraph" + c_tgraphbenterrors_integraltgraph :: + Ptr RawTGraphBentErrors -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_isInsideTGraph" c_tgraphbenterrors_isinsidetgraph - :: (Ptr RawTGraphBentErrors) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_IsEditable" + c_tgraphbenterrors_iseditable :: Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_LeastSquareFit" c_tgraphbenterrors_leastsquarefit - :: (Ptr RawTGraphBentErrors) -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_isInsideTGraph" + c_tgraphbenterrors_isinsidetgraph :: + Ptr RawTGraphBentErrors -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_PaintStats" c_tgraphbenterrors_paintstats - :: (Ptr RawTGraphBentErrors) -> (Ptr RawTF1) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_LeastSquareFit" + c_tgraphbenterrors_leastsquarefit :: + Ptr RawTGraphBentErrors -> + CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_RemovePoint" c_tgraphbenterrors_removepoint - :: (Ptr RawTGraphBentErrors) -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_PaintStats" + c_tgraphbenterrors_paintstats :: + Ptr RawTGraphBentErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetEditable" c_tgraphbenterrors_seteditable - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_RemovePoint" + c_tgraphbenterrors_removepoint :: + Ptr RawTGraphBentErrors -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetHistogram" c_tgraphbenterrors_sethistogram - :: (Ptr RawTGraphBentErrors) -> (Ptr RawTH1F) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetEditable" + c_tgraphbenterrors_seteditable :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_setMaximumTGraph" c_tgraphbenterrors_setmaximumtgraph - :: (Ptr RawTGraphBentErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetHistogram" + c_tgraphbenterrors_sethistogram :: + Ptr RawTGraphBentErrors -> Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_setMinimumTGraph" c_tgraphbenterrors_setminimumtgraph - :: (Ptr RawTGraphBentErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_setMaximumTGraph" + c_tgraphbenterrors_setmaximumtgraph :: + Ptr RawTGraphBentErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Set" c_tgraphbenterrors_set - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_setMinimumTGraph" + c_tgraphbenterrors_setminimumtgraph :: + Ptr RawTGraphBentErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetPoint" c_tgraphbenterrors_setpoint - :: (Ptr RawTGraphBentErrors) -> CInt -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Set" + c_tgraphbenterrors_set :: Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetName" c_tgraphbenterrors_setname - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetPoint" + c_tgraphbenterrors_setpoint :: + Ptr RawTGraphBentErrors -> CInt -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetNameTitle" c_tgraphbenterrors_setnametitle - :: (Ptr RawTGraphBentErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetName" + c_tgraphbenterrors_setname :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetTitle" c_tgraphbenterrors_settitle - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetNameTitle" + c_tgraphbenterrors_setnametitle :: + Ptr RawTGraphBentErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineColor" c_tgraphbenterrors_getlinecolor - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetTitle" + c_tgraphbenterrors_settitle :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineStyle" c_tgraphbenterrors_getlinestyle - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineColor" + c_tgraphbenterrors_getlinecolor :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineWidth" c_tgraphbenterrors_getlinewidth - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineStyle" + c_tgraphbenterrors_getlinestyle :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_ResetAttLine" c_tgraphbenterrors_resetattline - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetLineWidth" + c_tgraphbenterrors_getlinewidth :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineAttributes" c_tgraphbenterrors_setlineattributes - :: (Ptr RawTGraphBentErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_ResetAttLine" + c_tgraphbenterrors_resetattline :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineColor" c_tgraphbenterrors_setlinecolor - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineAttributes" + c_tgraphbenterrors_setlineattributes :: + Ptr RawTGraphBentErrors -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineStyle" c_tgraphbenterrors_setlinestyle - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineColor" + c_tgraphbenterrors_setlinecolor :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineWidth" c_tgraphbenterrors_setlinewidth - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineStyle" + c_tgraphbenterrors_setlinestyle :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetFillColor" c_tgraphbenterrors_setfillcolor - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetLineWidth" + c_tgraphbenterrors_setlinewidth :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetFillStyle" c_tgraphbenterrors_setfillstyle - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetFillColor" + c_tgraphbenterrors_setfillcolor :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerColor" c_tgraphbenterrors_getmarkercolor - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetFillStyle" + c_tgraphbenterrors_setfillstyle :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerStyle" c_tgraphbenterrors_getmarkerstyle - :: (Ptr RawTGraphBentErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerColor" + c_tgraphbenterrors_getmarkercolor :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerSize" c_tgraphbenterrors_getmarkersize - :: (Ptr RawTGraphBentErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerStyle" + c_tgraphbenterrors_getmarkerstyle :: + Ptr RawTGraphBentErrors -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_ResetAttMarker" c_tgraphbenterrors_resetattmarker - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetMarkerSize" + c_tgraphbenterrors_getmarkersize :: + Ptr RawTGraphBentErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerAttributes" c_tgraphbenterrors_setmarkerattributes - :: (Ptr RawTGraphBentErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_ResetAttMarker" + c_tgraphbenterrors_resetattmarker :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerColor" c_tgraphbenterrors_setmarkercolor - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerAttributes" + c_tgraphbenterrors_setmarkerattributes :: + Ptr RawTGraphBentErrors -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerStyle" c_tgraphbenterrors_setmarkerstyle - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerColor" + c_tgraphbenterrors_setmarkercolor :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerSize" c_tgraphbenterrors_setmarkersize - :: (Ptr RawTGraphBentErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerStyle" + c_tgraphbenterrors_setmarkerstyle :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Draw" c_tgraphbenterrors_draw - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SetMarkerSize" + c_tgraphbenterrors_setmarkersize :: + Ptr RawTGraphBentErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_FindObject" c_tgraphbenterrors_findobject - :: (Ptr RawTGraphBentErrors) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Draw" + c_tgraphbenterrors_draw :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetName" c_tgraphbenterrors_getname - :: (Ptr RawTGraphBentErrors) -> IO CString +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_FindObject" + c_tgraphbenterrors_findobject :: + Ptr RawTGraphBentErrors -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_IsA" c_tgraphbenterrors_isa - :: (Ptr RawTGraphBentErrors) -> IO (Ptr RawTClass) +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_GetName" + c_tgraphbenterrors_getname :: Ptr RawTGraphBentErrors -> IO CString -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Paint" c_tgraphbenterrors_paint - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_IsA" + c_tgraphbenterrors_isa :: + Ptr RawTGraphBentErrors -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_printObj" c_tgraphbenterrors_printobj - :: (Ptr RawTGraphBentErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Paint" + c_tgraphbenterrors_paint :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_SaveAs" c_tgraphbenterrors_saveas - :: (Ptr RawTGraphBentErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_printObj" + c_tgraphbenterrors_printobj :: + Ptr RawTGraphBentErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_Write" c_tgraphbenterrors_write - :: (Ptr RawTGraphBentErrors) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_SaveAs" + c_tgraphbenterrors_saveas :: + Ptr RawTGraphBentErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_delete" c_tgraphbenterrors_delete - :: (Ptr RawTGraphBentErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_Write" + c_tgraphbenterrors_write :: + Ptr RawTGraphBentErrors -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphBentErrors.h TGraphBentErrors_newTGraphBentErrors" c_tgraphbenterrors_newtgraphbenterrors - :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphBentErrors) +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_delete" + c_tgraphbenterrors_delete :: Ptr RawTGraphBentErrors -> IO () +foreign import ccall safe + "HROOTHistTGraphBentErrors.h TGraphBentErrors_newTGraphBentErrors" + c_tgraphbenterrors_newtgraphbenterrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphBentErrors) diff --git a/src/HROOT/Hist/TGraphBentErrors/Implementation.hs b/src/HROOT/Hist/TGraphBentErrors/Implementation.hs --- a/src/HROOT/Hist/TGraphBentErrors/Implementation.hs +++ b/src/HROOT/Hist/TGraphBentErrors/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphBentErrors.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TGraphBentErrors.RawType import HROOT.Hist.TGraphBentErrors.FFI import HROOT.Hist.TGraphBentErrors.Interface @@ -45,166 +46,95 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITGraphBentErrors TGraphBentErrors -instance ITGraphBentErrors TGraphBentErrors where instance ITGraph TGraphBentErrors where - apply = xform1 c_tgraphbenterrors_apply - chisquare = xform1 c_tgraphbenterrors_chisquare - drawGraph = xform4 c_tgraphbenterrors_drawgraph - drawPanelTGraph = xform0 c_tgraphbenterrors_drawpaneltgraph - expand = xform2 c_tgraphbenterrors_expand - fitPanelTGraph = xform0 c_tgraphbenterrors_fitpaneltgraph - getCorrelationFactorTGraph = xform0 c_tgraphbenterrors_getcorrelationfactortgraph - getCovarianceTGraph = xform0 c_tgraphbenterrors_getcovariancetgraph - getMeanTGraph = xform1 c_tgraphbenterrors_getmeantgraph - getRMSTGraph = xform1 c_tgraphbenterrors_getrmstgraph - getErrorX = xform1 c_tgraphbenterrors_geterrorx - getErrorY = xform1 c_tgraphbenterrors_geterrory - getErrorXhigh = xform1 c_tgraphbenterrors_geterrorxhigh - getErrorXlow = xform1 c_tgraphbenterrors_geterrorxlow - getErrorYhigh = xform1 c_tgraphbenterrors_geterroryhigh - getErrorYlow = xform1 c_tgraphbenterrors_geterrorylow - initExpo = xform2 c_tgraphbenterrors_initexpo - initGaus = xform2 c_tgraphbenterrors_initgaus - initPolynom = xform2 c_tgraphbenterrors_initpolynom - insertPoint = xform0 c_tgraphbenterrors_insertpoint - integralTGraph = xform2 c_tgraphbenterrors_integraltgraph - isEditable = xform0 c_tgraphbenterrors_iseditable - isInsideTGraph = xform2 c_tgraphbenterrors_isinsidetgraph - leastSquareFit = xform4 c_tgraphbenterrors_leastsquarefit - paintStats = xform1 c_tgraphbenterrors_paintstats - removePoint = xform1 c_tgraphbenterrors_removepoint - setEditable = xform1 c_tgraphbenterrors_seteditable - setHistogram = xform1 c_tgraphbenterrors_sethistogram - setMaximumTGraph = xform1 c_tgraphbenterrors_setmaximumtgraph - setMinimumTGraph = xform1 c_tgraphbenterrors_setminimumtgraph - set = xform1 c_tgraphbenterrors_set - setPoint = xform3 c_tgraphbenterrors_setpoint -instance ITNamed TGraphBentErrors where - setName = xform1 c_tgraphbenterrors_setname - setNameTitle = xform2 c_tgraphbenterrors_setnametitle - setTitle = xform1 c_tgraphbenterrors_settitle -instance ITAttLine TGraphBentErrors where - getLineColor = xform0 c_tgraphbenterrors_getlinecolor - getLineStyle = xform0 c_tgraphbenterrors_getlinestyle - getLineWidth = xform0 c_tgraphbenterrors_getlinewidth - resetAttLine = xform1 c_tgraphbenterrors_resetattline - setLineAttributes = xform0 c_tgraphbenterrors_setlineattributes - setLineColor = xform1 c_tgraphbenterrors_setlinecolor - setLineStyle = xform1 c_tgraphbenterrors_setlinestyle - setLineWidth = xform1 c_tgraphbenterrors_setlinewidth -instance ITAttFill TGraphBentErrors where - setFillColor = xform1 c_tgraphbenterrors_setfillcolor - setFillStyle = xform1 c_tgraphbenterrors_setfillstyle -instance ITAttMarker TGraphBentErrors where - getMarkerColor = xform0 c_tgraphbenterrors_getmarkercolor - getMarkerStyle = xform0 c_tgraphbenterrors_getmarkerstyle - getMarkerSize = xform0 c_tgraphbenterrors_getmarkersize - resetAttMarker = xform1 c_tgraphbenterrors_resetattmarker - setMarkerAttributes = xform0 c_tgraphbenterrors_setmarkerattributes - setMarkerColor = xform1 c_tgraphbenterrors_setmarkercolor - setMarkerStyle = xform1 c_tgraphbenterrors_setmarkerstyle - setMarkerSize = xform1 c_tgraphbenterrors_setmarkersize -instance ITObject TGraphBentErrors where - draw = xform1 c_tgraphbenterrors_draw - findObject = xform1 c_tgraphbenterrors_findobject - getName = xform0 c_tgraphbenterrors_getname - isA = xform0 c_tgraphbenterrors_isa - paint = xform1 c_tgraphbenterrors_paint - printObj = xform1 c_tgraphbenterrors_printobj - saveAs = xform2 c_tgraphbenterrors_saveas - write = xform3 c_tgraphbenterrors_write -instance IDeletable TGraphBentErrors where - delete = xform0 c_tgraphbenterrors_delete - -instance ITGraphBentErrors (Exist TGraphBentErrors) where - -instance ITGraph (Exist TGraphBentErrors) where - apply (ETGraphBentErrors x) = apply x - chisquare (ETGraphBentErrors x) = chisquare x - drawGraph (ETGraphBentErrors x) = drawGraph x - drawPanelTGraph (ETGraphBentErrors x) = drawPanelTGraph x - expand (ETGraphBentErrors x) = expand x - fitPanelTGraph (ETGraphBentErrors x) = fitPanelTGraph x - getCorrelationFactorTGraph (ETGraphBentErrors x) = getCorrelationFactorTGraph x - getCovarianceTGraph (ETGraphBentErrors x) = getCovarianceTGraph x - getMeanTGraph (ETGraphBentErrors x) = getMeanTGraph x - getRMSTGraph (ETGraphBentErrors x) = getRMSTGraph x - getErrorX (ETGraphBentErrors x) = getErrorX x - getErrorY (ETGraphBentErrors x) = getErrorY x - getErrorXhigh (ETGraphBentErrors x) = getErrorXhigh x - getErrorXlow (ETGraphBentErrors x) = getErrorXlow x - getErrorYhigh (ETGraphBentErrors x) = getErrorYhigh x - getErrorYlow (ETGraphBentErrors x) = getErrorYlow x - initExpo (ETGraphBentErrors x) = initExpo x - initGaus (ETGraphBentErrors x) = initGaus x - initPolynom (ETGraphBentErrors x) = initPolynom x - insertPoint (ETGraphBentErrors x) = insertPoint x - integralTGraph (ETGraphBentErrors x) = integralTGraph x - isEditable (ETGraphBentErrors x) = isEditable x - isInsideTGraph (ETGraphBentErrors x) = isInsideTGraph x - leastSquareFit (ETGraphBentErrors x) = leastSquareFit x - paintStats (ETGraphBentErrors x) = paintStats x - removePoint (ETGraphBentErrors x) = removePoint x - setEditable (ETGraphBentErrors x) = setEditable x - setHistogram (ETGraphBentErrors x) = setHistogram x - setMaximumTGraph (ETGraphBentErrors x) = setMaximumTGraph x - setMinimumTGraph (ETGraphBentErrors x) = setMinimumTGraph x - set (ETGraphBentErrors x) = set x - setPoint (ETGraphBentErrors x) = setPoint x -instance ITNamed (Exist TGraphBentErrors) where - setName (ETGraphBentErrors x) = setName x - setNameTitle (ETGraphBentErrors x) = setNameTitle x - setTitle (ETGraphBentErrors x) = setTitle x -instance ITAttLine (Exist TGraphBentErrors) where - getLineColor (ETGraphBentErrors x) = getLineColor x - getLineStyle (ETGraphBentErrors x) = getLineStyle x - getLineWidth (ETGraphBentErrors x) = getLineWidth x - resetAttLine (ETGraphBentErrors x) = resetAttLine x - setLineAttributes (ETGraphBentErrors x) = setLineAttributes x - setLineColor (ETGraphBentErrors x) = setLineColor x - setLineStyle (ETGraphBentErrors x) = setLineStyle x - setLineWidth (ETGraphBentErrors x) = setLineWidth x -instance ITAttFill (Exist TGraphBentErrors) where - setFillColor (ETGraphBentErrors x) = setFillColor x - setFillStyle (ETGraphBentErrors x) = setFillStyle x -instance ITAttMarker (Exist TGraphBentErrors) where - getMarkerColor (ETGraphBentErrors x) = getMarkerColor x - getMarkerStyle (ETGraphBentErrors x) = getMarkerStyle x - getMarkerSize (ETGraphBentErrors x) = getMarkerSize x - resetAttMarker (ETGraphBentErrors x) = resetAttMarker x - setMarkerAttributes (ETGraphBentErrors x) = setMarkerAttributes x - setMarkerColor (ETGraphBentErrors x) = setMarkerColor x - setMarkerStyle (ETGraphBentErrors x) = setMarkerStyle x - setMarkerSize (ETGraphBentErrors x) = setMarkerSize x -instance ITObject (Exist TGraphBentErrors) where - draw (ETGraphBentErrors x) = draw x - findObject (ETGraphBentErrors x) = findObject x - getName (ETGraphBentErrors x) = getName x - isA (ETGraphBentErrors x) = isA x - paint (ETGraphBentErrors x) = paint x - printObj (ETGraphBentErrors x) = printObj x - saveAs (ETGraphBentErrors x) = saveAs x - write (ETGraphBentErrors x) = write x -instance IDeletable (Exist TGraphBentErrors) where - delete (ETGraphBentErrors x) = delete x + apply = xform1 c_tgraphbenterrors_apply + chisquare = xform1 c_tgraphbenterrors_chisquare + drawGraph = xform4 c_tgraphbenterrors_drawgraph + drawPanelTGraph = xform0 c_tgraphbenterrors_drawpaneltgraph + expand = xform2 c_tgraphbenterrors_expand + fitPanelTGraph = xform0 c_tgraphbenterrors_fitpaneltgraph + getCorrelationFactorTGraph + = xform0 c_tgraphbenterrors_getcorrelationfactortgraph + getCovarianceTGraph = xform0 c_tgraphbenterrors_getcovariancetgraph + getMeanTGraph = xform1 c_tgraphbenterrors_getmeantgraph + getRMSTGraph = xform1 c_tgraphbenterrors_getrmstgraph + getErrorX = xform1 c_tgraphbenterrors_geterrorx + getErrorY = xform1 c_tgraphbenterrors_geterrory + getErrorXhigh = xform1 c_tgraphbenterrors_geterrorxhigh + getErrorXlow = xform1 c_tgraphbenterrors_geterrorxlow + getErrorYhigh = xform1 c_tgraphbenterrors_geterroryhigh + getErrorYlow = xform1 c_tgraphbenterrors_geterrorylow + initExpo = xform2 c_tgraphbenterrors_initexpo + initGaus = xform2 c_tgraphbenterrors_initgaus + initPolynom = xform2 c_tgraphbenterrors_initpolynom + insertPoint = xform0 c_tgraphbenterrors_insertpoint + integralTGraph = xform2 c_tgraphbenterrors_integraltgraph + isEditable = xform0 c_tgraphbenterrors_iseditable + isInsideTGraph = xform2 c_tgraphbenterrors_isinsidetgraph + leastSquareFit = xform4 c_tgraphbenterrors_leastsquarefit + paintStats = xform1 c_tgraphbenterrors_paintstats + removePoint = xform1 c_tgraphbenterrors_removepoint + setEditable = xform1 c_tgraphbenterrors_seteditable + setHistogram = xform1 c_tgraphbenterrors_sethistogram + setMaximumTGraph = xform1 c_tgraphbenterrors_setmaximumtgraph + setMinimumTGraph = xform1 c_tgraphbenterrors_setminimumtgraph + set = xform1 c_tgraphbenterrors_set + setPoint = xform3 c_tgraphbenterrors_setpoint +instance ITNamed TGraphBentErrors where + setName = xform1 c_tgraphbenterrors_setname + setNameTitle = xform2 c_tgraphbenterrors_setnametitle + setTitle = xform1 c_tgraphbenterrors_settitle -newTGraphBentErrors :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphBentErrors -newTGraphBentErrors = xform10 c_tgraphbenterrors_newtgraphbenterrors +instance ITAttLine TGraphBentErrors where + getLineColor = xform0 c_tgraphbenterrors_getlinecolor + getLineStyle = xform0 c_tgraphbenterrors_getlinestyle + getLineWidth = xform0 c_tgraphbenterrors_getlinewidth + resetAttLine = xform1 c_tgraphbenterrors_resetattline + setLineAttributes = xform0 c_tgraphbenterrors_setlineattributes + setLineColor = xform1 c_tgraphbenterrors_setlinecolor + setLineStyle = xform1 c_tgraphbenterrors_setlinestyle + setLineWidth = xform1 c_tgraphbenterrors_setlinewidth +instance ITAttFill TGraphBentErrors where + setFillColor = xform1 c_tgraphbenterrors_setfillcolor + setFillStyle = xform1 c_tgraphbenterrors_setfillstyle +instance ITAttMarker TGraphBentErrors where + getMarkerColor = xform0 c_tgraphbenterrors_getmarkercolor + getMarkerStyle = xform0 c_tgraphbenterrors_getmarkerstyle + getMarkerSize = xform0 c_tgraphbenterrors_getmarkersize + resetAttMarker = xform1 c_tgraphbenterrors_resetattmarker + setMarkerAttributes = xform0 c_tgraphbenterrors_setmarkerattributes + setMarkerColor = xform1 c_tgraphbenterrors_setmarkercolor + setMarkerStyle = xform1 c_tgraphbenterrors_setmarkerstyle + setMarkerSize = xform1 c_tgraphbenterrors_setmarkersize +instance ITObject TGraphBentErrors where + draw = xform1 c_tgraphbenterrors_draw + findObject = xform1 c_tgraphbenterrors_findobject + getName = xform0 c_tgraphbenterrors_getname + isA = xform0 c_tgraphbenterrors_isa + paint = xform1 c_tgraphbenterrors_paint + printObj = xform1 c_tgraphbenterrors_printobj + saveAs = xform2 c_tgraphbenterrors_saveas + write = xform3 c_tgraphbenterrors_write +instance IDeletable TGraphBentErrors where + delete = xform0 c_tgraphbenterrors_delete -instance FPtr (Exist TGraphBentErrors) where - type Raw (Exist TGraphBentErrors) = RawTGraphBentErrors - get_fptr (ETGraphBentErrors obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETGraphBentErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphBentErrors) :: TGraphBentErrors) +newTGraphBentErrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphBentErrors +newTGraphBentErrors + = xform10 c_tgraphbenterrors_newtgraphbenterrors diff --git a/src/HROOT/Hist/TGraphBentErrors/Interface.hs b/src/HROOT/Hist/TGraphBentErrors/Interface.hs --- a/src/HROOT/Hist/TGraphBentErrors/Interface.hs +++ b/src/HROOT/Hist/TGraphBentErrors/Interface.hs @@ -1,36 +1,27 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphBentErrors.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TGraphBentErrors.RawType - import HROOT.Hist.TGraph.Interface ----- ============ ---- - - -class (ITGraph a) => ITGraphBentErrors a where - -instance Existable TGraphBentErrors where - data Exist TGraphBentErrors = forall a. (FPtr a, ITGraphBentErrors a) => ETGraphBentErrors a +class ITGraph a => ITGraphBentErrors a -upcastTGraphBentErrors :: (FPtr a, ITGraphBentErrors a) => a -> TGraphBentErrors -upcastTGraphBentErrors h = let fh = get_fptr h - fh2 :: ForeignPtr RawTGraphBentErrors = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTGraphBentErrors :: + forall a . (FPtr a, ITGraphBentErrors a) => a -> TGraphBentErrors +upcastTGraphBentErrors h + = let fh = get_fptr h + fh2 :: Ptr RawTGraphBentErrors = castPtr fh + in cast_fptr_to_obj fh2 -downcastTGraphBentErrors :: (FPtr a, ITGraphBentErrors a) => TGraphBentErrors -> a -downcastTGraphBentErrors h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTGraphBentErrors :: + forall a . (FPtr a, ITGraphBentErrors a) => TGraphBentErrors -> a +downcastTGraphBentErrors h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TGraphBentErrors/RawType.hs b/src/HROOT/Hist/TGraphBentErrors/RawType.hs --- a/src/HROOT/Hist/TGraphBentErrors/RawType.hs +++ b/src/HROOT/Hist/TGraphBentErrors/RawType.hs @@ -1,16 +1,17 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TGraphBentErrors.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTGraphBentErrors -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TGraphBentErrors = TGraphBentErrors (Ptr + RawTGraphBentErrors) + deriving (Eq, Ord, Show) -data RawTGraphBentErrors -newtype TGraphBentErrors = TGraphBentErrors (ForeignPtr RawTGraphBentErrors) deriving (Eq, Ord, Show) instance FPtr TGraphBentErrors where - type Raw TGraphBentErrors = RawTGraphBentErrors - get_fptr (TGraphBentErrors fptr) = fptr - cast_fptr_to_obj = TGraphBentErrors + type Raw TGraphBentErrors = RawTGraphBentErrors + get_fptr (TGraphBentErrors ptr) = ptr + cast_fptr_to_obj = TGraphBentErrors diff --git a/src/HROOT/Hist/TGraphErrors.hs b/src/HROOT/Hist/TGraphErrors.hs --- a/src/HROOT/Hist/TGraphErrors.hs +++ b/src/HROOT/Hist/TGraphErrors.hs @@ -1,15 +1,7 @@ module HROOT.Hist.TGraphErrors - ( - TGraphErrors(..) - , ITGraphErrors - , upcastTGraphErrors - , downcastTGraphErrors - , newTGraphErrors - - ) where - + (TGraphErrors(..), ITGraphErrors, upcastTGraphErrors, + downcastTGraphErrors, newTGraphErrors) + where import HROOT.Hist.TGraphErrors.RawType import HROOT.Hist.TGraphErrors.Interface import HROOT.Hist.TGraphErrors.Implementation - - diff --git a/src/HROOT/Hist/TGraphErrors/Cast.hs b/src/HROOT/Hist/TGraphErrors/Cast.hs --- a/src/HROOT/Hist/TGraphErrors/Cast.hs +++ b/src/HROOT/Hist/TGraphErrors/Cast.hs @@ -1,22 +1,18 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TGraphErrors.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TGraphErrors.RawType import HROOT.Hist.TGraphErrors.Interface -instance (ITGraphErrors a, FPtr a) => Castable a (Ptr RawTGraphErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ +instance (ITGraphErrors a, FPtr a) => Castable a + (Ptr RawTGraphErrors) where + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TGraphErrors (Ptr RawTGraphErrors) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TGraphErrors/FFI.hsc b/src/HROOT/Hist/TGraphErrors/FFI.hsc --- a/src/HROOT/Hist/TGraphErrors/FFI.hsc +++ b/src/HROOT/Hist/TGraphErrors/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TGraphErrors.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TGraphErrors.RawType import HROOT.Hist.TF1.RawType import HROOT.Hist.TH1F.RawType @@ -19,194 +9,291 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTGraphErrors.h" - -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Apply" c_tgrapherrors_apply - :: (Ptr RawTGraphErrors) -> (Ptr RawTF1) -> IO () - -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Chisquare" c_tgrapherrors_chisquare - :: (Ptr RawTGraphErrors) -> (Ptr RawTF1) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Apply" c_tgrapherrors_apply + :: Ptr RawTGraphErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_DrawGraph" c_tgrapherrors_drawgraph - :: (Ptr RawTGraphErrors) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Chisquare" + c_tgrapherrors_chisquare :: + Ptr RawTGraphErrors -> Ptr RawTF1 -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_drawPanelTGraph" c_tgrapherrors_drawpaneltgraph - :: (Ptr RawTGraphErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_DrawGraph" + c_tgrapherrors_drawgraph :: + Ptr RawTGraphErrors -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Expand" c_tgrapherrors_expand - :: (Ptr RawTGraphErrors) -> CInt -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_drawPanelTGraph" + c_tgrapherrors_drawpaneltgraph :: Ptr RawTGraphErrors -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_FitPanelTGraph" c_tgrapherrors_fitpaneltgraph - :: (Ptr RawTGraphErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Expand" c_tgrapherrors_expand + :: Ptr RawTGraphErrors -> CInt -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_getCorrelationFactorTGraph" c_tgrapherrors_getcorrelationfactortgraph - :: (Ptr RawTGraphErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_FitPanelTGraph" + c_tgrapherrors_fitpaneltgraph :: Ptr RawTGraphErrors -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_getCovarianceTGraph" c_tgrapherrors_getcovariancetgraph - :: (Ptr RawTGraphErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_getCorrelationFactorTGraph" + c_tgrapherrors_getcorrelationfactortgraph :: + Ptr RawTGraphErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_getMeanTGraph" c_tgrapherrors_getmeantgraph - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_getCovarianceTGraph" + c_tgrapherrors_getcovariancetgraph :: + Ptr RawTGraphErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_getRMSTGraph" c_tgrapherrors_getrmstgraph - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_getMeanTGraph" + c_tgrapherrors_getmeantgraph :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorX" c_tgrapherrors_geterrorx - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_getRMSTGraph" + c_tgrapherrors_getrmstgraph :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorY" c_tgrapherrors_geterrory - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorX" + c_tgrapherrors_geterrorx :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorXhigh" c_tgrapherrors_geterrorxhigh - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorY" + c_tgrapherrors_geterrory :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorXlow" c_tgrapherrors_geterrorxlow - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorXhigh" + c_tgrapherrors_geterrorxhigh :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorYhigh" c_tgrapherrors_geterroryhigh - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorXlow" + c_tgrapherrors_geterrorxlow :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetErrorYlow" c_tgrapherrors_geterrorylow - :: (Ptr RawTGraphErrors) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorYhigh" + c_tgrapherrors_geterroryhigh :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_InitExpo" c_tgrapherrors_initexpo - :: (Ptr RawTGraphErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetErrorYlow" + c_tgrapherrors_geterrorylow :: + Ptr RawTGraphErrors -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_InitGaus" c_tgrapherrors_initgaus - :: (Ptr RawTGraphErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_InitExpo" + c_tgrapherrors_initexpo :: + Ptr RawTGraphErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_InitPolynom" c_tgrapherrors_initpolynom - :: (Ptr RawTGraphErrors) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_InitGaus" + c_tgrapherrors_initgaus :: + Ptr RawTGraphErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_InsertPoint" c_tgrapherrors_insertpoint - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_InitPolynom" + c_tgrapherrors_initpolynom :: + Ptr RawTGraphErrors -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_integralTGraph" c_tgrapherrors_integraltgraph - :: (Ptr RawTGraphErrors) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_InsertPoint" + c_tgrapherrors_insertpoint :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_IsEditable" c_tgrapherrors_iseditable - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_integralTGraph" + c_tgrapherrors_integraltgraph :: + Ptr RawTGraphErrors -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_isInsideTGraph" c_tgrapherrors_isinsidetgraph - :: (Ptr RawTGraphErrors) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_IsEditable" + c_tgrapherrors_iseditable :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_LeastSquareFit" c_tgrapherrors_leastsquarefit - :: (Ptr RawTGraphErrors) -> CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_isInsideTGraph" + c_tgrapherrors_isinsidetgraph :: + Ptr RawTGraphErrors -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_PaintStats" c_tgrapherrors_paintstats - :: (Ptr RawTGraphErrors) -> (Ptr RawTF1) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_LeastSquareFit" + c_tgrapherrors_leastsquarefit :: + Ptr RawTGraphErrors -> + CInt -> (Ptr CDouble) -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_RemovePoint" c_tgrapherrors_removepoint - :: (Ptr RawTGraphErrors) -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_PaintStats" + c_tgrapherrors_paintstats :: + Ptr RawTGraphErrors -> Ptr RawTF1 -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetEditable" c_tgrapherrors_seteditable - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_RemovePoint" + c_tgrapherrors_removepoint :: + Ptr RawTGraphErrors -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetHistogram" c_tgrapherrors_sethistogram - :: (Ptr RawTGraphErrors) -> (Ptr RawTH1F) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetEditable" + c_tgrapherrors_seteditable :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_setMaximumTGraph" c_tgrapherrors_setmaximumtgraph - :: (Ptr RawTGraphErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetHistogram" + c_tgrapherrors_sethistogram :: + Ptr RawTGraphErrors -> Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_setMinimumTGraph" c_tgrapherrors_setminimumtgraph - :: (Ptr RawTGraphErrors) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_setMaximumTGraph" + c_tgrapherrors_setmaximumtgraph :: + Ptr RawTGraphErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Set" c_tgrapherrors_set - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_setMinimumTGraph" + c_tgrapherrors_setminimumtgraph :: + Ptr RawTGraphErrors -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetPoint" c_tgrapherrors_setpoint - :: (Ptr RawTGraphErrors) -> CInt -> CDouble -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Set" c_tgrapherrors_set :: + Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetName" c_tgrapherrors_setname - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetPoint" + c_tgrapherrors_setpoint :: + Ptr RawTGraphErrors -> CInt -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetNameTitle" c_tgrapherrors_setnametitle - :: (Ptr RawTGraphErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetName" + c_tgrapherrors_setname :: Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetTitle" c_tgrapherrors_settitle - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetNameTitle" + c_tgrapherrors_setnametitle :: + Ptr RawTGraphErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetLineColor" c_tgrapherrors_getlinecolor - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetTitle" + c_tgrapherrors_settitle :: Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetLineStyle" c_tgrapherrors_getlinestyle - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetLineColor" + c_tgrapherrors_getlinecolor :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetLineWidth" c_tgrapherrors_getlinewidth - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetLineStyle" + c_tgrapherrors_getlinestyle :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_ResetAttLine" c_tgrapherrors_resetattline - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetLineWidth" + c_tgrapherrors_getlinewidth :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetLineAttributes" c_tgrapherrors_setlineattributes - :: (Ptr RawTGraphErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_ResetAttLine" + c_tgrapherrors_resetattline :: + Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetLineColor" c_tgrapherrors_setlinecolor - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetLineAttributes" + c_tgrapherrors_setlineattributes :: Ptr RawTGraphErrors -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetLineStyle" c_tgrapherrors_setlinestyle - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetLineColor" + c_tgrapherrors_setlinecolor :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetLineWidth" c_tgrapherrors_setlinewidth - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetLineStyle" + c_tgrapherrors_setlinestyle :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetFillColor" c_tgrapherrors_setfillcolor - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetLineWidth" + c_tgrapherrors_setlinewidth :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetFillStyle" c_tgrapherrors_setfillstyle - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetFillColor" + c_tgrapherrors_setfillcolor :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerColor" c_tgrapherrors_getmarkercolor - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetFillStyle" + c_tgrapherrors_setfillstyle :: Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerStyle" c_tgrapherrors_getmarkerstyle - :: (Ptr RawTGraphErrors) -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerColor" + c_tgrapherrors_getmarkercolor :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerSize" c_tgrapherrors_getmarkersize - :: (Ptr RawTGraphErrors) -> IO CDouble +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerStyle" + c_tgrapherrors_getmarkerstyle :: Ptr RawTGraphErrors -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_ResetAttMarker" c_tgrapherrors_resetattmarker - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetMarkerSize" + c_tgrapherrors_getmarkersize :: Ptr RawTGraphErrors -> IO CDouble -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerAttributes" c_tgrapherrors_setmarkerattributes - :: (Ptr RawTGraphErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_ResetAttMarker" + c_tgrapherrors_resetattmarker :: + Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerColor" c_tgrapherrors_setmarkercolor - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerAttributes" + c_tgrapherrors_setmarkerattributes :: Ptr RawTGraphErrors -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerStyle" c_tgrapherrors_setmarkerstyle - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerColor" + c_tgrapherrors_setmarkercolor :: + Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerSize" c_tgrapherrors_setmarkersize - :: (Ptr RawTGraphErrors) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerStyle" + c_tgrapherrors_setmarkerstyle :: + Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Draw" c_tgrapherrors_draw - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SetMarkerSize" + c_tgrapherrors_setmarkersize :: + Ptr RawTGraphErrors -> CInt -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_FindObject" c_tgrapherrors_findobject - :: (Ptr RawTGraphErrors) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Draw" c_tgrapherrors_draw :: + Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_GetName" c_tgrapherrors_getname - :: (Ptr RawTGraphErrors) -> IO CString +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_FindObject" + c_tgrapherrors_findobject :: + Ptr RawTGraphErrors -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_IsA" c_tgrapherrors_isa - :: (Ptr RawTGraphErrors) -> IO (Ptr RawTClass) +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_GetName" + c_tgrapherrors_getname :: Ptr RawTGraphErrors -> IO CString -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Paint" c_tgrapherrors_paint - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_IsA" c_tgrapherrors_isa :: + Ptr RawTGraphErrors -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_printObj" c_tgrapherrors_printobj - :: (Ptr RawTGraphErrors) -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Paint" c_tgrapherrors_paint + :: Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_SaveAs" c_tgrapherrors_saveas - :: (Ptr RawTGraphErrors) -> CString -> CString -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_printObj" + c_tgrapherrors_printobj :: Ptr RawTGraphErrors -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_Write" c_tgrapherrors_write - :: (Ptr RawTGraphErrors) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_SaveAs" c_tgrapherrors_saveas + :: Ptr RawTGraphErrors -> CString -> CString -> IO () -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_delete" c_tgrapherrors_delete - :: (Ptr RawTGraphErrors) -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_Write" c_tgrapherrors_write + :: Ptr RawTGraphErrors -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTGraphErrors.h TGraphErrors_newTGraphErrors" c_tgrapherrors_newtgrapherrors - :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphErrors) +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_delete" c_tgrapherrors_delete + :: Ptr RawTGraphErrors -> IO () +foreign import ccall safe + "HROOTHistTGraphErrors.h TGraphErrors_newTGraphErrors" + c_tgrapherrors_newtgrapherrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> IO (Ptr RawTGraphErrors) diff --git a/src/HROOT/Hist/TGraphErrors/Implementation.hs b/src/HROOT/Hist/TGraphErrors/Implementation.hs --- a/src/HROOT/Hist/TGraphErrors/Implementation.hs +++ b/src/HROOT/Hist/TGraphErrors/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphErrors.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TGraphErrors.RawType import HROOT.Hist.TGraphErrors.FFI import HROOT.Hist.TGraphErrors.Interface @@ -45,166 +46,87 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITGraphErrors TGraphErrors -instance ITGraphErrors TGraphErrors where instance ITGraph TGraphErrors where - apply = xform1 c_tgrapherrors_apply - chisquare = xform1 c_tgrapherrors_chisquare - drawGraph = xform4 c_tgrapherrors_drawgraph - drawPanelTGraph = xform0 c_tgrapherrors_drawpaneltgraph - expand = xform2 c_tgrapherrors_expand - fitPanelTGraph = xform0 c_tgrapherrors_fitpaneltgraph - getCorrelationFactorTGraph = xform0 c_tgrapherrors_getcorrelationfactortgraph - getCovarianceTGraph = xform0 c_tgrapherrors_getcovariancetgraph - getMeanTGraph = xform1 c_tgrapherrors_getmeantgraph - getRMSTGraph = xform1 c_tgrapherrors_getrmstgraph - getErrorX = xform1 c_tgrapherrors_geterrorx - getErrorY = xform1 c_tgrapherrors_geterrory - getErrorXhigh = xform1 c_tgrapherrors_geterrorxhigh - getErrorXlow = xform1 c_tgrapherrors_geterrorxlow - getErrorYhigh = xform1 c_tgrapherrors_geterroryhigh - getErrorYlow = xform1 c_tgrapherrors_geterrorylow - initExpo = xform2 c_tgrapherrors_initexpo - initGaus = xform2 c_tgrapherrors_initgaus - initPolynom = xform2 c_tgrapherrors_initpolynom - insertPoint = xform0 c_tgrapherrors_insertpoint - integralTGraph = xform2 c_tgrapherrors_integraltgraph - isEditable = xform0 c_tgrapherrors_iseditable - isInsideTGraph = xform2 c_tgrapherrors_isinsidetgraph - leastSquareFit = xform4 c_tgrapherrors_leastsquarefit - paintStats = xform1 c_tgrapherrors_paintstats - removePoint = xform1 c_tgrapherrors_removepoint - setEditable = xform1 c_tgrapherrors_seteditable - setHistogram = xform1 c_tgrapherrors_sethistogram - setMaximumTGraph = xform1 c_tgrapherrors_setmaximumtgraph - setMinimumTGraph = xform1 c_tgrapherrors_setminimumtgraph - set = xform1 c_tgrapherrors_set - setPoint = xform3 c_tgrapherrors_setpoint + apply = xform1 c_tgrapherrors_apply + chisquare = xform1 c_tgrapherrors_chisquare + drawGraph = xform4 c_tgrapherrors_drawgraph + drawPanelTGraph = xform0 c_tgrapherrors_drawpaneltgraph + expand = xform2 c_tgrapherrors_expand + fitPanelTGraph = xform0 c_tgrapherrors_fitpaneltgraph + getCorrelationFactorTGraph + = xform0 c_tgrapherrors_getcorrelationfactortgraph + getCovarianceTGraph = xform0 c_tgrapherrors_getcovariancetgraph + getMeanTGraph = xform1 c_tgrapherrors_getmeantgraph + getRMSTGraph = xform1 c_tgrapherrors_getrmstgraph + getErrorX = xform1 c_tgrapherrors_geterrorx + getErrorY = xform1 c_tgrapherrors_geterrory + getErrorXhigh = xform1 c_tgrapherrors_geterrorxhigh + getErrorXlow = xform1 c_tgrapherrors_geterrorxlow + getErrorYhigh = xform1 c_tgrapherrors_geterroryhigh + getErrorYlow = xform1 c_tgrapherrors_geterrorylow + initExpo = xform2 c_tgrapherrors_initexpo + initGaus = xform2 c_tgrapherrors_initgaus + initPolynom = xform2 c_tgrapherrors_initpolynom + insertPoint = xform0 c_tgrapherrors_insertpoint + integralTGraph = xform2 c_tgrapherrors_integraltgraph + isEditable = xform0 c_tgrapherrors_iseditable + isInsideTGraph = xform2 c_tgrapherrors_isinsidetgraph + leastSquareFit = xform4 c_tgrapherrors_leastsquarefit + paintStats = xform1 c_tgrapherrors_paintstats + removePoint = xform1 c_tgrapherrors_removepoint + setEditable = xform1 c_tgrapherrors_seteditable + setHistogram = xform1 c_tgrapherrors_sethistogram + setMaximumTGraph = xform1 c_tgrapherrors_setmaximumtgraph + setMinimumTGraph = xform1 c_tgrapherrors_setminimumtgraph + set = xform1 c_tgrapherrors_set + setPoint = xform3 c_tgrapherrors_setpoint + instance ITNamed TGraphErrors where - setName = xform1 c_tgrapherrors_setname - setNameTitle = xform2 c_tgrapherrors_setnametitle - setTitle = xform1 c_tgrapherrors_settitle + setName = xform1 c_tgrapherrors_setname + setNameTitle = xform2 c_tgrapherrors_setnametitle + setTitle = xform1 c_tgrapherrors_settitle + instance ITAttLine TGraphErrors where - getLineColor = xform0 c_tgrapherrors_getlinecolor - getLineStyle = xform0 c_tgrapherrors_getlinestyle - getLineWidth = xform0 c_tgrapherrors_getlinewidth - resetAttLine = xform1 c_tgrapherrors_resetattline - setLineAttributes = xform0 c_tgrapherrors_setlineattributes - setLineColor = xform1 c_tgrapherrors_setlinecolor - setLineStyle = xform1 c_tgrapherrors_setlinestyle - setLineWidth = xform1 c_tgrapherrors_setlinewidth + getLineColor = xform0 c_tgrapherrors_getlinecolor + getLineStyle = xform0 c_tgrapherrors_getlinestyle + getLineWidth = xform0 c_tgrapherrors_getlinewidth + resetAttLine = xform1 c_tgrapherrors_resetattline + setLineAttributes = xform0 c_tgrapherrors_setlineattributes + setLineColor = xform1 c_tgrapherrors_setlinecolor + setLineStyle = xform1 c_tgrapherrors_setlinestyle + setLineWidth = xform1 c_tgrapherrors_setlinewidth + instance ITAttFill TGraphErrors where - setFillColor = xform1 c_tgrapherrors_setfillcolor - setFillStyle = xform1 c_tgrapherrors_setfillstyle -instance ITAttMarker TGraphErrors where - getMarkerColor = xform0 c_tgrapherrors_getmarkercolor - getMarkerStyle = xform0 c_tgrapherrors_getmarkerstyle - getMarkerSize = xform0 c_tgrapherrors_getmarkersize - resetAttMarker = xform1 c_tgrapherrors_resetattmarker - setMarkerAttributes = xform0 c_tgrapherrors_setmarkerattributes - setMarkerColor = xform1 c_tgrapherrors_setmarkercolor - setMarkerStyle = xform1 c_tgrapherrors_setmarkerstyle - setMarkerSize = xform1 c_tgrapherrors_setmarkersize -instance ITObject TGraphErrors where - draw = xform1 c_tgrapherrors_draw - findObject = xform1 c_tgrapherrors_findobject - getName = xform0 c_tgrapherrors_getname - isA = xform0 c_tgrapherrors_isa - paint = xform1 c_tgrapherrors_paint - printObj = xform1 c_tgrapherrors_printobj - saveAs = xform2 c_tgrapherrors_saveas - write = xform3 c_tgrapherrors_write -instance IDeletable TGraphErrors where - delete = xform0 c_tgrapherrors_delete + setFillColor = xform1 c_tgrapherrors_setfillcolor + setFillStyle = xform1 c_tgrapherrors_setfillstyle -instance ITGraphErrors (Exist TGraphErrors) where +instance ITAttMarker TGraphErrors where + getMarkerColor = xform0 c_tgrapherrors_getmarkercolor + getMarkerStyle = xform0 c_tgrapherrors_getmarkerstyle + getMarkerSize = xform0 c_tgrapherrors_getmarkersize + resetAttMarker = xform1 c_tgrapherrors_resetattmarker + setMarkerAttributes = xform0 c_tgrapherrors_setmarkerattributes + setMarkerColor = xform1 c_tgrapherrors_setmarkercolor + setMarkerStyle = xform1 c_tgrapherrors_setmarkerstyle + setMarkerSize = xform1 c_tgrapherrors_setmarkersize -instance ITGraph (Exist TGraphErrors) where - apply (ETGraphErrors x) = apply x - chisquare (ETGraphErrors x) = chisquare x - drawGraph (ETGraphErrors x) = drawGraph x - drawPanelTGraph (ETGraphErrors x) = drawPanelTGraph x - expand (ETGraphErrors x) = expand x - fitPanelTGraph (ETGraphErrors x) = fitPanelTGraph x - getCorrelationFactorTGraph (ETGraphErrors x) = getCorrelationFactorTGraph x - getCovarianceTGraph (ETGraphErrors x) = getCovarianceTGraph x - getMeanTGraph (ETGraphErrors x) = getMeanTGraph x - getRMSTGraph (ETGraphErrors x) = getRMSTGraph x - getErrorX (ETGraphErrors x) = getErrorX x - getErrorY (ETGraphErrors x) = getErrorY x - getErrorXhigh (ETGraphErrors x) = getErrorXhigh x - getErrorXlow (ETGraphErrors x) = getErrorXlow x - getErrorYhigh (ETGraphErrors x) = getErrorYhigh x - getErrorYlow (ETGraphErrors x) = getErrorYlow x - initExpo (ETGraphErrors x) = initExpo x - initGaus (ETGraphErrors x) = initGaus x - initPolynom (ETGraphErrors x) = initPolynom x - insertPoint (ETGraphErrors x) = insertPoint x - integralTGraph (ETGraphErrors x) = integralTGraph x - isEditable (ETGraphErrors x) = isEditable x - isInsideTGraph (ETGraphErrors x) = isInsideTGraph x - leastSquareFit (ETGraphErrors x) = leastSquareFit x - paintStats (ETGraphErrors x) = paintStats x - removePoint (ETGraphErrors x) = removePoint x - setEditable (ETGraphErrors x) = setEditable x - setHistogram (ETGraphErrors x) = setHistogram x - setMaximumTGraph (ETGraphErrors x) = setMaximumTGraph x - setMinimumTGraph (ETGraphErrors x) = setMinimumTGraph x - set (ETGraphErrors x) = set x - setPoint (ETGraphErrors x) = setPoint x -instance ITNamed (Exist TGraphErrors) where - setName (ETGraphErrors x) = setName x - setNameTitle (ETGraphErrors x) = setNameTitle x - setTitle (ETGraphErrors x) = setTitle x -instance ITAttLine (Exist TGraphErrors) where - getLineColor (ETGraphErrors x) = getLineColor x - getLineStyle (ETGraphErrors x) = getLineStyle x - getLineWidth (ETGraphErrors x) = getLineWidth x - resetAttLine (ETGraphErrors x) = resetAttLine x - setLineAttributes (ETGraphErrors x) = setLineAttributes x - setLineColor (ETGraphErrors x) = setLineColor x - setLineStyle (ETGraphErrors x) = setLineStyle x - setLineWidth (ETGraphErrors x) = setLineWidth x -instance ITAttFill (Exist TGraphErrors) where - setFillColor (ETGraphErrors x) = setFillColor x - setFillStyle (ETGraphErrors x) = setFillStyle x -instance ITAttMarker (Exist TGraphErrors) where - getMarkerColor (ETGraphErrors x) = getMarkerColor x - getMarkerStyle (ETGraphErrors x) = getMarkerStyle x - getMarkerSize (ETGraphErrors x) = getMarkerSize x - resetAttMarker (ETGraphErrors x) = resetAttMarker x - setMarkerAttributes (ETGraphErrors x) = setMarkerAttributes x - setMarkerColor (ETGraphErrors x) = setMarkerColor x - setMarkerStyle (ETGraphErrors x) = setMarkerStyle x - setMarkerSize (ETGraphErrors x) = setMarkerSize x -instance ITObject (Exist TGraphErrors) where - draw (ETGraphErrors x) = draw x - findObject (ETGraphErrors x) = findObject x - getName (ETGraphErrors x) = getName x - isA (ETGraphErrors x) = isA x - paint (ETGraphErrors x) = paint x - printObj (ETGraphErrors x) = printObj x - saveAs (ETGraphErrors x) = saveAs x - write (ETGraphErrors x) = write x -instance IDeletable (Exist TGraphErrors) where - delete (ETGraphErrors x) = delete x +instance ITObject TGraphErrors where + draw = xform1 c_tgrapherrors_draw + findObject = xform1 c_tgrapherrors_findobject + getName = xform0 c_tgrapherrors_getname + isA = xform0 c_tgrapherrors_isa + paint = xform1 c_tgrapherrors_paint + printObj = xform1 c_tgrapherrors_printobj + saveAs = xform2 c_tgrapherrors_saveas + write = xform3 c_tgrapherrors_write +instance IDeletable TGraphErrors where + delete = xform0 c_tgrapherrors_delete -newTGraphErrors :: CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphErrors +newTGraphErrors :: + CInt -> + (Ptr CDouble) -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> IO TGraphErrors newTGraphErrors = xform4 c_tgrapherrors_newtgrapherrors - - - - - -instance FPtr (Exist TGraphErrors) where - type Raw (Exist TGraphErrors) = RawTGraphErrors - get_fptr (ETGraphErrors obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETGraphErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphErrors) :: TGraphErrors) diff --git a/src/HROOT/Hist/TGraphErrors/Interface.hs b/src/HROOT/Hist/TGraphErrors/Interface.hs --- a/src/HROOT/Hist/TGraphErrors/Interface.hs +++ b/src/HROOT/Hist/TGraphErrors/Interface.hs @@ -1,36 +1,27 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TGraphErrors.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TGraphErrors.RawType - import HROOT.Hist.TGraph.Interface ----- ============ ---- - - -class (ITGraph a) => ITGraphErrors a where - -instance Existable TGraphErrors where - data Exist TGraphErrors = forall a. (FPtr a, ITGraphErrors a) => ETGraphErrors a +class ITGraph a => ITGraphErrors a -upcastTGraphErrors :: (FPtr a, ITGraphErrors a) => a -> TGraphErrors -upcastTGraphErrors h = let fh = get_fptr h - fh2 :: ForeignPtr RawTGraphErrors = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTGraphErrors :: + forall a . (FPtr a, ITGraphErrors a) => a -> TGraphErrors +upcastTGraphErrors h + = let fh = get_fptr h + fh2 :: Ptr RawTGraphErrors = castPtr fh + in cast_fptr_to_obj fh2 -downcastTGraphErrors :: (FPtr a, ITGraphErrors a) => TGraphErrors -> a -downcastTGraphErrors h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTGraphErrors :: + forall a . (FPtr a, ITGraphErrors a) => TGraphErrors -> a +downcastTGraphErrors h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TGraphErrors/RawType.hs b/src/HROOT/Hist/TGraphErrors/RawType.hs --- a/src/HROOT/Hist/TGraphErrors/RawType.hs +++ b/src/HROOT/Hist/TGraphErrors/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TGraphErrors.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTGraphErrors -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TGraphErrors = TGraphErrors (Ptr RawTGraphErrors) + deriving (Eq, Ord, Show) -data RawTGraphErrors -newtype TGraphErrors = TGraphErrors (ForeignPtr RawTGraphErrors) deriving (Eq, Ord, Show) instance FPtr TGraphErrors where - type Raw TGraphErrors = RawTGraphErrors - get_fptr (TGraphErrors fptr) = fptr - cast_fptr_to_obj = TGraphErrors + type Raw TGraphErrors = RawTGraphErrors + get_fptr (TGraphErrors ptr) = ptr + cast_fptr_to_obj = TGraphErrors diff --git a/src/HROOT/Hist/TH1.hs b/src/HROOT/Hist/TH1.hs --- a/src/HROOT/Hist/TH1.hs +++ b/src/HROOT/Hist/TH1.hs @@ -1,26 +1,11 @@ module HROOT.Hist.TH1 - ( - TH1(..) - , ITH1(..) - , upcastTH1 - , downcastTH1 - , tH1GetAsymmetry - , tH1GetBufferLength - , tH1GetBufferSize - , tH1GetDirectory - , tH1IsBinOverflow - , tH1IsBinUnderflow - , tH1UseCurrentStyle - , tH1GetDefaultBufferSize - , tH1GetDefaultSumw2 - , tH1SetDefaultBufferSize - , tH1SetDefaultSumw2 - , tH1SmoothArray - , tH1StatOverflows - ) where - + (TH1(..), ITH1(..), upcastTH1, downcastTH1, tH1GetAsymmetry, + tH1GetBufferLength, tH1GetBufferSize, tH1GetDirectory, + tH1IsBinOverflow, tH1IsBinUnderflow, tH1UseCurrentStyle, + tH1GetDefaultBufferSize, tH1GetDefaultSumw2, + tH1SetDefaultBufferSize, tH1SetDefaultSumw2, tH1SmoothArray, + tH1StatOverflows) + where import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Interface import HROOT.Hist.TH1.Implementation - - diff --git a/src/HROOT/Hist/TH1/Cast.hs b/src/HROOT/Hist/TH1/Cast.hs --- a/src/HROOT/Hist/TH1/Cast.hs +++ b/src/HROOT/Hist/TH1/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Interface instance (ITH1 a, FPtr a) => Castable a (Ptr RawTH1) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1 (Ptr RawTH1) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1/FFI.hsc b/src/HROOT/Hist/TH1/FFI.hsc --- a/src/HROOT/Hist/TH1/FFI.hsc +++ b/src/HROOT/Hist/TH1/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1.RawType import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType @@ -20,515 +10,559 @@ import HROOT.Core.TArrayD.RawType import HROOT.Hist.TAxis.RawType -#include "HROOTHistTH1.h" +foreign import ccall safe "HROOTHistTH1.h TH1_SetName" + c_th1_setname :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Draw" c_th1_draw - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetNameTitle" + c_th1_setnametitle :: Ptr RawTH1 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_FindObject" c_th1_findobject - :: (Ptr RawTH1) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1.h TH1_SetTitle" + c_th1_settitle :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetName" c_th1_getname - :: (Ptr RawTH1) -> IO CString +foreign import ccall safe "HROOTHistTH1.h TH1_GetLineColor" + c_th1_getlinecolor :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_IsA" c_th1_isa - :: (Ptr RawTH1) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1.h TH1_GetLineStyle" + c_th1_getlinestyle :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_Paint" c_th1_paint - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetLineWidth" + c_th1_getlinewidth :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_printObj" c_th1_printobj - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ResetAttLine" + c_th1_resetattline :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SaveAs" c_th1_saveas - :: (Ptr RawTH1) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetLineAttributes" + c_th1_setlineattributes :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Write" c_th1_write - :: (Ptr RawTH1) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetLineColor" + c_th1_setlinecolor :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetLineColor" c_th1_getlinecolor - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetLineStyle" + c_th1_setlinestyle :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetLineStyle" c_th1_getlinestyle - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetLineWidth" + c_th1_setlinewidth :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetLineWidth" c_th1_getlinewidth - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetFillColor" + c_th1_setfillcolor :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ResetAttLine" c_th1_resetattline - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetFillStyle" + c_th1_setfillstyle :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetLineAttributes" c_th1_setlineattributes - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetMarkerColor" + c_th1_getmarkercolor :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_SetLineColor" c_th1_setlinecolor - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetMarkerStyle" + c_th1_getmarkerstyle :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_SetLineStyle" c_th1_setlinestyle - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetMarkerSize" + c_th1_getmarkersize :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_SetLineWidth" c_th1_setlinewidth - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ResetAttMarker" + c_th1_resetattmarker :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetFillColor" c_th1_setfillcolor - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetMarkerAttributes" + c_th1_setmarkerattributes :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetFillStyle" c_th1_setfillstyle - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetMarkerColor" + c_th1_setmarkercolor :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetMarkerColor" c_th1_getmarkercolor - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetMarkerStyle" + c_th1_setmarkerstyle :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetMarkerStyle" c_th1_getmarkerstyle - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetMarkerSize" + c_th1_setmarkersize :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetMarkerSize" c_th1_getmarkersize - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_Draw" c_th1_draw :: + Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ResetAttMarker" c_th1_resetattmarker - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_FindObject" + c_th1_findobject :: Ptr RawTH1 -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1.h TH1_SetMarkerAttributes" c_th1_setmarkerattributes - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetName" + c_th1_getname :: Ptr RawTH1 -> IO CString -foreign import ccall "HROOTHistTH1.h TH1_SetMarkerColor" c_th1_setmarkercolor - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_IsA" c_th1_isa :: + Ptr RawTH1 -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1.h TH1_SetMarkerStyle" c_th1_setmarkerstyle - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Paint" c_th1_paint :: + Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetMarkerSize" c_th1_setmarkersize - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_printObj" + c_th1_printobj :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_delete" c_th1_delete - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SaveAs" c_th1_saveas + :: Ptr RawTH1 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Add" c_th1_add - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Write" c_th1_write :: + Ptr RawTH1 -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_AddBinContent" c_th1_addbincontent - :: (Ptr RawTH1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_delete" c_th1_delete + :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Chi2Test" c_th1_chi2test - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_Add" c_th1_add :: + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ComputeIntegral" c_th1_computeintegral - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_AddBinContent" + c_th1_addbincontent :: Ptr RawTH1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_DirectoryAutoAdd" c_th1_directoryautoadd - :: (Ptr RawTH1) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Chi2Test" + c_th1_chi2test :: + Ptr RawTH1 -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_Divide" c_th1_divide - :: (Ptr RawTH1) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ComputeIntegral" + c_th1_computeintegral :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_drawCopyTH1" c_th1_drawcopyth1 - :: (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_DirectoryAutoAdd" + c_th1_directoryautoadd :: Ptr RawTH1 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1.h TH1_DrawNormalized" c_th1_drawnormalized - :: (Ptr RawTH1) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_Divide" c_th1_divide + :: + Ptr RawTH1 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_drawPanelTH1" c_th1_drawpanelth1 - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_drawCopyTH1" + c_th1_drawcopyth1 :: Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_BufferEmpty" c_th1_bufferempty - :: (Ptr RawTH1) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_DrawNormalized" + c_th1_drawnormalized :: + Ptr RawTH1 -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_evalF" c_th1_evalf - :: (Ptr RawTH1) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_drawPanelTH1" + c_th1_drawpanelth1 :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_FFT" c_th1_fft - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_BufferEmpty" + c_th1_bufferempty :: Ptr RawTH1 -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_fill1" c_th1_fill1 - :: (Ptr RawTH1) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_evalF" c_th1_evalf :: + Ptr RawTH1 -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_fill1w" c_th1_fill1w - :: (Ptr RawTH1) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_FFT" c_th1_fft :: + Ptr RawTH1 -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_fillN1" c_th1_filln1 - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_fill1" c_th1_fill1 :: + Ptr RawTH1 -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_FillRandom" c_th1_fillrandom - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_fill1w" c_th1_fill1w + :: Ptr RawTH1 -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_FindBin" c_th1_findbin - :: (Ptr RawTH1) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_fillN1" c_th1_filln1 + :: + Ptr RawTH1 -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_FindFixBin" c_th1_findfixbin - :: (Ptr RawTH1) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_FillRandom" + c_th1_fillrandom :: Ptr RawTH1 -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_FindFirstBinAbove" c_th1_findfirstbinabove - :: (Ptr RawTH1) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_FindBin" + c_th1_findbin :: + Ptr RawTH1 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_FindLastBinAbove" c_th1_findlastbinabove - :: (Ptr RawTH1) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_FindFixBin" + c_th1_findfixbin :: + Ptr RawTH1 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_FitPanelTH1" c_th1_fitpanelth1 - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_FindFirstBinAbove" + c_th1_findfirstbinabove :: Ptr RawTH1 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_tH1GetAsymmetry" c_th1_th1getasymmetry - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_FindLastBinAbove" + c_th1_findlastbinabove :: Ptr RawTH1 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_tH1GetBufferLength" c_th1_th1getbufferlength - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_Fit" c_th1_fit :: + Ptr RawTH1 -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1GetBufferSize" c_th1_th1getbuffersize - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_FitPanelTH1" + c_th1_fitpanelth1 :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1GetDefaultBufferSize" c_th1_th1getdefaultbuffersize - :: IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_tH1GetAsymmetry" + c_th1_th1getasymmetry :: + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_getNdivisionA" c_th1_getndivisiona - :: (Ptr RawTH1) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_tH1GetBufferLength" + c_th1_th1getbufferlength :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getAxisColorA" c_th1_getaxiscolora - :: (Ptr RawTH1) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_tH1GetBufferSize" + c_th1_th1getbuffersize :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getLabelColorA" c_th1_getlabelcolora - :: (Ptr RawTH1) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH1.h TH1_tH1GetDefaultBufferSize" + c_th1_th1getdefaultbuffersize :: IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getLabelFontA" c_th1_getlabelfonta - :: (Ptr RawTH1) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_getNdivisionA" + c_th1_getndivisiona :: Ptr RawTH1 -> CString -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getLabelOffsetA" c_th1_getlabeloffseta - :: (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getAxisColorA" + c_th1_getaxiscolora :: Ptr RawTH1 -> CString -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getLabelSizeA" c_th1_getlabelsizea - :: (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getLabelColorA" + c_th1_getlabelcolora :: Ptr RawTH1 -> CString -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getTitleFontA" c_th1_gettitlefonta - :: (Ptr RawTH1) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_getLabelFontA" + c_th1_getlabelfonta :: Ptr RawTH1 -> CString -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_getTitleOffsetA" c_th1_gettitleoffseta - :: (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getLabelOffsetA" + c_th1_getlabeloffseta :: Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_getTitleSizeA" c_th1_gettitlesizea - :: (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getLabelSizeA" + c_th1_getlabelsizea :: Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_getTickLengthA" c_th1_getticklengtha - :: (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getTitleFontA" + c_th1_gettitlefonta :: Ptr RawTH1 -> CString -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetBarOffset" c_th1_getbaroffset - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getTitleOffsetA" + c_th1_gettitleoffseta :: Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBarWidth" c_th1_getbarwidth - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getTitleSizeA" + c_th1_gettitlesizea :: Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetContour" c_th1_getcontour - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_getTickLengthA" + c_th1_getticklengtha :: Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetContourLevel" c_th1_getcontourlevel - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBarOffset" + c_th1_getbaroffset :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetContourLevelPad" c_th1_getcontourlevelpad - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBarWidth" + c_th1_getbarwidth :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBin" c_th1_getbin - :: (Ptr RawTH1) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetContour" + c_th1_getcontour :: Ptr RawTH1 -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetBinCenter" c_th1_getbincenter - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetContourLevel" + c_th1_getcontourlevel :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinContent1" c_th1_getbincontent1 - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetContourLevelPad" + c_th1_getcontourlevelpad :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinContent2" c_th1_getbincontent2 - :: (Ptr RawTH1) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBin" c_th1_getbin + :: Ptr RawTH1 -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetBinContent3" c_th1_getbincontent3 - :: (Ptr RawTH1) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinCenter" + c_th1_getbincenter :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinError1" c_th1_getbinerror1 - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinContent1" + c_th1_getbincontent1 :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinError2" c_th1_getbinerror2 - :: (Ptr RawTH1) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinContent2" + c_th1_getbincontent2 :: Ptr RawTH1 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinError3" c_th1_getbinerror3 - :: (Ptr RawTH1) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinContent3" + c_th1_getbincontent3 :: + Ptr RawTH1 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinLowEdge" c_th1_getbinlowedge - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinError1" + c_th1_getbinerror1 :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetBinWidth" c_th1_getbinwidth - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinError2" + c_th1_getbinerror2 :: Ptr RawTH1 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetCellContent" c_th1_getcellcontent - :: (Ptr RawTH1) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinError3" + c_th1_getbinerror3 :: + Ptr RawTH1 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetCellError" c_th1_getcellerror - :: (Ptr RawTH1) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinLowEdge" + c_th1_getbinlowedge :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_tH1GetDefaultSumw2" c_th1_th1getdefaultsumw2 - :: IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetBinWidth" + c_th1_getbinwidth :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_tH1GetDirectory" c_th1_th1getdirectory - :: (Ptr RawTH1) -> IO (Ptr RawTDirectory) +foreign import ccall safe "HROOTHistTH1.h TH1_GetCellContent" + c_th1_getcellcontent :: Ptr RawTH1 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetEntries" c_th1_getentries - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetCellError" + c_th1_getcellerror :: Ptr RawTH1 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetEffectiveEntries" c_th1_geteffectiveentries - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_tH1GetDefaultSumw2" + c_th1_th1getdefaultsumw2 :: IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetFunction" c_th1_getfunction - :: (Ptr RawTH1) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1.h TH1_tH1GetDirectory" + c_th1_th1getdirectory :: Ptr RawTH1 -> IO (Ptr RawTDirectory) -foreign import ccall "HROOTHistTH1.h TH1_GetDimension" c_th1_getdimension - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetEntries" + c_th1_getentries :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetKurtosis" c_th1_getkurtosis - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetEffectiveEntries" + c_th1_geteffectiveentries :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetLowEdge" c_th1_getlowedge - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetFunction" + c_th1_getfunction :: Ptr RawTH1 -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1.h TH1_getMaximumTH1" c_th1_getmaximumth1 - :: (Ptr RawTH1) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetDimension" + c_th1_getdimension :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetMaximumBin" c_th1_getmaximumbin - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetKurtosis" + c_th1_getkurtosis :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetMaximumStored" c_th1_getmaximumstored - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetLowEdge" + c_th1_getlowedge :: Ptr RawTH1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_getMinimumTH1" c_th1_getminimumth1 - :: (Ptr RawTH1) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getMaximumTH1" + c_th1_getmaximumth1 :: Ptr RawTH1 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetMinimumBin" c_th1_getminimumbin - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetMaximumBin" + c_th1_getmaximumbin :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetMinimumStored" c_th1_getminimumstored - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetMaximumStored" + c_th1_getmaximumstored :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetMean" c_th1_getmean - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getMinimumTH1" + c_th1_getminimumth1 :: Ptr RawTH1 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetMeanError" c_th1_getmeanerror - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetMinimumBin" + c_th1_getminimumbin :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetNbinsX" c_th1_getnbinsx - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetMinimumStored" + c_th1_getminimumstored :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetNbinsY" c_th1_getnbinsy - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetMean" + c_th1_getmean :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetNbinsZ" c_th1_getnbinsz - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetMeanError" + c_th1_getmeanerror :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_getQuantilesTH1" c_th1_getquantilesth1 - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetNbinsX" + c_th1_getnbinsx :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetRandom" c_th1_getrandom - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetNbinsY" + c_th1_getnbinsy :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetStats" c_th1_getstats - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_GetNbinsZ" + c_th1_getnbinsz :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetSumOfWeights" c_th1_getsumofweights - :: (Ptr RawTH1) -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_getQuantilesTH1" + c_th1_getquantilesth1 :: + Ptr RawTH1 -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_GetSumw2" c_th1_getsumw2 - :: (Ptr RawTH1) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1.h TH1_GetRandom" + c_th1_getrandom :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetSumw2N" c_th1_getsumw2n - :: (Ptr RawTH1) -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_GetStats" + c_th1_getstats :: Ptr RawTH1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_GetRMS" c_th1_getrms - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetSumOfWeights" + c_th1_getsumofweights :: Ptr RawTH1 -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_GetRMSError" c_th1_getrmserror - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetSumw2" + c_th1_getsumw2 :: Ptr RawTH1 -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1.h TH1_GetSkewness" c_th1_getskewness - :: (Ptr RawTH1) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetSumw2N" + c_th1_getsumw2n :: Ptr RawTH1 -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_integral1" c_th1_integral1 - :: (Ptr RawTH1) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetRMS" c_th1_getrms + :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_interpolate1" c_th1_interpolate1 - :: (Ptr RawTH1) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetRMSError" + c_th1_getrmserror :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_interpolate2" c_th1_interpolate2 - :: (Ptr RawTH1) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_GetSkewness" + c_th1_getskewness :: Ptr RawTH1 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_interpolate3" c_th1_interpolate3 - :: (Ptr RawTH1) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_integral1" + c_th1_integral1 :: + Ptr RawTH1 -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_tH1IsBinOverflow" c_th1_th1isbinoverflow - :: (Ptr RawTH1) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_interpolate1" + c_th1_interpolate1 :: Ptr RawTH1 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_tH1IsBinUnderflow" c_th1_th1isbinunderflow - :: (Ptr RawTH1) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_interpolate2" + c_th1_interpolate2 :: + Ptr RawTH1 -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_KolmogorovTest" c_th1_kolmogorovtest - :: (Ptr RawTH1) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1.h TH1_interpolate3" + c_th1_interpolate3 :: + Ptr RawTH1 -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_LabelsDeflate" c_th1_labelsdeflate - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_tH1IsBinOverflow" + c_th1_th1isbinoverflow :: Ptr RawTH1 -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_LabelsInflate" c_th1_labelsinflate - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_tH1IsBinUnderflow" + c_th1_th1isbinunderflow :: Ptr RawTH1 -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_LabelsOption" c_th1_labelsoption - :: (Ptr RawTH1) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_KolmogorovTest" + c_th1_kolmogorovtest :: + Ptr RawTH1 -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1.h TH1_multiflyF" c_th1_multiflyf - :: (Ptr RawTH1) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_LabelsDeflate" + c_th1_labelsdeflate :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Multiply" c_th1_multiply - :: (Ptr RawTH1) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_LabelsInflate" + c_th1_labelsinflate :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_PutStats" c_th1_putstats - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_LabelsOption" + c_th1_labelsoption :: Ptr RawTH1 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Rebin" c_th1_rebin - :: (Ptr RawTH1) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_multiflyF" + c_th1_multiflyf :: Ptr RawTH1 -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_RebinAxis" c_th1_rebinaxis - :: (Ptr RawTH1) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Multiply" + c_th1_multiply :: + Ptr RawTH1 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Rebuild" c_th1_rebuild - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_PutStats" + c_th1_putstats :: Ptr RawTH1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_RecursiveRemove" c_th1_recursiveremove - :: (Ptr RawTH1) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Rebin" c_th1_rebin :: + Ptr RawTH1 -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_Reset" c_th1_reset - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_RebinAxis" + c_th1_rebinaxis :: Ptr RawTH1 -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ResetStats" c_th1_resetstats - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Rebuild" + c_th1_rebuild :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Scale" c_th1_scale - :: (Ptr RawTH1) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_RecursiveRemove" + c_th1_recursiveremove :: Ptr RawTH1 -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setAxisColorA" c_th1_setaxiscolora - :: (Ptr RawTH1) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Reset" c_th1_reset :: + Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetAxisRange" c_th1_setaxisrange - :: (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ResetStats" + c_th1_resetstats :: Ptr RawTH1 -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetBarOffset" c_th1_setbaroffset - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Scale" c_th1_scale :: + Ptr RawTH1 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetBarWidth" c_th1_setbarwidth - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setAxisColorA" + c_th1_setaxiscolora :: Ptr RawTH1 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinContent1" c_th1_setbincontent1 - :: (Ptr RawTH1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetAxisRange" + c_th1_setaxisrange :: + Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinContent2" c_th1_setbincontent2 - :: (Ptr RawTH1) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetBarOffset" + c_th1_setbaroffset :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinContent3" c_th1_setbincontent3 - :: (Ptr RawTH1) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetBarWidth" + c_th1_setbarwidth :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinError1" c_th1_setbinerror1 - :: (Ptr RawTH1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinContent1" + c_th1_setbincontent1 :: Ptr RawTH1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinError2" c_th1_setbinerror2 - :: (Ptr RawTH1) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinContent2" + c_th1_setbincontent2 :: + Ptr RawTH1 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBinError3" c_th1_setbinerror3 - :: (Ptr RawTH1) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinContent3" + c_th1_setbincontent3 :: + Ptr RawTH1 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBins1" c_th1_setbins1 - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinError1" + c_th1_setbinerror1 :: Ptr RawTH1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBins2" c_th1_setbins2 - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinError2" + c_th1_setbinerror2 :: + Ptr RawTH1 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setBins3" c_th1_setbins3 - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBinError3" + c_th1_setbinerror3 :: + Ptr RawTH1 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetBinsLength" c_th1_setbinslength - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBins1" + c_th1_setbins1 :: Ptr RawTH1 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetBuffer" c_th1_setbuffer - :: (Ptr RawTH1) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBins2" + c_th1_setbins2 :: + Ptr RawTH1 -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetCellContent" c_th1_setcellcontent - :: (Ptr RawTH1) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setBins3" + c_th1_setbins3 :: + Ptr RawTH1 -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetContent" c_th1_setcontent - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetBinsLength" + c_th1_setbinslength :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetContour" c_th1_setcontour - :: (Ptr RawTH1) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetBuffer" + c_th1_setbuffer :: Ptr RawTH1 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetContourLevel" c_th1_setcontourlevel - :: (Ptr RawTH1) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetCellContent" + c_th1_setcellcontent :: + Ptr RawTH1 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1SetDefaultBufferSize" c_th1_th1setdefaultbuffersize - :: CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetContent" + c_th1_setcontent :: Ptr RawTH1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1SetDefaultSumw2" c_th1_th1setdefaultsumw2 - :: CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetContour" + c_th1_setcontour :: Ptr RawTH1 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetDirectory" c_th1_setdirectory - :: (Ptr RawTH1) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetContourLevel" + c_th1_setcontourlevel :: Ptr RawTH1 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetEntries" c_th1_setentries - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH1.h TH1_tH1SetDefaultBufferSize" + c_th1_th1setdefaultbuffersize :: CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetError" c_th1_seterror - :: (Ptr RawTH1) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_tH1SetDefaultSumw2" + c_th1_th1setdefaultsumw2 :: CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setLabelColorA" c_th1_setlabelcolora - :: (Ptr RawTH1) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetDirectory" + c_th1_setdirectory :: Ptr RawTH1 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setLabelSizeA" c_th1_setlabelsizea - :: (Ptr RawTH1) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetEntries" + c_th1_setentries :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setLabelFontA" c_th1_setlabelfonta - :: (Ptr RawTH1) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetError" + c_th1_seterror :: Ptr RawTH1 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1.h TH1_setLabelOffsetA" c_th1_setlabeloffseta - :: (Ptr RawTH1) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setLabelColorA" + c_th1_setlabelcolora :: Ptr RawTH1 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetMaximum" c_th1_setmaximum - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setLabelSizeA" + c_th1_setlabelsizea :: Ptr RawTH1 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetMinimum" c_th1_setminimum - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setLabelFontA" + c_th1_setlabelfonta :: Ptr RawTH1 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetNormFactor" c_th1_setnormfactor - :: (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_setLabelOffsetA" + c_th1_setlabeloffseta :: Ptr RawTH1 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetStats" c_th1_setstats - :: (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetMaximum" + c_th1_setmaximum :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetOption" c_th1_setoption - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetMinimum" + c_th1_setminimum :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetXTitle" c_th1_setxtitle - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetNormFactor" + c_th1_setnormfactor :: Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetYTitle" c_th1_setytitle - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetStats" + c_th1_setstats :: Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1.h TH1_SetZTitle" c_th1_setztitle - :: (Ptr RawTH1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetOption" + c_th1_setoption :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ShowBackground" c_th1_showbackground - :: (Ptr RawTH1) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1.h TH1_SetXTitle" + c_th1_setxtitle :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_ShowPeaks" c_th1_showpeaks - :: (Ptr RawTH1) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1.h TH1_SetYTitle" + c_th1_setytitle :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_Smooth" c_th1_smooth - :: (Ptr RawTH1) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_SetZTitle" + c_th1_setztitle :: Ptr RawTH1 -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1SmoothArray" c_th1_th1smootharray - :: CInt -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ShowBackground" + c_th1_showbackground :: + Ptr RawTH1 -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1.h TH1_tH1StatOverflows" c_th1_th1statoverflows - :: CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_ShowPeaks" + c_th1_showpeaks :: + Ptr RawTH1 -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1.h TH1_Sumw2" c_th1_sumw2 - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_Smooth" c_th1_smooth + :: Ptr RawTH1 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1.h TH1_tH1UseCurrentStyle" c_th1_th1usecurrentstyle - :: (Ptr RawTH1) -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_tH1SmoothArray" + c_th1_th1smootharray :: CInt -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1.h TH1_tH1StatOverflows" + c_th1_th1statoverflows :: CInt -> IO () + +foreign import ccall safe "HROOTHistTH1.h TH1_Sumw2" c_th1_sumw2 :: + Ptr RawTH1 -> IO () + +foreign import ccall safe "HROOTHistTH1.h TH1_tH1UseCurrentStyle" + c_th1_th1usecurrentstyle :: Ptr RawTH1 -> IO () diff --git a/src/HROOT/Hist/TH1/Implementation.hs b/src/HROOT/Hist/TH1/Implementation.hs --- a/src/HROOT/Hist/TH1/Implementation.hs +++ b/src/HROOT/Hist/TH1/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.FFI import HROOT.Hist.TH1.Interface @@ -26,9 +27,9 @@ import HROOT.Hist.TAxis.RawType import HROOT.Hist.TAxis.Cast import HROOT.Hist.TAxis.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -38,349 +39,190 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe +instance ITH1 TH1 where + add = xform2 c_th1_add + addBinContent = xform2 c_th1_addbincontent + chi2Test = xform3 c_th1_chi2test + computeIntegral = xform0 c_th1_computeintegral + directoryAutoAdd = xform1 c_th1_directoryautoadd + divide = xform5 c_th1_divide + drawCopyTH1 = xform1 c_th1_drawcopyth1 + drawNormalized = xform2 c_th1_drawnormalized + drawPanelTH1 = xform0 c_th1_drawpanelth1 + bufferEmpty = xform1 c_th1_bufferempty + evalF = xform2 c_th1_evalf + fFT = xform2 c_th1_fft + fill1 = xform1 c_th1_fill1 + fill1w = xform2 c_th1_fill1w + fillN1 = xform4 c_th1_filln1 + fillRandom = xform2 c_th1_fillrandom + findBin = xform3 c_th1_findbin + findFixBin = xform3 c_th1_findfixbin + findFirstBinAbove = xform2 c_th1_findfirstbinabove + findLastBinAbove = xform2 c_th1_findlastbinabove + fit = xform5 c_th1_fit + fitPanelTH1 = xform0 c_th1_fitpanelth1 + getNdivisionA = xform1 c_th1_getndivisiona + getAxisColorA = xform1 c_th1_getaxiscolora + getLabelColorA = xform1 c_th1_getlabelcolora + getLabelFontA = xform1 c_th1_getlabelfonta + getLabelOffsetA = xform1 c_th1_getlabeloffseta + getLabelSizeA = xform1 c_th1_getlabelsizea + getTitleFontA = xform1 c_th1_gettitlefonta + getTitleOffsetA = xform1 c_th1_gettitleoffseta + getTitleSizeA = xform1 c_th1_gettitlesizea + getTickLengthA = xform1 c_th1_getticklengtha + getBarOffset = xform0 c_th1_getbaroffset + getBarWidth = xform0 c_th1_getbarwidth + getContour = xform1 c_th1_getcontour + getContourLevel = xform1 c_th1_getcontourlevel + getContourLevelPad = xform1 c_th1_getcontourlevelpad + getBin = xform3 c_th1_getbin + getBinCenter = xform1 c_th1_getbincenter + getBinContent1 = xform1 c_th1_getbincontent1 + getBinContent2 = xform2 c_th1_getbincontent2 + getBinContent3 = xform3 c_th1_getbincontent3 + getBinError1 = xform1 c_th1_getbinerror1 + getBinError2 = xform2 c_th1_getbinerror2 + getBinError3 = xform3 c_th1_getbinerror3 + getBinLowEdge = xform1 c_th1_getbinlowedge + getBinWidth = xform1 c_th1_getbinwidth + getCellContent = xform2 c_th1_getcellcontent + getCellError = xform2 c_th1_getcellerror + getEntries = xform0 c_th1_getentries + getEffectiveEntries = xform0 c_th1_geteffectiveentries + getFunction = xform1 c_th1_getfunction + getDimension = xform0 c_th1_getdimension + getKurtosis = xform1 c_th1_getkurtosis + getLowEdge = xform1 c_th1_getlowedge + getMaximumTH1 = xform1 c_th1_getmaximumth1 + getMaximumBin = xform0 c_th1_getmaximumbin + getMaximumStored = xform0 c_th1_getmaximumstored + getMinimumTH1 = xform1 c_th1_getminimumth1 + getMinimumBin = xform0 c_th1_getminimumbin + getMinimumStored = xform0 c_th1_getminimumstored + getMean = xform1 c_th1_getmean + getMeanError = xform1 c_th1_getmeanerror + getNbinsX = xform0 c_th1_getnbinsx + getNbinsY = xform0 c_th1_getnbinsy + getNbinsZ = xform0 c_th1_getnbinsz + getQuantilesTH1 = xform3 c_th1_getquantilesth1 + getRandom = xform0 c_th1_getrandom + getStats = xform1 c_th1_getstats + getSumOfWeights = xform0 c_th1_getsumofweights + getSumw2 = xform0 c_th1_getsumw2 + getSumw2N = xform0 c_th1_getsumw2n + getRMS = xform1 c_th1_getrms + getRMSError = xform1 c_th1_getrmserror + getSkewness = xform1 c_th1_getskewness + integral1 = xform3 c_th1_integral1 + interpolate1 = xform1 c_th1_interpolate1 + interpolate2 = xform2 c_th1_interpolate2 + interpolate3 = xform3 c_th1_interpolate3 + kolmogorovTest = xform2 c_th1_kolmogorovtest + labelsDeflate = xform1 c_th1_labelsdeflate + labelsInflate = xform1 c_th1_labelsinflate + labelsOption = xform2 c_th1_labelsoption + multiflyF = xform2 c_th1_multiflyf + multiply = xform5 c_th1_multiply + putStats = xform1 c_th1_putstats + rebin = xform3 c_th1_rebin + rebinAxis = xform2 c_th1_rebinaxis + rebuild = xform1 c_th1_rebuild + recursiveRemove = xform1 c_th1_recursiveremove + reset = xform1 c_th1_reset + resetStats = xform0 c_th1_resetstats + scale = xform2 c_th1_scale + setAxisColorA = xform2 c_th1_setaxiscolora + setAxisRange = xform3 c_th1_setaxisrange + setBarOffset = xform1 c_th1_setbaroffset + setBarWidth = xform1 c_th1_setbarwidth + setBinContent1 = xform2 c_th1_setbincontent1 + setBinContent2 = xform3 c_th1_setbincontent2 + setBinContent3 = xform4 c_th1_setbincontent3 + setBinError1 = xform2 c_th1_setbinerror1 + setBinError2 = xform3 c_th1_setbinerror2 + setBinError3 = xform4 c_th1_setbinerror3 + setBins1 = xform2 c_th1_setbins1 + setBins2 = xform4 c_th1_setbins2 + setBins3 = xform6 c_th1_setbins3 + setBinsLength = xform1 c_th1_setbinslength + setBuffer = xform2 c_th1_setbuffer + setCellContent = xform3 c_th1_setcellcontent + setContent = xform1 c_th1_setcontent + setContour = xform2 c_th1_setcontour + setContourLevel = xform2 c_th1_setcontourlevel + setDirectory = xform1 c_th1_setdirectory + setEntries = xform1 c_th1_setentries + setError = xform1 c_th1_seterror + setLabelColorA = xform2 c_th1_setlabelcolora + setLabelSizeA = xform2 c_th1_setlabelsizea + setLabelFontA = xform2 c_th1_setlabelfonta + setLabelOffsetA = xform2 c_th1_setlabeloffseta + setMaximum = xform1 c_th1_setmaximum + setMinimum = xform1 c_th1_setminimum + setNormFactor = xform1 c_th1_setnormfactor + setStats = xform1 c_th1_setstats + setOption = xform1 c_th1_setoption + setXTitle = xform1 c_th1_setxtitle + setYTitle = xform1 c_th1_setytitle + setZTitle = xform1 c_th1_setztitle + showBackground = xform2 c_th1_showbackground + showPeaks = xform3 c_th1_showpeaks + smooth = xform2 c_th1_smooth + sumw2 = xform0 c_th1_sumw2 +instance ITNamed TH1 where + setName = xform1 c_th1_setname + setNameTitle = xform2 c_th1_setnametitle + setTitle = xform1 c_th1_settitle -instance ITH1 TH1 where - add = xform2 c_th1_add - addBinContent = xform2 c_th1_addbincontent - chi2Test = xform3 c_th1_chi2test - computeIntegral = xform0 c_th1_computeintegral - directoryAutoAdd = xform1 c_th1_directoryautoadd - divide = xform5 c_th1_divide - drawCopyTH1 = xform1 c_th1_drawcopyth1 - drawNormalized = xform2 c_th1_drawnormalized - drawPanelTH1 = xform0 c_th1_drawpanelth1 - bufferEmpty = xform1 c_th1_bufferempty - evalF = xform2 c_th1_evalf - fFT = xform2 c_th1_fft - fill1 = xform1 c_th1_fill1 - fill1w = xform2 c_th1_fill1w - fillN1 = xform4 c_th1_filln1 - fillRandom = xform2 c_th1_fillrandom - findBin = xform3 c_th1_findbin - findFixBin = xform3 c_th1_findfixbin - findFirstBinAbove = xform2 c_th1_findfirstbinabove - findLastBinAbove = xform2 c_th1_findlastbinabove - fitPanelTH1 = xform0 c_th1_fitpanelth1 - getNdivisionA = xform1 c_th1_getndivisiona - getAxisColorA = xform1 c_th1_getaxiscolora - getLabelColorA = xform1 c_th1_getlabelcolora - getLabelFontA = xform1 c_th1_getlabelfonta - getLabelOffsetA = xform1 c_th1_getlabeloffseta - getLabelSizeA = xform1 c_th1_getlabelsizea - getTitleFontA = xform1 c_th1_gettitlefonta - getTitleOffsetA = xform1 c_th1_gettitleoffseta - getTitleSizeA = xform1 c_th1_gettitlesizea - getTickLengthA = xform1 c_th1_getticklengtha - getBarOffset = xform0 c_th1_getbaroffset - getBarWidth = xform0 c_th1_getbarwidth - getContour = xform1 c_th1_getcontour - getContourLevel = xform1 c_th1_getcontourlevel - getContourLevelPad = xform1 c_th1_getcontourlevelpad - getBin = xform3 c_th1_getbin - getBinCenter = xform1 c_th1_getbincenter - getBinContent1 = xform1 c_th1_getbincontent1 - getBinContent2 = xform2 c_th1_getbincontent2 - getBinContent3 = xform3 c_th1_getbincontent3 - getBinError1 = xform1 c_th1_getbinerror1 - getBinError2 = xform2 c_th1_getbinerror2 - getBinError3 = xform3 c_th1_getbinerror3 - getBinLowEdge = xform1 c_th1_getbinlowedge - getBinWidth = xform1 c_th1_getbinwidth - getCellContent = xform2 c_th1_getcellcontent - getCellError = xform2 c_th1_getcellerror - getEntries = xform0 c_th1_getentries - getEffectiveEntries = xform0 c_th1_geteffectiveentries - getFunction = xform1 c_th1_getfunction - getDimension = xform0 c_th1_getdimension - getKurtosis = xform1 c_th1_getkurtosis - getLowEdge = xform1 c_th1_getlowedge - getMaximumTH1 = xform1 c_th1_getmaximumth1 - getMaximumBin = xform0 c_th1_getmaximumbin - getMaximumStored = xform0 c_th1_getmaximumstored - getMinimumTH1 = xform1 c_th1_getminimumth1 - getMinimumBin = xform0 c_th1_getminimumbin - getMinimumStored = xform0 c_th1_getminimumstored - getMean = xform1 c_th1_getmean - getMeanError = xform1 c_th1_getmeanerror - getNbinsX = xform0 c_th1_getnbinsx - getNbinsY = xform0 c_th1_getnbinsy - getNbinsZ = xform0 c_th1_getnbinsz - getQuantilesTH1 = xform3 c_th1_getquantilesth1 - getRandom = xform0 c_th1_getrandom - getStats = xform1 c_th1_getstats - getSumOfWeights = xform0 c_th1_getsumofweights - getSumw2 = xform0 c_th1_getsumw2 - getSumw2N = xform0 c_th1_getsumw2n - getRMS = xform1 c_th1_getrms - getRMSError = xform1 c_th1_getrmserror - getSkewness = xform1 c_th1_getskewness - integral1 = xform3 c_th1_integral1 - interpolate1 = xform1 c_th1_interpolate1 - interpolate2 = xform2 c_th1_interpolate2 - interpolate3 = xform3 c_th1_interpolate3 - kolmogorovTest = xform2 c_th1_kolmogorovtest - labelsDeflate = xform1 c_th1_labelsdeflate - labelsInflate = xform1 c_th1_labelsinflate - labelsOption = xform2 c_th1_labelsoption - multiflyF = xform2 c_th1_multiflyf - multiply = xform5 c_th1_multiply - putStats = xform1 c_th1_putstats - rebin = xform3 c_th1_rebin - rebinAxis = xform2 c_th1_rebinaxis - rebuild = xform1 c_th1_rebuild - recursiveRemove = xform1 c_th1_recursiveremove - reset = xform1 c_th1_reset - resetStats = xform0 c_th1_resetstats - scale = xform2 c_th1_scale - setAxisColorA = xform2 c_th1_setaxiscolora - setAxisRange = xform3 c_th1_setaxisrange - setBarOffset = xform1 c_th1_setbaroffset - setBarWidth = xform1 c_th1_setbarwidth - setBinContent1 = xform2 c_th1_setbincontent1 - setBinContent2 = xform3 c_th1_setbincontent2 - setBinContent3 = xform4 c_th1_setbincontent3 - setBinError1 = xform2 c_th1_setbinerror1 - setBinError2 = xform3 c_th1_setbinerror2 - setBinError3 = xform4 c_th1_setbinerror3 - setBins1 = xform2 c_th1_setbins1 - setBins2 = xform4 c_th1_setbins2 - setBins3 = xform6 c_th1_setbins3 - setBinsLength = xform1 c_th1_setbinslength - setBuffer = xform2 c_th1_setbuffer - setCellContent = xform3 c_th1_setcellcontent - setContent = xform1 c_th1_setcontent - setContour = xform2 c_th1_setcontour - setContourLevel = xform2 c_th1_setcontourlevel - setDirectory = xform1 c_th1_setdirectory - setEntries = xform1 c_th1_setentries - setError = xform1 c_th1_seterror - setLabelColorA = xform2 c_th1_setlabelcolora - setLabelSizeA = xform2 c_th1_setlabelsizea - setLabelFontA = xform2 c_th1_setlabelfonta - setLabelOffsetA = xform2 c_th1_setlabeloffseta - setMaximum = xform1 c_th1_setmaximum - setMinimum = xform1 c_th1_setminimum - setNormFactor = xform1 c_th1_setnormfactor - setStats = xform1 c_th1_setstats - setOption = xform1 c_th1_setoption - setXTitle = xform1 c_th1_setxtitle - setYTitle = xform1 c_th1_setytitle - setZTitle = xform1 c_th1_setztitle - showBackground = xform2 c_th1_showbackground - showPeaks = xform3 c_th1_showpeaks - smooth = xform2 c_th1_smooth - sumw2 = xform0 c_th1_sumw2 -instance ITObject TH1 where - draw = xform1 c_th1_draw - findObject = xform1 c_th1_findobject - getName = xform0 c_th1_getname - isA = xform0 c_th1_isa - paint = xform1 c_th1_paint - printObj = xform1 c_th1_printobj - saveAs = xform2 c_th1_saveas - write = xform3 c_th1_write instance ITAttLine TH1 where - getLineColor = xform0 c_th1_getlinecolor - getLineStyle = xform0 c_th1_getlinestyle - getLineWidth = xform0 c_th1_getlinewidth - resetAttLine = xform1 c_th1_resetattline - setLineAttributes = xform0 c_th1_setlineattributes - setLineColor = xform1 c_th1_setlinecolor - setLineStyle = xform1 c_th1_setlinestyle - setLineWidth = xform1 c_th1_setlinewidth + getLineColor = xform0 c_th1_getlinecolor + getLineStyle = xform0 c_th1_getlinestyle + getLineWidth = xform0 c_th1_getlinewidth + resetAttLine = xform1 c_th1_resetattline + setLineAttributes = xform0 c_th1_setlineattributes + setLineColor = xform1 c_th1_setlinecolor + setLineStyle = xform1 c_th1_setlinestyle + setLineWidth = xform1 c_th1_setlinewidth + instance ITAttFill TH1 where - setFillColor = xform1 c_th1_setfillcolor - setFillStyle = xform1 c_th1_setfillstyle -instance ITAttMarker TH1 where - getMarkerColor = xform0 c_th1_getmarkercolor - getMarkerStyle = xform0 c_th1_getmarkerstyle - getMarkerSize = xform0 c_th1_getmarkersize - resetAttMarker = xform1 c_th1_resetattmarker - setMarkerAttributes = xform0 c_th1_setmarkerattributes - setMarkerColor = xform1 c_th1_setmarkercolor - setMarkerStyle = xform1 c_th1_setmarkerstyle - setMarkerSize = xform1 c_th1_setmarkersize -instance IDeletable TH1 where - delete = xform0 c_th1_delete + setFillColor = xform1 c_th1_setfillcolor + setFillStyle = xform1 c_th1_setfillstyle -instance ITH1 (Exist TH1) where - add (ETH1 x) = add x - addBinContent (ETH1 x) = addBinContent x - chi2Test (ETH1 x) = chi2Test x - computeIntegral (ETH1 x) = computeIntegral x - directoryAutoAdd (ETH1 x) = directoryAutoAdd x - divide (ETH1 x) = divide x - drawCopyTH1 (ETH1 x) a1 = return . ETH1 =<< drawCopyTH1 x a1 - drawNormalized (ETH1 x) = drawNormalized x - drawPanelTH1 (ETH1 x) = drawPanelTH1 x - bufferEmpty (ETH1 x) = bufferEmpty x - evalF (ETH1 x) = evalF x - fFT (ETH1 x) = fFT x - fill1 (ETH1 x) = fill1 x - fill1w (ETH1 x) = fill1w x - fillN1 (ETH1 x) = fillN1 x - fillRandom (ETH1 x) = fillRandom x - findBin (ETH1 x) = findBin x - findFixBin (ETH1 x) = findFixBin x - findFirstBinAbove (ETH1 x) = findFirstBinAbove x - findLastBinAbove (ETH1 x) = findLastBinAbove x - fitPanelTH1 (ETH1 x) = fitPanelTH1 x - getNdivisionA (ETH1 x) = getNdivisionA x - getAxisColorA (ETH1 x) = getAxisColorA x - getLabelColorA (ETH1 x) = getLabelColorA x - getLabelFontA (ETH1 x) = getLabelFontA x - getLabelOffsetA (ETH1 x) = getLabelOffsetA x - getLabelSizeA (ETH1 x) = getLabelSizeA x - getTitleFontA (ETH1 x) = getTitleFontA x - getTitleOffsetA (ETH1 x) = getTitleOffsetA x - getTitleSizeA (ETH1 x) = getTitleSizeA x - getTickLengthA (ETH1 x) = getTickLengthA x - getBarOffset (ETH1 x) = getBarOffset x - getBarWidth (ETH1 x) = getBarWidth x - getContour (ETH1 x) = getContour x - getContourLevel (ETH1 x) = getContourLevel x - getContourLevelPad (ETH1 x) = getContourLevelPad x - getBin (ETH1 x) = getBin x - getBinCenter (ETH1 x) = getBinCenter x - getBinContent1 (ETH1 x) = getBinContent1 x - getBinContent2 (ETH1 x) = getBinContent2 x - getBinContent3 (ETH1 x) = getBinContent3 x - getBinError1 (ETH1 x) = getBinError1 x - getBinError2 (ETH1 x) = getBinError2 x - getBinError3 (ETH1 x) = getBinError3 x - getBinLowEdge (ETH1 x) = getBinLowEdge x - getBinWidth (ETH1 x) = getBinWidth x - getCellContent (ETH1 x) = getCellContent x - getCellError (ETH1 x) = getCellError x - getEntries (ETH1 x) = getEntries x - getEffectiveEntries (ETH1 x) = getEffectiveEntries x - getFunction (ETH1 x) = getFunction x - getDimension (ETH1 x) = getDimension x - getKurtosis (ETH1 x) = getKurtosis x - getLowEdge (ETH1 x) = getLowEdge x - getMaximumTH1 (ETH1 x) = getMaximumTH1 x - getMaximumBin (ETH1 x) = getMaximumBin x - getMaximumStored (ETH1 x) = getMaximumStored x - getMinimumTH1 (ETH1 x) = getMinimumTH1 x - getMinimumBin (ETH1 x) = getMinimumBin x - getMinimumStored (ETH1 x) = getMinimumStored x - getMean (ETH1 x) = getMean x - getMeanError (ETH1 x) = getMeanError x - getNbinsX (ETH1 x) = getNbinsX x - getNbinsY (ETH1 x) = getNbinsY x - getNbinsZ (ETH1 x) = getNbinsZ x - getQuantilesTH1 (ETH1 x) = getQuantilesTH1 x - getRandom (ETH1 x) = getRandom x - getStats (ETH1 x) = getStats x - getSumOfWeights (ETH1 x) = getSumOfWeights x - getSumw2 (ETH1 x) = getSumw2 x - getSumw2N (ETH1 x) = getSumw2N x - getRMS (ETH1 x) = getRMS x - getRMSError (ETH1 x) = getRMSError x - getSkewness (ETH1 x) = getSkewness x - integral1 (ETH1 x) = integral1 x - interpolate1 (ETH1 x) = interpolate1 x - interpolate2 (ETH1 x) = interpolate2 x - interpolate3 (ETH1 x) = interpolate3 x - kolmogorovTest (ETH1 x) = kolmogorovTest x - labelsDeflate (ETH1 x) = labelsDeflate x - labelsInflate (ETH1 x) = labelsInflate x - labelsOption (ETH1 x) = labelsOption x - multiflyF (ETH1 x) = multiflyF x - multiply (ETH1 x) = multiply x - putStats (ETH1 x) = putStats x - rebin (ETH1 x) = rebin x - rebinAxis (ETH1 x) = rebinAxis x - rebuild (ETH1 x) = rebuild x - recursiveRemove (ETH1 x) = recursiveRemove x - reset (ETH1 x) = reset x - resetStats (ETH1 x) = resetStats x - scale (ETH1 x) = scale x - setAxisColorA (ETH1 x) = setAxisColorA x - setAxisRange (ETH1 x) = setAxisRange x - setBarOffset (ETH1 x) = setBarOffset x - setBarWidth (ETH1 x) = setBarWidth x - setBinContent1 (ETH1 x) = setBinContent1 x - setBinContent2 (ETH1 x) = setBinContent2 x - setBinContent3 (ETH1 x) = setBinContent3 x - setBinError1 (ETH1 x) = setBinError1 x - setBinError2 (ETH1 x) = setBinError2 x - setBinError3 (ETH1 x) = setBinError3 x - setBins1 (ETH1 x) = setBins1 x - setBins2 (ETH1 x) = setBins2 x - setBins3 (ETH1 x) = setBins3 x - setBinsLength (ETH1 x) = setBinsLength x - setBuffer (ETH1 x) = setBuffer x - setCellContent (ETH1 x) = setCellContent x - setContent (ETH1 x) = setContent x - setContour (ETH1 x) = setContour x - setContourLevel (ETH1 x) = setContourLevel x - setDirectory (ETH1 x) = setDirectory x - setEntries (ETH1 x) = setEntries x - setError (ETH1 x) = setError x - setLabelColorA (ETH1 x) = setLabelColorA x - setLabelSizeA (ETH1 x) = setLabelSizeA x - setLabelFontA (ETH1 x) = setLabelFontA x - setLabelOffsetA (ETH1 x) = setLabelOffsetA x - setMaximum (ETH1 x) = setMaximum x - setMinimum (ETH1 x) = setMinimum x - setNormFactor (ETH1 x) = setNormFactor x - setStats (ETH1 x) = setStats x - setOption (ETH1 x) = setOption x - setXTitle (ETH1 x) = setXTitle x - setYTitle (ETH1 x) = setYTitle x - setZTitle (ETH1 x) = setZTitle x - showBackground (ETH1 x) = showBackground x - showPeaks (ETH1 x) = showPeaks x - smooth (ETH1 x) = smooth x - sumw2 (ETH1 x) = sumw2 x -instance ITObject (Exist TH1) where - draw (ETH1 x) = draw x - findObject (ETH1 x) = findObject x - getName (ETH1 x) = getName x - isA (ETH1 x) = isA x - paint (ETH1 x) = paint x - printObj (ETH1 x) = printObj x - saveAs (ETH1 x) = saveAs x - write (ETH1 x) = write x -instance ITAttLine (Exist TH1) where - getLineColor (ETH1 x) = getLineColor x - getLineStyle (ETH1 x) = getLineStyle x - getLineWidth (ETH1 x) = getLineWidth x - resetAttLine (ETH1 x) = resetAttLine x - setLineAttributes (ETH1 x) = setLineAttributes x - setLineColor (ETH1 x) = setLineColor x - setLineStyle (ETH1 x) = setLineStyle x - setLineWidth (ETH1 x) = setLineWidth x -instance ITAttFill (Exist TH1) where - setFillColor (ETH1 x) = setFillColor x - setFillStyle (ETH1 x) = setFillStyle x -instance ITAttMarker (Exist TH1) where - getMarkerColor (ETH1 x) = getMarkerColor x - getMarkerStyle (ETH1 x) = getMarkerStyle x - getMarkerSize (ETH1 x) = getMarkerSize x - resetAttMarker (ETH1 x) = resetAttMarker x - setMarkerAttributes (ETH1 x) = setMarkerAttributes x - setMarkerColor (ETH1 x) = setMarkerColor x - setMarkerStyle (ETH1 x) = setMarkerStyle x - setMarkerSize (ETH1 x) = setMarkerSize x -instance IDeletable (Exist TH1) where - delete (ETH1 x) = delete x +instance ITAttMarker TH1 where + getMarkerColor = xform0 c_th1_getmarkercolor + getMarkerStyle = xform0 c_th1_getmarkerstyle + getMarkerSize = xform0 c_th1_getmarkersize + resetAttMarker = xform1 c_th1_resetattmarker + setMarkerAttributes = xform0 c_th1_setmarkerattributes + setMarkerColor = xform1 c_th1_setmarkercolor + setMarkerStyle = xform1 c_th1_setmarkerstyle + setMarkerSize = xform1 c_th1_setmarkersize +instance ITObject TH1 where + draw = xform1 c_th1_draw + findObject = xform1 c_th1_findobject + getName = xform0 c_th1_getname + isA = xform0 c_th1_isa + paint = xform1 c_th1_paint + printObj = xform1 c_th1_printobj + saveAs = xform2 c_th1_saveas + write = xform3 c_th1_write +instance IDeletable TH1 where + delete = xform0 c_th1_delete -tH1GetAsymmetry :: TH1 -> TH1 -> CDouble -> CDouble -> IO TH1 +tH1GetAsymmetry :: + (ITH1 c0, FPtr c0) => TH1 -> c0 -> CDouble -> CDouble -> IO TH1 tH1GetAsymmetry = xform3 c_th1_th1getasymmetry tH1GetBufferLength :: TH1 -> IO CInt @@ -418,8 +260,3 @@ tH1StatOverflows :: CInt -> IO () tH1StatOverflows = xform0 c_th1_th1statoverflows - -instance FPtr (Exist TH1) where - type Raw (Exist TH1) = RawTH1 - get_fptr (ETH1 obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1) :: TH1) diff --git a/src/HROOT/Hist/TH1/Interface.hs b/src/HROOT/Hist/TH1/Interface.hs --- a/src/HROOT/Hist/TH1/Interface.hs +++ b/src/HROOT/Hist/TH1/Interface.hs @@ -1,409 +1,324 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType import HROOT.Hist.TF1.RawType import HROOT.Core.TArrayD.RawType -import HROOT.Core.TObject.Interface +import HROOT.Core.TNamed.Interface import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.Interface import HROOT.Core.TAttMarker.Interface import HROOT.Core.TDirectory.Interface ----- ============ ---- +import HROOT.Core.TObject.Interface import {-# SOURCE #-} HROOT.Hist.TF1.Interface import {-# SOURCE #-} HROOT.Hist.TAxis.Interface --- | the TH1 class : the mother class of all histogram classes --- --- > class TH1 : TNamed, TAttLine, TAttFill, TAttMarker --- - -class (ITObject a,ITAttLine a,ITAttFill a,ITAttMarker a) => ITH1 a where - -- | - -- > void TH1::Add( TH1* h1, Double_t c1 ) - -- - - add :: (ITH1 c0, FPtr c0) => a -> c0 -> CDouble -> IO () - -- | - -- > void TH1::AddBinContent( Int_t bin, Double_t w ) - -- - - addBinContent :: a -> CInt -> CDouble -> IO () - -- | - -- > Double_t TH1::Chi2Test( const TH1* h2, Option_t* option="UU", Double_t* res=0 ) const - -- - - chi2Test :: (ITH1 c0, FPtr c0) => a -> c0 -> CString -> (Ptr CDouble) -> IO CDouble - -- | - -- > Double_t TH1::ComputeIntegral () - -- - - computeIntegral :: a -> IO CDouble - -- | - -- > void TH1::DirectoryAutoAdd(TDirectory* ) - -- - - directoryAutoAdd :: (ITDirectory c0, FPtr c0) => a -> c0 -> IO () - -- | - -- > void TH1::Divide(const TH1* h1, const TH1* h2, Double_t c1=1, Double_t c2=1, Option_t* option="") - -- - - divide :: (ITH1 c1, FPtr c1, ITH1 c0, FPtr c0) => a -> c0 -> c1 -> CDouble -> CDouble -> CString -> IO () - - drawCopyTH1 :: a -> CString -> IO a - -- | - -- > TH1* TH1::DrawNormalized (Option_t* option="", Double_t norm=1) const - -- - - drawNormalized :: a -> CString -> CDouble -> IO TH1 - - drawPanelTH1 :: a -> IO () - - bufferEmpty :: a -> CInt -> IO CInt - - evalF :: (ITF1 c0, FPtr c0) => a -> c0 -> CString -> IO () - - fFT :: (ITH1 c0, FPtr c0) => a -> c0 -> CString -> IO TH1 - - fill1 :: a -> CDouble -> IO CInt - - fill1w :: a -> CDouble -> CDouble -> IO CInt - - fillN1 :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () - - fillRandom :: (ITH1 c0, FPtr c0) => a -> c0 -> CInt -> IO () - - findBin :: a -> CDouble -> CDouble -> CDouble -> IO CInt - - findFixBin :: a -> CDouble -> CDouble -> CDouble -> IO CInt - - findFirstBinAbove :: a -> CDouble -> CInt -> IO CInt - - findLastBinAbove :: a -> CDouble -> CInt -> IO CInt - - fitPanelTH1 :: a -> IO () - - getNdivisionA :: a -> CString -> IO CInt - - getAxisColorA :: a -> CString -> IO CInt - - getLabelColorA :: a -> CString -> IO CInt - - getLabelFontA :: a -> CString -> IO CInt - - getLabelOffsetA :: a -> CString -> IO CDouble - - getLabelSizeA :: a -> CString -> IO CDouble - - getTitleFontA :: a -> CString -> IO CInt - - getTitleOffsetA :: a -> CString -> IO CDouble - - getTitleSizeA :: a -> CString -> IO CDouble - - getTickLengthA :: a -> CString -> IO CDouble - - getBarOffset :: a -> IO CDouble - - getBarWidth :: a -> IO CDouble - - getContour :: a -> (Ptr CDouble) -> IO CInt - - getContourLevel :: a -> CInt -> IO CDouble - - getContourLevelPad :: a -> CInt -> IO CDouble - - getBin :: a -> CInt -> CInt -> CInt -> IO CInt - - getBinCenter :: a -> CInt -> IO CDouble - - getBinContent1 :: a -> CInt -> IO CDouble - - getBinContent2 :: a -> CInt -> CInt -> IO CDouble - - getBinContent3 :: a -> CInt -> CInt -> CInt -> IO CDouble - - getBinError1 :: a -> CInt -> IO CDouble - - getBinError2 :: a -> CInt -> CInt -> IO CDouble - - getBinError3 :: a -> CInt -> CInt -> CInt -> IO CDouble - - getBinLowEdge :: a -> CInt -> IO CDouble - - getBinWidth :: a -> CInt -> IO CDouble - - getCellContent :: a -> CInt -> CInt -> IO CDouble - - getCellError :: a -> CInt -> CInt -> IO CDouble - - getEntries :: a -> IO CDouble - - getEffectiveEntries :: a -> IO CDouble - - getFunction :: a -> CString -> IO TF1 - - getDimension :: a -> IO CInt - - getKurtosis :: a -> CInt -> IO CDouble - - getLowEdge :: a -> (Ptr CDouble) -> IO () - - getMaximumTH1 :: a -> CDouble -> IO CDouble - - getMaximumBin :: a -> IO CInt - - getMaximumStored :: a -> IO CDouble - - getMinimumTH1 :: a -> CDouble -> IO CDouble - - getMinimumBin :: a -> IO CInt - - getMinimumStored :: a -> IO CDouble - - getMean :: a -> CInt -> IO CDouble - - getMeanError :: a -> CInt -> IO CDouble - - getNbinsX :: a -> IO CDouble - - getNbinsY :: a -> IO CDouble - - getNbinsZ :: a -> IO CDouble - - getQuantilesTH1 :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt - - getRandom :: a -> IO CDouble - -- | - -- > void GetStats(Double_t *stats) const; - -- - - getStats :: a -> (Ptr CDouble) -> IO () - - getSumOfWeights :: a -> IO CDouble - - getSumw2 :: a -> IO TArrayD - - getSumw2N :: a -> IO CInt - - getRMS :: a -> CInt -> IO CDouble - - getRMSError :: a -> CInt -> IO CDouble - - getSkewness :: a -> CInt -> IO CDouble - - integral1 :: a -> CInt -> CInt -> CString -> IO CDouble - -- | - -- > Double_t Interpolate(Double_t x) - -- - - interpolate1 :: a -> CDouble -> IO CDouble - -- | - -- > Double_t Interpolate(Double_t x, Double_t y) - -- - - interpolate2 :: a -> CDouble -> CDouble -> IO CDouble - -- | - -- > Double_t Interpolate(Double_t x, Double_t y, Double_t z) - -- - - interpolate3 :: a -> CDouble -> CDouble -> CDouble -> IO CDouble - -- | - -- > Double_t KolmogorovTest(const TH1 *h2, Option_t *option="") const - -- - - kolmogorovTest :: (ITH1 c0, FPtr c0) => a -> c0 -> CString -> IO CDouble - -- | - -- > void LabelsDeflate(Option_t *axis="X") - -- - - labelsDeflate :: a -> CString -> IO () - -- | - -- > void LabelsInflate(Option_t *axis="X") - -- - - labelsInflate :: a -> CString -> IO () - -- | - -- > void LabelsOption(Option_t *option="h", Option_t *axis="X") - -- - - labelsOption :: a -> CString -> CString -> IO () - - multiflyF :: (ITF1 c0, FPtr c0) => a -> c0 -> CDouble -> IO () - -- | - -- > void Multiply(const TH1 *h1, const TH1 *h2, Double_t c1=1, Double_t c2=1, Option_t *option=""); // *MENU* - -- - - multiply :: (ITH1 c1, FPtr c1, ITH1 c0, FPtr c0) => a -> c0 -> c1 -> CDouble -> CDouble -> CString -> IO () - -- | - -- > void PutStats(Double_t *stats) - -- - - putStats :: a -> (Ptr CDouble) -> IO () - -- | - -- > TH1 *Rebin(Int_t ngroup=2, const char*newname="", const Double_t *xbins=0); // *MENU* - -- - - rebin :: a -> CInt -> CString -> (Ptr CDouble) -> IO TH1 - -- | - -- > void RebinAxis(Double_t x, TAxis *axis) - -- - - rebinAxis :: (ITAxis c0, FPtr c0) => a -> CDouble -> c0 -> IO () - -- | - -- > void Rebuild(Option_t *option="") - -- - - rebuild :: a -> CString -> IO () - -- | - -- > void RecursiveRemove(TObject *obj) - -- - - recursiveRemove :: (ITObject c0, FPtr c0) => a -> c0 -> IO () - -- | - -- > void Reset(Option_t *option="") - -- - - reset :: a -> CString -> IO () - -- | - -- > void ResetStats() - -- - - resetStats :: a -> IO () - -- | - -- > void Scale(Double_t c1=1, Option_t *option="") - -- - - scale :: a -> CDouble -> CString -> IO () - -- | - -- > void SetAxisColor(Color_t color=1, Option_t *axis="X") - -- - - setAxisColorA :: a -> CInt -> CString -> IO () - -- | - -- > void SetAxisRange(Double_t xmin, Double_t xmax, Option_t *axis="X") - -- - - setAxisRange :: a -> CDouble -> CDouble -> CString -> IO () - -- | - -- > void SetBarOffset(Float_t offset=0.25) - -- - - setBarOffset :: a -> CDouble -> IO () - -- | - -- > void SetBarWidth(Float_t width=0.5) - -- - - setBarWidth :: a -> CDouble -> IO () - -- | - -- > void SetBinContent(Int_t bin, Double_t content) - -- - - setBinContent1 :: a -> CInt -> CDouble -> IO () - -- | - -- > void SetBinContent(Int_t binx, Int_t biny, Double_t content) - -- - - setBinContent2 :: a -> CInt -> CInt -> CDouble -> IO () - -- | - -- > void SetBinContent(Int_t binx, Int_t biny, Int_t binz, Double_t content) - -- - - setBinContent3 :: a -> CInt -> CInt -> CInt -> CDouble -> IO () - - setBinError1 :: a -> CInt -> CDouble -> IO () - - setBinError2 :: a -> CInt -> CInt -> CDouble -> IO () - - setBinError3 :: a -> CInt -> CInt -> CInt -> CDouble -> IO () - - setBins1 :: a -> CInt -> (Ptr CDouble) -> IO () - - setBins2 :: a -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () - - setBins3 :: a -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () - - setBinsLength :: a -> CInt -> IO () - - setBuffer :: a -> CInt -> CString -> IO () - - setCellContent :: a -> CInt -> CInt -> CDouble -> IO () - - setContent :: a -> (Ptr CDouble) -> IO () - - setContour :: a -> CInt -> (Ptr CDouble) -> IO () - - setContourLevel :: a -> CInt -> CDouble -> IO () - - setDirectory :: (ITDirectory c0, FPtr c0) => a -> c0 -> IO () - - setEntries :: a -> CDouble -> IO () - - setError :: a -> (Ptr CDouble) -> IO () - - setLabelColorA :: a -> CInt -> CString -> IO () - - setLabelSizeA :: a -> CDouble -> CString -> IO () - - setLabelFontA :: a -> CInt -> CString -> IO () - - setLabelOffsetA :: a -> CDouble -> CString -> IO () - - setMaximum :: a -> CDouble -> IO () - - setMinimum :: a -> CDouble -> IO () - - setNormFactor :: a -> CDouble -> IO () - - setStats :: a -> CInt -> IO () - - setOption :: a -> CString -> IO () - - setXTitle :: a -> CString -> IO () - - setYTitle :: a -> CString -> IO () - - setZTitle :: a -> CString -> IO () - -- | - -- > TH1 *ShowBackground(Int_t niter=20, Option_t *option="same"); - -- - - showBackground :: a -> CInt -> CString -> IO TH1 - -- | - -- > Int_t ShowPeaks(Double_t sigma=2, Option_t *option="", Double_t threshold=0.05); // *MENU* - -- - - showPeaks :: a -> CDouble -> CString -> CDouble -> IO CInt - -- | - -- > void Smooth(Int_t ntimes=1, Option_t *option=""); // *MENU* - -- - - smooth :: a -> CInt -> CString -> IO () - - sumw2 :: a -> IO () - -instance Existable TH1 where - data Exist TH1 = forall a. (FPtr a, ITH1 a) => ETH1 a +class (ITNamed a, ITAttLine a, ITAttFill a, ITAttMarker a) => ITH1 + a where + add :: (ITH1 c0, FPtr c0) => a -> c0 -> CDouble -> IO () + + addBinContent :: a -> CInt -> CDouble -> IO () + + chi2Test :: + (Castable c1 CString, ITH1 c0, FPtr c0) => + a -> c0 -> c1 -> (Ptr CDouble) -> IO CDouble + + computeIntegral :: a -> IO CDouble + + directoryAutoAdd :: (ITDirectory c0, FPtr c0) => a -> c0 -> IO () + + divide :: + (Castable c2 CString, ITH1 c1, FPtr c1, ITH1 c0, FPtr c0) => + a -> c0 -> c1 -> CDouble -> CDouble -> c2 -> IO () + + drawCopyTH1 :: Castable c0 CString => a -> c0 -> IO a + + drawNormalized :: + Castable c0 CString => a -> c0 -> CDouble -> IO TH1 + + drawPanelTH1 :: a -> IO () + + bufferEmpty :: a -> CInt -> IO CInt + + evalF :: + (Castable c1 CString, ITF1 c0, FPtr c0) => a -> c0 -> c1 -> IO () + + fFT :: + (Castable c1 CString, ITH1 c0, FPtr c0) => a -> c0 -> c1 -> IO TH1 + + fill1 :: a -> CDouble -> IO CInt + + fill1w :: a -> CDouble -> CDouble -> IO CInt + + fillN1 :: + a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () + + fillRandom :: (ITH1 c0, FPtr c0) => a -> c0 -> CInt -> IO () + + findBin :: a -> CDouble -> CDouble -> CDouble -> IO CInt + + findFixBin :: a -> CDouble -> CDouble -> CDouble -> IO CInt + + findFirstBinAbove :: a -> CDouble -> CInt -> IO CInt + + findLastBinAbove :: a -> CDouble -> CInt -> IO CInt + + fit :: + (Castable c2 CString, Castable c1 CString, ITF1 c0, FPtr c0) => + a -> c0 -> c1 -> c2 -> CDouble -> CDouble -> IO () + + fitPanelTH1 :: a -> IO () + + getNdivisionA :: Castable c0 CString => a -> c0 -> IO CInt + + getAxisColorA :: Castable c0 CString => a -> c0 -> IO CInt + + getLabelColorA :: Castable c0 CString => a -> c0 -> IO CInt + + getLabelFontA :: Castable c0 CString => a -> c0 -> IO CInt + + getLabelOffsetA :: Castable c0 CString => a -> c0 -> IO CDouble + + getLabelSizeA :: Castable c0 CString => a -> c0 -> IO CDouble + + getTitleFontA :: Castable c0 CString => a -> c0 -> IO CInt + + getTitleOffsetA :: Castable c0 CString => a -> c0 -> IO CDouble + + getTitleSizeA :: Castable c0 CString => a -> c0 -> IO CDouble + + getTickLengthA :: Castable c0 CString => a -> c0 -> IO CDouble + + getBarOffset :: a -> IO CDouble + + getBarWidth :: a -> IO CDouble + + getContour :: a -> (Ptr CDouble) -> IO CInt + + getContourLevel :: a -> CInt -> IO CDouble + + getContourLevelPad :: a -> CInt -> IO CDouble + + getBin :: a -> CInt -> CInt -> CInt -> IO CInt + + getBinCenter :: a -> CInt -> IO CDouble + + getBinContent1 :: a -> CInt -> IO CDouble + + getBinContent2 :: a -> CInt -> CInt -> IO CDouble + + getBinContent3 :: a -> CInt -> CInt -> CInt -> IO CDouble + + getBinError1 :: a -> CInt -> IO CDouble + + getBinError2 :: a -> CInt -> CInt -> IO CDouble + + getBinError3 :: a -> CInt -> CInt -> CInt -> IO CDouble + + getBinLowEdge :: a -> CInt -> IO CDouble + + getBinWidth :: a -> CInt -> IO CDouble + + getCellContent :: a -> CInt -> CInt -> IO CDouble + + getCellError :: a -> CInt -> CInt -> IO CDouble + + getEntries :: a -> IO CDouble + + getEffectiveEntries :: a -> IO CDouble + + getFunction :: Castable c0 CString => a -> c0 -> IO TF1 + + getDimension :: a -> IO CInt + + getKurtosis :: a -> CInt -> IO CDouble + + getLowEdge :: a -> (Ptr CDouble) -> IO () + + getMaximumTH1 :: a -> CDouble -> IO CDouble + + getMaximumBin :: a -> IO CInt + + getMaximumStored :: a -> IO CDouble + + getMinimumTH1 :: a -> CDouble -> IO CDouble + + getMinimumBin :: a -> IO CInt + + getMinimumStored :: a -> IO CDouble + + getMean :: a -> CInt -> IO CDouble + + getMeanError :: a -> CInt -> IO CDouble + + getNbinsX :: a -> IO CDouble + + getNbinsY :: a -> IO CDouble + + getNbinsZ :: a -> IO CDouble + + getQuantilesTH1 :: + a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt + + getRandom :: a -> IO CDouble + + getStats :: a -> (Ptr CDouble) -> IO () + + getSumOfWeights :: a -> IO CDouble + + getSumw2 :: a -> IO TArrayD + + getSumw2N :: a -> IO CInt + + getRMS :: a -> CInt -> IO CDouble + + getRMSError :: a -> CInt -> IO CDouble + + getSkewness :: a -> CInt -> IO CDouble + + integral1 :: + Castable c0 CString => a -> CInt -> CInt -> c0 -> IO CDouble + + interpolate1 :: a -> CDouble -> IO CDouble + + interpolate2 :: a -> CDouble -> CDouble -> IO CDouble + + interpolate3 :: a -> CDouble -> CDouble -> CDouble -> IO CDouble + + kolmogorovTest :: + (Castable c1 CString, ITH1 c0, FPtr c0) => + a -> c0 -> c1 -> IO CDouble + + labelsDeflate :: Castable c0 CString => a -> c0 -> IO () + + labelsInflate :: Castable c0 CString => a -> c0 -> IO () + + labelsOption :: + (Castable c1 CString, Castable c0 CString) => + a -> c0 -> c1 -> IO () + + multiflyF :: (ITF1 c0, FPtr c0) => a -> c0 -> CDouble -> IO () + + multiply :: + (Castable c2 CString, ITH1 c1, FPtr c1, ITH1 c0, FPtr c0) => + a -> c0 -> c1 -> CDouble -> CDouble -> c2 -> IO () + + putStats :: a -> (Ptr CDouble) -> IO () + + rebin :: + Castable c0 CString => a -> CInt -> c0 -> (Ptr CDouble) -> IO TH1 + + rebinAxis :: (ITAxis c0, FPtr c0) => a -> CDouble -> c0 -> IO () + + rebuild :: Castable c0 CString => a -> c0 -> IO () + + recursiveRemove :: (ITObject c0, FPtr c0) => a -> c0 -> IO () + + reset :: Castable c0 CString => a -> c0 -> IO () + + resetStats :: a -> IO () + + scale :: Castable c0 CString => a -> CDouble -> c0 -> IO () + + setAxisColorA :: Castable c0 CString => a -> CInt -> c0 -> IO () + + setAxisRange :: + Castable c0 CString => a -> CDouble -> CDouble -> c0 -> IO () + + setBarOffset :: a -> CDouble -> IO () + + setBarWidth :: a -> CDouble -> IO () + + setBinContent1 :: a -> CInt -> CDouble -> IO () + + setBinContent2 :: a -> CInt -> CInt -> CDouble -> IO () + + setBinContent3 :: a -> CInt -> CInt -> CInt -> CDouble -> IO () + + setBinError1 :: a -> CInt -> CDouble -> IO () + + setBinError2 :: a -> CInt -> CInt -> CDouble -> IO () + + setBinError3 :: a -> CInt -> CInt -> CInt -> CDouble -> IO () + + setBins1 :: a -> CInt -> (Ptr CDouble) -> IO () + + setBins2 :: + a -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () + + setBins3 :: + a -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () + + setBinsLength :: a -> CInt -> IO () + + setBuffer :: Castable c0 CString => a -> CInt -> c0 -> IO () + + setCellContent :: a -> CInt -> CInt -> CDouble -> IO () + + setContent :: a -> (Ptr CDouble) -> IO () + + setContour :: a -> CInt -> (Ptr CDouble) -> IO () + + setContourLevel :: a -> CInt -> CDouble -> IO () + + setDirectory :: (ITDirectory c0, FPtr c0) => a -> c0 -> IO () + + setEntries :: a -> CDouble -> IO () + + setError :: a -> (Ptr CDouble) -> IO () + + setLabelColorA :: Castable c0 CString => a -> CInt -> c0 -> IO () + + setLabelSizeA :: Castable c0 CString => a -> CDouble -> c0 -> IO () + + setLabelFontA :: Castable c0 CString => a -> CInt -> c0 -> IO () + + setLabelOffsetA :: + Castable c0 CString => a -> CDouble -> c0 -> IO () + + setMaximum :: a -> CDouble -> IO () + + setMinimum :: a -> CDouble -> IO () + + setNormFactor :: a -> CDouble -> IO () + + setStats :: a -> CInt -> IO () + + setOption :: Castable c0 CString => a -> c0 -> IO () + + setXTitle :: Castable c0 CString => a -> c0 -> IO () + + setYTitle :: Castable c0 CString => a -> c0 -> IO () + + setZTitle :: Castable c0 CString => a -> c0 -> IO () + + showBackground :: Castable c0 CString => a -> CInt -> c0 -> IO TH1 + + showPeaks :: + Castable c0 CString => a -> CDouble -> c0 -> CDouble -> IO CInt + + smooth :: Castable c0 CString => a -> CInt -> c0 -> IO () + + sumw2 :: a -> IO () -upcastTH1 :: (FPtr a, ITH1 a) => a -> TH1 -upcastTH1 h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1 = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1 :: forall a . (FPtr a, ITH1 a) => a -> TH1 +upcastTH1 h + = let fh = get_fptr h + fh2 :: Ptr RawTH1 = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1 :: (FPtr a, ITH1 a) => TH1 -> a -downcastTH1 h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1 :: forall a . (FPtr a, ITH1 a) => TH1 -> a +downcastTH1 h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1/RawType.hs b/src/HROOT/Hist/TH1/RawType.hs --- a/src/HROOT/Hist/TH1/RawType.hs +++ b/src/HROOT/Hist/TH1/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1 -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1 = TH1 (Ptr RawTH1) + deriving (Eq, Ord, Show) -data RawTH1 -newtype TH1 = TH1 (ForeignPtr RawTH1) deriving (Eq, Ord, Show) instance FPtr TH1 where - type Raw TH1 = RawTH1 - get_fptr (TH1 fptr) = fptr - cast_fptr_to_obj = TH1 + type Raw TH1 = RawTH1 + get_fptr (TH1 ptr) = ptr + cast_fptr_to_obj = TH1 diff --git a/src/HROOT/Hist/TH1C.hs b/src/HROOT/Hist/TH1C.hs --- a/src/HROOT/Hist/TH1C.hs +++ b/src/HROOT/Hist/TH1C.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH1C - ( - TH1C(..) - , ITH1C - , upcastTH1C - , downcastTH1C - - - ) where - +module HROOT.Hist.TH1C (TH1C(..), ITH1C, upcastTH1C, downcastTH1C) + where import HROOT.Hist.TH1C.RawType import HROOT.Hist.TH1C.Interface import HROOT.Hist.TH1C.Implementation - - diff --git a/src/HROOT/Hist/TH1C/Cast.hs b/src/HROOT/Hist/TH1C/Cast.hs --- a/src/HROOT/Hist/TH1C/Cast.hs +++ b/src/HROOT/Hist/TH1C/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1C.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1C.RawType import HROOT.Hist.TH1C.Interface instance (ITH1C a, FPtr a) => Castable a (Ptr RawTH1C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1C (Ptr RawTH1C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1C/FFI.hsc b/src/HROOT/Hist/TH1C/FFI.hsc --- a/src/HROOT/Hist/TH1C/FFI.hsc +++ b/src/HROOT/Hist/TH1C/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1C.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1C.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,476 +11,524 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1C.h" +foreign import ccall safe "HROOTHistTH1C.h TH1C_Add" c_th1c_add :: + Ptr RawTH1C -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Add" c_th1c_add - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_AddBinContent" + c_th1c_addbincontent :: Ptr RawTH1C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_AddBinContent" c_th1c_addbincontent - :: (Ptr RawTH1C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Chi2Test" + c_th1c_chi2test :: + Ptr RawTH1C -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_Chi2Test" c_th1c_chi2test - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_ComputeIntegral" + c_th1c_computeintegral :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_ComputeIntegral" c_th1c_computeintegral - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_DirectoryAutoAdd" + c_th1c_directoryautoadd :: + Ptr RawTH1C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_DirectoryAutoAdd" c_th1c_directoryautoadd - :: (Ptr RawTH1C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Divide" + c_th1c_divide :: + Ptr RawTH1C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Divide" c_th1c_divide - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_drawCopyTH1" + c_th1c_drawcopyth1 :: Ptr RawTH1C -> CString -> IO (Ptr RawTH1C) -foreign import ccall "HROOTHistTH1C.h TH1C_drawCopyTH1" c_th1c_drawcopyth1 - :: (Ptr RawTH1C) -> CString -> IO (Ptr RawTH1C) +foreign import ccall safe "HROOTHistTH1C.h TH1C_DrawNormalized" + c_th1c_drawnormalized :: + Ptr RawTH1C -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1C.h TH1C_DrawNormalized" c_th1c_drawnormalized - :: (Ptr RawTH1C) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1C.h TH1C_drawPanelTH1" + c_th1c_drawpanelth1 :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_drawPanelTH1" c_th1c_drawpanelth1 - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_BufferEmpty" + c_th1c_bufferempty :: Ptr RawTH1C -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_BufferEmpty" c_th1c_bufferempty - :: (Ptr RawTH1C) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_evalF" c_th1c_evalf + :: Ptr RawTH1C -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_evalF" c_th1c_evalf - :: (Ptr RawTH1C) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_FFT" c_th1c_fft :: + Ptr RawTH1C -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1C.h TH1C_FFT" c_th1c_fft - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1C.h TH1C_fill1" c_th1c_fill1 + :: Ptr RawTH1C -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_fill1" c_th1c_fill1 - :: (Ptr RawTH1C) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_fill1w" + c_th1c_fill1w :: Ptr RawTH1C -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_fill1w" c_th1c_fill1w - :: (Ptr RawTH1C) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_fillN1" + c_th1c_filln1 :: + Ptr RawTH1C -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_fillN1" c_th1c_filln1 - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_FillRandom" + c_th1c_fillrandom :: Ptr RawTH1C -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_FillRandom" c_th1c_fillrandom - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_FindBin" + c_th1c_findbin :: + Ptr RawTH1C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_FindBin" c_th1c_findbin - :: (Ptr RawTH1C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_FindFixBin" + c_th1c_findfixbin :: + Ptr RawTH1C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_FindFixBin" c_th1c_findfixbin - :: (Ptr RawTH1C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_FindFirstBinAbove" + c_th1c_findfirstbinabove :: + Ptr RawTH1C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_FindFirstBinAbove" c_th1c_findfirstbinabove - :: (Ptr RawTH1C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_FindLastBinAbove" + c_th1c_findlastbinabove :: + Ptr RawTH1C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_FindLastBinAbove" c_th1c_findlastbinabove - :: (Ptr RawTH1C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_Fit" c_th1c_fit :: + Ptr RawTH1C -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_FitPanelTH1" c_th1c_fitpanelth1 - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_FitPanelTH1" + c_th1c_fitpanelth1 :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_getNdivisionA" c_th1c_getndivisiona - :: (Ptr RawTH1C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getNdivisionA" + c_th1c_getndivisiona :: Ptr RawTH1C -> CString -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_getAxisColorA" c_th1c_getaxiscolora - :: (Ptr RawTH1C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getAxisColorA" + c_th1c_getaxiscolora :: Ptr RawTH1C -> CString -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_getLabelColorA" c_th1c_getlabelcolora - :: (Ptr RawTH1C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getLabelColorA" + c_th1c_getlabelcolora :: Ptr RawTH1C -> CString -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_getLabelFontA" c_th1c_getlabelfonta - :: (Ptr RawTH1C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getLabelFontA" + c_th1c_getlabelfonta :: Ptr RawTH1C -> CString -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_getLabelOffsetA" c_th1c_getlabeloffseta - :: (Ptr RawTH1C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getLabelOffsetA" + c_th1c_getlabeloffseta :: Ptr RawTH1C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getLabelSizeA" c_th1c_getlabelsizea - :: (Ptr RawTH1C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getLabelSizeA" + c_th1c_getlabelsizea :: Ptr RawTH1C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getTitleFontA" c_th1c_gettitlefonta - :: (Ptr RawTH1C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getTitleFontA" + c_th1c_gettitlefonta :: Ptr RawTH1C -> CString -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_getTitleOffsetA" c_th1c_gettitleoffseta - :: (Ptr RawTH1C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getTitleOffsetA" + c_th1c_gettitleoffseta :: Ptr RawTH1C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getTitleSizeA" c_th1c_gettitlesizea - :: (Ptr RawTH1C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getTitleSizeA" + c_th1c_gettitlesizea :: Ptr RawTH1C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getTickLengthA" c_th1c_getticklengtha - :: (Ptr RawTH1C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getTickLengthA" + c_th1c_getticklengtha :: Ptr RawTH1C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBarOffset" c_th1c_getbaroffset - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBarOffset" + c_th1c_getbaroffset :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBarWidth" c_th1c_getbarwidth - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBarWidth" + c_th1c_getbarwidth :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetContour" c_th1c_getcontour - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetContour" + c_th1c_getcontour :: Ptr RawTH1C -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetContourLevel" c_th1c_getcontourlevel - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetContourLevel" + c_th1c_getcontourlevel :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetContourLevelPad" c_th1c_getcontourlevelpad - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetContourLevelPad" + c_th1c_getcontourlevelpad :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBin" c_th1c_getbin - :: (Ptr RawTH1C) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBin" + c_th1c_getbin :: Ptr RawTH1C -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinCenter" c_th1c_getbincenter - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinCenter" + c_th1c_getbincenter :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinContent1" c_th1c_getbincontent1 - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinContent1" + c_th1c_getbincontent1 :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinContent2" c_th1c_getbincontent2 - :: (Ptr RawTH1C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinContent2" + c_th1c_getbincontent2 :: Ptr RawTH1C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinContent3" c_th1c_getbincontent3 - :: (Ptr RawTH1C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinContent3" + c_th1c_getbincontent3 :: + Ptr RawTH1C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinError1" c_th1c_getbinerror1 - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinError1" + c_th1c_getbinerror1 :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinError2" c_th1c_getbinerror2 - :: (Ptr RawTH1C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinError2" + c_th1c_getbinerror2 :: Ptr RawTH1C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinError3" c_th1c_getbinerror3 - :: (Ptr RawTH1C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinError3" + c_th1c_getbinerror3 :: + Ptr RawTH1C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinLowEdge" c_th1c_getbinlowedge - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinLowEdge" + c_th1c_getbinlowedge :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetBinWidth" c_th1c_getbinwidth - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetBinWidth" + c_th1c_getbinwidth :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetCellContent" c_th1c_getcellcontent - :: (Ptr RawTH1C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetCellContent" + c_th1c_getcellcontent :: Ptr RawTH1C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetCellError" c_th1c_getcellerror - :: (Ptr RawTH1C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetCellError" + c_th1c_getcellerror :: Ptr RawTH1C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetEntries" c_th1c_getentries - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetEntries" + c_th1c_getentries :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetEffectiveEntries" c_th1c_geteffectiveentries - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1C.h TH1C_GetEffectiveEntries" + c_th1c_geteffectiveentries :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetFunction" c_th1c_getfunction - :: (Ptr RawTH1C) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetFunction" + c_th1c_getfunction :: Ptr RawTH1C -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1C.h TH1C_GetDimension" c_th1c_getdimension - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetDimension" + c_th1c_getdimension :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetKurtosis" c_th1c_getkurtosis - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetKurtosis" + c_th1c_getkurtosis :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetLowEdge" c_th1c_getlowedge - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetLowEdge" + c_th1c_getlowedge :: Ptr RawTH1C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_getMaximumTH1" c_th1c_getmaximumth1 - :: (Ptr RawTH1C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getMaximumTH1" + c_th1c_getmaximumth1 :: Ptr RawTH1C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetMaximumBin" c_th1c_getmaximumbin - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMaximumBin" + c_th1c_getmaximumbin :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetMaximumStored" c_th1c_getmaximumstored - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMaximumStored" + c_th1c_getmaximumstored :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getMinimumTH1" c_th1c_getminimumth1 - :: (Ptr RawTH1C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_getMinimumTH1" + c_th1c_getminimumth1 :: Ptr RawTH1C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetMinimumBin" c_th1c_getminimumbin - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMinimumBin" + c_th1c_getminimumbin :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetMinimumStored" c_th1c_getminimumstored - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMinimumStored" + c_th1c_getminimumstored :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetMean" c_th1c_getmean - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMean" + c_th1c_getmean :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetMeanError" c_th1c_getmeanerror - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMeanError" + c_th1c_getmeanerror :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetNbinsX" c_th1c_getnbinsx - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetNbinsX" + c_th1c_getnbinsx :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetNbinsY" c_th1c_getnbinsy - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetNbinsY" + c_th1c_getnbinsy :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetNbinsZ" c_th1c_getnbinsz - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetNbinsZ" + c_th1c_getnbinsz :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_getQuantilesTH1" c_th1c_getquantilesth1 - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_getQuantilesTH1" + c_th1c_getquantilesth1 :: + Ptr RawTH1C -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetRandom" c_th1c_getrandom - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetRandom" + c_th1c_getrandom :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetStats" c_th1c_getstats - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetStats" + c_th1c_getstats :: Ptr RawTH1C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetSumOfWeights" c_th1c_getsumofweights - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetSumOfWeights" + c_th1c_getsumofweights :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetSumw2" c_th1c_getsumw2 - :: (Ptr RawTH1C) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetSumw2" + c_th1c_getsumw2 :: Ptr RawTH1C -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1C.h TH1C_GetSumw2N" c_th1c_getsumw2n - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetSumw2N" + c_th1c_getsumw2n :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_GetRMS" c_th1c_getrms - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetRMS" + c_th1c_getrms :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetRMSError" c_th1c_getrmserror - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetRMSError" + c_th1c_getrmserror :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_GetSkewness" c_th1c_getskewness - :: (Ptr RawTH1C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetSkewness" + c_th1c_getskewness :: Ptr RawTH1C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_integral1" c_th1c_integral1 - :: (Ptr RawTH1C) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_integral1" + c_th1c_integral1 :: + Ptr RawTH1C -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_interpolate1" c_th1c_interpolate1 - :: (Ptr RawTH1C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_interpolate1" + c_th1c_interpolate1 :: Ptr RawTH1C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_interpolate2" c_th1c_interpolate2 - :: (Ptr RawTH1C) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_interpolate2" + c_th1c_interpolate2 :: + Ptr RawTH1C -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_interpolate3" c_th1c_interpolate3 - :: (Ptr RawTH1C) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_interpolate3" + c_th1c_interpolate3 :: + Ptr RawTH1C -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_KolmogorovTest" c_th1c_kolmogorovtest - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_KolmogorovTest" + c_th1c_kolmogorovtest :: + Ptr RawTH1C -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_LabelsDeflate" c_th1c_labelsdeflate - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_LabelsDeflate" + c_th1c_labelsdeflate :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_LabelsInflate" c_th1c_labelsinflate - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_LabelsInflate" + c_th1c_labelsinflate :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_LabelsOption" c_th1c_labelsoption - :: (Ptr RawTH1C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_LabelsOption" + c_th1c_labelsoption :: Ptr RawTH1C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_multiflyF" c_th1c_multiflyf - :: (Ptr RawTH1C) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_multiflyF" + c_th1c_multiflyf :: Ptr RawTH1C -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Multiply" c_th1c_multiply - :: (Ptr RawTH1C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Multiply" + c_th1c_multiply :: + Ptr RawTH1C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_PutStats" c_th1c_putstats - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_PutStats" + c_th1c_putstats :: Ptr RawTH1C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Rebin" c_th1c_rebin - :: (Ptr RawTH1C) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1C.h TH1C_Rebin" c_th1c_rebin + :: + Ptr RawTH1C -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1C.h TH1C_RebinAxis" c_th1c_rebinaxis - :: (Ptr RawTH1C) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_RebinAxis" + c_th1c_rebinaxis :: Ptr RawTH1C -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Rebuild" c_th1c_rebuild - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Rebuild" + c_th1c_rebuild :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_RecursiveRemove" c_th1c_recursiveremove - :: (Ptr RawTH1C) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_RecursiveRemove" + c_th1c_recursiveremove :: Ptr RawTH1C -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Reset" c_th1c_reset - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Reset" c_th1c_reset + :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_ResetStats" c_th1c_resetstats - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_ResetStats" + c_th1c_resetstats :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Scale" c_th1c_scale - :: (Ptr RawTH1C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Scale" c_th1c_scale + :: Ptr RawTH1C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setAxisColorA" c_th1c_setaxiscolora - :: (Ptr RawTH1C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setAxisColorA" + c_th1c_setaxiscolora :: Ptr RawTH1C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetAxisRange" c_th1c_setaxisrange - :: (Ptr RawTH1C) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetAxisRange" + c_th1c_setaxisrange :: + Ptr RawTH1C -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetBarOffset" c_th1c_setbaroffset - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetBarOffset" + c_th1c_setbaroffset :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetBarWidth" c_th1c_setbarwidth - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetBarWidth" + c_th1c_setbarwidth :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinContent1" c_th1c_setbincontent1 - :: (Ptr RawTH1C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinContent1" + c_th1c_setbincontent1 :: Ptr RawTH1C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinContent2" c_th1c_setbincontent2 - :: (Ptr RawTH1C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinContent2" + c_th1c_setbincontent2 :: + Ptr RawTH1C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinContent3" c_th1c_setbincontent3 - :: (Ptr RawTH1C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinContent3" + c_th1c_setbincontent3 :: + Ptr RawTH1C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinError1" c_th1c_setbinerror1 - :: (Ptr RawTH1C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinError1" + c_th1c_setbinerror1 :: Ptr RawTH1C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinError2" c_th1c_setbinerror2 - :: (Ptr RawTH1C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinError2" + c_th1c_setbinerror2 :: + Ptr RawTH1C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBinError3" c_th1c_setbinerror3 - :: (Ptr RawTH1C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBinError3" + c_th1c_setbinerror3 :: + Ptr RawTH1C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBins1" c_th1c_setbins1 - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBins1" + c_th1c_setbins1 :: Ptr RawTH1C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBins2" c_th1c_setbins2 - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBins2" + c_th1c_setbins2 :: + Ptr RawTH1C -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setBins3" c_th1c_setbins3 - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setBins3" + c_th1c_setbins3 :: + Ptr RawTH1C -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetBinsLength" c_th1c_setbinslength - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetBinsLength" + c_th1c_setbinslength :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetBuffer" c_th1c_setbuffer - :: (Ptr RawTH1C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetBuffer" + c_th1c_setbuffer :: Ptr RawTH1C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetCellContent" c_th1c_setcellcontent - :: (Ptr RawTH1C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetCellContent" + c_th1c_setcellcontent :: + Ptr RawTH1C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetContent" c_th1c_setcontent - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetContent" + c_th1c_setcontent :: Ptr RawTH1C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetContour" c_th1c_setcontour - :: (Ptr RawTH1C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetContour" + c_th1c_setcontour :: Ptr RawTH1C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetContourLevel" c_th1c_setcontourlevel - :: (Ptr RawTH1C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetContourLevel" + c_th1c_setcontourlevel :: Ptr RawTH1C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetDirectory" c_th1c_setdirectory - :: (Ptr RawTH1C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetDirectory" + c_th1c_setdirectory :: Ptr RawTH1C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetEntries" c_th1c_setentries - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetEntries" + c_th1c_setentries :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetError" c_th1c_seterror - :: (Ptr RawTH1C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetError" + c_th1c_seterror :: Ptr RawTH1C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setLabelColorA" c_th1c_setlabelcolora - :: (Ptr RawTH1C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setLabelColorA" + c_th1c_setlabelcolora :: Ptr RawTH1C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setLabelSizeA" c_th1c_setlabelsizea - :: (Ptr RawTH1C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setLabelSizeA" + c_th1c_setlabelsizea :: Ptr RawTH1C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setLabelFontA" c_th1c_setlabelfonta - :: (Ptr RawTH1C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setLabelFontA" + c_th1c_setlabelfonta :: Ptr RawTH1C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_setLabelOffsetA" c_th1c_setlabeloffseta - :: (Ptr RawTH1C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_setLabelOffsetA" + c_th1c_setlabeloffseta :: + Ptr RawTH1C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetMaximum" c_th1c_setmaximum - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetMaximum" + c_th1c_setmaximum :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetMinimum" c_th1c_setminimum - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetMinimum" + c_th1c_setminimum :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetNormFactor" c_th1c_setnormfactor - :: (Ptr RawTH1C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetNormFactor" + c_th1c_setnormfactor :: Ptr RawTH1C -> CDouble -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetStats" c_th1c_setstats - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetStats" + c_th1c_setstats :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetOption" c_th1c_setoption - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetOption" + c_th1c_setoption :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetXTitle" c_th1c_setxtitle - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetXTitle" + c_th1c_setxtitle :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetYTitle" c_th1c_setytitle - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetYTitle" + c_th1c_setytitle :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetZTitle" c_th1c_setztitle - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetZTitle" + c_th1c_setztitle :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_ShowBackground" c_th1c_showbackground - :: (Ptr RawTH1C) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1C.h TH1C_ShowBackground" + c_th1c_showbackground :: + Ptr RawTH1C -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1C.h TH1C_ShowPeaks" c_th1c_showpeaks - :: (Ptr RawTH1C) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_ShowPeaks" + c_th1c_showpeaks :: + Ptr RawTH1C -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_Smooth" c_th1c_smooth - :: (Ptr RawTH1C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Smooth" + c_th1c_smooth :: Ptr RawTH1C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Sumw2" c_th1c_sumw2 - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Sumw2" c_th1c_sumw2 + :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Draw" c_th1c_draw - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetName" + c_th1c_setname :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_FindObject" c_th1c_findobject - :: (Ptr RawTH1C) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetNameTitle" + c_th1c_setnametitle :: Ptr RawTH1C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetName" c_th1c_getname - :: (Ptr RawTH1C) -> IO CString +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetTitle" + c_th1c_settitle :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_IsA" c_th1c_isa - :: (Ptr RawTH1C) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetLineColor" + c_th1c_getlinecolor :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_Paint" c_th1c_paint - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetLineStyle" + c_th1c_getlinestyle :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_printObj" c_th1c_printobj - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetLineWidth" + c_th1c_getlinewidth :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_SaveAs" c_th1c_saveas - :: (Ptr RawTH1C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_ResetAttLine" + c_th1c_resetattline :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_Write" c_th1c_write - :: (Ptr RawTH1C) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetLineAttributes" + c_th1c_setlineattributes :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetLineColor" c_th1c_getlinecolor - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetLineColor" + c_th1c_setlinecolor :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetLineStyle" c_th1c_getlinestyle - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetLineStyle" + c_th1c_setlinestyle :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetLineWidth" c_th1c_getlinewidth - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetLineWidth" + c_th1c_setlinewidth :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_ResetAttLine" c_th1c_resetattline - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetFillColor" + c_th1c_setfillcolor :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetLineAttributes" c_th1c_setlineattributes - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetFillStyle" + c_th1c_setfillstyle :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetLineColor" c_th1c_setlinecolor - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMarkerColor" + c_th1c_getmarkercolor :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_SetLineStyle" c_th1c_setlinestyle - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMarkerStyle" + c_th1c_getmarkerstyle :: Ptr RawTH1C -> IO CInt -foreign import ccall "HROOTHistTH1C.h TH1C_SetLineWidth" c_th1c_setlinewidth - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetMarkerSize" + c_th1c_getmarkersize :: Ptr RawTH1C -> IO CDouble -foreign import ccall "HROOTHistTH1C.h TH1C_SetFillColor" c_th1c_setfillcolor - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_ResetAttMarker" + c_th1c_resetattmarker :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetFillStyle" c_th1c_setfillstyle - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1C.h TH1C_SetMarkerAttributes" + c_th1c_setmarkerattributes :: Ptr RawTH1C -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetMarkerColor" c_th1c_getmarkercolor - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetMarkerColor" + c_th1c_setmarkercolor :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetMarkerStyle" c_th1c_getmarkerstyle - :: (Ptr RawTH1C) -> IO CInt +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetMarkerStyle" + c_th1c_setmarkerstyle :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_GetMarkerSize" c_th1c_getmarkersize - :: (Ptr RawTH1C) -> IO CDouble +foreign import ccall safe "HROOTHistTH1C.h TH1C_SetMarkerSize" + c_th1c_setmarkersize :: Ptr RawTH1C -> CInt -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_ResetAttMarker" c_th1c_resetattmarker - :: (Ptr RawTH1C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Draw" c_th1c_draw + :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_SetMarkerAttributes" c_th1c_setmarkerattributes - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_FindObject" + c_th1c_findobject :: Ptr RawTH1C -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1C.h TH1C_SetMarkerColor" c_th1c_setmarkercolor - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_GetName" + c_th1c_getname :: Ptr RawTH1C -> IO CString -foreign import ccall "HROOTHistTH1C.h TH1C_SetMarkerStyle" c_th1c_setmarkerstyle - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_IsA" c_th1c_isa :: + Ptr RawTH1C -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1C.h TH1C_SetMarkerSize" c_th1c_setmarkersize - :: (Ptr RawTH1C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_Paint" c_th1c_paint + :: Ptr RawTH1C -> CString -> IO () -foreign import ccall "HROOTHistTH1C.h TH1C_delete" c_th1c_delete - :: (Ptr RawTH1C) -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_printObj" + c_th1c_printobj :: Ptr RawTH1C -> CString -> IO () +foreign import ccall safe "HROOTHistTH1C.h TH1C_SaveAs" + c_th1c_saveas :: Ptr RawTH1C -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH1C.h TH1C_Write" c_th1c_write + :: Ptr RawTH1C -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1C.h TH1C_delete" + c_th1c_delete :: Ptr RawTH1C -> IO () diff --git a/src/HROOT/Hist/TH1C/Implementation.hs b/src/HROOT/Hist/TH1C/Implementation.hs --- a/src/HROOT/Hist/TH1C/Implementation.hs +++ b/src/HROOT/Hist/TH1C/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1C.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1C.RawType import HROOT.Hist.TH1C.FFI import HROOT.Hist.TH1C.Interface @@ -32,9 +33,9 @@ import HROOT.Core.TArrayC.RawType import HROOT.Core.TArrayC.Cast import HROOT.Core.TArrayC.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -44,6 +45,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -51,358 +55,183 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1C TH1C -instance ITH1C TH1C where instance ITH1 TH1C where - add = xform2 c_th1c_add - addBinContent = xform2 c_th1c_addbincontent - chi2Test = xform3 c_th1c_chi2test - computeIntegral = xform0 c_th1c_computeintegral - directoryAutoAdd = xform1 c_th1c_directoryautoadd - divide = xform5 c_th1c_divide - drawCopyTH1 = xform1 c_th1c_drawcopyth1 - drawNormalized = xform2 c_th1c_drawnormalized - drawPanelTH1 = xform0 c_th1c_drawpanelth1 - bufferEmpty = xform1 c_th1c_bufferempty - evalF = xform2 c_th1c_evalf - fFT = xform2 c_th1c_fft - fill1 = xform1 c_th1c_fill1 - fill1w = xform2 c_th1c_fill1w - fillN1 = xform4 c_th1c_filln1 - fillRandom = xform2 c_th1c_fillrandom - findBin = xform3 c_th1c_findbin - findFixBin = xform3 c_th1c_findfixbin - findFirstBinAbove = xform2 c_th1c_findfirstbinabove - findLastBinAbove = xform2 c_th1c_findlastbinabove - fitPanelTH1 = xform0 c_th1c_fitpanelth1 - getNdivisionA = xform1 c_th1c_getndivisiona - getAxisColorA = xform1 c_th1c_getaxiscolora - getLabelColorA = xform1 c_th1c_getlabelcolora - getLabelFontA = xform1 c_th1c_getlabelfonta - getLabelOffsetA = xform1 c_th1c_getlabeloffseta - getLabelSizeA = xform1 c_th1c_getlabelsizea - getTitleFontA = xform1 c_th1c_gettitlefonta - getTitleOffsetA = xform1 c_th1c_gettitleoffseta - getTitleSizeA = xform1 c_th1c_gettitlesizea - getTickLengthA = xform1 c_th1c_getticklengtha - getBarOffset = xform0 c_th1c_getbaroffset - getBarWidth = xform0 c_th1c_getbarwidth - getContour = xform1 c_th1c_getcontour - getContourLevel = xform1 c_th1c_getcontourlevel - getContourLevelPad = xform1 c_th1c_getcontourlevelpad - getBin = xform3 c_th1c_getbin - getBinCenter = xform1 c_th1c_getbincenter - getBinContent1 = xform1 c_th1c_getbincontent1 - getBinContent2 = xform2 c_th1c_getbincontent2 - getBinContent3 = xform3 c_th1c_getbincontent3 - getBinError1 = xform1 c_th1c_getbinerror1 - getBinError2 = xform2 c_th1c_getbinerror2 - getBinError3 = xform3 c_th1c_getbinerror3 - getBinLowEdge = xform1 c_th1c_getbinlowedge - getBinWidth = xform1 c_th1c_getbinwidth - getCellContent = xform2 c_th1c_getcellcontent - getCellError = xform2 c_th1c_getcellerror - getEntries = xform0 c_th1c_getentries - getEffectiveEntries = xform0 c_th1c_geteffectiveentries - getFunction = xform1 c_th1c_getfunction - getDimension = xform0 c_th1c_getdimension - getKurtosis = xform1 c_th1c_getkurtosis - getLowEdge = xform1 c_th1c_getlowedge - getMaximumTH1 = xform1 c_th1c_getmaximumth1 - getMaximumBin = xform0 c_th1c_getmaximumbin - getMaximumStored = xform0 c_th1c_getmaximumstored - getMinimumTH1 = xform1 c_th1c_getminimumth1 - getMinimumBin = xform0 c_th1c_getminimumbin - getMinimumStored = xform0 c_th1c_getminimumstored - getMean = xform1 c_th1c_getmean - getMeanError = xform1 c_th1c_getmeanerror - getNbinsX = xform0 c_th1c_getnbinsx - getNbinsY = xform0 c_th1c_getnbinsy - getNbinsZ = xform0 c_th1c_getnbinsz - getQuantilesTH1 = xform3 c_th1c_getquantilesth1 - getRandom = xform0 c_th1c_getrandom - getStats = xform1 c_th1c_getstats - getSumOfWeights = xform0 c_th1c_getsumofweights - getSumw2 = xform0 c_th1c_getsumw2 - getSumw2N = xform0 c_th1c_getsumw2n - getRMS = xform1 c_th1c_getrms - getRMSError = xform1 c_th1c_getrmserror - getSkewness = xform1 c_th1c_getskewness - integral1 = xform3 c_th1c_integral1 - interpolate1 = xform1 c_th1c_interpolate1 - interpolate2 = xform2 c_th1c_interpolate2 - interpolate3 = xform3 c_th1c_interpolate3 - kolmogorovTest = xform2 c_th1c_kolmogorovtest - labelsDeflate = xform1 c_th1c_labelsdeflate - labelsInflate = xform1 c_th1c_labelsinflate - labelsOption = xform2 c_th1c_labelsoption - multiflyF = xform2 c_th1c_multiflyf - multiply = xform5 c_th1c_multiply - putStats = xform1 c_th1c_putstats - rebin = xform3 c_th1c_rebin - rebinAxis = xform2 c_th1c_rebinaxis - rebuild = xform1 c_th1c_rebuild - recursiveRemove = xform1 c_th1c_recursiveremove - reset = xform1 c_th1c_reset - resetStats = xform0 c_th1c_resetstats - scale = xform2 c_th1c_scale - setAxisColorA = xform2 c_th1c_setaxiscolora - setAxisRange = xform3 c_th1c_setaxisrange - setBarOffset = xform1 c_th1c_setbaroffset - setBarWidth = xform1 c_th1c_setbarwidth - setBinContent1 = xform2 c_th1c_setbincontent1 - setBinContent2 = xform3 c_th1c_setbincontent2 - setBinContent3 = xform4 c_th1c_setbincontent3 - setBinError1 = xform2 c_th1c_setbinerror1 - setBinError2 = xform3 c_th1c_setbinerror2 - setBinError3 = xform4 c_th1c_setbinerror3 - setBins1 = xform2 c_th1c_setbins1 - setBins2 = xform4 c_th1c_setbins2 - setBins3 = xform6 c_th1c_setbins3 - setBinsLength = xform1 c_th1c_setbinslength - setBuffer = xform2 c_th1c_setbuffer - setCellContent = xform3 c_th1c_setcellcontent - setContent = xform1 c_th1c_setcontent - setContour = xform2 c_th1c_setcontour - setContourLevel = xform2 c_th1c_setcontourlevel - setDirectory = xform1 c_th1c_setdirectory - setEntries = xform1 c_th1c_setentries - setError = xform1 c_th1c_seterror - setLabelColorA = xform2 c_th1c_setlabelcolora - setLabelSizeA = xform2 c_th1c_setlabelsizea - setLabelFontA = xform2 c_th1c_setlabelfonta - setLabelOffsetA = xform2 c_th1c_setlabeloffseta - setMaximum = xform1 c_th1c_setmaximum - setMinimum = xform1 c_th1c_setminimum - setNormFactor = xform1 c_th1c_setnormfactor - setStats = xform1 c_th1c_setstats - setOption = xform1 c_th1c_setoption - setXTitle = xform1 c_th1c_setxtitle - setYTitle = xform1 c_th1c_setytitle - setZTitle = xform1 c_th1c_setztitle - showBackground = xform2 c_th1c_showbackground - showPeaks = xform3 c_th1c_showpeaks - smooth = xform2 c_th1c_smooth - sumw2 = xform0 c_th1c_sumw2 -instance ITArrayC TH1C where -instance ITObject TH1C where - draw = xform1 c_th1c_draw - findObject = xform1 c_th1c_findobject - getName = xform0 c_th1c_getname - isA = xform0 c_th1c_isa - paint = xform1 c_th1c_paint - printObj = xform1 c_th1c_printobj - saveAs = xform2 c_th1c_saveas - write = xform3 c_th1c_write -instance ITAttLine TH1C where - getLineColor = xform0 c_th1c_getlinecolor - getLineStyle = xform0 c_th1c_getlinestyle - getLineWidth = xform0 c_th1c_getlinewidth - resetAttLine = xform1 c_th1c_resetattline - setLineAttributes = xform0 c_th1c_setlineattributes - setLineColor = xform1 c_th1c_setlinecolor - setLineStyle = xform1 c_th1c_setlinestyle - setLineWidth = xform1 c_th1c_setlinewidth -instance ITAttFill TH1C where - setFillColor = xform1 c_th1c_setfillcolor - setFillStyle = xform1 c_th1c_setfillstyle -instance ITAttMarker TH1C where - getMarkerColor = xform0 c_th1c_getmarkercolor - getMarkerStyle = xform0 c_th1c_getmarkerstyle - getMarkerSize = xform0 c_th1c_getmarkersize - resetAttMarker = xform1 c_th1c_resetattmarker - setMarkerAttributes = xform0 c_th1c_setmarkerattributes - setMarkerColor = xform1 c_th1c_setmarkercolor - setMarkerStyle = xform1 c_th1c_setmarkerstyle - setMarkerSize = xform1 c_th1c_setmarkersize -instance IDeletable TH1C where - delete = xform0 c_th1c_delete -instance ITArray TH1C where - -instance ITH1C (Exist TH1C) where - -instance ITH1 (Exist TH1C) where - add (ETH1C x) = add x - addBinContent (ETH1C x) = addBinContent x - chi2Test (ETH1C x) = chi2Test x - computeIntegral (ETH1C x) = computeIntegral x - directoryAutoAdd (ETH1C x) = directoryAutoAdd x - divide (ETH1C x) = divide x - drawCopyTH1 (ETH1C x) a1 = return . ETH1C =<< drawCopyTH1 x a1 - drawNormalized (ETH1C x) = drawNormalized x - drawPanelTH1 (ETH1C x) = drawPanelTH1 x - bufferEmpty (ETH1C x) = bufferEmpty x - evalF (ETH1C x) = evalF x - fFT (ETH1C x) = fFT x - fill1 (ETH1C x) = fill1 x - fill1w (ETH1C x) = fill1w x - fillN1 (ETH1C x) = fillN1 x - fillRandom (ETH1C x) = fillRandom x - findBin (ETH1C x) = findBin x - findFixBin (ETH1C x) = findFixBin x - findFirstBinAbove (ETH1C x) = findFirstBinAbove x - findLastBinAbove (ETH1C x) = findLastBinAbove x - fitPanelTH1 (ETH1C x) = fitPanelTH1 x - getNdivisionA (ETH1C x) = getNdivisionA x - getAxisColorA (ETH1C x) = getAxisColorA x - getLabelColorA (ETH1C x) = getLabelColorA x - getLabelFontA (ETH1C x) = getLabelFontA x - getLabelOffsetA (ETH1C x) = getLabelOffsetA x - getLabelSizeA (ETH1C x) = getLabelSizeA x - getTitleFontA (ETH1C x) = getTitleFontA x - getTitleOffsetA (ETH1C x) = getTitleOffsetA x - getTitleSizeA (ETH1C x) = getTitleSizeA x - getTickLengthA (ETH1C x) = getTickLengthA x - getBarOffset (ETH1C x) = getBarOffset x - getBarWidth (ETH1C x) = getBarWidth x - getContour (ETH1C x) = getContour x - getContourLevel (ETH1C x) = getContourLevel x - getContourLevelPad (ETH1C x) = getContourLevelPad x - getBin (ETH1C x) = getBin x - getBinCenter (ETH1C x) = getBinCenter x - getBinContent1 (ETH1C x) = getBinContent1 x - getBinContent2 (ETH1C x) = getBinContent2 x - getBinContent3 (ETH1C x) = getBinContent3 x - getBinError1 (ETH1C x) = getBinError1 x - getBinError2 (ETH1C x) = getBinError2 x - getBinError3 (ETH1C x) = getBinError3 x - getBinLowEdge (ETH1C x) = getBinLowEdge x - getBinWidth (ETH1C x) = getBinWidth x - getCellContent (ETH1C x) = getCellContent x - getCellError (ETH1C x) = getCellError x - getEntries (ETH1C x) = getEntries x - getEffectiveEntries (ETH1C x) = getEffectiveEntries x - getFunction (ETH1C x) = getFunction x - getDimension (ETH1C x) = getDimension x - getKurtosis (ETH1C x) = getKurtosis x - getLowEdge (ETH1C x) = getLowEdge x - getMaximumTH1 (ETH1C x) = getMaximumTH1 x - getMaximumBin (ETH1C x) = getMaximumBin x - getMaximumStored (ETH1C x) = getMaximumStored x - getMinimumTH1 (ETH1C x) = getMinimumTH1 x - getMinimumBin (ETH1C x) = getMinimumBin x - getMinimumStored (ETH1C x) = getMinimumStored x - getMean (ETH1C x) = getMean x - getMeanError (ETH1C x) = getMeanError x - getNbinsX (ETH1C x) = getNbinsX x - getNbinsY (ETH1C x) = getNbinsY x - getNbinsZ (ETH1C x) = getNbinsZ x - getQuantilesTH1 (ETH1C x) = getQuantilesTH1 x - getRandom (ETH1C x) = getRandom x - getStats (ETH1C x) = getStats x - getSumOfWeights (ETH1C x) = getSumOfWeights x - getSumw2 (ETH1C x) = getSumw2 x - getSumw2N (ETH1C x) = getSumw2N x - getRMS (ETH1C x) = getRMS x - getRMSError (ETH1C x) = getRMSError x - getSkewness (ETH1C x) = getSkewness x - integral1 (ETH1C x) = integral1 x - interpolate1 (ETH1C x) = interpolate1 x - interpolate2 (ETH1C x) = interpolate2 x - interpolate3 (ETH1C x) = interpolate3 x - kolmogorovTest (ETH1C x) = kolmogorovTest x - labelsDeflate (ETH1C x) = labelsDeflate x - labelsInflate (ETH1C x) = labelsInflate x - labelsOption (ETH1C x) = labelsOption x - multiflyF (ETH1C x) = multiflyF x - multiply (ETH1C x) = multiply x - putStats (ETH1C x) = putStats x - rebin (ETH1C x) = rebin x - rebinAxis (ETH1C x) = rebinAxis x - rebuild (ETH1C x) = rebuild x - recursiveRemove (ETH1C x) = recursiveRemove x - reset (ETH1C x) = reset x - resetStats (ETH1C x) = resetStats x - scale (ETH1C x) = scale x - setAxisColorA (ETH1C x) = setAxisColorA x - setAxisRange (ETH1C x) = setAxisRange x - setBarOffset (ETH1C x) = setBarOffset x - setBarWidth (ETH1C x) = setBarWidth x - setBinContent1 (ETH1C x) = setBinContent1 x - setBinContent2 (ETH1C x) = setBinContent2 x - setBinContent3 (ETH1C x) = setBinContent3 x - setBinError1 (ETH1C x) = setBinError1 x - setBinError2 (ETH1C x) = setBinError2 x - setBinError3 (ETH1C x) = setBinError3 x - setBins1 (ETH1C x) = setBins1 x - setBins2 (ETH1C x) = setBins2 x - setBins3 (ETH1C x) = setBins3 x - setBinsLength (ETH1C x) = setBinsLength x - setBuffer (ETH1C x) = setBuffer x - setCellContent (ETH1C x) = setCellContent x - setContent (ETH1C x) = setContent x - setContour (ETH1C x) = setContour x - setContourLevel (ETH1C x) = setContourLevel x - setDirectory (ETH1C x) = setDirectory x - setEntries (ETH1C x) = setEntries x - setError (ETH1C x) = setError x - setLabelColorA (ETH1C x) = setLabelColorA x - setLabelSizeA (ETH1C x) = setLabelSizeA x - setLabelFontA (ETH1C x) = setLabelFontA x - setLabelOffsetA (ETH1C x) = setLabelOffsetA x - setMaximum (ETH1C x) = setMaximum x - setMinimum (ETH1C x) = setMinimum x - setNormFactor (ETH1C x) = setNormFactor x - setStats (ETH1C x) = setStats x - setOption (ETH1C x) = setOption x - setXTitle (ETH1C x) = setXTitle x - setYTitle (ETH1C x) = setYTitle x - setZTitle (ETH1C x) = setZTitle x - showBackground (ETH1C x) = showBackground x - showPeaks (ETH1C x) = showPeaks x - smooth (ETH1C x) = smooth x - sumw2 (ETH1C x) = sumw2 x -instance ITArrayC (Exist TH1C) where - -instance ITObject (Exist TH1C) where - draw (ETH1C x) = draw x - findObject (ETH1C x) = findObject x - getName (ETH1C x) = getName x - isA (ETH1C x) = isA x - paint (ETH1C x) = paint x - printObj (ETH1C x) = printObj x - saveAs (ETH1C x) = saveAs x - write (ETH1C x) = write x -instance ITAttLine (Exist TH1C) where - getLineColor (ETH1C x) = getLineColor x - getLineStyle (ETH1C x) = getLineStyle x - getLineWidth (ETH1C x) = getLineWidth x - resetAttLine (ETH1C x) = resetAttLine x - setLineAttributes (ETH1C x) = setLineAttributes x - setLineColor (ETH1C x) = setLineColor x - setLineStyle (ETH1C x) = setLineStyle x - setLineWidth (ETH1C x) = setLineWidth x -instance ITAttFill (Exist TH1C) where - setFillColor (ETH1C x) = setFillColor x - setFillStyle (ETH1C x) = setFillStyle x -instance ITAttMarker (Exist TH1C) where - getMarkerColor (ETH1C x) = getMarkerColor x - getMarkerStyle (ETH1C x) = getMarkerStyle x - getMarkerSize (ETH1C x) = getMarkerSize x - resetAttMarker (ETH1C x) = resetAttMarker x - setMarkerAttributes (ETH1C x) = setMarkerAttributes x - setMarkerColor (ETH1C x) = setMarkerColor x - setMarkerStyle (ETH1C x) = setMarkerStyle x - setMarkerSize (ETH1C x) = setMarkerSize x -instance IDeletable (Exist TH1C) where - delete (ETH1C x) = delete x -instance ITArray (Exist TH1C) where + add = xform2 c_th1c_add + addBinContent = xform2 c_th1c_addbincontent + chi2Test = xform3 c_th1c_chi2test + computeIntegral = xform0 c_th1c_computeintegral + directoryAutoAdd = xform1 c_th1c_directoryautoadd + divide = xform5 c_th1c_divide + drawCopyTH1 = xform1 c_th1c_drawcopyth1 + drawNormalized = xform2 c_th1c_drawnormalized + drawPanelTH1 = xform0 c_th1c_drawpanelth1 + bufferEmpty = xform1 c_th1c_bufferempty + evalF = xform2 c_th1c_evalf + fFT = xform2 c_th1c_fft + fill1 = xform1 c_th1c_fill1 + fill1w = xform2 c_th1c_fill1w + fillN1 = xform4 c_th1c_filln1 + fillRandom = xform2 c_th1c_fillrandom + findBin = xform3 c_th1c_findbin + findFixBin = xform3 c_th1c_findfixbin + findFirstBinAbove = xform2 c_th1c_findfirstbinabove + findLastBinAbove = xform2 c_th1c_findlastbinabove + fit = xform5 c_th1c_fit + fitPanelTH1 = xform0 c_th1c_fitpanelth1 + getNdivisionA = xform1 c_th1c_getndivisiona + getAxisColorA = xform1 c_th1c_getaxiscolora + getLabelColorA = xform1 c_th1c_getlabelcolora + getLabelFontA = xform1 c_th1c_getlabelfonta + getLabelOffsetA = xform1 c_th1c_getlabeloffseta + getLabelSizeA = xform1 c_th1c_getlabelsizea + getTitleFontA = xform1 c_th1c_gettitlefonta + getTitleOffsetA = xform1 c_th1c_gettitleoffseta + getTitleSizeA = xform1 c_th1c_gettitlesizea + getTickLengthA = xform1 c_th1c_getticklengtha + getBarOffset = xform0 c_th1c_getbaroffset + getBarWidth = xform0 c_th1c_getbarwidth + getContour = xform1 c_th1c_getcontour + getContourLevel = xform1 c_th1c_getcontourlevel + getContourLevelPad = xform1 c_th1c_getcontourlevelpad + getBin = xform3 c_th1c_getbin + getBinCenter = xform1 c_th1c_getbincenter + getBinContent1 = xform1 c_th1c_getbincontent1 + getBinContent2 = xform2 c_th1c_getbincontent2 + getBinContent3 = xform3 c_th1c_getbincontent3 + getBinError1 = xform1 c_th1c_getbinerror1 + getBinError2 = xform2 c_th1c_getbinerror2 + getBinError3 = xform3 c_th1c_getbinerror3 + getBinLowEdge = xform1 c_th1c_getbinlowedge + getBinWidth = xform1 c_th1c_getbinwidth + getCellContent = xform2 c_th1c_getcellcontent + getCellError = xform2 c_th1c_getcellerror + getEntries = xform0 c_th1c_getentries + getEffectiveEntries = xform0 c_th1c_geteffectiveentries + getFunction = xform1 c_th1c_getfunction + getDimension = xform0 c_th1c_getdimension + getKurtosis = xform1 c_th1c_getkurtosis + getLowEdge = xform1 c_th1c_getlowedge + getMaximumTH1 = xform1 c_th1c_getmaximumth1 + getMaximumBin = xform0 c_th1c_getmaximumbin + getMaximumStored = xform0 c_th1c_getmaximumstored + getMinimumTH1 = xform1 c_th1c_getminimumth1 + getMinimumBin = xform0 c_th1c_getminimumbin + getMinimumStored = xform0 c_th1c_getminimumstored + getMean = xform1 c_th1c_getmean + getMeanError = xform1 c_th1c_getmeanerror + getNbinsX = xform0 c_th1c_getnbinsx + getNbinsY = xform0 c_th1c_getnbinsy + getNbinsZ = xform0 c_th1c_getnbinsz + getQuantilesTH1 = xform3 c_th1c_getquantilesth1 + getRandom = xform0 c_th1c_getrandom + getStats = xform1 c_th1c_getstats + getSumOfWeights = xform0 c_th1c_getsumofweights + getSumw2 = xform0 c_th1c_getsumw2 + getSumw2N = xform0 c_th1c_getsumw2n + getRMS = xform1 c_th1c_getrms + getRMSError = xform1 c_th1c_getrmserror + getSkewness = xform1 c_th1c_getskewness + integral1 = xform3 c_th1c_integral1 + interpolate1 = xform1 c_th1c_interpolate1 + interpolate2 = xform2 c_th1c_interpolate2 + interpolate3 = xform3 c_th1c_interpolate3 + kolmogorovTest = xform2 c_th1c_kolmogorovtest + labelsDeflate = xform1 c_th1c_labelsdeflate + labelsInflate = xform1 c_th1c_labelsinflate + labelsOption = xform2 c_th1c_labelsoption + multiflyF = xform2 c_th1c_multiflyf + multiply = xform5 c_th1c_multiply + putStats = xform1 c_th1c_putstats + rebin = xform3 c_th1c_rebin + rebinAxis = xform2 c_th1c_rebinaxis + rebuild = xform1 c_th1c_rebuild + recursiveRemove = xform1 c_th1c_recursiveremove + reset = xform1 c_th1c_reset + resetStats = xform0 c_th1c_resetstats + scale = xform2 c_th1c_scale + setAxisColorA = xform2 c_th1c_setaxiscolora + setAxisRange = xform3 c_th1c_setaxisrange + setBarOffset = xform1 c_th1c_setbaroffset + setBarWidth = xform1 c_th1c_setbarwidth + setBinContent1 = xform2 c_th1c_setbincontent1 + setBinContent2 = xform3 c_th1c_setbincontent2 + setBinContent3 = xform4 c_th1c_setbincontent3 + setBinError1 = xform2 c_th1c_setbinerror1 + setBinError2 = xform3 c_th1c_setbinerror2 + setBinError3 = xform4 c_th1c_setbinerror3 + setBins1 = xform2 c_th1c_setbins1 + setBins2 = xform4 c_th1c_setbins2 + setBins3 = xform6 c_th1c_setbins3 + setBinsLength = xform1 c_th1c_setbinslength + setBuffer = xform2 c_th1c_setbuffer + setCellContent = xform3 c_th1c_setcellcontent + setContent = xform1 c_th1c_setcontent + setContour = xform2 c_th1c_setcontour + setContourLevel = xform2 c_th1c_setcontourlevel + setDirectory = xform1 c_th1c_setdirectory + setEntries = xform1 c_th1c_setentries + setError = xform1 c_th1c_seterror + setLabelColorA = xform2 c_th1c_setlabelcolora + setLabelSizeA = xform2 c_th1c_setlabelsizea + setLabelFontA = xform2 c_th1c_setlabelfonta + setLabelOffsetA = xform2 c_th1c_setlabeloffseta + setMaximum = xform1 c_th1c_setmaximum + setMinimum = xform1 c_th1c_setminimum + setNormFactor = xform1 c_th1c_setnormfactor + setStats = xform1 c_th1c_setstats + setOption = xform1 c_th1c_setoption + setXTitle = xform1 c_th1c_setxtitle + setYTitle = xform1 c_th1c_setytitle + setZTitle = xform1 c_th1c_setztitle + showBackground = xform2 c_th1c_showbackground + showPeaks = xform3 c_th1c_showpeaks + smooth = xform2 c_th1c_smooth + sumw2 = xform0 c_th1c_sumw2 +instance ITArrayC TH1C +instance ITNamed TH1C where + setName = xform1 c_th1c_setname + setNameTitle = xform2 c_th1c_setnametitle + setTitle = xform1 c_th1c_settitle +instance ITAttLine TH1C where + getLineColor = xform0 c_th1c_getlinecolor + getLineStyle = xform0 c_th1c_getlinestyle + getLineWidth = xform0 c_th1c_getlinewidth + resetAttLine = xform1 c_th1c_resetattline + setLineAttributes = xform0 c_th1c_setlineattributes + setLineColor = xform1 c_th1c_setlinecolor + setLineStyle = xform1 c_th1c_setlinestyle + setLineWidth = xform1 c_th1c_setlinewidth +instance ITAttFill TH1C where + setFillColor = xform1 c_th1c_setfillcolor + setFillStyle = xform1 c_th1c_setfillstyle +instance ITAttMarker TH1C where + getMarkerColor = xform0 c_th1c_getmarkercolor + getMarkerStyle = xform0 c_th1c_getmarkerstyle + getMarkerSize = xform0 c_th1c_getmarkersize + resetAttMarker = xform1 c_th1c_resetattmarker + setMarkerAttributes = xform0 c_th1c_setmarkerattributes + setMarkerColor = xform1 c_th1c_setmarkercolor + setMarkerStyle = xform1 c_th1c_setmarkerstyle + setMarkerSize = xform1 c_th1c_setmarkersize +instance ITObject TH1C where + draw = xform1 c_th1c_draw + findObject = xform1 c_th1c_findobject + getName = xform0 c_th1c_getname + isA = xform0 c_th1c_isa + paint = xform1 c_th1c_paint + printObj = xform1 c_th1c_printobj + saveAs = xform2 c_th1c_saveas + write = xform3 c_th1c_write +instance IDeletable TH1C where + delete = xform0 c_th1c_delete -instance FPtr (Exist TH1C) where - type Raw (Exist TH1C) = RawTH1C - get_fptr (ETH1C obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1C) :: TH1C) +instance ITArray TH1C diff --git a/src/HROOT/Hist/TH1C/Interface.hs b/src/HROOT/Hist/TH1C/Interface.hs --- a/src/HROOT/Hist/TH1C/Interface.hs +++ b/src/HROOT/Hist/TH1C/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1C.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1C.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayC.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayC a) => ITH1C a where - -instance Existable TH1C where - data Exist TH1C = forall a. (FPtr a, ITH1C a) => ETH1C a +class (ITH1 a, ITArrayC a) => ITH1C a -upcastTH1C :: (FPtr a, ITH1C a) => a -> TH1C -upcastTH1C h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1C = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1C :: forall a . (FPtr a, ITH1C a) => a -> TH1C +upcastTH1C h + = let fh = get_fptr h + fh2 :: Ptr RawTH1C = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1C :: (FPtr a, ITH1C a) => TH1C -> a -downcastTH1C h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1C :: forall a . (FPtr a, ITH1C a) => TH1C -> a +downcastTH1C h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1C/RawType.hs b/src/HROOT/Hist/TH1C/RawType.hs --- a/src/HROOT/Hist/TH1C/RawType.hs +++ b/src/HROOT/Hist/TH1C/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1C.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1C -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1C = TH1C (Ptr RawTH1C) + deriving (Eq, Ord, Show) -data RawTH1C -newtype TH1C = TH1C (ForeignPtr RawTH1C) deriving (Eq, Ord, Show) instance FPtr TH1C where - type Raw TH1C = RawTH1C - get_fptr (TH1C fptr) = fptr - cast_fptr_to_obj = TH1C + type Raw TH1C = RawTH1C + get_fptr (TH1C ptr) = ptr + cast_fptr_to_obj = TH1C diff --git a/src/HROOT/Hist/TH1D.hs b/src/HROOT/Hist/TH1D.hs --- a/src/HROOT/Hist/TH1D.hs +++ b/src/HROOT/Hist/TH1D.hs @@ -1,15 +1,5 @@ module HROOT.Hist.TH1D - ( - TH1D(..) - , ITH1D - , upcastTH1D - , downcastTH1D - , newTH1D - - ) where - + (TH1D(..), ITH1D, upcastTH1D, downcastTH1D, newTH1D) where import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1D.Interface import HROOT.Hist.TH1D.Implementation - - diff --git a/src/HROOT/Hist/TH1D/Cast.hs b/src/HROOT/Hist/TH1D/Cast.hs --- a/src/HROOT/Hist/TH1D/Cast.hs +++ b/src/HROOT/Hist/TH1D/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1D.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1D.Interface instance (ITH1D a, FPtr a) => Castable a (Ptr RawTH1D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1D (Ptr RawTH1D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1D/FFI.hsc b/src/HROOT/Hist/TH1D/FFI.hsc --- a/src/HROOT/Hist/TH1D/FFI.hsc +++ b/src/HROOT/Hist/TH1D/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1D.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,479 +11,529 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1D.h" +foreign import ccall safe "HROOTHistTH1D.h TH1D_Add" c_th1d_add :: + Ptr RawTH1D -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Add" c_th1d_add - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_AddBinContent" + c_th1d_addbincontent :: Ptr RawTH1D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_AddBinContent" c_th1d_addbincontent - :: (Ptr RawTH1D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Chi2Test" + c_th1d_chi2test :: + Ptr RawTH1D -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_Chi2Test" c_th1d_chi2test - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_ComputeIntegral" + c_th1d_computeintegral :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_ComputeIntegral" c_th1d_computeintegral - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_DirectoryAutoAdd" + c_th1d_directoryautoadd :: + Ptr RawTH1D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_DirectoryAutoAdd" c_th1d_directoryautoadd - :: (Ptr RawTH1D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Divide" + c_th1d_divide :: + Ptr RawTH1D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Divide" c_th1d_divide - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_drawCopyTH1" + c_th1d_drawcopyth1 :: Ptr RawTH1D -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH1D.h TH1D_drawCopyTH1" c_th1d_drawcopyth1 - :: (Ptr RawTH1D) -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe "HROOTHistTH1D.h TH1D_DrawNormalized" + c_th1d_drawnormalized :: + Ptr RawTH1D -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1D.h TH1D_DrawNormalized" c_th1d_drawnormalized - :: (Ptr RawTH1D) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1D.h TH1D_drawPanelTH1" + c_th1d_drawpanelth1 :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_drawPanelTH1" c_th1d_drawpanelth1 - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_BufferEmpty" + c_th1d_bufferempty :: Ptr RawTH1D -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_BufferEmpty" c_th1d_bufferempty - :: (Ptr RawTH1D) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_evalF" c_th1d_evalf + :: Ptr RawTH1D -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_evalF" c_th1d_evalf - :: (Ptr RawTH1D) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_FFT" c_th1d_fft :: + Ptr RawTH1D -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1D.h TH1D_FFT" c_th1d_fft - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1D.h TH1D_fill1" c_th1d_fill1 + :: Ptr RawTH1D -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_fill1" c_th1d_fill1 - :: (Ptr RawTH1D) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_fill1w" + c_th1d_fill1w :: Ptr RawTH1D -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_fill1w" c_th1d_fill1w - :: (Ptr RawTH1D) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_fillN1" + c_th1d_filln1 :: + Ptr RawTH1D -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_fillN1" c_th1d_filln1 - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_FillRandom" + c_th1d_fillrandom :: Ptr RawTH1D -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_FillRandom" c_th1d_fillrandom - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_FindBin" + c_th1d_findbin :: + Ptr RawTH1D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_FindBin" c_th1d_findbin - :: (Ptr RawTH1D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_FindFixBin" + c_th1d_findfixbin :: + Ptr RawTH1D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_FindFixBin" c_th1d_findfixbin - :: (Ptr RawTH1D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_FindFirstBinAbove" + c_th1d_findfirstbinabove :: + Ptr RawTH1D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_FindFirstBinAbove" c_th1d_findfirstbinabove - :: (Ptr RawTH1D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_FindLastBinAbove" + c_th1d_findlastbinabove :: + Ptr RawTH1D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_FindLastBinAbove" c_th1d_findlastbinabove - :: (Ptr RawTH1D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_Fit" c_th1d_fit :: + Ptr RawTH1D -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_FitPanelTH1" c_th1d_fitpanelth1 - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_FitPanelTH1" + c_th1d_fitpanelth1 :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_getNdivisionA" c_th1d_getndivisiona - :: (Ptr RawTH1D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getNdivisionA" + c_th1d_getndivisiona :: Ptr RawTH1D -> CString -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_getAxisColorA" c_th1d_getaxiscolora - :: (Ptr RawTH1D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getAxisColorA" + c_th1d_getaxiscolora :: Ptr RawTH1D -> CString -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_getLabelColorA" c_th1d_getlabelcolora - :: (Ptr RawTH1D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getLabelColorA" + c_th1d_getlabelcolora :: Ptr RawTH1D -> CString -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_getLabelFontA" c_th1d_getlabelfonta - :: (Ptr RawTH1D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getLabelFontA" + c_th1d_getlabelfonta :: Ptr RawTH1D -> CString -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_getLabelOffsetA" c_th1d_getlabeloffseta - :: (Ptr RawTH1D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getLabelOffsetA" + c_th1d_getlabeloffseta :: Ptr RawTH1D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getLabelSizeA" c_th1d_getlabelsizea - :: (Ptr RawTH1D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getLabelSizeA" + c_th1d_getlabelsizea :: Ptr RawTH1D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getTitleFontA" c_th1d_gettitlefonta - :: (Ptr RawTH1D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getTitleFontA" + c_th1d_gettitlefonta :: Ptr RawTH1D -> CString -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_getTitleOffsetA" c_th1d_gettitleoffseta - :: (Ptr RawTH1D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getTitleOffsetA" + c_th1d_gettitleoffseta :: Ptr RawTH1D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getTitleSizeA" c_th1d_gettitlesizea - :: (Ptr RawTH1D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getTitleSizeA" + c_th1d_gettitlesizea :: Ptr RawTH1D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getTickLengthA" c_th1d_getticklengtha - :: (Ptr RawTH1D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getTickLengthA" + c_th1d_getticklengtha :: Ptr RawTH1D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBarOffset" c_th1d_getbaroffset - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBarOffset" + c_th1d_getbaroffset :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBarWidth" c_th1d_getbarwidth - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBarWidth" + c_th1d_getbarwidth :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetContour" c_th1d_getcontour - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetContour" + c_th1d_getcontour :: Ptr RawTH1D -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetContourLevel" c_th1d_getcontourlevel - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetContourLevel" + c_th1d_getcontourlevel :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetContourLevelPad" c_th1d_getcontourlevelpad - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetContourLevelPad" + c_th1d_getcontourlevelpad :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBin" c_th1d_getbin - :: (Ptr RawTH1D) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBin" + c_th1d_getbin :: Ptr RawTH1D -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinCenter" c_th1d_getbincenter - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinCenter" + c_th1d_getbincenter :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinContent1" c_th1d_getbincontent1 - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinContent1" + c_th1d_getbincontent1 :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinContent2" c_th1d_getbincontent2 - :: (Ptr RawTH1D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinContent2" + c_th1d_getbincontent2 :: Ptr RawTH1D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinContent3" c_th1d_getbincontent3 - :: (Ptr RawTH1D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinContent3" + c_th1d_getbincontent3 :: + Ptr RawTH1D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinError1" c_th1d_getbinerror1 - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinError1" + c_th1d_getbinerror1 :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinError2" c_th1d_getbinerror2 - :: (Ptr RawTH1D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinError2" + c_th1d_getbinerror2 :: Ptr RawTH1D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinError3" c_th1d_getbinerror3 - :: (Ptr RawTH1D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinError3" + c_th1d_getbinerror3 :: + Ptr RawTH1D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinLowEdge" c_th1d_getbinlowedge - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinLowEdge" + c_th1d_getbinlowedge :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetBinWidth" c_th1d_getbinwidth - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetBinWidth" + c_th1d_getbinwidth :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetCellContent" c_th1d_getcellcontent - :: (Ptr RawTH1D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetCellContent" + c_th1d_getcellcontent :: Ptr RawTH1D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetCellError" c_th1d_getcellerror - :: (Ptr RawTH1D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetCellError" + c_th1d_getcellerror :: Ptr RawTH1D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetEntries" c_th1d_getentries - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetEntries" + c_th1d_getentries :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetEffectiveEntries" c_th1d_geteffectiveentries - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1D.h TH1D_GetEffectiveEntries" + c_th1d_geteffectiveentries :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetFunction" c_th1d_getfunction - :: (Ptr RawTH1D) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetFunction" + c_th1d_getfunction :: Ptr RawTH1D -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1D.h TH1D_GetDimension" c_th1d_getdimension - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetDimension" + c_th1d_getdimension :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetKurtosis" c_th1d_getkurtosis - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetKurtosis" + c_th1d_getkurtosis :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetLowEdge" c_th1d_getlowedge - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetLowEdge" + c_th1d_getlowedge :: Ptr RawTH1D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_getMaximumTH1" c_th1d_getmaximumth1 - :: (Ptr RawTH1D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getMaximumTH1" + c_th1d_getmaximumth1 :: Ptr RawTH1D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetMaximumBin" c_th1d_getmaximumbin - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMaximumBin" + c_th1d_getmaximumbin :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetMaximumStored" c_th1d_getmaximumstored - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMaximumStored" + c_th1d_getmaximumstored :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getMinimumTH1" c_th1d_getminimumth1 - :: (Ptr RawTH1D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_getMinimumTH1" + c_th1d_getminimumth1 :: Ptr RawTH1D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetMinimumBin" c_th1d_getminimumbin - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMinimumBin" + c_th1d_getminimumbin :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetMinimumStored" c_th1d_getminimumstored - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMinimumStored" + c_th1d_getminimumstored :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetMean" c_th1d_getmean - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMean" + c_th1d_getmean :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetMeanError" c_th1d_getmeanerror - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMeanError" + c_th1d_getmeanerror :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetNbinsX" c_th1d_getnbinsx - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetNbinsX" + c_th1d_getnbinsx :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetNbinsY" c_th1d_getnbinsy - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetNbinsY" + c_th1d_getnbinsy :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetNbinsZ" c_th1d_getnbinsz - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetNbinsZ" + c_th1d_getnbinsz :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_getQuantilesTH1" c_th1d_getquantilesth1 - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_getQuantilesTH1" + c_th1d_getquantilesth1 :: + Ptr RawTH1D -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetRandom" c_th1d_getrandom - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetRandom" + c_th1d_getrandom :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetStats" c_th1d_getstats - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetStats" + c_th1d_getstats :: Ptr RawTH1D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetSumOfWeights" c_th1d_getsumofweights - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetSumOfWeights" + c_th1d_getsumofweights :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetSumw2" c_th1d_getsumw2 - :: (Ptr RawTH1D) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetSumw2" + c_th1d_getsumw2 :: Ptr RawTH1D -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1D.h TH1D_GetSumw2N" c_th1d_getsumw2n - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetSumw2N" + c_th1d_getsumw2n :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_GetRMS" c_th1d_getrms - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetRMS" + c_th1d_getrms :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetRMSError" c_th1d_getrmserror - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetRMSError" + c_th1d_getrmserror :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_GetSkewness" c_th1d_getskewness - :: (Ptr RawTH1D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetSkewness" + c_th1d_getskewness :: Ptr RawTH1D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_integral1" c_th1d_integral1 - :: (Ptr RawTH1D) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_integral1" + c_th1d_integral1 :: + Ptr RawTH1D -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_interpolate1" c_th1d_interpolate1 - :: (Ptr RawTH1D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_interpolate1" + c_th1d_interpolate1 :: Ptr RawTH1D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_interpolate2" c_th1d_interpolate2 - :: (Ptr RawTH1D) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_interpolate2" + c_th1d_interpolate2 :: + Ptr RawTH1D -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_interpolate3" c_th1d_interpolate3 - :: (Ptr RawTH1D) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_interpolate3" + c_th1d_interpolate3 :: + Ptr RawTH1D -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_KolmogorovTest" c_th1d_kolmogorovtest - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_KolmogorovTest" + c_th1d_kolmogorovtest :: + Ptr RawTH1D -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_LabelsDeflate" c_th1d_labelsdeflate - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_LabelsDeflate" + c_th1d_labelsdeflate :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_LabelsInflate" c_th1d_labelsinflate - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_LabelsInflate" + c_th1d_labelsinflate :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_LabelsOption" c_th1d_labelsoption - :: (Ptr RawTH1D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_LabelsOption" + c_th1d_labelsoption :: Ptr RawTH1D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_multiflyF" c_th1d_multiflyf - :: (Ptr RawTH1D) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_multiflyF" + c_th1d_multiflyf :: Ptr RawTH1D -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Multiply" c_th1d_multiply - :: (Ptr RawTH1D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Multiply" + c_th1d_multiply :: + Ptr RawTH1D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_PutStats" c_th1d_putstats - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_PutStats" + c_th1d_putstats :: Ptr RawTH1D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Rebin" c_th1d_rebin - :: (Ptr RawTH1D) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1D.h TH1D_Rebin" c_th1d_rebin + :: + Ptr RawTH1D -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1D.h TH1D_RebinAxis" c_th1d_rebinaxis - :: (Ptr RawTH1D) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_RebinAxis" + c_th1d_rebinaxis :: Ptr RawTH1D -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Rebuild" c_th1d_rebuild - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Rebuild" + c_th1d_rebuild :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_RecursiveRemove" c_th1d_recursiveremove - :: (Ptr RawTH1D) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_RecursiveRemove" + c_th1d_recursiveremove :: Ptr RawTH1D -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Reset" c_th1d_reset - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Reset" c_th1d_reset + :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_ResetStats" c_th1d_resetstats - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_ResetStats" + c_th1d_resetstats :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Scale" c_th1d_scale - :: (Ptr RawTH1D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Scale" c_th1d_scale + :: Ptr RawTH1D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setAxisColorA" c_th1d_setaxiscolora - :: (Ptr RawTH1D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setAxisColorA" + c_th1d_setaxiscolora :: Ptr RawTH1D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetAxisRange" c_th1d_setaxisrange - :: (Ptr RawTH1D) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetAxisRange" + c_th1d_setaxisrange :: + Ptr RawTH1D -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetBarOffset" c_th1d_setbaroffset - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetBarOffset" + c_th1d_setbaroffset :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetBarWidth" c_th1d_setbarwidth - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetBarWidth" + c_th1d_setbarwidth :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinContent1" c_th1d_setbincontent1 - :: (Ptr RawTH1D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinContent1" + c_th1d_setbincontent1 :: Ptr RawTH1D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinContent2" c_th1d_setbincontent2 - :: (Ptr RawTH1D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinContent2" + c_th1d_setbincontent2 :: + Ptr RawTH1D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinContent3" c_th1d_setbincontent3 - :: (Ptr RawTH1D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinContent3" + c_th1d_setbincontent3 :: + Ptr RawTH1D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinError1" c_th1d_setbinerror1 - :: (Ptr RawTH1D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinError1" + c_th1d_setbinerror1 :: Ptr RawTH1D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinError2" c_th1d_setbinerror2 - :: (Ptr RawTH1D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinError2" + c_th1d_setbinerror2 :: + Ptr RawTH1D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBinError3" c_th1d_setbinerror3 - :: (Ptr RawTH1D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBinError3" + c_th1d_setbinerror3 :: + Ptr RawTH1D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBins1" c_th1d_setbins1 - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBins1" + c_th1d_setbins1 :: Ptr RawTH1D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBins2" c_th1d_setbins2 - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBins2" + c_th1d_setbins2 :: + Ptr RawTH1D -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setBins3" c_th1d_setbins3 - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setBins3" + c_th1d_setbins3 :: + Ptr RawTH1D -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetBinsLength" c_th1d_setbinslength - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetBinsLength" + c_th1d_setbinslength :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetBuffer" c_th1d_setbuffer - :: (Ptr RawTH1D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetBuffer" + c_th1d_setbuffer :: Ptr RawTH1D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetCellContent" c_th1d_setcellcontent - :: (Ptr RawTH1D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetCellContent" + c_th1d_setcellcontent :: + Ptr RawTH1D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetContent" c_th1d_setcontent - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetContent" + c_th1d_setcontent :: Ptr RawTH1D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetContour" c_th1d_setcontour - :: (Ptr RawTH1D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetContour" + c_th1d_setcontour :: Ptr RawTH1D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetContourLevel" c_th1d_setcontourlevel - :: (Ptr RawTH1D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetContourLevel" + c_th1d_setcontourlevel :: Ptr RawTH1D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetDirectory" c_th1d_setdirectory - :: (Ptr RawTH1D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetDirectory" + c_th1d_setdirectory :: Ptr RawTH1D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetEntries" c_th1d_setentries - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetEntries" + c_th1d_setentries :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetError" c_th1d_seterror - :: (Ptr RawTH1D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetError" + c_th1d_seterror :: Ptr RawTH1D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setLabelColorA" c_th1d_setlabelcolora - :: (Ptr RawTH1D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setLabelColorA" + c_th1d_setlabelcolora :: Ptr RawTH1D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setLabelSizeA" c_th1d_setlabelsizea - :: (Ptr RawTH1D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setLabelSizeA" + c_th1d_setlabelsizea :: Ptr RawTH1D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setLabelFontA" c_th1d_setlabelfonta - :: (Ptr RawTH1D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setLabelFontA" + c_th1d_setlabelfonta :: Ptr RawTH1D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_setLabelOffsetA" c_th1d_setlabeloffseta - :: (Ptr RawTH1D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_setLabelOffsetA" + c_th1d_setlabeloffseta :: + Ptr RawTH1D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetMaximum" c_th1d_setmaximum - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetMaximum" + c_th1d_setmaximum :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetMinimum" c_th1d_setminimum - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetMinimum" + c_th1d_setminimum :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetNormFactor" c_th1d_setnormfactor - :: (Ptr RawTH1D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetNormFactor" + c_th1d_setnormfactor :: Ptr RawTH1D -> CDouble -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetStats" c_th1d_setstats - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetStats" + c_th1d_setstats :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetOption" c_th1d_setoption - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetOption" + c_th1d_setoption :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetXTitle" c_th1d_setxtitle - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetXTitle" + c_th1d_setxtitle :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetYTitle" c_th1d_setytitle - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetYTitle" + c_th1d_setytitle :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetZTitle" c_th1d_setztitle - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetZTitle" + c_th1d_setztitle :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_ShowBackground" c_th1d_showbackground - :: (Ptr RawTH1D) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1D.h TH1D_ShowBackground" + c_th1d_showbackground :: + Ptr RawTH1D -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1D.h TH1D_ShowPeaks" c_th1d_showpeaks - :: (Ptr RawTH1D) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_ShowPeaks" + c_th1d_showpeaks :: + Ptr RawTH1D -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_Smooth" c_th1d_smooth - :: (Ptr RawTH1D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Smooth" + c_th1d_smooth :: Ptr RawTH1D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Sumw2" c_th1d_sumw2 - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Sumw2" c_th1d_sumw2 + :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Draw" c_th1d_draw - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetName" + c_th1d_setname :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_FindObject" c_th1d_findobject - :: (Ptr RawTH1D) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetNameTitle" + c_th1d_setnametitle :: Ptr RawTH1D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetName" c_th1d_getname - :: (Ptr RawTH1D) -> IO CString +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetTitle" + c_th1d_settitle :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_IsA" c_th1d_isa - :: (Ptr RawTH1D) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetLineColor" + c_th1d_getlinecolor :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_Paint" c_th1d_paint - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetLineStyle" + c_th1d_getlinestyle :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_printObj" c_th1d_printobj - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetLineWidth" + c_th1d_getlinewidth :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_SaveAs" c_th1d_saveas - :: (Ptr RawTH1D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_ResetAttLine" + c_th1d_resetattline :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_Write" c_th1d_write - :: (Ptr RawTH1D) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetLineAttributes" + c_th1d_setlineattributes :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetLineColor" c_th1d_getlinecolor - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetLineColor" + c_th1d_setlinecolor :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetLineStyle" c_th1d_getlinestyle - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetLineStyle" + c_th1d_setlinestyle :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetLineWidth" c_th1d_getlinewidth - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetLineWidth" + c_th1d_setlinewidth :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_ResetAttLine" c_th1d_resetattline - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetFillColor" + c_th1d_setfillcolor :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetLineAttributes" c_th1d_setlineattributes - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetFillStyle" + c_th1d_setfillstyle :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetLineColor" c_th1d_setlinecolor - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMarkerColor" + c_th1d_getmarkercolor :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_SetLineStyle" c_th1d_setlinestyle - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMarkerStyle" + c_th1d_getmarkerstyle :: Ptr RawTH1D -> IO CInt -foreign import ccall "HROOTHistTH1D.h TH1D_SetLineWidth" c_th1d_setlinewidth - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetMarkerSize" + c_th1d_getmarkersize :: Ptr RawTH1D -> IO CDouble -foreign import ccall "HROOTHistTH1D.h TH1D_SetFillColor" c_th1d_setfillcolor - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_ResetAttMarker" + c_th1d_resetattmarker :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetFillStyle" c_th1d_setfillstyle - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1D.h TH1D_SetMarkerAttributes" + c_th1d_setmarkerattributes :: Ptr RawTH1D -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetMarkerColor" c_th1d_getmarkercolor - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetMarkerColor" + c_th1d_setmarkercolor :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetMarkerStyle" c_th1d_getmarkerstyle - :: (Ptr RawTH1D) -> IO CInt +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetMarkerStyle" + c_th1d_setmarkerstyle :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_GetMarkerSize" c_th1d_getmarkersize - :: (Ptr RawTH1D) -> IO CDouble +foreign import ccall safe "HROOTHistTH1D.h TH1D_SetMarkerSize" + c_th1d_setmarkersize :: Ptr RawTH1D -> CInt -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_ResetAttMarker" c_th1d_resetattmarker - :: (Ptr RawTH1D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Draw" c_th1d_draw + :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_SetMarkerAttributes" c_th1d_setmarkerattributes - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_FindObject" + c_th1d_findobject :: Ptr RawTH1D -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1D.h TH1D_SetMarkerColor" c_th1d_setmarkercolor - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_GetName" + c_th1d_getname :: Ptr RawTH1D -> IO CString -foreign import ccall "HROOTHistTH1D.h TH1D_SetMarkerStyle" c_th1d_setmarkerstyle - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_IsA" c_th1d_isa :: + Ptr RawTH1D -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1D.h TH1D_SetMarkerSize" c_th1d_setmarkersize - :: (Ptr RawTH1D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Paint" c_th1d_paint + :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_delete" c_th1d_delete - :: (Ptr RawTH1D) -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_printObj" + c_th1d_printobj :: Ptr RawTH1D -> CString -> IO () -foreign import ccall "HROOTHistTH1D.h TH1D_newTH1D" c_th1d_newth1d - :: CString -> CString -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH1D) +foreign import ccall safe "HROOTHistTH1D.h TH1D_SaveAs" + c_th1d_saveas :: Ptr RawTH1D -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1D.h TH1D_Write" c_th1d_write + :: Ptr RawTH1D -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1D.h TH1D_delete" + c_th1d_delete :: Ptr RawTH1D -> IO () + +foreign import ccall safe "HROOTHistTH1D.h TH1D_newTH1D" + c_th1d_newth1d :: + CString -> + CString -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH1D) diff --git a/src/HROOT/Hist/TH1D/Implementation.hs b/src/HROOT/Hist/TH1D/Implementation.hs --- a/src/HROOT/Hist/TH1D/Implementation.hs +++ b/src/HROOT/Hist/TH1D/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1D.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1D.FFI import HROOT.Hist.TH1D.Interface @@ -29,9 +30,9 @@ import HROOT.Core.TArrayD.RawType import HROOT.Core.TArrayD.Cast import HROOT.Core.TArrayD.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -41,6 +42,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -48,360 +52,188 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1D TH1D -instance ITH1D TH1D where instance ITH1 TH1D where - add = xform2 c_th1d_add - addBinContent = xform2 c_th1d_addbincontent - chi2Test = xform3 c_th1d_chi2test - computeIntegral = xform0 c_th1d_computeintegral - directoryAutoAdd = xform1 c_th1d_directoryautoadd - divide = xform5 c_th1d_divide - drawCopyTH1 = xform1 c_th1d_drawcopyth1 - drawNormalized = xform2 c_th1d_drawnormalized - drawPanelTH1 = xform0 c_th1d_drawpanelth1 - bufferEmpty = xform1 c_th1d_bufferempty - evalF = xform2 c_th1d_evalf - fFT = xform2 c_th1d_fft - fill1 = xform1 c_th1d_fill1 - fill1w = xform2 c_th1d_fill1w - fillN1 = xform4 c_th1d_filln1 - fillRandom = xform2 c_th1d_fillrandom - findBin = xform3 c_th1d_findbin - findFixBin = xform3 c_th1d_findfixbin - findFirstBinAbove = xform2 c_th1d_findfirstbinabove - findLastBinAbove = xform2 c_th1d_findlastbinabove - fitPanelTH1 = xform0 c_th1d_fitpanelth1 - getNdivisionA = xform1 c_th1d_getndivisiona - getAxisColorA = xform1 c_th1d_getaxiscolora - getLabelColorA = xform1 c_th1d_getlabelcolora - getLabelFontA = xform1 c_th1d_getlabelfonta - getLabelOffsetA = xform1 c_th1d_getlabeloffseta - getLabelSizeA = xform1 c_th1d_getlabelsizea - getTitleFontA = xform1 c_th1d_gettitlefonta - getTitleOffsetA = xform1 c_th1d_gettitleoffseta - getTitleSizeA = xform1 c_th1d_gettitlesizea - getTickLengthA = xform1 c_th1d_getticklengtha - getBarOffset = xform0 c_th1d_getbaroffset - getBarWidth = xform0 c_th1d_getbarwidth - getContour = xform1 c_th1d_getcontour - getContourLevel = xform1 c_th1d_getcontourlevel - getContourLevelPad = xform1 c_th1d_getcontourlevelpad - getBin = xform3 c_th1d_getbin - getBinCenter = xform1 c_th1d_getbincenter - getBinContent1 = xform1 c_th1d_getbincontent1 - getBinContent2 = xform2 c_th1d_getbincontent2 - getBinContent3 = xform3 c_th1d_getbincontent3 - getBinError1 = xform1 c_th1d_getbinerror1 - getBinError2 = xform2 c_th1d_getbinerror2 - getBinError3 = xform3 c_th1d_getbinerror3 - getBinLowEdge = xform1 c_th1d_getbinlowedge - getBinWidth = xform1 c_th1d_getbinwidth - getCellContent = xform2 c_th1d_getcellcontent - getCellError = xform2 c_th1d_getcellerror - getEntries = xform0 c_th1d_getentries - getEffectiveEntries = xform0 c_th1d_geteffectiveentries - getFunction = xform1 c_th1d_getfunction - getDimension = xform0 c_th1d_getdimension - getKurtosis = xform1 c_th1d_getkurtosis - getLowEdge = xform1 c_th1d_getlowedge - getMaximumTH1 = xform1 c_th1d_getmaximumth1 - getMaximumBin = xform0 c_th1d_getmaximumbin - getMaximumStored = xform0 c_th1d_getmaximumstored - getMinimumTH1 = xform1 c_th1d_getminimumth1 - getMinimumBin = xform0 c_th1d_getminimumbin - getMinimumStored = xform0 c_th1d_getminimumstored - getMean = xform1 c_th1d_getmean - getMeanError = xform1 c_th1d_getmeanerror - getNbinsX = xform0 c_th1d_getnbinsx - getNbinsY = xform0 c_th1d_getnbinsy - getNbinsZ = xform0 c_th1d_getnbinsz - getQuantilesTH1 = xform3 c_th1d_getquantilesth1 - getRandom = xform0 c_th1d_getrandom - getStats = xform1 c_th1d_getstats - getSumOfWeights = xform0 c_th1d_getsumofweights - getSumw2 = xform0 c_th1d_getsumw2 - getSumw2N = xform0 c_th1d_getsumw2n - getRMS = xform1 c_th1d_getrms - getRMSError = xform1 c_th1d_getrmserror - getSkewness = xform1 c_th1d_getskewness - integral1 = xform3 c_th1d_integral1 - interpolate1 = xform1 c_th1d_interpolate1 - interpolate2 = xform2 c_th1d_interpolate2 - interpolate3 = xform3 c_th1d_interpolate3 - kolmogorovTest = xform2 c_th1d_kolmogorovtest - labelsDeflate = xform1 c_th1d_labelsdeflate - labelsInflate = xform1 c_th1d_labelsinflate - labelsOption = xform2 c_th1d_labelsoption - multiflyF = xform2 c_th1d_multiflyf - multiply = xform5 c_th1d_multiply - putStats = xform1 c_th1d_putstats - rebin = xform3 c_th1d_rebin - rebinAxis = xform2 c_th1d_rebinaxis - rebuild = xform1 c_th1d_rebuild - recursiveRemove = xform1 c_th1d_recursiveremove - reset = xform1 c_th1d_reset - resetStats = xform0 c_th1d_resetstats - scale = xform2 c_th1d_scale - setAxisColorA = xform2 c_th1d_setaxiscolora - setAxisRange = xform3 c_th1d_setaxisrange - setBarOffset = xform1 c_th1d_setbaroffset - setBarWidth = xform1 c_th1d_setbarwidth - setBinContent1 = xform2 c_th1d_setbincontent1 - setBinContent2 = xform3 c_th1d_setbincontent2 - setBinContent3 = xform4 c_th1d_setbincontent3 - setBinError1 = xform2 c_th1d_setbinerror1 - setBinError2 = xform3 c_th1d_setbinerror2 - setBinError3 = xform4 c_th1d_setbinerror3 - setBins1 = xform2 c_th1d_setbins1 - setBins2 = xform4 c_th1d_setbins2 - setBins3 = xform6 c_th1d_setbins3 - setBinsLength = xform1 c_th1d_setbinslength - setBuffer = xform2 c_th1d_setbuffer - setCellContent = xform3 c_th1d_setcellcontent - setContent = xform1 c_th1d_setcontent - setContour = xform2 c_th1d_setcontour - setContourLevel = xform2 c_th1d_setcontourlevel - setDirectory = xform1 c_th1d_setdirectory - setEntries = xform1 c_th1d_setentries - setError = xform1 c_th1d_seterror - setLabelColorA = xform2 c_th1d_setlabelcolora - setLabelSizeA = xform2 c_th1d_setlabelsizea - setLabelFontA = xform2 c_th1d_setlabelfonta - setLabelOffsetA = xform2 c_th1d_setlabeloffseta - setMaximum = xform1 c_th1d_setmaximum - setMinimum = xform1 c_th1d_setminimum - setNormFactor = xform1 c_th1d_setnormfactor - setStats = xform1 c_th1d_setstats - setOption = xform1 c_th1d_setoption - setXTitle = xform1 c_th1d_setxtitle - setYTitle = xform1 c_th1d_setytitle - setZTitle = xform1 c_th1d_setztitle - showBackground = xform2 c_th1d_showbackground - showPeaks = xform3 c_th1d_showpeaks - smooth = xform2 c_th1d_smooth - sumw2 = xform0 c_th1d_sumw2 -instance ITArrayD TH1D where -instance ITObject TH1D where - draw = xform1 c_th1d_draw - findObject = xform1 c_th1d_findobject - getName = xform0 c_th1d_getname - isA = xform0 c_th1d_isa - paint = xform1 c_th1d_paint - printObj = xform1 c_th1d_printobj - saveAs = xform2 c_th1d_saveas - write = xform3 c_th1d_write -instance ITAttLine TH1D where - getLineColor = xform0 c_th1d_getlinecolor - getLineStyle = xform0 c_th1d_getlinestyle - getLineWidth = xform0 c_th1d_getlinewidth - resetAttLine = xform1 c_th1d_resetattline - setLineAttributes = xform0 c_th1d_setlineattributes - setLineColor = xform1 c_th1d_setlinecolor - setLineStyle = xform1 c_th1d_setlinestyle - setLineWidth = xform1 c_th1d_setlinewidth -instance ITAttFill TH1D where - setFillColor = xform1 c_th1d_setfillcolor - setFillStyle = xform1 c_th1d_setfillstyle -instance ITAttMarker TH1D where - getMarkerColor = xform0 c_th1d_getmarkercolor - getMarkerStyle = xform0 c_th1d_getmarkerstyle - getMarkerSize = xform0 c_th1d_getmarkersize - resetAttMarker = xform1 c_th1d_resetattmarker - setMarkerAttributes = xform0 c_th1d_setmarkerattributes - setMarkerColor = xform1 c_th1d_setmarkercolor - setMarkerStyle = xform1 c_th1d_setmarkerstyle - setMarkerSize = xform1 c_th1d_setmarkersize -instance IDeletable TH1D where - delete = xform0 c_th1d_delete -instance ITArray TH1D where - -instance ITH1D (Exist TH1D) where - -instance ITH1 (Exist TH1D) where - add (ETH1D x) = add x - addBinContent (ETH1D x) = addBinContent x - chi2Test (ETH1D x) = chi2Test x - computeIntegral (ETH1D x) = computeIntegral x - directoryAutoAdd (ETH1D x) = directoryAutoAdd x - divide (ETH1D x) = divide x - drawCopyTH1 (ETH1D x) a1 = return . ETH1D =<< drawCopyTH1 x a1 - drawNormalized (ETH1D x) = drawNormalized x - drawPanelTH1 (ETH1D x) = drawPanelTH1 x - bufferEmpty (ETH1D x) = bufferEmpty x - evalF (ETH1D x) = evalF x - fFT (ETH1D x) = fFT x - fill1 (ETH1D x) = fill1 x - fill1w (ETH1D x) = fill1w x - fillN1 (ETH1D x) = fillN1 x - fillRandom (ETH1D x) = fillRandom x - findBin (ETH1D x) = findBin x - findFixBin (ETH1D x) = findFixBin x - findFirstBinAbove (ETH1D x) = findFirstBinAbove x - findLastBinAbove (ETH1D x) = findLastBinAbove x - fitPanelTH1 (ETH1D x) = fitPanelTH1 x - getNdivisionA (ETH1D x) = getNdivisionA x - getAxisColorA (ETH1D x) = getAxisColorA x - getLabelColorA (ETH1D x) = getLabelColorA x - getLabelFontA (ETH1D x) = getLabelFontA x - getLabelOffsetA (ETH1D x) = getLabelOffsetA x - getLabelSizeA (ETH1D x) = getLabelSizeA x - getTitleFontA (ETH1D x) = getTitleFontA x - getTitleOffsetA (ETH1D x) = getTitleOffsetA x - getTitleSizeA (ETH1D x) = getTitleSizeA x - getTickLengthA (ETH1D x) = getTickLengthA x - getBarOffset (ETH1D x) = getBarOffset x - getBarWidth (ETH1D x) = getBarWidth x - getContour (ETH1D x) = getContour x - getContourLevel (ETH1D x) = getContourLevel x - getContourLevelPad (ETH1D x) = getContourLevelPad x - getBin (ETH1D x) = getBin x - getBinCenter (ETH1D x) = getBinCenter x - getBinContent1 (ETH1D x) = getBinContent1 x - getBinContent2 (ETH1D x) = getBinContent2 x - getBinContent3 (ETH1D x) = getBinContent3 x - getBinError1 (ETH1D x) = getBinError1 x - getBinError2 (ETH1D x) = getBinError2 x - getBinError3 (ETH1D x) = getBinError3 x - getBinLowEdge (ETH1D x) = getBinLowEdge x - getBinWidth (ETH1D x) = getBinWidth x - getCellContent (ETH1D x) = getCellContent x - getCellError (ETH1D x) = getCellError x - getEntries (ETH1D x) = getEntries x - getEffectiveEntries (ETH1D x) = getEffectiveEntries x - getFunction (ETH1D x) = getFunction x - getDimension (ETH1D x) = getDimension x - getKurtosis (ETH1D x) = getKurtosis x - getLowEdge (ETH1D x) = getLowEdge x - getMaximumTH1 (ETH1D x) = getMaximumTH1 x - getMaximumBin (ETH1D x) = getMaximumBin x - getMaximumStored (ETH1D x) = getMaximumStored x - getMinimumTH1 (ETH1D x) = getMinimumTH1 x - getMinimumBin (ETH1D x) = getMinimumBin x - getMinimumStored (ETH1D x) = getMinimumStored x - getMean (ETH1D x) = getMean x - getMeanError (ETH1D x) = getMeanError x - getNbinsX (ETH1D x) = getNbinsX x - getNbinsY (ETH1D x) = getNbinsY x - getNbinsZ (ETH1D x) = getNbinsZ x - getQuantilesTH1 (ETH1D x) = getQuantilesTH1 x - getRandom (ETH1D x) = getRandom x - getStats (ETH1D x) = getStats x - getSumOfWeights (ETH1D x) = getSumOfWeights x - getSumw2 (ETH1D x) = getSumw2 x - getSumw2N (ETH1D x) = getSumw2N x - getRMS (ETH1D x) = getRMS x - getRMSError (ETH1D x) = getRMSError x - getSkewness (ETH1D x) = getSkewness x - integral1 (ETH1D x) = integral1 x - interpolate1 (ETH1D x) = interpolate1 x - interpolate2 (ETH1D x) = interpolate2 x - interpolate3 (ETH1D x) = interpolate3 x - kolmogorovTest (ETH1D x) = kolmogorovTest x - labelsDeflate (ETH1D x) = labelsDeflate x - labelsInflate (ETH1D x) = labelsInflate x - labelsOption (ETH1D x) = labelsOption x - multiflyF (ETH1D x) = multiflyF x - multiply (ETH1D x) = multiply x - putStats (ETH1D x) = putStats x - rebin (ETH1D x) = rebin x - rebinAxis (ETH1D x) = rebinAxis x - rebuild (ETH1D x) = rebuild x - recursiveRemove (ETH1D x) = recursiveRemove x - reset (ETH1D x) = reset x - resetStats (ETH1D x) = resetStats x - scale (ETH1D x) = scale x - setAxisColorA (ETH1D x) = setAxisColorA x - setAxisRange (ETH1D x) = setAxisRange x - setBarOffset (ETH1D x) = setBarOffset x - setBarWidth (ETH1D x) = setBarWidth x - setBinContent1 (ETH1D x) = setBinContent1 x - setBinContent2 (ETH1D x) = setBinContent2 x - setBinContent3 (ETH1D x) = setBinContent3 x - setBinError1 (ETH1D x) = setBinError1 x - setBinError2 (ETH1D x) = setBinError2 x - setBinError3 (ETH1D x) = setBinError3 x - setBins1 (ETH1D x) = setBins1 x - setBins2 (ETH1D x) = setBins2 x - setBins3 (ETH1D x) = setBins3 x - setBinsLength (ETH1D x) = setBinsLength x - setBuffer (ETH1D x) = setBuffer x - setCellContent (ETH1D x) = setCellContent x - setContent (ETH1D x) = setContent x - setContour (ETH1D x) = setContour x - setContourLevel (ETH1D x) = setContourLevel x - setDirectory (ETH1D x) = setDirectory x - setEntries (ETH1D x) = setEntries x - setError (ETH1D x) = setError x - setLabelColorA (ETH1D x) = setLabelColorA x - setLabelSizeA (ETH1D x) = setLabelSizeA x - setLabelFontA (ETH1D x) = setLabelFontA x - setLabelOffsetA (ETH1D x) = setLabelOffsetA x - setMaximum (ETH1D x) = setMaximum x - setMinimum (ETH1D x) = setMinimum x - setNormFactor (ETH1D x) = setNormFactor x - setStats (ETH1D x) = setStats x - setOption (ETH1D x) = setOption x - setXTitle (ETH1D x) = setXTitle x - setYTitle (ETH1D x) = setYTitle x - setZTitle (ETH1D x) = setZTitle x - showBackground (ETH1D x) = showBackground x - showPeaks (ETH1D x) = showPeaks x - smooth (ETH1D x) = smooth x - sumw2 (ETH1D x) = sumw2 x -instance ITArrayD (Exist TH1D) where + add = xform2 c_th1d_add + addBinContent = xform2 c_th1d_addbincontent + chi2Test = xform3 c_th1d_chi2test + computeIntegral = xform0 c_th1d_computeintegral + directoryAutoAdd = xform1 c_th1d_directoryautoadd + divide = xform5 c_th1d_divide + drawCopyTH1 = xform1 c_th1d_drawcopyth1 + drawNormalized = xform2 c_th1d_drawnormalized + drawPanelTH1 = xform0 c_th1d_drawpanelth1 + bufferEmpty = xform1 c_th1d_bufferempty + evalF = xform2 c_th1d_evalf + fFT = xform2 c_th1d_fft + fill1 = xform1 c_th1d_fill1 + fill1w = xform2 c_th1d_fill1w + fillN1 = xform4 c_th1d_filln1 + fillRandom = xform2 c_th1d_fillrandom + findBin = xform3 c_th1d_findbin + findFixBin = xform3 c_th1d_findfixbin + findFirstBinAbove = xform2 c_th1d_findfirstbinabove + findLastBinAbove = xform2 c_th1d_findlastbinabove + fit = xform5 c_th1d_fit + fitPanelTH1 = xform0 c_th1d_fitpanelth1 + getNdivisionA = xform1 c_th1d_getndivisiona + getAxisColorA = xform1 c_th1d_getaxiscolora + getLabelColorA = xform1 c_th1d_getlabelcolora + getLabelFontA = xform1 c_th1d_getlabelfonta + getLabelOffsetA = xform1 c_th1d_getlabeloffseta + getLabelSizeA = xform1 c_th1d_getlabelsizea + getTitleFontA = xform1 c_th1d_gettitlefonta + getTitleOffsetA = xform1 c_th1d_gettitleoffseta + getTitleSizeA = xform1 c_th1d_gettitlesizea + getTickLengthA = xform1 c_th1d_getticklengtha + getBarOffset = xform0 c_th1d_getbaroffset + getBarWidth = xform0 c_th1d_getbarwidth + getContour = xform1 c_th1d_getcontour + getContourLevel = xform1 c_th1d_getcontourlevel + getContourLevelPad = xform1 c_th1d_getcontourlevelpad + getBin = xform3 c_th1d_getbin + getBinCenter = xform1 c_th1d_getbincenter + getBinContent1 = xform1 c_th1d_getbincontent1 + getBinContent2 = xform2 c_th1d_getbincontent2 + getBinContent3 = xform3 c_th1d_getbincontent3 + getBinError1 = xform1 c_th1d_getbinerror1 + getBinError2 = xform2 c_th1d_getbinerror2 + getBinError3 = xform3 c_th1d_getbinerror3 + getBinLowEdge = xform1 c_th1d_getbinlowedge + getBinWidth = xform1 c_th1d_getbinwidth + getCellContent = xform2 c_th1d_getcellcontent + getCellError = xform2 c_th1d_getcellerror + getEntries = xform0 c_th1d_getentries + getEffectiveEntries = xform0 c_th1d_geteffectiveentries + getFunction = xform1 c_th1d_getfunction + getDimension = xform0 c_th1d_getdimension + getKurtosis = xform1 c_th1d_getkurtosis + getLowEdge = xform1 c_th1d_getlowedge + getMaximumTH1 = xform1 c_th1d_getmaximumth1 + getMaximumBin = xform0 c_th1d_getmaximumbin + getMaximumStored = xform0 c_th1d_getmaximumstored + getMinimumTH1 = xform1 c_th1d_getminimumth1 + getMinimumBin = xform0 c_th1d_getminimumbin + getMinimumStored = xform0 c_th1d_getminimumstored + getMean = xform1 c_th1d_getmean + getMeanError = xform1 c_th1d_getmeanerror + getNbinsX = xform0 c_th1d_getnbinsx + getNbinsY = xform0 c_th1d_getnbinsy + getNbinsZ = xform0 c_th1d_getnbinsz + getQuantilesTH1 = xform3 c_th1d_getquantilesth1 + getRandom = xform0 c_th1d_getrandom + getStats = xform1 c_th1d_getstats + getSumOfWeights = xform0 c_th1d_getsumofweights + getSumw2 = xform0 c_th1d_getsumw2 + getSumw2N = xform0 c_th1d_getsumw2n + getRMS = xform1 c_th1d_getrms + getRMSError = xform1 c_th1d_getrmserror + getSkewness = xform1 c_th1d_getskewness + integral1 = xform3 c_th1d_integral1 + interpolate1 = xform1 c_th1d_interpolate1 + interpolate2 = xform2 c_th1d_interpolate2 + interpolate3 = xform3 c_th1d_interpolate3 + kolmogorovTest = xform2 c_th1d_kolmogorovtest + labelsDeflate = xform1 c_th1d_labelsdeflate + labelsInflate = xform1 c_th1d_labelsinflate + labelsOption = xform2 c_th1d_labelsoption + multiflyF = xform2 c_th1d_multiflyf + multiply = xform5 c_th1d_multiply + putStats = xform1 c_th1d_putstats + rebin = xform3 c_th1d_rebin + rebinAxis = xform2 c_th1d_rebinaxis + rebuild = xform1 c_th1d_rebuild + recursiveRemove = xform1 c_th1d_recursiveremove + reset = xform1 c_th1d_reset + resetStats = xform0 c_th1d_resetstats + scale = xform2 c_th1d_scale + setAxisColorA = xform2 c_th1d_setaxiscolora + setAxisRange = xform3 c_th1d_setaxisrange + setBarOffset = xform1 c_th1d_setbaroffset + setBarWidth = xform1 c_th1d_setbarwidth + setBinContent1 = xform2 c_th1d_setbincontent1 + setBinContent2 = xform3 c_th1d_setbincontent2 + setBinContent3 = xform4 c_th1d_setbincontent3 + setBinError1 = xform2 c_th1d_setbinerror1 + setBinError2 = xform3 c_th1d_setbinerror2 + setBinError3 = xform4 c_th1d_setbinerror3 + setBins1 = xform2 c_th1d_setbins1 + setBins2 = xform4 c_th1d_setbins2 + setBins3 = xform6 c_th1d_setbins3 + setBinsLength = xform1 c_th1d_setbinslength + setBuffer = xform2 c_th1d_setbuffer + setCellContent = xform3 c_th1d_setcellcontent + setContent = xform1 c_th1d_setcontent + setContour = xform2 c_th1d_setcontour + setContourLevel = xform2 c_th1d_setcontourlevel + setDirectory = xform1 c_th1d_setdirectory + setEntries = xform1 c_th1d_setentries + setError = xform1 c_th1d_seterror + setLabelColorA = xform2 c_th1d_setlabelcolora + setLabelSizeA = xform2 c_th1d_setlabelsizea + setLabelFontA = xform2 c_th1d_setlabelfonta + setLabelOffsetA = xform2 c_th1d_setlabeloffseta + setMaximum = xform1 c_th1d_setmaximum + setMinimum = xform1 c_th1d_setminimum + setNormFactor = xform1 c_th1d_setnormfactor + setStats = xform1 c_th1d_setstats + setOption = xform1 c_th1d_setoption + setXTitle = xform1 c_th1d_setxtitle + setYTitle = xform1 c_th1d_setytitle + setZTitle = xform1 c_th1d_setztitle + showBackground = xform2 c_th1d_showbackground + showPeaks = xform3 c_th1d_showpeaks + smooth = xform2 c_th1d_smooth + sumw2 = xform0 c_th1d_sumw2 -instance ITObject (Exist TH1D) where - draw (ETH1D x) = draw x - findObject (ETH1D x) = findObject x - getName (ETH1D x) = getName x - isA (ETH1D x) = isA x - paint (ETH1D x) = paint x - printObj (ETH1D x) = printObj x - saveAs (ETH1D x) = saveAs x - write (ETH1D x) = write x -instance ITAttLine (Exist TH1D) where - getLineColor (ETH1D x) = getLineColor x - getLineStyle (ETH1D x) = getLineStyle x - getLineWidth (ETH1D x) = getLineWidth x - resetAttLine (ETH1D x) = resetAttLine x - setLineAttributes (ETH1D x) = setLineAttributes x - setLineColor (ETH1D x) = setLineColor x - setLineStyle (ETH1D x) = setLineStyle x - setLineWidth (ETH1D x) = setLineWidth x -instance ITAttFill (Exist TH1D) where - setFillColor (ETH1D x) = setFillColor x - setFillStyle (ETH1D x) = setFillStyle x -instance ITAttMarker (Exist TH1D) where - getMarkerColor (ETH1D x) = getMarkerColor x - getMarkerStyle (ETH1D x) = getMarkerStyle x - getMarkerSize (ETH1D x) = getMarkerSize x - resetAttMarker (ETH1D x) = resetAttMarker x - setMarkerAttributes (ETH1D x) = setMarkerAttributes x - setMarkerColor (ETH1D x) = setMarkerColor x - setMarkerStyle (ETH1D x) = setMarkerStyle x - setMarkerSize (ETH1D x) = setMarkerSize x -instance IDeletable (Exist TH1D) where - delete (ETH1D x) = delete x -instance ITArray (Exist TH1D) where +instance ITArrayD TH1D +instance ITNamed TH1D where + setName = xform1 c_th1d_setname + setNameTitle = xform2 c_th1d_setnametitle + setTitle = xform1 c_th1d_settitle +instance ITAttLine TH1D where + getLineColor = xform0 c_th1d_getlinecolor + getLineStyle = xform0 c_th1d_getlinestyle + getLineWidth = xform0 c_th1d_getlinewidth + resetAttLine = xform1 c_th1d_resetattline + setLineAttributes = xform0 c_th1d_setlineattributes + setLineColor = xform1 c_th1d_setlinecolor + setLineStyle = xform1 c_th1d_setlinestyle + setLineWidth = xform1 c_th1d_setlinewidth -newTH1D :: CString -> CString -> CInt -> CDouble -> CDouble -> IO TH1D -newTH1D = xform4 c_th1d_newth1d +instance ITAttFill TH1D where + setFillColor = xform1 c_th1d_setfillcolor + setFillStyle = xform1 c_th1d_setfillstyle +instance ITAttMarker TH1D where + getMarkerColor = xform0 c_th1d_getmarkercolor + getMarkerStyle = xform0 c_th1d_getmarkerstyle + getMarkerSize = xform0 c_th1d_getmarkersize + resetAttMarker = xform1 c_th1d_resetattmarker + setMarkerAttributes = xform0 c_th1d_setmarkerattributes + setMarkerColor = xform1 c_th1d_setmarkercolor + setMarkerStyle = xform1 c_th1d_setmarkerstyle + setMarkerSize = xform1 c_th1d_setmarkersize +instance ITObject TH1D where + draw = xform1 c_th1d_draw + findObject = xform1 c_th1d_findobject + getName = xform0 c_th1d_getname + isA = xform0 c_th1d_isa + paint = xform1 c_th1d_paint + printObj = xform1 c_th1d_printobj + saveAs = xform2 c_th1d_saveas + write = xform3 c_th1d_write +instance IDeletable TH1D where + delete = xform0 c_th1d_delete +instance ITArray TH1D -instance FPtr (Exist TH1D) where - type Raw (Exist TH1D) = RawTH1D - get_fptr (ETH1D obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1D) :: TH1D) +newTH1D :: + (Castable c1 CString, Castable c0 CString) => + c0 -> c1 -> CInt -> CDouble -> CDouble -> IO TH1D +newTH1D = xform4 c_th1d_newth1d diff --git a/src/HROOT/Hist/TH1D/Interface.hs b/src/HROOT/Hist/TH1D/Interface.hs --- a/src/HROOT/Hist/TH1D/Interface.hs +++ b/src/HROOT/Hist/TH1D/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1D.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1D.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayD.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayD a) => ITH1D a where - -instance Existable TH1D where - data Exist TH1D = forall a. (FPtr a, ITH1D a) => ETH1D a +class (ITH1 a, ITArrayD a) => ITH1D a -upcastTH1D :: (FPtr a, ITH1D a) => a -> TH1D -upcastTH1D h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1D = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1D :: forall a . (FPtr a, ITH1D a) => a -> TH1D +upcastTH1D h + = let fh = get_fptr h + fh2 :: Ptr RawTH1D = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1D :: (FPtr a, ITH1D a) => TH1D -> a -downcastTH1D h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1D :: forall a . (FPtr a, ITH1D a) => TH1D -> a +downcastTH1D h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1D/RawType.hs b/src/HROOT/Hist/TH1D/RawType.hs --- a/src/HROOT/Hist/TH1D/RawType.hs +++ b/src/HROOT/Hist/TH1D/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1D.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1D -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1D = TH1D (Ptr RawTH1D) + deriving (Eq, Ord, Show) -data RawTH1D -newtype TH1D = TH1D (ForeignPtr RawTH1D) deriving (Eq, Ord, Show) instance FPtr TH1D where - type Raw TH1D = RawTH1D - get_fptr (TH1D fptr) = fptr - cast_fptr_to_obj = TH1D + type Raw TH1D = RawTH1D + get_fptr (TH1D ptr) = ptr + cast_fptr_to_obj = TH1D diff --git a/src/HROOT/Hist/TH1F.hs b/src/HROOT/Hist/TH1F.hs --- a/src/HROOT/Hist/TH1F.hs +++ b/src/HROOT/Hist/TH1F.hs @@ -1,15 +1,5 @@ module HROOT.Hist.TH1F - ( - TH1F(..) - , ITH1F - , upcastTH1F - , downcastTH1F - , newTH1F - - ) where - + (TH1F(..), ITH1F, upcastTH1F, downcastTH1F, newTH1F) where import HROOT.Hist.TH1F.RawType import HROOT.Hist.TH1F.Interface import HROOT.Hist.TH1F.Implementation - - diff --git a/src/HROOT/Hist/TH1F/Cast.hs b/src/HROOT/Hist/TH1F/Cast.hs --- a/src/HROOT/Hist/TH1F/Cast.hs +++ b/src/HROOT/Hist/TH1F/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1F.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1F.RawType import HROOT.Hist.TH1F.Interface instance (ITH1F a, FPtr a) => Castable a (Ptr RawTH1F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1F (Ptr RawTH1F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1F/FFI.hsc b/src/HROOT/Hist/TH1F/FFI.hsc --- a/src/HROOT/Hist/TH1F/FFI.hsc +++ b/src/HROOT/Hist/TH1F/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1F.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1F.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,479 +11,529 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1F.h" +foreign import ccall safe "HROOTHistTH1F.h TH1F_Add" c_th1f_add :: + Ptr RawTH1F -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Add" c_th1f_add - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_AddBinContent" + c_th1f_addbincontent :: Ptr RawTH1F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_AddBinContent" c_th1f_addbincontent - :: (Ptr RawTH1F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Chi2Test" + c_th1f_chi2test :: + Ptr RawTH1F -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_Chi2Test" c_th1f_chi2test - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_ComputeIntegral" + c_th1f_computeintegral :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_ComputeIntegral" c_th1f_computeintegral - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_DirectoryAutoAdd" + c_th1f_directoryautoadd :: + Ptr RawTH1F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_DirectoryAutoAdd" c_th1f_directoryautoadd - :: (Ptr RawTH1F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Divide" + c_th1f_divide :: + Ptr RawTH1F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Divide" c_th1f_divide - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_drawCopyTH1" + c_th1f_drawcopyth1 :: Ptr RawTH1F -> CString -> IO (Ptr RawTH1F) -foreign import ccall "HROOTHistTH1F.h TH1F_drawCopyTH1" c_th1f_drawcopyth1 - :: (Ptr RawTH1F) -> CString -> IO (Ptr RawTH1F) +foreign import ccall safe "HROOTHistTH1F.h TH1F_DrawNormalized" + c_th1f_drawnormalized :: + Ptr RawTH1F -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1F.h TH1F_DrawNormalized" c_th1f_drawnormalized - :: (Ptr RawTH1F) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1F.h TH1F_drawPanelTH1" + c_th1f_drawpanelth1 :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_drawPanelTH1" c_th1f_drawpanelth1 - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_BufferEmpty" + c_th1f_bufferempty :: Ptr RawTH1F -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_BufferEmpty" c_th1f_bufferempty - :: (Ptr RawTH1F) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_evalF" c_th1f_evalf + :: Ptr RawTH1F -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_evalF" c_th1f_evalf - :: (Ptr RawTH1F) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_FFT" c_th1f_fft :: + Ptr RawTH1F -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1F.h TH1F_FFT" c_th1f_fft - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1F.h TH1F_fill1" c_th1f_fill1 + :: Ptr RawTH1F -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_fill1" c_th1f_fill1 - :: (Ptr RawTH1F) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_fill1w" + c_th1f_fill1w :: Ptr RawTH1F -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_fill1w" c_th1f_fill1w - :: (Ptr RawTH1F) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_fillN1" + c_th1f_filln1 :: + Ptr RawTH1F -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_fillN1" c_th1f_filln1 - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_FillRandom" + c_th1f_fillrandom :: Ptr RawTH1F -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_FillRandom" c_th1f_fillrandom - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_FindBin" + c_th1f_findbin :: + Ptr RawTH1F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_FindBin" c_th1f_findbin - :: (Ptr RawTH1F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_FindFixBin" + c_th1f_findfixbin :: + Ptr RawTH1F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_FindFixBin" c_th1f_findfixbin - :: (Ptr RawTH1F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_FindFirstBinAbove" + c_th1f_findfirstbinabove :: + Ptr RawTH1F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_FindFirstBinAbove" c_th1f_findfirstbinabove - :: (Ptr RawTH1F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_FindLastBinAbove" + c_th1f_findlastbinabove :: + Ptr RawTH1F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_FindLastBinAbove" c_th1f_findlastbinabove - :: (Ptr RawTH1F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_Fit" c_th1f_fit :: + Ptr RawTH1F -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_FitPanelTH1" c_th1f_fitpanelth1 - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_FitPanelTH1" + c_th1f_fitpanelth1 :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_getNdivisionA" c_th1f_getndivisiona - :: (Ptr RawTH1F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getNdivisionA" + c_th1f_getndivisiona :: Ptr RawTH1F -> CString -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_getAxisColorA" c_th1f_getaxiscolora - :: (Ptr RawTH1F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getAxisColorA" + c_th1f_getaxiscolora :: Ptr RawTH1F -> CString -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_getLabelColorA" c_th1f_getlabelcolora - :: (Ptr RawTH1F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getLabelColorA" + c_th1f_getlabelcolora :: Ptr RawTH1F -> CString -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_getLabelFontA" c_th1f_getlabelfonta - :: (Ptr RawTH1F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getLabelFontA" + c_th1f_getlabelfonta :: Ptr RawTH1F -> CString -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_getLabelOffsetA" c_th1f_getlabeloffseta - :: (Ptr RawTH1F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getLabelOffsetA" + c_th1f_getlabeloffseta :: Ptr RawTH1F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getLabelSizeA" c_th1f_getlabelsizea - :: (Ptr RawTH1F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getLabelSizeA" + c_th1f_getlabelsizea :: Ptr RawTH1F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getTitleFontA" c_th1f_gettitlefonta - :: (Ptr RawTH1F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getTitleFontA" + c_th1f_gettitlefonta :: Ptr RawTH1F -> CString -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_getTitleOffsetA" c_th1f_gettitleoffseta - :: (Ptr RawTH1F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getTitleOffsetA" + c_th1f_gettitleoffseta :: Ptr RawTH1F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getTitleSizeA" c_th1f_gettitlesizea - :: (Ptr RawTH1F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getTitleSizeA" + c_th1f_gettitlesizea :: Ptr RawTH1F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getTickLengthA" c_th1f_getticklengtha - :: (Ptr RawTH1F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getTickLengthA" + c_th1f_getticklengtha :: Ptr RawTH1F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBarOffset" c_th1f_getbaroffset - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBarOffset" + c_th1f_getbaroffset :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBarWidth" c_th1f_getbarwidth - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBarWidth" + c_th1f_getbarwidth :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetContour" c_th1f_getcontour - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetContour" + c_th1f_getcontour :: Ptr RawTH1F -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetContourLevel" c_th1f_getcontourlevel - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetContourLevel" + c_th1f_getcontourlevel :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetContourLevelPad" c_th1f_getcontourlevelpad - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetContourLevelPad" + c_th1f_getcontourlevelpad :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBin" c_th1f_getbin - :: (Ptr RawTH1F) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBin" + c_th1f_getbin :: Ptr RawTH1F -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinCenter" c_th1f_getbincenter - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinCenter" + c_th1f_getbincenter :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinContent1" c_th1f_getbincontent1 - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinContent1" + c_th1f_getbincontent1 :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinContent2" c_th1f_getbincontent2 - :: (Ptr RawTH1F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinContent2" + c_th1f_getbincontent2 :: Ptr RawTH1F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinContent3" c_th1f_getbincontent3 - :: (Ptr RawTH1F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinContent3" + c_th1f_getbincontent3 :: + Ptr RawTH1F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinError1" c_th1f_getbinerror1 - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinError1" + c_th1f_getbinerror1 :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinError2" c_th1f_getbinerror2 - :: (Ptr RawTH1F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinError2" + c_th1f_getbinerror2 :: Ptr RawTH1F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinError3" c_th1f_getbinerror3 - :: (Ptr RawTH1F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinError3" + c_th1f_getbinerror3 :: + Ptr RawTH1F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinLowEdge" c_th1f_getbinlowedge - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinLowEdge" + c_th1f_getbinlowedge :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetBinWidth" c_th1f_getbinwidth - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetBinWidth" + c_th1f_getbinwidth :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetCellContent" c_th1f_getcellcontent - :: (Ptr RawTH1F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetCellContent" + c_th1f_getcellcontent :: Ptr RawTH1F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetCellError" c_th1f_getcellerror - :: (Ptr RawTH1F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetCellError" + c_th1f_getcellerror :: Ptr RawTH1F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetEntries" c_th1f_getentries - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetEntries" + c_th1f_getentries :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetEffectiveEntries" c_th1f_geteffectiveentries - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1F.h TH1F_GetEffectiveEntries" + c_th1f_geteffectiveentries :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetFunction" c_th1f_getfunction - :: (Ptr RawTH1F) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetFunction" + c_th1f_getfunction :: Ptr RawTH1F -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1F.h TH1F_GetDimension" c_th1f_getdimension - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetDimension" + c_th1f_getdimension :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetKurtosis" c_th1f_getkurtosis - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetKurtosis" + c_th1f_getkurtosis :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetLowEdge" c_th1f_getlowedge - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetLowEdge" + c_th1f_getlowedge :: Ptr RawTH1F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_getMaximumTH1" c_th1f_getmaximumth1 - :: (Ptr RawTH1F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getMaximumTH1" + c_th1f_getmaximumth1 :: Ptr RawTH1F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetMaximumBin" c_th1f_getmaximumbin - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMaximumBin" + c_th1f_getmaximumbin :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetMaximumStored" c_th1f_getmaximumstored - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMaximumStored" + c_th1f_getmaximumstored :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getMinimumTH1" c_th1f_getminimumth1 - :: (Ptr RawTH1F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_getMinimumTH1" + c_th1f_getminimumth1 :: Ptr RawTH1F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetMinimumBin" c_th1f_getminimumbin - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMinimumBin" + c_th1f_getminimumbin :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetMinimumStored" c_th1f_getminimumstored - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMinimumStored" + c_th1f_getminimumstored :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetMean" c_th1f_getmean - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMean" + c_th1f_getmean :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetMeanError" c_th1f_getmeanerror - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMeanError" + c_th1f_getmeanerror :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetNbinsX" c_th1f_getnbinsx - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetNbinsX" + c_th1f_getnbinsx :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetNbinsY" c_th1f_getnbinsy - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetNbinsY" + c_th1f_getnbinsy :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetNbinsZ" c_th1f_getnbinsz - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetNbinsZ" + c_th1f_getnbinsz :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_getQuantilesTH1" c_th1f_getquantilesth1 - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_getQuantilesTH1" + c_th1f_getquantilesth1 :: + Ptr RawTH1F -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetRandom" c_th1f_getrandom - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetRandom" + c_th1f_getrandom :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetStats" c_th1f_getstats - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetStats" + c_th1f_getstats :: Ptr RawTH1F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetSumOfWeights" c_th1f_getsumofweights - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetSumOfWeights" + c_th1f_getsumofweights :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetSumw2" c_th1f_getsumw2 - :: (Ptr RawTH1F) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetSumw2" + c_th1f_getsumw2 :: Ptr RawTH1F -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1F.h TH1F_GetSumw2N" c_th1f_getsumw2n - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetSumw2N" + c_th1f_getsumw2n :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_GetRMS" c_th1f_getrms - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetRMS" + c_th1f_getrms :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetRMSError" c_th1f_getrmserror - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetRMSError" + c_th1f_getrmserror :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_GetSkewness" c_th1f_getskewness - :: (Ptr RawTH1F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetSkewness" + c_th1f_getskewness :: Ptr RawTH1F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_integral1" c_th1f_integral1 - :: (Ptr RawTH1F) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_integral1" + c_th1f_integral1 :: + Ptr RawTH1F -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_interpolate1" c_th1f_interpolate1 - :: (Ptr RawTH1F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_interpolate1" + c_th1f_interpolate1 :: Ptr RawTH1F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_interpolate2" c_th1f_interpolate2 - :: (Ptr RawTH1F) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_interpolate2" + c_th1f_interpolate2 :: + Ptr RawTH1F -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_interpolate3" c_th1f_interpolate3 - :: (Ptr RawTH1F) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_interpolate3" + c_th1f_interpolate3 :: + Ptr RawTH1F -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_KolmogorovTest" c_th1f_kolmogorovtest - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_KolmogorovTest" + c_th1f_kolmogorovtest :: + Ptr RawTH1F -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_LabelsDeflate" c_th1f_labelsdeflate - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_LabelsDeflate" + c_th1f_labelsdeflate :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_LabelsInflate" c_th1f_labelsinflate - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_LabelsInflate" + c_th1f_labelsinflate :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_LabelsOption" c_th1f_labelsoption - :: (Ptr RawTH1F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_LabelsOption" + c_th1f_labelsoption :: Ptr RawTH1F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_multiflyF" c_th1f_multiflyf - :: (Ptr RawTH1F) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_multiflyF" + c_th1f_multiflyf :: Ptr RawTH1F -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Multiply" c_th1f_multiply - :: (Ptr RawTH1F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Multiply" + c_th1f_multiply :: + Ptr RawTH1F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_PutStats" c_th1f_putstats - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_PutStats" + c_th1f_putstats :: Ptr RawTH1F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Rebin" c_th1f_rebin - :: (Ptr RawTH1F) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1F.h TH1F_Rebin" c_th1f_rebin + :: + Ptr RawTH1F -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1F.h TH1F_RebinAxis" c_th1f_rebinaxis - :: (Ptr RawTH1F) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_RebinAxis" + c_th1f_rebinaxis :: Ptr RawTH1F -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Rebuild" c_th1f_rebuild - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Rebuild" + c_th1f_rebuild :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_RecursiveRemove" c_th1f_recursiveremove - :: (Ptr RawTH1F) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_RecursiveRemove" + c_th1f_recursiveremove :: Ptr RawTH1F -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Reset" c_th1f_reset - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Reset" c_th1f_reset + :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_ResetStats" c_th1f_resetstats - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_ResetStats" + c_th1f_resetstats :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Scale" c_th1f_scale - :: (Ptr RawTH1F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Scale" c_th1f_scale + :: Ptr RawTH1F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setAxisColorA" c_th1f_setaxiscolora - :: (Ptr RawTH1F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setAxisColorA" + c_th1f_setaxiscolora :: Ptr RawTH1F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetAxisRange" c_th1f_setaxisrange - :: (Ptr RawTH1F) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetAxisRange" + c_th1f_setaxisrange :: + Ptr RawTH1F -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetBarOffset" c_th1f_setbaroffset - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetBarOffset" + c_th1f_setbaroffset :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetBarWidth" c_th1f_setbarwidth - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetBarWidth" + c_th1f_setbarwidth :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinContent1" c_th1f_setbincontent1 - :: (Ptr RawTH1F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinContent1" + c_th1f_setbincontent1 :: Ptr RawTH1F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinContent2" c_th1f_setbincontent2 - :: (Ptr RawTH1F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinContent2" + c_th1f_setbincontent2 :: + Ptr RawTH1F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinContent3" c_th1f_setbincontent3 - :: (Ptr RawTH1F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinContent3" + c_th1f_setbincontent3 :: + Ptr RawTH1F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinError1" c_th1f_setbinerror1 - :: (Ptr RawTH1F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinError1" + c_th1f_setbinerror1 :: Ptr RawTH1F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinError2" c_th1f_setbinerror2 - :: (Ptr RawTH1F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinError2" + c_th1f_setbinerror2 :: + Ptr RawTH1F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBinError3" c_th1f_setbinerror3 - :: (Ptr RawTH1F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBinError3" + c_th1f_setbinerror3 :: + Ptr RawTH1F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBins1" c_th1f_setbins1 - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBins1" + c_th1f_setbins1 :: Ptr RawTH1F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBins2" c_th1f_setbins2 - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBins2" + c_th1f_setbins2 :: + Ptr RawTH1F -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setBins3" c_th1f_setbins3 - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setBins3" + c_th1f_setbins3 :: + Ptr RawTH1F -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetBinsLength" c_th1f_setbinslength - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetBinsLength" + c_th1f_setbinslength :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetBuffer" c_th1f_setbuffer - :: (Ptr RawTH1F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetBuffer" + c_th1f_setbuffer :: Ptr RawTH1F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetCellContent" c_th1f_setcellcontent - :: (Ptr RawTH1F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetCellContent" + c_th1f_setcellcontent :: + Ptr RawTH1F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetContent" c_th1f_setcontent - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetContent" + c_th1f_setcontent :: Ptr RawTH1F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetContour" c_th1f_setcontour - :: (Ptr RawTH1F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetContour" + c_th1f_setcontour :: Ptr RawTH1F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetContourLevel" c_th1f_setcontourlevel - :: (Ptr RawTH1F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetContourLevel" + c_th1f_setcontourlevel :: Ptr RawTH1F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetDirectory" c_th1f_setdirectory - :: (Ptr RawTH1F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetDirectory" + c_th1f_setdirectory :: Ptr RawTH1F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetEntries" c_th1f_setentries - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetEntries" + c_th1f_setentries :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetError" c_th1f_seterror - :: (Ptr RawTH1F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetError" + c_th1f_seterror :: Ptr RawTH1F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setLabelColorA" c_th1f_setlabelcolora - :: (Ptr RawTH1F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setLabelColorA" + c_th1f_setlabelcolora :: Ptr RawTH1F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setLabelSizeA" c_th1f_setlabelsizea - :: (Ptr RawTH1F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setLabelSizeA" + c_th1f_setlabelsizea :: Ptr RawTH1F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setLabelFontA" c_th1f_setlabelfonta - :: (Ptr RawTH1F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setLabelFontA" + c_th1f_setlabelfonta :: Ptr RawTH1F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_setLabelOffsetA" c_th1f_setlabeloffseta - :: (Ptr RawTH1F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_setLabelOffsetA" + c_th1f_setlabeloffseta :: + Ptr RawTH1F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetMaximum" c_th1f_setmaximum - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetMaximum" + c_th1f_setmaximum :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetMinimum" c_th1f_setminimum - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetMinimum" + c_th1f_setminimum :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetNormFactor" c_th1f_setnormfactor - :: (Ptr RawTH1F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetNormFactor" + c_th1f_setnormfactor :: Ptr RawTH1F -> CDouble -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetStats" c_th1f_setstats - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetStats" + c_th1f_setstats :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetOption" c_th1f_setoption - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetOption" + c_th1f_setoption :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetXTitle" c_th1f_setxtitle - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetXTitle" + c_th1f_setxtitle :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetYTitle" c_th1f_setytitle - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetYTitle" + c_th1f_setytitle :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetZTitle" c_th1f_setztitle - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetZTitle" + c_th1f_setztitle :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_ShowBackground" c_th1f_showbackground - :: (Ptr RawTH1F) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1F.h TH1F_ShowBackground" + c_th1f_showbackground :: + Ptr RawTH1F -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1F.h TH1F_ShowPeaks" c_th1f_showpeaks - :: (Ptr RawTH1F) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_ShowPeaks" + c_th1f_showpeaks :: + Ptr RawTH1F -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_Smooth" c_th1f_smooth - :: (Ptr RawTH1F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Smooth" + c_th1f_smooth :: Ptr RawTH1F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Sumw2" c_th1f_sumw2 - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Sumw2" c_th1f_sumw2 + :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Draw" c_th1f_draw - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetName" + c_th1f_setname :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_FindObject" c_th1f_findobject - :: (Ptr RawTH1F) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetNameTitle" + c_th1f_setnametitle :: Ptr RawTH1F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetName" c_th1f_getname - :: (Ptr RawTH1F) -> IO CString +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetTitle" + c_th1f_settitle :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_IsA" c_th1f_isa - :: (Ptr RawTH1F) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetLineColor" + c_th1f_getlinecolor :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_Paint" c_th1f_paint - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetLineStyle" + c_th1f_getlinestyle :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_printObj" c_th1f_printobj - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetLineWidth" + c_th1f_getlinewidth :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_SaveAs" c_th1f_saveas - :: (Ptr RawTH1F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_ResetAttLine" + c_th1f_resetattline :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_Write" c_th1f_write - :: (Ptr RawTH1F) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetLineAttributes" + c_th1f_setlineattributes :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetLineColor" c_th1f_getlinecolor - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetLineColor" + c_th1f_setlinecolor :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetLineStyle" c_th1f_getlinestyle - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetLineStyle" + c_th1f_setlinestyle :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetLineWidth" c_th1f_getlinewidth - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetLineWidth" + c_th1f_setlinewidth :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_ResetAttLine" c_th1f_resetattline - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetFillColor" + c_th1f_setfillcolor :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetLineAttributes" c_th1f_setlineattributes - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetFillStyle" + c_th1f_setfillstyle :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetLineColor" c_th1f_setlinecolor - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMarkerColor" + c_th1f_getmarkercolor :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_SetLineStyle" c_th1f_setlinestyle - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMarkerStyle" + c_th1f_getmarkerstyle :: Ptr RawTH1F -> IO CInt -foreign import ccall "HROOTHistTH1F.h TH1F_SetLineWidth" c_th1f_setlinewidth - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetMarkerSize" + c_th1f_getmarkersize :: Ptr RawTH1F -> IO CDouble -foreign import ccall "HROOTHistTH1F.h TH1F_SetFillColor" c_th1f_setfillcolor - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_ResetAttMarker" + c_th1f_resetattmarker :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetFillStyle" c_th1f_setfillstyle - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1F.h TH1F_SetMarkerAttributes" + c_th1f_setmarkerattributes :: Ptr RawTH1F -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetMarkerColor" c_th1f_getmarkercolor - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetMarkerColor" + c_th1f_setmarkercolor :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetMarkerStyle" c_th1f_getmarkerstyle - :: (Ptr RawTH1F) -> IO CInt +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetMarkerStyle" + c_th1f_setmarkerstyle :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_GetMarkerSize" c_th1f_getmarkersize - :: (Ptr RawTH1F) -> IO CDouble +foreign import ccall safe "HROOTHistTH1F.h TH1F_SetMarkerSize" + c_th1f_setmarkersize :: Ptr RawTH1F -> CInt -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_ResetAttMarker" c_th1f_resetattmarker - :: (Ptr RawTH1F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Draw" c_th1f_draw + :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_SetMarkerAttributes" c_th1f_setmarkerattributes - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_FindObject" + c_th1f_findobject :: Ptr RawTH1F -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1F.h TH1F_SetMarkerColor" c_th1f_setmarkercolor - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_GetName" + c_th1f_getname :: Ptr RawTH1F -> IO CString -foreign import ccall "HROOTHistTH1F.h TH1F_SetMarkerStyle" c_th1f_setmarkerstyle - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_IsA" c_th1f_isa :: + Ptr RawTH1F -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1F.h TH1F_SetMarkerSize" c_th1f_setmarkersize - :: (Ptr RawTH1F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Paint" c_th1f_paint + :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_delete" c_th1f_delete - :: (Ptr RawTH1F) -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_printObj" + c_th1f_printobj :: Ptr RawTH1F -> CString -> IO () -foreign import ccall "HROOTHistTH1F.h TH1F_newTH1F" c_th1f_newth1f - :: CString -> CString -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH1F) +foreign import ccall safe "HROOTHistTH1F.h TH1F_SaveAs" + c_th1f_saveas :: Ptr RawTH1F -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1F.h TH1F_Write" c_th1f_write + :: Ptr RawTH1F -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1F.h TH1F_delete" + c_th1f_delete :: Ptr RawTH1F -> IO () + +foreign import ccall safe "HROOTHistTH1F.h TH1F_newTH1F" + c_th1f_newth1f :: + CString -> + CString -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH1F) diff --git a/src/HROOT/Hist/TH1F/Implementation.hs b/src/HROOT/Hist/TH1F/Implementation.hs --- a/src/HROOT/Hist/TH1F/Implementation.hs +++ b/src/HROOT/Hist/TH1F/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1F.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1F.RawType import HROOT.Hist.TH1F.FFI import HROOT.Hist.TH1F.Interface @@ -32,9 +33,9 @@ import HROOT.Core.TArrayF.RawType import HROOT.Core.TArrayF.Cast import HROOT.Core.TArrayF.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -44,6 +45,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -51,360 +55,188 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1F TH1F -instance ITH1F TH1F where instance ITH1 TH1F where - add = xform2 c_th1f_add - addBinContent = xform2 c_th1f_addbincontent - chi2Test = xform3 c_th1f_chi2test - computeIntegral = xform0 c_th1f_computeintegral - directoryAutoAdd = xform1 c_th1f_directoryautoadd - divide = xform5 c_th1f_divide - drawCopyTH1 = xform1 c_th1f_drawcopyth1 - drawNormalized = xform2 c_th1f_drawnormalized - drawPanelTH1 = xform0 c_th1f_drawpanelth1 - bufferEmpty = xform1 c_th1f_bufferempty - evalF = xform2 c_th1f_evalf - fFT = xform2 c_th1f_fft - fill1 = xform1 c_th1f_fill1 - fill1w = xform2 c_th1f_fill1w - fillN1 = xform4 c_th1f_filln1 - fillRandom = xform2 c_th1f_fillrandom - findBin = xform3 c_th1f_findbin - findFixBin = xform3 c_th1f_findfixbin - findFirstBinAbove = xform2 c_th1f_findfirstbinabove - findLastBinAbove = xform2 c_th1f_findlastbinabove - fitPanelTH1 = xform0 c_th1f_fitpanelth1 - getNdivisionA = xform1 c_th1f_getndivisiona - getAxisColorA = xform1 c_th1f_getaxiscolora - getLabelColorA = xform1 c_th1f_getlabelcolora - getLabelFontA = xform1 c_th1f_getlabelfonta - getLabelOffsetA = xform1 c_th1f_getlabeloffseta - getLabelSizeA = xform1 c_th1f_getlabelsizea - getTitleFontA = xform1 c_th1f_gettitlefonta - getTitleOffsetA = xform1 c_th1f_gettitleoffseta - getTitleSizeA = xform1 c_th1f_gettitlesizea - getTickLengthA = xform1 c_th1f_getticklengtha - getBarOffset = xform0 c_th1f_getbaroffset - getBarWidth = xform0 c_th1f_getbarwidth - getContour = xform1 c_th1f_getcontour - getContourLevel = xform1 c_th1f_getcontourlevel - getContourLevelPad = xform1 c_th1f_getcontourlevelpad - getBin = xform3 c_th1f_getbin - getBinCenter = xform1 c_th1f_getbincenter - getBinContent1 = xform1 c_th1f_getbincontent1 - getBinContent2 = xform2 c_th1f_getbincontent2 - getBinContent3 = xform3 c_th1f_getbincontent3 - getBinError1 = xform1 c_th1f_getbinerror1 - getBinError2 = xform2 c_th1f_getbinerror2 - getBinError3 = xform3 c_th1f_getbinerror3 - getBinLowEdge = xform1 c_th1f_getbinlowedge - getBinWidth = xform1 c_th1f_getbinwidth - getCellContent = xform2 c_th1f_getcellcontent - getCellError = xform2 c_th1f_getcellerror - getEntries = xform0 c_th1f_getentries - getEffectiveEntries = xform0 c_th1f_geteffectiveentries - getFunction = xform1 c_th1f_getfunction - getDimension = xform0 c_th1f_getdimension - getKurtosis = xform1 c_th1f_getkurtosis - getLowEdge = xform1 c_th1f_getlowedge - getMaximumTH1 = xform1 c_th1f_getmaximumth1 - getMaximumBin = xform0 c_th1f_getmaximumbin - getMaximumStored = xform0 c_th1f_getmaximumstored - getMinimumTH1 = xform1 c_th1f_getminimumth1 - getMinimumBin = xform0 c_th1f_getminimumbin - getMinimumStored = xform0 c_th1f_getminimumstored - getMean = xform1 c_th1f_getmean - getMeanError = xform1 c_th1f_getmeanerror - getNbinsX = xform0 c_th1f_getnbinsx - getNbinsY = xform0 c_th1f_getnbinsy - getNbinsZ = xform0 c_th1f_getnbinsz - getQuantilesTH1 = xform3 c_th1f_getquantilesth1 - getRandom = xform0 c_th1f_getrandom - getStats = xform1 c_th1f_getstats - getSumOfWeights = xform0 c_th1f_getsumofweights - getSumw2 = xform0 c_th1f_getsumw2 - getSumw2N = xform0 c_th1f_getsumw2n - getRMS = xform1 c_th1f_getrms - getRMSError = xform1 c_th1f_getrmserror - getSkewness = xform1 c_th1f_getskewness - integral1 = xform3 c_th1f_integral1 - interpolate1 = xform1 c_th1f_interpolate1 - interpolate2 = xform2 c_th1f_interpolate2 - interpolate3 = xform3 c_th1f_interpolate3 - kolmogorovTest = xform2 c_th1f_kolmogorovtest - labelsDeflate = xform1 c_th1f_labelsdeflate - labelsInflate = xform1 c_th1f_labelsinflate - labelsOption = xform2 c_th1f_labelsoption - multiflyF = xform2 c_th1f_multiflyf - multiply = xform5 c_th1f_multiply - putStats = xform1 c_th1f_putstats - rebin = xform3 c_th1f_rebin - rebinAxis = xform2 c_th1f_rebinaxis - rebuild = xform1 c_th1f_rebuild - recursiveRemove = xform1 c_th1f_recursiveremove - reset = xform1 c_th1f_reset - resetStats = xform0 c_th1f_resetstats - scale = xform2 c_th1f_scale - setAxisColorA = xform2 c_th1f_setaxiscolora - setAxisRange = xform3 c_th1f_setaxisrange - setBarOffset = xform1 c_th1f_setbaroffset - setBarWidth = xform1 c_th1f_setbarwidth - setBinContent1 = xform2 c_th1f_setbincontent1 - setBinContent2 = xform3 c_th1f_setbincontent2 - setBinContent3 = xform4 c_th1f_setbincontent3 - setBinError1 = xform2 c_th1f_setbinerror1 - setBinError2 = xform3 c_th1f_setbinerror2 - setBinError3 = xform4 c_th1f_setbinerror3 - setBins1 = xform2 c_th1f_setbins1 - setBins2 = xform4 c_th1f_setbins2 - setBins3 = xform6 c_th1f_setbins3 - setBinsLength = xform1 c_th1f_setbinslength - setBuffer = xform2 c_th1f_setbuffer - setCellContent = xform3 c_th1f_setcellcontent - setContent = xform1 c_th1f_setcontent - setContour = xform2 c_th1f_setcontour - setContourLevel = xform2 c_th1f_setcontourlevel - setDirectory = xform1 c_th1f_setdirectory - setEntries = xform1 c_th1f_setentries - setError = xform1 c_th1f_seterror - setLabelColorA = xform2 c_th1f_setlabelcolora - setLabelSizeA = xform2 c_th1f_setlabelsizea - setLabelFontA = xform2 c_th1f_setlabelfonta - setLabelOffsetA = xform2 c_th1f_setlabeloffseta - setMaximum = xform1 c_th1f_setmaximum - setMinimum = xform1 c_th1f_setminimum - setNormFactor = xform1 c_th1f_setnormfactor - setStats = xform1 c_th1f_setstats - setOption = xform1 c_th1f_setoption - setXTitle = xform1 c_th1f_setxtitle - setYTitle = xform1 c_th1f_setytitle - setZTitle = xform1 c_th1f_setztitle - showBackground = xform2 c_th1f_showbackground - showPeaks = xform3 c_th1f_showpeaks - smooth = xform2 c_th1f_smooth - sumw2 = xform0 c_th1f_sumw2 -instance ITArrayF TH1F where -instance ITObject TH1F where - draw = xform1 c_th1f_draw - findObject = xform1 c_th1f_findobject - getName = xform0 c_th1f_getname - isA = xform0 c_th1f_isa - paint = xform1 c_th1f_paint - printObj = xform1 c_th1f_printobj - saveAs = xform2 c_th1f_saveas - write = xform3 c_th1f_write -instance ITAttLine TH1F where - getLineColor = xform0 c_th1f_getlinecolor - getLineStyle = xform0 c_th1f_getlinestyle - getLineWidth = xform0 c_th1f_getlinewidth - resetAttLine = xform1 c_th1f_resetattline - setLineAttributes = xform0 c_th1f_setlineattributes - setLineColor = xform1 c_th1f_setlinecolor - setLineStyle = xform1 c_th1f_setlinestyle - setLineWidth = xform1 c_th1f_setlinewidth -instance ITAttFill TH1F where - setFillColor = xform1 c_th1f_setfillcolor - setFillStyle = xform1 c_th1f_setfillstyle -instance ITAttMarker TH1F where - getMarkerColor = xform0 c_th1f_getmarkercolor - getMarkerStyle = xform0 c_th1f_getmarkerstyle - getMarkerSize = xform0 c_th1f_getmarkersize - resetAttMarker = xform1 c_th1f_resetattmarker - setMarkerAttributes = xform0 c_th1f_setmarkerattributes - setMarkerColor = xform1 c_th1f_setmarkercolor - setMarkerStyle = xform1 c_th1f_setmarkerstyle - setMarkerSize = xform1 c_th1f_setmarkersize -instance IDeletable TH1F where - delete = xform0 c_th1f_delete -instance ITArray TH1F where - -instance ITH1F (Exist TH1F) where - -instance ITH1 (Exist TH1F) where - add (ETH1F x) = add x - addBinContent (ETH1F x) = addBinContent x - chi2Test (ETH1F x) = chi2Test x - computeIntegral (ETH1F x) = computeIntegral x - directoryAutoAdd (ETH1F x) = directoryAutoAdd x - divide (ETH1F x) = divide x - drawCopyTH1 (ETH1F x) a1 = return . ETH1F =<< drawCopyTH1 x a1 - drawNormalized (ETH1F x) = drawNormalized x - drawPanelTH1 (ETH1F x) = drawPanelTH1 x - bufferEmpty (ETH1F x) = bufferEmpty x - evalF (ETH1F x) = evalF x - fFT (ETH1F x) = fFT x - fill1 (ETH1F x) = fill1 x - fill1w (ETH1F x) = fill1w x - fillN1 (ETH1F x) = fillN1 x - fillRandom (ETH1F x) = fillRandom x - findBin (ETH1F x) = findBin x - findFixBin (ETH1F x) = findFixBin x - findFirstBinAbove (ETH1F x) = findFirstBinAbove x - findLastBinAbove (ETH1F x) = findLastBinAbove x - fitPanelTH1 (ETH1F x) = fitPanelTH1 x - getNdivisionA (ETH1F x) = getNdivisionA x - getAxisColorA (ETH1F x) = getAxisColorA x - getLabelColorA (ETH1F x) = getLabelColorA x - getLabelFontA (ETH1F x) = getLabelFontA x - getLabelOffsetA (ETH1F x) = getLabelOffsetA x - getLabelSizeA (ETH1F x) = getLabelSizeA x - getTitleFontA (ETH1F x) = getTitleFontA x - getTitleOffsetA (ETH1F x) = getTitleOffsetA x - getTitleSizeA (ETH1F x) = getTitleSizeA x - getTickLengthA (ETH1F x) = getTickLengthA x - getBarOffset (ETH1F x) = getBarOffset x - getBarWidth (ETH1F x) = getBarWidth x - getContour (ETH1F x) = getContour x - getContourLevel (ETH1F x) = getContourLevel x - getContourLevelPad (ETH1F x) = getContourLevelPad x - getBin (ETH1F x) = getBin x - getBinCenter (ETH1F x) = getBinCenter x - getBinContent1 (ETH1F x) = getBinContent1 x - getBinContent2 (ETH1F x) = getBinContent2 x - getBinContent3 (ETH1F x) = getBinContent3 x - getBinError1 (ETH1F x) = getBinError1 x - getBinError2 (ETH1F x) = getBinError2 x - getBinError3 (ETH1F x) = getBinError3 x - getBinLowEdge (ETH1F x) = getBinLowEdge x - getBinWidth (ETH1F x) = getBinWidth x - getCellContent (ETH1F x) = getCellContent x - getCellError (ETH1F x) = getCellError x - getEntries (ETH1F x) = getEntries x - getEffectiveEntries (ETH1F x) = getEffectiveEntries x - getFunction (ETH1F x) = getFunction x - getDimension (ETH1F x) = getDimension x - getKurtosis (ETH1F x) = getKurtosis x - getLowEdge (ETH1F x) = getLowEdge x - getMaximumTH1 (ETH1F x) = getMaximumTH1 x - getMaximumBin (ETH1F x) = getMaximumBin x - getMaximumStored (ETH1F x) = getMaximumStored x - getMinimumTH1 (ETH1F x) = getMinimumTH1 x - getMinimumBin (ETH1F x) = getMinimumBin x - getMinimumStored (ETH1F x) = getMinimumStored x - getMean (ETH1F x) = getMean x - getMeanError (ETH1F x) = getMeanError x - getNbinsX (ETH1F x) = getNbinsX x - getNbinsY (ETH1F x) = getNbinsY x - getNbinsZ (ETH1F x) = getNbinsZ x - getQuantilesTH1 (ETH1F x) = getQuantilesTH1 x - getRandom (ETH1F x) = getRandom x - getStats (ETH1F x) = getStats x - getSumOfWeights (ETH1F x) = getSumOfWeights x - getSumw2 (ETH1F x) = getSumw2 x - getSumw2N (ETH1F x) = getSumw2N x - getRMS (ETH1F x) = getRMS x - getRMSError (ETH1F x) = getRMSError x - getSkewness (ETH1F x) = getSkewness x - integral1 (ETH1F x) = integral1 x - interpolate1 (ETH1F x) = interpolate1 x - interpolate2 (ETH1F x) = interpolate2 x - interpolate3 (ETH1F x) = interpolate3 x - kolmogorovTest (ETH1F x) = kolmogorovTest x - labelsDeflate (ETH1F x) = labelsDeflate x - labelsInflate (ETH1F x) = labelsInflate x - labelsOption (ETH1F x) = labelsOption x - multiflyF (ETH1F x) = multiflyF x - multiply (ETH1F x) = multiply x - putStats (ETH1F x) = putStats x - rebin (ETH1F x) = rebin x - rebinAxis (ETH1F x) = rebinAxis x - rebuild (ETH1F x) = rebuild x - recursiveRemove (ETH1F x) = recursiveRemove x - reset (ETH1F x) = reset x - resetStats (ETH1F x) = resetStats x - scale (ETH1F x) = scale x - setAxisColorA (ETH1F x) = setAxisColorA x - setAxisRange (ETH1F x) = setAxisRange x - setBarOffset (ETH1F x) = setBarOffset x - setBarWidth (ETH1F x) = setBarWidth x - setBinContent1 (ETH1F x) = setBinContent1 x - setBinContent2 (ETH1F x) = setBinContent2 x - setBinContent3 (ETH1F x) = setBinContent3 x - setBinError1 (ETH1F x) = setBinError1 x - setBinError2 (ETH1F x) = setBinError2 x - setBinError3 (ETH1F x) = setBinError3 x - setBins1 (ETH1F x) = setBins1 x - setBins2 (ETH1F x) = setBins2 x - setBins3 (ETH1F x) = setBins3 x - setBinsLength (ETH1F x) = setBinsLength x - setBuffer (ETH1F x) = setBuffer x - setCellContent (ETH1F x) = setCellContent x - setContent (ETH1F x) = setContent x - setContour (ETH1F x) = setContour x - setContourLevel (ETH1F x) = setContourLevel x - setDirectory (ETH1F x) = setDirectory x - setEntries (ETH1F x) = setEntries x - setError (ETH1F x) = setError x - setLabelColorA (ETH1F x) = setLabelColorA x - setLabelSizeA (ETH1F x) = setLabelSizeA x - setLabelFontA (ETH1F x) = setLabelFontA x - setLabelOffsetA (ETH1F x) = setLabelOffsetA x - setMaximum (ETH1F x) = setMaximum x - setMinimum (ETH1F x) = setMinimum x - setNormFactor (ETH1F x) = setNormFactor x - setStats (ETH1F x) = setStats x - setOption (ETH1F x) = setOption x - setXTitle (ETH1F x) = setXTitle x - setYTitle (ETH1F x) = setYTitle x - setZTitle (ETH1F x) = setZTitle x - showBackground (ETH1F x) = showBackground x - showPeaks (ETH1F x) = showPeaks x - smooth (ETH1F x) = smooth x - sumw2 (ETH1F x) = sumw2 x -instance ITArrayF (Exist TH1F) where + add = xform2 c_th1f_add + addBinContent = xform2 c_th1f_addbincontent + chi2Test = xform3 c_th1f_chi2test + computeIntegral = xform0 c_th1f_computeintegral + directoryAutoAdd = xform1 c_th1f_directoryautoadd + divide = xform5 c_th1f_divide + drawCopyTH1 = xform1 c_th1f_drawcopyth1 + drawNormalized = xform2 c_th1f_drawnormalized + drawPanelTH1 = xform0 c_th1f_drawpanelth1 + bufferEmpty = xform1 c_th1f_bufferempty + evalF = xform2 c_th1f_evalf + fFT = xform2 c_th1f_fft + fill1 = xform1 c_th1f_fill1 + fill1w = xform2 c_th1f_fill1w + fillN1 = xform4 c_th1f_filln1 + fillRandom = xform2 c_th1f_fillrandom + findBin = xform3 c_th1f_findbin + findFixBin = xform3 c_th1f_findfixbin + findFirstBinAbove = xform2 c_th1f_findfirstbinabove + findLastBinAbove = xform2 c_th1f_findlastbinabove + fit = xform5 c_th1f_fit + fitPanelTH1 = xform0 c_th1f_fitpanelth1 + getNdivisionA = xform1 c_th1f_getndivisiona + getAxisColorA = xform1 c_th1f_getaxiscolora + getLabelColorA = xform1 c_th1f_getlabelcolora + getLabelFontA = xform1 c_th1f_getlabelfonta + getLabelOffsetA = xform1 c_th1f_getlabeloffseta + getLabelSizeA = xform1 c_th1f_getlabelsizea + getTitleFontA = xform1 c_th1f_gettitlefonta + getTitleOffsetA = xform1 c_th1f_gettitleoffseta + getTitleSizeA = xform1 c_th1f_gettitlesizea + getTickLengthA = xform1 c_th1f_getticklengtha + getBarOffset = xform0 c_th1f_getbaroffset + getBarWidth = xform0 c_th1f_getbarwidth + getContour = xform1 c_th1f_getcontour + getContourLevel = xform1 c_th1f_getcontourlevel + getContourLevelPad = xform1 c_th1f_getcontourlevelpad + getBin = xform3 c_th1f_getbin + getBinCenter = xform1 c_th1f_getbincenter + getBinContent1 = xform1 c_th1f_getbincontent1 + getBinContent2 = xform2 c_th1f_getbincontent2 + getBinContent3 = xform3 c_th1f_getbincontent3 + getBinError1 = xform1 c_th1f_getbinerror1 + getBinError2 = xform2 c_th1f_getbinerror2 + getBinError3 = xform3 c_th1f_getbinerror3 + getBinLowEdge = xform1 c_th1f_getbinlowedge + getBinWidth = xform1 c_th1f_getbinwidth + getCellContent = xform2 c_th1f_getcellcontent + getCellError = xform2 c_th1f_getcellerror + getEntries = xform0 c_th1f_getentries + getEffectiveEntries = xform0 c_th1f_geteffectiveentries + getFunction = xform1 c_th1f_getfunction + getDimension = xform0 c_th1f_getdimension + getKurtosis = xform1 c_th1f_getkurtosis + getLowEdge = xform1 c_th1f_getlowedge + getMaximumTH1 = xform1 c_th1f_getmaximumth1 + getMaximumBin = xform0 c_th1f_getmaximumbin + getMaximumStored = xform0 c_th1f_getmaximumstored + getMinimumTH1 = xform1 c_th1f_getminimumth1 + getMinimumBin = xform0 c_th1f_getminimumbin + getMinimumStored = xform0 c_th1f_getminimumstored + getMean = xform1 c_th1f_getmean + getMeanError = xform1 c_th1f_getmeanerror + getNbinsX = xform0 c_th1f_getnbinsx + getNbinsY = xform0 c_th1f_getnbinsy + getNbinsZ = xform0 c_th1f_getnbinsz + getQuantilesTH1 = xform3 c_th1f_getquantilesth1 + getRandom = xform0 c_th1f_getrandom + getStats = xform1 c_th1f_getstats + getSumOfWeights = xform0 c_th1f_getsumofweights + getSumw2 = xform0 c_th1f_getsumw2 + getSumw2N = xform0 c_th1f_getsumw2n + getRMS = xform1 c_th1f_getrms + getRMSError = xform1 c_th1f_getrmserror + getSkewness = xform1 c_th1f_getskewness + integral1 = xform3 c_th1f_integral1 + interpolate1 = xform1 c_th1f_interpolate1 + interpolate2 = xform2 c_th1f_interpolate2 + interpolate3 = xform3 c_th1f_interpolate3 + kolmogorovTest = xform2 c_th1f_kolmogorovtest + labelsDeflate = xform1 c_th1f_labelsdeflate + labelsInflate = xform1 c_th1f_labelsinflate + labelsOption = xform2 c_th1f_labelsoption + multiflyF = xform2 c_th1f_multiflyf + multiply = xform5 c_th1f_multiply + putStats = xform1 c_th1f_putstats + rebin = xform3 c_th1f_rebin + rebinAxis = xform2 c_th1f_rebinaxis + rebuild = xform1 c_th1f_rebuild + recursiveRemove = xform1 c_th1f_recursiveremove + reset = xform1 c_th1f_reset + resetStats = xform0 c_th1f_resetstats + scale = xform2 c_th1f_scale + setAxisColorA = xform2 c_th1f_setaxiscolora + setAxisRange = xform3 c_th1f_setaxisrange + setBarOffset = xform1 c_th1f_setbaroffset + setBarWidth = xform1 c_th1f_setbarwidth + setBinContent1 = xform2 c_th1f_setbincontent1 + setBinContent2 = xform3 c_th1f_setbincontent2 + setBinContent3 = xform4 c_th1f_setbincontent3 + setBinError1 = xform2 c_th1f_setbinerror1 + setBinError2 = xform3 c_th1f_setbinerror2 + setBinError3 = xform4 c_th1f_setbinerror3 + setBins1 = xform2 c_th1f_setbins1 + setBins2 = xform4 c_th1f_setbins2 + setBins3 = xform6 c_th1f_setbins3 + setBinsLength = xform1 c_th1f_setbinslength + setBuffer = xform2 c_th1f_setbuffer + setCellContent = xform3 c_th1f_setcellcontent + setContent = xform1 c_th1f_setcontent + setContour = xform2 c_th1f_setcontour + setContourLevel = xform2 c_th1f_setcontourlevel + setDirectory = xform1 c_th1f_setdirectory + setEntries = xform1 c_th1f_setentries + setError = xform1 c_th1f_seterror + setLabelColorA = xform2 c_th1f_setlabelcolora + setLabelSizeA = xform2 c_th1f_setlabelsizea + setLabelFontA = xform2 c_th1f_setlabelfonta + setLabelOffsetA = xform2 c_th1f_setlabeloffseta + setMaximum = xform1 c_th1f_setmaximum + setMinimum = xform1 c_th1f_setminimum + setNormFactor = xform1 c_th1f_setnormfactor + setStats = xform1 c_th1f_setstats + setOption = xform1 c_th1f_setoption + setXTitle = xform1 c_th1f_setxtitle + setYTitle = xform1 c_th1f_setytitle + setZTitle = xform1 c_th1f_setztitle + showBackground = xform2 c_th1f_showbackground + showPeaks = xform3 c_th1f_showpeaks + smooth = xform2 c_th1f_smooth + sumw2 = xform0 c_th1f_sumw2 -instance ITObject (Exist TH1F) where - draw (ETH1F x) = draw x - findObject (ETH1F x) = findObject x - getName (ETH1F x) = getName x - isA (ETH1F x) = isA x - paint (ETH1F x) = paint x - printObj (ETH1F x) = printObj x - saveAs (ETH1F x) = saveAs x - write (ETH1F x) = write x -instance ITAttLine (Exist TH1F) where - getLineColor (ETH1F x) = getLineColor x - getLineStyle (ETH1F x) = getLineStyle x - getLineWidth (ETH1F x) = getLineWidth x - resetAttLine (ETH1F x) = resetAttLine x - setLineAttributes (ETH1F x) = setLineAttributes x - setLineColor (ETH1F x) = setLineColor x - setLineStyle (ETH1F x) = setLineStyle x - setLineWidth (ETH1F x) = setLineWidth x -instance ITAttFill (Exist TH1F) where - setFillColor (ETH1F x) = setFillColor x - setFillStyle (ETH1F x) = setFillStyle x -instance ITAttMarker (Exist TH1F) where - getMarkerColor (ETH1F x) = getMarkerColor x - getMarkerStyle (ETH1F x) = getMarkerStyle x - getMarkerSize (ETH1F x) = getMarkerSize x - resetAttMarker (ETH1F x) = resetAttMarker x - setMarkerAttributes (ETH1F x) = setMarkerAttributes x - setMarkerColor (ETH1F x) = setMarkerColor x - setMarkerStyle (ETH1F x) = setMarkerStyle x - setMarkerSize (ETH1F x) = setMarkerSize x -instance IDeletable (Exist TH1F) where - delete (ETH1F x) = delete x -instance ITArray (Exist TH1F) where +instance ITArrayF TH1F +instance ITNamed TH1F where + setName = xform1 c_th1f_setname + setNameTitle = xform2 c_th1f_setnametitle + setTitle = xform1 c_th1f_settitle +instance ITAttLine TH1F where + getLineColor = xform0 c_th1f_getlinecolor + getLineStyle = xform0 c_th1f_getlinestyle + getLineWidth = xform0 c_th1f_getlinewidth + resetAttLine = xform1 c_th1f_resetattline + setLineAttributes = xform0 c_th1f_setlineattributes + setLineColor = xform1 c_th1f_setlinecolor + setLineStyle = xform1 c_th1f_setlinestyle + setLineWidth = xform1 c_th1f_setlinewidth -newTH1F :: CString -> CString -> CInt -> CDouble -> CDouble -> IO TH1F -newTH1F = xform4 c_th1f_newth1f +instance ITAttFill TH1F where + setFillColor = xform1 c_th1f_setfillcolor + setFillStyle = xform1 c_th1f_setfillstyle +instance ITAttMarker TH1F where + getMarkerColor = xform0 c_th1f_getmarkercolor + getMarkerStyle = xform0 c_th1f_getmarkerstyle + getMarkerSize = xform0 c_th1f_getmarkersize + resetAttMarker = xform1 c_th1f_resetattmarker + setMarkerAttributes = xform0 c_th1f_setmarkerattributes + setMarkerColor = xform1 c_th1f_setmarkercolor + setMarkerStyle = xform1 c_th1f_setmarkerstyle + setMarkerSize = xform1 c_th1f_setmarkersize +instance ITObject TH1F where + draw = xform1 c_th1f_draw + findObject = xform1 c_th1f_findobject + getName = xform0 c_th1f_getname + isA = xform0 c_th1f_isa + paint = xform1 c_th1f_paint + printObj = xform1 c_th1f_printobj + saveAs = xform2 c_th1f_saveas + write = xform3 c_th1f_write +instance IDeletable TH1F where + delete = xform0 c_th1f_delete +instance ITArray TH1F -instance FPtr (Exist TH1F) where - type Raw (Exist TH1F) = RawTH1F - get_fptr (ETH1F obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1F) :: TH1F) +newTH1F :: + (Castable c1 CString, Castable c0 CString) => + c0 -> c1 -> CInt -> CDouble -> CDouble -> IO TH1F +newTH1F = xform4 c_th1f_newth1f diff --git a/src/HROOT/Hist/TH1F/Interface.hs b/src/HROOT/Hist/TH1F/Interface.hs --- a/src/HROOT/Hist/TH1F/Interface.hs +++ b/src/HROOT/Hist/TH1F/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1F.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1F.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayF.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayF a) => ITH1F a where - -instance Existable TH1F where - data Exist TH1F = forall a. (FPtr a, ITH1F a) => ETH1F a +class (ITH1 a, ITArrayF a) => ITH1F a -upcastTH1F :: (FPtr a, ITH1F a) => a -> TH1F -upcastTH1F h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1F = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1F :: forall a . (FPtr a, ITH1F a) => a -> TH1F +upcastTH1F h + = let fh = get_fptr h + fh2 :: Ptr RawTH1F = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1F :: (FPtr a, ITH1F a) => TH1F -> a -downcastTH1F h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1F :: forall a . (FPtr a, ITH1F a) => TH1F -> a +downcastTH1F h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1F/RawType.hs b/src/HROOT/Hist/TH1F/RawType.hs --- a/src/HROOT/Hist/TH1F/RawType.hs +++ b/src/HROOT/Hist/TH1F/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1F.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1F -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1F = TH1F (Ptr RawTH1F) + deriving (Eq, Ord, Show) -data RawTH1F -newtype TH1F = TH1F (ForeignPtr RawTH1F) deriving (Eq, Ord, Show) instance FPtr TH1F where - type Raw TH1F = RawTH1F - get_fptr (TH1F fptr) = fptr - cast_fptr_to_obj = TH1F + type Raw TH1F = RawTH1F + get_fptr (TH1F ptr) = ptr + cast_fptr_to_obj = TH1F diff --git a/src/HROOT/Hist/TH1I.hs b/src/HROOT/Hist/TH1I.hs --- a/src/HROOT/Hist/TH1I.hs +++ b/src/HROOT/Hist/TH1I.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH1I - ( - TH1I(..) - , ITH1I - , upcastTH1I - , downcastTH1I - - - ) where - +module HROOT.Hist.TH1I (TH1I(..), ITH1I, upcastTH1I, downcastTH1I) + where import HROOT.Hist.TH1I.RawType import HROOT.Hist.TH1I.Interface import HROOT.Hist.TH1I.Implementation - - diff --git a/src/HROOT/Hist/TH1I/Cast.hs b/src/HROOT/Hist/TH1I/Cast.hs --- a/src/HROOT/Hist/TH1I/Cast.hs +++ b/src/HROOT/Hist/TH1I/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1I.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1I.RawType import HROOT.Hist.TH1I.Interface instance (ITH1I a, FPtr a) => Castable a (Ptr RawTH1I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1I (Ptr RawTH1I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1I/FFI.hsc b/src/HROOT/Hist/TH1I/FFI.hsc --- a/src/HROOT/Hist/TH1I/FFI.hsc +++ b/src/HROOT/Hist/TH1I/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1I.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1I.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,476 +11,524 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1I.h" +foreign import ccall safe "HROOTHistTH1I.h TH1I_Add" c_th1i_add :: + Ptr RawTH1I -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Add" c_th1i_add - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_AddBinContent" + c_th1i_addbincontent :: Ptr RawTH1I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_AddBinContent" c_th1i_addbincontent - :: (Ptr RawTH1I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Chi2Test" + c_th1i_chi2test :: + Ptr RawTH1I -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_Chi2Test" c_th1i_chi2test - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_ComputeIntegral" + c_th1i_computeintegral :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_ComputeIntegral" c_th1i_computeintegral - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_DirectoryAutoAdd" + c_th1i_directoryautoadd :: + Ptr RawTH1I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_DirectoryAutoAdd" c_th1i_directoryautoadd - :: (Ptr RawTH1I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Divide" + c_th1i_divide :: + Ptr RawTH1I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Divide" c_th1i_divide - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_drawCopyTH1" + c_th1i_drawcopyth1 :: Ptr RawTH1I -> CString -> IO (Ptr RawTH1I) -foreign import ccall "HROOTHistTH1I.h TH1I_drawCopyTH1" c_th1i_drawcopyth1 - :: (Ptr RawTH1I) -> CString -> IO (Ptr RawTH1I) +foreign import ccall safe "HROOTHistTH1I.h TH1I_DrawNormalized" + c_th1i_drawnormalized :: + Ptr RawTH1I -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1I.h TH1I_DrawNormalized" c_th1i_drawnormalized - :: (Ptr RawTH1I) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1I.h TH1I_drawPanelTH1" + c_th1i_drawpanelth1 :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_drawPanelTH1" c_th1i_drawpanelth1 - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_BufferEmpty" + c_th1i_bufferempty :: Ptr RawTH1I -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_BufferEmpty" c_th1i_bufferempty - :: (Ptr RawTH1I) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_evalF" c_th1i_evalf + :: Ptr RawTH1I -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_evalF" c_th1i_evalf - :: (Ptr RawTH1I) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_FFT" c_th1i_fft :: + Ptr RawTH1I -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1I.h TH1I_FFT" c_th1i_fft - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1I.h TH1I_fill1" c_th1i_fill1 + :: Ptr RawTH1I -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_fill1" c_th1i_fill1 - :: (Ptr RawTH1I) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_fill1w" + c_th1i_fill1w :: Ptr RawTH1I -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_fill1w" c_th1i_fill1w - :: (Ptr RawTH1I) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_fillN1" + c_th1i_filln1 :: + Ptr RawTH1I -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_fillN1" c_th1i_filln1 - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_FillRandom" + c_th1i_fillrandom :: Ptr RawTH1I -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_FillRandom" c_th1i_fillrandom - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_FindBin" + c_th1i_findbin :: + Ptr RawTH1I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_FindBin" c_th1i_findbin - :: (Ptr RawTH1I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_FindFixBin" + c_th1i_findfixbin :: + Ptr RawTH1I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_FindFixBin" c_th1i_findfixbin - :: (Ptr RawTH1I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_FindFirstBinAbove" + c_th1i_findfirstbinabove :: + Ptr RawTH1I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_FindFirstBinAbove" c_th1i_findfirstbinabove - :: (Ptr RawTH1I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_FindLastBinAbove" + c_th1i_findlastbinabove :: + Ptr RawTH1I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_FindLastBinAbove" c_th1i_findlastbinabove - :: (Ptr RawTH1I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_Fit" c_th1i_fit :: + Ptr RawTH1I -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_FitPanelTH1" c_th1i_fitpanelth1 - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_FitPanelTH1" + c_th1i_fitpanelth1 :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_getNdivisionA" c_th1i_getndivisiona - :: (Ptr RawTH1I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getNdivisionA" + c_th1i_getndivisiona :: Ptr RawTH1I -> CString -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_getAxisColorA" c_th1i_getaxiscolora - :: (Ptr RawTH1I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getAxisColorA" + c_th1i_getaxiscolora :: Ptr RawTH1I -> CString -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_getLabelColorA" c_th1i_getlabelcolora - :: (Ptr RawTH1I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getLabelColorA" + c_th1i_getlabelcolora :: Ptr RawTH1I -> CString -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_getLabelFontA" c_th1i_getlabelfonta - :: (Ptr RawTH1I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getLabelFontA" + c_th1i_getlabelfonta :: Ptr RawTH1I -> CString -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_getLabelOffsetA" c_th1i_getlabeloffseta - :: (Ptr RawTH1I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getLabelOffsetA" + c_th1i_getlabeloffseta :: Ptr RawTH1I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getLabelSizeA" c_th1i_getlabelsizea - :: (Ptr RawTH1I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getLabelSizeA" + c_th1i_getlabelsizea :: Ptr RawTH1I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getTitleFontA" c_th1i_gettitlefonta - :: (Ptr RawTH1I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getTitleFontA" + c_th1i_gettitlefonta :: Ptr RawTH1I -> CString -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_getTitleOffsetA" c_th1i_gettitleoffseta - :: (Ptr RawTH1I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getTitleOffsetA" + c_th1i_gettitleoffseta :: Ptr RawTH1I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getTitleSizeA" c_th1i_gettitlesizea - :: (Ptr RawTH1I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getTitleSizeA" + c_th1i_gettitlesizea :: Ptr RawTH1I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getTickLengthA" c_th1i_getticklengtha - :: (Ptr RawTH1I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getTickLengthA" + c_th1i_getticklengtha :: Ptr RawTH1I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBarOffset" c_th1i_getbaroffset - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBarOffset" + c_th1i_getbaroffset :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBarWidth" c_th1i_getbarwidth - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBarWidth" + c_th1i_getbarwidth :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetContour" c_th1i_getcontour - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetContour" + c_th1i_getcontour :: Ptr RawTH1I -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetContourLevel" c_th1i_getcontourlevel - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetContourLevel" + c_th1i_getcontourlevel :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetContourLevelPad" c_th1i_getcontourlevelpad - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetContourLevelPad" + c_th1i_getcontourlevelpad :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBin" c_th1i_getbin - :: (Ptr RawTH1I) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBin" + c_th1i_getbin :: Ptr RawTH1I -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinCenter" c_th1i_getbincenter - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinCenter" + c_th1i_getbincenter :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinContent1" c_th1i_getbincontent1 - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinContent1" + c_th1i_getbincontent1 :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinContent2" c_th1i_getbincontent2 - :: (Ptr RawTH1I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinContent2" + c_th1i_getbincontent2 :: Ptr RawTH1I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinContent3" c_th1i_getbincontent3 - :: (Ptr RawTH1I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinContent3" + c_th1i_getbincontent3 :: + Ptr RawTH1I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinError1" c_th1i_getbinerror1 - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinError1" + c_th1i_getbinerror1 :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinError2" c_th1i_getbinerror2 - :: (Ptr RawTH1I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinError2" + c_th1i_getbinerror2 :: Ptr RawTH1I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinError3" c_th1i_getbinerror3 - :: (Ptr RawTH1I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinError3" + c_th1i_getbinerror3 :: + Ptr RawTH1I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinLowEdge" c_th1i_getbinlowedge - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinLowEdge" + c_th1i_getbinlowedge :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetBinWidth" c_th1i_getbinwidth - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetBinWidth" + c_th1i_getbinwidth :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetCellContent" c_th1i_getcellcontent - :: (Ptr RawTH1I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetCellContent" + c_th1i_getcellcontent :: Ptr RawTH1I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetCellError" c_th1i_getcellerror - :: (Ptr RawTH1I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetCellError" + c_th1i_getcellerror :: Ptr RawTH1I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetEntries" c_th1i_getentries - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetEntries" + c_th1i_getentries :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetEffectiveEntries" c_th1i_geteffectiveentries - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1I.h TH1I_GetEffectiveEntries" + c_th1i_geteffectiveentries :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetFunction" c_th1i_getfunction - :: (Ptr RawTH1I) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetFunction" + c_th1i_getfunction :: Ptr RawTH1I -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1I.h TH1I_GetDimension" c_th1i_getdimension - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetDimension" + c_th1i_getdimension :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetKurtosis" c_th1i_getkurtosis - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetKurtosis" + c_th1i_getkurtosis :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetLowEdge" c_th1i_getlowedge - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetLowEdge" + c_th1i_getlowedge :: Ptr RawTH1I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_getMaximumTH1" c_th1i_getmaximumth1 - :: (Ptr RawTH1I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getMaximumTH1" + c_th1i_getmaximumth1 :: Ptr RawTH1I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetMaximumBin" c_th1i_getmaximumbin - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMaximumBin" + c_th1i_getmaximumbin :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetMaximumStored" c_th1i_getmaximumstored - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMaximumStored" + c_th1i_getmaximumstored :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getMinimumTH1" c_th1i_getminimumth1 - :: (Ptr RawTH1I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_getMinimumTH1" + c_th1i_getminimumth1 :: Ptr RawTH1I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetMinimumBin" c_th1i_getminimumbin - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMinimumBin" + c_th1i_getminimumbin :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetMinimumStored" c_th1i_getminimumstored - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMinimumStored" + c_th1i_getminimumstored :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetMean" c_th1i_getmean - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMean" + c_th1i_getmean :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetMeanError" c_th1i_getmeanerror - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMeanError" + c_th1i_getmeanerror :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetNbinsX" c_th1i_getnbinsx - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetNbinsX" + c_th1i_getnbinsx :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetNbinsY" c_th1i_getnbinsy - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetNbinsY" + c_th1i_getnbinsy :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetNbinsZ" c_th1i_getnbinsz - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetNbinsZ" + c_th1i_getnbinsz :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_getQuantilesTH1" c_th1i_getquantilesth1 - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_getQuantilesTH1" + c_th1i_getquantilesth1 :: + Ptr RawTH1I -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetRandom" c_th1i_getrandom - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetRandom" + c_th1i_getrandom :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetStats" c_th1i_getstats - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetStats" + c_th1i_getstats :: Ptr RawTH1I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetSumOfWeights" c_th1i_getsumofweights - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetSumOfWeights" + c_th1i_getsumofweights :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetSumw2" c_th1i_getsumw2 - :: (Ptr RawTH1I) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetSumw2" + c_th1i_getsumw2 :: Ptr RawTH1I -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1I.h TH1I_GetSumw2N" c_th1i_getsumw2n - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetSumw2N" + c_th1i_getsumw2n :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_GetRMS" c_th1i_getrms - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetRMS" + c_th1i_getrms :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetRMSError" c_th1i_getrmserror - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetRMSError" + c_th1i_getrmserror :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_GetSkewness" c_th1i_getskewness - :: (Ptr RawTH1I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetSkewness" + c_th1i_getskewness :: Ptr RawTH1I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_integral1" c_th1i_integral1 - :: (Ptr RawTH1I) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_integral1" + c_th1i_integral1 :: + Ptr RawTH1I -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_interpolate1" c_th1i_interpolate1 - :: (Ptr RawTH1I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_interpolate1" + c_th1i_interpolate1 :: Ptr RawTH1I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_interpolate2" c_th1i_interpolate2 - :: (Ptr RawTH1I) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_interpolate2" + c_th1i_interpolate2 :: + Ptr RawTH1I -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_interpolate3" c_th1i_interpolate3 - :: (Ptr RawTH1I) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_interpolate3" + c_th1i_interpolate3 :: + Ptr RawTH1I -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_KolmogorovTest" c_th1i_kolmogorovtest - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_KolmogorovTest" + c_th1i_kolmogorovtest :: + Ptr RawTH1I -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_LabelsDeflate" c_th1i_labelsdeflate - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_LabelsDeflate" + c_th1i_labelsdeflate :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_LabelsInflate" c_th1i_labelsinflate - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_LabelsInflate" + c_th1i_labelsinflate :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_LabelsOption" c_th1i_labelsoption - :: (Ptr RawTH1I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_LabelsOption" + c_th1i_labelsoption :: Ptr RawTH1I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_multiflyF" c_th1i_multiflyf - :: (Ptr RawTH1I) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_multiflyF" + c_th1i_multiflyf :: Ptr RawTH1I -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Multiply" c_th1i_multiply - :: (Ptr RawTH1I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Multiply" + c_th1i_multiply :: + Ptr RawTH1I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_PutStats" c_th1i_putstats - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_PutStats" + c_th1i_putstats :: Ptr RawTH1I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Rebin" c_th1i_rebin - :: (Ptr RawTH1I) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1I.h TH1I_Rebin" c_th1i_rebin + :: + Ptr RawTH1I -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1I.h TH1I_RebinAxis" c_th1i_rebinaxis - :: (Ptr RawTH1I) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_RebinAxis" + c_th1i_rebinaxis :: Ptr RawTH1I -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Rebuild" c_th1i_rebuild - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Rebuild" + c_th1i_rebuild :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_RecursiveRemove" c_th1i_recursiveremove - :: (Ptr RawTH1I) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_RecursiveRemove" + c_th1i_recursiveremove :: Ptr RawTH1I -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Reset" c_th1i_reset - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Reset" c_th1i_reset + :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_ResetStats" c_th1i_resetstats - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_ResetStats" + c_th1i_resetstats :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Scale" c_th1i_scale - :: (Ptr RawTH1I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Scale" c_th1i_scale + :: Ptr RawTH1I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setAxisColorA" c_th1i_setaxiscolora - :: (Ptr RawTH1I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setAxisColorA" + c_th1i_setaxiscolora :: Ptr RawTH1I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetAxisRange" c_th1i_setaxisrange - :: (Ptr RawTH1I) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetAxisRange" + c_th1i_setaxisrange :: + Ptr RawTH1I -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetBarOffset" c_th1i_setbaroffset - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetBarOffset" + c_th1i_setbaroffset :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetBarWidth" c_th1i_setbarwidth - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetBarWidth" + c_th1i_setbarwidth :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinContent1" c_th1i_setbincontent1 - :: (Ptr RawTH1I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinContent1" + c_th1i_setbincontent1 :: Ptr RawTH1I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinContent2" c_th1i_setbincontent2 - :: (Ptr RawTH1I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinContent2" + c_th1i_setbincontent2 :: + Ptr RawTH1I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinContent3" c_th1i_setbincontent3 - :: (Ptr RawTH1I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinContent3" + c_th1i_setbincontent3 :: + Ptr RawTH1I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinError1" c_th1i_setbinerror1 - :: (Ptr RawTH1I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinError1" + c_th1i_setbinerror1 :: Ptr RawTH1I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinError2" c_th1i_setbinerror2 - :: (Ptr RawTH1I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinError2" + c_th1i_setbinerror2 :: + Ptr RawTH1I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBinError3" c_th1i_setbinerror3 - :: (Ptr RawTH1I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBinError3" + c_th1i_setbinerror3 :: + Ptr RawTH1I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBins1" c_th1i_setbins1 - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBins1" + c_th1i_setbins1 :: Ptr RawTH1I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBins2" c_th1i_setbins2 - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBins2" + c_th1i_setbins2 :: + Ptr RawTH1I -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setBins3" c_th1i_setbins3 - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setBins3" + c_th1i_setbins3 :: + Ptr RawTH1I -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetBinsLength" c_th1i_setbinslength - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetBinsLength" + c_th1i_setbinslength :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetBuffer" c_th1i_setbuffer - :: (Ptr RawTH1I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetBuffer" + c_th1i_setbuffer :: Ptr RawTH1I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetCellContent" c_th1i_setcellcontent - :: (Ptr RawTH1I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetCellContent" + c_th1i_setcellcontent :: + Ptr RawTH1I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetContent" c_th1i_setcontent - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetContent" + c_th1i_setcontent :: Ptr RawTH1I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetContour" c_th1i_setcontour - :: (Ptr RawTH1I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetContour" + c_th1i_setcontour :: Ptr RawTH1I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetContourLevel" c_th1i_setcontourlevel - :: (Ptr RawTH1I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetContourLevel" + c_th1i_setcontourlevel :: Ptr RawTH1I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetDirectory" c_th1i_setdirectory - :: (Ptr RawTH1I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetDirectory" + c_th1i_setdirectory :: Ptr RawTH1I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetEntries" c_th1i_setentries - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetEntries" + c_th1i_setentries :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetError" c_th1i_seterror - :: (Ptr RawTH1I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetError" + c_th1i_seterror :: Ptr RawTH1I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setLabelColorA" c_th1i_setlabelcolora - :: (Ptr RawTH1I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setLabelColorA" + c_th1i_setlabelcolora :: Ptr RawTH1I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setLabelSizeA" c_th1i_setlabelsizea - :: (Ptr RawTH1I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setLabelSizeA" + c_th1i_setlabelsizea :: Ptr RawTH1I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setLabelFontA" c_th1i_setlabelfonta - :: (Ptr RawTH1I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setLabelFontA" + c_th1i_setlabelfonta :: Ptr RawTH1I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_setLabelOffsetA" c_th1i_setlabeloffseta - :: (Ptr RawTH1I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_setLabelOffsetA" + c_th1i_setlabeloffseta :: + Ptr RawTH1I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetMaximum" c_th1i_setmaximum - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetMaximum" + c_th1i_setmaximum :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetMinimum" c_th1i_setminimum - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetMinimum" + c_th1i_setminimum :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetNormFactor" c_th1i_setnormfactor - :: (Ptr RawTH1I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetNormFactor" + c_th1i_setnormfactor :: Ptr RawTH1I -> CDouble -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetStats" c_th1i_setstats - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetStats" + c_th1i_setstats :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetOption" c_th1i_setoption - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetOption" + c_th1i_setoption :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetXTitle" c_th1i_setxtitle - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetXTitle" + c_th1i_setxtitle :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetYTitle" c_th1i_setytitle - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetYTitle" + c_th1i_setytitle :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetZTitle" c_th1i_setztitle - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetZTitle" + c_th1i_setztitle :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_ShowBackground" c_th1i_showbackground - :: (Ptr RawTH1I) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1I.h TH1I_ShowBackground" + c_th1i_showbackground :: + Ptr RawTH1I -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1I.h TH1I_ShowPeaks" c_th1i_showpeaks - :: (Ptr RawTH1I) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_ShowPeaks" + c_th1i_showpeaks :: + Ptr RawTH1I -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_Smooth" c_th1i_smooth - :: (Ptr RawTH1I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Smooth" + c_th1i_smooth :: Ptr RawTH1I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Sumw2" c_th1i_sumw2 - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Sumw2" c_th1i_sumw2 + :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Draw" c_th1i_draw - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetName" + c_th1i_setname :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_FindObject" c_th1i_findobject - :: (Ptr RawTH1I) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetNameTitle" + c_th1i_setnametitle :: Ptr RawTH1I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetName" c_th1i_getname - :: (Ptr RawTH1I) -> IO CString +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetTitle" + c_th1i_settitle :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_IsA" c_th1i_isa - :: (Ptr RawTH1I) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetLineColor" + c_th1i_getlinecolor :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_Paint" c_th1i_paint - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetLineStyle" + c_th1i_getlinestyle :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_printObj" c_th1i_printobj - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetLineWidth" + c_th1i_getlinewidth :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_SaveAs" c_th1i_saveas - :: (Ptr RawTH1I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_ResetAttLine" + c_th1i_resetattline :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_Write" c_th1i_write - :: (Ptr RawTH1I) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetLineAttributes" + c_th1i_setlineattributes :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetLineColor" c_th1i_getlinecolor - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetLineColor" + c_th1i_setlinecolor :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetLineStyle" c_th1i_getlinestyle - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetLineStyle" + c_th1i_setlinestyle :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetLineWidth" c_th1i_getlinewidth - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetLineWidth" + c_th1i_setlinewidth :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_ResetAttLine" c_th1i_resetattline - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetFillColor" + c_th1i_setfillcolor :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetLineAttributes" c_th1i_setlineattributes - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetFillStyle" + c_th1i_setfillstyle :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetLineColor" c_th1i_setlinecolor - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMarkerColor" + c_th1i_getmarkercolor :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_SetLineStyle" c_th1i_setlinestyle - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMarkerStyle" + c_th1i_getmarkerstyle :: Ptr RawTH1I -> IO CInt -foreign import ccall "HROOTHistTH1I.h TH1I_SetLineWidth" c_th1i_setlinewidth - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetMarkerSize" + c_th1i_getmarkersize :: Ptr RawTH1I -> IO CDouble -foreign import ccall "HROOTHistTH1I.h TH1I_SetFillColor" c_th1i_setfillcolor - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_ResetAttMarker" + c_th1i_resetattmarker :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetFillStyle" c_th1i_setfillstyle - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1I.h TH1I_SetMarkerAttributes" + c_th1i_setmarkerattributes :: Ptr RawTH1I -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetMarkerColor" c_th1i_getmarkercolor - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetMarkerColor" + c_th1i_setmarkercolor :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetMarkerStyle" c_th1i_getmarkerstyle - :: (Ptr RawTH1I) -> IO CInt +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetMarkerStyle" + c_th1i_setmarkerstyle :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_GetMarkerSize" c_th1i_getmarkersize - :: (Ptr RawTH1I) -> IO CDouble +foreign import ccall safe "HROOTHistTH1I.h TH1I_SetMarkerSize" + c_th1i_setmarkersize :: Ptr RawTH1I -> CInt -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_ResetAttMarker" c_th1i_resetattmarker - :: (Ptr RawTH1I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Draw" c_th1i_draw + :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_SetMarkerAttributes" c_th1i_setmarkerattributes - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_FindObject" + c_th1i_findobject :: Ptr RawTH1I -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1I.h TH1I_SetMarkerColor" c_th1i_setmarkercolor - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_GetName" + c_th1i_getname :: Ptr RawTH1I -> IO CString -foreign import ccall "HROOTHistTH1I.h TH1I_SetMarkerStyle" c_th1i_setmarkerstyle - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_IsA" c_th1i_isa :: + Ptr RawTH1I -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1I.h TH1I_SetMarkerSize" c_th1i_setmarkersize - :: (Ptr RawTH1I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_Paint" c_th1i_paint + :: Ptr RawTH1I -> CString -> IO () -foreign import ccall "HROOTHistTH1I.h TH1I_delete" c_th1i_delete - :: (Ptr RawTH1I) -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_printObj" + c_th1i_printobj :: Ptr RawTH1I -> CString -> IO () +foreign import ccall safe "HROOTHistTH1I.h TH1I_SaveAs" + c_th1i_saveas :: Ptr RawTH1I -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH1I.h TH1I_Write" c_th1i_write + :: Ptr RawTH1I -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1I.h TH1I_delete" + c_th1i_delete :: Ptr RawTH1I -> IO () diff --git a/src/HROOT/Hist/TH1I/Implementation.hs b/src/HROOT/Hist/TH1I/Implementation.hs --- a/src/HROOT/Hist/TH1I/Implementation.hs +++ b/src/HROOT/Hist/TH1I/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1I.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1I.RawType import HROOT.Hist.TH1I.FFI import HROOT.Hist.TH1I.Interface @@ -32,9 +33,9 @@ import HROOT.Core.TArrayI.RawType import HROOT.Core.TArrayI.Cast import HROOT.Core.TArrayI.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -44,6 +45,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -51,358 +55,183 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1I TH1I -instance ITH1I TH1I where instance ITH1 TH1I where - add = xform2 c_th1i_add - addBinContent = xform2 c_th1i_addbincontent - chi2Test = xform3 c_th1i_chi2test - computeIntegral = xform0 c_th1i_computeintegral - directoryAutoAdd = xform1 c_th1i_directoryautoadd - divide = xform5 c_th1i_divide - drawCopyTH1 = xform1 c_th1i_drawcopyth1 - drawNormalized = xform2 c_th1i_drawnormalized - drawPanelTH1 = xform0 c_th1i_drawpanelth1 - bufferEmpty = xform1 c_th1i_bufferempty - evalF = xform2 c_th1i_evalf - fFT = xform2 c_th1i_fft - fill1 = xform1 c_th1i_fill1 - fill1w = xform2 c_th1i_fill1w - fillN1 = xform4 c_th1i_filln1 - fillRandom = xform2 c_th1i_fillrandom - findBin = xform3 c_th1i_findbin - findFixBin = xform3 c_th1i_findfixbin - findFirstBinAbove = xform2 c_th1i_findfirstbinabove - findLastBinAbove = xform2 c_th1i_findlastbinabove - fitPanelTH1 = xform0 c_th1i_fitpanelth1 - getNdivisionA = xform1 c_th1i_getndivisiona - getAxisColorA = xform1 c_th1i_getaxiscolora - getLabelColorA = xform1 c_th1i_getlabelcolora - getLabelFontA = xform1 c_th1i_getlabelfonta - getLabelOffsetA = xform1 c_th1i_getlabeloffseta - getLabelSizeA = xform1 c_th1i_getlabelsizea - getTitleFontA = xform1 c_th1i_gettitlefonta - getTitleOffsetA = xform1 c_th1i_gettitleoffseta - getTitleSizeA = xform1 c_th1i_gettitlesizea - getTickLengthA = xform1 c_th1i_getticklengtha - getBarOffset = xform0 c_th1i_getbaroffset - getBarWidth = xform0 c_th1i_getbarwidth - getContour = xform1 c_th1i_getcontour - getContourLevel = xform1 c_th1i_getcontourlevel - getContourLevelPad = xform1 c_th1i_getcontourlevelpad - getBin = xform3 c_th1i_getbin - getBinCenter = xform1 c_th1i_getbincenter - getBinContent1 = xform1 c_th1i_getbincontent1 - getBinContent2 = xform2 c_th1i_getbincontent2 - getBinContent3 = xform3 c_th1i_getbincontent3 - getBinError1 = xform1 c_th1i_getbinerror1 - getBinError2 = xform2 c_th1i_getbinerror2 - getBinError3 = xform3 c_th1i_getbinerror3 - getBinLowEdge = xform1 c_th1i_getbinlowedge - getBinWidth = xform1 c_th1i_getbinwidth - getCellContent = xform2 c_th1i_getcellcontent - getCellError = xform2 c_th1i_getcellerror - getEntries = xform0 c_th1i_getentries - getEffectiveEntries = xform0 c_th1i_geteffectiveentries - getFunction = xform1 c_th1i_getfunction - getDimension = xform0 c_th1i_getdimension - getKurtosis = xform1 c_th1i_getkurtosis - getLowEdge = xform1 c_th1i_getlowedge - getMaximumTH1 = xform1 c_th1i_getmaximumth1 - getMaximumBin = xform0 c_th1i_getmaximumbin - getMaximumStored = xform0 c_th1i_getmaximumstored - getMinimumTH1 = xform1 c_th1i_getminimumth1 - getMinimumBin = xform0 c_th1i_getminimumbin - getMinimumStored = xform0 c_th1i_getminimumstored - getMean = xform1 c_th1i_getmean - getMeanError = xform1 c_th1i_getmeanerror - getNbinsX = xform0 c_th1i_getnbinsx - getNbinsY = xform0 c_th1i_getnbinsy - getNbinsZ = xform0 c_th1i_getnbinsz - getQuantilesTH1 = xform3 c_th1i_getquantilesth1 - getRandom = xform0 c_th1i_getrandom - getStats = xform1 c_th1i_getstats - getSumOfWeights = xform0 c_th1i_getsumofweights - getSumw2 = xform0 c_th1i_getsumw2 - getSumw2N = xform0 c_th1i_getsumw2n - getRMS = xform1 c_th1i_getrms - getRMSError = xform1 c_th1i_getrmserror - getSkewness = xform1 c_th1i_getskewness - integral1 = xform3 c_th1i_integral1 - interpolate1 = xform1 c_th1i_interpolate1 - interpolate2 = xform2 c_th1i_interpolate2 - interpolate3 = xform3 c_th1i_interpolate3 - kolmogorovTest = xform2 c_th1i_kolmogorovtest - labelsDeflate = xform1 c_th1i_labelsdeflate - labelsInflate = xform1 c_th1i_labelsinflate - labelsOption = xform2 c_th1i_labelsoption - multiflyF = xform2 c_th1i_multiflyf - multiply = xform5 c_th1i_multiply - putStats = xform1 c_th1i_putstats - rebin = xform3 c_th1i_rebin - rebinAxis = xform2 c_th1i_rebinaxis - rebuild = xform1 c_th1i_rebuild - recursiveRemove = xform1 c_th1i_recursiveremove - reset = xform1 c_th1i_reset - resetStats = xform0 c_th1i_resetstats - scale = xform2 c_th1i_scale - setAxisColorA = xform2 c_th1i_setaxiscolora - setAxisRange = xform3 c_th1i_setaxisrange - setBarOffset = xform1 c_th1i_setbaroffset - setBarWidth = xform1 c_th1i_setbarwidth - setBinContent1 = xform2 c_th1i_setbincontent1 - setBinContent2 = xform3 c_th1i_setbincontent2 - setBinContent3 = xform4 c_th1i_setbincontent3 - setBinError1 = xform2 c_th1i_setbinerror1 - setBinError2 = xform3 c_th1i_setbinerror2 - setBinError3 = xform4 c_th1i_setbinerror3 - setBins1 = xform2 c_th1i_setbins1 - setBins2 = xform4 c_th1i_setbins2 - setBins3 = xform6 c_th1i_setbins3 - setBinsLength = xform1 c_th1i_setbinslength - setBuffer = xform2 c_th1i_setbuffer - setCellContent = xform3 c_th1i_setcellcontent - setContent = xform1 c_th1i_setcontent - setContour = xform2 c_th1i_setcontour - setContourLevel = xform2 c_th1i_setcontourlevel - setDirectory = xform1 c_th1i_setdirectory - setEntries = xform1 c_th1i_setentries - setError = xform1 c_th1i_seterror - setLabelColorA = xform2 c_th1i_setlabelcolora - setLabelSizeA = xform2 c_th1i_setlabelsizea - setLabelFontA = xform2 c_th1i_setlabelfonta - setLabelOffsetA = xform2 c_th1i_setlabeloffseta - setMaximum = xform1 c_th1i_setmaximum - setMinimum = xform1 c_th1i_setminimum - setNormFactor = xform1 c_th1i_setnormfactor - setStats = xform1 c_th1i_setstats - setOption = xform1 c_th1i_setoption - setXTitle = xform1 c_th1i_setxtitle - setYTitle = xform1 c_th1i_setytitle - setZTitle = xform1 c_th1i_setztitle - showBackground = xform2 c_th1i_showbackground - showPeaks = xform3 c_th1i_showpeaks - smooth = xform2 c_th1i_smooth - sumw2 = xform0 c_th1i_sumw2 -instance ITArrayI TH1I where -instance ITObject TH1I where - draw = xform1 c_th1i_draw - findObject = xform1 c_th1i_findobject - getName = xform0 c_th1i_getname - isA = xform0 c_th1i_isa - paint = xform1 c_th1i_paint - printObj = xform1 c_th1i_printobj - saveAs = xform2 c_th1i_saveas - write = xform3 c_th1i_write -instance ITAttLine TH1I where - getLineColor = xform0 c_th1i_getlinecolor - getLineStyle = xform0 c_th1i_getlinestyle - getLineWidth = xform0 c_th1i_getlinewidth - resetAttLine = xform1 c_th1i_resetattline - setLineAttributes = xform0 c_th1i_setlineattributes - setLineColor = xform1 c_th1i_setlinecolor - setLineStyle = xform1 c_th1i_setlinestyle - setLineWidth = xform1 c_th1i_setlinewidth -instance ITAttFill TH1I where - setFillColor = xform1 c_th1i_setfillcolor - setFillStyle = xform1 c_th1i_setfillstyle -instance ITAttMarker TH1I where - getMarkerColor = xform0 c_th1i_getmarkercolor - getMarkerStyle = xform0 c_th1i_getmarkerstyle - getMarkerSize = xform0 c_th1i_getmarkersize - resetAttMarker = xform1 c_th1i_resetattmarker - setMarkerAttributes = xform0 c_th1i_setmarkerattributes - setMarkerColor = xform1 c_th1i_setmarkercolor - setMarkerStyle = xform1 c_th1i_setmarkerstyle - setMarkerSize = xform1 c_th1i_setmarkersize -instance IDeletable TH1I where - delete = xform0 c_th1i_delete -instance ITArray TH1I where - -instance ITH1I (Exist TH1I) where - -instance ITH1 (Exist TH1I) where - add (ETH1I x) = add x - addBinContent (ETH1I x) = addBinContent x - chi2Test (ETH1I x) = chi2Test x - computeIntegral (ETH1I x) = computeIntegral x - directoryAutoAdd (ETH1I x) = directoryAutoAdd x - divide (ETH1I x) = divide x - drawCopyTH1 (ETH1I x) a1 = return . ETH1I =<< drawCopyTH1 x a1 - drawNormalized (ETH1I x) = drawNormalized x - drawPanelTH1 (ETH1I x) = drawPanelTH1 x - bufferEmpty (ETH1I x) = bufferEmpty x - evalF (ETH1I x) = evalF x - fFT (ETH1I x) = fFT x - fill1 (ETH1I x) = fill1 x - fill1w (ETH1I x) = fill1w x - fillN1 (ETH1I x) = fillN1 x - fillRandom (ETH1I x) = fillRandom x - findBin (ETH1I x) = findBin x - findFixBin (ETH1I x) = findFixBin x - findFirstBinAbove (ETH1I x) = findFirstBinAbove x - findLastBinAbove (ETH1I x) = findLastBinAbove x - fitPanelTH1 (ETH1I x) = fitPanelTH1 x - getNdivisionA (ETH1I x) = getNdivisionA x - getAxisColorA (ETH1I x) = getAxisColorA x - getLabelColorA (ETH1I x) = getLabelColorA x - getLabelFontA (ETH1I x) = getLabelFontA x - getLabelOffsetA (ETH1I x) = getLabelOffsetA x - getLabelSizeA (ETH1I x) = getLabelSizeA x - getTitleFontA (ETH1I x) = getTitleFontA x - getTitleOffsetA (ETH1I x) = getTitleOffsetA x - getTitleSizeA (ETH1I x) = getTitleSizeA x - getTickLengthA (ETH1I x) = getTickLengthA x - getBarOffset (ETH1I x) = getBarOffset x - getBarWidth (ETH1I x) = getBarWidth x - getContour (ETH1I x) = getContour x - getContourLevel (ETH1I x) = getContourLevel x - getContourLevelPad (ETH1I x) = getContourLevelPad x - getBin (ETH1I x) = getBin x - getBinCenter (ETH1I x) = getBinCenter x - getBinContent1 (ETH1I x) = getBinContent1 x - getBinContent2 (ETH1I x) = getBinContent2 x - getBinContent3 (ETH1I x) = getBinContent3 x - getBinError1 (ETH1I x) = getBinError1 x - getBinError2 (ETH1I x) = getBinError2 x - getBinError3 (ETH1I x) = getBinError3 x - getBinLowEdge (ETH1I x) = getBinLowEdge x - getBinWidth (ETH1I x) = getBinWidth x - getCellContent (ETH1I x) = getCellContent x - getCellError (ETH1I x) = getCellError x - getEntries (ETH1I x) = getEntries x - getEffectiveEntries (ETH1I x) = getEffectiveEntries x - getFunction (ETH1I x) = getFunction x - getDimension (ETH1I x) = getDimension x - getKurtosis (ETH1I x) = getKurtosis x - getLowEdge (ETH1I x) = getLowEdge x - getMaximumTH1 (ETH1I x) = getMaximumTH1 x - getMaximumBin (ETH1I x) = getMaximumBin x - getMaximumStored (ETH1I x) = getMaximumStored x - getMinimumTH1 (ETH1I x) = getMinimumTH1 x - getMinimumBin (ETH1I x) = getMinimumBin x - getMinimumStored (ETH1I x) = getMinimumStored x - getMean (ETH1I x) = getMean x - getMeanError (ETH1I x) = getMeanError x - getNbinsX (ETH1I x) = getNbinsX x - getNbinsY (ETH1I x) = getNbinsY x - getNbinsZ (ETH1I x) = getNbinsZ x - getQuantilesTH1 (ETH1I x) = getQuantilesTH1 x - getRandom (ETH1I x) = getRandom x - getStats (ETH1I x) = getStats x - getSumOfWeights (ETH1I x) = getSumOfWeights x - getSumw2 (ETH1I x) = getSumw2 x - getSumw2N (ETH1I x) = getSumw2N x - getRMS (ETH1I x) = getRMS x - getRMSError (ETH1I x) = getRMSError x - getSkewness (ETH1I x) = getSkewness x - integral1 (ETH1I x) = integral1 x - interpolate1 (ETH1I x) = interpolate1 x - interpolate2 (ETH1I x) = interpolate2 x - interpolate3 (ETH1I x) = interpolate3 x - kolmogorovTest (ETH1I x) = kolmogorovTest x - labelsDeflate (ETH1I x) = labelsDeflate x - labelsInflate (ETH1I x) = labelsInflate x - labelsOption (ETH1I x) = labelsOption x - multiflyF (ETH1I x) = multiflyF x - multiply (ETH1I x) = multiply x - putStats (ETH1I x) = putStats x - rebin (ETH1I x) = rebin x - rebinAxis (ETH1I x) = rebinAxis x - rebuild (ETH1I x) = rebuild x - recursiveRemove (ETH1I x) = recursiveRemove x - reset (ETH1I x) = reset x - resetStats (ETH1I x) = resetStats x - scale (ETH1I x) = scale x - setAxisColorA (ETH1I x) = setAxisColorA x - setAxisRange (ETH1I x) = setAxisRange x - setBarOffset (ETH1I x) = setBarOffset x - setBarWidth (ETH1I x) = setBarWidth x - setBinContent1 (ETH1I x) = setBinContent1 x - setBinContent2 (ETH1I x) = setBinContent2 x - setBinContent3 (ETH1I x) = setBinContent3 x - setBinError1 (ETH1I x) = setBinError1 x - setBinError2 (ETH1I x) = setBinError2 x - setBinError3 (ETH1I x) = setBinError3 x - setBins1 (ETH1I x) = setBins1 x - setBins2 (ETH1I x) = setBins2 x - setBins3 (ETH1I x) = setBins3 x - setBinsLength (ETH1I x) = setBinsLength x - setBuffer (ETH1I x) = setBuffer x - setCellContent (ETH1I x) = setCellContent x - setContent (ETH1I x) = setContent x - setContour (ETH1I x) = setContour x - setContourLevel (ETH1I x) = setContourLevel x - setDirectory (ETH1I x) = setDirectory x - setEntries (ETH1I x) = setEntries x - setError (ETH1I x) = setError x - setLabelColorA (ETH1I x) = setLabelColorA x - setLabelSizeA (ETH1I x) = setLabelSizeA x - setLabelFontA (ETH1I x) = setLabelFontA x - setLabelOffsetA (ETH1I x) = setLabelOffsetA x - setMaximum (ETH1I x) = setMaximum x - setMinimum (ETH1I x) = setMinimum x - setNormFactor (ETH1I x) = setNormFactor x - setStats (ETH1I x) = setStats x - setOption (ETH1I x) = setOption x - setXTitle (ETH1I x) = setXTitle x - setYTitle (ETH1I x) = setYTitle x - setZTitle (ETH1I x) = setZTitle x - showBackground (ETH1I x) = showBackground x - showPeaks (ETH1I x) = showPeaks x - smooth (ETH1I x) = smooth x - sumw2 (ETH1I x) = sumw2 x -instance ITArrayI (Exist TH1I) where - -instance ITObject (Exist TH1I) where - draw (ETH1I x) = draw x - findObject (ETH1I x) = findObject x - getName (ETH1I x) = getName x - isA (ETH1I x) = isA x - paint (ETH1I x) = paint x - printObj (ETH1I x) = printObj x - saveAs (ETH1I x) = saveAs x - write (ETH1I x) = write x -instance ITAttLine (Exist TH1I) where - getLineColor (ETH1I x) = getLineColor x - getLineStyle (ETH1I x) = getLineStyle x - getLineWidth (ETH1I x) = getLineWidth x - resetAttLine (ETH1I x) = resetAttLine x - setLineAttributes (ETH1I x) = setLineAttributes x - setLineColor (ETH1I x) = setLineColor x - setLineStyle (ETH1I x) = setLineStyle x - setLineWidth (ETH1I x) = setLineWidth x -instance ITAttFill (Exist TH1I) where - setFillColor (ETH1I x) = setFillColor x - setFillStyle (ETH1I x) = setFillStyle x -instance ITAttMarker (Exist TH1I) where - getMarkerColor (ETH1I x) = getMarkerColor x - getMarkerStyle (ETH1I x) = getMarkerStyle x - getMarkerSize (ETH1I x) = getMarkerSize x - resetAttMarker (ETH1I x) = resetAttMarker x - setMarkerAttributes (ETH1I x) = setMarkerAttributes x - setMarkerColor (ETH1I x) = setMarkerColor x - setMarkerStyle (ETH1I x) = setMarkerStyle x - setMarkerSize (ETH1I x) = setMarkerSize x -instance IDeletable (Exist TH1I) where - delete (ETH1I x) = delete x -instance ITArray (Exist TH1I) where + add = xform2 c_th1i_add + addBinContent = xform2 c_th1i_addbincontent + chi2Test = xform3 c_th1i_chi2test + computeIntegral = xform0 c_th1i_computeintegral + directoryAutoAdd = xform1 c_th1i_directoryautoadd + divide = xform5 c_th1i_divide + drawCopyTH1 = xform1 c_th1i_drawcopyth1 + drawNormalized = xform2 c_th1i_drawnormalized + drawPanelTH1 = xform0 c_th1i_drawpanelth1 + bufferEmpty = xform1 c_th1i_bufferempty + evalF = xform2 c_th1i_evalf + fFT = xform2 c_th1i_fft + fill1 = xform1 c_th1i_fill1 + fill1w = xform2 c_th1i_fill1w + fillN1 = xform4 c_th1i_filln1 + fillRandom = xform2 c_th1i_fillrandom + findBin = xform3 c_th1i_findbin + findFixBin = xform3 c_th1i_findfixbin + findFirstBinAbove = xform2 c_th1i_findfirstbinabove + findLastBinAbove = xform2 c_th1i_findlastbinabove + fit = xform5 c_th1i_fit + fitPanelTH1 = xform0 c_th1i_fitpanelth1 + getNdivisionA = xform1 c_th1i_getndivisiona + getAxisColorA = xform1 c_th1i_getaxiscolora + getLabelColorA = xform1 c_th1i_getlabelcolora + getLabelFontA = xform1 c_th1i_getlabelfonta + getLabelOffsetA = xform1 c_th1i_getlabeloffseta + getLabelSizeA = xform1 c_th1i_getlabelsizea + getTitleFontA = xform1 c_th1i_gettitlefonta + getTitleOffsetA = xform1 c_th1i_gettitleoffseta + getTitleSizeA = xform1 c_th1i_gettitlesizea + getTickLengthA = xform1 c_th1i_getticklengtha + getBarOffset = xform0 c_th1i_getbaroffset + getBarWidth = xform0 c_th1i_getbarwidth + getContour = xform1 c_th1i_getcontour + getContourLevel = xform1 c_th1i_getcontourlevel + getContourLevelPad = xform1 c_th1i_getcontourlevelpad + getBin = xform3 c_th1i_getbin + getBinCenter = xform1 c_th1i_getbincenter + getBinContent1 = xform1 c_th1i_getbincontent1 + getBinContent2 = xform2 c_th1i_getbincontent2 + getBinContent3 = xform3 c_th1i_getbincontent3 + getBinError1 = xform1 c_th1i_getbinerror1 + getBinError2 = xform2 c_th1i_getbinerror2 + getBinError3 = xform3 c_th1i_getbinerror3 + getBinLowEdge = xform1 c_th1i_getbinlowedge + getBinWidth = xform1 c_th1i_getbinwidth + getCellContent = xform2 c_th1i_getcellcontent + getCellError = xform2 c_th1i_getcellerror + getEntries = xform0 c_th1i_getentries + getEffectiveEntries = xform0 c_th1i_geteffectiveentries + getFunction = xform1 c_th1i_getfunction + getDimension = xform0 c_th1i_getdimension + getKurtosis = xform1 c_th1i_getkurtosis + getLowEdge = xform1 c_th1i_getlowedge + getMaximumTH1 = xform1 c_th1i_getmaximumth1 + getMaximumBin = xform0 c_th1i_getmaximumbin + getMaximumStored = xform0 c_th1i_getmaximumstored + getMinimumTH1 = xform1 c_th1i_getminimumth1 + getMinimumBin = xform0 c_th1i_getminimumbin + getMinimumStored = xform0 c_th1i_getminimumstored + getMean = xform1 c_th1i_getmean + getMeanError = xform1 c_th1i_getmeanerror + getNbinsX = xform0 c_th1i_getnbinsx + getNbinsY = xform0 c_th1i_getnbinsy + getNbinsZ = xform0 c_th1i_getnbinsz + getQuantilesTH1 = xform3 c_th1i_getquantilesth1 + getRandom = xform0 c_th1i_getrandom + getStats = xform1 c_th1i_getstats + getSumOfWeights = xform0 c_th1i_getsumofweights + getSumw2 = xform0 c_th1i_getsumw2 + getSumw2N = xform0 c_th1i_getsumw2n + getRMS = xform1 c_th1i_getrms + getRMSError = xform1 c_th1i_getrmserror + getSkewness = xform1 c_th1i_getskewness + integral1 = xform3 c_th1i_integral1 + interpolate1 = xform1 c_th1i_interpolate1 + interpolate2 = xform2 c_th1i_interpolate2 + interpolate3 = xform3 c_th1i_interpolate3 + kolmogorovTest = xform2 c_th1i_kolmogorovtest + labelsDeflate = xform1 c_th1i_labelsdeflate + labelsInflate = xform1 c_th1i_labelsinflate + labelsOption = xform2 c_th1i_labelsoption + multiflyF = xform2 c_th1i_multiflyf + multiply = xform5 c_th1i_multiply + putStats = xform1 c_th1i_putstats + rebin = xform3 c_th1i_rebin + rebinAxis = xform2 c_th1i_rebinaxis + rebuild = xform1 c_th1i_rebuild + recursiveRemove = xform1 c_th1i_recursiveremove + reset = xform1 c_th1i_reset + resetStats = xform0 c_th1i_resetstats + scale = xform2 c_th1i_scale + setAxisColorA = xform2 c_th1i_setaxiscolora + setAxisRange = xform3 c_th1i_setaxisrange + setBarOffset = xform1 c_th1i_setbaroffset + setBarWidth = xform1 c_th1i_setbarwidth + setBinContent1 = xform2 c_th1i_setbincontent1 + setBinContent2 = xform3 c_th1i_setbincontent2 + setBinContent3 = xform4 c_th1i_setbincontent3 + setBinError1 = xform2 c_th1i_setbinerror1 + setBinError2 = xform3 c_th1i_setbinerror2 + setBinError3 = xform4 c_th1i_setbinerror3 + setBins1 = xform2 c_th1i_setbins1 + setBins2 = xform4 c_th1i_setbins2 + setBins3 = xform6 c_th1i_setbins3 + setBinsLength = xform1 c_th1i_setbinslength + setBuffer = xform2 c_th1i_setbuffer + setCellContent = xform3 c_th1i_setcellcontent + setContent = xform1 c_th1i_setcontent + setContour = xform2 c_th1i_setcontour + setContourLevel = xform2 c_th1i_setcontourlevel + setDirectory = xform1 c_th1i_setdirectory + setEntries = xform1 c_th1i_setentries + setError = xform1 c_th1i_seterror + setLabelColorA = xform2 c_th1i_setlabelcolora + setLabelSizeA = xform2 c_th1i_setlabelsizea + setLabelFontA = xform2 c_th1i_setlabelfonta + setLabelOffsetA = xform2 c_th1i_setlabeloffseta + setMaximum = xform1 c_th1i_setmaximum + setMinimum = xform1 c_th1i_setminimum + setNormFactor = xform1 c_th1i_setnormfactor + setStats = xform1 c_th1i_setstats + setOption = xform1 c_th1i_setoption + setXTitle = xform1 c_th1i_setxtitle + setYTitle = xform1 c_th1i_setytitle + setZTitle = xform1 c_th1i_setztitle + showBackground = xform2 c_th1i_showbackground + showPeaks = xform3 c_th1i_showpeaks + smooth = xform2 c_th1i_smooth + sumw2 = xform0 c_th1i_sumw2 +instance ITArrayI TH1I +instance ITNamed TH1I where + setName = xform1 c_th1i_setname + setNameTitle = xform2 c_th1i_setnametitle + setTitle = xform1 c_th1i_settitle +instance ITAttLine TH1I where + getLineColor = xform0 c_th1i_getlinecolor + getLineStyle = xform0 c_th1i_getlinestyle + getLineWidth = xform0 c_th1i_getlinewidth + resetAttLine = xform1 c_th1i_resetattline + setLineAttributes = xform0 c_th1i_setlineattributes + setLineColor = xform1 c_th1i_setlinecolor + setLineStyle = xform1 c_th1i_setlinestyle + setLineWidth = xform1 c_th1i_setlinewidth +instance ITAttFill TH1I where + setFillColor = xform1 c_th1i_setfillcolor + setFillStyle = xform1 c_th1i_setfillstyle +instance ITAttMarker TH1I where + getMarkerColor = xform0 c_th1i_getmarkercolor + getMarkerStyle = xform0 c_th1i_getmarkerstyle + getMarkerSize = xform0 c_th1i_getmarkersize + resetAttMarker = xform1 c_th1i_resetattmarker + setMarkerAttributes = xform0 c_th1i_setmarkerattributes + setMarkerColor = xform1 c_th1i_setmarkercolor + setMarkerStyle = xform1 c_th1i_setmarkerstyle + setMarkerSize = xform1 c_th1i_setmarkersize +instance ITObject TH1I where + draw = xform1 c_th1i_draw + findObject = xform1 c_th1i_findobject + getName = xform0 c_th1i_getname + isA = xform0 c_th1i_isa + paint = xform1 c_th1i_paint + printObj = xform1 c_th1i_printobj + saveAs = xform2 c_th1i_saveas + write = xform3 c_th1i_write +instance IDeletable TH1I where + delete = xform0 c_th1i_delete -instance FPtr (Exist TH1I) where - type Raw (Exist TH1I) = RawTH1I - get_fptr (ETH1I obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1I) :: TH1I) +instance ITArray TH1I diff --git a/src/HROOT/Hist/TH1I/Interface.hs b/src/HROOT/Hist/TH1I/Interface.hs --- a/src/HROOT/Hist/TH1I/Interface.hs +++ b/src/HROOT/Hist/TH1I/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1I.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1I.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayI.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayI a) => ITH1I a where - -instance Existable TH1I where - data Exist TH1I = forall a. (FPtr a, ITH1I a) => ETH1I a +class (ITH1 a, ITArrayI a) => ITH1I a -upcastTH1I :: (FPtr a, ITH1I a) => a -> TH1I -upcastTH1I h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1I = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1I :: forall a . (FPtr a, ITH1I a) => a -> TH1I +upcastTH1I h + = let fh = get_fptr h + fh2 :: Ptr RawTH1I = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1I :: (FPtr a, ITH1I a) => TH1I -> a -downcastTH1I h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1I :: forall a . (FPtr a, ITH1I a) => TH1I -> a +downcastTH1I h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1I/RawType.hs b/src/HROOT/Hist/TH1I/RawType.hs --- a/src/HROOT/Hist/TH1I/RawType.hs +++ b/src/HROOT/Hist/TH1I/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1I.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1I -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1I = TH1I (Ptr RawTH1I) + deriving (Eq, Ord, Show) -data RawTH1I -newtype TH1I = TH1I (ForeignPtr RawTH1I) deriving (Eq, Ord, Show) instance FPtr TH1I where - type Raw TH1I = RawTH1I - get_fptr (TH1I fptr) = fptr - cast_fptr_to_obj = TH1I + type Raw TH1I = RawTH1I + get_fptr (TH1I ptr) = ptr + cast_fptr_to_obj = TH1I diff --git a/src/HROOT/Hist/TH1K.hs b/src/HROOT/Hist/TH1K.hs --- a/src/HROOT/Hist/TH1K.hs +++ b/src/HROOT/Hist/TH1K.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH1K - ( - TH1K(..) - , ITH1K - , upcastTH1K - , downcastTH1K - - - ) where - +module HROOT.Hist.TH1K (TH1K(..), ITH1K, upcastTH1K, downcastTH1K) + where import HROOT.Hist.TH1K.RawType import HROOT.Hist.TH1K.Interface import HROOT.Hist.TH1K.Implementation - - diff --git a/src/HROOT/Hist/TH1K/Cast.hs b/src/HROOT/Hist/TH1K/Cast.hs --- a/src/HROOT/Hist/TH1K/Cast.hs +++ b/src/HROOT/Hist/TH1K/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1K.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1K.RawType import HROOT.Hist.TH1K.Interface instance (ITH1K a, FPtr a) => Castable a (Ptr RawTH1K) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1K (Ptr RawTH1K) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1K/FFI.hsc b/src/HROOT/Hist/TH1K/FFI.hsc --- a/src/HROOT/Hist/TH1K/FFI.hsc +++ b/src/HROOT/Hist/TH1K/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1K.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1K.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,476 +11,524 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1K.h" +foreign import ccall safe "HROOTHistTH1K.h TH1K_Add" c_th1k_add :: + Ptr RawTH1K -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Add" c_th1k_add - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_AddBinContent" + c_th1k_addbincontent :: Ptr RawTH1K -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_AddBinContent" c_th1k_addbincontent - :: (Ptr RawTH1K) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Chi2Test" + c_th1k_chi2test :: + Ptr RawTH1K -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_Chi2Test" c_th1k_chi2test - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_ComputeIntegral" + c_th1k_computeintegral :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_ComputeIntegral" c_th1k_computeintegral - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_DirectoryAutoAdd" + c_th1k_directoryautoadd :: + Ptr RawTH1K -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_DirectoryAutoAdd" c_th1k_directoryautoadd - :: (Ptr RawTH1K) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Divide" + c_th1k_divide :: + Ptr RawTH1K -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Divide" c_th1k_divide - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_drawCopyTH1" + c_th1k_drawcopyth1 :: Ptr RawTH1K -> CString -> IO (Ptr RawTH1K) -foreign import ccall "HROOTHistTH1K.h TH1K_drawCopyTH1" c_th1k_drawcopyth1 - :: (Ptr RawTH1K) -> CString -> IO (Ptr RawTH1K) +foreign import ccall safe "HROOTHistTH1K.h TH1K_DrawNormalized" + c_th1k_drawnormalized :: + Ptr RawTH1K -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1K.h TH1K_DrawNormalized" c_th1k_drawnormalized - :: (Ptr RawTH1K) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1K.h TH1K_drawPanelTH1" + c_th1k_drawpanelth1 :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_drawPanelTH1" c_th1k_drawpanelth1 - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_BufferEmpty" + c_th1k_bufferempty :: Ptr RawTH1K -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_BufferEmpty" c_th1k_bufferempty - :: (Ptr RawTH1K) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_evalF" c_th1k_evalf + :: Ptr RawTH1K -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_evalF" c_th1k_evalf - :: (Ptr RawTH1K) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_FFT" c_th1k_fft :: + Ptr RawTH1K -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1K.h TH1K_FFT" c_th1k_fft - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1K.h TH1K_fill1" c_th1k_fill1 + :: Ptr RawTH1K -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_fill1" c_th1k_fill1 - :: (Ptr RawTH1K) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_fill1w" + c_th1k_fill1w :: Ptr RawTH1K -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_fill1w" c_th1k_fill1w - :: (Ptr RawTH1K) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_fillN1" + c_th1k_filln1 :: + Ptr RawTH1K -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_fillN1" c_th1k_filln1 - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_FillRandom" + c_th1k_fillrandom :: Ptr RawTH1K -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_FillRandom" c_th1k_fillrandom - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_FindBin" + c_th1k_findbin :: + Ptr RawTH1K -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_FindBin" c_th1k_findbin - :: (Ptr RawTH1K) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_FindFixBin" + c_th1k_findfixbin :: + Ptr RawTH1K -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_FindFixBin" c_th1k_findfixbin - :: (Ptr RawTH1K) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_FindFirstBinAbove" + c_th1k_findfirstbinabove :: + Ptr RawTH1K -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_FindFirstBinAbove" c_th1k_findfirstbinabove - :: (Ptr RawTH1K) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_FindLastBinAbove" + c_th1k_findlastbinabove :: + Ptr RawTH1K -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_FindLastBinAbove" c_th1k_findlastbinabove - :: (Ptr RawTH1K) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_Fit" c_th1k_fit :: + Ptr RawTH1K -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_FitPanelTH1" c_th1k_fitpanelth1 - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_FitPanelTH1" + c_th1k_fitpanelth1 :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_getNdivisionA" c_th1k_getndivisiona - :: (Ptr RawTH1K) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getNdivisionA" + c_th1k_getndivisiona :: Ptr RawTH1K -> CString -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_getAxisColorA" c_th1k_getaxiscolora - :: (Ptr RawTH1K) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getAxisColorA" + c_th1k_getaxiscolora :: Ptr RawTH1K -> CString -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_getLabelColorA" c_th1k_getlabelcolora - :: (Ptr RawTH1K) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getLabelColorA" + c_th1k_getlabelcolora :: Ptr RawTH1K -> CString -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_getLabelFontA" c_th1k_getlabelfonta - :: (Ptr RawTH1K) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getLabelFontA" + c_th1k_getlabelfonta :: Ptr RawTH1K -> CString -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_getLabelOffsetA" c_th1k_getlabeloffseta - :: (Ptr RawTH1K) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getLabelOffsetA" + c_th1k_getlabeloffseta :: Ptr RawTH1K -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getLabelSizeA" c_th1k_getlabelsizea - :: (Ptr RawTH1K) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getLabelSizeA" + c_th1k_getlabelsizea :: Ptr RawTH1K -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getTitleFontA" c_th1k_gettitlefonta - :: (Ptr RawTH1K) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getTitleFontA" + c_th1k_gettitlefonta :: Ptr RawTH1K -> CString -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_getTitleOffsetA" c_th1k_gettitleoffseta - :: (Ptr RawTH1K) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getTitleOffsetA" + c_th1k_gettitleoffseta :: Ptr RawTH1K -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getTitleSizeA" c_th1k_gettitlesizea - :: (Ptr RawTH1K) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getTitleSizeA" + c_th1k_gettitlesizea :: Ptr RawTH1K -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getTickLengthA" c_th1k_getticklengtha - :: (Ptr RawTH1K) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getTickLengthA" + c_th1k_getticklengtha :: Ptr RawTH1K -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBarOffset" c_th1k_getbaroffset - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBarOffset" + c_th1k_getbaroffset :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBarWidth" c_th1k_getbarwidth - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBarWidth" + c_th1k_getbarwidth :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetContour" c_th1k_getcontour - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetContour" + c_th1k_getcontour :: Ptr RawTH1K -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetContourLevel" c_th1k_getcontourlevel - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetContourLevel" + c_th1k_getcontourlevel :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetContourLevelPad" c_th1k_getcontourlevelpad - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetContourLevelPad" + c_th1k_getcontourlevelpad :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBin" c_th1k_getbin - :: (Ptr RawTH1K) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBin" + c_th1k_getbin :: Ptr RawTH1K -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinCenter" c_th1k_getbincenter - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinCenter" + c_th1k_getbincenter :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinContent1" c_th1k_getbincontent1 - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinContent1" + c_th1k_getbincontent1 :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinContent2" c_th1k_getbincontent2 - :: (Ptr RawTH1K) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinContent2" + c_th1k_getbincontent2 :: Ptr RawTH1K -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinContent3" c_th1k_getbincontent3 - :: (Ptr RawTH1K) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinContent3" + c_th1k_getbincontent3 :: + Ptr RawTH1K -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinError1" c_th1k_getbinerror1 - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinError1" + c_th1k_getbinerror1 :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinError2" c_th1k_getbinerror2 - :: (Ptr RawTH1K) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinError2" + c_th1k_getbinerror2 :: Ptr RawTH1K -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinError3" c_th1k_getbinerror3 - :: (Ptr RawTH1K) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinError3" + c_th1k_getbinerror3 :: + Ptr RawTH1K -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinLowEdge" c_th1k_getbinlowedge - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinLowEdge" + c_th1k_getbinlowedge :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetBinWidth" c_th1k_getbinwidth - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetBinWidth" + c_th1k_getbinwidth :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetCellContent" c_th1k_getcellcontent - :: (Ptr RawTH1K) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetCellContent" + c_th1k_getcellcontent :: Ptr RawTH1K -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetCellError" c_th1k_getcellerror - :: (Ptr RawTH1K) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetCellError" + c_th1k_getcellerror :: Ptr RawTH1K -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetEntries" c_th1k_getentries - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetEntries" + c_th1k_getentries :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetEffectiveEntries" c_th1k_geteffectiveentries - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1K.h TH1K_GetEffectiveEntries" + c_th1k_geteffectiveentries :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetFunction" c_th1k_getfunction - :: (Ptr RawTH1K) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetFunction" + c_th1k_getfunction :: Ptr RawTH1K -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1K.h TH1K_GetDimension" c_th1k_getdimension - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetDimension" + c_th1k_getdimension :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetKurtosis" c_th1k_getkurtosis - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetKurtosis" + c_th1k_getkurtosis :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetLowEdge" c_th1k_getlowedge - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetLowEdge" + c_th1k_getlowedge :: Ptr RawTH1K -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_getMaximumTH1" c_th1k_getmaximumth1 - :: (Ptr RawTH1K) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getMaximumTH1" + c_th1k_getmaximumth1 :: Ptr RawTH1K -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetMaximumBin" c_th1k_getmaximumbin - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMaximumBin" + c_th1k_getmaximumbin :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetMaximumStored" c_th1k_getmaximumstored - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMaximumStored" + c_th1k_getmaximumstored :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getMinimumTH1" c_th1k_getminimumth1 - :: (Ptr RawTH1K) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_getMinimumTH1" + c_th1k_getminimumth1 :: Ptr RawTH1K -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetMinimumBin" c_th1k_getminimumbin - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMinimumBin" + c_th1k_getminimumbin :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetMinimumStored" c_th1k_getminimumstored - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMinimumStored" + c_th1k_getminimumstored :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetMean" c_th1k_getmean - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMean" + c_th1k_getmean :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetMeanError" c_th1k_getmeanerror - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMeanError" + c_th1k_getmeanerror :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetNbinsX" c_th1k_getnbinsx - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetNbinsX" + c_th1k_getnbinsx :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetNbinsY" c_th1k_getnbinsy - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetNbinsY" + c_th1k_getnbinsy :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetNbinsZ" c_th1k_getnbinsz - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetNbinsZ" + c_th1k_getnbinsz :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_getQuantilesTH1" c_th1k_getquantilesth1 - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_getQuantilesTH1" + c_th1k_getquantilesth1 :: + Ptr RawTH1K -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetRandom" c_th1k_getrandom - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetRandom" + c_th1k_getrandom :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetStats" c_th1k_getstats - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetStats" + c_th1k_getstats :: Ptr RawTH1K -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetSumOfWeights" c_th1k_getsumofweights - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetSumOfWeights" + c_th1k_getsumofweights :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetSumw2" c_th1k_getsumw2 - :: (Ptr RawTH1K) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetSumw2" + c_th1k_getsumw2 :: Ptr RawTH1K -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1K.h TH1K_GetSumw2N" c_th1k_getsumw2n - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetSumw2N" + c_th1k_getsumw2n :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_GetRMS" c_th1k_getrms - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetRMS" + c_th1k_getrms :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetRMSError" c_th1k_getrmserror - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetRMSError" + c_th1k_getrmserror :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_GetSkewness" c_th1k_getskewness - :: (Ptr RawTH1K) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetSkewness" + c_th1k_getskewness :: Ptr RawTH1K -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_integral1" c_th1k_integral1 - :: (Ptr RawTH1K) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_integral1" + c_th1k_integral1 :: + Ptr RawTH1K -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_interpolate1" c_th1k_interpolate1 - :: (Ptr RawTH1K) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_interpolate1" + c_th1k_interpolate1 :: Ptr RawTH1K -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_interpolate2" c_th1k_interpolate2 - :: (Ptr RawTH1K) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_interpolate2" + c_th1k_interpolate2 :: + Ptr RawTH1K -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_interpolate3" c_th1k_interpolate3 - :: (Ptr RawTH1K) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_interpolate3" + c_th1k_interpolate3 :: + Ptr RawTH1K -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_KolmogorovTest" c_th1k_kolmogorovtest - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_KolmogorovTest" + c_th1k_kolmogorovtest :: + Ptr RawTH1K -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_LabelsDeflate" c_th1k_labelsdeflate - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_LabelsDeflate" + c_th1k_labelsdeflate :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_LabelsInflate" c_th1k_labelsinflate - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_LabelsInflate" + c_th1k_labelsinflate :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_LabelsOption" c_th1k_labelsoption - :: (Ptr RawTH1K) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_LabelsOption" + c_th1k_labelsoption :: Ptr RawTH1K -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_multiflyF" c_th1k_multiflyf - :: (Ptr RawTH1K) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_multiflyF" + c_th1k_multiflyf :: Ptr RawTH1K -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Multiply" c_th1k_multiply - :: (Ptr RawTH1K) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Multiply" + c_th1k_multiply :: + Ptr RawTH1K -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_PutStats" c_th1k_putstats - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_PutStats" + c_th1k_putstats :: Ptr RawTH1K -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Rebin" c_th1k_rebin - :: (Ptr RawTH1K) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1K.h TH1K_Rebin" c_th1k_rebin + :: + Ptr RawTH1K -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1K.h TH1K_RebinAxis" c_th1k_rebinaxis - :: (Ptr RawTH1K) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_RebinAxis" + c_th1k_rebinaxis :: Ptr RawTH1K -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Rebuild" c_th1k_rebuild - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Rebuild" + c_th1k_rebuild :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_RecursiveRemove" c_th1k_recursiveremove - :: (Ptr RawTH1K) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_RecursiveRemove" + c_th1k_recursiveremove :: Ptr RawTH1K -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Reset" c_th1k_reset - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Reset" c_th1k_reset + :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_ResetStats" c_th1k_resetstats - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_ResetStats" + c_th1k_resetstats :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Scale" c_th1k_scale - :: (Ptr RawTH1K) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Scale" c_th1k_scale + :: Ptr RawTH1K -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setAxisColorA" c_th1k_setaxiscolora - :: (Ptr RawTH1K) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setAxisColorA" + c_th1k_setaxiscolora :: Ptr RawTH1K -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetAxisRange" c_th1k_setaxisrange - :: (Ptr RawTH1K) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetAxisRange" + c_th1k_setaxisrange :: + Ptr RawTH1K -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetBarOffset" c_th1k_setbaroffset - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetBarOffset" + c_th1k_setbaroffset :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetBarWidth" c_th1k_setbarwidth - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetBarWidth" + c_th1k_setbarwidth :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinContent1" c_th1k_setbincontent1 - :: (Ptr RawTH1K) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinContent1" + c_th1k_setbincontent1 :: Ptr RawTH1K -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinContent2" c_th1k_setbincontent2 - :: (Ptr RawTH1K) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinContent2" + c_th1k_setbincontent2 :: + Ptr RawTH1K -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinContent3" c_th1k_setbincontent3 - :: (Ptr RawTH1K) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinContent3" + c_th1k_setbincontent3 :: + Ptr RawTH1K -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinError1" c_th1k_setbinerror1 - :: (Ptr RawTH1K) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinError1" + c_th1k_setbinerror1 :: Ptr RawTH1K -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinError2" c_th1k_setbinerror2 - :: (Ptr RawTH1K) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinError2" + c_th1k_setbinerror2 :: + Ptr RawTH1K -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBinError3" c_th1k_setbinerror3 - :: (Ptr RawTH1K) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBinError3" + c_th1k_setbinerror3 :: + Ptr RawTH1K -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBins1" c_th1k_setbins1 - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBins1" + c_th1k_setbins1 :: Ptr RawTH1K -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBins2" c_th1k_setbins2 - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBins2" + c_th1k_setbins2 :: + Ptr RawTH1K -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setBins3" c_th1k_setbins3 - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setBins3" + c_th1k_setbins3 :: + Ptr RawTH1K -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetBinsLength" c_th1k_setbinslength - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetBinsLength" + c_th1k_setbinslength :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetBuffer" c_th1k_setbuffer - :: (Ptr RawTH1K) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetBuffer" + c_th1k_setbuffer :: Ptr RawTH1K -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetCellContent" c_th1k_setcellcontent - :: (Ptr RawTH1K) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetCellContent" + c_th1k_setcellcontent :: + Ptr RawTH1K -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetContent" c_th1k_setcontent - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetContent" + c_th1k_setcontent :: Ptr RawTH1K -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetContour" c_th1k_setcontour - :: (Ptr RawTH1K) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetContour" + c_th1k_setcontour :: Ptr RawTH1K -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetContourLevel" c_th1k_setcontourlevel - :: (Ptr RawTH1K) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetContourLevel" + c_th1k_setcontourlevel :: Ptr RawTH1K -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetDirectory" c_th1k_setdirectory - :: (Ptr RawTH1K) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetDirectory" + c_th1k_setdirectory :: Ptr RawTH1K -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetEntries" c_th1k_setentries - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetEntries" + c_th1k_setentries :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetError" c_th1k_seterror - :: (Ptr RawTH1K) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetError" + c_th1k_seterror :: Ptr RawTH1K -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setLabelColorA" c_th1k_setlabelcolora - :: (Ptr RawTH1K) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setLabelColorA" + c_th1k_setlabelcolora :: Ptr RawTH1K -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setLabelSizeA" c_th1k_setlabelsizea - :: (Ptr RawTH1K) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setLabelSizeA" + c_th1k_setlabelsizea :: Ptr RawTH1K -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setLabelFontA" c_th1k_setlabelfonta - :: (Ptr RawTH1K) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setLabelFontA" + c_th1k_setlabelfonta :: Ptr RawTH1K -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_setLabelOffsetA" c_th1k_setlabeloffseta - :: (Ptr RawTH1K) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_setLabelOffsetA" + c_th1k_setlabeloffseta :: + Ptr RawTH1K -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetMaximum" c_th1k_setmaximum - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetMaximum" + c_th1k_setmaximum :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetMinimum" c_th1k_setminimum - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetMinimum" + c_th1k_setminimum :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetNormFactor" c_th1k_setnormfactor - :: (Ptr RawTH1K) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetNormFactor" + c_th1k_setnormfactor :: Ptr RawTH1K -> CDouble -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetStats" c_th1k_setstats - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetStats" + c_th1k_setstats :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetOption" c_th1k_setoption - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetOption" + c_th1k_setoption :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetXTitle" c_th1k_setxtitle - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetXTitle" + c_th1k_setxtitle :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetYTitle" c_th1k_setytitle - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetYTitle" + c_th1k_setytitle :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetZTitle" c_th1k_setztitle - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetZTitle" + c_th1k_setztitle :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_ShowBackground" c_th1k_showbackground - :: (Ptr RawTH1K) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1K.h TH1K_ShowBackground" + c_th1k_showbackground :: + Ptr RawTH1K -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1K.h TH1K_ShowPeaks" c_th1k_showpeaks - :: (Ptr RawTH1K) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_ShowPeaks" + c_th1k_showpeaks :: + Ptr RawTH1K -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_Smooth" c_th1k_smooth - :: (Ptr RawTH1K) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Smooth" + c_th1k_smooth :: Ptr RawTH1K -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Sumw2" c_th1k_sumw2 - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Sumw2" c_th1k_sumw2 + :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Draw" c_th1k_draw - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetName" + c_th1k_setname :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_FindObject" c_th1k_findobject - :: (Ptr RawTH1K) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetNameTitle" + c_th1k_setnametitle :: Ptr RawTH1K -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetName" c_th1k_getname - :: (Ptr RawTH1K) -> IO CString +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetTitle" + c_th1k_settitle :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_IsA" c_th1k_isa - :: (Ptr RawTH1K) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetLineColor" + c_th1k_getlinecolor :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_Paint" c_th1k_paint - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetLineStyle" + c_th1k_getlinestyle :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_printObj" c_th1k_printobj - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetLineWidth" + c_th1k_getlinewidth :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_SaveAs" c_th1k_saveas - :: (Ptr RawTH1K) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_ResetAttLine" + c_th1k_resetattline :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_Write" c_th1k_write - :: (Ptr RawTH1K) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetLineAttributes" + c_th1k_setlineattributes :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetLineColor" c_th1k_getlinecolor - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetLineColor" + c_th1k_setlinecolor :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetLineStyle" c_th1k_getlinestyle - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetLineStyle" + c_th1k_setlinestyle :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetLineWidth" c_th1k_getlinewidth - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetLineWidth" + c_th1k_setlinewidth :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_ResetAttLine" c_th1k_resetattline - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetFillColor" + c_th1k_setfillcolor :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetLineAttributes" c_th1k_setlineattributes - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetFillStyle" + c_th1k_setfillstyle :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetLineColor" c_th1k_setlinecolor - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMarkerColor" + c_th1k_getmarkercolor :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_SetLineStyle" c_th1k_setlinestyle - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMarkerStyle" + c_th1k_getmarkerstyle :: Ptr RawTH1K -> IO CInt -foreign import ccall "HROOTHistTH1K.h TH1K_SetLineWidth" c_th1k_setlinewidth - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetMarkerSize" + c_th1k_getmarkersize :: Ptr RawTH1K -> IO CDouble -foreign import ccall "HROOTHistTH1K.h TH1K_SetFillColor" c_th1k_setfillcolor - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_ResetAttMarker" + c_th1k_resetattmarker :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetFillStyle" c_th1k_setfillstyle - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1K.h TH1K_SetMarkerAttributes" + c_th1k_setmarkerattributes :: Ptr RawTH1K -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetMarkerColor" c_th1k_getmarkercolor - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetMarkerColor" + c_th1k_setmarkercolor :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetMarkerStyle" c_th1k_getmarkerstyle - :: (Ptr RawTH1K) -> IO CInt +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetMarkerStyle" + c_th1k_setmarkerstyle :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_GetMarkerSize" c_th1k_getmarkersize - :: (Ptr RawTH1K) -> IO CDouble +foreign import ccall safe "HROOTHistTH1K.h TH1K_SetMarkerSize" + c_th1k_setmarkersize :: Ptr RawTH1K -> CInt -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_ResetAttMarker" c_th1k_resetattmarker - :: (Ptr RawTH1K) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Draw" c_th1k_draw + :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_SetMarkerAttributes" c_th1k_setmarkerattributes - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_FindObject" + c_th1k_findobject :: Ptr RawTH1K -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1K.h TH1K_SetMarkerColor" c_th1k_setmarkercolor - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_GetName" + c_th1k_getname :: Ptr RawTH1K -> IO CString -foreign import ccall "HROOTHistTH1K.h TH1K_SetMarkerStyle" c_th1k_setmarkerstyle - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_IsA" c_th1k_isa :: + Ptr RawTH1K -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1K.h TH1K_SetMarkerSize" c_th1k_setmarkersize - :: (Ptr RawTH1K) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_Paint" c_th1k_paint + :: Ptr RawTH1K -> CString -> IO () -foreign import ccall "HROOTHistTH1K.h TH1K_delete" c_th1k_delete - :: (Ptr RawTH1K) -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_printObj" + c_th1k_printobj :: Ptr RawTH1K -> CString -> IO () +foreign import ccall safe "HROOTHistTH1K.h TH1K_SaveAs" + c_th1k_saveas :: Ptr RawTH1K -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH1K.h TH1K_Write" c_th1k_write + :: Ptr RawTH1K -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1K.h TH1K_delete" + c_th1k_delete :: Ptr RawTH1K -> IO () diff --git a/src/HROOT/Hist/TH1K/Implementation.hs b/src/HROOT/Hist/TH1K/Implementation.hs --- a/src/HROOT/Hist/TH1K/Implementation.hs +++ b/src/HROOT/Hist/TH1K/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1K.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1K.RawType import HROOT.Hist.TH1K.FFI import HROOT.Hist.TH1K.Interface @@ -32,9 +33,9 @@ import HROOT.Core.TArrayF.RawType import HROOT.Core.TArrayF.Cast import HROOT.Core.TArrayF.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -44,6 +45,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -51,358 +55,183 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1K TH1K -instance ITH1K TH1K where instance ITH1 TH1K where - add = xform2 c_th1k_add - addBinContent = xform2 c_th1k_addbincontent - chi2Test = xform3 c_th1k_chi2test - computeIntegral = xform0 c_th1k_computeintegral - directoryAutoAdd = xform1 c_th1k_directoryautoadd - divide = xform5 c_th1k_divide - drawCopyTH1 = xform1 c_th1k_drawcopyth1 - drawNormalized = xform2 c_th1k_drawnormalized - drawPanelTH1 = xform0 c_th1k_drawpanelth1 - bufferEmpty = xform1 c_th1k_bufferempty - evalF = xform2 c_th1k_evalf - fFT = xform2 c_th1k_fft - fill1 = xform1 c_th1k_fill1 - fill1w = xform2 c_th1k_fill1w - fillN1 = xform4 c_th1k_filln1 - fillRandom = xform2 c_th1k_fillrandom - findBin = xform3 c_th1k_findbin - findFixBin = xform3 c_th1k_findfixbin - findFirstBinAbove = xform2 c_th1k_findfirstbinabove - findLastBinAbove = xform2 c_th1k_findlastbinabove - fitPanelTH1 = xform0 c_th1k_fitpanelth1 - getNdivisionA = xform1 c_th1k_getndivisiona - getAxisColorA = xform1 c_th1k_getaxiscolora - getLabelColorA = xform1 c_th1k_getlabelcolora - getLabelFontA = xform1 c_th1k_getlabelfonta - getLabelOffsetA = xform1 c_th1k_getlabeloffseta - getLabelSizeA = xform1 c_th1k_getlabelsizea - getTitleFontA = xform1 c_th1k_gettitlefonta - getTitleOffsetA = xform1 c_th1k_gettitleoffseta - getTitleSizeA = xform1 c_th1k_gettitlesizea - getTickLengthA = xform1 c_th1k_getticklengtha - getBarOffset = xform0 c_th1k_getbaroffset - getBarWidth = xform0 c_th1k_getbarwidth - getContour = xform1 c_th1k_getcontour - getContourLevel = xform1 c_th1k_getcontourlevel - getContourLevelPad = xform1 c_th1k_getcontourlevelpad - getBin = xform3 c_th1k_getbin - getBinCenter = xform1 c_th1k_getbincenter - getBinContent1 = xform1 c_th1k_getbincontent1 - getBinContent2 = xform2 c_th1k_getbincontent2 - getBinContent3 = xform3 c_th1k_getbincontent3 - getBinError1 = xform1 c_th1k_getbinerror1 - getBinError2 = xform2 c_th1k_getbinerror2 - getBinError3 = xform3 c_th1k_getbinerror3 - getBinLowEdge = xform1 c_th1k_getbinlowedge - getBinWidth = xform1 c_th1k_getbinwidth - getCellContent = xform2 c_th1k_getcellcontent - getCellError = xform2 c_th1k_getcellerror - getEntries = xform0 c_th1k_getentries - getEffectiveEntries = xform0 c_th1k_geteffectiveentries - getFunction = xform1 c_th1k_getfunction - getDimension = xform0 c_th1k_getdimension - getKurtosis = xform1 c_th1k_getkurtosis - getLowEdge = xform1 c_th1k_getlowedge - getMaximumTH1 = xform1 c_th1k_getmaximumth1 - getMaximumBin = xform0 c_th1k_getmaximumbin - getMaximumStored = xform0 c_th1k_getmaximumstored - getMinimumTH1 = xform1 c_th1k_getminimumth1 - getMinimumBin = xform0 c_th1k_getminimumbin - getMinimumStored = xform0 c_th1k_getminimumstored - getMean = xform1 c_th1k_getmean - getMeanError = xform1 c_th1k_getmeanerror - getNbinsX = xform0 c_th1k_getnbinsx - getNbinsY = xform0 c_th1k_getnbinsy - getNbinsZ = xform0 c_th1k_getnbinsz - getQuantilesTH1 = xform3 c_th1k_getquantilesth1 - getRandom = xform0 c_th1k_getrandom - getStats = xform1 c_th1k_getstats - getSumOfWeights = xform0 c_th1k_getsumofweights - getSumw2 = xform0 c_th1k_getsumw2 - getSumw2N = xform0 c_th1k_getsumw2n - getRMS = xform1 c_th1k_getrms - getRMSError = xform1 c_th1k_getrmserror - getSkewness = xform1 c_th1k_getskewness - integral1 = xform3 c_th1k_integral1 - interpolate1 = xform1 c_th1k_interpolate1 - interpolate2 = xform2 c_th1k_interpolate2 - interpolate3 = xform3 c_th1k_interpolate3 - kolmogorovTest = xform2 c_th1k_kolmogorovtest - labelsDeflate = xform1 c_th1k_labelsdeflate - labelsInflate = xform1 c_th1k_labelsinflate - labelsOption = xform2 c_th1k_labelsoption - multiflyF = xform2 c_th1k_multiflyf - multiply = xform5 c_th1k_multiply - putStats = xform1 c_th1k_putstats - rebin = xform3 c_th1k_rebin - rebinAxis = xform2 c_th1k_rebinaxis - rebuild = xform1 c_th1k_rebuild - recursiveRemove = xform1 c_th1k_recursiveremove - reset = xform1 c_th1k_reset - resetStats = xform0 c_th1k_resetstats - scale = xform2 c_th1k_scale - setAxisColorA = xform2 c_th1k_setaxiscolora - setAxisRange = xform3 c_th1k_setaxisrange - setBarOffset = xform1 c_th1k_setbaroffset - setBarWidth = xform1 c_th1k_setbarwidth - setBinContent1 = xform2 c_th1k_setbincontent1 - setBinContent2 = xform3 c_th1k_setbincontent2 - setBinContent3 = xform4 c_th1k_setbincontent3 - setBinError1 = xform2 c_th1k_setbinerror1 - setBinError2 = xform3 c_th1k_setbinerror2 - setBinError3 = xform4 c_th1k_setbinerror3 - setBins1 = xform2 c_th1k_setbins1 - setBins2 = xform4 c_th1k_setbins2 - setBins3 = xform6 c_th1k_setbins3 - setBinsLength = xform1 c_th1k_setbinslength - setBuffer = xform2 c_th1k_setbuffer - setCellContent = xform3 c_th1k_setcellcontent - setContent = xform1 c_th1k_setcontent - setContour = xform2 c_th1k_setcontour - setContourLevel = xform2 c_th1k_setcontourlevel - setDirectory = xform1 c_th1k_setdirectory - setEntries = xform1 c_th1k_setentries - setError = xform1 c_th1k_seterror - setLabelColorA = xform2 c_th1k_setlabelcolora - setLabelSizeA = xform2 c_th1k_setlabelsizea - setLabelFontA = xform2 c_th1k_setlabelfonta - setLabelOffsetA = xform2 c_th1k_setlabeloffseta - setMaximum = xform1 c_th1k_setmaximum - setMinimum = xform1 c_th1k_setminimum - setNormFactor = xform1 c_th1k_setnormfactor - setStats = xform1 c_th1k_setstats - setOption = xform1 c_th1k_setoption - setXTitle = xform1 c_th1k_setxtitle - setYTitle = xform1 c_th1k_setytitle - setZTitle = xform1 c_th1k_setztitle - showBackground = xform2 c_th1k_showbackground - showPeaks = xform3 c_th1k_showpeaks - smooth = xform2 c_th1k_smooth - sumw2 = xform0 c_th1k_sumw2 -instance ITArrayF TH1K where -instance ITObject TH1K where - draw = xform1 c_th1k_draw - findObject = xform1 c_th1k_findobject - getName = xform0 c_th1k_getname - isA = xform0 c_th1k_isa - paint = xform1 c_th1k_paint - printObj = xform1 c_th1k_printobj - saveAs = xform2 c_th1k_saveas - write = xform3 c_th1k_write -instance ITAttLine TH1K where - getLineColor = xform0 c_th1k_getlinecolor - getLineStyle = xform0 c_th1k_getlinestyle - getLineWidth = xform0 c_th1k_getlinewidth - resetAttLine = xform1 c_th1k_resetattline - setLineAttributes = xform0 c_th1k_setlineattributes - setLineColor = xform1 c_th1k_setlinecolor - setLineStyle = xform1 c_th1k_setlinestyle - setLineWidth = xform1 c_th1k_setlinewidth -instance ITAttFill TH1K where - setFillColor = xform1 c_th1k_setfillcolor - setFillStyle = xform1 c_th1k_setfillstyle -instance ITAttMarker TH1K where - getMarkerColor = xform0 c_th1k_getmarkercolor - getMarkerStyle = xform0 c_th1k_getmarkerstyle - getMarkerSize = xform0 c_th1k_getmarkersize - resetAttMarker = xform1 c_th1k_resetattmarker - setMarkerAttributes = xform0 c_th1k_setmarkerattributes - setMarkerColor = xform1 c_th1k_setmarkercolor - setMarkerStyle = xform1 c_th1k_setmarkerstyle - setMarkerSize = xform1 c_th1k_setmarkersize -instance IDeletable TH1K where - delete = xform0 c_th1k_delete -instance ITArray TH1K where - -instance ITH1K (Exist TH1K) where - -instance ITH1 (Exist TH1K) where - add (ETH1K x) = add x - addBinContent (ETH1K x) = addBinContent x - chi2Test (ETH1K x) = chi2Test x - computeIntegral (ETH1K x) = computeIntegral x - directoryAutoAdd (ETH1K x) = directoryAutoAdd x - divide (ETH1K x) = divide x - drawCopyTH1 (ETH1K x) a1 = return . ETH1K =<< drawCopyTH1 x a1 - drawNormalized (ETH1K x) = drawNormalized x - drawPanelTH1 (ETH1K x) = drawPanelTH1 x - bufferEmpty (ETH1K x) = bufferEmpty x - evalF (ETH1K x) = evalF x - fFT (ETH1K x) = fFT x - fill1 (ETH1K x) = fill1 x - fill1w (ETH1K x) = fill1w x - fillN1 (ETH1K x) = fillN1 x - fillRandom (ETH1K x) = fillRandom x - findBin (ETH1K x) = findBin x - findFixBin (ETH1K x) = findFixBin x - findFirstBinAbove (ETH1K x) = findFirstBinAbove x - findLastBinAbove (ETH1K x) = findLastBinAbove x - fitPanelTH1 (ETH1K x) = fitPanelTH1 x - getNdivisionA (ETH1K x) = getNdivisionA x - getAxisColorA (ETH1K x) = getAxisColorA x - getLabelColorA (ETH1K x) = getLabelColorA x - getLabelFontA (ETH1K x) = getLabelFontA x - getLabelOffsetA (ETH1K x) = getLabelOffsetA x - getLabelSizeA (ETH1K x) = getLabelSizeA x - getTitleFontA (ETH1K x) = getTitleFontA x - getTitleOffsetA (ETH1K x) = getTitleOffsetA x - getTitleSizeA (ETH1K x) = getTitleSizeA x - getTickLengthA (ETH1K x) = getTickLengthA x - getBarOffset (ETH1K x) = getBarOffset x - getBarWidth (ETH1K x) = getBarWidth x - getContour (ETH1K x) = getContour x - getContourLevel (ETH1K x) = getContourLevel x - getContourLevelPad (ETH1K x) = getContourLevelPad x - getBin (ETH1K x) = getBin x - getBinCenter (ETH1K x) = getBinCenter x - getBinContent1 (ETH1K x) = getBinContent1 x - getBinContent2 (ETH1K x) = getBinContent2 x - getBinContent3 (ETH1K x) = getBinContent3 x - getBinError1 (ETH1K x) = getBinError1 x - getBinError2 (ETH1K x) = getBinError2 x - getBinError3 (ETH1K x) = getBinError3 x - getBinLowEdge (ETH1K x) = getBinLowEdge x - getBinWidth (ETH1K x) = getBinWidth x - getCellContent (ETH1K x) = getCellContent x - getCellError (ETH1K x) = getCellError x - getEntries (ETH1K x) = getEntries x - getEffectiveEntries (ETH1K x) = getEffectiveEntries x - getFunction (ETH1K x) = getFunction x - getDimension (ETH1K x) = getDimension x - getKurtosis (ETH1K x) = getKurtosis x - getLowEdge (ETH1K x) = getLowEdge x - getMaximumTH1 (ETH1K x) = getMaximumTH1 x - getMaximumBin (ETH1K x) = getMaximumBin x - getMaximumStored (ETH1K x) = getMaximumStored x - getMinimumTH1 (ETH1K x) = getMinimumTH1 x - getMinimumBin (ETH1K x) = getMinimumBin x - getMinimumStored (ETH1K x) = getMinimumStored x - getMean (ETH1K x) = getMean x - getMeanError (ETH1K x) = getMeanError x - getNbinsX (ETH1K x) = getNbinsX x - getNbinsY (ETH1K x) = getNbinsY x - getNbinsZ (ETH1K x) = getNbinsZ x - getQuantilesTH1 (ETH1K x) = getQuantilesTH1 x - getRandom (ETH1K x) = getRandom x - getStats (ETH1K x) = getStats x - getSumOfWeights (ETH1K x) = getSumOfWeights x - getSumw2 (ETH1K x) = getSumw2 x - getSumw2N (ETH1K x) = getSumw2N x - getRMS (ETH1K x) = getRMS x - getRMSError (ETH1K x) = getRMSError x - getSkewness (ETH1K x) = getSkewness x - integral1 (ETH1K x) = integral1 x - interpolate1 (ETH1K x) = interpolate1 x - interpolate2 (ETH1K x) = interpolate2 x - interpolate3 (ETH1K x) = interpolate3 x - kolmogorovTest (ETH1K x) = kolmogorovTest x - labelsDeflate (ETH1K x) = labelsDeflate x - labelsInflate (ETH1K x) = labelsInflate x - labelsOption (ETH1K x) = labelsOption x - multiflyF (ETH1K x) = multiflyF x - multiply (ETH1K x) = multiply x - putStats (ETH1K x) = putStats x - rebin (ETH1K x) = rebin x - rebinAxis (ETH1K x) = rebinAxis x - rebuild (ETH1K x) = rebuild x - recursiveRemove (ETH1K x) = recursiveRemove x - reset (ETH1K x) = reset x - resetStats (ETH1K x) = resetStats x - scale (ETH1K x) = scale x - setAxisColorA (ETH1K x) = setAxisColorA x - setAxisRange (ETH1K x) = setAxisRange x - setBarOffset (ETH1K x) = setBarOffset x - setBarWidth (ETH1K x) = setBarWidth x - setBinContent1 (ETH1K x) = setBinContent1 x - setBinContent2 (ETH1K x) = setBinContent2 x - setBinContent3 (ETH1K x) = setBinContent3 x - setBinError1 (ETH1K x) = setBinError1 x - setBinError2 (ETH1K x) = setBinError2 x - setBinError3 (ETH1K x) = setBinError3 x - setBins1 (ETH1K x) = setBins1 x - setBins2 (ETH1K x) = setBins2 x - setBins3 (ETH1K x) = setBins3 x - setBinsLength (ETH1K x) = setBinsLength x - setBuffer (ETH1K x) = setBuffer x - setCellContent (ETH1K x) = setCellContent x - setContent (ETH1K x) = setContent x - setContour (ETH1K x) = setContour x - setContourLevel (ETH1K x) = setContourLevel x - setDirectory (ETH1K x) = setDirectory x - setEntries (ETH1K x) = setEntries x - setError (ETH1K x) = setError x - setLabelColorA (ETH1K x) = setLabelColorA x - setLabelSizeA (ETH1K x) = setLabelSizeA x - setLabelFontA (ETH1K x) = setLabelFontA x - setLabelOffsetA (ETH1K x) = setLabelOffsetA x - setMaximum (ETH1K x) = setMaximum x - setMinimum (ETH1K x) = setMinimum x - setNormFactor (ETH1K x) = setNormFactor x - setStats (ETH1K x) = setStats x - setOption (ETH1K x) = setOption x - setXTitle (ETH1K x) = setXTitle x - setYTitle (ETH1K x) = setYTitle x - setZTitle (ETH1K x) = setZTitle x - showBackground (ETH1K x) = showBackground x - showPeaks (ETH1K x) = showPeaks x - smooth (ETH1K x) = smooth x - sumw2 (ETH1K x) = sumw2 x -instance ITArrayF (Exist TH1K) where - -instance ITObject (Exist TH1K) where - draw (ETH1K x) = draw x - findObject (ETH1K x) = findObject x - getName (ETH1K x) = getName x - isA (ETH1K x) = isA x - paint (ETH1K x) = paint x - printObj (ETH1K x) = printObj x - saveAs (ETH1K x) = saveAs x - write (ETH1K x) = write x -instance ITAttLine (Exist TH1K) where - getLineColor (ETH1K x) = getLineColor x - getLineStyle (ETH1K x) = getLineStyle x - getLineWidth (ETH1K x) = getLineWidth x - resetAttLine (ETH1K x) = resetAttLine x - setLineAttributes (ETH1K x) = setLineAttributes x - setLineColor (ETH1K x) = setLineColor x - setLineStyle (ETH1K x) = setLineStyle x - setLineWidth (ETH1K x) = setLineWidth x -instance ITAttFill (Exist TH1K) where - setFillColor (ETH1K x) = setFillColor x - setFillStyle (ETH1K x) = setFillStyle x -instance ITAttMarker (Exist TH1K) where - getMarkerColor (ETH1K x) = getMarkerColor x - getMarkerStyle (ETH1K x) = getMarkerStyle x - getMarkerSize (ETH1K x) = getMarkerSize x - resetAttMarker (ETH1K x) = resetAttMarker x - setMarkerAttributes (ETH1K x) = setMarkerAttributes x - setMarkerColor (ETH1K x) = setMarkerColor x - setMarkerStyle (ETH1K x) = setMarkerStyle x - setMarkerSize (ETH1K x) = setMarkerSize x -instance IDeletable (Exist TH1K) where - delete (ETH1K x) = delete x -instance ITArray (Exist TH1K) where + add = xform2 c_th1k_add + addBinContent = xform2 c_th1k_addbincontent + chi2Test = xform3 c_th1k_chi2test + computeIntegral = xform0 c_th1k_computeintegral + directoryAutoAdd = xform1 c_th1k_directoryautoadd + divide = xform5 c_th1k_divide + drawCopyTH1 = xform1 c_th1k_drawcopyth1 + drawNormalized = xform2 c_th1k_drawnormalized + drawPanelTH1 = xform0 c_th1k_drawpanelth1 + bufferEmpty = xform1 c_th1k_bufferempty + evalF = xform2 c_th1k_evalf + fFT = xform2 c_th1k_fft + fill1 = xform1 c_th1k_fill1 + fill1w = xform2 c_th1k_fill1w + fillN1 = xform4 c_th1k_filln1 + fillRandom = xform2 c_th1k_fillrandom + findBin = xform3 c_th1k_findbin + findFixBin = xform3 c_th1k_findfixbin + findFirstBinAbove = xform2 c_th1k_findfirstbinabove + findLastBinAbove = xform2 c_th1k_findlastbinabove + fit = xform5 c_th1k_fit + fitPanelTH1 = xform0 c_th1k_fitpanelth1 + getNdivisionA = xform1 c_th1k_getndivisiona + getAxisColorA = xform1 c_th1k_getaxiscolora + getLabelColorA = xform1 c_th1k_getlabelcolora + getLabelFontA = xform1 c_th1k_getlabelfonta + getLabelOffsetA = xform1 c_th1k_getlabeloffseta + getLabelSizeA = xform1 c_th1k_getlabelsizea + getTitleFontA = xform1 c_th1k_gettitlefonta + getTitleOffsetA = xform1 c_th1k_gettitleoffseta + getTitleSizeA = xform1 c_th1k_gettitlesizea + getTickLengthA = xform1 c_th1k_getticklengtha + getBarOffset = xform0 c_th1k_getbaroffset + getBarWidth = xform0 c_th1k_getbarwidth + getContour = xform1 c_th1k_getcontour + getContourLevel = xform1 c_th1k_getcontourlevel + getContourLevelPad = xform1 c_th1k_getcontourlevelpad + getBin = xform3 c_th1k_getbin + getBinCenter = xform1 c_th1k_getbincenter + getBinContent1 = xform1 c_th1k_getbincontent1 + getBinContent2 = xform2 c_th1k_getbincontent2 + getBinContent3 = xform3 c_th1k_getbincontent3 + getBinError1 = xform1 c_th1k_getbinerror1 + getBinError2 = xform2 c_th1k_getbinerror2 + getBinError3 = xform3 c_th1k_getbinerror3 + getBinLowEdge = xform1 c_th1k_getbinlowedge + getBinWidth = xform1 c_th1k_getbinwidth + getCellContent = xform2 c_th1k_getcellcontent + getCellError = xform2 c_th1k_getcellerror + getEntries = xform0 c_th1k_getentries + getEffectiveEntries = xform0 c_th1k_geteffectiveentries + getFunction = xform1 c_th1k_getfunction + getDimension = xform0 c_th1k_getdimension + getKurtosis = xform1 c_th1k_getkurtosis + getLowEdge = xform1 c_th1k_getlowedge + getMaximumTH1 = xform1 c_th1k_getmaximumth1 + getMaximumBin = xform0 c_th1k_getmaximumbin + getMaximumStored = xform0 c_th1k_getmaximumstored + getMinimumTH1 = xform1 c_th1k_getminimumth1 + getMinimumBin = xform0 c_th1k_getminimumbin + getMinimumStored = xform0 c_th1k_getminimumstored + getMean = xform1 c_th1k_getmean + getMeanError = xform1 c_th1k_getmeanerror + getNbinsX = xform0 c_th1k_getnbinsx + getNbinsY = xform0 c_th1k_getnbinsy + getNbinsZ = xform0 c_th1k_getnbinsz + getQuantilesTH1 = xform3 c_th1k_getquantilesth1 + getRandom = xform0 c_th1k_getrandom + getStats = xform1 c_th1k_getstats + getSumOfWeights = xform0 c_th1k_getsumofweights + getSumw2 = xform0 c_th1k_getsumw2 + getSumw2N = xform0 c_th1k_getsumw2n + getRMS = xform1 c_th1k_getrms + getRMSError = xform1 c_th1k_getrmserror + getSkewness = xform1 c_th1k_getskewness + integral1 = xform3 c_th1k_integral1 + interpolate1 = xform1 c_th1k_interpolate1 + interpolate2 = xform2 c_th1k_interpolate2 + interpolate3 = xform3 c_th1k_interpolate3 + kolmogorovTest = xform2 c_th1k_kolmogorovtest + labelsDeflate = xform1 c_th1k_labelsdeflate + labelsInflate = xform1 c_th1k_labelsinflate + labelsOption = xform2 c_th1k_labelsoption + multiflyF = xform2 c_th1k_multiflyf + multiply = xform5 c_th1k_multiply + putStats = xform1 c_th1k_putstats + rebin = xform3 c_th1k_rebin + rebinAxis = xform2 c_th1k_rebinaxis + rebuild = xform1 c_th1k_rebuild + recursiveRemove = xform1 c_th1k_recursiveremove + reset = xform1 c_th1k_reset + resetStats = xform0 c_th1k_resetstats + scale = xform2 c_th1k_scale + setAxisColorA = xform2 c_th1k_setaxiscolora + setAxisRange = xform3 c_th1k_setaxisrange + setBarOffset = xform1 c_th1k_setbaroffset + setBarWidth = xform1 c_th1k_setbarwidth + setBinContent1 = xform2 c_th1k_setbincontent1 + setBinContent2 = xform3 c_th1k_setbincontent2 + setBinContent3 = xform4 c_th1k_setbincontent3 + setBinError1 = xform2 c_th1k_setbinerror1 + setBinError2 = xform3 c_th1k_setbinerror2 + setBinError3 = xform4 c_th1k_setbinerror3 + setBins1 = xform2 c_th1k_setbins1 + setBins2 = xform4 c_th1k_setbins2 + setBins3 = xform6 c_th1k_setbins3 + setBinsLength = xform1 c_th1k_setbinslength + setBuffer = xform2 c_th1k_setbuffer + setCellContent = xform3 c_th1k_setcellcontent + setContent = xform1 c_th1k_setcontent + setContour = xform2 c_th1k_setcontour + setContourLevel = xform2 c_th1k_setcontourlevel + setDirectory = xform1 c_th1k_setdirectory + setEntries = xform1 c_th1k_setentries + setError = xform1 c_th1k_seterror + setLabelColorA = xform2 c_th1k_setlabelcolora + setLabelSizeA = xform2 c_th1k_setlabelsizea + setLabelFontA = xform2 c_th1k_setlabelfonta + setLabelOffsetA = xform2 c_th1k_setlabeloffseta + setMaximum = xform1 c_th1k_setmaximum + setMinimum = xform1 c_th1k_setminimum + setNormFactor = xform1 c_th1k_setnormfactor + setStats = xform1 c_th1k_setstats + setOption = xform1 c_th1k_setoption + setXTitle = xform1 c_th1k_setxtitle + setYTitle = xform1 c_th1k_setytitle + setZTitle = xform1 c_th1k_setztitle + showBackground = xform2 c_th1k_showbackground + showPeaks = xform3 c_th1k_showpeaks + smooth = xform2 c_th1k_smooth + sumw2 = xform0 c_th1k_sumw2 +instance ITArrayF TH1K +instance ITNamed TH1K where + setName = xform1 c_th1k_setname + setNameTitle = xform2 c_th1k_setnametitle + setTitle = xform1 c_th1k_settitle +instance ITAttLine TH1K where + getLineColor = xform0 c_th1k_getlinecolor + getLineStyle = xform0 c_th1k_getlinestyle + getLineWidth = xform0 c_th1k_getlinewidth + resetAttLine = xform1 c_th1k_resetattline + setLineAttributes = xform0 c_th1k_setlineattributes + setLineColor = xform1 c_th1k_setlinecolor + setLineStyle = xform1 c_th1k_setlinestyle + setLineWidth = xform1 c_th1k_setlinewidth +instance ITAttFill TH1K where + setFillColor = xform1 c_th1k_setfillcolor + setFillStyle = xform1 c_th1k_setfillstyle +instance ITAttMarker TH1K where + getMarkerColor = xform0 c_th1k_getmarkercolor + getMarkerStyle = xform0 c_th1k_getmarkerstyle + getMarkerSize = xform0 c_th1k_getmarkersize + resetAttMarker = xform1 c_th1k_resetattmarker + setMarkerAttributes = xform0 c_th1k_setmarkerattributes + setMarkerColor = xform1 c_th1k_setmarkercolor + setMarkerStyle = xform1 c_th1k_setmarkerstyle + setMarkerSize = xform1 c_th1k_setmarkersize +instance ITObject TH1K where + draw = xform1 c_th1k_draw + findObject = xform1 c_th1k_findobject + getName = xform0 c_th1k_getname + isA = xform0 c_th1k_isa + paint = xform1 c_th1k_paint + printObj = xform1 c_th1k_printobj + saveAs = xform2 c_th1k_saveas + write = xform3 c_th1k_write +instance IDeletable TH1K where + delete = xform0 c_th1k_delete -instance FPtr (Exist TH1K) where - type Raw (Exist TH1K) = RawTH1K - get_fptr (ETH1K obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1K (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1K) :: TH1K) +instance ITArray TH1K diff --git a/src/HROOT/Hist/TH1K/Interface.hs b/src/HROOT/Hist/TH1K/Interface.hs --- a/src/HROOT/Hist/TH1K/Interface.hs +++ b/src/HROOT/Hist/TH1K/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1K.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1K.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayF.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayF a) => ITH1K a where - -instance Existable TH1K where - data Exist TH1K = forall a. (FPtr a, ITH1K a) => ETH1K a +class (ITH1 a, ITArrayF a) => ITH1K a -upcastTH1K :: (FPtr a, ITH1K a) => a -> TH1K -upcastTH1K h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1K = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1K :: forall a . (FPtr a, ITH1K a) => a -> TH1K +upcastTH1K h + = let fh = get_fptr h + fh2 :: Ptr RawTH1K = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1K :: (FPtr a, ITH1K a) => TH1K -> a -downcastTH1K h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1K :: forall a . (FPtr a, ITH1K a) => TH1K -> a +downcastTH1K h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1K/RawType.hs b/src/HROOT/Hist/TH1K/RawType.hs --- a/src/HROOT/Hist/TH1K/RawType.hs +++ b/src/HROOT/Hist/TH1K/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1K.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1K -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1K = TH1K (Ptr RawTH1K) + deriving (Eq, Ord, Show) -data RawTH1K -newtype TH1K = TH1K (ForeignPtr RawTH1K) deriving (Eq, Ord, Show) instance FPtr TH1K where - type Raw TH1K = RawTH1K - get_fptr (TH1K fptr) = fptr - cast_fptr_to_obj = TH1K + type Raw TH1K = RawTH1K + get_fptr (TH1K ptr) = ptr + cast_fptr_to_obj = TH1K diff --git a/src/HROOT/Hist/TH1S.hs b/src/HROOT/Hist/TH1S.hs --- a/src/HROOT/Hist/TH1S.hs +++ b/src/HROOT/Hist/TH1S.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH1S - ( - TH1S(..) - , ITH1S - , upcastTH1S - , downcastTH1S - - - ) where - +module HROOT.Hist.TH1S (TH1S(..), ITH1S, upcastTH1S, downcastTH1S) + where import HROOT.Hist.TH1S.RawType import HROOT.Hist.TH1S.Interface import HROOT.Hist.TH1S.Implementation - - diff --git a/src/HROOT/Hist/TH1S/Cast.hs b/src/HROOT/Hist/TH1S/Cast.hs --- a/src/HROOT/Hist/TH1S/Cast.hs +++ b/src/HROOT/Hist/TH1S/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH1S.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH1S.RawType import HROOT.Hist.TH1S.Interface instance (ITH1S a, FPtr a) => Castable a (Ptr RawTH1S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH1S (Ptr RawTH1S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH1S/FFI.hsc b/src/HROOT/Hist/TH1S/FFI.hsc --- a/src/HROOT/Hist/TH1S/FFI.hsc +++ b/src/HROOT/Hist/TH1S/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH1S.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH1S.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -21,476 +11,524 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH1S.h" +foreign import ccall safe "HROOTHistTH1S.h TH1S_Add" c_th1s_add :: + Ptr RawTH1S -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Add" c_th1s_add - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_AddBinContent" + c_th1s_addbincontent :: Ptr RawTH1S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_AddBinContent" c_th1s_addbincontent - :: (Ptr RawTH1S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Chi2Test" + c_th1s_chi2test :: + Ptr RawTH1S -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_Chi2Test" c_th1s_chi2test - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_ComputeIntegral" + c_th1s_computeintegral :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_ComputeIntegral" c_th1s_computeintegral - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_DirectoryAutoAdd" + c_th1s_directoryautoadd :: + Ptr RawTH1S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_DirectoryAutoAdd" c_th1s_directoryautoadd - :: (Ptr RawTH1S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Divide" + c_th1s_divide :: + Ptr RawTH1S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Divide" c_th1s_divide - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_drawCopyTH1" + c_th1s_drawcopyth1 :: Ptr RawTH1S -> CString -> IO (Ptr RawTH1S) -foreign import ccall "HROOTHistTH1S.h TH1S_drawCopyTH1" c_th1s_drawcopyth1 - :: (Ptr RawTH1S) -> CString -> IO (Ptr RawTH1S) +foreign import ccall safe "HROOTHistTH1S.h TH1S_DrawNormalized" + c_th1s_drawnormalized :: + Ptr RawTH1S -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1S.h TH1S_DrawNormalized" c_th1s_drawnormalized - :: (Ptr RawTH1S) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1S.h TH1S_drawPanelTH1" + c_th1s_drawpanelth1 :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_drawPanelTH1" c_th1s_drawpanelth1 - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_BufferEmpty" + c_th1s_bufferempty :: Ptr RawTH1S -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_BufferEmpty" c_th1s_bufferempty - :: (Ptr RawTH1S) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_evalF" c_th1s_evalf + :: Ptr RawTH1S -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_evalF" c_th1s_evalf - :: (Ptr RawTH1S) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_FFT" c_th1s_fft :: + Ptr RawTH1S -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1S.h TH1S_FFT" c_th1s_fft - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1S.h TH1S_fill1" c_th1s_fill1 + :: Ptr RawTH1S -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_fill1" c_th1s_fill1 - :: (Ptr RawTH1S) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_fill1w" + c_th1s_fill1w :: Ptr RawTH1S -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_fill1w" c_th1s_fill1w - :: (Ptr RawTH1S) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_fillN1" + c_th1s_filln1 :: + Ptr RawTH1S -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_fillN1" c_th1s_filln1 - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_FillRandom" + c_th1s_fillrandom :: Ptr RawTH1S -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_FillRandom" c_th1s_fillrandom - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_FindBin" + c_th1s_findbin :: + Ptr RawTH1S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_FindBin" c_th1s_findbin - :: (Ptr RawTH1S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_FindFixBin" + c_th1s_findfixbin :: + Ptr RawTH1S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_FindFixBin" c_th1s_findfixbin - :: (Ptr RawTH1S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_FindFirstBinAbove" + c_th1s_findfirstbinabove :: + Ptr RawTH1S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_FindFirstBinAbove" c_th1s_findfirstbinabove - :: (Ptr RawTH1S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_FindLastBinAbove" + c_th1s_findlastbinabove :: + Ptr RawTH1S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_FindLastBinAbove" c_th1s_findlastbinabove - :: (Ptr RawTH1S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_Fit" c_th1s_fit :: + Ptr RawTH1S -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_FitPanelTH1" c_th1s_fitpanelth1 - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_FitPanelTH1" + c_th1s_fitpanelth1 :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_getNdivisionA" c_th1s_getndivisiona - :: (Ptr RawTH1S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getNdivisionA" + c_th1s_getndivisiona :: Ptr RawTH1S -> CString -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_getAxisColorA" c_th1s_getaxiscolora - :: (Ptr RawTH1S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getAxisColorA" + c_th1s_getaxiscolora :: Ptr RawTH1S -> CString -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_getLabelColorA" c_th1s_getlabelcolora - :: (Ptr RawTH1S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getLabelColorA" + c_th1s_getlabelcolora :: Ptr RawTH1S -> CString -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_getLabelFontA" c_th1s_getlabelfonta - :: (Ptr RawTH1S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getLabelFontA" + c_th1s_getlabelfonta :: Ptr RawTH1S -> CString -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_getLabelOffsetA" c_th1s_getlabeloffseta - :: (Ptr RawTH1S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getLabelOffsetA" + c_th1s_getlabeloffseta :: Ptr RawTH1S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getLabelSizeA" c_th1s_getlabelsizea - :: (Ptr RawTH1S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getLabelSizeA" + c_th1s_getlabelsizea :: Ptr RawTH1S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getTitleFontA" c_th1s_gettitlefonta - :: (Ptr RawTH1S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getTitleFontA" + c_th1s_gettitlefonta :: Ptr RawTH1S -> CString -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_getTitleOffsetA" c_th1s_gettitleoffseta - :: (Ptr RawTH1S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getTitleOffsetA" + c_th1s_gettitleoffseta :: Ptr RawTH1S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getTitleSizeA" c_th1s_gettitlesizea - :: (Ptr RawTH1S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getTitleSizeA" + c_th1s_gettitlesizea :: Ptr RawTH1S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getTickLengthA" c_th1s_getticklengtha - :: (Ptr RawTH1S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getTickLengthA" + c_th1s_getticklengtha :: Ptr RawTH1S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBarOffset" c_th1s_getbaroffset - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBarOffset" + c_th1s_getbaroffset :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBarWidth" c_th1s_getbarwidth - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBarWidth" + c_th1s_getbarwidth :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetContour" c_th1s_getcontour - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetContour" + c_th1s_getcontour :: Ptr RawTH1S -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetContourLevel" c_th1s_getcontourlevel - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetContourLevel" + c_th1s_getcontourlevel :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetContourLevelPad" c_th1s_getcontourlevelpad - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetContourLevelPad" + c_th1s_getcontourlevelpad :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBin" c_th1s_getbin - :: (Ptr RawTH1S) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBin" + c_th1s_getbin :: Ptr RawTH1S -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinCenter" c_th1s_getbincenter - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinCenter" + c_th1s_getbincenter :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinContent1" c_th1s_getbincontent1 - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinContent1" + c_th1s_getbincontent1 :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinContent2" c_th1s_getbincontent2 - :: (Ptr RawTH1S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinContent2" + c_th1s_getbincontent2 :: Ptr RawTH1S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinContent3" c_th1s_getbincontent3 - :: (Ptr RawTH1S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinContent3" + c_th1s_getbincontent3 :: + Ptr RawTH1S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinError1" c_th1s_getbinerror1 - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinError1" + c_th1s_getbinerror1 :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinError2" c_th1s_getbinerror2 - :: (Ptr RawTH1S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinError2" + c_th1s_getbinerror2 :: Ptr RawTH1S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinError3" c_th1s_getbinerror3 - :: (Ptr RawTH1S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinError3" + c_th1s_getbinerror3 :: + Ptr RawTH1S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinLowEdge" c_th1s_getbinlowedge - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinLowEdge" + c_th1s_getbinlowedge :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetBinWidth" c_th1s_getbinwidth - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetBinWidth" + c_th1s_getbinwidth :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetCellContent" c_th1s_getcellcontent - :: (Ptr RawTH1S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetCellContent" + c_th1s_getcellcontent :: Ptr RawTH1S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetCellError" c_th1s_getcellerror - :: (Ptr RawTH1S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetCellError" + c_th1s_getcellerror :: Ptr RawTH1S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetEntries" c_th1s_getentries - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetEntries" + c_th1s_getentries :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetEffectiveEntries" c_th1s_geteffectiveentries - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe + "HROOTHistTH1S.h TH1S_GetEffectiveEntries" + c_th1s_geteffectiveentries :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetFunction" c_th1s_getfunction - :: (Ptr RawTH1S) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetFunction" + c_th1s_getfunction :: Ptr RawTH1S -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH1S.h TH1S_GetDimension" c_th1s_getdimension - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetDimension" + c_th1s_getdimension :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetKurtosis" c_th1s_getkurtosis - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetKurtosis" + c_th1s_getkurtosis :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetLowEdge" c_th1s_getlowedge - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetLowEdge" + c_th1s_getlowedge :: Ptr RawTH1S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_getMaximumTH1" c_th1s_getmaximumth1 - :: (Ptr RawTH1S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getMaximumTH1" + c_th1s_getmaximumth1 :: Ptr RawTH1S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetMaximumBin" c_th1s_getmaximumbin - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMaximumBin" + c_th1s_getmaximumbin :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetMaximumStored" c_th1s_getmaximumstored - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMaximumStored" + c_th1s_getmaximumstored :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getMinimumTH1" c_th1s_getminimumth1 - :: (Ptr RawTH1S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_getMinimumTH1" + c_th1s_getminimumth1 :: Ptr RawTH1S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetMinimumBin" c_th1s_getminimumbin - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMinimumBin" + c_th1s_getminimumbin :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetMinimumStored" c_th1s_getminimumstored - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMinimumStored" + c_th1s_getminimumstored :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetMean" c_th1s_getmean - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMean" + c_th1s_getmean :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetMeanError" c_th1s_getmeanerror - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMeanError" + c_th1s_getmeanerror :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetNbinsX" c_th1s_getnbinsx - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetNbinsX" + c_th1s_getnbinsx :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetNbinsY" c_th1s_getnbinsy - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetNbinsY" + c_th1s_getnbinsy :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetNbinsZ" c_th1s_getnbinsz - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetNbinsZ" + c_th1s_getnbinsz :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_getQuantilesTH1" c_th1s_getquantilesth1 - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_getQuantilesTH1" + c_th1s_getquantilesth1 :: + Ptr RawTH1S -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetRandom" c_th1s_getrandom - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetRandom" + c_th1s_getrandom :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetStats" c_th1s_getstats - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetStats" + c_th1s_getstats :: Ptr RawTH1S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetSumOfWeights" c_th1s_getsumofweights - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetSumOfWeights" + c_th1s_getsumofweights :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetSumw2" c_th1s_getsumw2 - :: (Ptr RawTH1S) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetSumw2" + c_th1s_getsumw2 :: Ptr RawTH1S -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH1S.h TH1S_GetSumw2N" c_th1s_getsumw2n - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetSumw2N" + c_th1s_getsumw2n :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_GetRMS" c_th1s_getrms - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetRMS" + c_th1s_getrms :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetRMSError" c_th1s_getrmserror - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetRMSError" + c_th1s_getrmserror :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_GetSkewness" c_th1s_getskewness - :: (Ptr RawTH1S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetSkewness" + c_th1s_getskewness :: Ptr RawTH1S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_integral1" c_th1s_integral1 - :: (Ptr RawTH1S) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_integral1" + c_th1s_integral1 :: + Ptr RawTH1S -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_interpolate1" c_th1s_interpolate1 - :: (Ptr RawTH1S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_interpolate1" + c_th1s_interpolate1 :: Ptr RawTH1S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_interpolate2" c_th1s_interpolate2 - :: (Ptr RawTH1S) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_interpolate2" + c_th1s_interpolate2 :: + Ptr RawTH1S -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_interpolate3" c_th1s_interpolate3 - :: (Ptr RawTH1S) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_interpolate3" + c_th1s_interpolate3 :: + Ptr RawTH1S -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_KolmogorovTest" c_th1s_kolmogorovtest - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_KolmogorovTest" + c_th1s_kolmogorovtest :: + Ptr RawTH1S -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_LabelsDeflate" c_th1s_labelsdeflate - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_LabelsDeflate" + c_th1s_labelsdeflate :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_LabelsInflate" c_th1s_labelsinflate - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_LabelsInflate" + c_th1s_labelsinflate :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_LabelsOption" c_th1s_labelsoption - :: (Ptr RawTH1S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_LabelsOption" + c_th1s_labelsoption :: Ptr RawTH1S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_multiflyF" c_th1s_multiflyf - :: (Ptr RawTH1S) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_multiflyF" + c_th1s_multiflyf :: Ptr RawTH1S -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Multiply" c_th1s_multiply - :: (Ptr RawTH1S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Multiply" + c_th1s_multiply :: + Ptr RawTH1S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_PutStats" c_th1s_putstats - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_PutStats" + c_th1s_putstats :: Ptr RawTH1S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Rebin" c_th1s_rebin - :: (Ptr RawTH1S) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1S.h TH1S_Rebin" c_th1s_rebin + :: + Ptr RawTH1S -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1S.h TH1S_RebinAxis" c_th1s_rebinaxis - :: (Ptr RawTH1S) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_RebinAxis" + c_th1s_rebinaxis :: Ptr RawTH1S -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Rebuild" c_th1s_rebuild - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Rebuild" + c_th1s_rebuild :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_RecursiveRemove" c_th1s_recursiveremove - :: (Ptr RawTH1S) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_RecursiveRemove" + c_th1s_recursiveremove :: Ptr RawTH1S -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Reset" c_th1s_reset - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Reset" c_th1s_reset + :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_ResetStats" c_th1s_resetstats - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_ResetStats" + c_th1s_resetstats :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Scale" c_th1s_scale - :: (Ptr RawTH1S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Scale" c_th1s_scale + :: Ptr RawTH1S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setAxisColorA" c_th1s_setaxiscolora - :: (Ptr RawTH1S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setAxisColorA" + c_th1s_setaxiscolora :: Ptr RawTH1S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetAxisRange" c_th1s_setaxisrange - :: (Ptr RawTH1S) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetAxisRange" + c_th1s_setaxisrange :: + Ptr RawTH1S -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetBarOffset" c_th1s_setbaroffset - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetBarOffset" + c_th1s_setbaroffset :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetBarWidth" c_th1s_setbarwidth - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetBarWidth" + c_th1s_setbarwidth :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinContent1" c_th1s_setbincontent1 - :: (Ptr RawTH1S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinContent1" + c_th1s_setbincontent1 :: Ptr RawTH1S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinContent2" c_th1s_setbincontent2 - :: (Ptr RawTH1S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinContent2" + c_th1s_setbincontent2 :: + Ptr RawTH1S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinContent3" c_th1s_setbincontent3 - :: (Ptr RawTH1S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinContent3" + c_th1s_setbincontent3 :: + Ptr RawTH1S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinError1" c_th1s_setbinerror1 - :: (Ptr RawTH1S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinError1" + c_th1s_setbinerror1 :: Ptr RawTH1S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinError2" c_th1s_setbinerror2 - :: (Ptr RawTH1S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinError2" + c_th1s_setbinerror2 :: + Ptr RawTH1S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBinError3" c_th1s_setbinerror3 - :: (Ptr RawTH1S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBinError3" + c_th1s_setbinerror3 :: + Ptr RawTH1S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBins1" c_th1s_setbins1 - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBins1" + c_th1s_setbins1 :: Ptr RawTH1S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBins2" c_th1s_setbins2 - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBins2" + c_th1s_setbins2 :: + Ptr RawTH1S -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setBins3" c_th1s_setbins3 - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setBins3" + c_th1s_setbins3 :: + Ptr RawTH1S -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetBinsLength" c_th1s_setbinslength - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetBinsLength" + c_th1s_setbinslength :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetBuffer" c_th1s_setbuffer - :: (Ptr RawTH1S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetBuffer" + c_th1s_setbuffer :: Ptr RawTH1S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetCellContent" c_th1s_setcellcontent - :: (Ptr RawTH1S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetCellContent" + c_th1s_setcellcontent :: + Ptr RawTH1S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetContent" c_th1s_setcontent - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetContent" + c_th1s_setcontent :: Ptr RawTH1S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetContour" c_th1s_setcontour - :: (Ptr RawTH1S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetContour" + c_th1s_setcontour :: Ptr RawTH1S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetContourLevel" c_th1s_setcontourlevel - :: (Ptr RawTH1S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetContourLevel" + c_th1s_setcontourlevel :: Ptr RawTH1S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetDirectory" c_th1s_setdirectory - :: (Ptr RawTH1S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetDirectory" + c_th1s_setdirectory :: Ptr RawTH1S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetEntries" c_th1s_setentries - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetEntries" + c_th1s_setentries :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetError" c_th1s_seterror - :: (Ptr RawTH1S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetError" + c_th1s_seterror :: Ptr RawTH1S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setLabelColorA" c_th1s_setlabelcolora - :: (Ptr RawTH1S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setLabelColorA" + c_th1s_setlabelcolora :: Ptr RawTH1S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setLabelSizeA" c_th1s_setlabelsizea - :: (Ptr RawTH1S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setLabelSizeA" + c_th1s_setlabelsizea :: Ptr RawTH1S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setLabelFontA" c_th1s_setlabelfonta - :: (Ptr RawTH1S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setLabelFontA" + c_th1s_setlabelfonta :: Ptr RawTH1S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_setLabelOffsetA" c_th1s_setlabeloffseta - :: (Ptr RawTH1S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_setLabelOffsetA" + c_th1s_setlabeloffseta :: + Ptr RawTH1S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetMaximum" c_th1s_setmaximum - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetMaximum" + c_th1s_setmaximum :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetMinimum" c_th1s_setminimum - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetMinimum" + c_th1s_setminimum :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetNormFactor" c_th1s_setnormfactor - :: (Ptr RawTH1S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetNormFactor" + c_th1s_setnormfactor :: Ptr RawTH1S -> CDouble -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetStats" c_th1s_setstats - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetStats" + c_th1s_setstats :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetOption" c_th1s_setoption - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetOption" + c_th1s_setoption :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetXTitle" c_th1s_setxtitle - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetXTitle" + c_th1s_setxtitle :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetYTitle" c_th1s_setytitle - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetYTitle" + c_th1s_setytitle :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetZTitle" c_th1s_setztitle - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetZTitle" + c_th1s_setztitle :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_ShowBackground" c_th1s_showbackground - :: (Ptr RawTH1S) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH1S.h TH1S_ShowBackground" + c_th1s_showbackground :: + Ptr RawTH1S -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH1S.h TH1S_ShowPeaks" c_th1s_showpeaks - :: (Ptr RawTH1S) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_ShowPeaks" + c_th1s_showpeaks :: + Ptr RawTH1S -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_Smooth" c_th1s_smooth - :: (Ptr RawTH1S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Smooth" + c_th1s_smooth :: Ptr RawTH1S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Sumw2" c_th1s_sumw2 - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Sumw2" c_th1s_sumw2 + :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Draw" c_th1s_draw - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetName" + c_th1s_setname :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_FindObject" c_th1s_findobject - :: (Ptr RawTH1S) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetNameTitle" + c_th1s_setnametitle :: Ptr RawTH1S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetName" c_th1s_getname - :: (Ptr RawTH1S) -> IO CString +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetTitle" + c_th1s_settitle :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_IsA" c_th1s_isa - :: (Ptr RawTH1S) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetLineColor" + c_th1s_getlinecolor :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_Paint" c_th1s_paint - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetLineStyle" + c_th1s_getlinestyle :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_printObj" c_th1s_printobj - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetLineWidth" + c_th1s_getlinewidth :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_SaveAs" c_th1s_saveas - :: (Ptr RawTH1S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_ResetAttLine" + c_th1s_resetattline :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_Write" c_th1s_write - :: (Ptr RawTH1S) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetLineAttributes" + c_th1s_setlineattributes :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetLineColor" c_th1s_getlinecolor - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetLineColor" + c_th1s_setlinecolor :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetLineStyle" c_th1s_getlinestyle - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetLineStyle" + c_th1s_setlinestyle :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetLineWidth" c_th1s_getlinewidth - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetLineWidth" + c_th1s_setlinewidth :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_ResetAttLine" c_th1s_resetattline - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetFillColor" + c_th1s_setfillcolor :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetLineAttributes" c_th1s_setlineattributes - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetFillStyle" + c_th1s_setfillstyle :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetLineColor" c_th1s_setlinecolor - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMarkerColor" + c_th1s_getmarkercolor :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_SetLineStyle" c_th1s_setlinestyle - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMarkerStyle" + c_th1s_getmarkerstyle :: Ptr RawTH1S -> IO CInt -foreign import ccall "HROOTHistTH1S.h TH1S_SetLineWidth" c_th1s_setlinewidth - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetMarkerSize" + c_th1s_getmarkersize :: Ptr RawTH1S -> IO CDouble -foreign import ccall "HROOTHistTH1S.h TH1S_SetFillColor" c_th1s_setfillcolor - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_ResetAttMarker" + c_th1s_resetattmarker :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetFillStyle" c_th1s_setfillstyle - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH1S.h TH1S_SetMarkerAttributes" + c_th1s_setmarkerattributes :: Ptr RawTH1S -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetMarkerColor" c_th1s_getmarkercolor - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetMarkerColor" + c_th1s_setmarkercolor :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetMarkerStyle" c_th1s_getmarkerstyle - :: (Ptr RawTH1S) -> IO CInt +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetMarkerStyle" + c_th1s_setmarkerstyle :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_GetMarkerSize" c_th1s_getmarkersize - :: (Ptr RawTH1S) -> IO CDouble +foreign import ccall safe "HROOTHistTH1S.h TH1S_SetMarkerSize" + c_th1s_setmarkersize :: Ptr RawTH1S -> CInt -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_ResetAttMarker" c_th1s_resetattmarker - :: (Ptr RawTH1S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Draw" c_th1s_draw + :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_SetMarkerAttributes" c_th1s_setmarkerattributes - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_FindObject" + c_th1s_findobject :: Ptr RawTH1S -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH1S.h TH1S_SetMarkerColor" c_th1s_setmarkercolor - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_GetName" + c_th1s_getname :: Ptr RawTH1S -> IO CString -foreign import ccall "HROOTHistTH1S.h TH1S_SetMarkerStyle" c_th1s_setmarkerstyle - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_IsA" c_th1s_isa :: + Ptr RawTH1S -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH1S.h TH1S_SetMarkerSize" c_th1s_setmarkersize - :: (Ptr RawTH1S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_Paint" c_th1s_paint + :: Ptr RawTH1S -> CString -> IO () -foreign import ccall "HROOTHistTH1S.h TH1S_delete" c_th1s_delete - :: (Ptr RawTH1S) -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_printObj" + c_th1s_printobj :: Ptr RawTH1S -> CString -> IO () +foreign import ccall safe "HROOTHistTH1S.h TH1S_SaveAs" + c_th1s_saveas :: Ptr RawTH1S -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH1S.h TH1S_Write" c_th1s_write + :: Ptr RawTH1S -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH1S.h TH1S_delete" + c_th1s_delete :: Ptr RawTH1S -> IO () diff --git a/src/HROOT/Hist/TH1S/Implementation.hs b/src/HROOT/Hist/TH1S/Implementation.hs --- a/src/HROOT/Hist/TH1S/Implementation.hs +++ b/src/HROOT/Hist/TH1S/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1S.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH1S.RawType import HROOT.Hist.TH1S.FFI import HROOT.Hist.TH1S.Interface @@ -32,9 +33,9 @@ import HROOT.Core.TArrayS.RawType import HROOT.Core.TArrayS.Cast import HROOT.Core.TArrayS.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -44,6 +45,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -51,358 +55,183 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH1S TH1S -instance ITH1S TH1S where instance ITH1 TH1S where - add = xform2 c_th1s_add - addBinContent = xform2 c_th1s_addbincontent - chi2Test = xform3 c_th1s_chi2test - computeIntegral = xform0 c_th1s_computeintegral - directoryAutoAdd = xform1 c_th1s_directoryautoadd - divide = xform5 c_th1s_divide - drawCopyTH1 = xform1 c_th1s_drawcopyth1 - drawNormalized = xform2 c_th1s_drawnormalized - drawPanelTH1 = xform0 c_th1s_drawpanelth1 - bufferEmpty = xform1 c_th1s_bufferempty - evalF = xform2 c_th1s_evalf - fFT = xform2 c_th1s_fft - fill1 = xform1 c_th1s_fill1 - fill1w = xform2 c_th1s_fill1w - fillN1 = xform4 c_th1s_filln1 - fillRandom = xform2 c_th1s_fillrandom - findBin = xform3 c_th1s_findbin - findFixBin = xform3 c_th1s_findfixbin - findFirstBinAbove = xform2 c_th1s_findfirstbinabove - findLastBinAbove = xform2 c_th1s_findlastbinabove - fitPanelTH1 = xform0 c_th1s_fitpanelth1 - getNdivisionA = xform1 c_th1s_getndivisiona - getAxisColorA = xform1 c_th1s_getaxiscolora - getLabelColorA = xform1 c_th1s_getlabelcolora - getLabelFontA = xform1 c_th1s_getlabelfonta - getLabelOffsetA = xform1 c_th1s_getlabeloffseta - getLabelSizeA = xform1 c_th1s_getlabelsizea - getTitleFontA = xform1 c_th1s_gettitlefonta - getTitleOffsetA = xform1 c_th1s_gettitleoffseta - getTitleSizeA = xform1 c_th1s_gettitlesizea - getTickLengthA = xform1 c_th1s_getticklengtha - getBarOffset = xform0 c_th1s_getbaroffset - getBarWidth = xform0 c_th1s_getbarwidth - getContour = xform1 c_th1s_getcontour - getContourLevel = xform1 c_th1s_getcontourlevel - getContourLevelPad = xform1 c_th1s_getcontourlevelpad - getBin = xform3 c_th1s_getbin - getBinCenter = xform1 c_th1s_getbincenter - getBinContent1 = xform1 c_th1s_getbincontent1 - getBinContent2 = xform2 c_th1s_getbincontent2 - getBinContent3 = xform3 c_th1s_getbincontent3 - getBinError1 = xform1 c_th1s_getbinerror1 - getBinError2 = xform2 c_th1s_getbinerror2 - getBinError3 = xform3 c_th1s_getbinerror3 - getBinLowEdge = xform1 c_th1s_getbinlowedge - getBinWidth = xform1 c_th1s_getbinwidth - getCellContent = xform2 c_th1s_getcellcontent - getCellError = xform2 c_th1s_getcellerror - getEntries = xform0 c_th1s_getentries - getEffectiveEntries = xform0 c_th1s_geteffectiveentries - getFunction = xform1 c_th1s_getfunction - getDimension = xform0 c_th1s_getdimension - getKurtosis = xform1 c_th1s_getkurtosis - getLowEdge = xform1 c_th1s_getlowedge - getMaximumTH1 = xform1 c_th1s_getmaximumth1 - getMaximumBin = xform0 c_th1s_getmaximumbin - getMaximumStored = xform0 c_th1s_getmaximumstored - getMinimumTH1 = xform1 c_th1s_getminimumth1 - getMinimumBin = xform0 c_th1s_getminimumbin - getMinimumStored = xform0 c_th1s_getminimumstored - getMean = xform1 c_th1s_getmean - getMeanError = xform1 c_th1s_getmeanerror - getNbinsX = xform0 c_th1s_getnbinsx - getNbinsY = xform0 c_th1s_getnbinsy - getNbinsZ = xform0 c_th1s_getnbinsz - getQuantilesTH1 = xform3 c_th1s_getquantilesth1 - getRandom = xform0 c_th1s_getrandom - getStats = xform1 c_th1s_getstats - getSumOfWeights = xform0 c_th1s_getsumofweights - getSumw2 = xform0 c_th1s_getsumw2 - getSumw2N = xform0 c_th1s_getsumw2n - getRMS = xform1 c_th1s_getrms - getRMSError = xform1 c_th1s_getrmserror - getSkewness = xform1 c_th1s_getskewness - integral1 = xform3 c_th1s_integral1 - interpolate1 = xform1 c_th1s_interpolate1 - interpolate2 = xform2 c_th1s_interpolate2 - interpolate3 = xform3 c_th1s_interpolate3 - kolmogorovTest = xform2 c_th1s_kolmogorovtest - labelsDeflate = xform1 c_th1s_labelsdeflate - labelsInflate = xform1 c_th1s_labelsinflate - labelsOption = xform2 c_th1s_labelsoption - multiflyF = xform2 c_th1s_multiflyf - multiply = xform5 c_th1s_multiply - putStats = xform1 c_th1s_putstats - rebin = xform3 c_th1s_rebin - rebinAxis = xform2 c_th1s_rebinaxis - rebuild = xform1 c_th1s_rebuild - recursiveRemove = xform1 c_th1s_recursiveremove - reset = xform1 c_th1s_reset - resetStats = xform0 c_th1s_resetstats - scale = xform2 c_th1s_scale - setAxisColorA = xform2 c_th1s_setaxiscolora - setAxisRange = xform3 c_th1s_setaxisrange - setBarOffset = xform1 c_th1s_setbaroffset - setBarWidth = xform1 c_th1s_setbarwidth - setBinContent1 = xform2 c_th1s_setbincontent1 - setBinContent2 = xform3 c_th1s_setbincontent2 - setBinContent3 = xform4 c_th1s_setbincontent3 - setBinError1 = xform2 c_th1s_setbinerror1 - setBinError2 = xform3 c_th1s_setbinerror2 - setBinError3 = xform4 c_th1s_setbinerror3 - setBins1 = xform2 c_th1s_setbins1 - setBins2 = xform4 c_th1s_setbins2 - setBins3 = xform6 c_th1s_setbins3 - setBinsLength = xform1 c_th1s_setbinslength - setBuffer = xform2 c_th1s_setbuffer - setCellContent = xform3 c_th1s_setcellcontent - setContent = xform1 c_th1s_setcontent - setContour = xform2 c_th1s_setcontour - setContourLevel = xform2 c_th1s_setcontourlevel - setDirectory = xform1 c_th1s_setdirectory - setEntries = xform1 c_th1s_setentries - setError = xform1 c_th1s_seterror - setLabelColorA = xform2 c_th1s_setlabelcolora - setLabelSizeA = xform2 c_th1s_setlabelsizea - setLabelFontA = xform2 c_th1s_setlabelfonta - setLabelOffsetA = xform2 c_th1s_setlabeloffseta - setMaximum = xform1 c_th1s_setmaximum - setMinimum = xform1 c_th1s_setminimum - setNormFactor = xform1 c_th1s_setnormfactor - setStats = xform1 c_th1s_setstats - setOption = xform1 c_th1s_setoption - setXTitle = xform1 c_th1s_setxtitle - setYTitle = xform1 c_th1s_setytitle - setZTitle = xform1 c_th1s_setztitle - showBackground = xform2 c_th1s_showbackground - showPeaks = xform3 c_th1s_showpeaks - smooth = xform2 c_th1s_smooth - sumw2 = xform0 c_th1s_sumw2 -instance ITArrayS TH1S where -instance ITObject TH1S where - draw = xform1 c_th1s_draw - findObject = xform1 c_th1s_findobject - getName = xform0 c_th1s_getname - isA = xform0 c_th1s_isa - paint = xform1 c_th1s_paint - printObj = xform1 c_th1s_printobj - saveAs = xform2 c_th1s_saveas - write = xform3 c_th1s_write -instance ITAttLine TH1S where - getLineColor = xform0 c_th1s_getlinecolor - getLineStyle = xform0 c_th1s_getlinestyle - getLineWidth = xform0 c_th1s_getlinewidth - resetAttLine = xform1 c_th1s_resetattline - setLineAttributes = xform0 c_th1s_setlineattributes - setLineColor = xform1 c_th1s_setlinecolor - setLineStyle = xform1 c_th1s_setlinestyle - setLineWidth = xform1 c_th1s_setlinewidth -instance ITAttFill TH1S where - setFillColor = xform1 c_th1s_setfillcolor - setFillStyle = xform1 c_th1s_setfillstyle -instance ITAttMarker TH1S where - getMarkerColor = xform0 c_th1s_getmarkercolor - getMarkerStyle = xform0 c_th1s_getmarkerstyle - getMarkerSize = xform0 c_th1s_getmarkersize - resetAttMarker = xform1 c_th1s_resetattmarker - setMarkerAttributes = xform0 c_th1s_setmarkerattributes - setMarkerColor = xform1 c_th1s_setmarkercolor - setMarkerStyle = xform1 c_th1s_setmarkerstyle - setMarkerSize = xform1 c_th1s_setmarkersize -instance IDeletable TH1S where - delete = xform0 c_th1s_delete -instance ITArray TH1S where - -instance ITH1S (Exist TH1S) where - -instance ITH1 (Exist TH1S) where - add (ETH1S x) = add x - addBinContent (ETH1S x) = addBinContent x - chi2Test (ETH1S x) = chi2Test x - computeIntegral (ETH1S x) = computeIntegral x - directoryAutoAdd (ETH1S x) = directoryAutoAdd x - divide (ETH1S x) = divide x - drawCopyTH1 (ETH1S x) a1 = return . ETH1S =<< drawCopyTH1 x a1 - drawNormalized (ETH1S x) = drawNormalized x - drawPanelTH1 (ETH1S x) = drawPanelTH1 x - bufferEmpty (ETH1S x) = bufferEmpty x - evalF (ETH1S x) = evalF x - fFT (ETH1S x) = fFT x - fill1 (ETH1S x) = fill1 x - fill1w (ETH1S x) = fill1w x - fillN1 (ETH1S x) = fillN1 x - fillRandom (ETH1S x) = fillRandom x - findBin (ETH1S x) = findBin x - findFixBin (ETH1S x) = findFixBin x - findFirstBinAbove (ETH1S x) = findFirstBinAbove x - findLastBinAbove (ETH1S x) = findLastBinAbove x - fitPanelTH1 (ETH1S x) = fitPanelTH1 x - getNdivisionA (ETH1S x) = getNdivisionA x - getAxisColorA (ETH1S x) = getAxisColorA x - getLabelColorA (ETH1S x) = getLabelColorA x - getLabelFontA (ETH1S x) = getLabelFontA x - getLabelOffsetA (ETH1S x) = getLabelOffsetA x - getLabelSizeA (ETH1S x) = getLabelSizeA x - getTitleFontA (ETH1S x) = getTitleFontA x - getTitleOffsetA (ETH1S x) = getTitleOffsetA x - getTitleSizeA (ETH1S x) = getTitleSizeA x - getTickLengthA (ETH1S x) = getTickLengthA x - getBarOffset (ETH1S x) = getBarOffset x - getBarWidth (ETH1S x) = getBarWidth x - getContour (ETH1S x) = getContour x - getContourLevel (ETH1S x) = getContourLevel x - getContourLevelPad (ETH1S x) = getContourLevelPad x - getBin (ETH1S x) = getBin x - getBinCenter (ETH1S x) = getBinCenter x - getBinContent1 (ETH1S x) = getBinContent1 x - getBinContent2 (ETH1S x) = getBinContent2 x - getBinContent3 (ETH1S x) = getBinContent3 x - getBinError1 (ETH1S x) = getBinError1 x - getBinError2 (ETH1S x) = getBinError2 x - getBinError3 (ETH1S x) = getBinError3 x - getBinLowEdge (ETH1S x) = getBinLowEdge x - getBinWidth (ETH1S x) = getBinWidth x - getCellContent (ETH1S x) = getCellContent x - getCellError (ETH1S x) = getCellError x - getEntries (ETH1S x) = getEntries x - getEffectiveEntries (ETH1S x) = getEffectiveEntries x - getFunction (ETH1S x) = getFunction x - getDimension (ETH1S x) = getDimension x - getKurtosis (ETH1S x) = getKurtosis x - getLowEdge (ETH1S x) = getLowEdge x - getMaximumTH1 (ETH1S x) = getMaximumTH1 x - getMaximumBin (ETH1S x) = getMaximumBin x - getMaximumStored (ETH1S x) = getMaximumStored x - getMinimumTH1 (ETH1S x) = getMinimumTH1 x - getMinimumBin (ETH1S x) = getMinimumBin x - getMinimumStored (ETH1S x) = getMinimumStored x - getMean (ETH1S x) = getMean x - getMeanError (ETH1S x) = getMeanError x - getNbinsX (ETH1S x) = getNbinsX x - getNbinsY (ETH1S x) = getNbinsY x - getNbinsZ (ETH1S x) = getNbinsZ x - getQuantilesTH1 (ETH1S x) = getQuantilesTH1 x - getRandom (ETH1S x) = getRandom x - getStats (ETH1S x) = getStats x - getSumOfWeights (ETH1S x) = getSumOfWeights x - getSumw2 (ETH1S x) = getSumw2 x - getSumw2N (ETH1S x) = getSumw2N x - getRMS (ETH1S x) = getRMS x - getRMSError (ETH1S x) = getRMSError x - getSkewness (ETH1S x) = getSkewness x - integral1 (ETH1S x) = integral1 x - interpolate1 (ETH1S x) = interpolate1 x - interpolate2 (ETH1S x) = interpolate2 x - interpolate3 (ETH1S x) = interpolate3 x - kolmogorovTest (ETH1S x) = kolmogorovTest x - labelsDeflate (ETH1S x) = labelsDeflate x - labelsInflate (ETH1S x) = labelsInflate x - labelsOption (ETH1S x) = labelsOption x - multiflyF (ETH1S x) = multiflyF x - multiply (ETH1S x) = multiply x - putStats (ETH1S x) = putStats x - rebin (ETH1S x) = rebin x - rebinAxis (ETH1S x) = rebinAxis x - rebuild (ETH1S x) = rebuild x - recursiveRemove (ETH1S x) = recursiveRemove x - reset (ETH1S x) = reset x - resetStats (ETH1S x) = resetStats x - scale (ETH1S x) = scale x - setAxisColorA (ETH1S x) = setAxisColorA x - setAxisRange (ETH1S x) = setAxisRange x - setBarOffset (ETH1S x) = setBarOffset x - setBarWidth (ETH1S x) = setBarWidth x - setBinContent1 (ETH1S x) = setBinContent1 x - setBinContent2 (ETH1S x) = setBinContent2 x - setBinContent3 (ETH1S x) = setBinContent3 x - setBinError1 (ETH1S x) = setBinError1 x - setBinError2 (ETH1S x) = setBinError2 x - setBinError3 (ETH1S x) = setBinError3 x - setBins1 (ETH1S x) = setBins1 x - setBins2 (ETH1S x) = setBins2 x - setBins3 (ETH1S x) = setBins3 x - setBinsLength (ETH1S x) = setBinsLength x - setBuffer (ETH1S x) = setBuffer x - setCellContent (ETH1S x) = setCellContent x - setContent (ETH1S x) = setContent x - setContour (ETH1S x) = setContour x - setContourLevel (ETH1S x) = setContourLevel x - setDirectory (ETH1S x) = setDirectory x - setEntries (ETH1S x) = setEntries x - setError (ETH1S x) = setError x - setLabelColorA (ETH1S x) = setLabelColorA x - setLabelSizeA (ETH1S x) = setLabelSizeA x - setLabelFontA (ETH1S x) = setLabelFontA x - setLabelOffsetA (ETH1S x) = setLabelOffsetA x - setMaximum (ETH1S x) = setMaximum x - setMinimum (ETH1S x) = setMinimum x - setNormFactor (ETH1S x) = setNormFactor x - setStats (ETH1S x) = setStats x - setOption (ETH1S x) = setOption x - setXTitle (ETH1S x) = setXTitle x - setYTitle (ETH1S x) = setYTitle x - setZTitle (ETH1S x) = setZTitle x - showBackground (ETH1S x) = showBackground x - showPeaks (ETH1S x) = showPeaks x - smooth (ETH1S x) = smooth x - sumw2 (ETH1S x) = sumw2 x -instance ITArrayS (Exist TH1S) where - -instance ITObject (Exist TH1S) where - draw (ETH1S x) = draw x - findObject (ETH1S x) = findObject x - getName (ETH1S x) = getName x - isA (ETH1S x) = isA x - paint (ETH1S x) = paint x - printObj (ETH1S x) = printObj x - saveAs (ETH1S x) = saveAs x - write (ETH1S x) = write x -instance ITAttLine (Exist TH1S) where - getLineColor (ETH1S x) = getLineColor x - getLineStyle (ETH1S x) = getLineStyle x - getLineWidth (ETH1S x) = getLineWidth x - resetAttLine (ETH1S x) = resetAttLine x - setLineAttributes (ETH1S x) = setLineAttributes x - setLineColor (ETH1S x) = setLineColor x - setLineStyle (ETH1S x) = setLineStyle x - setLineWidth (ETH1S x) = setLineWidth x -instance ITAttFill (Exist TH1S) where - setFillColor (ETH1S x) = setFillColor x - setFillStyle (ETH1S x) = setFillStyle x -instance ITAttMarker (Exist TH1S) where - getMarkerColor (ETH1S x) = getMarkerColor x - getMarkerStyle (ETH1S x) = getMarkerStyle x - getMarkerSize (ETH1S x) = getMarkerSize x - resetAttMarker (ETH1S x) = resetAttMarker x - setMarkerAttributes (ETH1S x) = setMarkerAttributes x - setMarkerColor (ETH1S x) = setMarkerColor x - setMarkerStyle (ETH1S x) = setMarkerStyle x - setMarkerSize (ETH1S x) = setMarkerSize x -instance IDeletable (Exist TH1S) where - delete (ETH1S x) = delete x -instance ITArray (Exist TH1S) where + add = xform2 c_th1s_add + addBinContent = xform2 c_th1s_addbincontent + chi2Test = xform3 c_th1s_chi2test + computeIntegral = xform0 c_th1s_computeintegral + directoryAutoAdd = xform1 c_th1s_directoryautoadd + divide = xform5 c_th1s_divide + drawCopyTH1 = xform1 c_th1s_drawcopyth1 + drawNormalized = xform2 c_th1s_drawnormalized + drawPanelTH1 = xform0 c_th1s_drawpanelth1 + bufferEmpty = xform1 c_th1s_bufferempty + evalF = xform2 c_th1s_evalf + fFT = xform2 c_th1s_fft + fill1 = xform1 c_th1s_fill1 + fill1w = xform2 c_th1s_fill1w + fillN1 = xform4 c_th1s_filln1 + fillRandom = xform2 c_th1s_fillrandom + findBin = xform3 c_th1s_findbin + findFixBin = xform3 c_th1s_findfixbin + findFirstBinAbove = xform2 c_th1s_findfirstbinabove + findLastBinAbove = xform2 c_th1s_findlastbinabove + fit = xform5 c_th1s_fit + fitPanelTH1 = xform0 c_th1s_fitpanelth1 + getNdivisionA = xform1 c_th1s_getndivisiona + getAxisColorA = xform1 c_th1s_getaxiscolora + getLabelColorA = xform1 c_th1s_getlabelcolora + getLabelFontA = xform1 c_th1s_getlabelfonta + getLabelOffsetA = xform1 c_th1s_getlabeloffseta + getLabelSizeA = xform1 c_th1s_getlabelsizea + getTitleFontA = xform1 c_th1s_gettitlefonta + getTitleOffsetA = xform1 c_th1s_gettitleoffseta + getTitleSizeA = xform1 c_th1s_gettitlesizea + getTickLengthA = xform1 c_th1s_getticklengtha + getBarOffset = xform0 c_th1s_getbaroffset + getBarWidth = xform0 c_th1s_getbarwidth + getContour = xform1 c_th1s_getcontour + getContourLevel = xform1 c_th1s_getcontourlevel + getContourLevelPad = xform1 c_th1s_getcontourlevelpad + getBin = xform3 c_th1s_getbin + getBinCenter = xform1 c_th1s_getbincenter + getBinContent1 = xform1 c_th1s_getbincontent1 + getBinContent2 = xform2 c_th1s_getbincontent2 + getBinContent3 = xform3 c_th1s_getbincontent3 + getBinError1 = xform1 c_th1s_getbinerror1 + getBinError2 = xform2 c_th1s_getbinerror2 + getBinError3 = xform3 c_th1s_getbinerror3 + getBinLowEdge = xform1 c_th1s_getbinlowedge + getBinWidth = xform1 c_th1s_getbinwidth + getCellContent = xform2 c_th1s_getcellcontent + getCellError = xform2 c_th1s_getcellerror + getEntries = xform0 c_th1s_getentries + getEffectiveEntries = xform0 c_th1s_geteffectiveentries + getFunction = xform1 c_th1s_getfunction + getDimension = xform0 c_th1s_getdimension + getKurtosis = xform1 c_th1s_getkurtosis + getLowEdge = xform1 c_th1s_getlowedge + getMaximumTH1 = xform1 c_th1s_getmaximumth1 + getMaximumBin = xform0 c_th1s_getmaximumbin + getMaximumStored = xform0 c_th1s_getmaximumstored + getMinimumTH1 = xform1 c_th1s_getminimumth1 + getMinimumBin = xform0 c_th1s_getminimumbin + getMinimumStored = xform0 c_th1s_getminimumstored + getMean = xform1 c_th1s_getmean + getMeanError = xform1 c_th1s_getmeanerror + getNbinsX = xform0 c_th1s_getnbinsx + getNbinsY = xform0 c_th1s_getnbinsy + getNbinsZ = xform0 c_th1s_getnbinsz + getQuantilesTH1 = xform3 c_th1s_getquantilesth1 + getRandom = xform0 c_th1s_getrandom + getStats = xform1 c_th1s_getstats + getSumOfWeights = xform0 c_th1s_getsumofweights + getSumw2 = xform0 c_th1s_getsumw2 + getSumw2N = xform0 c_th1s_getsumw2n + getRMS = xform1 c_th1s_getrms + getRMSError = xform1 c_th1s_getrmserror + getSkewness = xform1 c_th1s_getskewness + integral1 = xform3 c_th1s_integral1 + interpolate1 = xform1 c_th1s_interpolate1 + interpolate2 = xform2 c_th1s_interpolate2 + interpolate3 = xform3 c_th1s_interpolate3 + kolmogorovTest = xform2 c_th1s_kolmogorovtest + labelsDeflate = xform1 c_th1s_labelsdeflate + labelsInflate = xform1 c_th1s_labelsinflate + labelsOption = xform2 c_th1s_labelsoption + multiflyF = xform2 c_th1s_multiflyf + multiply = xform5 c_th1s_multiply + putStats = xform1 c_th1s_putstats + rebin = xform3 c_th1s_rebin + rebinAxis = xform2 c_th1s_rebinaxis + rebuild = xform1 c_th1s_rebuild + recursiveRemove = xform1 c_th1s_recursiveremove + reset = xform1 c_th1s_reset + resetStats = xform0 c_th1s_resetstats + scale = xform2 c_th1s_scale + setAxisColorA = xform2 c_th1s_setaxiscolora + setAxisRange = xform3 c_th1s_setaxisrange + setBarOffset = xform1 c_th1s_setbaroffset + setBarWidth = xform1 c_th1s_setbarwidth + setBinContent1 = xform2 c_th1s_setbincontent1 + setBinContent2 = xform3 c_th1s_setbincontent2 + setBinContent3 = xform4 c_th1s_setbincontent3 + setBinError1 = xform2 c_th1s_setbinerror1 + setBinError2 = xform3 c_th1s_setbinerror2 + setBinError3 = xform4 c_th1s_setbinerror3 + setBins1 = xform2 c_th1s_setbins1 + setBins2 = xform4 c_th1s_setbins2 + setBins3 = xform6 c_th1s_setbins3 + setBinsLength = xform1 c_th1s_setbinslength + setBuffer = xform2 c_th1s_setbuffer + setCellContent = xform3 c_th1s_setcellcontent + setContent = xform1 c_th1s_setcontent + setContour = xform2 c_th1s_setcontour + setContourLevel = xform2 c_th1s_setcontourlevel + setDirectory = xform1 c_th1s_setdirectory + setEntries = xform1 c_th1s_setentries + setError = xform1 c_th1s_seterror + setLabelColorA = xform2 c_th1s_setlabelcolora + setLabelSizeA = xform2 c_th1s_setlabelsizea + setLabelFontA = xform2 c_th1s_setlabelfonta + setLabelOffsetA = xform2 c_th1s_setlabeloffseta + setMaximum = xform1 c_th1s_setmaximum + setMinimum = xform1 c_th1s_setminimum + setNormFactor = xform1 c_th1s_setnormfactor + setStats = xform1 c_th1s_setstats + setOption = xform1 c_th1s_setoption + setXTitle = xform1 c_th1s_setxtitle + setYTitle = xform1 c_th1s_setytitle + setZTitle = xform1 c_th1s_setztitle + showBackground = xform2 c_th1s_showbackground + showPeaks = xform3 c_th1s_showpeaks + smooth = xform2 c_th1s_smooth + sumw2 = xform0 c_th1s_sumw2 +instance ITArrayS TH1S +instance ITNamed TH1S where + setName = xform1 c_th1s_setname + setNameTitle = xform2 c_th1s_setnametitle + setTitle = xform1 c_th1s_settitle +instance ITAttLine TH1S where + getLineColor = xform0 c_th1s_getlinecolor + getLineStyle = xform0 c_th1s_getlinestyle + getLineWidth = xform0 c_th1s_getlinewidth + resetAttLine = xform1 c_th1s_resetattline + setLineAttributes = xform0 c_th1s_setlineattributes + setLineColor = xform1 c_th1s_setlinecolor + setLineStyle = xform1 c_th1s_setlinestyle + setLineWidth = xform1 c_th1s_setlinewidth +instance ITAttFill TH1S where + setFillColor = xform1 c_th1s_setfillcolor + setFillStyle = xform1 c_th1s_setfillstyle +instance ITAttMarker TH1S where + getMarkerColor = xform0 c_th1s_getmarkercolor + getMarkerStyle = xform0 c_th1s_getmarkerstyle + getMarkerSize = xform0 c_th1s_getmarkersize + resetAttMarker = xform1 c_th1s_resetattmarker + setMarkerAttributes = xform0 c_th1s_setmarkerattributes + setMarkerColor = xform1 c_th1s_setmarkercolor + setMarkerStyle = xform1 c_th1s_setmarkerstyle + setMarkerSize = xform1 c_th1s_setmarkersize +instance ITObject TH1S where + draw = xform1 c_th1s_draw + findObject = xform1 c_th1s_findobject + getName = xform0 c_th1s_getname + isA = xform0 c_th1s_isa + paint = xform1 c_th1s_paint + printObj = xform1 c_th1s_printobj + saveAs = xform2 c_th1s_saveas + write = xform3 c_th1s_write +instance IDeletable TH1S where + delete = xform0 c_th1s_delete -instance FPtr (Exist TH1S) where - type Raw (Exist TH1S) = RawTH1S - get_fptr (ETH1S obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH1S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1S) :: TH1S) +instance ITArray TH1S diff --git a/src/HROOT/Hist/TH1S/Interface.hs b/src/HROOT/Hist/TH1S/Interface.hs --- a/src/HROOT/Hist/TH1S/Interface.hs +++ b/src/HROOT/Hist/TH1S/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH1S.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH1S.RawType - import HROOT.Hist.TH1.Interface import HROOT.Core.TArrayS.Interface ----- ============ ---- - - -class (ITH1 a,ITArrayS a) => ITH1S a where - -instance Existable TH1S where - data Exist TH1S = forall a. (FPtr a, ITH1S a) => ETH1S a +class (ITH1 a, ITArrayS a) => ITH1S a -upcastTH1S :: (FPtr a, ITH1S a) => a -> TH1S -upcastTH1S h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH1S = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH1S :: forall a . (FPtr a, ITH1S a) => a -> TH1S +upcastTH1S h + = let fh = get_fptr h + fh2 :: Ptr RawTH1S = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH1S :: (FPtr a, ITH1S a) => TH1S -> a -downcastTH1S h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH1S :: forall a . (FPtr a, ITH1S a) => TH1S -> a +downcastTH1S h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH1S/RawType.hs b/src/HROOT/Hist/TH1S/RawType.hs --- a/src/HROOT/Hist/TH1S/RawType.hs +++ b/src/HROOT/Hist/TH1S/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH1S.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH1S -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH1S = TH1S (Ptr RawTH1S) + deriving (Eq, Ord, Show) -data RawTH1S -newtype TH1S = TH1S (ForeignPtr RawTH1S) deriving (Eq, Ord, Show) instance FPtr TH1S where - type Raw TH1S = RawTH1S - get_fptr (TH1S fptr) = fptr - cast_fptr_to_obj = TH1S + type Raw TH1S = RawTH1S + get_fptr (TH1S ptr) = ptr + cast_fptr_to_obj = TH1S diff --git a/src/HROOT/Hist/TH2.hs b/src/HROOT/Hist/TH2.hs --- a/src/HROOT/Hist/TH2.hs +++ b/src/HROOT/Hist/TH2.hs @@ -1,16 +1,7 @@ module HROOT.Hist.TH2 - ( - TH2(..) - , ITH2(..) - , upcastTH2 - , downcastTH2 - , tH2ProjectionX - , tH2ProjectionY - - ) where - + (TH2(..), ITH2(..), upcastTH2, downcastTH2, tH2ProjectionX, + tH2ProjectionY) + where import HROOT.Hist.TH2.RawType import HROOT.Hist.TH2.Interface import HROOT.Hist.TH2.Implementation - - diff --git a/src/HROOT/Hist/TH2/Cast.hs b/src/HROOT/Hist/TH2/Cast.hs --- a/src/HROOT/Hist/TH2/Cast.hs +++ b/src/HROOT/Hist/TH2/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2.RawType import HROOT.Hist.TH2.Interface instance (ITH2 a, FPtr a) => Castable a (Ptr RawTH2) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2 (Ptr RawTH2) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2/FFI.hsc b/src/HROOT/Hist/TH2/FFI.hsc --- a/src/HROOT/Hist/TH2/FFI.hsc +++ b/src/HROOT/Hist/TH2/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -23,530 +13,589 @@ import HROOT.Hist.TH1D.RawType import HROOT.Core.TObjArray.RawType -#include "HROOTHistTH2.h" +foreign import ccall safe "HROOTHistTH2.h TH2_Add" c_th2_add :: + Ptr RawTH2 -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Add" c_th2_add - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_AddBinContent" + c_th2_addbincontent :: Ptr RawTH2 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_AddBinContent" c_th2_addbincontent - :: (Ptr RawTH2) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Chi2Test" + c_th2_chi2test :: + Ptr RawTH2 -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_Chi2Test" c_th2_chi2test - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_ComputeIntegral" + c_th2_computeintegral :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_ComputeIntegral" c_th2_computeintegral - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_DirectoryAutoAdd" + c_th2_directoryautoadd :: Ptr RawTH2 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2.h TH2_DirectoryAutoAdd" c_th2_directoryautoadd - :: (Ptr RawTH2) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Divide" c_th2_divide + :: + Ptr RawTH2 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Divide" c_th2_divide - :: (Ptr RawTH2) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_drawCopyTH1" + c_th2_drawcopyth1 :: Ptr RawTH2 -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2.h TH2_drawCopyTH1" c_th2_drawcopyth1 - :: (Ptr RawTH2) -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2.h TH2_DrawNormalized" + c_th2_drawnormalized :: + Ptr RawTH2 -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2.h TH2_DrawNormalized" c_th2_drawnormalized - :: (Ptr RawTH2) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2.h TH2_drawPanelTH1" + c_th2_drawpanelth1 :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_drawPanelTH1" c_th2_drawpanelth1 - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_BufferEmpty" + c_th2_bufferempty :: Ptr RawTH2 -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_BufferEmpty" c_th2_bufferempty - :: (Ptr RawTH2) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_evalF" c_th2_evalf :: + Ptr RawTH2 -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_evalF" c_th2_evalf - :: (Ptr RawTH2) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_FFT" c_th2_fft :: + Ptr RawTH2 -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2.h TH2_FFT" c_th2_fft - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2.h TH2_fill1" c_th2_fill1 :: + Ptr RawTH2 -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_fill1" c_th2_fill1 - :: (Ptr RawTH2) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_fill1w" c_th2_fill1w + :: Ptr RawTH2 -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_fill1w" c_th2_fill1w - :: (Ptr RawTH2) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_fillN1" c_th2_filln1 + :: + Ptr RawTH2 -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_fillN1" c_th2_filln1 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_FillRandom" + c_th2_fillrandom :: Ptr RawTH2 -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_FillRandom" c_th2_fillrandom - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_FindBin" + c_th2_findbin :: + Ptr RawTH2 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_FindBin" c_th2_findbin - :: (Ptr RawTH2) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_FindFixBin" + c_th2_findfixbin :: + Ptr RawTH2 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_FindFixBin" c_th2_findfixbin - :: (Ptr RawTH2) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_FindFirstBinAbove" + c_th2_findfirstbinabove :: Ptr RawTH2 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_FindFirstBinAbove" c_th2_findfirstbinabove - :: (Ptr RawTH2) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_FindLastBinAbove" + c_th2_findlastbinabove :: Ptr RawTH2 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_FindLastBinAbove" c_th2_findlastbinabove - :: (Ptr RawTH2) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_Fit" c_th2_fit :: + Ptr RawTH2 -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_FitPanelTH1" c_th2_fitpanelth1 - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_FitPanelTH1" + c_th2_fitpanelth1 :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_getNdivisionA" c_th2_getndivisiona - :: (Ptr RawTH2) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getNdivisionA" + c_th2_getndivisiona :: Ptr RawTH2 -> CString -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getAxisColorA" c_th2_getaxiscolora - :: (Ptr RawTH2) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getAxisColorA" + c_th2_getaxiscolora :: Ptr RawTH2 -> CString -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getLabelColorA" c_th2_getlabelcolora - :: (Ptr RawTH2) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getLabelColorA" + c_th2_getlabelcolora :: Ptr RawTH2 -> CString -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getLabelFontA" c_th2_getlabelfonta - :: (Ptr RawTH2) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getLabelFontA" + c_th2_getlabelfonta :: Ptr RawTH2 -> CString -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getLabelOffsetA" c_th2_getlabeloffseta - :: (Ptr RawTH2) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getLabelOffsetA" + c_th2_getlabeloffseta :: Ptr RawTH2 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getLabelSizeA" c_th2_getlabelsizea - :: (Ptr RawTH2) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getLabelSizeA" + c_th2_getlabelsizea :: Ptr RawTH2 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getTitleFontA" c_th2_gettitlefonta - :: (Ptr RawTH2) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getTitleFontA" + c_th2_gettitlefonta :: Ptr RawTH2 -> CString -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getTitleOffsetA" c_th2_gettitleoffseta - :: (Ptr RawTH2) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getTitleOffsetA" + c_th2_gettitleoffseta :: Ptr RawTH2 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getTitleSizeA" c_th2_gettitlesizea - :: (Ptr RawTH2) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getTitleSizeA" + c_th2_gettitlesizea :: Ptr RawTH2 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getTickLengthA" c_th2_getticklengtha - :: (Ptr RawTH2) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getTickLengthA" + c_th2_getticklengtha :: Ptr RawTH2 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBarOffset" c_th2_getbaroffset - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBarOffset" + c_th2_getbaroffset :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBarWidth" c_th2_getbarwidth - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBarWidth" + c_th2_getbarwidth :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetContour" c_th2_getcontour - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetContour" + c_th2_getcontour :: Ptr RawTH2 -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetContourLevel" c_th2_getcontourlevel - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetContourLevel" + c_th2_getcontourlevel :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetContourLevelPad" c_th2_getcontourlevelpad - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetContourLevelPad" + c_th2_getcontourlevelpad :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBin" c_th2_getbin - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetBin" c_th2_getbin + :: Ptr RawTH2 -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetBinCenter" c_th2_getbincenter - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinCenter" + c_th2_getbincenter :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinContent1" c_th2_getbincontent1 - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinContent1" + c_th2_getbincontent1 :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinContent2" c_th2_getbincontent2 - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinContent2" + c_th2_getbincontent2 :: Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinContent3" c_th2_getbincontent3 - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinContent3" + c_th2_getbincontent3 :: + Ptr RawTH2 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinError1" c_th2_getbinerror1 - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinError1" + c_th2_getbinerror1 :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinError2" c_th2_getbinerror2 - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinError2" + c_th2_getbinerror2 :: Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinError3" c_th2_getbinerror3 - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinError3" + c_th2_getbinerror3 :: + Ptr RawTH2 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinLowEdge" c_th2_getbinlowedge - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinLowEdge" + c_th2_getbinlowedge :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetBinWidth" c_th2_getbinwidth - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetBinWidth" + c_th2_getbinwidth :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetCellContent" c_th2_getcellcontent - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetCellContent" + c_th2_getcellcontent :: Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetCellError" c_th2_getcellerror - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetCellError" + c_th2_getcellerror :: Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetEntries" c_th2_getentries - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetEntries" + c_th2_getentries :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetEffectiveEntries" c_th2_geteffectiveentries - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetEffectiveEntries" + c_th2_geteffectiveentries :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetFunction" c_th2_getfunction - :: (Ptr RawTH2) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2.h TH2_GetFunction" + c_th2_getfunction :: Ptr RawTH2 -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2.h TH2_GetDimension" c_th2_getdimension - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetDimension" + c_th2_getdimension :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetKurtosis" c_th2_getkurtosis - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetKurtosis" + c_th2_getkurtosis :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetLowEdge" c_th2_getlowedge - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetLowEdge" + c_th2_getlowedge :: Ptr RawTH2 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_getMaximumTH1" c_th2_getmaximumth1 - :: (Ptr RawTH2) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getMaximumTH1" + c_th2_getmaximumth1 :: Ptr RawTH2 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetMaximumBin" c_th2_getmaximumbin - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetMaximumBin" + c_th2_getmaximumbin :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetMaximumStored" c_th2_getmaximumstored - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetMaximumStored" + c_th2_getmaximumstored :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getMinimumTH1" c_th2_getminimumth1 - :: (Ptr RawTH2) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_getMinimumTH1" + c_th2_getminimumth1 :: Ptr RawTH2 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetMinimumBin" c_th2_getminimumbin - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetMinimumBin" + c_th2_getminimumbin :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetMinimumStored" c_th2_getminimumstored - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetMinimumStored" + c_th2_getminimumstored :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetMean" c_th2_getmean - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetMean" + c_th2_getmean :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetMeanError" c_th2_getmeanerror - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetMeanError" + c_th2_getmeanerror :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetNbinsX" c_th2_getnbinsx - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetNbinsX" + c_th2_getnbinsx :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetNbinsY" c_th2_getnbinsy - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetNbinsY" + c_th2_getnbinsy :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetNbinsZ" c_th2_getnbinsz - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetNbinsZ" + c_th2_getnbinsz :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_getQuantilesTH1" c_th2_getquantilesth1 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_getQuantilesTH1" + c_th2_getquantilesth1 :: + Ptr RawTH2 -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetRandom" c_th2_getrandom - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetRandom" + c_th2_getrandom :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetStats" c_th2_getstats - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetStats" + c_th2_getstats :: Ptr RawTH2 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetSumOfWeights" c_th2_getsumofweights - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetSumOfWeights" + c_th2_getsumofweights :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetSumw2" c_th2_getsumw2 - :: (Ptr RawTH2) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2.h TH2_GetSumw2" + c_th2_getsumw2 :: Ptr RawTH2 -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2.h TH2_GetSumw2N" c_th2_getsumw2n - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_GetSumw2N" + c_th2_getsumw2n :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_GetRMS" c_th2_getrms - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetRMS" c_th2_getrms + :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetRMSError" c_th2_getrmserror - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetRMSError" + c_th2_getrmserror :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_GetSkewness" c_th2_getskewness - :: (Ptr RawTH2) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_GetSkewness" + c_th2_getskewness :: Ptr RawTH2 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_integral1" c_th2_integral1 - :: (Ptr RawTH2) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_integral1" + c_th2_integral1 :: + Ptr RawTH2 -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_interpolate1" c_th2_interpolate1 - :: (Ptr RawTH2) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_interpolate1" + c_th2_interpolate1 :: Ptr RawTH2 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_interpolate2" c_th2_interpolate2 - :: (Ptr RawTH2) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_interpolate2" + c_th2_interpolate2 :: + Ptr RawTH2 -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_interpolate3" c_th2_interpolate3 - :: (Ptr RawTH2) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_interpolate3" + c_th2_interpolate3 :: + Ptr RawTH2 -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_KolmogorovTest" c_th2_kolmogorovtest - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_KolmogorovTest" + c_th2_kolmogorovtest :: + Ptr RawTH2 -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_LabelsDeflate" c_th2_labelsdeflate - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_LabelsDeflate" + c_th2_labelsdeflate :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_LabelsInflate" c_th2_labelsinflate - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_LabelsInflate" + c_th2_labelsinflate :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_LabelsOption" c_th2_labelsoption - :: (Ptr RawTH2) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_LabelsOption" + c_th2_labelsoption :: Ptr RawTH2 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_multiflyF" c_th2_multiflyf - :: (Ptr RawTH2) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_multiflyF" + c_th2_multiflyf :: Ptr RawTH2 -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Multiply" c_th2_multiply - :: (Ptr RawTH2) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Multiply" + c_th2_multiply :: + Ptr RawTH2 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_PutStats" c_th2_putstats - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_PutStats" + c_th2_putstats :: Ptr RawTH2 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Rebin" c_th2_rebin - :: (Ptr RawTH2) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2.h TH2_Rebin" c_th2_rebin :: + Ptr RawTH2 -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2.h TH2_RebinAxis" c_th2_rebinaxis - :: (Ptr RawTH2) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_RebinAxis" + c_th2_rebinaxis :: Ptr RawTH2 -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Rebuild" c_th2_rebuild - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Rebuild" + c_th2_rebuild :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_RecursiveRemove" c_th2_recursiveremove - :: (Ptr RawTH2) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_RecursiveRemove" + c_th2_recursiveremove :: Ptr RawTH2 -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Reset" c_th2_reset - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Reset" c_th2_reset :: + Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_ResetStats" c_th2_resetstats - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_ResetStats" + c_th2_resetstats :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Scale" c_th2_scale - :: (Ptr RawTH2) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Scale" c_th2_scale :: + Ptr RawTH2 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setAxisColorA" c_th2_setaxiscolora - :: (Ptr RawTH2) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setAxisColorA" + c_th2_setaxiscolora :: Ptr RawTH2 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetAxisRange" c_th2_setaxisrange - :: (Ptr RawTH2) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetAxisRange" + c_th2_setaxisrange :: + Ptr RawTH2 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetBarOffset" c_th2_setbaroffset - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetBarOffset" + c_th2_setbaroffset :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetBarWidth" c_th2_setbarwidth - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetBarWidth" + c_th2_setbarwidth :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinContent1" c_th2_setbincontent1 - :: (Ptr RawTH2) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinContent1" + c_th2_setbincontent1 :: Ptr RawTH2 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinContent2" c_th2_setbincontent2 - :: (Ptr RawTH2) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinContent2" + c_th2_setbincontent2 :: + Ptr RawTH2 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinContent3" c_th2_setbincontent3 - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinContent3" + c_th2_setbincontent3 :: + Ptr RawTH2 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinError1" c_th2_setbinerror1 - :: (Ptr RawTH2) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinError1" + c_th2_setbinerror1 :: Ptr RawTH2 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinError2" c_th2_setbinerror2 - :: (Ptr RawTH2) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinError2" + c_th2_setbinerror2 :: + Ptr RawTH2 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBinError3" c_th2_setbinerror3 - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBinError3" + c_th2_setbinerror3 :: + Ptr RawTH2 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBins1" c_th2_setbins1 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBins1" + c_th2_setbins1 :: Ptr RawTH2 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBins2" c_th2_setbins2 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBins2" + c_th2_setbins2 :: + Ptr RawTH2 -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setBins3" c_th2_setbins3 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setBins3" + c_th2_setbins3 :: + Ptr RawTH2 -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetBinsLength" c_th2_setbinslength - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetBinsLength" + c_th2_setbinslength :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetBuffer" c_th2_setbuffer - :: (Ptr RawTH2) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetBuffer" + c_th2_setbuffer :: Ptr RawTH2 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetCellContent" c_th2_setcellcontent - :: (Ptr RawTH2) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetCellContent" + c_th2_setcellcontent :: + Ptr RawTH2 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetContent" c_th2_setcontent - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetContent" + c_th2_setcontent :: Ptr RawTH2 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetContour" c_th2_setcontour - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetContour" + c_th2_setcontour :: Ptr RawTH2 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetContourLevel" c_th2_setcontourlevel - :: (Ptr RawTH2) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetContourLevel" + c_th2_setcontourlevel :: Ptr RawTH2 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetDirectory" c_th2_setdirectory - :: (Ptr RawTH2) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetDirectory" + c_th2_setdirectory :: Ptr RawTH2 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetEntries" c_th2_setentries - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetEntries" + c_th2_setentries :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetError" c_th2_seterror - :: (Ptr RawTH2) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetError" + c_th2_seterror :: Ptr RawTH2 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setLabelColorA" c_th2_setlabelcolora - :: (Ptr RawTH2) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setLabelColorA" + c_th2_setlabelcolora :: Ptr RawTH2 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setLabelSizeA" c_th2_setlabelsizea - :: (Ptr RawTH2) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setLabelSizeA" + c_th2_setlabelsizea :: Ptr RawTH2 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setLabelFontA" c_th2_setlabelfonta - :: (Ptr RawTH2) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setLabelFontA" + c_th2_setlabelfonta :: Ptr RawTH2 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_setLabelOffsetA" c_th2_setlabeloffseta - :: (Ptr RawTH2) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_setLabelOffsetA" + c_th2_setlabeloffseta :: Ptr RawTH2 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetMaximum" c_th2_setmaximum - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetMaximum" + c_th2_setmaximum :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetMinimum" c_th2_setminimum - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetMinimum" + c_th2_setminimum :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetNormFactor" c_th2_setnormfactor - :: (Ptr RawTH2) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetNormFactor" + c_th2_setnormfactor :: Ptr RawTH2 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetStats" c_th2_setstats - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetStats" + c_th2_setstats :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetOption" c_th2_setoption - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetOption" + c_th2_setoption :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetXTitle" c_th2_setxtitle - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetXTitle" + c_th2_setxtitle :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetYTitle" c_th2_setytitle - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetYTitle" + c_th2_setytitle :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetZTitle" c_th2_setztitle - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetZTitle" + c_th2_setztitle :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_ShowBackground" c_th2_showbackground - :: (Ptr RawTH2) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2.h TH2_ShowBackground" + c_th2_showbackground :: + Ptr RawTH2 -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2.h TH2_ShowPeaks" c_th2_showpeaks - :: (Ptr RawTH2) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_ShowPeaks" + c_th2_showpeaks :: + Ptr RawTH2 -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_Smooth" c_th2_smooth - :: (Ptr RawTH2) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Smooth" c_th2_smooth + :: Ptr RawTH2 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Sumw2" c_th2_sumw2 - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Sumw2" c_th2_sumw2 :: + Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Draw" c_th2_draw - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetName" + c_th2_setname :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_FindObject" c_th2_findobject - :: (Ptr RawTH2) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2.h TH2_SetNameTitle" + c_th2_setnametitle :: Ptr RawTH2 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetName" c_th2_getname - :: (Ptr RawTH2) -> IO CString +foreign import ccall safe "HROOTHistTH2.h TH2_SetTitle" + c_th2_settitle :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_IsA" c_th2_isa - :: (Ptr RawTH2) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2.h TH2_GetLineColor" + c_th2_getlinecolor :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_Paint" c_th2_paint - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetLineStyle" + c_th2_getlinestyle :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_printObj" c_th2_printobj - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetLineWidth" + c_th2_getlinewidth :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_SaveAs" c_th2_saveas - :: (Ptr RawTH2) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_ResetAttLine" + c_th2_resetattline :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_Write" c_th2_write - :: (Ptr RawTH2) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetLineAttributes" + c_th2_setlineattributes :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetLineColor" c_th2_getlinecolor - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetLineColor" + c_th2_setlinecolor :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetLineStyle" c_th2_getlinestyle - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetLineStyle" + c_th2_setlinestyle :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetLineWidth" c_th2_getlinewidth - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetLineWidth" + c_th2_setlinewidth :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_ResetAttLine" c_th2_resetattline - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetFillColor" + c_th2_setfillcolor :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetLineAttributes" c_th2_setlineattributes - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetFillStyle" + c_th2_setfillstyle :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetLineColor" c_th2_setlinecolor - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetMarkerColor" + c_th2_getmarkercolor :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_SetLineStyle" c_th2_setlinestyle - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetMarkerStyle" + c_th2_getmarkerstyle :: Ptr RawTH2 -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_SetLineWidth" c_th2_setlinewidth - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetMarkerSize" + c_th2_getmarkersize :: Ptr RawTH2 -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_SetFillColor" c_th2_setfillcolor - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_ResetAttMarker" + c_th2_resetattmarker :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetFillStyle" c_th2_setfillstyle - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_SetMarkerAttributes" + c_th2_setmarkerattributes :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetMarkerColor" c_th2_getmarkercolor - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetMarkerColor" + c_th2_setmarkercolor :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetMarkerStyle" c_th2_getmarkerstyle - :: (Ptr RawTH2) -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SetMarkerStyle" + c_th2_setmarkerstyle :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_GetMarkerSize" c_th2_getmarkersize - :: (Ptr RawTH2) -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_SetMarkerSize" + c_th2_setmarkersize :: Ptr RawTH2 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_ResetAttMarker" c_th2_resetattmarker - :: (Ptr RawTH2) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Draw" c_th2_draw :: + Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_SetMarkerAttributes" c_th2_setmarkerattributes - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_FindObject" + c_th2_findobject :: Ptr RawTH2 -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2.h TH2_SetMarkerColor" c_th2_setmarkercolor - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_GetName" + c_th2_getname :: Ptr RawTH2 -> IO CString -foreign import ccall "HROOTHistTH2.h TH2_SetMarkerStyle" c_th2_setmarkerstyle - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_IsA" c_th2_isa :: + Ptr RawTH2 -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2.h TH2_SetMarkerSize" c_th2_setmarkersize - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_Paint" c_th2_paint :: + Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_delete" c_th2_delete - :: (Ptr RawTH2) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_printObj" + c_th2_printobj :: Ptr RawTH2 -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_fill2" c_th2_fill2 - :: (Ptr RawTH2) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_SaveAs" c_th2_saveas + :: Ptr RawTH2 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2.h TH2_fill2w" c_th2_fill2w - :: (Ptr RawTH2) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_Write" c_th2_write :: + Ptr RawTH2 -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_fillN2" c_th2_filln2 - :: (Ptr RawTH2) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_delete" c_th2_delete + :: Ptr RawTH2 -> IO () -foreign import ccall "HROOTHistTH2.h TH2_fillRandom2" c_th2_fillrandom2 - :: (Ptr RawTH2) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_fill2" c_th2_fill2 :: + Ptr RawTH2 -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_findFirstBinAbove2" c_th2_findfirstbinabove2 - :: (Ptr RawTH2) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_fill2w" c_th2_fill2w + :: Ptr RawTH2 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_findLastBinAbove2" c_th2_findlastbinabove2 - :: (Ptr RawTH2) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2.h TH2_fillN2" c_th2_filln2 + :: + Ptr RawTH2 -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_FitSlicesX" c_th2_fitslicesx - :: (Ptr RawTH2) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_fillRandom2" + c_th2_fillrandom2 :: Ptr RawTH2 -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2.h TH2_FitSlicesY" c_th2_fitslicesy - :: (Ptr RawTH2) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_findFirstBinAbove2" + c_th2_findfirstbinabove2 :: + Ptr RawTH2 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getCorrelationFactor2" c_th2_getcorrelationfactor2 - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_findLastBinAbove2" + c_th2_findlastbinabove2 :: Ptr RawTH2 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2.h TH2_getCovariance2" c_th2_getcovariance2 - :: (Ptr RawTH2) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_FitSlicesX" + c_th2_fitslicesx :: + Ptr RawTH2 -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2.h TH2_integral2" c_th2_integral2 - :: (Ptr RawTH2) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2.h TH2_FitSlicesY" + c_th2_fitslicesy :: + Ptr RawTH2 -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2.h TH2_tH2ProjectionX" c_th2_th2projectionx - :: (Ptr RawTH2) -> CString -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe + "HROOTHistTH2.h TH2_getCorrelationFactor2" + c_th2_getcorrelationfactor2 :: + Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_tH2ProjectionY" c_th2_th2projectiony - :: (Ptr RawTH2) -> CString -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe "HROOTHistTH2.h TH2_getCovariance2" + c_th2_getcovariance2 :: Ptr RawTH2 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_rebinX2" c_th2_rebinx2 - :: (Ptr RawTH2) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2.h TH2_integral2" + c_th2_integral2 :: + Ptr RawTH2 -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2.h TH2_rebinY2" c_th2_rebiny2 - :: (Ptr RawTH2) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2.h TH2_tH2ProjectionX" + c_th2_th2projectionx :: + Ptr RawTH2 -> + CString -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH2.h TH2_Rebin2D" c_th2_rebin2d - :: (Ptr RawTH2) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2.h TH2_tH2ProjectionY" + c_th2_th2projectiony :: + Ptr RawTH2 -> + CString -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH2.h TH2_SetShowProjectionX" c_th2_setshowprojectionx - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_rebinX2" + c_th2_rebinx2 :: Ptr RawTH2 -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2.h TH2_SetShowProjectionY" c_th2_setshowprojectiony - :: (Ptr RawTH2) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2.h TH2_rebinY2" + c_th2_rebiny2 :: Ptr RawTH2 -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2.h TH2_Rebin2D" + c_th2_rebin2d :: + Ptr RawTH2 -> CInt -> CInt -> CString -> IO (Ptr RawTH2) + +foreign import ccall safe "HROOTHistTH2.h TH2_SetShowProjectionX" + c_th2_setshowprojectionx :: Ptr RawTH2 -> CInt -> IO () + +foreign import ccall safe "HROOTHistTH2.h TH2_SetShowProjectionY" + c_th2_setshowprojectiony :: Ptr RawTH2 -> CInt -> IO () diff --git a/src/HROOT/Hist/TH2/Implementation.hs b/src/HROOT/Hist/TH2/Implementation.hs --- a/src/HROOT/Hist/TH2/Implementation.hs +++ b/src/HROOT/Hist/TH2/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2.RawType import HROOT.Hist.TH2.FFI import HROOT.Hist.TH2.Interface @@ -35,9 +36,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -47,391 +48,212 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr +instance ITH2 TH2 where + fill2 = xform2 c_th2_fill2 + fill2w = xform3 c_th2_fill2w + fillN2 = xform5 c_th2_filln2 + fillRandom2 = xform2 c_th2_fillrandom2 + findFirstBinAbove2 = xform2 c_th2_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2_findlastbinabove2 + fitSlicesX = xform6 c_th2_fitslicesx + fitSlicesY = xform6 c_th2_fitslicesy + getCorrelationFactor2 = xform2 c_th2_getcorrelationfactor2 + getCovariance2 = xform2 c_th2_getcovariance2 + integral2 = xform5 c_th2_integral2 + rebinX2 = xform2 c_th2_rebinx2 + rebinY2 = xform2 c_th2_rebiny2 + rebin2D = xform3 c_th2_rebin2d + setShowProjectionX = xform1 c_th2_setshowprojectionx + setShowProjectionY = xform1 c_th2_setshowprojectiony -import System.IO.Unsafe +instance ITH1 TH2 where + add = xform2 c_th2_add + addBinContent = xform2 c_th2_addbincontent + chi2Test = xform3 c_th2_chi2test + computeIntegral = xform0 c_th2_computeintegral + directoryAutoAdd = xform1 c_th2_directoryautoadd + divide = xform5 c_th2_divide + drawCopyTH1 = xform1 c_th2_drawcopyth1 + drawNormalized = xform2 c_th2_drawnormalized + drawPanelTH1 = xform0 c_th2_drawpanelth1 + bufferEmpty = xform1 c_th2_bufferempty + evalF = xform2 c_th2_evalf + fFT = xform2 c_th2_fft + fill1 = xform1 c_th2_fill1 + fill1w = xform2 c_th2_fill1w + fillN1 = xform4 c_th2_filln1 + fillRandom = xform2 c_th2_fillrandom + findBin = xform3 c_th2_findbin + findFixBin = xform3 c_th2_findfixbin + findFirstBinAbove = xform2 c_th2_findfirstbinabove + findLastBinAbove = xform2 c_th2_findlastbinabove + fit = xform5 c_th2_fit + fitPanelTH1 = xform0 c_th2_fitpanelth1 + getNdivisionA = xform1 c_th2_getndivisiona + getAxisColorA = xform1 c_th2_getaxiscolora + getLabelColorA = xform1 c_th2_getlabelcolora + getLabelFontA = xform1 c_th2_getlabelfonta + getLabelOffsetA = xform1 c_th2_getlabeloffseta + getLabelSizeA = xform1 c_th2_getlabelsizea + getTitleFontA = xform1 c_th2_gettitlefonta + getTitleOffsetA = xform1 c_th2_gettitleoffseta + getTitleSizeA = xform1 c_th2_gettitlesizea + getTickLengthA = xform1 c_th2_getticklengtha + getBarOffset = xform0 c_th2_getbaroffset + getBarWidth = xform0 c_th2_getbarwidth + getContour = xform1 c_th2_getcontour + getContourLevel = xform1 c_th2_getcontourlevel + getContourLevelPad = xform1 c_th2_getcontourlevelpad + getBin = xform3 c_th2_getbin + getBinCenter = xform1 c_th2_getbincenter + getBinContent1 = xform1 c_th2_getbincontent1 + getBinContent2 = xform2 c_th2_getbincontent2 + getBinContent3 = xform3 c_th2_getbincontent3 + getBinError1 = xform1 c_th2_getbinerror1 + getBinError2 = xform2 c_th2_getbinerror2 + getBinError3 = xform3 c_th2_getbinerror3 + getBinLowEdge = xform1 c_th2_getbinlowedge + getBinWidth = xform1 c_th2_getbinwidth + getCellContent = xform2 c_th2_getcellcontent + getCellError = xform2 c_th2_getcellerror + getEntries = xform0 c_th2_getentries + getEffectiveEntries = xform0 c_th2_geteffectiveentries + getFunction = xform1 c_th2_getfunction + getDimension = xform0 c_th2_getdimension + getKurtosis = xform1 c_th2_getkurtosis + getLowEdge = xform1 c_th2_getlowedge + getMaximumTH1 = xform1 c_th2_getmaximumth1 + getMaximumBin = xform0 c_th2_getmaximumbin + getMaximumStored = xform0 c_th2_getmaximumstored + getMinimumTH1 = xform1 c_th2_getminimumth1 + getMinimumBin = xform0 c_th2_getminimumbin + getMinimumStored = xform0 c_th2_getminimumstored + getMean = xform1 c_th2_getmean + getMeanError = xform1 c_th2_getmeanerror + getNbinsX = xform0 c_th2_getnbinsx + getNbinsY = xform0 c_th2_getnbinsy + getNbinsZ = xform0 c_th2_getnbinsz + getQuantilesTH1 = xform3 c_th2_getquantilesth1 + getRandom = xform0 c_th2_getrandom + getStats = xform1 c_th2_getstats + getSumOfWeights = xform0 c_th2_getsumofweights + getSumw2 = xform0 c_th2_getsumw2 + getSumw2N = xform0 c_th2_getsumw2n + getRMS = xform1 c_th2_getrms + getRMSError = xform1 c_th2_getrmserror + getSkewness = xform1 c_th2_getskewness + integral1 = xform3 c_th2_integral1 + interpolate1 = xform1 c_th2_interpolate1 + interpolate2 = xform2 c_th2_interpolate2 + interpolate3 = xform3 c_th2_interpolate3 + kolmogorovTest = xform2 c_th2_kolmogorovtest + labelsDeflate = xform1 c_th2_labelsdeflate + labelsInflate = xform1 c_th2_labelsinflate + labelsOption = xform2 c_th2_labelsoption + multiflyF = xform2 c_th2_multiflyf + multiply = xform5 c_th2_multiply + putStats = xform1 c_th2_putstats + rebin = xform3 c_th2_rebin + rebinAxis = xform2 c_th2_rebinaxis + rebuild = xform1 c_th2_rebuild + recursiveRemove = xform1 c_th2_recursiveremove + reset = xform1 c_th2_reset + resetStats = xform0 c_th2_resetstats + scale = xform2 c_th2_scale + setAxisColorA = xform2 c_th2_setaxiscolora + setAxisRange = xform3 c_th2_setaxisrange + setBarOffset = xform1 c_th2_setbaroffset + setBarWidth = xform1 c_th2_setbarwidth + setBinContent1 = xform2 c_th2_setbincontent1 + setBinContent2 = xform3 c_th2_setbincontent2 + setBinContent3 = xform4 c_th2_setbincontent3 + setBinError1 = xform2 c_th2_setbinerror1 + setBinError2 = xform3 c_th2_setbinerror2 + setBinError3 = xform4 c_th2_setbinerror3 + setBins1 = xform2 c_th2_setbins1 + setBins2 = xform4 c_th2_setbins2 + setBins3 = xform6 c_th2_setbins3 + setBinsLength = xform1 c_th2_setbinslength + setBuffer = xform2 c_th2_setbuffer + setCellContent = xform3 c_th2_setcellcontent + setContent = xform1 c_th2_setcontent + setContour = xform2 c_th2_setcontour + setContourLevel = xform2 c_th2_setcontourlevel + setDirectory = xform1 c_th2_setdirectory + setEntries = xform1 c_th2_setentries + setError = xform1 c_th2_seterror + setLabelColorA = xform2 c_th2_setlabelcolora + setLabelSizeA = xform2 c_th2_setlabelsizea + setLabelFontA = xform2 c_th2_setlabelfonta + setLabelOffsetA = xform2 c_th2_setlabeloffseta + setMaximum = xform1 c_th2_setmaximum + setMinimum = xform1 c_th2_setminimum + setNormFactor = xform1 c_th2_setnormfactor + setStats = xform1 c_th2_setstats + setOption = xform1 c_th2_setoption + setXTitle = xform1 c_th2_setxtitle + setYTitle = xform1 c_th2_setytitle + setZTitle = xform1 c_th2_setztitle + showBackground = xform2 c_th2_showbackground + showPeaks = xform3 c_th2_showpeaks + smooth = xform2 c_th2_smooth + sumw2 = xform0 c_th2_sumw2 +instance ITNamed TH2 where + setName = xform1 c_th2_setname + setNameTitle = xform2 c_th2_setnametitle + setTitle = xform1 c_th2_settitle -instance ITH2 TH2 where - fill2 = xform2 c_th2_fill2 - fill2w = xform3 c_th2_fill2w - fillN2 = xform5 c_th2_filln2 - fillRandom2 = xform2 c_th2_fillrandom2 - findFirstBinAbove2 = xform2 c_th2_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2_findlastbinabove2 - fitSlicesX = xform6 c_th2_fitslicesx - fitSlicesY = xform6 c_th2_fitslicesy - getCorrelationFactor2 = xform2 c_th2_getcorrelationfactor2 - getCovariance2 = xform2 c_th2_getcovariance2 - integral2 = xform5 c_th2_integral2 - rebinX2 = xform2 c_th2_rebinx2 - rebinY2 = xform2 c_th2_rebiny2 - rebin2D = xform3 c_th2_rebin2d - setShowProjectionX = xform1 c_th2_setshowprojectionx - setShowProjectionY = xform1 c_th2_setshowprojectiony -instance ITH1 TH2 where - add = xform2 c_th2_add - addBinContent = xform2 c_th2_addbincontent - chi2Test = xform3 c_th2_chi2test - computeIntegral = xform0 c_th2_computeintegral - directoryAutoAdd = xform1 c_th2_directoryautoadd - divide = xform5 c_th2_divide - drawCopyTH1 = xform1 c_th2_drawcopyth1 - drawNormalized = xform2 c_th2_drawnormalized - drawPanelTH1 = xform0 c_th2_drawpanelth1 - bufferEmpty = xform1 c_th2_bufferempty - evalF = xform2 c_th2_evalf - fFT = xform2 c_th2_fft - fill1 = xform1 c_th2_fill1 - fill1w = xform2 c_th2_fill1w - fillN1 = xform4 c_th2_filln1 - fillRandom = xform2 c_th2_fillrandom - findBin = xform3 c_th2_findbin - findFixBin = xform3 c_th2_findfixbin - findFirstBinAbove = xform2 c_th2_findfirstbinabove - findLastBinAbove = xform2 c_th2_findlastbinabove - fitPanelTH1 = xform0 c_th2_fitpanelth1 - getNdivisionA = xform1 c_th2_getndivisiona - getAxisColorA = xform1 c_th2_getaxiscolora - getLabelColorA = xform1 c_th2_getlabelcolora - getLabelFontA = xform1 c_th2_getlabelfonta - getLabelOffsetA = xform1 c_th2_getlabeloffseta - getLabelSizeA = xform1 c_th2_getlabelsizea - getTitleFontA = xform1 c_th2_gettitlefonta - getTitleOffsetA = xform1 c_th2_gettitleoffseta - getTitleSizeA = xform1 c_th2_gettitlesizea - getTickLengthA = xform1 c_th2_getticklengtha - getBarOffset = xform0 c_th2_getbaroffset - getBarWidth = xform0 c_th2_getbarwidth - getContour = xform1 c_th2_getcontour - getContourLevel = xform1 c_th2_getcontourlevel - getContourLevelPad = xform1 c_th2_getcontourlevelpad - getBin = xform3 c_th2_getbin - getBinCenter = xform1 c_th2_getbincenter - getBinContent1 = xform1 c_th2_getbincontent1 - getBinContent2 = xform2 c_th2_getbincontent2 - getBinContent3 = xform3 c_th2_getbincontent3 - getBinError1 = xform1 c_th2_getbinerror1 - getBinError2 = xform2 c_th2_getbinerror2 - getBinError3 = xform3 c_th2_getbinerror3 - getBinLowEdge = xform1 c_th2_getbinlowedge - getBinWidth = xform1 c_th2_getbinwidth - getCellContent = xform2 c_th2_getcellcontent - getCellError = xform2 c_th2_getcellerror - getEntries = xform0 c_th2_getentries - getEffectiveEntries = xform0 c_th2_geteffectiveentries - getFunction = xform1 c_th2_getfunction - getDimension = xform0 c_th2_getdimension - getKurtosis = xform1 c_th2_getkurtosis - getLowEdge = xform1 c_th2_getlowedge - getMaximumTH1 = xform1 c_th2_getmaximumth1 - getMaximumBin = xform0 c_th2_getmaximumbin - getMaximumStored = xform0 c_th2_getmaximumstored - getMinimumTH1 = xform1 c_th2_getminimumth1 - getMinimumBin = xform0 c_th2_getminimumbin - getMinimumStored = xform0 c_th2_getminimumstored - getMean = xform1 c_th2_getmean - getMeanError = xform1 c_th2_getmeanerror - getNbinsX = xform0 c_th2_getnbinsx - getNbinsY = xform0 c_th2_getnbinsy - getNbinsZ = xform0 c_th2_getnbinsz - getQuantilesTH1 = xform3 c_th2_getquantilesth1 - getRandom = xform0 c_th2_getrandom - getStats = xform1 c_th2_getstats - getSumOfWeights = xform0 c_th2_getsumofweights - getSumw2 = xform0 c_th2_getsumw2 - getSumw2N = xform0 c_th2_getsumw2n - getRMS = xform1 c_th2_getrms - getRMSError = xform1 c_th2_getrmserror - getSkewness = xform1 c_th2_getskewness - integral1 = xform3 c_th2_integral1 - interpolate1 = xform1 c_th2_interpolate1 - interpolate2 = xform2 c_th2_interpolate2 - interpolate3 = xform3 c_th2_interpolate3 - kolmogorovTest = xform2 c_th2_kolmogorovtest - labelsDeflate = xform1 c_th2_labelsdeflate - labelsInflate = xform1 c_th2_labelsinflate - labelsOption = xform2 c_th2_labelsoption - multiflyF = xform2 c_th2_multiflyf - multiply = xform5 c_th2_multiply - putStats = xform1 c_th2_putstats - rebin = xform3 c_th2_rebin - rebinAxis = xform2 c_th2_rebinaxis - rebuild = xform1 c_th2_rebuild - recursiveRemove = xform1 c_th2_recursiveremove - reset = xform1 c_th2_reset - resetStats = xform0 c_th2_resetstats - scale = xform2 c_th2_scale - setAxisColorA = xform2 c_th2_setaxiscolora - setAxisRange = xform3 c_th2_setaxisrange - setBarOffset = xform1 c_th2_setbaroffset - setBarWidth = xform1 c_th2_setbarwidth - setBinContent1 = xform2 c_th2_setbincontent1 - setBinContent2 = xform3 c_th2_setbincontent2 - setBinContent3 = xform4 c_th2_setbincontent3 - setBinError1 = xform2 c_th2_setbinerror1 - setBinError2 = xform3 c_th2_setbinerror2 - setBinError3 = xform4 c_th2_setbinerror3 - setBins1 = xform2 c_th2_setbins1 - setBins2 = xform4 c_th2_setbins2 - setBins3 = xform6 c_th2_setbins3 - setBinsLength = xform1 c_th2_setbinslength - setBuffer = xform2 c_th2_setbuffer - setCellContent = xform3 c_th2_setcellcontent - setContent = xform1 c_th2_setcontent - setContour = xform2 c_th2_setcontour - setContourLevel = xform2 c_th2_setcontourlevel - setDirectory = xform1 c_th2_setdirectory - setEntries = xform1 c_th2_setentries - setError = xform1 c_th2_seterror - setLabelColorA = xform2 c_th2_setlabelcolora - setLabelSizeA = xform2 c_th2_setlabelsizea - setLabelFontA = xform2 c_th2_setlabelfonta - setLabelOffsetA = xform2 c_th2_setlabeloffseta - setMaximum = xform1 c_th2_setmaximum - setMinimum = xform1 c_th2_setminimum - setNormFactor = xform1 c_th2_setnormfactor - setStats = xform1 c_th2_setstats - setOption = xform1 c_th2_setoption - setXTitle = xform1 c_th2_setxtitle - setYTitle = xform1 c_th2_setytitle - setZTitle = xform1 c_th2_setztitle - showBackground = xform2 c_th2_showbackground - showPeaks = xform3 c_th2_showpeaks - smooth = xform2 c_th2_smooth - sumw2 = xform0 c_th2_sumw2 -instance ITObject TH2 where - draw = xform1 c_th2_draw - findObject = xform1 c_th2_findobject - getName = xform0 c_th2_getname - isA = xform0 c_th2_isa - paint = xform1 c_th2_paint - printObj = xform1 c_th2_printobj - saveAs = xform2 c_th2_saveas - write = xform3 c_th2_write instance ITAttLine TH2 where - getLineColor = xform0 c_th2_getlinecolor - getLineStyle = xform0 c_th2_getlinestyle - getLineWidth = xform0 c_th2_getlinewidth - resetAttLine = xform1 c_th2_resetattline - setLineAttributes = xform0 c_th2_setlineattributes - setLineColor = xform1 c_th2_setlinecolor - setLineStyle = xform1 c_th2_setlinestyle - setLineWidth = xform1 c_th2_setlinewidth + getLineColor = xform0 c_th2_getlinecolor + getLineStyle = xform0 c_th2_getlinestyle + getLineWidth = xform0 c_th2_getlinewidth + resetAttLine = xform1 c_th2_resetattline + setLineAttributes = xform0 c_th2_setlineattributes + setLineColor = xform1 c_th2_setlinecolor + setLineStyle = xform1 c_th2_setlinestyle + setLineWidth = xform1 c_th2_setlinewidth + instance ITAttFill TH2 where - setFillColor = xform1 c_th2_setfillcolor - setFillStyle = xform1 c_th2_setfillstyle -instance ITAttMarker TH2 where - getMarkerColor = xform0 c_th2_getmarkercolor - getMarkerStyle = xform0 c_th2_getmarkerstyle - getMarkerSize = xform0 c_th2_getmarkersize - resetAttMarker = xform1 c_th2_resetattmarker - setMarkerAttributes = xform0 c_th2_setmarkerattributes - setMarkerColor = xform1 c_th2_setmarkercolor - setMarkerStyle = xform1 c_th2_setmarkerstyle - setMarkerSize = xform1 c_th2_setmarkersize -instance IDeletable TH2 where - delete = xform0 c_th2_delete + setFillColor = xform1 c_th2_setfillcolor + setFillStyle = xform1 c_th2_setfillstyle -instance ITH2 (Exist TH2) where - fill2 (ETH2 x) = fill2 x - fill2w (ETH2 x) = fill2w x - fillN2 (ETH2 x) = fillN2 x - fillRandom2 (ETH2 x) = fillRandom2 x - findFirstBinAbove2 (ETH2 x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2 x) = findLastBinAbove2 x - fitSlicesX (ETH2 x) = fitSlicesX x - fitSlicesY (ETH2 x) = fitSlicesY x - getCorrelationFactor2 (ETH2 x) = getCorrelationFactor2 x - getCovariance2 (ETH2 x) = getCovariance2 x - integral2 (ETH2 x) = integral2 x - rebinX2 (ETH2 x) = rebinX2 x - rebinY2 (ETH2 x) = rebinY2 x - rebin2D (ETH2 x) = rebin2D x - setShowProjectionX (ETH2 x) = setShowProjectionX x - setShowProjectionY (ETH2 x) = setShowProjectionY x -instance ITH1 (Exist TH2) where - add (ETH2 x) = add x - addBinContent (ETH2 x) = addBinContent x - chi2Test (ETH2 x) = chi2Test x - computeIntegral (ETH2 x) = computeIntegral x - directoryAutoAdd (ETH2 x) = directoryAutoAdd x - divide (ETH2 x) = divide x - drawCopyTH1 (ETH2 x) a1 = return . ETH2 =<< drawCopyTH1 x a1 - drawNormalized (ETH2 x) = drawNormalized x - drawPanelTH1 (ETH2 x) = drawPanelTH1 x - bufferEmpty (ETH2 x) = bufferEmpty x - evalF (ETH2 x) = evalF x - fFT (ETH2 x) = fFT x - fill1 (ETH2 x) = fill1 x - fill1w (ETH2 x) = fill1w x - fillN1 (ETH2 x) = fillN1 x - fillRandom (ETH2 x) = fillRandom x - findBin (ETH2 x) = findBin x - findFixBin (ETH2 x) = findFixBin x - findFirstBinAbove (ETH2 x) = findFirstBinAbove x - findLastBinAbove (ETH2 x) = findLastBinAbove x - fitPanelTH1 (ETH2 x) = fitPanelTH1 x - getNdivisionA (ETH2 x) = getNdivisionA x - getAxisColorA (ETH2 x) = getAxisColorA x - getLabelColorA (ETH2 x) = getLabelColorA x - getLabelFontA (ETH2 x) = getLabelFontA x - getLabelOffsetA (ETH2 x) = getLabelOffsetA x - getLabelSizeA (ETH2 x) = getLabelSizeA x - getTitleFontA (ETH2 x) = getTitleFontA x - getTitleOffsetA (ETH2 x) = getTitleOffsetA x - getTitleSizeA (ETH2 x) = getTitleSizeA x - getTickLengthA (ETH2 x) = getTickLengthA x - getBarOffset (ETH2 x) = getBarOffset x - getBarWidth (ETH2 x) = getBarWidth x - getContour (ETH2 x) = getContour x - getContourLevel (ETH2 x) = getContourLevel x - getContourLevelPad (ETH2 x) = getContourLevelPad x - getBin (ETH2 x) = getBin x - getBinCenter (ETH2 x) = getBinCenter x - getBinContent1 (ETH2 x) = getBinContent1 x - getBinContent2 (ETH2 x) = getBinContent2 x - getBinContent3 (ETH2 x) = getBinContent3 x - getBinError1 (ETH2 x) = getBinError1 x - getBinError2 (ETH2 x) = getBinError2 x - getBinError3 (ETH2 x) = getBinError3 x - getBinLowEdge (ETH2 x) = getBinLowEdge x - getBinWidth (ETH2 x) = getBinWidth x - getCellContent (ETH2 x) = getCellContent x - getCellError (ETH2 x) = getCellError x - getEntries (ETH2 x) = getEntries x - getEffectiveEntries (ETH2 x) = getEffectiveEntries x - getFunction (ETH2 x) = getFunction x - getDimension (ETH2 x) = getDimension x - getKurtosis (ETH2 x) = getKurtosis x - getLowEdge (ETH2 x) = getLowEdge x - getMaximumTH1 (ETH2 x) = getMaximumTH1 x - getMaximumBin (ETH2 x) = getMaximumBin x - getMaximumStored (ETH2 x) = getMaximumStored x - getMinimumTH1 (ETH2 x) = getMinimumTH1 x - getMinimumBin (ETH2 x) = getMinimumBin x - getMinimumStored (ETH2 x) = getMinimumStored x - getMean (ETH2 x) = getMean x - getMeanError (ETH2 x) = getMeanError x - getNbinsX (ETH2 x) = getNbinsX x - getNbinsY (ETH2 x) = getNbinsY x - getNbinsZ (ETH2 x) = getNbinsZ x - getQuantilesTH1 (ETH2 x) = getQuantilesTH1 x - getRandom (ETH2 x) = getRandom x - getStats (ETH2 x) = getStats x - getSumOfWeights (ETH2 x) = getSumOfWeights x - getSumw2 (ETH2 x) = getSumw2 x - getSumw2N (ETH2 x) = getSumw2N x - getRMS (ETH2 x) = getRMS x - getRMSError (ETH2 x) = getRMSError x - getSkewness (ETH2 x) = getSkewness x - integral1 (ETH2 x) = integral1 x - interpolate1 (ETH2 x) = interpolate1 x - interpolate2 (ETH2 x) = interpolate2 x - interpolate3 (ETH2 x) = interpolate3 x - kolmogorovTest (ETH2 x) = kolmogorovTest x - labelsDeflate (ETH2 x) = labelsDeflate x - labelsInflate (ETH2 x) = labelsInflate x - labelsOption (ETH2 x) = labelsOption x - multiflyF (ETH2 x) = multiflyF x - multiply (ETH2 x) = multiply x - putStats (ETH2 x) = putStats x - rebin (ETH2 x) = rebin x - rebinAxis (ETH2 x) = rebinAxis x - rebuild (ETH2 x) = rebuild x - recursiveRemove (ETH2 x) = recursiveRemove x - reset (ETH2 x) = reset x - resetStats (ETH2 x) = resetStats x - scale (ETH2 x) = scale x - setAxisColorA (ETH2 x) = setAxisColorA x - setAxisRange (ETH2 x) = setAxisRange x - setBarOffset (ETH2 x) = setBarOffset x - setBarWidth (ETH2 x) = setBarWidth x - setBinContent1 (ETH2 x) = setBinContent1 x - setBinContent2 (ETH2 x) = setBinContent2 x - setBinContent3 (ETH2 x) = setBinContent3 x - setBinError1 (ETH2 x) = setBinError1 x - setBinError2 (ETH2 x) = setBinError2 x - setBinError3 (ETH2 x) = setBinError3 x - setBins1 (ETH2 x) = setBins1 x - setBins2 (ETH2 x) = setBins2 x - setBins3 (ETH2 x) = setBins3 x - setBinsLength (ETH2 x) = setBinsLength x - setBuffer (ETH2 x) = setBuffer x - setCellContent (ETH2 x) = setCellContent x - setContent (ETH2 x) = setContent x - setContour (ETH2 x) = setContour x - setContourLevel (ETH2 x) = setContourLevel x - setDirectory (ETH2 x) = setDirectory x - setEntries (ETH2 x) = setEntries x - setError (ETH2 x) = setError x - setLabelColorA (ETH2 x) = setLabelColorA x - setLabelSizeA (ETH2 x) = setLabelSizeA x - setLabelFontA (ETH2 x) = setLabelFontA x - setLabelOffsetA (ETH2 x) = setLabelOffsetA x - setMaximum (ETH2 x) = setMaximum x - setMinimum (ETH2 x) = setMinimum x - setNormFactor (ETH2 x) = setNormFactor x - setStats (ETH2 x) = setStats x - setOption (ETH2 x) = setOption x - setXTitle (ETH2 x) = setXTitle x - setYTitle (ETH2 x) = setYTitle x - setZTitle (ETH2 x) = setZTitle x - showBackground (ETH2 x) = showBackground x - showPeaks (ETH2 x) = showPeaks x - smooth (ETH2 x) = smooth x - sumw2 (ETH2 x) = sumw2 x -instance ITObject (Exist TH2) where - draw (ETH2 x) = draw x - findObject (ETH2 x) = findObject x - getName (ETH2 x) = getName x - isA (ETH2 x) = isA x - paint (ETH2 x) = paint x - printObj (ETH2 x) = printObj x - saveAs (ETH2 x) = saveAs x - write (ETH2 x) = write x -instance ITAttLine (Exist TH2) where - getLineColor (ETH2 x) = getLineColor x - getLineStyle (ETH2 x) = getLineStyle x - getLineWidth (ETH2 x) = getLineWidth x - resetAttLine (ETH2 x) = resetAttLine x - setLineAttributes (ETH2 x) = setLineAttributes x - setLineColor (ETH2 x) = setLineColor x - setLineStyle (ETH2 x) = setLineStyle x - setLineWidth (ETH2 x) = setLineWidth x -instance ITAttFill (Exist TH2) where - setFillColor (ETH2 x) = setFillColor x - setFillStyle (ETH2 x) = setFillStyle x -instance ITAttMarker (Exist TH2) where - getMarkerColor (ETH2 x) = getMarkerColor x - getMarkerStyle (ETH2 x) = getMarkerStyle x - getMarkerSize (ETH2 x) = getMarkerSize x - resetAttMarker (ETH2 x) = resetAttMarker x - setMarkerAttributes (ETH2 x) = setMarkerAttributes x - setMarkerColor (ETH2 x) = setMarkerColor x - setMarkerStyle (ETH2 x) = setMarkerStyle x - setMarkerSize (ETH2 x) = setMarkerSize x -instance IDeletable (Exist TH2) where - delete (ETH2 x) = delete x +instance ITAttMarker TH2 where + getMarkerColor = xform0 c_th2_getmarkercolor + getMarkerStyle = xform0 c_th2_getmarkerstyle + getMarkerSize = xform0 c_th2_getmarkersize + resetAttMarker = xform1 c_th2_resetattmarker + setMarkerAttributes = xform0 c_th2_setmarkerattributes + setMarkerColor = xform1 c_th2_setmarkercolor + setMarkerStyle = xform1 c_th2_setmarkerstyle + setMarkerSize = xform1 c_th2_setmarkersize +instance ITObject TH2 where + draw = xform1 c_th2_draw + findObject = xform1 c_th2_findobject + getName = xform0 c_th2_getname + isA = xform0 c_th2_isa + paint = xform1 c_th2_paint + printObj = xform1 c_th2_printobj + saveAs = xform2 c_th2_saveas + write = xform3 c_th2_write +instance IDeletable TH2 where + delete = xform0 c_th2_delete -tH2ProjectionX :: TH2 -> CString -> CInt -> CInt -> CString -> IO TH1D +tH2ProjectionX :: + (Castable c1 CString, Castable c0 CString) => + TH2 -> c0 -> CInt -> CInt -> c1 -> IO TH1D tH2ProjectionX = xform4 c_th2_th2projectionx -tH2ProjectionY :: TH2 -> CString -> CInt -> CInt -> CString -> IO TH1D +tH2ProjectionY :: + (Castable c1 CString, Castable c0 CString) => + TH2 -> c0 -> CInt -> CInt -> c1 -> IO TH1D tH2ProjectionY = xform4 c_th2_th2projectiony - - - -instance FPtr (Exist TH2) where - type Raw (Exist TH2) = RawTH2 - get_fptr (ETH2 obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2) :: TH2) diff --git a/src/HROOT/Hist/TH2/Interface.hs b/src/HROOT/Hist/TH2/Interface.hs --- a/src/HROOT/Hist/TH2/Interface.hs +++ b/src/HROOT/Hist/TH2/Interface.hs @@ -1,95 +1,68 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.Interface import HROOT.Core.TObjArray.Interface ----- ============ ---- import {-# SOURCE #-} HROOT.Hist.TF1.Interface - -class (ITH1 a) => ITH2 a where - -- | - -- > Int_t Fill(Double_t x, Double_t y); - - fill2 :: a -> CDouble -> CDouble -> IO CInt - - fill2w :: a -> CDouble -> CDouble -> CDouble -> IO CInt - - fillN2 :: a -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () - -- | - -- > void FillRandom(TH1 *h, Int_t ntimes=5000); - -- - - fillRandom2 :: (ITH1 c0, FPtr c0) => a -> c0 -> CInt -> IO () - -- | - -- > Int_t FindFirstBinAbove(Double_t threshold=0, Int_t axis=1) const; - -- - - findFirstBinAbove2 :: a -> CDouble -> CInt -> IO CInt - -- | - -- > Int_t FindLastBinAbove (Double_t threshold=0, Int_t axis=1) const; - -- - - findLastBinAbove2 :: a -> CDouble -> CInt -> IO CInt - -- | - -- > void FitSlicesX(TF1 *f1=0,Int_t firstybin=0, Int_t lastybin=-1, Int_t cut=0, Option_t *option="QNR", TObjArray* arr = 0); // *MENU* - -- - - fitSlicesX :: (ITObjArray c1, FPtr c1, ITF1 c0, FPtr c0) => a -> c0 -> CInt -> CInt -> CInt -> CString -> c1 -> IO () - -- | - -- > void FitSlicesY(TF1 *f1=0,Int_t firstxbin=0, Int_t lastxbin=-1, Int_t cut=0, Option_t *option="QNR", TObjArray* arr = 0); // *MENU* - -- - - fitSlicesY :: (ITObjArray c1, FPtr c1, ITF1 c0, FPtr c0) => a -> c0 -> CInt -> CInt -> CInt -> CString -> c1 -> IO () - - getCorrelationFactor2 :: a -> CInt -> CInt -> IO CDouble - - getCovariance2 :: a -> CInt -> CInt -> IO CDouble - - integral2 :: a -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble - - rebinX2 :: a -> CInt -> CString -> IO TH2 - - rebinY2 :: a -> CInt -> CString -> IO TH2 - -- | - -- > TH2 *Rebin2D(Int_t nxgroup=2, Int_t nygroup=2, const char *newname=""); - -- - - rebin2D :: a -> CInt -> CInt -> CString -> IO TH2 - -- | - -- > void SetShowProjectionX(Int_t nbins); // *MENU* - -- - - setShowProjectionX :: a -> CInt -> IO () - -- | - -- > void SetShowProjectionY(Int_t nbins); // *MENU* - -- - - setShowProjectionY :: a -> CInt -> IO () - -instance Existable TH2 where - data Exist TH2 = forall a. (FPtr a, ITH2 a) => ETH2 a +class ITH1 a => ITH2 a where + fill2 :: a -> CDouble -> CDouble -> IO CInt + + fill2w :: a -> CDouble -> CDouble -> CDouble -> IO CInt + + fillN2 :: + a -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () + + fillRandom2 :: (ITH1 c0, FPtr c0) => a -> c0 -> CInt -> IO () + + findFirstBinAbove2 :: a -> CDouble -> CInt -> IO CInt + + findLastBinAbove2 :: a -> CDouble -> CInt -> IO CInt + + fitSlicesX :: + (ITObjArray c2, FPtr c2, Castable c1 CString, ITF1 c0, FPtr c0) => + a -> c0 -> CInt -> CInt -> CInt -> c1 -> c2 -> IO () + + fitSlicesY :: + (ITObjArray c2, FPtr c2, Castable c1 CString, ITF1 c0, FPtr c0) => + a -> c0 -> CInt -> CInt -> CInt -> c1 -> c2 -> IO () + + getCorrelationFactor2 :: a -> CInt -> CInt -> IO CDouble + + getCovariance2 :: a -> CInt -> CInt -> IO CDouble + + integral2 :: + Castable c0 CString => + a -> CInt -> CInt -> CInt -> CInt -> c0 -> IO CDouble + + rebinX2 :: Castable c0 CString => a -> CInt -> c0 -> IO TH2 + + rebinY2 :: Castable c0 CString => a -> CInt -> c0 -> IO TH2 + + rebin2D :: Castable c0 CString => a -> CInt -> CInt -> c0 -> IO TH2 + + setShowProjectionX :: a -> CInt -> IO () + + setShowProjectionY :: a -> CInt -> IO () -upcastTH2 :: (FPtr a, ITH2 a) => a -> TH2 -upcastTH2 h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2 :: forall a . (FPtr a, ITH2 a) => a -> TH2 +upcastTH2 h + = let fh = get_fptr h + fh2 :: Ptr RawTH2 = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2 :: (FPtr a, ITH2 a) => TH2 -> a -downcastTH2 h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2 :: forall a . (FPtr a, ITH2 a) => TH2 -> a +downcastTH2 h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2/RawType.hs b/src/HROOT/Hist/TH2/RawType.hs --- a/src/HROOT/Hist/TH2/RawType.hs +++ b/src/HROOT/Hist/TH2/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2 -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2 = TH2 (Ptr RawTH2) + deriving (Eq, Ord, Show) -data RawTH2 -newtype TH2 = TH2 (ForeignPtr RawTH2) deriving (Eq, Ord, Show) instance FPtr TH2 where - type Raw TH2 = RawTH2 - get_fptr (TH2 fptr) = fptr - cast_fptr_to_obj = TH2 + type Raw TH2 = RawTH2 + get_fptr (TH2 ptr) = ptr + cast_fptr_to_obj = TH2 diff --git a/src/HROOT/Hist/TH2C.hs b/src/HROOT/Hist/TH2C.hs --- a/src/HROOT/Hist/TH2C.hs +++ b/src/HROOT/Hist/TH2C.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH2C - ( - TH2C(..) - , ITH2C - , upcastTH2C - , downcastTH2C - - - ) where - +module HROOT.Hist.TH2C (TH2C(..), ITH2C, upcastTH2C, downcastTH2C) + where import HROOT.Hist.TH2C.RawType import HROOT.Hist.TH2C.Interface import HROOT.Hist.TH2C.Implementation - - diff --git a/src/HROOT/Hist/TH2C/Cast.hs b/src/HROOT/Hist/TH2C/Cast.hs --- a/src/HROOT/Hist/TH2C/Cast.hs +++ b/src/HROOT/Hist/TH2C/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2C.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2C.RawType import HROOT.Hist.TH2C.Interface instance (ITH2C a, FPtr a) => Castable a (Ptr RawTH2C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2C (Ptr RawTH2C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2C/FFI.hsc b/src/HROOT/Hist/TH2C/FFI.hsc --- a/src/HROOT/Hist/TH2C/FFI.hsc +++ b/src/HROOT/Hist/TH2C/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2C.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2C.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,524 +14,589 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2C.h" +foreign import ccall safe "HROOTHistTH2C.h TH2C_fill2" c_th2c_fill2 + :: Ptr RawTH2C -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_fill2" c_th2c_fill2 - :: (Ptr RawTH2C) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_fill2w" + c_th2c_fill2w :: + Ptr RawTH2C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_fill2w" c_th2c_fill2w - :: (Ptr RawTH2C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_fillN2" + c_th2c_filln2 :: + Ptr RawTH2C -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_fillN2" c_th2c_filln2 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_fillRandom2" + c_th2c_fillrandom2 :: Ptr RawTH2C -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_fillRandom2" c_th2c_fillrandom2 - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_findFirstBinAbove2" + c_th2c_findfirstbinabove2 :: + Ptr RawTH2C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_findFirstBinAbove2" c_th2c_findfirstbinabove2 - :: (Ptr RawTH2C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_findLastBinAbove2" + c_th2c_findlastbinabove2 :: + Ptr RawTH2C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_findLastBinAbove2" c_th2c_findlastbinabove2 - :: (Ptr RawTH2C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_FitSlicesX" + c_th2c_fitslicesx :: + Ptr RawTH2C -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_FitSlicesX" c_th2c_fitslicesx - :: (Ptr RawTH2C) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FitSlicesY" + c_th2c_fitslicesy :: + Ptr RawTH2C -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_FitSlicesY" c_th2c_fitslicesy - :: (Ptr RawTH2C) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2C.h TH2C_getCorrelationFactor2" + c_th2c_getcorrelationfactor2 :: + Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getCorrelationFactor2" c_th2c_getcorrelationfactor2 - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getCovariance2" + c_th2c_getcovariance2 :: Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getCovariance2" c_th2c_getcovariance2 - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_integral2" + c_th2c_integral2 :: + Ptr RawTH2C -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_integral2" c_th2c_integral2 - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_rebinX2" + c_th2c_rebinx2 :: Ptr RawTH2C -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2C.h TH2C_rebinX2" c_th2c_rebinx2 - :: (Ptr RawTH2C) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2C.h TH2C_rebinY2" + c_th2c_rebiny2 :: Ptr RawTH2C -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2C.h TH2C_rebinY2" c_th2c_rebiny2 - :: (Ptr RawTH2C) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2C.h TH2C_Rebin2D" + c_th2c_rebin2d :: + Ptr RawTH2C -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2C.h TH2C_Rebin2D" c_th2c_rebin2d - :: (Ptr RawTH2C) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetShowProjectionX" + c_th2c_setshowprojectionx :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetShowProjectionX" c_th2c_setshowprojectionx - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetShowProjectionY" + c_th2c_setshowprojectiony :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetShowProjectionY" c_th2c_setshowprojectiony - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Add" c_th2c_add :: + Ptr RawTH2C -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Add" c_th2c_add - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_AddBinContent" + c_th2c_addbincontent :: Ptr RawTH2C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_AddBinContent" c_th2c_addbincontent - :: (Ptr RawTH2C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Chi2Test" + c_th2c_chi2test :: + Ptr RawTH2C -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_Chi2Test" c_th2c_chi2test - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_ComputeIntegral" + c_th2c_computeintegral :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_ComputeIntegral" c_th2c_computeintegral - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_DirectoryAutoAdd" + c_th2c_directoryautoadd :: + Ptr RawTH2C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_DirectoryAutoAdd" c_th2c_directoryautoadd - :: (Ptr RawTH2C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Divide" + c_th2c_divide :: + Ptr RawTH2C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Divide" c_th2c_divide - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_drawCopyTH1" + c_th2c_drawcopyth1 :: Ptr RawTH2C -> CString -> IO (Ptr RawTH2C) -foreign import ccall "HROOTHistTH2C.h TH2C_drawCopyTH1" c_th2c_drawcopyth1 - :: (Ptr RawTH2C) -> CString -> IO (Ptr RawTH2C) +foreign import ccall safe "HROOTHistTH2C.h TH2C_DrawNormalized" + c_th2c_drawnormalized :: + Ptr RawTH2C -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2C.h TH2C_DrawNormalized" c_th2c_drawnormalized - :: (Ptr RawTH2C) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2C.h TH2C_drawPanelTH1" + c_th2c_drawpanelth1 :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_drawPanelTH1" c_th2c_drawpanelth1 - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_BufferEmpty" + c_th2c_bufferempty :: Ptr RawTH2C -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_BufferEmpty" c_th2c_bufferempty - :: (Ptr RawTH2C) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_evalF" c_th2c_evalf + :: Ptr RawTH2C -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_evalF" c_th2c_evalf - :: (Ptr RawTH2C) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FFT" c_th2c_fft :: + Ptr RawTH2C -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2C.h TH2C_FFT" c_th2c_fft - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2C.h TH2C_fill1" c_th2c_fill1 + :: Ptr RawTH2C -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_fill1" c_th2c_fill1 - :: (Ptr RawTH2C) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_fill1w" + c_th2c_fill1w :: Ptr RawTH2C -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_fill1w" c_th2c_fill1w - :: (Ptr RawTH2C) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_fillN1" + c_th2c_filln1 :: + Ptr RawTH2C -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_fillN1" c_th2c_filln1 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FillRandom" + c_th2c_fillrandom :: Ptr RawTH2C -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_FillRandom" c_th2c_fillrandom - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FindBin" + c_th2c_findbin :: + Ptr RawTH2C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_FindBin" c_th2c_findbin - :: (Ptr RawTH2C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_FindFixBin" + c_th2c_findfixbin :: + Ptr RawTH2C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_FindFixBin" c_th2c_findfixbin - :: (Ptr RawTH2C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_FindFirstBinAbove" + c_th2c_findfirstbinabove :: + Ptr RawTH2C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_FindFirstBinAbove" c_th2c_findfirstbinabove - :: (Ptr RawTH2C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_FindLastBinAbove" + c_th2c_findlastbinabove :: + Ptr RawTH2C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_FindLastBinAbove" c_th2c_findlastbinabove - :: (Ptr RawTH2C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_Fit" c_th2c_fit :: + Ptr RawTH2C -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_FitPanelTH1" c_th2c_fitpanelth1 - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FitPanelTH1" + c_th2c_fitpanelth1 :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_getNdivisionA" c_th2c_getndivisiona - :: (Ptr RawTH2C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getNdivisionA" + c_th2c_getndivisiona :: Ptr RawTH2C -> CString -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_getAxisColorA" c_th2c_getaxiscolora - :: (Ptr RawTH2C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getAxisColorA" + c_th2c_getaxiscolora :: Ptr RawTH2C -> CString -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_getLabelColorA" c_th2c_getlabelcolora - :: (Ptr RawTH2C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getLabelColorA" + c_th2c_getlabelcolora :: Ptr RawTH2C -> CString -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_getLabelFontA" c_th2c_getlabelfonta - :: (Ptr RawTH2C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getLabelFontA" + c_th2c_getlabelfonta :: Ptr RawTH2C -> CString -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_getLabelOffsetA" c_th2c_getlabeloffseta - :: (Ptr RawTH2C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getLabelOffsetA" + c_th2c_getlabeloffseta :: Ptr RawTH2C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getLabelSizeA" c_th2c_getlabelsizea - :: (Ptr RawTH2C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getLabelSizeA" + c_th2c_getlabelsizea :: Ptr RawTH2C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getTitleFontA" c_th2c_gettitlefonta - :: (Ptr RawTH2C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getTitleFontA" + c_th2c_gettitlefonta :: Ptr RawTH2C -> CString -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_getTitleOffsetA" c_th2c_gettitleoffseta - :: (Ptr RawTH2C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getTitleOffsetA" + c_th2c_gettitleoffseta :: Ptr RawTH2C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getTitleSizeA" c_th2c_gettitlesizea - :: (Ptr RawTH2C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getTitleSizeA" + c_th2c_gettitlesizea :: Ptr RawTH2C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getTickLengthA" c_th2c_getticklengtha - :: (Ptr RawTH2C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getTickLengthA" + c_th2c_getticklengtha :: Ptr RawTH2C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBarOffset" c_th2c_getbaroffset - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBarOffset" + c_th2c_getbaroffset :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBarWidth" c_th2c_getbarwidth - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBarWidth" + c_th2c_getbarwidth :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetContour" c_th2c_getcontour - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetContour" + c_th2c_getcontour :: Ptr RawTH2C -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetContourLevel" c_th2c_getcontourlevel - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetContourLevel" + c_th2c_getcontourlevel :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetContourLevelPad" c_th2c_getcontourlevelpad - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetContourLevelPad" + c_th2c_getcontourlevelpad :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBin" c_th2c_getbin - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBin" + c_th2c_getbin :: Ptr RawTH2C -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinCenter" c_th2c_getbincenter - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinCenter" + c_th2c_getbincenter :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinContent1" c_th2c_getbincontent1 - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinContent1" + c_th2c_getbincontent1 :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinContent2" c_th2c_getbincontent2 - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinContent2" + c_th2c_getbincontent2 :: Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinContent3" c_th2c_getbincontent3 - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinContent3" + c_th2c_getbincontent3 :: + Ptr RawTH2C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinError1" c_th2c_getbinerror1 - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinError1" + c_th2c_getbinerror1 :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinError2" c_th2c_getbinerror2 - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinError2" + c_th2c_getbinerror2 :: Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinError3" c_th2c_getbinerror3 - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinError3" + c_th2c_getbinerror3 :: + Ptr RawTH2C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinLowEdge" c_th2c_getbinlowedge - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinLowEdge" + c_th2c_getbinlowedge :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetBinWidth" c_th2c_getbinwidth - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetBinWidth" + c_th2c_getbinwidth :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetCellContent" c_th2c_getcellcontent - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetCellContent" + c_th2c_getcellcontent :: Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetCellError" c_th2c_getcellerror - :: (Ptr RawTH2C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetCellError" + c_th2c_getcellerror :: Ptr RawTH2C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetEntries" c_th2c_getentries - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetEntries" + c_th2c_getentries :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetEffectiveEntries" c_th2c_geteffectiveentries - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2C.h TH2C_GetEffectiveEntries" + c_th2c_geteffectiveentries :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetFunction" c_th2c_getfunction - :: (Ptr RawTH2C) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetFunction" + c_th2c_getfunction :: Ptr RawTH2C -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2C.h TH2C_GetDimension" c_th2c_getdimension - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetDimension" + c_th2c_getdimension :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetKurtosis" c_th2c_getkurtosis - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetKurtosis" + c_th2c_getkurtosis :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetLowEdge" c_th2c_getlowedge - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetLowEdge" + c_th2c_getlowedge :: Ptr RawTH2C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_getMaximumTH1" c_th2c_getmaximumth1 - :: (Ptr RawTH2C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getMaximumTH1" + c_th2c_getmaximumth1 :: Ptr RawTH2C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetMaximumBin" c_th2c_getmaximumbin - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMaximumBin" + c_th2c_getmaximumbin :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetMaximumStored" c_th2c_getmaximumstored - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMaximumStored" + c_th2c_getmaximumstored :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getMinimumTH1" c_th2c_getminimumth1 - :: (Ptr RawTH2C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_getMinimumTH1" + c_th2c_getminimumth1 :: Ptr RawTH2C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetMinimumBin" c_th2c_getminimumbin - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMinimumBin" + c_th2c_getminimumbin :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetMinimumStored" c_th2c_getminimumstored - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMinimumStored" + c_th2c_getminimumstored :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetMean" c_th2c_getmean - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMean" + c_th2c_getmean :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetMeanError" c_th2c_getmeanerror - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMeanError" + c_th2c_getmeanerror :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetNbinsX" c_th2c_getnbinsx - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetNbinsX" + c_th2c_getnbinsx :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetNbinsY" c_th2c_getnbinsy - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetNbinsY" + c_th2c_getnbinsy :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetNbinsZ" c_th2c_getnbinsz - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetNbinsZ" + c_th2c_getnbinsz :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_getQuantilesTH1" c_th2c_getquantilesth1 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_getQuantilesTH1" + c_th2c_getquantilesth1 :: + Ptr RawTH2C -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetRandom" c_th2c_getrandom - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetRandom" + c_th2c_getrandom :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetStats" c_th2c_getstats - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetStats" + c_th2c_getstats :: Ptr RawTH2C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetSumOfWeights" c_th2c_getsumofweights - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetSumOfWeights" + c_th2c_getsumofweights :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetSumw2" c_th2c_getsumw2 - :: (Ptr RawTH2C) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetSumw2" + c_th2c_getsumw2 :: Ptr RawTH2C -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2C.h TH2C_GetSumw2N" c_th2c_getsumw2n - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetSumw2N" + c_th2c_getsumw2n :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_GetRMS" c_th2c_getrms - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetRMS" + c_th2c_getrms :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetRMSError" c_th2c_getrmserror - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetRMSError" + c_th2c_getrmserror :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_GetSkewness" c_th2c_getskewness - :: (Ptr RawTH2C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetSkewness" + c_th2c_getskewness :: Ptr RawTH2C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_integral1" c_th2c_integral1 - :: (Ptr RawTH2C) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_integral1" + c_th2c_integral1 :: + Ptr RawTH2C -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_interpolate1" c_th2c_interpolate1 - :: (Ptr RawTH2C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_interpolate1" + c_th2c_interpolate1 :: Ptr RawTH2C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_interpolate2" c_th2c_interpolate2 - :: (Ptr RawTH2C) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_interpolate2" + c_th2c_interpolate2 :: + Ptr RawTH2C -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_interpolate3" c_th2c_interpolate3 - :: (Ptr RawTH2C) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_interpolate3" + c_th2c_interpolate3 :: + Ptr RawTH2C -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_KolmogorovTest" c_th2c_kolmogorovtest - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_KolmogorovTest" + c_th2c_kolmogorovtest :: + Ptr RawTH2C -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_LabelsDeflate" c_th2c_labelsdeflate - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_LabelsDeflate" + c_th2c_labelsdeflate :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_LabelsInflate" c_th2c_labelsinflate - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_LabelsInflate" + c_th2c_labelsinflate :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_LabelsOption" c_th2c_labelsoption - :: (Ptr RawTH2C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_LabelsOption" + c_th2c_labelsoption :: Ptr RawTH2C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_multiflyF" c_th2c_multiflyf - :: (Ptr RawTH2C) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_multiflyF" + c_th2c_multiflyf :: Ptr RawTH2C -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Multiply" c_th2c_multiply - :: (Ptr RawTH2C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Multiply" + c_th2c_multiply :: + Ptr RawTH2C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_PutStats" c_th2c_putstats - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_PutStats" + c_th2c_putstats :: Ptr RawTH2C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Rebin" c_th2c_rebin - :: (Ptr RawTH2C) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2C.h TH2C_Rebin" c_th2c_rebin + :: + Ptr RawTH2C -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2C.h TH2C_RebinAxis" c_th2c_rebinaxis - :: (Ptr RawTH2C) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_RebinAxis" + c_th2c_rebinaxis :: Ptr RawTH2C -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Rebuild" c_th2c_rebuild - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Rebuild" + c_th2c_rebuild :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_RecursiveRemove" c_th2c_recursiveremove - :: (Ptr RawTH2C) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_RecursiveRemove" + c_th2c_recursiveremove :: Ptr RawTH2C -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Reset" c_th2c_reset - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Reset" c_th2c_reset + :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_ResetStats" c_th2c_resetstats - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_ResetStats" + c_th2c_resetstats :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Scale" c_th2c_scale - :: (Ptr RawTH2C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Scale" c_th2c_scale + :: Ptr RawTH2C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setAxisColorA" c_th2c_setaxiscolora - :: (Ptr RawTH2C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setAxisColorA" + c_th2c_setaxiscolora :: Ptr RawTH2C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetAxisRange" c_th2c_setaxisrange - :: (Ptr RawTH2C) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetAxisRange" + c_th2c_setaxisrange :: + Ptr RawTH2C -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetBarOffset" c_th2c_setbaroffset - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetBarOffset" + c_th2c_setbaroffset :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetBarWidth" c_th2c_setbarwidth - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetBarWidth" + c_th2c_setbarwidth :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinContent1" c_th2c_setbincontent1 - :: (Ptr RawTH2C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinContent1" + c_th2c_setbincontent1 :: Ptr RawTH2C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinContent2" c_th2c_setbincontent2 - :: (Ptr RawTH2C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinContent2" + c_th2c_setbincontent2 :: + Ptr RawTH2C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinContent3" c_th2c_setbincontent3 - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinContent3" + c_th2c_setbincontent3 :: + Ptr RawTH2C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinError1" c_th2c_setbinerror1 - :: (Ptr RawTH2C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinError1" + c_th2c_setbinerror1 :: Ptr RawTH2C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinError2" c_th2c_setbinerror2 - :: (Ptr RawTH2C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinError2" + c_th2c_setbinerror2 :: + Ptr RawTH2C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBinError3" c_th2c_setbinerror3 - :: (Ptr RawTH2C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBinError3" + c_th2c_setbinerror3 :: + Ptr RawTH2C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBins1" c_th2c_setbins1 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBins1" + c_th2c_setbins1 :: Ptr RawTH2C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBins2" c_th2c_setbins2 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBins2" + c_th2c_setbins2 :: + Ptr RawTH2C -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setBins3" c_th2c_setbins3 - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setBins3" + c_th2c_setbins3 :: + Ptr RawTH2C -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetBinsLength" c_th2c_setbinslength - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetBinsLength" + c_th2c_setbinslength :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetBuffer" c_th2c_setbuffer - :: (Ptr RawTH2C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetBuffer" + c_th2c_setbuffer :: Ptr RawTH2C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetCellContent" c_th2c_setcellcontent - :: (Ptr RawTH2C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetCellContent" + c_th2c_setcellcontent :: + Ptr RawTH2C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetContent" c_th2c_setcontent - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetContent" + c_th2c_setcontent :: Ptr RawTH2C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetContour" c_th2c_setcontour - :: (Ptr RawTH2C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetContour" + c_th2c_setcontour :: Ptr RawTH2C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetContourLevel" c_th2c_setcontourlevel - :: (Ptr RawTH2C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetContourLevel" + c_th2c_setcontourlevel :: Ptr RawTH2C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetDirectory" c_th2c_setdirectory - :: (Ptr RawTH2C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetDirectory" + c_th2c_setdirectory :: Ptr RawTH2C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetEntries" c_th2c_setentries - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetEntries" + c_th2c_setentries :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetError" c_th2c_seterror - :: (Ptr RawTH2C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetError" + c_th2c_seterror :: Ptr RawTH2C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setLabelColorA" c_th2c_setlabelcolora - :: (Ptr RawTH2C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setLabelColorA" + c_th2c_setlabelcolora :: Ptr RawTH2C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setLabelSizeA" c_th2c_setlabelsizea - :: (Ptr RawTH2C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setLabelSizeA" + c_th2c_setlabelsizea :: Ptr RawTH2C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setLabelFontA" c_th2c_setlabelfonta - :: (Ptr RawTH2C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setLabelFontA" + c_th2c_setlabelfonta :: Ptr RawTH2C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_setLabelOffsetA" c_th2c_setlabeloffseta - :: (Ptr RawTH2C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_setLabelOffsetA" + c_th2c_setlabeloffseta :: + Ptr RawTH2C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetMaximum" c_th2c_setmaximum - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetMaximum" + c_th2c_setmaximum :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetMinimum" c_th2c_setminimum - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetMinimum" + c_th2c_setminimum :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetNormFactor" c_th2c_setnormfactor - :: (Ptr RawTH2C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetNormFactor" + c_th2c_setnormfactor :: Ptr RawTH2C -> CDouble -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetStats" c_th2c_setstats - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetStats" + c_th2c_setstats :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetOption" c_th2c_setoption - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetOption" + c_th2c_setoption :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetXTitle" c_th2c_setxtitle - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetXTitle" + c_th2c_setxtitle :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetYTitle" c_th2c_setytitle - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetYTitle" + c_th2c_setytitle :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetZTitle" c_th2c_setztitle - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetZTitle" + c_th2c_setztitle :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_ShowBackground" c_th2c_showbackground - :: (Ptr RawTH2C) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2C.h TH2C_ShowBackground" + c_th2c_showbackground :: + Ptr RawTH2C -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2C.h TH2C_ShowPeaks" c_th2c_showpeaks - :: (Ptr RawTH2C) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_ShowPeaks" + c_th2c_showpeaks :: + Ptr RawTH2C -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_Smooth" c_th2c_smooth - :: (Ptr RawTH2C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Smooth" + c_th2c_smooth :: Ptr RawTH2C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Sumw2" c_th2c_sumw2 - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Sumw2" c_th2c_sumw2 + :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Draw" c_th2c_draw - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetName" + c_th2c_setname :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_FindObject" c_th2c_findobject - :: (Ptr RawTH2C) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetNameTitle" + c_th2c_setnametitle :: Ptr RawTH2C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetName" c_th2c_getname - :: (Ptr RawTH2C) -> IO CString +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetTitle" + c_th2c_settitle :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_IsA" c_th2c_isa - :: (Ptr RawTH2C) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetLineColor" + c_th2c_getlinecolor :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_Paint" c_th2c_paint - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetLineStyle" + c_th2c_getlinestyle :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_printObj" c_th2c_printobj - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetLineWidth" + c_th2c_getlinewidth :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_SaveAs" c_th2c_saveas - :: (Ptr RawTH2C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_ResetAttLine" + c_th2c_resetattline :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_Write" c_th2c_write - :: (Ptr RawTH2C) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetLineAttributes" + c_th2c_setlineattributes :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetLineColor" c_th2c_getlinecolor - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetLineColor" + c_th2c_setlinecolor :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetLineStyle" c_th2c_getlinestyle - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetLineStyle" + c_th2c_setlinestyle :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetLineWidth" c_th2c_getlinewidth - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetLineWidth" + c_th2c_setlinewidth :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_ResetAttLine" c_th2c_resetattline - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetFillColor" + c_th2c_setfillcolor :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetLineAttributes" c_th2c_setlineattributes - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetFillStyle" + c_th2c_setfillstyle :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetLineColor" c_th2c_setlinecolor - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMarkerColor" + c_th2c_getmarkercolor :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_SetLineStyle" c_th2c_setlinestyle - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMarkerStyle" + c_th2c_getmarkerstyle :: Ptr RawTH2C -> IO CInt -foreign import ccall "HROOTHistTH2C.h TH2C_SetLineWidth" c_th2c_setlinewidth - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetMarkerSize" + c_th2c_getmarkersize :: Ptr RawTH2C -> IO CDouble -foreign import ccall "HROOTHistTH2C.h TH2C_SetFillColor" c_th2c_setfillcolor - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_ResetAttMarker" + c_th2c_resetattmarker :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetFillStyle" c_th2c_setfillstyle - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2C.h TH2C_SetMarkerAttributes" + c_th2c_setmarkerattributes :: Ptr RawTH2C -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetMarkerColor" c_th2c_getmarkercolor - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetMarkerColor" + c_th2c_setmarkercolor :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetMarkerStyle" c_th2c_getmarkerstyle - :: (Ptr RawTH2C) -> IO CInt +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetMarkerStyle" + c_th2c_setmarkerstyle :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_GetMarkerSize" c_th2c_getmarkersize - :: (Ptr RawTH2C) -> IO CDouble +foreign import ccall safe "HROOTHistTH2C.h TH2C_SetMarkerSize" + c_th2c_setmarkersize :: Ptr RawTH2C -> CInt -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_ResetAttMarker" c_th2c_resetattmarker - :: (Ptr RawTH2C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Draw" c_th2c_draw + :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_SetMarkerAttributes" c_th2c_setmarkerattributes - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_FindObject" + c_th2c_findobject :: Ptr RawTH2C -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2C.h TH2C_SetMarkerColor" c_th2c_setmarkercolor - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_GetName" + c_th2c_getname :: Ptr RawTH2C -> IO CString -foreign import ccall "HROOTHistTH2C.h TH2C_SetMarkerStyle" c_th2c_setmarkerstyle - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_IsA" c_th2c_isa :: + Ptr RawTH2C -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2C.h TH2C_SetMarkerSize" c_th2c_setmarkersize - :: (Ptr RawTH2C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_Paint" c_th2c_paint + :: Ptr RawTH2C -> CString -> IO () -foreign import ccall "HROOTHistTH2C.h TH2C_delete" c_th2c_delete - :: (Ptr RawTH2C) -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_printObj" + c_th2c_printobj :: Ptr RawTH2C -> CString -> IO () +foreign import ccall safe "HROOTHistTH2C.h TH2C_SaveAs" + c_th2c_saveas :: Ptr RawTH2C -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH2C.h TH2C_Write" c_th2c_write + :: Ptr RawTH2C -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2C.h TH2C_delete" + c_th2c_delete :: Ptr RawTH2C -> IO () diff --git a/src/HROOT/Hist/TH2C/Implementation.hs b/src/HROOT/Hist/TH2C/Implementation.hs --- a/src/HROOT/Hist/TH2C/Implementation.hs +++ b/src/HROOT/Hist/TH2C/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2C.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2C.RawType import HROOT.Hist.TH2C.FFI import HROOT.Hist.TH2C.Interface @@ -41,9 +42,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,392 +64,201 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2C TH2C -instance ITH2C TH2C where instance ITH2 TH2C where - fill2 = xform2 c_th2c_fill2 - fill2w = xform3 c_th2c_fill2w - fillN2 = xform5 c_th2c_filln2 - fillRandom2 = xform2 c_th2c_fillrandom2 - findFirstBinAbove2 = xform2 c_th2c_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2c_findlastbinabove2 - fitSlicesX = xform6 c_th2c_fitslicesx - fitSlicesY = xform6 c_th2c_fitslicesy - getCorrelationFactor2 = xform2 c_th2c_getcorrelationfactor2 - getCovariance2 = xform2 c_th2c_getcovariance2 - integral2 = xform5 c_th2c_integral2 - rebinX2 = xform2 c_th2c_rebinx2 - rebinY2 = xform2 c_th2c_rebiny2 - rebin2D = xform3 c_th2c_rebin2d - setShowProjectionX = xform1 c_th2c_setshowprojectionx - setShowProjectionY = xform1 c_th2c_setshowprojectiony -instance ITArrayC TH2C where -instance ITH1 TH2C where - add = xform2 c_th2c_add - addBinContent = xform2 c_th2c_addbincontent - chi2Test = xform3 c_th2c_chi2test - computeIntegral = xform0 c_th2c_computeintegral - directoryAutoAdd = xform1 c_th2c_directoryautoadd - divide = xform5 c_th2c_divide - drawCopyTH1 = xform1 c_th2c_drawcopyth1 - drawNormalized = xform2 c_th2c_drawnormalized - drawPanelTH1 = xform0 c_th2c_drawpanelth1 - bufferEmpty = xform1 c_th2c_bufferempty - evalF = xform2 c_th2c_evalf - fFT = xform2 c_th2c_fft - fill1 = xform1 c_th2c_fill1 - fill1w = xform2 c_th2c_fill1w - fillN1 = xform4 c_th2c_filln1 - fillRandom = xform2 c_th2c_fillrandom - findBin = xform3 c_th2c_findbin - findFixBin = xform3 c_th2c_findfixbin - findFirstBinAbove = xform2 c_th2c_findfirstbinabove - findLastBinAbove = xform2 c_th2c_findlastbinabove - fitPanelTH1 = xform0 c_th2c_fitpanelth1 - getNdivisionA = xform1 c_th2c_getndivisiona - getAxisColorA = xform1 c_th2c_getaxiscolora - getLabelColorA = xform1 c_th2c_getlabelcolora - getLabelFontA = xform1 c_th2c_getlabelfonta - getLabelOffsetA = xform1 c_th2c_getlabeloffseta - getLabelSizeA = xform1 c_th2c_getlabelsizea - getTitleFontA = xform1 c_th2c_gettitlefonta - getTitleOffsetA = xform1 c_th2c_gettitleoffseta - getTitleSizeA = xform1 c_th2c_gettitlesizea - getTickLengthA = xform1 c_th2c_getticklengtha - getBarOffset = xform0 c_th2c_getbaroffset - getBarWidth = xform0 c_th2c_getbarwidth - getContour = xform1 c_th2c_getcontour - getContourLevel = xform1 c_th2c_getcontourlevel - getContourLevelPad = xform1 c_th2c_getcontourlevelpad - getBin = xform3 c_th2c_getbin - getBinCenter = xform1 c_th2c_getbincenter - getBinContent1 = xform1 c_th2c_getbincontent1 - getBinContent2 = xform2 c_th2c_getbincontent2 - getBinContent3 = xform3 c_th2c_getbincontent3 - getBinError1 = xform1 c_th2c_getbinerror1 - getBinError2 = xform2 c_th2c_getbinerror2 - getBinError3 = xform3 c_th2c_getbinerror3 - getBinLowEdge = xform1 c_th2c_getbinlowedge - getBinWidth = xform1 c_th2c_getbinwidth - getCellContent = xform2 c_th2c_getcellcontent - getCellError = xform2 c_th2c_getcellerror - getEntries = xform0 c_th2c_getentries - getEffectiveEntries = xform0 c_th2c_geteffectiveentries - getFunction = xform1 c_th2c_getfunction - getDimension = xform0 c_th2c_getdimension - getKurtosis = xform1 c_th2c_getkurtosis - getLowEdge = xform1 c_th2c_getlowedge - getMaximumTH1 = xform1 c_th2c_getmaximumth1 - getMaximumBin = xform0 c_th2c_getmaximumbin - getMaximumStored = xform0 c_th2c_getmaximumstored - getMinimumTH1 = xform1 c_th2c_getminimumth1 - getMinimumBin = xform0 c_th2c_getminimumbin - getMinimumStored = xform0 c_th2c_getminimumstored - getMean = xform1 c_th2c_getmean - getMeanError = xform1 c_th2c_getmeanerror - getNbinsX = xform0 c_th2c_getnbinsx - getNbinsY = xform0 c_th2c_getnbinsy - getNbinsZ = xform0 c_th2c_getnbinsz - getQuantilesTH1 = xform3 c_th2c_getquantilesth1 - getRandom = xform0 c_th2c_getrandom - getStats = xform1 c_th2c_getstats - getSumOfWeights = xform0 c_th2c_getsumofweights - getSumw2 = xform0 c_th2c_getsumw2 - getSumw2N = xform0 c_th2c_getsumw2n - getRMS = xform1 c_th2c_getrms - getRMSError = xform1 c_th2c_getrmserror - getSkewness = xform1 c_th2c_getskewness - integral1 = xform3 c_th2c_integral1 - interpolate1 = xform1 c_th2c_interpolate1 - interpolate2 = xform2 c_th2c_interpolate2 - interpolate3 = xform3 c_th2c_interpolate3 - kolmogorovTest = xform2 c_th2c_kolmogorovtest - labelsDeflate = xform1 c_th2c_labelsdeflate - labelsInflate = xform1 c_th2c_labelsinflate - labelsOption = xform2 c_th2c_labelsoption - multiflyF = xform2 c_th2c_multiflyf - multiply = xform5 c_th2c_multiply - putStats = xform1 c_th2c_putstats - rebin = xform3 c_th2c_rebin - rebinAxis = xform2 c_th2c_rebinaxis - rebuild = xform1 c_th2c_rebuild - recursiveRemove = xform1 c_th2c_recursiveremove - reset = xform1 c_th2c_reset - resetStats = xform0 c_th2c_resetstats - scale = xform2 c_th2c_scale - setAxisColorA = xform2 c_th2c_setaxiscolora - setAxisRange = xform3 c_th2c_setaxisrange - setBarOffset = xform1 c_th2c_setbaroffset - setBarWidth = xform1 c_th2c_setbarwidth - setBinContent1 = xform2 c_th2c_setbincontent1 - setBinContent2 = xform3 c_th2c_setbincontent2 - setBinContent3 = xform4 c_th2c_setbincontent3 - setBinError1 = xform2 c_th2c_setbinerror1 - setBinError2 = xform3 c_th2c_setbinerror2 - setBinError3 = xform4 c_th2c_setbinerror3 - setBins1 = xform2 c_th2c_setbins1 - setBins2 = xform4 c_th2c_setbins2 - setBins3 = xform6 c_th2c_setbins3 - setBinsLength = xform1 c_th2c_setbinslength - setBuffer = xform2 c_th2c_setbuffer - setCellContent = xform3 c_th2c_setcellcontent - setContent = xform1 c_th2c_setcontent - setContour = xform2 c_th2c_setcontour - setContourLevel = xform2 c_th2c_setcontourlevel - setDirectory = xform1 c_th2c_setdirectory - setEntries = xform1 c_th2c_setentries - setError = xform1 c_th2c_seterror - setLabelColorA = xform2 c_th2c_setlabelcolora - setLabelSizeA = xform2 c_th2c_setlabelsizea - setLabelFontA = xform2 c_th2c_setlabelfonta - setLabelOffsetA = xform2 c_th2c_setlabeloffseta - setMaximum = xform1 c_th2c_setmaximum - setMinimum = xform1 c_th2c_setminimum - setNormFactor = xform1 c_th2c_setnormfactor - setStats = xform1 c_th2c_setstats - setOption = xform1 c_th2c_setoption - setXTitle = xform1 c_th2c_setxtitle - setYTitle = xform1 c_th2c_setytitle - setZTitle = xform1 c_th2c_setztitle - showBackground = xform2 c_th2c_showbackground - showPeaks = xform3 c_th2c_showpeaks - smooth = xform2 c_th2c_smooth - sumw2 = xform0 c_th2c_sumw2 -instance ITObject TH2C where - draw = xform1 c_th2c_draw - findObject = xform1 c_th2c_findobject - getName = xform0 c_th2c_getname - isA = xform0 c_th2c_isa - paint = xform1 c_th2c_paint - printObj = xform1 c_th2c_printobj - saveAs = xform2 c_th2c_saveas - write = xform3 c_th2c_write -instance ITAttLine TH2C where - getLineColor = xform0 c_th2c_getlinecolor - getLineStyle = xform0 c_th2c_getlinestyle - getLineWidth = xform0 c_th2c_getlinewidth - resetAttLine = xform1 c_th2c_resetattline - setLineAttributes = xform0 c_th2c_setlineattributes - setLineColor = xform1 c_th2c_setlinecolor - setLineStyle = xform1 c_th2c_setlinestyle - setLineWidth = xform1 c_th2c_setlinewidth -instance ITAttFill TH2C where - setFillColor = xform1 c_th2c_setfillcolor - setFillStyle = xform1 c_th2c_setfillstyle -instance ITAttMarker TH2C where - getMarkerColor = xform0 c_th2c_getmarkercolor - getMarkerStyle = xform0 c_th2c_getmarkerstyle - getMarkerSize = xform0 c_th2c_getmarkersize - resetAttMarker = xform1 c_th2c_resetattmarker - setMarkerAttributes = xform0 c_th2c_setmarkerattributes - setMarkerColor = xform1 c_th2c_setmarkercolor - setMarkerStyle = xform1 c_th2c_setmarkerstyle - setMarkerSize = xform1 c_th2c_setmarkersize -instance IDeletable TH2C where - delete = xform0 c_th2c_delete -instance ITArray TH2C where - -instance ITH2C (Exist TH2C) where - -instance ITH2 (Exist TH2C) where - fill2 (ETH2C x) = fill2 x - fill2w (ETH2C x) = fill2w x - fillN2 (ETH2C x) = fillN2 x - fillRandom2 (ETH2C x) = fillRandom2 x - findFirstBinAbove2 (ETH2C x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2C x) = findLastBinAbove2 x - fitSlicesX (ETH2C x) = fitSlicesX x - fitSlicesY (ETH2C x) = fitSlicesY x - getCorrelationFactor2 (ETH2C x) = getCorrelationFactor2 x - getCovariance2 (ETH2C x) = getCovariance2 x - integral2 (ETH2C x) = integral2 x - rebinX2 (ETH2C x) = rebinX2 x - rebinY2 (ETH2C x) = rebinY2 x - rebin2D (ETH2C x) = rebin2D x - setShowProjectionX (ETH2C x) = setShowProjectionX x - setShowProjectionY (ETH2C x) = setShowProjectionY x -instance ITArrayC (Exist TH2C) where + fill2 = xform2 c_th2c_fill2 + fill2w = xform3 c_th2c_fill2w + fillN2 = xform5 c_th2c_filln2 + fillRandom2 = xform2 c_th2c_fillrandom2 + findFirstBinAbove2 = xform2 c_th2c_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2c_findlastbinabove2 + fitSlicesX = xform6 c_th2c_fitslicesx + fitSlicesY = xform6 c_th2c_fitslicesy + getCorrelationFactor2 = xform2 c_th2c_getcorrelationfactor2 + getCovariance2 = xform2 c_th2c_getcovariance2 + integral2 = xform5 c_th2c_integral2 + rebinX2 = xform2 c_th2c_rebinx2 + rebinY2 = xform2 c_th2c_rebiny2 + rebin2D = xform3 c_th2c_rebin2d + setShowProjectionX = xform1 c_th2c_setshowprojectionx + setShowProjectionY = xform1 c_th2c_setshowprojectiony -instance ITH1 (Exist TH2C) where - add (ETH2C x) = add x - addBinContent (ETH2C x) = addBinContent x - chi2Test (ETH2C x) = chi2Test x - computeIntegral (ETH2C x) = computeIntegral x - directoryAutoAdd (ETH2C x) = directoryAutoAdd x - divide (ETH2C x) = divide x - drawCopyTH1 (ETH2C x) a1 = return . ETH2C =<< drawCopyTH1 x a1 - drawNormalized (ETH2C x) = drawNormalized x - drawPanelTH1 (ETH2C x) = drawPanelTH1 x - bufferEmpty (ETH2C x) = bufferEmpty x - evalF (ETH2C x) = evalF x - fFT (ETH2C x) = fFT x - fill1 (ETH2C x) = fill1 x - fill1w (ETH2C x) = fill1w x - fillN1 (ETH2C x) = fillN1 x - fillRandom (ETH2C x) = fillRandom x - findBin (ETH2C x) = findBin x - findFixBin (ETH2C x) = findFixBin x - findFirstBinAbove (ETH2C x) = findFirstBinAbove x - findLastBinAbove (ETH2C x) = findLastBinAbove x - fitPanelTH1 (ETH2C x) = fitPanelTH1 x - getNdivisionA (ETH2C x) = getNdivisionA x - getAxisColorA (ETH2C x) = getAxisColorA x - getLabelColorA (ETH2C x) = getLabelColorA x - getLabelFontA (ETH2C x) = getLabelFontA x - getLabelOffsetA (ETH2C x) = getLabelOffsetA x - getLabelSizeA (ETH2C x) = getLabelSizeA x - getTitleFontA (ETH2C x) = getTitleFontA x - getTitleOffsetA (ETH2C x) = getTitleOffsetA x - getTitleSizeA (ETH2C x) = getTitleSizeA x - getTickLengthA (ETH2C x) = getTickLengthA x - getBarOffset (ETH2C x) = getBarOffset x - getBarWidth (ETH2C x) = getBarWidth x - getContour (ETH2C x) = getContour x - getContourLevel (ETH2C x) = getContourLevel x - getContourLevelPad (ETH2C x) = getContourLevelPad x - getBin (ETH2C x) = getBin x - getBinCenter (ETH2C x) = getBinCenter x - getBinContent1 (ETH2C x) = getBinContent1 x - getBinContent2 (ETH2C x) = getBinContent2 x - getBinContent3 (ETH2C x) = getBinContent3 x - getBinError1 (ETH2C x) = getBinError1 x - getBinError2 (ETH2C x) = getBinError2 x - getBinError3 (ETH2C x) = getBinError3 x - getBinLowEdge (ETH2C x) = getBinLowEdge x - getBinWidth (ETH2C x) = getBinWidth x - getCellContent (ETH2C x) = getCellContent x - getCellError (ETH2C x) = getCellError x - getEntries (ETH2C x) = getEntries x - getEffectiveEntries (ETH2C x) = getEffectiveEntries x - getFunction (ETH2C x) = getFunction x - getDimension (ETH2C x) = getDimension x - getKurtosis (ETH2C x) = getKurtosis x - getLowEdge (ETH2C x) = getLowEdge x - getMaximumTH1 (ETH2C x) = getMaximumTH1 x - getMaximumBin (ETH2C x) = getMaximumBin x - getMaximumStored (ETH2C x) = getMaximumStored x - getMinimumTH1 (ETH2C x) = getMinimumTH1 x - getMinimumBin (ETH2C x) = getMinimumBin x - getMinimumStored (ETH2C x) = getMinimumStored x - getMean (ETH2C x) = getMean x - getMeanError (ETH2C x) = getMeanError x - getNbinsX (ETH2C x) = getNbinsX x - getNbinsY (ETH2C x) = getNbinsY x - getNbinsZ (ETH2C x) = getNbinsZ x - getQuantilesTH1 (ETH2C x) = getQuantilesTH1 x - getRandom (ETH2C x) = getRandom x - getStats (ETH2C x) = getStats x - getSumOfWeights (ETH2C x) = getSumOfWeights x - getSumw2 (ETH2C x) = getSumw2 x - getSumw2N (ETH2C x) = getSumw2N x - getRMS (ETH2C x) = getRMS x - getRMSError (ETH2C x) = getRMSError x - getSkewness (ETH2C x) = getSkewness x - integral1 (ETH2C x) = integral1 x - interpolate1 (ETH2C x) = interpolate1 x - interpolate2 (ETH2C x) = interpolate2 x - interpolate3 (ETH2C x) = interpolate3 x - kolmogorovTest (ETH2C x) = kolmogorovTest x - labelsDeflate (ETH2C x) = labelsDeflate x - labelsInflate (ETH2C x) = labelsInflate x - labelsOption (ETH2C x) = labelsOption x - multiflyF (ETH2C x) = multiflyF x - multiply (ETH2C x) = multiply x - putStats (ETH2C x) = putStats x - rebin (ETH2C x) = rebin x - rebinAxis (ETH2C x) = rebinAxis x - rebuild (ETH2C x) = rebuild x - recursiveRemove (ETH2C x) = recursiveRemove x - reset (ETH2C x) = reset x - resetStats (ETH2C x) = resetStats x - scale (ETH2C x) = scale x - setAxisColorA (ETH2C x) = setAxisColorA x - setAxisRange (ETH2C x) = setAxisRange x - setBarOffset (ETH2C x) = setBarOffset x - setBarWidth (ETH2C x) = setBarWidth x - setBinContent1 (ETH2C x) = setBinContent1 x - setBinContent2 (ETH2C x) = setBinContent2 x - setBinContent3 (ETH2C x) = setBinContent3 x - setBinError1 (ETH2C x) = setBinError1 x - setBinError2 (ETH2C x) = setBinError2 x - setBinError3 (ETH2C x) = setBinError3 x - setBins1 (ETH2C x) = setBins1 x - setBins2 (ETH2C x) = setBins2 x - setBins3 (ETH2C x) = setBins3 x - setBinsLength (ETH2C x) = setBinsLength x - setBuffer (ETH2C x) = setBuffer x - setCellContent (ETH2C x) = setCellContent x - setContent (ETH2C x) = setContent x - setContour (ETH2C x) = setContour x - setContourLevel (ETH2C x) = setContourLevel x - setDirectory (ETH2C x) = setDirectory x - setEntries (ETH2C x) = setEntries x - setError (ETH2C x) = setError x - setLabelColorA (ETH2C x) = setLabelColorA x - setLabelSizeA (ETH2C x) = setLabelSizeA x - setLabelFontA (ETH2C x) = setLabelFontA x - setLabelOffsetA (ETH2C x) = setLabelOffsetA x - setMaximum (ETH2C x) = setMaximum x - setMinimum (ETH2C x) = setMinimum x - setNormFactor (ETH2C x) = setNormFactor x - setStats (ETH2C x) = setStats x - setOption (ETH2C x) = setOption x - setXTitle (ETH2C x) = setXTitle x - setYTitle (ETH2C x) = setYTitle x - setZTitle (ETH2C x) = setZTitle x - showBackground (ETH2C x) = showBackground x - showPeaks (ETH2C x) = showPeaks x - smooth (ETH2C x) = smooth x - sumw2 (ETH2C x) = sumw2 x -instance ITObject (Exist TH2C) where - draw (ETH2C x) = draw x - findObject (ETH2C x) = findObject x - getName (ETH2C x) = getName x - isA (ETH2C x) = isA x - paint (ETH2C x) = paint x - printObj (ETH2C x) = printObj x - saveAs (ETH2C x) = saveAs x - write (ETH2C x) = write x -instance ITAttLine (Exist TH2C) where - getLineColor (ETH2C x) = getLineColor x - getLineStyle (ETH2C x) = getLineStyle x - getLineWidth (ETH2C x) = getLineWidth x - resetAttLine (ETH2C x) = resetAttLine x - setLineAttributes (ETH2C x) = setLineAttributes x - setLineColor (ETH2C x) = setLineColor x - setLineStyle (ETH2C x) = setLineStyle x - setLineWidth (ETH2C x) = setLineWidth x -instance ITAttFill (Exist TH2C) where - setFillColor (ETH2C x) = setFillColor x - setFillStyle (ETH2C x) = setFillStyle x -instance ITAttMarker (Exist TH2C) where - getMarkerColor (ETH2C x) = getMarkerColor x - getMarkerStyle (ETH2C x) = getMarkerStyle x - getMarkerSize (ETH2C x) = getMarkerSize x - resetAttMarker (ETH2C x) = resetAttMarker x - setMarkerAttributes (ETH2C x) = setMarkerAttributes x - setMarkerColor (ETH2C x) = setMarkerColor x - setMarkerStyle (ETH2C x) = setMarkerStyle x - setMarkerSize (ETH2C x) = setMarkerSize x -instance IDeletable (Exist TH2C) where - delete (ETH2C x) = delete x -instance ITArray (Exist TH2C) where +instance ITArrayC TH2C +instance ITH1 TH2C where + add = xform2 c_th2c_add + addBinContent = xform2 c_th2c_addbincontent + chi2Test = xform3 c_th2c_chi2test + computeIntegral = xform0 c_th2c_computeintegral + directoryAutoAdd = xform1 c_th2c_directoryautoadd + divide = xform5 c_th2c_divide + drawCopyTH1 = xform1 c_th2c_drawcopyth1 + drawNormalized = xform2 c_th2c_drawnormalized + drawPanelTH1 = xform0 c_th2c_drawpanelth1 + bufferEmpty = xform1 c_th2c_bufferempty + evalF = xform2 c_th2c_evalf + fFT = xform2 c_th2c_fft + fill1 = xform1 c_th2c_fill1 + fill1w = xform2 c_th2c_fill1w + fillN1 = xform4 c_th2c_filln1 + fillRandom = xform2 c_th2c_fillrandom + findBin = xform3 c_th2c_findbin + findFixBin = xform3 c_th2c_findfixbin + findFirstBinAbove = xform2 c_th2c_findfirstbinabove + findLastBinAbove = xform2 c_th2c_findlastbinabove + fit = xform5 c_th2c_fit + fitPanelTH1 = xform0 c_th2c_fitpanelth1 + getNdivisionA = xform1 c_th2c_getndivisiona + getAxisColorA = xform1 c_th2c_getaxiscolora + getLabelColorA = xform1 c_th2c_getlabelcolora + getLabelFontA = xform1 c_th2c_getlabelfonta + getLabelOffsetA = xform1 c_th2c_getlabeloffseta + getLabelSizeA = xform1 c_th2c_getlabelsizea + getTitleFontA = xform1 c_th2c_gettitlefonta + getTitleOffsetA = xform1 c_th2c_gettitleoffseta + getTitleSizeA = xform1 c_th2c_gettitlesizea + getTickLengthA = xform1 c_th2c_getticklengtha + getBarOffset = xform0 c_th2c_getbaroffset + getBarWidth = xform0 c_th2c_getbarwidth + getContour = xform1 c_th2c_getcontour + getContourLevel = xform1 c_th2c_getcontourlevel + getContourLevelPad = xform1 c_th2c_getcontourlevelpad + getBin = xform3 c_th2c_getbin + getBinCenter = xform1 c_th2c_getbincenter + getBinContent1 = xform1 c_th2c_getbincontent1 + getBinContent2 = xform2 c_th2c_getbincontent2 + getBinContent3 = xform3 c_th2c_getbincontent3 + getBinError1 = xform1 c_th2c_getbinerror1 + getBinError2 = xform2 c_th2c_getbinerror2 + getBinError3 = xform3 c_th2c_getbinerror3 + getBinLowEdge = xform1 c_th2c_getbinlowedge + getBinWidth = xform1 c_th2c_getbinwidth + getCellContent = xform2 c_th2c_getcellcontent + getCellError = xform2 c_th2c_getcellerror + getEntries = xform0 c_th2c_getentries + getEffectiveEntries = xform0 c_th2c_geteffectiveentries + getFunction = xform1 c_th2c_getfunction + getDimension = xform0 c_th2c_getdimension + getKurtosis = xform1 c_th2c_getkurtosis + getLowEdge = xform1 c_th2c_getlowedge + getMaximumTH1 = xform1 c_th2c_getmaximumth1 + getMaximumBin = xform0 c_th2c_getmaximumbin + getMaximumStored = xform0 c_th2c_getmaximumstored + getMinimumTH1 = xform1 c_th2c_getminimumth1 + getMinimumBin = xform0 c_th2c_getminimumbin + getMinimumStored = xform0 c_th2c_getminimumstored + getMean = xform1 c_th2c_getmean + getMeanError = xform1 c_th2c_getmeanerror + getNbinsX = xform0 c_th2c_getnbinsx + getNbinsY = xform0 c_th2c_getnbinsy + getNbinsZ = xform0 c_th2c_getnbinsz + getQuantilesTH1 = xform3 c_th2c_getquantilesth1 + getRandom = xform0 c_th2c_getrandom + getStats = xform1 c_th2c_getstats + getSumOfWeights = xform0 c_th2c_getsumofweights + getSumw2 = xform0 c_th2c_getsumw2 + getSumw2N = xform0 c_th2c_getsumw2n + getRMS = xform1 c_th2c_getrms + getRMSError = xform1 c_th2c_getrmserror + getSkewness = xform1 c_th2c_getskewness + integral1 = xform3 c_th2c_integral1 + interpolate1 = xform1 c_th2c_interpolate1 + interpolate2 = xform2 c_th2c_interpolate2 + interpolate3 = xform3 c_th2c_interpolate3 + kolmogorovTest = xform2 c_th2c_kolmogorovtest + labelsDeflate = xform1 c_th2c_labelsdeflate + labelsInflate = xform1 c_th2c_labelsinflate + labelsOption = xform2 c_th2c_labelsoption + multiflyF = xform2 c_th2c_multiflyf + multiply = xform5 c_th2c_multiply + putStats = xform1 c_th2c_putstats + rebin = xform3 c_th2c_rebin + rebinAxis = xform2 c_th2c_rebinaxis + rebuild = xform1 c_th2c_rebuild + recursiveRemove = xform1 c_th2c_recursiveremove + reset = xform1 c_th2c_reset + resetStats = xform0 c_th2c_resetstats + scale = xform2 c_th2c_scale + setAxisColorA = xform2 c_th2c_setaxiscolora + setAxisRange = xform3 c_th2c_setaxisrange + setBarOffset = xform1 c_th2c_setbaroffset + setBarWidth = xform1 c_th2c_setbarwidth + setBinContent1 = xform2 c_th2c_setbincontent1 + setBinContent2 = xform3 c_th2c_setbincontent2 + setBinContent3 = xform4 c_th2c_setbincontent3 + setBinError1 = xform2 c_th2c_setbinerror1 + setBinError2 = xform3 c_th2c_setbinerror2 + setBinError3 = xform4 c_th2c_setbinerror3 + setBins1 = xform2 c_th2c_setbins1 + setBins2 = xform4 c_th2c_setbins2 + setBins3 = xform6 c_th2c_setbins3 + setBinsLength = xform1 c_th2c_setbinslength + setBuffer = xform2 c_th2c_setbuffer + setCellContent = xform3 c_th2c_setcellcontent + setContent = xform1 c_th2c_setcontent + setContour = xform2 c_th2c_setcontour + setContourLevel = xform2 c_th2c_setcontourlevel + setDirectory = xform1 c_th2c_setdirectory + setEntries = xform1 c_th2c_setentries + setError = xform1 c_th2c_seterror + setLabelColorA = xform2 c_th2c_setlabelcolora + setLabelSizeA = xform2 c_th2c_setlabelsizea + setLabelFontA = xform2 c_th2c_setlabelfonta + setLabelOffsetA = xform2 c_th2c_setlabeloffseta + setMaximum = xform1 c_th2c_setmaximum + setMinimum = xform1 c_th2c_setminimum + setNormFactor = xform1 c_th2c_setnormfactor + setStats = xform1 c_th2c_setstats + setOption = xform1 c_th2c_setoption + setXTitle = xform1 c_th2c_setxtitle + setYTitle = xform1 c_th2c_setytitle + setZTitle = xform1 c_th2c_setztitle + showBackground = xform2 c_th2c_showbackground + showPeaks = xform3 c_th2c_showpeaks + smooth = xform2 c_th2c_smooth + sumw2 = xform0 c_th2c_sumw2 +instance ITNamed TH2C where + setName = xform1 c_th2c_setname + setNameTitle = xform2 c_th2c_setnametitle + setTitle = xform1 c_th2c_settitle +instance ITAttLine TH2C where + getLineColor = xform0 c_th2c_getlinecolor + getLineStyle = xform0 c_th2c_getlinestyle + getLineWidth = xform0 c_th2c_getlinewidth + resetAttLine = xform1 c_th2c_resetattline + setLineAttributes = xform0 c_th2c_setlineattributes + setLineColor = xform1 c_th2c_setlinecolor + setLineStyle = xform1 c_th2c_setlinestyle + setLineWidth = xform1 c_th2c_setlinewidth +instance ITAttFill TH2C where + setFillColor = xform1 c_th2c_setfillcolor + setFillStyle = xform1 c_th2c_setfillstyle +instance ITAttMarker TH2C where + getMarkerColor = xform0 c_th2c_getmarkercolor + getMarkerStyle = xform0 c_th2c_getmarkerstyle + getMarkerSize = xform0 c_th2c_getmarkersize + resetAttMarker = xform1 c_th2c_resetattmarker + setMarkerAttributes = xform0 c_th2c_setmarkerattributes + setMarkerColor = xform1 c_th2c_setmarkercolor + setMarkerStyle = xform1 c_th2c_setmarkerstyle + setMarkerSize = xform1 c_th2c_setmarkersize +instance ITObject TH2C where + draw = xform1 c_th2c_draw + findObject = xform1 c_th2c_findobject + getName = xform0 c_th2c_getname + isA = xform0 c_th2c_isa + paint = xform1 c_th2c_paint + printObj = xform1 c_th2c_printobj + saveAs = xform2 c_th2c_saveas + write = xform3 c_th2c_write +instance IDeletable TH2C where + delete = xform0 c_th2c_delete -instance FPtr (Exist TH2C) where - type Raw (Exist TH2C) = RawTH2C - get_fptr (ETH2C obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2C) :: TH2C) +instance ITArray TH2C diff --git a/src/HROOT/Hist/TH2C/Interface.hs b/src/HROOT/Hist/TH2C/Interface.hs --- a/src/HROOT/Hist/TH2C/Interface.hs +++ b/src/HROOT/Hist/TH2C/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2C.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2C.RawType - import HROOT.Hist.TH2.Interface import HROOT.Core.TArrayC.Interface ----- ============ ---- - - -class (ITH2 a,ITArrayC a) => ITH2C a where - -instance Existable TH2C where - data Exist TH2C = forall a. (FPtr a, ITH2C a) => ETH2C a +class (ITH2 a, ITArrayC a) => ITH2C a -upcastTH2C :: (FPtr a, ITH2C a) => a -> TH2C -upcastTH2C h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2C = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2C :: forall a . (FPtr a, ITH2C a) => a -> TH2C +upcastTH2C h + = let fh = get_fptr h + fh2 :: Ptr RawTH2C = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2C :: (FPtr a, ITH2C a) => TH2C -> a -downcastTH2C h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2C :: forall a . (FPtr a, ITH2C a) => TH2C -> a +downcastTH2C h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2C/RawType.hs b/src/HROOT/Hist/TH2C/RawType.hs --- a/src/HROOT/Hist/TH2C/RawType.hs +++ b/src/HROOT/Hist/TH2C/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2C.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2C -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2C = TH2C (Ptr RawTH2C) + deriving (Eq, Ord, Show) -data RawTH2C -newtype TH2C = TH2C (ForeignPtr RawTH2C) deriving (Eq, Ord, Show) instance FPtr TH2C where - type Raw TH2C = RawTH2C - get_fptr (TH2C fptr) = fptr - cast_fptr_to_obj = TH2C + type Raw TH2C = RawTH2C + get_fptr (TH2C ptr) = ptr + cast_fptr_to_obj = TH2C diff --git a/src/HROOT/Hist/TH2D.hs b/src/HROOT/Hist/TH2D.hs --- a/src/HROOT/Hist/TH2D.hs +++ b/src/HROOT/Hist/TH2D.hs @@ -1,15 +1,5 @@ module HROOT.Hist.TH2D - ( - TH2D(..) - , ITH2D - , upcastTH2D - , downcastTH2D - , newTH2D - - ) where - + (TH2D(..), ITH2D, upcastTH2D, downcastTH2D, newTH2D) where import HROOT.Hist.TH2D.RawType import HROOT.Hist.TH2D.Interface import HROOT.Hist.TH2D.Implementation - - diff --git a/src/HROOT/Hist/TH2D/Cast.hs b/src/HROOT/Hist/TH2D/Cast.hs --- a/src/HROOT/Hist/TH2D/Cast.hs +++ b/src/HROOT/Hist/TH2D/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2D.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2D.RawType import HROOT.Hist.TH2D.Interface instance (ITH2D a, FPtr a) => Castable a (Ptr RawTH2D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2D (Ptr RawTH2D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2D/FFI.hsc b/src/HROOT/Hist/TH2D/FFI.hsc --- a/src/HROOT/Hist/TH2D/FFI.hsc +++ b/src/HROOT/Hist/TH2D/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2D.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2D.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,527 +14,597 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2D.h" +foreign import ccall safe "HROOTHistTH2D.h TH2D_fill2" c_th2d_fill2 + :: Ptr RawTH2D -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_fill2" c_th2d_fill2 - :: (Ptr RawTH2D) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_fill2w" + c_th2d_fill2w :: + Ptr RawTH2D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_fill2w" c_th2d_fill2w - :: (Ptr RawTH2D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_fillN2" + c_th2d_filln2 :: + Ptr RawTH2D -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_fillN2" c_th2d_filln2 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_fillRandom2" + c_th2d_fillrandom2 :: Ptr RawTH2D -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_fillRandom2" c_th2d_fillrandom2 - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_findFirstBinAbove2" + c_th2d_findfirstbinabove2 :: + Ptr RawTH2D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_findFirstBinAbove2" c_th2d_findfirstbinabove2 - :: (Ptr RawTH2D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_findLastBinAbove2" + c_th2d_findlastbinabove2 :: + Ptr RawTH2D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_findLastBinAbove2" c_th2d_findlastbinabove2 - :: (Ptr RawTH2D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_FitSlicesX" + c_th2d_fitslicesx :: + Ptr RawTH2D -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_FitSlicesX" c_th2d_fitslicesx - :: (Ptr RawTH2D) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FitSlicesY" + c_th2d_fitslicesy :: + Ptr RawTH2D -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_FitSlicesY" c_th2d_fitslicesy - :: (Ptr RawTH2D) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2D.h TH2D_getCorrelationFactor2" + c_th2d_getcorrelationfactor2 :: + Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getCorrelationFactor2" c_th2d_getcorrelationfactor2 - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getCovariance2" + c_th2d_getcovariance2 :: Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getCovariance2" c_th2d_getcovariance2 - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_integral2" + c_th2d_integral2 :: + Ptr RawTH2D -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_integral2" c_th2d_integral2 - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_rebinX2" + c_th2d_rebinx2 :: Ptr RawTH2D -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2D.h TH2D_rebinX2" c_th2d_rebinx2 - :: (Ptr RawTH2D) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2D.h TH2D_rebinY2" + c_th2d_rebiny2 :: Ptr RawTH2D -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2D.h TH2D_rebinY2" c_th2d_rebiny2 - :: (Ptr RawTH2D) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2D.h TH2D_Rebin2D" + c_th2d_rebin2d :: + Ptr RawTH2D -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2D.h TH2D_Rebin2D" c_th2d_rebin2d - :: (Ptr RawTH2D) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetShowProjectionX" + c_th2d_setshowprojectionx :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetShowProjectionX" c_th2d_setshowprojectionx - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetShowProjectionY" + c_th2d_setshowprojectiony :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetShowProjectionY" c_th2d_setshowprojectiony - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Add" c_th2d_add :: + Ptr RawTH2D -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Add" c_th2d_add - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_AddBinContent" + c_th2d_addbincontent :: Ptr RawTH2D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_AddBinContent" c_th2d_addbincontent - :: (Ptr RawTH2D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Chi2Test" + c_th2d_chi2test :: + Ptr RawTH2D -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_Chi2Test" c_th2d_chi2test - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_ComputeIntegral" + c_th2d_computeintegral :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_ComputeIntegral" c_th2d_computeintegral - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_DirectoryAutoAdd" + c_th2d_directoryautoadd :: + Ptr RawTH2D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_DirectoryAutoAdd" c_th2d_directoryautoadd - :: (Ptr RawTH2D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Divide" + c_th2d_divide :: + Ptr RawTH2D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Divide" c_th2d_divide - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_drawCopyTH1" + c_th2d_drawcopyth1 :: Ptr RawTH2D -> CString -> IO (Ptr RawTH2D) -foreign import ccall "HROOTHistTH2D.h TH2D_drawCopyTH1" c_th2d_drawcopyth1 - :: (Ptr RawTH2D) -> CString -> IO (Ptr RawTH2D) +foreign import ccall safe "HROOTHistTH2D.h TH2D_DrawNormalized" + c_th2d_drawnormalized :: + Ptr RawTH2D -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2D.h TH2D_DrawNormalized" c_th2d_drawnormalized - :: (Ptr RawTH2D) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2D.h TH2D_drawPanelTH1" + c_th2d_drawpanelth1 :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_drawPanelTH1" c_th2d_drawpanelth1 - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_BufferEmpty" + c_th2d_bufferempty :: Ptr RawTH2D -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_BufferEmpty" c_th2d_bufferempty - :: (Ptr RawTH2D) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_evalF" c_th2d_evalf + :: Ptr RawTH2D -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_evalF" c_th2d_evalf - :: (Ptr RawTH2D) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FFT" c_th2d_fft :: + Ptr RawTH2D -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2D.h TH2D_FFT" c_th2d_fft - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2D.h TH2D_fill1" c_th2d_fill1 + :: Ptr RawTH2D -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_fill1" c_th2d_fill1 - :: (Ptr RawTH2D) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_fill1w" + c_th2d_fill1w :: Ptr RawTH2D -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_fill1w" c_th2d_fill1w - :: (Ptr RawTH2D) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_fillN1" + c_th2d_filln1 :: + Ptr RawTH2D -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_fillN1" c_th2d_filln1 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FillRandom" + c_th2d_fillrandom :: Ptr RawTH2D -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_FillRandom" c_th2d_fillrandom - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FindBin" + c_th2d_findbin :: + Ptr RawTH2D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_FindBin" c_th2d_findbin - :: (Ptr RawTH2D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_FindFixBin" + c_th2d_findfixbin :: + Ptr RawTH2D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_FindFixBin" c_th2d_findfixbin - :: (Ptr RawTH2D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_FindFirstBinAbove" + c_th2d_findfirstbinabove :: + Ptr RawTH2D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_FindFirstBinAbove" c_th2d_findfirstbinabove - :: (Ptr RawTH2D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_FindLastBinAbove" + c_th2d_findlastbinabove :: + Ptr RawTH2D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_FindLastBinAbove" c_th2d_findlastbinabove - :: (Ptr RawTH2D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_Fit" c_th2d_fit :: + Ptr RawTH2D -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_FitPanelTH1" c_th2d_fitpanelth1 - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FitPanelTH1" + c_th2d_fitpanelth1 :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_getNdivisionA" c_th2d_getndivisiona - :: (Ptr RawTH2D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getNdivisionA" + c_th2d_getndivisiona :: Ptr RawTH2D -> CString -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_getAxisColorA" c_th2d_getaxiscolora - :: (Ptr RawTH2D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getAxisColorA" + c_th2d_getaxiscolora :: Ptr RawTH2D -> CString -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_getLabelColorA" c_th2d_getlabelcolora - :: (Ptr RawTH2D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getLabelColorA" + c_th2d_getlabelcolora :: Ptr RawTH2D -> CString -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_getLabelFontA" c_th2d_getlabelfonta - :: (Ptr RawTH2D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getLabelFontA" + c_th2d_getlabelfonta :: Ptr RawTH2D -> CString -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_getLabelOffsetA" c_th2d_getlabeloffseta - :: (Ptr RawTH2D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getLabelOffsetA" + c_th2d_getlabeloffseta :: Ptr RawTH2D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getLabelSizeA" c_th2d_getlabelsizea - :: (Ptr RawTH2D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getLabelSizeA" + c_th2d_getlabelsizea :: Ptr RawTH2D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getTitleFontA" c_th2d_gettitlefonta - :: (Ptr RawTH2D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getTitleFontA" + c_th2d_gettitlefonta :: Ptr RawTH2D -> CString -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_getTitleOffsetA" c_th2d_gettitleoffseta - :: (Ptr RawTH2D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getTitleOffsetA" + c_th2d_gettitleoffseta :: Ptr RawTH2D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getTitleSizeA" c_th2d_gettitlesizea - :: (Ptr RawTH2D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getTitleSizeA" + c_th2d_gettitlesizea :: Ptr RawTH2D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getTickLengthA" c_th2d_getticklengtha - :: (Ptr RawTH2D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getTickLengthA" + c_th2d_getticklengtha :: Ptr RawTH2D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBarOffset" c_th2d_getbaroffset - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBarOffset" + c_th2d_getbaroffset :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBarWidth" c_th2d_getbarwidth - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBarWidth" + c_th2d_getbarwidth :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetContour" c_th2d_getcontour - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetContour" + c_th2d_getcontour :: Ptr RawTH2D -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetContourLevel" c_th2d_getcontourlevel - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetContourLevel" + c_th2d_getcontourlevel :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetContourLevelPad" c_th2d_getcontourlevelpad - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetContourLevelPad" + c_th2d_getcontourlevelpad :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBin" c_th2d_getbin - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBin" + c_th2d_getbin :: Ptr RawTH2D -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinCenter" c_th2d_getbincenter - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinCenter" + c_th2d_getbincenter :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinContent1" c_th2d_getbincontent1 - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinContent1" + c_th2d_getbincontent1 :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinContent2" c_th2d_getbincontent2 - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinContent2" + c_th2d_getbincontent2 :: Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinContent3" c_th2d_getbincontent3 - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinContent3" + c_th2d_getbincontent3 :: + Ptr RawTH2D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinError1" c_th2d_getbinerror1 - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinError1" + c_th2d_getbinerror1 :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinError2" c_th2d_getbinerror2 - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinError2" + c_th2d_getbinerror2 :: Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinError3" c_th2d_getbinerror3 - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinError3" + c_th2d_getbinerror3 :: + Ptr RawTH2D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinLowEdge" c_th2d_getbinlowedge - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinLowEdge" + c_th2d_getbinlowedge :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetBinWidth" c_th2d_getbinwidth - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetBinWidth" + c_th2d_getbinwidth :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetCellContent" c_th2d_getcellcontent - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetCellContent" + c_th2d_getcellcontent :: Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetCellError" c_th2d_getcellerror - :: (Ptr RawTH2D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetCellError" + c_th2d_getcellerror :: Ptr RawTH2D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetEntries" c_th2d_getentries - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetEntries" + c_th2d_getentries :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetEffectiveEntries" c_th2d_geteffectiveentries - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2D.h TH2D_GetEffectiveEntries" + c_th2d_geteffectiveentries :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetFunction" c_th2d_getfunction - :: (Ptr RawTH2D) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetFunction" + c_th2d_getfunction :: Ptr RawTH2D -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2D.h TH2D_GetDimension" c_th2d_getdimension - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetDimension" + c_th2d_getdimension :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetKurtosis" c_th2d_getkurtosis - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetKurtosis" + c_th2d_getkurtosis :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetLowEdge" c_th2d_getlowedge - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetLowEdge" + c_th2d_getlowedge :: Ptr RawTH2D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_getMaximumTH1" c_th2d_getmaximumth1 - :: (Ptr RawTH2D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getMaximumTH1" + c_th2d_getmaximumth1 :: Ptr RawTH2D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetMaximumBin" c_th2d_getmaximumbin - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMaximumBin" + c_th2d_getmaximumbin :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetMaximumStored" c_th2d_getmaximumstored - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMaximumStored" + c_th2d_getmaximumstored :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getMinimumTH1" c_th2d_getminimumth1 - :: (Ptr RawTH2D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_getMinimumTH1" + c_th2d_getminimumth1 :: Ptr RawTH2D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetMinimumBin" c_th2d_getminimumbin - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMinimumBin" + c_th2d_getminimumbin :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetMinimumStored" c_th2d_getminimumstored - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMinimumStored" + c_th2d_getminimumstored :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetMean" c_th2d_getmean - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMean" + c_th2d_getmean :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetMeanError" c_th2d_getmeanerror - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMeanError" + c_th2d_getmeanerror :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetNbinsX" c_th2d_getnbinsx - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetNbinsX" + c_th2d_getnbinsx :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetNbinsY" c_th2d_getnbinsy - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetNbinsY" + c_th2d_getnbinsy :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetNbinsZ" c_th2d_getnbinsz - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetNbinsZ" + c_th2d_getnbinsz :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_getQuantilesTH1" c_th2d_getquantilesth1 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_getQuantilesTH1" + c_th2d_getquantilesth1 :: + Ptr RawTH2D -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetRandom" c_th2d_getrandom - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetRandom" + c_th2d_getrandom :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetStats" c_th2d_getstats - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetStats" + c_th2d_getstats :: Ptr RawTH2D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetSumOfWeights" c_th2d_getsumofweights - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetSumOfWeights" + c_th2d_getsumofweights :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetSumw2" c_th2d_getsumw2 - :: (Ptr RawTH2D) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetSumw2" + c_th2d_getsumw2 :: Ptr RawTH2D -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2D.h TH2D_GetSumw2N" c_th2d_getsumw2n - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetSumw2N" + c_th2d_getsumw2n :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_GetRMS" c_th2d_getrms - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetRMS" + c_th2d_getrms :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetRMSError" c_th2d_getrmserror - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetRMSError" + c_th2d_getrmserror :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_GetSkewness" c_th2d_getskewness - :: (Ptr RawTH2D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetSkewness" + c_th2d_getskewness :: Ptr RawTH2D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_integral1" c_th2d_integral1 - :: (Ptr RawTH2D) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_integral1" + c_th2d_integral1 :: + Ptr RawTH2D -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_interpolate1" c_th2d_interpolate1 - :: (Ptr RawTH2D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_interpolate1" + c_th2d_interpolate1 :: Ptr RawTH2D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_interpolate2" c_th2d_interpolate2 - :: (Ptr RawTH2D) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_interpolate2" + c_th2d_interpolate2 :: + Ptr RawTH2D -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_interpolate3" c_th2d_interpolate3 - :: (Ptr RawTH2D) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_interpolate3" + c_th2d_interpolate3 :: + Ptr RawTH2D -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_KolmogorovTest" c_th2d_kolmogorovtest - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_KolmogorovTest" + c_th2d_kolmogorovtest :: + Ptr RawTH2D -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_LabelsDeflate" c_th2d_labelsdeflate - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_LabelsDeflate" + c_th2d_labelsdeflate :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_LabelsInflate" c_th2d_labelsinflate - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_LabelsInflate" + c_th2d_labelsinflate :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_LabelsOption" c_th2d_labelsoption - :: (Ptr RawTH2D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_LabelsOption" + c_th2d_labelsoption :: Ptr RawTH2D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_multiflyF" c_th2d_multiflyf - :: (Ptr RawTH2D) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_multiflyF" + c_th2d_multiflyf :: Ptr RawTH2D -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Multiply" c_th2d_multiply - :: (Ptr RawTH2D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Multiply" + c_th2d_multiply :: + Ptr RawTH2D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_PutStats" c_th2d_putstats - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_PutStats" + c_th2d_putstats :: Ptr RawTH2D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Rebin" c_th2d_rebin - :: (Ptr RawTH2D) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2D.h TH2D_Rebin" c_th2d_rebin + :: + Ptr RawTH2D -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2D.h TH2D_RebinAxis" c_th2d_rebinaxis - :: (Ptr RawTH2D) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_RebinAxis" + c_th2d_rebinaxis :: Ptr RawTH2D -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Rebuild" c_th2d_rebuild - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Rebuild" + c_th2d_rebuild :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_RecursiveRemove" c_th2d_recursiveremove - :: (Ptr RawTH2D) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_RecursiveRemove" + c_th2d_recursiveremove :: Ptr RawTH2D -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Reset" c_th2d_reset - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Reset" c_th2d_reset + :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_ResetStats" c_th2d_resetstats - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_ResetStats" + c_th2d_resetstats :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Scale" c_th2d_scale - :: (Ptr RawTH2D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Scale" c_th2d_scale + :: Ptr RawTH2D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setAxisColorA" c_th2d_setaxiscolora - :: (Ptr RawTH2D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setAxisColorA" + c_th2d_setaxiscolora :: Ptr RawTH2D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetAxisRange" c_th2d_setaxisrange - :: (Ptr RawTH2D) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetAxisRange" + c_th2d_setaxisrange :: + Ptr RawTH2D -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetBarOffset" c_th2d_setbaroffset - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetBarOffset" + c_th2d_setbaroffset :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetBarWidth" c_th2d_setbarwidth - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetBarWidth" + c_th2d_setbarwidth :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinContent1" c_th2d_setbincontent1 - :: (Ptr RawTH2D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinContent1" + c_th2d_setbincontent1 :: Ptr RawTH2D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinContent2" c_th2d_setbincontent2 - :: (Ptr RawTH2D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinContent2" + c_th2d_setbincontent2 :: + Ptr RawTH2D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinContent3" c_th2d_setbincontent3 - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinContent3" + c_th2d_setbincontent3 :: + Ptr RawTH2D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinError1" c_th2d_setbinerror1 - :: (Ptr RawTH2D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinError1" + c_th2d_setbinerror1 :: Ptr RawTH2D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinError2" c_th2d_setbinerror2 - :: (Ptr RawTH2D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinError2" + c_th2d_setbinerror2 :: + Ptr RawTH2D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBinError3" c_th2d_setbinerror3 - :: (Ptr RawTH2D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBinError3" + c_th2d_setbinerror3 :: + Ptr RawTH2D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBins1" c_th2d_setbins1 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBins1" + c_th2d_setbins1 :: Ptr RawTH2D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBins2" c_th2d_setbins2 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBins2" + c_th2d_setbins2 :: + Ptr RawTH2D -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setBins3" c_th2d_setbins3 - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setBins3" + c_th2d_setbins3 :: + Ptr RawTH2D -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetBinsLength" c_th2d_setbinslength - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetBinsLength" + c_th2d_setbinslength :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetBuffer" c_th2d_setbuffer - :: (Ptr RawTH2D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetBuffer" + c_th2d_setbuffer :: Ptr RawTH2D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetCellContent" c_th2d_setcellcontent - :: (Ptr RawTH2D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetCellContent" + c_th2d_setcellcontent :: + Ptr RawTH2D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetContent" c_th2d_setcontent - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetContent" + c_th2d_setcontent :: Ptr RawTH2D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetContour" c_th2d_setcontour - :: (Ptr RawTH2D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetContour" + c_th2d_setcontour :: Ptr RawTH2D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetContourLevel" c_th2d_setcontourlevel - :: (Ptr RawTH2D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetContourLevel" + c_th2d_setcontourlevel :: Ptr RawTH2D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetDirectory" c_th2d_setdirectory - :: (Ptr RawTH2D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetDirectory" + c_th2d_setdirectory :: Ptr RawTH2D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetEntries" c_th2d_setentries - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetEntries" + c_th2d_setentries :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetError" c_th2d_seterror - :: (Ptr RawTH2D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetError" + c_th2d_seterror :: Ptr RawTH2D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setLabelColorA" c_th2d_setlabelcolora - :: (Ptr RawTH2D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setLabelColorA" + c_th2d_setlabelcolora :: Ptr RawTH2D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setLabelSizeA" c_th2d_setlabelsizea - :: (Ptr RawTH2D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setLabelSizeA" + c_th2d_setlabelsizea :: Ptr RawTH2D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setLabelFontA" c_th2d_setlabelfonta - :: (Ptr RawTH2D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setLabelFontA" + c_th2d_setlabelfonta :: Ptr RawTH2D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_setLabelOffsetA" c_th2d_setlabeloffseta - :: (Ptr RawTH2D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_setLabelOffsetA" + c_th2d_setlabeloffseta :: + Ptr RawTH2D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetMaximum" c_th2d_setmaximum - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetMaximum" + c_th2d_setmaximum :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetMinimum" c_th2d_setminimum - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetMinimum" + c_th2d_setminimum :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetNormFactor" c_th2d_setnormfactor - :: (Ptr RawTH2D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetNormFactor" + c_th2d_setnormfactor :: Ptr RawTH2D -> CDouble -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetStats" c_th2d_setstats - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetStats" + c_th2d_setstats :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetOption" c_th2d_setoption - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetOption" + c_th2d_setoption :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetXTitle" c_th2d_setxtitle - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetXTitle" + c_th2d_setxtitle :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetYTitle" c_th2d_setytitle - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetYTitle" + c_th2d_setytitle :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetZTitle" c_th2d_setztitle - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetZTitle" + c_th2d_setztitle :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_ShowBackground" c_th2d_showbackground - :: (Ptr RawTH2D) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2D.h TH2D_ShowBackground" + c_th2d_showbackground :: + Ptr RawTH2D -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2D.h TH2D_ShowPeaks" c_th2d_showpeaks - :: (Ptr RawTH2D) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_ShowPeaks" + c_th2d_showpeaks :: + Ptr RawTH2D -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_Smooth" c_th2d_smooth - :: (Ptr RawTH2D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Smooth" + c_th2d_smooth :: Ptr RawTH2D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Sumw2" c_th2d_sumw2 - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Sumw2" c_th2d_sumw2 + :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Draw" c_th2d_draw - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetName" + c_th2d_setname :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_FindObject" c_th2d_findobject - :: (Ptr RawTH2D) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetNameTitle" + c_th2d_setnametitle :: Ptr RawTH2D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetName" c_th2d_getname - :: (Ptr RawTH2D) -> IO CString +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetTitle" + c_th2d_settitle :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_IsA" c_th2d_isa - :: (Ptr RawTH2D) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetLineColor" + c_th2d_getlinecolor :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_Paint" c_th2d_paint - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetLineStyle" + c_th2d_getlinestyle :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_printObj" c_th2d_printobj - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetLineWidth" + c_th2d_getlinewidth :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_SaveAs" c_th2d_saveas - :: (Ptr RawTH2D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_ResetAttLine" + c_th2d_resetattline :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_Write" c_th2d_write - :: (Ptr RawTH2D) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetLineAttributes" + c_th2d_setlineattributes :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetLineColor" c_th2d_getlinecolor - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetLineColor" + c_th2d_setlinecolor :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetLineStyle" c_th2d_getlinestyle - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetLineStyle" + c_th2d_setlinestyle :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetLineWidth" c_th2d_getlinewidth - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetLineWidth" + c_th2d_setlinewidth :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_ResetAttLine" c_th2d_resetattline - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetFillColor" + c_th2d_setfillcolor :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetLineAttributes" c_th2d_setlineattributes - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetFillStyle" + c_th2d_setfillstyle :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetLineColor" c_th2d_setlinecolor - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMarkerColor" + c_th2d_getmarkercolor :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_SetLineStyle" c_th2d_setlinestyle - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMarkerStyle" + c_th2d_getmarkerstyle :: Ptr RawTH2D -> IO CInt -foreign import ccall "HROOTHistTH2D.h TH2D_SetLineWidth" c_th2d_setlinewidth - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetMarkerSize" + c_th2d_getmarkersize :: Ptr RawTH2D -> IO CDouble -foreign import ccall "HROOTHistTH2D.h TH2D_SetFillColor" c_th2d_setfillcolor - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_ResetAttMarker" + c_th2d_resetattmarker :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetFillStyle" c_th2d_setfillstyle - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2D.h TH2D_SetMarkerAttributes" + c_th2d_setmarkerattributes :: Ptr RawTH2D -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetMarkerColor" c_th2d_getmarkercolor - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetMarkerColor" + c_th2d_setmarkercolor :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetMarkerStyle" c_th2d_getmarkerstyle - :: (Ptr RawTH2D) -> IO CInt +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetMarkerStyle" + c_th2d_setmarkerstyle :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_GetMarkerSize" c_th2d_getmarkersize - :: (Ptr RawTH2D) -> IO CDouble +foreign import ccall safe "HROOTHistTH2D.h TH2D_SetMarkerSize" + c_th2d_setmarkersize :: Ptr RawTH2D -> CInt -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_ResetAttMarker" c_th2d_resetattmarker - :: (Ptr RawTH2D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Draw" c_th2d_draw + :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_SetMarkerAttributes" c_th2d_setmarkerattributes - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_FindObject" + c_th2d_findobject :: Ptr RawTH2D -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2D.h TH2D_SetMarkerColor" c_th2d_setmarkercolor - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_GetName" + c_th2d_getname :: Ptr RawTH2D -> IO CString -foreign import ccall "HROOTHistTH2D.h TH2D_SetMarkerStyle" c_th2d_setmarkerstyle - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_IsA" c_th2d_isa :: + Ptr RawTH2D -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2D.h TH2D_SetMarkerSize" c_th2d_setmarkersize - :: (Ptr RawTH2D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Paint" c_th2d_paint + :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_delete" c_th2d_delete - :: (Ptr RawTH2D) -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_printObj" + c_th2d_printobj :: Ptr RawTH2D -> CString -> IO () -foreign import ccall "HROOTHistTH2D.h TH2D_newTH2D" c_th2d_newth2d - :: CString -> CString -> CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH2D) +foreign import ccall safe "HROOTHistTH2D.h TH2D_SaveAs" + c_th2d_saveas :: Ptr RawTH2D -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2D.h TH2D_Write" c_th2d_write + :: Ptr RawTH2D -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2D.h TH2D_delete" + c_th2d_delete :: Ptr RawTH2D -> IO () + +foreign import ccall safe "HROOTHistTH2D.h TH2D_newTH2D" + c_th2d_newth2d :: + CString -> + CString -> + CInt -> + CDouble -> + CDouble -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH2D) diff --git a/src/HROOT/Hist/TH2D/Implementation.hs b/src/HROOT/Hist/TH2D/Implementation.hs --- a/src/HROOT/Hist/TH2D/Implementation.hs +++ b/src/HROOT/Hist/TH2D/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2D.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2D.RawType import HROOT.Hist.TH2D.FFI import HROOT.Hist.TH2D.Interface @@ -38,9 +39,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -50,6 +51,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -57,394 +61,208 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2D TH2D -instance ITH2D TH2D where instance ITH2 TH2D where - fill2 = xform2 c_th2d_fill2 - fill2w = xform3 c_th2d_fill2w - fillN2 = xform5 c_th2d_filln2 - fillRandom2 = xform2 c_th2d_fillrandom2 - findFirstBinAbove2 = xform2 c_th2d_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2d_findlastbinabove2 - fitSlicesX = xform6 c_th2d_fitslicesx - fitSlicesY = xform6 c_th2d_fitslicesy - getCorrelationFactor2 = xform2 c_th2d_getcorrelationfactor2 - getCovariance2 = xform2 c_th2d_getcovariance2 - integral2 = xform5 c_th2d_integral2 - rebinX2 = xform2 c_th2d_rebinx2 - rebinY2 = xform2 c_th2d_rebiny2 - rebin2D = xform3 c_th2d_rebin2d - setShowProjectionX = xform1 c_th2d_setshowprojectionx - setShowProjectionY = xform1 c_th2d_setshowprojectiony -instance ITArrayD TH2D where -instance ITH1 TH2D where - add = xform2 c_th2d_add - addBinContent = xform2 c_th2d_addbincontent - chi2Test = xform3 c_th2d_chi2test - computeIntegral = xform0 c_th2d_computeintegral - directoryAutoAdd = xform1 c_th2d_directoryautoadd - divide = xform5 c_th2d_divide - drawCopyTH1 = xform1 c_th2d_drawcopyth1 - drawNormalized = xform2 c_th2d_drawnormalized - drawPanelTH1 = xform0 c_th2d_drawpanelth1 - bufferEmpty = xform1 c_th2d_bufferempty - evalF = xform2 c_th2d_evalf - fFT = xform2 c_th2d_fft - fill1 = xform1 c_th2d_fill1 - fill1w = xform2 c_th2d_fill1w - fillN1 = xform4 c_th2d_filln1 - fillRandom = xform2 c_th2d_fillrandom - findBin = xform3 c_th2d_findbin - findFixBin = xform3 c_th2d_findfixbin - findFirstBinAbove = xform2 c_th2d_findfirstbinabove - findLastBinAbove = xform2 c_th2d_findlastbinabove - fitPanelTH1 = xform0 c_th2d_fitpanelth1 - getNdivisionA = xform1 c_th2d_getndivisiona - getAxisColorA = xform1 c_th2d_getaxiscolora - getLabelColorA = xform1 c_th2d_getlabelcolora - getLabelFontA = xform1 c_th2d_getlabelfonta - getLabelOffsetA = xform1 c_th2d_getlabeloffseta - getLabelSizeA = xform1 c_th2d_getlabelsizea - getTitleFontA = xform1 c_th2d_gettitlefonta - getTitleOffsetA = xform1 c_th2d_gettitleoffseta - getTitleSizeA = xform1 c_th2d_gettitlesizea - getTickLengthA = xform1 c_th2d_getticklengtha - getBarOffset = xform0 c_th2d_getbaroffset - getBarWidth = xform0 c_th2d_getbarwidth - getContour = xform1 c_th2d_getcontour - getContourLevel = xform1 c_th2d_getcontourlevel - getContourLevelPad = xform1 c_th2d_getcontourlevelpad - getBin = xform3 c_th2d_getbin - getBinCenter = xform1 c_th2d_getbincenter - getBinContent1 = xform1 c_th2d_getbincontent1 - getBinContent2 = xform2 c_th2d_getbincontent2 - getBinContent3 = xform3 c_th2d_getbincontent3 - getBinError1 = xform1 c_th2d_getbinerror1 - getBinError2 = xform2 c_th2d_getbinerror2 - getBinError3 = xform3 c_th2d_getbinerror3 - getBinLowEdge = xform1 c_th2d_getbinlowedge - getBinWidth = xform1 c_th2d_getbinwidth - getCellContent = xform2 c_th2d_getcellcontent - getCellError = xform2 c_th2d_getcellerror - getEntries = xform0 c_th2d_getentries - getEffectiveEntries = xform0 c_th2d_geteffectiveentries - getFunction = xform1 c_th2d_getfunction - getDimension = xform0 c_th2d_getdimension - getKurtosis = xform1 c_th2d_getkurtosis - getLowEdge = xform1 c_th2d_getlowedge - getMaximumTH1 = xform1 c_th2d_getmaximumth1 - getMaximumBin = xform0 c_th2d_getmaximumbin - getMaximumStored = xform0 c_th2d_getmaximumstored - getMinimumTH1 = xform1 c_th2d_getminimumth1 - getMinimumBin = xform0 c_th2d_getminimumbin - getMinimumStored = xform0 c_th2d_getminimumstored - getMean = xform1 c_th2d_getmean - getMeanError = xform1 c_th2d_getmeanerror - getNbinsX = xform0 c_th2d_getnbinsx - getNbinsY = xform0 c_th2d_getnbinsy - getNbinsZ = xform0 c_th2d_getnbinsz - getQuantilesTH1 = xform3 c_th2d_getquantilesth1 - getRandom = xform0 c_th2d_getrandom - getStats = xform1 c_th2d_getstats - getSumOfWeights = xform0 c_th2d_getsumofweights - getSumw2 = xform0 c_th2d_getsumw2 - getSumw2N = xform0 c_th2d_getsumw2n - getRMS = xform1 c_th2d_getrms - getRMSError = xform1 c_th2d_getrmserror - getSkewness = xform1 c_th2d_getskewness - integral1 = xform3 c_th2d_integral1 - interpolate1 = xform1 c_th2d_interpolate1 - interpolate2 = xform2 c_th2d_interpolate2 - interpolate3 = xform3 c_th2d_interpolate3 - kolmogorovTest = xform2 c_th2d_kolmogorovtest - labelsDeflate = xform1 c_th2d_labelsdeflate - labelsInflate = xform1 c_th2d_labelsinflate - labelsOption = xform2 c_th2d_labelsoption - multiflyF = xform2 c_th2d_multiflyf - multiply = xform5 c_th2d_multiply - putStats = xform1 c_th2d_putstats - rebin = xform3 c_th2d_rebin - rebinAxis = xform2 c_th2d_rebinaxis - rebuild = xform1 c_th2d_rebuild - recursiveRemove = xform1 c_th2d_recursiveremove - reset = xform1 c_th2d_reset - resetStats = xform0 c_th2d_resetstats - scale = xform2 c_th2d_scale - setAxisColorA = xform2 c_th2d_setaxiscolora - setAxisRange = xform3 c_th2d_setaxisrange - setBarOffset = xform1 c_th2d_setbaroffset - setBarWidth = xform1 c_th2d_setbarwidth - setBinContent1 = xform2 c_th2d_setbincontent1 - setBinContent2 = xform3 c_th2d_setbincontent2 - setBinContent3 = xform4 c_th2d_setbincontent3 - setBinError1 = xform2 c_th2d_setbinerror1 - setBinError2 = xform3 c_th2d_setbinerror2 - setBinError3 = xform4 c_th2d_setbinerror3 - setBins1 = xform2 c_th2d_setbins1 - setBins2 = xform4 c_th2d_setbins2 - setBins3 = xform6 c_th2d_setbins3 - setBinsLength = xform1 c_th2d_setbinslength - setBuffer = xform2 c_th2d_setbuffer - setCellContent = xform3 c_th2d_setcellcontent - setContent = xform1 c_th2d_setcontent - setContour = xform2 c_th2d_setcontour - setContourLevel = xform2 c_th2d_setcontourlevel - setDirectory = xform1 c_th2d_setdirectory - setEntries = xform1 c_th2d_setentries - setError = xform1 c_th2d_seterror - setLabelColorA = xform2 c_th2d_setlabelcolora - setLabelSizeA = xform2 c_th2d_setlabelsizea - setLabelFontA = xform2 c_th2d_setlabelfonta - setLabelOffsetA = xform2 c_th2d_setlabeloffseta - setMaximum = xform1 c_th2d_setmaximum - setMinimum = xform1 c_th2d_setminimum - setNormFactor = xform1 c_th2d_setnormfactor - setStats = xform1 c_th2d_setstats - setOption = xform1 c_th2d_setoption - setXTitle = xform1 c_th2d_setxtitle - setYTitle = xform1 c_th2d_setytitle - setZTitle = xform1 c_th2d_setztitle - showBackground = xform2 c_th2d_showbackground - showPeaks = xform3 c_th2d_showpeaks - smooth = xform2 c_th2d_smooth - sumw2 = xform0 c_th2d_sumw2 -instance ITObject TH2D where - draw = xform1 c_th2d_draw - findObject = xform1 c_th2d_findobject - getName = xform0 c_th2d_getname - isA = xform0 c_th2d_isa - paint = xform1 c_th2d_paint - printObj = xform1 c_th2d_printobj - saveAs = xform2 c_th2d_saveas - write = xform3 c_th2d_write -instance ITAttLine TH2D where - getLineColor = xform0 c_th2d_getlinecolor - getLineStyle = xform0 c_th2d_getlinestyle - getLineWidth = xform0 c_th2d_getlinewidth - resetAttLine = xform1 c_th2d_resetattline - setLineAttributes = xform0 c_th2d_setlineattributes - setLineColor = xform1 c_th2d_setlinecolor - setLineStyle = xform1 c_th2d_setlinestyle - setLineWidth = xform1 c_th2d_setlinewidth -instance ITAttFill TH2D where - setFillColor = xform1 c_th2d_setfillcolor - setFillStyle = xform1 c_th2d_setfillstyle -instance ITAttMarker TH2D where - getMarkerColor = xform0 c_th2d_getmarkercolor - getMarkerStyle = xform0 c_th2d_getmarkerstyle - getMarkerSize = xform0 c_th2d_getmarkersize - resetAttMarker = xform1 c_th2d_resetattmarker - setMarkerAttributes = xform0 c_th2d_setmarkerattributes - setMarkerColor = xform1 c_th2d_setmarkercolor - setMarkerStyle = xform1 c_th2d_setmarkerstyle - setMarkerSize = xform1 c_th2d_setmarkersize -instance IDeletable TH2D where - delete = xform0 c_th2d_delete -instance ITArray TH2D where - -instance ITH2D (Exist TH2D) where + fill2 = xform2 c_th2d_fill2 + fill2w = xform3 c_th2d_fill2w + fillN2 = xform5 c_th2d_filln2 + fillRandom2 = xform2 c_th2d_fillrandom2 + findFirstBinAbove2 = xform2 c_th2d_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2d_findlastbinabove2 + fitSlicesX = xform6 c_th2d_fitslicesx + fitSlicesY = xform6 c_th2d_fitslicesy + getCorrelationFactor2 = xform2 c_th2d_getcorrelationfactor2 + getCovariance2 = xform2 c_th2d_getcovariance2 + integral2 = xform5 c_th2d_integral2 + rebinX2 = xform2 c_th2d_rebinx2 + rebinY2 = xform2 c_th2d_rebiny2 + rebin2D = xform3 c_th2d_rebin2d + setShowProjectionX = xform1 c_th2d_setshowprojectionx + setShowProjectionY = xform1 c_th2d_setshowprojectiony -instance ITH2 (Exist TH2D) where - fill2 (ETH2D x) = fill2 x - fill2w (ETH2D x) = fill2w x - fillN2 (ETH2D x) = fillN2 x - fillRandom2 (ETH2D x) = fillRandom2 x - findFirstBinAbove2 (ETH2D x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2D x) = findLastBinAbove2 x - fitSlicesX (ETH2D x) = fitSlicesX x - fitSlicesY (ETH2D x) = fitSlicesY x - getCorrelationFactor2 (ETH2D x) = getCorrelationFactor2 x - getCovariance2 (ETH2D x) = getCovariance2 x - integral2 (ETH2D x) = integral2 x - rebinX2 (ETH2D x) = rebinX2 x - rebinY2 (ETH2D x) = rebinY2 x - rebin2D (ETH2D x) = rebin2D x - setShowProjectionX (ETH2D x) = setShowProjectionX x - setShowProjectionY (ETH2D x) = setShowProjectionY x -instance ITArrayD (Exist TH2D) where +instance ITArrayD TH2D -instance ITH1 (Exist TH2D) where - add (ETH2D x) = add x - addBinContent (ETH2D x) = addBinContent x - chi2Test (ETH2D x) = chi2Test x - computeIntegral (ETH2D x) = computeIntegral x - directoryAutoAdd (ETH2D x) = directoryAutoAdd x - divide (ETH2D x) = divide x - drawCopyTH1 (ETH2D x) a1 = return . ETH2D =<< drawCopyTH1 x a1 - drawNormalized (ETH2D x) = drawNormalized x - drawPanelTH1 (ETH2D x) = drawPanelTH1 x - bufferEmpty (ETH2D x) = bufferEmpty x - evalF (ETH2D x) = evalF x - fFT (ETH2D x) = fFT x - fill1 (ETH2D x) = fill1 x - fill1w (ETH2D x) = fill1w x - fillN1 (ETH2D x) = fillN1 x - fillRandom (ETH2D x) = fillRandom x - findBin (ETH2D x) = findBin x - findFixBin (ETH2D x) = findFixBin x - findFirstBinAbove (ETH2D x) = findFirstBinAbove x - findLastBinAbove (ETH2D x) = findLastBinAbove x - fitPanelTH1 (ETH2D x) = fitPanelTH1 x - getNdivisionA (ETH2D x) = getNdivisionA x - getAxisColorA (ETH2D x) = getAxisColorA x - getLabelColorA (ETH2D x) = getLabelColorA x - getLabelFontA (ETH2D x) = getLabelFontA x - getLabelOffsetA (ETH2D x) = getLabelOffsetA x - getLabelSizeA (ETH2D x) = getLabelSizeA x - getTitleFontA (ETH2D x) = getTitleFontA x - getTitleOffsetA (ETH2D x) = getTitleOffsetA x - getTitleSizeA (ETH2D x) = getTitleSizeA x - getTickLengthA (ETH2D x) = getTickLengthA x - getBarOffset (ETH2D x) = getBarOffset x - getBarWidth (ETH2D x) = getBarWidth x - getContour (ETH2D x) = getContour x - getContourLevel (ETH2D x) = getContourLevel x - getContourLevelPad (ETH2D x) = getContourLevelPad x - getBin (ETH2D x) = getBin x - getBinCenter (ETH2D x) = getBinCenter x - getBinContent1 (ETH2D x) = getBinContent1 x - getBinContent2 (ETH2D x) = getBinContent2 x - getBinContent3 (ETH2D x) = getBinContent3 x - getBinError1 (ETH2D x) = getBinError1 x - getBinError2 (ETH2D x) = getBinError2 x - getBinError3 (ETH2D x) = getBinError3 x - getBinLowEdge (ETH2D x) = getBinLowEdge x - getBinWidth (ETH2D x) = getBinWidth x - getCellContent (ETH2D x) = getCellContent x - getCellError (ETH2D x) = getCellError x - getEntries (ETH2D x) = getEntries x - getEffectiveEntries (ETH2D x) = getEffectiveEntries x - getFunction (ETH2D x) = getFunction x - getDimension (ETH2D x) = getDimension x - getKurtosis (ETH2D x) = getKurtosis x - getLowEdge (ETH2D x) = getLowEdge x - getMaximumTH1 (ETH2D x) = getMaximumTH1 x - getMaximumBin (ETH2D x) = getMaximumBin x - getMaximumStored (ETH2D x) = getMaximumStored x - getMinimumTH1 (ETH2D x) = getMinimumTH1 x - getMinimumBin (ETH2D x) = getMinimumBin x - getMinimumStored (ETH2D x) = getMinimumStored x - getMean (ETH2D x) = getMean x - getMeanError (ETH2D x) = getMeanError x - getNbinsX (ETH2D x) = getNbinsX x - getNbinsY (ETH2D x) = getNbinsY x - getNbinsZ (ETH2D x) = getNbinsZ x - getQuantilesTH1 (ETH2D x) = getQuantilesTH1 x - getRandom (ETH2D x) = getRandom x - getStats (ETH2D x) = getStats x - getSumOfWeights (ETH2D x) = getSumOfWeights x - getSumw2 (ETH2D x) = getSumw2 x - getSumw2N (ETH2D x) = getSumw2N x - getRMS (ETH2D x) = getRMS x - getRMSError (ETH2D x) = getRMSError x - getSkewness (ETH2D x) = getSkewness x - integral1 (ETH2D x) = integral1 x - interpolate1 (ETH2D x) = interpolate1 x - interpolate2 (ETH2D x) = interpolate2 x - interpolate3 (ETH2D x) = interpolate3 x - kolmogorovTest (ETH2D x) = kolmogorovTest x - labelsDeflate (ETH2D x) = labelsDeflate x - labelsInflate (ETH2D x) = labelsInflate x - labelsOption (ETH2D x) = labelsOption x - multiflyF (ETH2D x) = multiflyF x - multiply (ETH2D x) = multiply x - putStats (ETH2D x) = putStats x - rebin (ETH2D x) = rebin x - rebinAxis (ETH2D x) = rebinAxis x - rebuild (ETH2D x) = rebuild x - recursiveRemove (ETH2D x) = recursiveRemove x - reset (ETH2D x) = reset x - resetStats (ETH2D x) = resetStats x - scale (ETH2D x) = scale x - setAxisColorA (ETH2D x) = setAxisColorA x - setAxisRange (ETH2D x) = setAxisRange x - setBarOffset (ETH2D x) = setBarOffset x - setBarWidth (ETH2D x) = setBarWidth x - setBinContent1 (ETH2D x) = setBinContent1 x - setBinContent2 (ETH2D x) = setBinContent2 x - setBinContent3 (ETH2D x) = setBinContent3 x - setBinError1 (ETH2D x) = setBinError1 x - setBinError2 (ETH2D x) = setBinError2 x - setBinError3 (ETH2D x) = setBinError3 x - setBins1 (ETH2D x) = setBins1 x - setBins2 (ETH2D x) = setBins2 x - setBins3 (ETH2D x) = setBins3 x - setBinsLength (ETH2D x) = setBinsLength x - setBuffer (ETH2D x) = setBuffer x - setCellContent (ETH2D x) = setCellContent x - setContent (ETH2D x) = setContent x - setContour (ETH2D x) = setContour x - setContourLevel (ETH2D x) = setContourLevel x - setDirectory (ETH2D x) = setDirectory x - setEntries (ETH2D x) = setEntries x - setError (ETH2D x) = setError x - setLabelColorA (ETH2D x) = setLabelColorA x - setLabelSizeA (ETH2D x) = setLabelSizeA x - setLabelFontA (ETH2D x) = setLabelFontA x - setLabelOffsetA (ETH2D x) = setLabelOffsetA x - setMaximum (ETH2D x) = setMaximum x - setMinimum (ETH2D x) = setMinimum x - setNormFactor (ETH2D x) = setNormFactor x - setStats (ETH2D x) = setStats x - setOption (ETH2D x) = setOption x - setXTitle (ETH2D x) = setXTitle x - setYTitle (ETH2D x) = setYTitle x - setZTitle (ETH2D x) = setZTitle x - showBackground (ETH2D x) = showBackground x - showPeaks (ETH2D x) = showPeaks x - smooth (ETH2D x) = smooth x - sumw2 (ETH2D x) = sumw2 x -instance ITObject (Exist TH2D) where - draw (ETH2D x) = draw x - findObject (ETH2D x) = findObject x - getName (ETH2D x) = getName x - isA (ETH2D x) = isA x - paint (ETH2D x) = paint x - printObj (ETH2D x) = printObj x - saveAs (ETH2D x) = saveAs x - write (ETH2D x) = write x -instance ITAttLine (Exist TH2D) where - getLineColor (ETH2D x) = getLineColor x - getLineStyle (ETH2D x) = getLineStyle x - getLineWidth (ETH2D x) = getLineWidth x - resetAttLine (ETH2D x) = resetAttLine x - setLineAttributes (ETH2D x) = setLineAttributes x - setLineColor (ETH2D x) = setLineColor x - setLineStyle (ETH2D x) = setLineStyle x - setLineWidth (ETH2D x) = setLineWidth x -instance ITAttFill (Exist TH2D) where - setFillColor (ETH2D x) = setFillColor x - setFillStyle (ETH2D x) = setFillStyle x -instance ITAttMarker (Exist TH2D) where - getMarkerColor (ETH2D x) = getMarkerColor x - getMarkerStyle (ETH2D x) = getMarkerStyle x - getMarkerSize (ETH2D x) = getMarkerSize x - resetAttMarker (ETH2D x) = resetAttMarker x - setMarkerAttributes (ETH2D x) = setMarkerAttributes x - setMarkerColor (ETH2D x) = setMarkerColor x - setMarkerStyle (ETH2D x) = setMarkerStyle x - setMarkerSize (ETH2D x) = setMarkerSize x -instance IDeletable (Exist TH2D) where - delete (ETH2D x) = delete x -instance ITArray (Exist TH2D) where +instance ITH1 TH2D where + add = xform2 c_th2d_add + addBinContent = xform2 c_th2d_addbincontent + chi2Test = xform3 c_th2d_chi2test + computeIntegral = xform0 c_th2d_computeintegral + directoryAutoAdd = xform1 c_th2d_directoryautoadd + divide = xform5 c_th2d_divide + drawCopyTH1 = xform1 c_th2d_drawcopyth1 + drawNormalized = xform2 c_th2d_drawnormalized + drawPanelTH1 = xform0 c_th2d_drawpanelth1 + bufferEmpty = xform1 c_th2d_bufferempty + evalF = xform2 c_th2d_evalf + fFT = xform2 c_th2d_fft + fill1 = xform1 c_th2d_fill1 + fill1w = xform2 c_th2d_fill1w + fillN1 = xform4 c_th2d_filln1 + fillRandom = xform2 c_th2d_fillrandom + findBin = xform3 c_th2d_findbin + findFixBin = xform3 c_th2d_findfixbin + findFirstBinAbove = xform2 c_th2d_findfirstbinabove + findLastBinAbove = xform2 c_th2d_findlastbinabove + fit = xform5 c_th2d_fit + fitPanelTH1 = xform0 c_th2d_fitpanelth1 + getNdivisionA = xform1 c_th2d_getndivisiona + getAxisColorA = xform1 c_th2d_getaxiscolora + getLabelColorA = xform1 c_th2d_getlabelcolora + getLabelFontA = xform1 c_th2d_getlabelfonta + getLabelOffsetA = xform1 c_th2d_getlabeloffseta + getLabelSizeA = xform1 c_th2d_getlabelsizea + getTitleFontA = xform1 c_th2d_gettitlefonta + getTitleOffsetA = xform1 c_th2d_gettitleoffseta + getTitleSizeA = xform1 c_th2d_gettitlesizea + getTickLengthA = xform1 c_th2d_getticklengtha + getBarOffset = xform0 c_th2d_getbaroffset + getBarWidth = xform0 c_th2d_getbarwidth + getContour = xform1 c_th2d_getcontour + getContourLevel = xform1 c_th2d_getcontourlevel + getContourLevelPad = xform1 c_th2d_getcontourlevelpad + getBin = xform3 c_th2d_getbin + getBinCenter = xform1 c_th2d_getbincenter + getBinContent1 = xform1 c_th2d_getbincontent1 + getBinContent2 = xform2 c_th2d_getbincontent2 + getBinContent3 = xform3 c_th2d_getbincontent3 + getBinError1 = xform1 c_th2d_getbinerror1 + getBinError2 = xform2 c_th2d_getbinerror2 + getBinError3 = xform3 c_th2d_getbinerror3 + getBinLowEdge = xform1 c_th2d_getbinlowedge + getBinWidth = xform1 c_th2d_getbinwidth + getCellContent = xform2 c_th2d_getcellcontent + getCellError = xform2 c_th2d_getcellerror + getEntries = xform0 c_th2d_getentries + getEffectiveEntries = xform0 c_th2d_geteffectiveentries + getFunction = xform1 c_th2d_getfunction + getDimension = xform0 c_th2d_getdimension + getKurtosis = xform1 c_th2d_getkurtosis + getLowEdge = xform1 c_th2d_getlowedge + getMaximumTH1 = xform1 c_th2d_getmaximumth1 + getMaximumBin = xform0 c_th2d_getmaximumbin + getMaximumStored = xform0 c_th2d_getmaximumstored + getMinimumTH1 = xform1 c_th2d_getminimumth1 + getMinimumBin = xform0 c_th2d_getminimumbin + getMinimumStored = xform0 c_th2d_getminimumstored + getMean = xform1 c_th2d_getmean + getMeanError = xform1 c_th2d_getmeanerror + getNbinsX = xform0 c_th2d_getnbinsx + getNbinsY = xform0 c_th2d_getnbinsy + getNbinsZ = xform0 c_th2d_getnbinsz + getQuantilesTH1 = xform3 c_th2d_getquantilesth1 + getRandom = xform0 c_th2d_getrandom + getStats = xform1 c_th2d_getstats + getSumOfWeights = xform0 c_th2d_getsumofweights + getSumw2 = xform0 c_th2d_getsumw2 + getSumw2N = xform0 c_th2d_getsumw2n + getRMS = xform1 c_th2d_getrms + getRMSError = xform1 c_th2d_getrmserror + getSkewness = xform1 c_th2d_getskewness + integral1 = xform3 c_th2d_integral1 + interpolate1 = xform1 c_th2d_interpolate1 + interpolate2 = xform2 c_th2d_interpolate2 + interpolate3 = xform3 c_th2d_interpolate3 + kolmogorovTest = xform2 c_th2d_kolmogorovtest + labelsDeflate = xform1 c_th2d_labelsdeflate + labelsInflate = xform1 c_th2d_labelsinflate + labelsOption = xform2 c_th2d_labelsoption + multiflyF = xform2 c_th2d_multiflyf + multiply = xform5 c_th2d_multiply + putStats = xform1 c_th2d_putstats + rebin = xform3 c_th2d_rebin + rebinAxis = xform2 c_th2d_rebinaxis + rebuild = xform1 c_th2d_rebuild + recursiveRemove = xform1 c_th2d_recursiveremove + reset = xform1 c_th2d_reset + resetStats = xform0 c_th2d_resetstats + scale = xform2 c_th2d_scale + setAxisColorA = xform2 c_th2d_setaxiscolora + setAxisRange = xform3 c_th2d_setaxisrange + setBarOffset = xform1 c_th2d_setbaroffset + setBarWidth = xform1 c_th2d_setbarwidth + setBinContent1 = xform2 c_th2d_setbincontent1 + setBinContent2 = xform3 c_th2d_setbincontent2 + setBinContent3 = xform4 c_th2d_setbincontent3 + setBinError1 = xform2 c_th2d_setbinerror1 + setBinError2 = xform3 c_th2d_setbinerror2 + setBinError3 = xform4 c_th2d_setbinerror3 + setBins1 = xform2 c_th2d_setbins1 + setBins2 = xform4 c_th2d_setbins2 + setBins3 = xform6 c_th2d_setbins3 + setBinsLength = xform1 c_th2d_setbinslength + setBuffer = xform2 c_th2d_setbuffer + setCellContent = xform3 c_th2d_setcellcontent + setContent = xform1 c_th2d_setcontent + setContour = xform2 c_th2d_setcontour + setContourLevel = xform2 c_th2d_setcontourlevel + setDirectory = xform1 c_th2d_setdirectory + setEntries = xform1 c_th2d_setentries + setError = xform1 c_th2d_seterror + setLabelColorA = xform2 c_th2d_setlabelcolora + setLabelSizeA = xform2 c_th2d_setlabelsizea + setLabelFontA = xform2 c_th2d_setlabelfonta + setLabelOffsetA = xform2 c_th2d_setlabeloffseta + setMaximum = xform1 c_th2d_setmaximum + setMinimum = xform1 c_th2d_setminimum + setNormFactor = xform1 c_th2d_setnormfactor + setStats = xform1 c_th2d_setstats + setOption = xform1 c_th2d_setoption + setXTitle = xform1 c_th2d_setxtitle + setYTitle = xform1 c_th2d_setytitle + setZTitle = xform1 c_th2d_setztitle + showBackground = xform2 c_th2d_showbackground + showPeaks = xform3 c_th2d_showpeaks + smooth = xform2 c_th2d_smooth + sumw2 = xform0 c_th2d_sumw2 +instance ITNamed TH2D where + setName = xform1 c_th2d_setname + setNameTitle = xform2 c_th2d_setnametitle + setTitle = xform1 c_th2d_settitle +instance ITAttLine TH2D where + getLineColor = xform0 c_th2d_getlinecolor + getLineStyle = xform0 c_th2d_getlinestyle + getLineWidth = xform0 c_th2d_getlinewidth + resetAttLine = xform1 c_th2d_resetattline + setLineAttributes = xform0 c_th2d_setlineattributes + setLineColor = xform1 c_th2d_setlinecolor + setLineStyle = xform1 c_th2d_setlinestyle + setLineWidth = xform1 c_th2d_setlinewidth -newTH2D :: CString -> CString -> CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO TH2D -newTH2D = xform7 c_th2d_newth2d +instance ITAttFill TH2D where + setFillColor = xform1 c_th2d_setfillcolor + setFillStyle = xform1 c_th2d_setfillstyle +instance ITAttMarker TH2D where + getMarkerColor = xform0 c_th2d_getmarkercolor + getMarkerStyle = xform0 c_th2d_getmarkerstyle + getMarkerSize = xform0 c_th2d_getmarkersize + resetAttMarker = xform1 c_th2d_resetattmarker + setMarkerAttributes = xform0 c_th2d_setmarkerattributes + setMarkerColor = xform1 c_th2d_setmarkercolor + setMarkerStyle = xform1 c_th2d_setmarkerstyle + setMarkerSize = xform1 c_th2d_setmarkersize +instance ITObject TH2D where + draw = xform1 c_th2d_draw + findObject = xform1 c_th2d_findobject + getName = xform0 c_th2d_getname + isA = xform0 c_th2d_isa + paint = xform1 c_th2d_paint + printObj = xform1 c_th2d_printobj + saveAs = xform2 c_th2d_saveas + write = xform3 c_th2d_write +instance IDeletable TH2D where + delete = xform0 c_th2d_delete +instance ITArray TH2D -instance FPtr (Exist TH2D) where - type Raw (Exist TH2D) = RawTH2D - get_fptr (ETH2D obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2D) :: TH2D) +newTH2D :: + (Castable c1 CString, Castable c0 CString) => + c0 -> + c1 -> + CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO TH2D +newTH2D = xform7 c_th2d_newth2d diff --git a/src/HROOT/Hist/TH2D/Interface.hs b/src/HROOT/Hist/TH2D/Interface.hs --- a/src/HROOT/Hist/TH2D/Interface.hs +++ b/src/HROOT/Hist/TH2D/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2D.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2D.RawType - import HROOT.Hist.TH2.Interface import HROOT.Core.TArrayD.Interface ----- ============ ---- - - -class (ITH2 a,ITArrayD a) => ITH2D a where - -instance Existable TH2D where - data Exist TH2D = forall a. (FPtr a, ITH2D a) => ETH2D a +class (ITH2 a, ITArrayD a) => ITH2D a -upcastTH2D :: (FPtr a, ITH2D a) => a -> TH2D -upcastTH2D h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2D = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2D :: forall a . (FPtr a, ITH2D a) => a -> TH2D +upcastTH2D h + = let fh = get_fptr h + fh2 :: Ptr RawTH2D = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2D :: (FPtr a, ITH2D a) => TH2D -> a -downcastTH2D h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2D :: forall a . (FPtr a, ITH2D a) => TH2D -> a +downcastTH2D h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2D/RawType.hs b/src/HROOT/Hist/TH2D/RawType.hs --- a/src/HROOT/Hist/TH2D/RawType.hs +++ b/src/HROOT/Hist/TH2D/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2D.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2D -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2D = TH2D (Ptr RawTH2D) + deriving (Eq, Ord, Show) -data RawTH2D -newtype TH2D = TH2D (ForeignPtr RawTH2D) deriving (Eq, Ord, Show) instance FPtr TH2D where - type Raw TH2D = RawTH2D - get_fptr (TH2D fptr) = fptr - cast_fptr_to_obj = TH2D + type Raw TH2D = RawTH2D + get_fptr (TH2D ptr) = ptr + cast_fptr_to_obj = TH2D diff --git a/src/HROOT/Hist/TH2F.hs b/src/HROOT/Hist/TH2F.hs --- a/src/HROOT/Hist/TH2F.hs +++ b/src/HROOT/Hist/TH2F.hs @@ -1,15 +1,5 @@ module HROOT.Hist.TH2F - ( - TH2F(..) - , ITH2F - , upcastTH2F - , downcastTH2F - , newTH2F - - ) where - + (TH2F(..), ITH2F, upcastTH2F, downcastTH2F, newTH2F) where import HROOT.Hist.TH2F.RawType import HROOT.Hist.TH2F.Interface import HROOT.Hist.TH2F.Implementation - - diff --git a/src/HROOT/Hist/TH2F/Cast.hs b/src/HROOT/Hist/TH2F/Cast.hs --- a/src/HROOT/Hist/TH2F/Cast.hs +++ b/src/HROOT/Hist/TH2F/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2F.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2F.RawType import HROOT.Hist.TH2F.Interface instance (ITH2F a, FPtr a) => Castable a (Ptr RawTH2F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2F (Ptr RawTH2F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2F/FFI.hsc b/src/HROOT/Hist/TH2F/FFI.hsc --- a/src/HROOT/Hist/TH2F/FFI.hsc +++ b/src/HROOT/Hist/TH2F/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2F.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2F.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,527 +14,597 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2F.h" +foreign import ccall safe "HROOTHistTH2F.h TH2F_fill2" c_th2f_fill2 + :: Ptr RawTH2F -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_fill2" c_th2f_fill2 - :: (Ptr RawTH2F) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_fill2w" + c_th2f_fill2w :: + Ptr RawTH2F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_fill2w" c_th2f_fill2w - :: (Ptr RawTH2F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_fillN2" + c_th2f_filln2 :: + Ptr RawTH2F -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_fillN2" c_th2f_filln2 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_fillRandom2" + c_th2f_fillrandom2 :: Ptr RawTH2F -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_fillRandom2" c_th2f_fillrandom2 - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_findFirstBinAbove2" + c_th2f_findfirstbinabove2 :: + Ptr RawTH2F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_findFirstBinAbove2" c_th2f_findfirstbinabove2 - :: (Ptr RawTH2F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_findLastBinAbove2" + c_th2f_findlastbinabove2 :: + Ptr RawTH2F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_findLastBinAbove2" c_th2f_findlastbinabove2 - :: (Ptr RawTH2F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_FitSlicesX" + c_th2f_fitslicesx :: + Ptr RawTH2F -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_FitSlicesX" c_th2f_fitslicesx - :: (Ptr RawTH2F) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FitSlicesY" + c_th2f_fitslicesy :: + Ptr RawTH2F -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_FitSlicesY" c_th2f_fitslicesy - :: (Ptr RawTH2F) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2F.h TH2F_getCorrelationFactor2" + c_th2f_getcorrelationfactor2 :: + Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getCorrelationFactor2" c_th2f_getcorrelationfactor2 - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getCovariance2" + c_th2f_getcovariance2 :: Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getCovariance2" c_th2f_getcovariance2 - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_integral2" + c_th2f_integral2 :: + Ptr RawTH2F -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_integral2" c_th2f_integral2 - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_rebinX2" + c_th2f_rebinx2 :: Ptr RawTH2F -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2F.h TH2F_rebinX2" c_th2f_rebinx2 - :: (Ptr RawTH2F) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2F.h TH2F_rebinY2" + c_th2f_rebiny2 :: Ptr RawTH2F -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2F.h TH2F_rebinY2" c_th2f_rebiny2 - :: (Ptr RawTH2F) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2F.h TH2F_Rebin2D" + c_th2f_rebin2d :: + Ptr RawTH2F -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2F.h TH2F_Rebin2D" c_th2f_rebin2d - :: (Ptr RawTH2F) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetShowProjectionX" + c_th2f_setshowprojectionx :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetShowProjectionX" c_th2f_setshowprojectionx - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetShowProjectionY" + c_th2f_setshowprojectiony :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetShowProjectionY" c_th2f_setshowprojectiony - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Add" c_th2f_add :: + Ptr RawTH2F -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Add" c_th2f_add - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_AddBinContent" + c_th2f_addbincontent :: Ptr RawTH2F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_AddBinContent" c_th2f_addbincontent - :: (Ptr RawTH2F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Chi2Test" + c_th2f_chi2test :: + Ptr RawTH2F -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_Chi2Test" c_th2f_chi2test - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_ComputeIntegral" + c_th2f_computeintegral :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_ComputeIntegral" c_th2f_computeintegral - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_DirectoryAutoAdd" + c_th2f_directoryautoadd :: + Ptr RawTH2F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_DirectoryAutoAdd" c_th2f_directoryautoadd - :: (Ptr RawTH2F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Divide" + c_th2f_divide :: + Ptr RawTH2F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Divide" c_th2f_divide - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_drawCopyTH1" + c_th2f_drawcopyth1 :: Ptr RawTH2F -> CString -> IO (Ptr RawTH2F) -foreign import ccall "HROOTHistTH2F.h TH2F_drawCopyTH1" c_th2f_drawcopyth1 - :: (Ptr RawTH2F) -> CString -> IO (Ptr RawTH2F) +foreign import ccall safe "HROOTHistTH2F.h TH2F_DrawNormalized" + c_th2f_drawnormalized :: + Ptr RawTH2F -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2F.h TH2F_DrawNormalized" c_th2f_drawnormalized - :: (Ptr RawTH2F) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2F.h TH2F_drawPanelTH1" + c_th2f_drawpanelth1 :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_drawPanelTH1" c_th2f_drawpanelth1 - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_BufferEmpty" + c_th2f_bufferempty :: Ptr RawTH2F -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_BufferEmpty" c_th2f_bufferempty - :: (Ptr RawTH2F) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_evalF" c_th2f_evalf + :: Ptr RawTH2F -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_evalF" c_th2f_evalf - :: (Ptr RawTH2F) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FFT" c_th2f_fft :: + Ptr RawTH2F -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2F.h TH2F_FFT" c_th2f_fft - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2F.h TH2F_fill1" c_th2f_fill1 + :: Ptr RawTH2F -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_fill1" c_th2f_fill1 - :: (Ptr RawTH2F) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_fill1w" + c_th2f_fill1w :: Ptr RawTH2F -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_fill1w" c_th2f_fill1w - :: (Ptr RawTH2F) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_fillN1" + c_th2f_filln1 :: + Ptr RawTH2F -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_fillN1" c_th2f_filln1 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FillRandom" + c_th2f_fillrandom :: Ptr RawTH2F -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_FillRandom" c_th2f_fillrandom - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FindBin" + c_th2f_findbin :: + Ptr RawTH2F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_FindBin" c_th2f_findbin - :: (Ptr RawTH2F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_FindFixBin" + c_th2f_findfixbin :: + Ptr RawTH2F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_FindFixBin" c_th2f_findfixbin - :: (Ptr RawTH2F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_FindFirstBinAbove" + c_th2f_findfirstbinabove :: + Ptr RawTH2F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_FindFirstBinAbove" c_th2f_findfirstbinabove - :: (Ptr RawTH2F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_FindLastBinAbove" + c_th2f_findlastbinabove :: + Ptr RawTH2F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_FindLastBinAbove" c_th2f_findlastbinabove - :: (Ptr RawTH2F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_Fit" c_th2f_fit :: + Ptr RawTH2F -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_FitPanelTH1" c_th2f_fitpanelth1 - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FitPanelTH1" + c_th2f_fitpanelth1 :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_getNdivisionA" c_th2f_getndivisiona - :: (Ptr RawTH2F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getNdivisionA" + c_th2f_getndivisiona :: Ptr RawTH2F -> CString -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_getAxisColorA" c_th2f_getaxiscolora - :: (Ptr RawTH2F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getAxisColorA" + c_th2f_getaxiscolora :: Ptr RawTH2F -> CString -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_getLabelColorA" c_th2f_getlabelcolora - :: (Ptr RawTH2F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getLabelColorA" + c_th2f_getlabelcolora :: Ptr RawTH2F -> CString -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_getLabelFontA" c_th2f_getlabelfonta - :: (Ptr RawTH2F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getLabelFontA" + c_th2f_getlabelfonta :: Ptr RawTH2F -> CString -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_getLabelOffsetA" c_th2f_getlabeloffseta - :: (Ptr RawTH2F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getLabelOffsetA" + c_th2f_getlabeloffseta :: Ptr RawTH2F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getLabelSizeA" c_th2f_getlabelsizea - :: (Ptr RawTH2F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getLabelSizeA" + c_th2f_getlabelsizea :: Ptr RawTH2F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getTitleFontA" c_th2f_gettitlefonta - :: (Ptr RawTH2F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getTitleFontA" + c_th2f_gettitlefonta :: Ptr RawTH2F -> CString -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_getTitleOffsetA" c_th2f_gettitleoffseta - :: (Ptr RawTH2F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getTitleOffsetA" + c_th2f_gettitleoffseta :: Ptr RawTH2F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getTitleSizeA" c_th2f_gettitlesizea - :: (Ptr RawTH2F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getTitleSizeA" + c_th2f_gettitlesizea :: Ptr RawTH2F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getTickLengthA" c_th2f_getticklengtha - :: (Ptr RawTH2F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getTickLengthA" + c_th2f_getticklengtha :: Ptr RawTH2F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBarOffset" c_th2f_getbaroffset - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBarOffset" + c_th2f_getbaroffset :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBarWidth" c_th2f_getbarwidth - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBarWidth" + c_th2f_getbarwidth :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetContour" c_th2f_getcontour - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetContour" + c_th2f_getcontour :: Ptr RawTH2F -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetContourLevel" c_th2f_getcontourlevel - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetContourLevel" + c_th2f_getcontourlevel :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetContourLevelPad" c_th2f_getcontourlevelpad - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetContourLevelPad" + c_th2f_getcontourlevelpad :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBin" c_th2f_getbin - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBin" + c_th2f_getbin :: Ptr RawTH2F -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinCenter" c_th2f_getbincenter - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinCenter" + c_th2f_getbincenter :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinContent1" c_th2f_getbincontent1 - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinContent1" + c_th2f_getbincontent1 :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinContent2" c_th2f_getbincontent2 - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinContent2" + c_th2f_getbincontent2 :: Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinContent3" c_th2f_getbincontent3 - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinContent3" + c_th2f_getbincontent3 :: + Ptr RawTH2F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinError1" c_th2f_getbinerror1 - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinError1" + c_th2f_getbinerror1 :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinError2" c_th2f_getbinerror2 - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinError2" + c_th2f_getbinerror2 :: Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinError3" c_th2f_getbinerror3 - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinError3" + c_th2f_getbinerror3 :: + Ptr RawTH2F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinLowEdge" c_th2f_getbinlowedge - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinLowEdge" + c_th2f_getbinlowedge :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetBinWidth" c_th2f_getbinwidth - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetBinWidth" + c_th2f_getbinwidth :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetCellContent" c_th2f_getcellcontent - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetCellContent" + c_th2f_getcellcontent :: Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetCellError" c_th2f_getcellerror - :: (Ptr RawTH2F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetCellError" + c_th2f_getcellerror :: Ptr RawTH2F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetEntries" c_th2f_getentries - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetEntries" + c_th2f_getentries :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetEffectiveEntries" c_th2f_geteffectiveentries - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2F.h TH2F_GetEffectiveEntries" + c_th2f_geteffectiveentries :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetFunction" c_th2f_getfunction - :: (Ptr RawTH2F) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetFunction" + c_th2f_getfunction :: Ptr RawTH2F -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2F.h TH2F_GetDimension" c_th2f_getdimension - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetDimension" + c_th2f_getdimension :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetKurtosis" c_th2f_getkurtosis - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetKurtosis" + c_th2f_getkurtosis :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetLowEdge" c_th2f_getlowedge - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetLowEdge" + c_th2f_getlowedge :: Ptr RawTH2F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_getMaximumTH1" c_th2f_getmaximumth1 - :: (Ptr RawTH2F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getMaximumTH1" + c_th2f_getmaximumth1 :: Ptr RawTH2F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetMaximumBin" c_th2f_getmaximumbin - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMaximumBin" + c_th2f_getmaximumbin :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetMaximumStored" c_th2f_getmaximumstored - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMaximumStored" + c_th2f_getmaximumstored :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getMinimumTH1" c_th2f_getminimumth1 - :: (Ptr RawTH2F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_getMinimumTH1" + c_th2f_getminimumth1 :: Ptr RawTH2F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetMinimumBin" c_th2f_getminimumbin - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMinimumBin" + c_th2f_getminimumbin :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetMinimumStored" c_th2f_getminimumstored - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMinimumStored" + c_th2f_getminimumstored :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetMean" c_th2f_getmean - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMean" + c_th2f_getmean :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetMeanError" c_th2f_getmeanerror - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMeanError" + c_th2f_getmeanerror :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetNbinsX" c_th2f_getnbinsx - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetNbinsX" + c_th2f_getnbinsx :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetNbinsY" c_th2f_getnbinsy - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetNbinsY" + c_th2f_getnbinsy :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetNbinsZ" c_th2f_getnbinsz - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetNbinsZ" + c_th2f_getnbinsz :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_getQuantilesTH1" c_th2f_getquantilesth1 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_getQuantilesTH1" + c_th2f_getquantilesth1 :: + Ptr RawTH2F -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetRandom" c_th2f_getrandom - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetRandom" + c_th2f_getrandom :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetStats" c_th2f_getstats - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetStats" + c_th2f_getstats :: Ptr RawTH2F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetSumOfWeights" c_th2f_getsumofweights - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetSumOfWeights" + c_th2f_getsumofweights :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetSumw2" c_th2f_getsumw2 - :: (Ptr RawTH2F) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetSumw2" + c_th2f_getsumw2 :: Ptr RawTH2F -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2F.h TH2F_GetSumw2N" c_th2f_getsumw2n - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetSumw2N" + c_th2f_getsumw2n :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_GetRMS" c_th2f_getrms - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetRMS" + c_th2f_getrms :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetRMSError" c_th2f_getrmserror - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetRMSError" + c_th2f_getrmserror :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_GetSkewness" c_th2f_getskewness - :: (Ptr RawTH2F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetSkewness" + c_th2f_getskewness :: Ptr RawTH2F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_integral1" c_th2f_integral1 - :: (Ptr RawTH2F) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_integral1" + c_th2f_integral1 :: + Ptr RawTH2F -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_interpolate1" c_th2f_interpolate1 - :: (Ptr RawTH2F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_interpolate1" + c_th2f_interpolate1 :: Ptr RawTH2F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_interpolate2" c_th2f_interpolate2 - :: (Ptr RawTH2F) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_interpolate2" + c_th2f_interpolate2 :: + Ptr RawTH2F -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_interpolate3" c_th2f_interpolate3 - :: (Ptr RawTH2F) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_interpolate3" + c_th2f_interpolate3 :: + Ptr RawTH2F -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_KolmogorovTest" c_th2f_kolmogorovtest - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_KolmogorovTest" + c_th2f_kolmogorovtest :: + Ptr RawTH2F -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_LabelsDeflate" c_th2f_labelsdeflate - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_LabelsDeflate" + c_th2f_labelsdeflate :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_LabelsInflate" c_th2f_labelsinflate - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_LabelsInflate" + c_th2f_labelsinflate :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_LabelsOption" c_th2f_labelsoption - :: (Ptr RawTH2F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_LabelsOption" + c_th2f_labelsoption :: Ptr RawTH2F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_multiflyF" c_th2f_multiflyf - :: (Ptr RawTH2F) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_multiflyF" + c_th2f_multiflyf :: Ptr RawTH2F -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Multiply" c_th2f_multiply - :: (Ptr RawTH2F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Multiply" + c_th2f_multiply :: + Ptr RawTH2F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_PutStats" c_th2f_putstats - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_PutStats" + c_th2f_putstats :: Ptr RawTH2F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Rebin" c_th2f_rebin - :: (Ptr RawTH2F) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2F.h TH2F_Rebin" c_th2f_rebin + :: + Ptr RawTH2F -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2F.h TH2F_RebinAxis" c_th2f_rebinaxis - :: (Ptr RawTH2F) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_RebinAxis" + c_th2f_rebinaxis :: Ptr RawTH2F -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Rebuild" c_th2f_rebuild - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Rebuild" + c_th2f_rebuild :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_RecursiveRemove" c_th2f_recursiveremove - :: (Ptr RawTH2F) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_RecursiveRemove" + c_th2f_recursiveremove :: Ptr RawTH2F -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Reset" c_th2f_reset - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Reset" c_th2f_reset + :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_ResetStats" c_th2f_resetstats - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_ResetStats" + c_th2f_resetstats :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Scale" c_th2f_scale - :: (Ptr RawTH2F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Scale" c_th2f_scale + :: Ptr RawTH2F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setAxisColorA" c_th2f_setaxiscolora - :: (Ptr RawTH2F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setAxisColorA" + c_th2f_setaxiscolora :: Ptr RawTH2F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetAxisRange" c_th2f_setaxisrange - :: (Ptr RawTH2F) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetAxisRange" + c_th2f_setaxisrange :: + Ptr RawTH2F -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetBarOffset" c_th2f_setbaroffset - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetBarOffset" + c_th2f_setbaroffset :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetBarWidth" c_th2f_setbarwidth - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetBarWidth" + c_th2f_setbarwidth :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinContent1" c_th2f_setbincontent1 - :: (Ptr RawTH2F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinContent1" + c_th2f_setbincontent1 :: Ptr RawTH2F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinContent2" c_th2f_setbincontent2 - :: (Ptr RawTH2F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinContent2" + c_th2f_setbincontent2 :: + Ptr RawTH2F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinContent3" c_th2f_setbincontent3 - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinContent3" + c_th2f_setbincontent3 :: + Ptr RawTH2F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinError1" c_th2f_setbinerror1 - :: (Ptr RawTH2F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinError1" + c_th2f_setbinerror1 :: Ptr RawTH2F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinError2" c_th2f_setbinerror2 - :: (Ptr RawTH2F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinError2" + c_th2f_setbinerror2 :: + Ptr RawTH2F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBinError3" c_th2f_setbinerror3 - :: (Ptr RawTH2F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBinError3" + c_th2f_setbinerror3 :: + Ptr RawTH2F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBins1" c_th2f_setbins1 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBins1" + c_th2f_setbins1 :: Ptr RawTH2F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBins2" c_th2f_setbins2 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBins2" + c_th2f_setbins2 :: + Ptr RawTH2F -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setBins3" c_th2f_setbins3 - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setBins3" + c_th2f_setbins3 :: + Ptr RawTH2F -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetBinsLength" c_th2f_setbinslength - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetBinsLength" + c_th2f_setbinslength :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetBuffer" c_th2f_setbuffer - :: (Ptr RawTH2F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetBuffer" + c_th2f_setbuffer :: Ptr RawTH2F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetCellContent" c_th2f_setcellcontent - :: (Ptr RawTH2F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetCellContent" + c_th2f_setcellcontent :: + Ptr RawTH2F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetContent" c_th2f_setcontent - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetContent" + c_th2f_setcontent :: Ptr RawTH2F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetContour" c_th2f_setcontour - :: (Ptr RawTH2F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetContour" + c_th2f_setcontour :: Ptr RawTH2F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetContourLevel" c_th2f_setcontourlevel - :: (Ptr RawTH2F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetContourLevel" + c_th2f_setcontourlevel :: Ptr RawTH2F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetDirectory" c_th2f_setdirectory - :: (Ptr RawTH2F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetDirectory" + c_th2f_setdirectory :: Ptr RawTH2F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetEntries" c_th2f_setentries - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetEntries" + c_th2f_setentries :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetError" c_th2f_seterror - :: (Ptr RawTH2F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetError" + c_th2f_seterror :: Ptr RawTH2F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setLabelColorA" c_th2f_setlabelcolora - :: (Ptr RawTH2F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setLabelColorA" + c_th2f_setlabelcolora :: Ptr RawTH2F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setLabelSizeA" c_th2f_setlabelsizea - :: (Ptr RawTH2F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setLabelSizeA" + c_th2f_setlabelsizea :: Ptr RawTH2F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setLabelFontA" c_th2f_setlabelfonta - :: (Ptr RawTH2F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setLabelFontA" + c_th2f_setlabelfonta :: Ptr RawTH2F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_setLabelOffsetA" c_th2f_setlabeloffseta - :: (Ptr RawTH2F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_setLabelOffsetA" + c_th2f_setlabeloffseta :: + Ptr RawTH2F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetMaximum" c_th2f_setmaximum - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetMaximum" + c_th2f_setmaximum :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetMinimum" c_th2f_setminimum - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetMinimum" + c_th2f_setminimum :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetNormFactor" c_th2f_setnormfactor - :: (Ptr RawTH2F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetNormFactor" + c_th2f_setnormfactor :: Ptr RawTH2F -> CDouble -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetStats" c_th2f_setstats - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetStats" + c_th2f_setstats :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetOption" c_th2f_setoption - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetOption" + c_th2f_setoption :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetXTitle" c_th2f_setxtitle - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetXTitle" + c_th2f_setxtitle :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetYTitle" c_th2f_setytitle - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetYTitle" + c_th2f_setytitle :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetZTitle" c_th2f_setztitle - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetZTitle" + c_th2f_setztitle :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_ShowBackground" c_th2f_showbackground - :: (Ptr RawTH2F) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2F.h TH2F_ShowBackground" + c_th2f_showbackground :: + Ptr RawTH2F -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2F.h TH2F_ShowPeaks" c_th2f_showpeaks - :: (Ptr RawTH2F) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_ShowPeaks" + c_th2f_showpeaks :: + Ptr RawTH2F -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_Smooth" c_th2f_smooth - :: (Ptr RawTH2F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Smooth" + c_th2f_smooth :: Ptr RawTH2F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Sumw2" c_th2f_sumw2 - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Sumw2" c_th2f_sumw2 + :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Draw" c_th2f_draw - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetName" + c_th2f_setname :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_FindObject" c_th2f_findobject - :: (Ptr RawTH2F) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetNameTitle" + c_th2f_setnametitle :: Ptr RawTH2F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetName" c_th2f_getname - :: (Ptr RawTH2F) -> IO CString +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetTitle" + c_th2f_settitle :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_IsA" c_th2f_isa - :: (Ptr RawTH2F) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetLineColor" + c_th2f_getlinecolor :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_Paint" c_th2f_paint - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetLineStyle" + c_th2f_getlinestyle :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_printObj" c_th2f_printobj - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetLineWidth" + c_th2f_getlinewidth :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_SaveAs" c_th2f_saveas - :: (Ptr RawTH2F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_ResetAttLine" + c_th2f_resetattline :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_Write" c_th2f_write - :: (Ptr RawTH2F) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetLineAttributes" + c_th2f_setlineattributes :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetLineColor" c_th2f_getlinecolor - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetLineColor" + c_th2f_setlinecolor :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetLineStyle" c_th2f_getlinestyle - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetLineStyle" + c_th2f_setlinestyle :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetLineWidth" c_th2f_getlinewidth - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetLineWidth" + c_th2f_setlinewidth :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_ResetAttLine" c_th2f_resetattline - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetFillColor" + c_th2f_setfillcolor :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetLineAttributes" c_th2f_setlineattributes - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetFillStyle" + c_th2f_setfillstyle :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetLineColor" c_th2f_setlinecolor - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMarkerColor" + c_th2f_getmarkercolor :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_SetLineStyle" c_th2f_setlinestyle - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMarkerStyle" + c_th2f_getmarkerstyle :: Ptr RawTH2F -> IO CInt -foreign import ccall "HROOTHistTH2F.h TH2F_SetLineWidth" c_th2f_setlinewidth - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetMarkerSize" + c_th2f_getmarkersize :: Ptr RawTH2F -> IO CDouble -foreign import ccall "HROOTHistTH2F.h TH2F_SetFillColor" c_th2f_setfillcolor - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_ResetAttMarker" + c_th2f_resetattmarker :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetFillStyle" c_th2f_setfillstyle - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2F.h TH2F_SetMarkerAttributes" + c_th2f_setmarkerattributes :: Ptr RawTH2F -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetMarkerColor" c_th2f_getmarkercolor - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetMarkerColor" + c_th2f_setmarkercolor :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetMarkerStyle" c_th2f_getmarkerstyle - :: (Ptr RawTH2F) -> IO CInt +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetMarkerStyle" + c_th2f_setmarkerstyle :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_GetMarkerSize" c_th2f_getmarkersize - :: (Ptr RawTH2F) -> IO CDouble +foreign import ccall safe "HROOTHistTH2F.h TH2F_SetMarkerSize" + c_th2f_setmarkersize :: Ptr RawTH2F -> CInt -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_ResetAttMarker" c_th2f_resetattmarker - :: (Ptr RawTH2F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Draw" c_th2f_draw + :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_SetMarkerAttributes" c_th2f_setmarkerattributes - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_FindObject" + c_th2f_findobject :: Ptr RawTH2F -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2F.h TH2F_SetMarkerColor" c_th2f_setmarkercolor - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_GetName" + c_th2f_getname :: Ptr RawTH2F -> IO CString -foreign import ccall "HROOTHistTH2F.h TH2F_SetMarkerStyle" c_th2f_setmarkerstyle - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_IsA" c_th2f_isa :: + Ptr RawTH2F -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2F.h TH2F_SetMarkerSize" c_th2f_setmarkersize - :: (Ptr RawTH2F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Paint" c_th2f_paint + :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_delete" c_th2f_delete - :: (Ptr RawTH2F) -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_printObj" + c_th2f_printobj :: Ptr RawTH2F -> CString -> IO () -foreign import ccall "HROOTHistTH2F.h TH2F_newTH2F" c_th2f_newth2f - :: CString -> CString -> CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH2F) +foreign import ccall safe "HROOTHistTH2F.h TH2F_SaveAs" + c_th2f_saveas :: Ptr RawTH2F -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2F.h TH2F_Write" c_th2f_write + :: Ptr RawTH2F -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2F.h TH2F_delete" + c_th2f_delete :: Ptr RawTH2F -> IO () + +foreign import ccall safe "HROOTHistTH2F.h TH2F_newTH2F" + c_th2f_newth2f :: + CString -> + CString -> + CInt -> + CDouble -> + CDouble -> CInt -> CDouble -> CDouble -> IO (Ptr RawTH2F) diff --git a/src/HROOT/Hist/TH2F/Implementation.hs b/src/HROOT/Hist/TH2F/Implementation.hs --- a/src/HROOT/Hist/TH2F/Implementation.hs +++ b/src/HROOT/Hist/TH2F/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2F.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2F.RawType import HROOT.Hist.TH2F.FFI import HROOT.Hist.TH2F.Interface @@ -41,9 +42,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,394 +64,208 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2F TH2F -instance ITH2F TH2F where instance ITH2 TH2F where - fill2 = xform2 c_th2f_fill2 - fill2w = xform3 c_th2f_fill2w - fillN2 = xform5 c_th2f_filln2 - fillRandom2 = xform2 c_th2f_fillrandom2 - findFirstBinAbove2 = xform2 c_th2f_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2f_findlastbinabove2 - fitSlicesX = xform6 c_th2f_fitslicesx - fitSlicesY = xform6 c_th2f_fitslicesy - getCorrelationFactor2 = xform2 c_th2f_getcorrelationfactor2 - getCovariance2 = xform2 c_th2f_getcovariance2 - integral2 = xform5 c_th2f_integral2 - rebinX2 = xform2 c_th2f_rebinx2 - rebinY2 = xform2 c_th2f_rebiny2 - rebin2D = xform3 c_th2f_rebin2d - setShowProjectionX = xform1 c_th2f_setshowprojectionx - setShowProjectionY = xform1 c_th2f_setshowprojectiony -instance ITArrayF TH2F where -instance ITH1 TH2F where - add = xform2 c_th2f_add - addBinContent = xform2 c_th2f_addbincontent - chi2Test = xform3 c_th2f_chi2test - computeIntegral = xform0 c_th2f_computeintegral - directoryAutoAdd = xform1 c_th2f_directoryautoadd - divide = xform5 c_th2f_divide - drawCopyTH1 = xform1 c_th2f_drawcopyth1 - drawNormalized = xform2 c_th2f_drawnormalized - drawPanelTH1 = xform0 c_th2f_drawpanelth1 - bufferEmpty = xform1 c_th2f_bufferempty - evalF = xform2 c_th2f_evalf - fFT = xform2 c_th2f_fft - fill1 = xform1 c_th2f_fill1 - fill1w = xform2 c_th2f_fill1w - fillN1 = xform4 c_th2f_filln1 - fillRandom = xform2 c_th2f_fillrandom - findBin = xform3 c_th2f_findbin - findFixBin = xform3 c_th2f_findfixbin - findFirstBinAbove = xform2 c_th2f_findfirstbinabove - findLastBinAbove = xform2 c_th2f_findlastbinabove - fitPanelTH1 = xform0 c_th2f_fitpanelth1 - getNdivisionA = xform1 c_th2f_getndivisiona - getAxisColorA = xform1 c_th2f_getaxiscolora - getLabelColorA = xform1 c_th2f_getlabelcolora - getLabelFontA = xform1 c_th2f_getlabelfonta - getLabelOffsetA = xform1 c_th2f_getlabeloffseta - getLabelSizeA = xform1 c_th2f_getlabelsizea - getTitleFontA = xform1 c_th2f_gettitlefonta - getTitleOffsetA = xform1 c_th2f_gettitleoffseta - getTitleSizeA = xform1 c_th2f_gettitlesizea - getTickLengthA = xform1 c_th2f_getticklengtha - getBarOffset = xform0 c_th2f_getbaroffset - getBarWidth = xform0 c_th2f_getbarwidth - getContour = xform1 c_th2f_getcontour - getContourLevel = xform1 c_th2f_getcontourlevel - getContourLevelPad = xform1 c_th2f_getcontourlevelpad - getBin = xform3 c_th2f_getbin - getBinCenter = xform1 c_th2f_getbincenter - getBinContent1 = xform1 c_th2f_getbincontent1 - getBinContent2 = xform2 c_th2f_getbincontent2 - getBinContent3 = xform3 c_th2f_getbincontent3 - getBinError1 = xform1 c_th2f_getbinerror1 - getBinError2 = xform2 c_th2f_getbinerror2 - getBinError3 = xform3 c_th2f_getbinerror3 - getBinLowEdge = xform1 c_th2f_getbinlowedge - getBinWidth = xform1 c_th2f_getbinwidth - getCellContent = xform2 c_th2f_getcellcontent - getCellError = xform2 c_th2f_getcellerror - getEntries = xform0 c_th2f_getentries - getEffectiveEntries = xform0 c_th2f_geteffectiveentries - getFunction = xform1 c_th2f_getfunction - getDimension = xform0 c_th2f_getdimension - getKurtosis = xform1 c_th2f_getkurtosis - getLowEdge = xform1 c_th2f_getlowedge - getMaximumTH1 = xform1 c_th2f_getmaximumth1 - getMaximumBin = xform0 c_th2f_getmaximumbin - getMaximumStored = xform0 c_th2f_getmaximumstored - getMinimumTH1 = xform1 c_th2f_getminimumth1 - getMinimumBin = xform0 c_th2f_getminimumbin - getMinimumStored = xform0 c_th2f_getminimumstored - getMean = xform1 c_th2f_getmean - getMeanError = xform1 c_th2f_getmeanerror - getNbinsX = xform0 c_th2f_getnbinsx - getNbinsY = xform0 c_th2f_getnbinsy - getNbinsZ = xform0 c_th2f_getnbinsz - getQuantilesTH1 = xform3 c_th2f_getquantilesth1 - getRandom = xform0 c_th2f_getrandom - getStats = xform1 c_th2f_getstats - getSumOfWeights = xform0 c_th2f_getsumofweights - getSumw2 = xform0 c_th2f_getsumw2 - getSumw2N = xform0 c_th2f_getsumw2n - getRMS = xform1 c_th2f_getrms - getRMSError = xform1 c_th2f_getrmserror - getSkewness = xform1 c_th2f_getskewness - integral1 = xform3 c_th2f_integral1 - interpolate1 = xform1 c_th2f_interpolate1 - interpolate2 = xform2 c_th2f_interpolate2 - interpolate3 = xform3 c_th2f_interpolate3 - kolmogorovTest = xform2 c_th2f_kolmogorovtest - labelsDeflate = xform1 c_th2f_labelsdeflate - labelsInflate = xform1 c_th2f_labelsinflate - labelsOption = xform2 c_th2f_labelsoption - multiflyF = xform2 c_th2f_multiflyf - multiply = xform5 c_th2f_multiply - putStats = xform1 c_th2f_putstats - rebin = xform3 c_th2f_rebin - rebinAxis = xform2 c_th2f_rebinaxis - rebuild = xform1 c_th2f_rebuild - recursiveRemove = xform1 c_th2f_recursiveremove - reset = xform1 c_th2f_reset - resetStats = xform0 c_th2f_resetstats - scale = xform2 c_th2f_scale - setAxisColorA = xform2 c_th2f_setaxiscolora - setAxisRange = xform3 c_th2f_setaxisrange - setBarOffset = xform1 c_th2f_setbaroffset - setBarWidth = xform1 c_th2f_setbarwidth - setBinContent1 = xform2 c_th2f_setbincontent1 - setBinContent2 = xform3 c_th2f_setbincontent2 - setBinContent3 = xform4 c_th2f_setbincontent3 - setBinError1 = xform2 c_th2f_setbinerror1 - setBinError2 = xform3 c_th2f_setbinerror2 - setBinError3 = xform4 c_th2f_setbinerror3 - setBins1 = xform2 c_th2f_setbins1 - setBins2 = xform4 c_th2f_setbins2 - setBins3 = xform6 c_th2f_setbins3 - setBinsLength = xform1 c_th2f_setbinslength - setBuffer = xform2 c_th2f_setbuffer - setCellContent = xform3 c_th2f_setcellcontent - setContent = xform1 c_th2f_setcontent - setContour = xform2 c_th2f_setcontour - setContourLevel = xform2 c_th2f_setcontourlevel - setDirectory = xform1 c_th2f_setdirectory - setEntries = xform1 c_th2f_setentries - setError = xform1 c_th2f_seterror - setLabelColorA = xform2 c_th2f_setlabelcolora - setLabelSizeA = xform2 c_th2f_setlabelsizea - setLabelFontA = xform2 c_th2f_setlabelfonta - setLabelOffsetA = xform2 c_th2f_setlabeloffseta - setMaximum = xform1 c_th2f_setmaximum - setMinimum = xform1 c_th2f_setminimum - setNormFactor = xform1 c_th2f_setnormfactor - setStats = xform1 c_th2f_setstats - setOption = xform1 c_th2f_setoption - setXTitle = xform1 c_th2f_setxtitle - setYTitle = xform1 c_th2f_setytitle - setZTitle = xform1 c_th2f_setztitle - showBackground = xform2 c_th2f_showbackground - showPeaks = xform3 c_th2f_showpeaks - smooth = xform2 c_th2f_smooth - sumw2 = xform0 c_th2f_sumw2 -instance ITObject TH2F where - draw = xform1 c_th2f_draw - findObject = xform1 c_th2f_findobject - getName = xform0 c_th2f_getname - isA = xform0 c_th2f_isa - paint = xform1 c_th2f_paint - printObj = xform1 c_th2f_printobj - saveAs = xform2 c_th2f_saveas - write = xform3 c_th2f_write -instance ITAttLine TH2F where - getLineColor = xform0 c_th2f_getlinecolor - getLineStyle = xform0 c_th2f_getlinestyle - getLineWidth = xform0 c_th2f_getlinewidth - resetAttLine = xform1 c_th2f_resetattline - setLineAttributes = xform0 c_th2f_setlineattributes - setLineColor = xform1 c_th2f_setlinecolor - setLineStyle = xform1 c_th2f_setlinestyle - setLineWidth = xform1 c_th2f_setlinewidth -instance ITAttFill TH2F where - setFillColor = xform1 c_th2f_setfillcolor - setFillStyle = xform1 c_th2f_setfillstyle -instance ITAttMarker TH2F where - getMarkerColor = xform0 c_th2f_getmarkercolor - getMarkerStyle = xform0 c_th2f_getmarkerstyle - getMarkerSize = xform0 c_th2f_getmarkersize - resetAttMarker = xform1 c_th2f_resetattmarker - setMarkerAttributes = xform0 c_th2f_setmarkerattributes - setMarkerColor = xform1 c_th2f_setmarkercolor - setMarkerStyle = xform1 c_th2f_setmarkerstyle - setMarkerSize = xform1 c_th2f_setmarkersize -instance IDeletable TH2F where - delete = xform0 c_th2f_delete -instance ITArray TH2F where - -instance ITH2F (Exist TH2F) where + fill2 = xform2 c_th2f_fill2 + fill2w = xform3 c_th2f_fill2w + fillN2 = xform5 c_th2f_filln2 + fillRandom2 = xform2 c_th2f_fillrandom2 + findFirstBinAbove2 = xform2 c_th2f_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2f_findlastbinabove2 + fitSlicesX = xform6 c_th2f_fitslicesx + fitSlicesY = xform6 c_th2f_fitslicesy + getCorrelationFactor2 = xform2 c_th2f_getcorrelationfactor2 + getCovariance2 = xform2 c_th2f_getcovariance2 + integral2 = xform5 c_th2f_integral2 + rebinX2 = xform2 c_th2f_rebinx2 + rebinY2 = xform2 c_th2f_rebiny2 + rebin2D = xform3 c_th2f_rebin2d + setShowProjectionX = xform1 c_th2f_setshowprojectionx + setShowProjectionY = xform1 c_th2f_setshowprojectiony -instance ITH2 (Exist TH2F) where - fill2 (ETH2F x) = fill2 x - fill2w (ETH2F x) = fill2w x - fillN2 (ETH2F x) = fillN2 x - fillRandom2 (ETH2F x) = fillRandom2 x - findFirstBinAbove2 (ETH2F x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2F x) = findLastBinAbove2 x - fitSlicesX (ETH2F x) = fitSlicesX x - fitSlicesY (ETH2F x) = fitSlicesY x - getCorrelationFactor2 (ETH2F x) = getCorrelationFactor2 x - getCovariance2 (ETH2F x) = getCovariance2 x - integral2 (ETH2F x) = integral2 x - rebinX2 (ETH2F x) = rebinX2 x - rebinY2 (ETH2F x) = rebinY2 x - rebin2D (ETH2F x) = rebin2D x - setShowProjectionX (ETH2F x) = setShowProjectionX x - setShowProjectionY (ETH2F x) = setShowProjectionY x -instance ITArrayF (Exist TH2F) where +instance ITArrayF TH2F -instance ITH1 (Exist TH2F) where - add (ETH2F x) = add x - addBinContent (ETH2F x) = addBinContent x - chi2Test (ETH2F x) = chi2Test x - computeIntegral (ETH2F x) = computeIntegral x - directoryAutoAdd (ETH2F x) = directoryAutoAdd x - divide (ETH2F x) = divide x - drawCopyTH1 (ETH2F x) a1 = return . ETH2F =<< drawCopyTH1 x a1 - drawNormalized (ETH2F x) = drawNormalized x - drawPanelTH1 (ETH2F x) = drawPanelTH1 x - bufferEmpty (ETH2F x) = bufferEmpty x - evalF (ETH2F x) = evalF x - fFT (ETH2F x) = fFT x - fill1 (ETH2F x) = fill1 x - fill1w (ETH2F x) = fill1w x - fillN1 (ETH2F x) = fillN1 x - fillRandom (ETH2F x) = fillRandom x - findBin (ETH2F x) = findBin x - findFixBin (ETH2F x) = findFixBin x - findFirstBinAbove (ETH2F x) = findFirstBinAbove x - findLastBinAbove (ETH2F x) = findLastBinAbove x - fitPanelTH1 (ETH2F x) = fitPanelTH1 x - getNdivisionA (ETH2F x) = getNdivisionA x - getAxisColorA (ETH2F x) = getAxisColorA x - getLabelColorA (ETH2F x) = getLabelColorA x - getLabelFontA (ETH2F x) = getLabelFontA x - getLabelOffsetA (ETH2F x) = getLabelOffsetA x - getLabelSizeA (ETH2F x) = getLabelSizeA x - getTitleFontA (ETH2F x) = getTitleFontA x - getTitleOffsetA (ETH2F x) = getTitleOffsetA x - getTitleSizeA (ETH2F x) = getTitleSizeA x - getTickLengthA (ETH2F x) = getTickLengthA x - getBarOffset (ETH2F x) = getBarOffset x - getBarWidth (ETH2F x) = getBarWidth x - getContour (ETH2F x) = getContour x - getContourLevel (ETH2F x) = getContourLevel x - getContourLevelPad (ETH2F x) = getContourLevelPad x - getBin (ETH2F x) = getBin x - getBinCenter (ETH2F x) = getBinCenter x - getBinContent1 (ETH2F x) = getBinContent1 x - getBinContent2 (ETH2F x) = getBinContent2 x - getBinContent3 (ETH2F x) = getBinContent3 x - getBinError1 (ETH2F x) = getBinError1 x - getBinError2 (ETH2F x) = getBinError2 x - getBinError3 (ETH2F x) = getBinError3 x - getBinLowEdge (ETH2F x) = getBinLowEdge x - getBinWidth (ETH2F x) = getBinWidth x - getCellContent (ETH2F x) = getCellContent x - getCellError (ETH2F x) = getCellError x - getEntries (ETH2F x) = getEntries x - getEffectiveEntries (ETH2F x) = getEffectiveEntries x - getFunction (ETH2F x) = getFunction x - getDimension (ETH2F x) = getDimension x - getKurtosis (ETH2F x) = getKurtosis x - getLowEdge (ETH2F x) = getLowEdge x - getMaximumTH1 (ETH2F x) = getMaximumTH1 x - getMaximumBin (ETH2F x) = getMaximumBin x - getMaximumStored (ETH2F x) = getMaximumStored x - getMinimumTH1 (ETH2F x) = getMinimumTH1 x - getMinimumBin (ETH2F x) = getMinimumBin x - getMinimumStored (ETH2F x) = getMinimumStored x - getMean (ETH2F x) = getMean x - getMeanError (ETH2F x) = getMeanError x - getNbinsX (ETH2F x) = getNbinsX x - getNbinsY (ETH2F x) = getNbinsY x - getNbinsZ (ETH2F x) = getNbinsZ x - getQuantilesTH1 (ETH2F x) = getQuantilesTH1 x - getRandom (ETH2F x) = getRandom x - getStats (ETH2F x) = getStats x - getSumOfWeights (ETH2F x) = getSumOfWeights x - getSumw2 (ETH2F x) = getSumw2 x - getSumw2N (ETH2F x) = getSumw2N x - getRMS (ETH2F x) = getRMS x - getRMSError (ETH2F x) = getRMSError x - getSkewness (ETH2F x) = getSkewness x - integral1 (ETH2F x) = integral1 x - interpolate1 (ETH2F x) = interpolate1 x - interpolate2 (ETH2F x) = interpolate2 x - interpolate3 (ETH2F x) = interpolate3 x - kolmogorovTest (ETH2F x) = kolmogorovTest x - labelsDeflate (ETH2F x) = labelsDeflate x - labelsInflate (ETH2F x) = labelsInflate x - labelsOption (ETH2F x) = labelsOption x - multiflyF (ETH2F x) = multiflyF x - multiply (ETH2F x) = multiply x - putStats (ETH2F x) = putStats x - rebin (ETH2F x) = rebin x - rebinAxis (ETH2F x) = rebinAxis x - rebuild (ETH2F x) = rebuild x - recursiveRemove (ETH2F x) = recursiveRemove x - reset (ETH2F x) = reset x - resetStats (ETH2F x) = resetStats x - scale (ETH2F x) = scale x - setAxisColorA (ETH2F x) = setAxisColorA x - setAxisRange (ETH2F x) = setAxisRange x - setBarOffset (ETH2F x) = setBarOffset x - setBarWidth (ETH2F x) = setBarWidth x - setBinContent1 (ETH2F x) = setBinContent1 x - setBinContent2 (ETH2F x) = setBinContent2 x - setBinContent3 (ETH2F x) = setBinContent3 x - setBinError1 (ETH2F x) = setBinError1 x - setBinError2 (ETH2F x) = setBinError2 x - setBinError3 (ETH2F x) = setBinError3 x - setBins1 (ETH2F x) = setBins1 x - setBins2 (ETH2F x) = setBins2 x - setBins3 (ETH2F x) = setBins3 x - setBinsLength (ETH2F x) = setBinsLength x - setBuffer (ETH2F x) = setBuffer x - setCellContent (ETH2F x) = setCellContent x - setContent (ETH2F x) = setContent x - setContour (ETH2F x) = setContour x - setContourLevel (ETH2F x) = setContourLevel x - setDirectory (ETH2F x) = setDirectory x - setEntries (ETH2F x) = setEntries x - setError (ETH2F x) = setError x - setLabelColorA (ETH2F x) = setLabelColorA x - setLabelSizeA (ETH2F x) = setLabelSizeA x - setLabelFontA (ETH2F x) = setLabelFontA x - setLabelOffsetA (ETH2F x) = setLabelOffsetA x - setMaximum (ETH2F x) = setMaximum x - setMinimum (ETH2F x) = setMinimum x - setNormFactor (ETH2F x) = setNormFactor x - setStats (ETH2F x) = setStats x - setOption (ETH2F x) = setOption x - setXTitle (ETH2F x) = setXTitle x - setYTitle (ETH2F x) = setYTitle x - setZTitle (ETH2F x) = setZTitle x - showBackground (ETH2F x) = showBackground x - showPeaks (ETH2F x) = showPeaks x - smooth (ETH2F x) = smooth x - sumw2 (ETH2F x) = sumw2 x -instance ITObject (Exist TH2F) where - draw (ETH2F x) = draw x - findObject (ETH2F x) = findObject x - getName (ETH2F x) = getName x - isA (ETH2F x) = isA x - paint (ETH2F x) = paint x - printObj (ETH2F x) = printObj x - saveAs (ETH2F x) = saveAs x - write (ETH2F x) = write x -instance ITAttLine (Exist TH2F) where - getLineColor (ETH2F x) = getLineColor x - getLineStyle (ETH2F x) = getLineStyle x - getLineWidth (ETH2F x) = getLineWidth x - resetAttLine (ETH2F x) = resetAttLine x - setLineAttributes (ETH2F x) = setLineAttributes x - setLineColor (ETH2F x) = setLineColor x - setLineStyle (ETH2F x) = setLineStyle x - setLineWidth (ETH2F x) = setLineWidth x -instance ITAttFill (Exist TH2F) where - setFillColor (ETH2F x) = setFillColor x - setFillStyle (ETH2F x) = setFillStyle x -instance ITAttMarker (Exist TH2F) where - getMarkerColor (ETH2F x) = getMarkerColor x - getMarkerStyle (ETH2F x) = getMarkerStyle x - getMarkerSize (ETH2F x) = getMarkerSize x - resetAttMarker (ETH2F x) = resetAttMarker x - setMarkerAttributes (ETH2F x) = setMarkerAttributes x - setMarkerColor (ETH2F x) = setMarkerColor x - setMarkerStyle (ETH2F x) = setMarkerStyle x - setMarkerSize (ETH2F x) = setMarkerSize x -instance IDeletable (Exist TH2F) where - delete (ETH2F x) = delete x -instance ITArray (Exist TH2F) where +instance ITH1 TH2F where + add = xform2 c_th2f_add + addBinContent = xform2 c_th2f_addbincontent + chi2Test = xform3 c_th2f_chi2test + computeIntegral = xform0 c_th2f_computeintegral + directoryAutoAdd = xform1 c_th2f_directoryautoadd + divide = xform5 c_th2f_divide + drawCopyTH1 = xform1 c_th2f_drawcopyth1 + drawNormalized = xform2 c_th2f_drawnormalized + drawPanelTH1 = xform0 c_th2f_drawpanelth1 + bufferEmpty = xform1 c_th2f_bufferempty + evalF = xform2 c_th2f_evalf + fFT = xform2 c_th2f_fft + fill1 = xform1 c_th2f_fill1 + fill1w = xform2 c_th2f_fill1w + fillN1 = xform4 c_th2f_filln1 + fillRandom = xform2 c_th2f_fillrandom + findBin = xform3 c_th2f_findbin + findFixBin = xform3 c_th2f_findfixbin + findFirstBinAbove = xform2 c_th2f_findfirstbinabove + findLastBinAbove = xform2 c_th2f_findlastbinabove + fit = xform5 c_th2f_fit + fitPanelTH1 = xform0 c_th2f_fitpanelth1 + getNdivisionA = xform1 c_th2f_getndivisiona + getAxisColorA = xform1 c_th2f_getaxiscolora + getLabelColorA = xform1 c_th2f_getlabelcolora + getLabelFontA = xform1 c_th2f_getlabelfonta + getLabelOffsetA = xform1 c_th2f_getlabeloffseta + getLabelSizeA = xform1 c_th2f_getlabelsizea + getTitleFontA = xform1 c_th2f_gettitlefonta + getTitleOffsetA = xform1 c_th2f_gettitleoffseta + getTitleSizeA = xform1 c_th2f_gettitlesizea + getTickLengthA = xform1 c_th2f_getticklengtha + getBarOffset = xform0 c_th2f_getbaroffset + getBarWidth = xform0 c_th2f_getbarwidth + getContour = xform1 c_th2f_getcontour + getContourLevel = xform1 c_th2f_getcontourlevel + getContourLevelPad = xform1 c_th2f_getcontourlevelpad + getBin = xform3 c_th2f_getbin + getBinCenter = xform1 c_th2f_getbincenter + getBinContent1 = xform1 c_th2f_getbincontent1 + getBinContent2 = xform2 c_th2f_getbincontent2 + getBinContent3 = xform3 c_th2f_getbincontent3 + getBinError1 = xform1 c_th2f_getbinerror1 + getBinError2 = xform2 c_th2f_getbinerror2 + getBinError3 = xform3 c_th2f_getbinerror3 + getBinLowEdge = xform1 c_th2f_getbinlowedge + getBinWidth = xform1 c_th2f_getbinwidth + getCellContent = xform2 c_th2f_getcellcontent + getCellError = xform2 c_th2f_getcellerror + getEntries = xform0 c_th2f_getentries + getEffectiveEntries = xform0 c_th2f_geteffectiveentries + getFunction = xform1 c_th2f_getfunction + getDimension = xform0 c_th2f_getdimension + getKurtosis = xform1 c_th2f_getkurtosis + getLowEdge = xform1 c_th2f_getlowedge + getMaximumTH1 = xform1 c_th2f_getmaximumth1 + getMaximumBin = xform0 c_th2f_getmaximumbin + getMaximumStored = xform0 c_th2f_getmaximumstored + getMinimumTH1 = xform1 c_th2f_getminimumth1 + getMinimumBin = xform0 c_th2f_getminimumbin + getMinimumStored = xform0 c_th2f_getminimumstored + getMean = xform1 c_th2f_getmean + getMeanError = xform1 c_th2f_getmeanerror + getNbinsX = xform0 c_th2f_getnbinsx + getNbinsY = xform0 c_th2f_getnbinsy + getNbinsZ = xform0 c_th2f_getnbinsz + getQuantilesTH1 = xform3 c_th2f_getquantilesth1 + getRandom = xform0 c_th2f_getrandom + getStats = xform1 c_th2f_getstats + getSumOfWeights = xform0 c_th2f_getsumofweights + getSumw2 = xform0 c_th2f_getsumw2 + getSumw2N = xform0 c_th2f_getsumw2n + getRMS = xform1 c_th2f_getrms + getRMSError = xform1 c_th2f_getrmserror + getSkewness = xform1 c_th2f_getskewness + integral1 = xform3 c_th2f_integral1 + interpolate1 = xform1 c_th2f_interpolate1 + interpolate2 = xform2 c_th2f_interpolate2 + interpolate3 = xform3 c_th2f_interpolate3 + kolmogorovTest = xform2 c_th2f_kolmogorovtest + labelsDeflate = xform1 c_th2f_labelsdeflate + labelsInflate = xform1 c_th2f_labelsinflate + labelsOption = xform2 c_th2f_labelsoption + multiflyF = xform2 c_th2f_multiflyf + multiply = xform5 c_th2f_multiply + putStats = xform1 c_th2f_putstats + rebin = xform3 c_th2f_rebin + rebinAxis = xform2 c_th2f_rebinaxis + rebuild = xform1 c_th2f_rebuild + recursiveRemove = xform1 c_th2f_recursiveremove + reset = xform1 c_th2f_reset + resetStats = xform0 c_th2f_resetstats + scale = xform2 c_th2f_scale + setAxisColorA = xform2 c_th2f_setaxiscolora + setAxisRange = xform3 c_th2f_setaxisrange + setBarOffset = xform1 c_th2f_setbaroffset + setBarWidth = xform1 c_th2f_setbarwidth + setBinContent1 = xform2 c_th2f_setbincontent1 + setBinContent2 = xform3 c_th2f_setbincontent2 + setBinContent3 = xform4 c_th2f_setbincontent3 + setBinError1 = xform2 c_th2f_setbinerror1 + setBinError2 = xform3 c_th2f_setbinerror2 + setBinError3 = xform4 c_th2f_setbinerror3 + setBins1 = xform2 c_th2f_setbins1 + setBins2 = xform4 c_th2f_setbins2 + setBins3 = xform6 c_th2f_setbins3 + setBinsLength = xform1 c_th2f_setbinslength + setBuffer = xform2 c_th2f_setbuffer + setCellContent = xform3 c_th2f_setcellcontent + setContent = xform1 c_th2f_setcontent + setContour = xform2 c_th2f_setcontour + setContourLevel = xform2 c_th2f_setcontourlevel + setDirectory = xform1 c_th2f_setdirectory + setEntries = xform1 c_th2f_setentries + setError = xform1 c_th2f_seterror + setLabelColorA = xform2 c_th2f_setlabelcolora + setLabelSizeA = xform2 c_th2f_setlabelsizea + setLabelFontA = xform2 c_th2f_setlabelfonta + setLabelOffsetA = xform2 c_th2f_setlabeloffseta + setMaximum = xform1 c_th2f_setmaximum + setMinimum = xform1 c_th2f_setminimum + setNormFactor = xform1 c_th2f_setnormfactor + setStats = xform1 c_th2f_setstats + setOption = xform1 c_th2f_setoption + setXTitle = xform1 c_th2f_setxtitle + setYTitle = xform1 c_th2f_setytitle + setZTitle = xform1 c_th2f_setztitle + showBackground = xform2 c_th2f_showbackground + showPeaks = xform3 c_th2f_showpeaks + smooth = xform2 c_th2f_smooth + sumw2 = xform0 c_th2f_sumw2 +instance ITNamed TH2F where + setName = xform1 c_th2f_setname + setNameTitle = xform2 c_th2f_setnametitle + setTitle = xform1 c_th2f_settitle +instance ITAttLine TH2F where + getLineColor = xform0 c_th2f_getlinecolor + getLineStyle = xform0 c_th2f_getlinestyle + getLineWidth = xform0 c_th2f_getlinewidth + resetAttLine = xform1 c_th2f_resetattline + setLineAttributes = xform0 c_th2f_setlineattributes + setLineColor = xform1 c_th2f_setlinecolor + setLineStyle = xform1 c_th2f_setlinestyle + setLineWidth = xform1 c_th2f_setlinewidth -newTH2F :: CString -> CString -> CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO TH2F -newTH2F = xform7 c_th2f_newth2f +instance ITAttFill TH2F where + setFillColor = xform1 c_th2f_setfillcolor + setFillStyle = xform1 c_th2f_setfillstyle +instance ITAttMarker TH2F where + getMarkerColor = xform0 c_th2f_getmarkercolor + getMarkerStyle = xform0 c_th2f_getmarkerstyle + getMarkerSize = xform0 c_th2f_getmarkersize + resetAttMarker = xform1 c_th2f_resetattmarker + setMarkerAttributes = xform0 c_th2f_setmarkerattributes + setMarkerColor = xform1 c_th2f_setmarkercolor + setMarkerStyle = xform1 c_th2f_setmarkerstyle + setMarkerSize = xform1 c_th2f_setmarkersize +instance ITObject TH2F where + draw = xform1 c_th2f_draw + findObject = xform1 c_th2f_findobject + getName = xform0 c_th2f_getname + isA = xform0 c_th2f_isa + paint = xform1 c_th2f_paint + printObj = xform1 c_th2f_printobj + saveAs = xform2 c_th2f_saveas + write = xform3 c_th2f_write +instance IDeletable TH2F where + delete = xform0 c_th2f_delete +instance ITArray TH2F -instance FPtr (Exist TH2F) where - type Raw (Exist TH2F) = RawTH2F - get_fptr (ETH2F obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2F) :: TH2F) +newTH2F :: + (Castable c1 CString, Castable c0 CString) => + c0 -> + c1 -> + CInt -> CDouble -> CDouble -> CInt -> CDouble -> CDouble -> IO TH2F +newTH2F = xform7 c_th2f_newth2f diff --git a/src/HROOT/Hist/TH2F/Interface.hs b/src/HROOT/Hist/TH2F/Interface.hs --- a/src/HROOT/Hist/TH2F/Interface.hs +++ b/src/HROOT/Hist/TH2F/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2F.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2F.RawType - import HROOT.Hist.TH2.Interface import HROOT.Core.TArrayF.Interface ----- ============ ---- - - -class (ITH2 a,ITArrayF a) => ITH2F a where - -instance Existable TH2F where - data Exist TH2F = forall a. (FPtr a, ITH2F a) => ETH2F a +class (ITH2 a, ITArrayF a) => ITH2F a -upcastTH2F :: (FPtr a, ITH2F a) => a -> TH2F -upcastTH2F h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2F = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2F :: forall a . (FPtr a, ITH2F a) => a -> TH2F +upcastTH2F h + = let fh = get_fptr h + fh2 :: Ptr RawTH2F = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2F :: (FPtr a, ITH2F a) => TH2F -> a -downcastTH2F h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2F :: forall a . (FPtr a, ITH2F a) => TH2F -> a +downcastTH2F h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2F/RawType.hs b/src/HROOT/Hist/TH2F/RawType.hs --- a/src/HROOT/Hist/TH2F/RawType.hs +++ b/src/HROOT/Hist/TH2F/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2F.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2F -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2F = TH2F (Ptr RawTH2F) + deriving (Eq, Ord, Show) -data RawTH2F -newtype TH2F = TH2F (ForeignPtr RawTH2F) deriving (Eq, Ord, Show) instance FPtr TH2F where - type Raw TH2F = RawTH2F - get_fptr (TH2F fptr) = fptr - cast_fptr_to_obj = TH2F + type Raw TH2F = RawTH2F + get_fptr (TH2F ptr) = ptr + cast_fptr_to_obj = TH2F diff --git a/src/HROOT/Hist/TH2I.hs b/src/HROOT/Hist/TH2I.hs --- a/src/HROOT/Hist/TH2I.hs +++ b/src/HROOT/Hist/TH2I.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH2I - ( - TH2I(..) - , ITH2I - , upcastTH2I - , downcastTH2I - - - ) where - +module HROOT.Hist.TH2I (TH2I(..), ITH2I, upcastTH2I, downcastTH2I) + where import HROOT.Hist.TH2I.RawType import HROOT.Hist.TH2I.Interface import HROOT.Hist.TH2I.Implementation - - diff --git a/src/HROOT/Hist/TH2I/Cast.hs b/src/HROOT/Hist/TH2I/Cast.hs --- a/src/HROOT/Hist/TH2I/Cast.hs +++ b/src/HROOT/Hist/TH2I/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2I.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2I.RawType import HROOT.Hist.TH2I.Interface instance (ITH2I a, FPtr a) => Castable a (Ptr RawTH2I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2I (Ptr RawTH2I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2I/FFI.hsc b/src/HROOT/Hist/TH2I/FFI.hsc --- a/src/HROOT/Hist/TH2I/FFI.hsc +++ b/src/HROOT/Hist/TH2I/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2I.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2I.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,524 +14,589 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2I.h" +foreign import ccall safe "HROOTHistTH2I.h TH2I_fill2" c_th2i_fill2 + :: Ptr RawTH2I -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_fill2" c_th2i_fill2 - :: (Ptr RawTH2I) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_fill2w" + c_th2i_fill2w :: + Ptr RawTH2I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_fill2w" c_th2i_fill2w - :: (Ptr RawTH2I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_fillN2" + c_th2i_filln2 :: + Ptr RawTH2I -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_fillN2" c_th2i_filln2 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_fillRandom2" + c_th2i_fillrandom2 :: Ptr RawTH2I -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_fillRandom2" c_th2i_fillrandom2 - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_findFirstBinAbove2" + c_th2i_findfirstbinabove2 :: + Ptr RawTH2I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_findFirstBinAbove2" c_th2i_findfirstbinabove2 - :: (Ptr RawTH2I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_findLastBinAbove2" + c_th2i_findlastbinabove2 :: + Ptr RawTH2I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_findLastBinAbove2" c_th2i_findlastbinabove2 - :: (Ptr RawTH2I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_FitSlicesX" + c_th2i_fitslicesx :: + Ptr RawTH2I -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_FitSlicesX" c_th2i_fitslicesx - :: (Ptr RawTH2I) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FitSlicesY" + c_th2i_fitslicesy :: + Ptr RawTH2I -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_FitSlicesY" c_th2i_fitslicesy - :: (Ptr RawTH2I) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2I.h TH2I_getCorrelationFactor2" + c_th2i_getcorrelationfactor2 :: + Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getCorrelationFactor2" c_th2i_getcorrelationfactor2 - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getCovariance2" + c_th2i_getcovariance2 :: Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getCovariance2" c_th2i_getcovariance2 - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_integral2" + c_th2i_integral2 :: + Ptr RawTH2I -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_integral2" c_th2i_integral2 - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_rebinX2" + c_th2i_rebinx2 :: Ptr RawTH2I -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2I.h TH2I_rebinX2" c_th2i_rebinx2 - :: (Ptr RawTH2I) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2I.h TH2I_rebinY2" + c_th2i_rebiny2 :: Ptr RawTH2I -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2I.h TH2I_rebinY2" c_th2i_rebiny2 - :: (Ptr RawTH2I) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2I.h TH2I_Rebin2D" + c_th2i_rebin2d :: + Ptr RawTH2I -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2I.h TH2I_Rebin2D" c_th2i_rebin2d - :: (Ptr RawTH2I) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetShowProjectionX" + c_th2i_setshowprojectionx :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetShowProjectionX" c_th2i_setshowprojectionx - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetShowProjectionY" + c_th2i_setshowprojectiony :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetShowProjectionY" c_th2i_setshowprojectiony - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Add" c_th2i_add :: + Ptr RawTH2I -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Add" c_th2i_add - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_AddBinContent" + c_th2i_addbincontent :: Ptr RawTH2I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_AddBinContent" c_th2i_addbincontent - :: (Ptr RawTH2I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Chi2Test" + c_th2i_chi2test :: + Ptr RawTH2I -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_Chi2Test" c_th2i_chi2test - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_ComputeIntegral" + c_th2i_computeintegral :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_ComputeIntegral" c_th2i_computeintegral - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_DirectoryAutoAdd" + c_th2i_directoryautoadd :: + Ptr RawTH2I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_DirectoryAutoAdd" c_th2i_directoryautoadd - :: (Ptr RawTH2I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Divide" + c_th2i_divide :: + Ptr RawTH2I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Divide" c_th2i_divide - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_drawCopyTH1" + c_th2i_drawcopyth1 :: Ptr RawTH2I -> CString -> IO (Ptr RawTH2I) -foreign import ccall "HROOTHistTH2I.h TH2I_drawCopyTH1" c_th2i_drawcopyth1 - :: (Ptr RawTH2I) -> CString -> IO (Ptr RawTH2I) +foreign import ccall safe "HROOTHistTH2I.h TH2I_DrawNormalized" + c_th2i_drawnormalized :: + Ptr RawTH2I -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2I.h TH2I_DrawNormalized" c_th2i_drawnormalized - :: (Ptr RawTH2I) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2I.h TH2I_drawPanelTH1" + c_th2i_drawpanelth1 :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_drawPanelTH1" c_th2i_drawpanelth1 - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_BufferEmpty" + c_th2i_bufferempty :: Ptr RawTH2I -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_BufferEmpty" c_th2i_bufferempty - :: (Ptr RawTH2I) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_evalF" c_th2i_evalf + :: Ptr RawTH2I -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_evalF" c_th2i_evalf - :: (Ptr RawTH2I) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FFT" c_th2i_fft :: + Ptr RawTH2I -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2I.h TH2I_FFT" c_th2i_fft - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2I.h TH2I_fill1" c_th2i_fill1 + :: Ptr RawTH2I -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_fill1" c_th2i_fill1 - :: (Ptr RawTH2I) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_fill1w" + c_th2i_fill1w :: Ptr RawTH2I -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_fill1w" c_th2i_fill1w - :: (Ptr RawTH2I) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_fillN1" + c_th2i_filln1 :: + Ptr RawTH2I -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_fillN1" c_th2i_filln1 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FillRandom" + c_th2i_fillrandom :: Ptr RawTH2I -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_FillRandom" c_th2i_fillrandom - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FindBin" + c_th2i_findbin :: + Ptr RawTH2I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_FindBin" c_th2i_findbin - :: (Ptr RawTH2I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_FindFixBin" + c_th2i_findfixbin :: + Ptr RawTH2I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_FindFixBin" c_th2i_findfixbin - :: (Ptr RawTH2I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_FindFirstBinAbove" + c_th2i_findfirstbinabove :: + Ptr RawTH2I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_FindFirstBinAbove" c_th2i_findfirstbinabove - :: (Ptr RawTH2I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_FindLastBinAbove" + c_th2i_findlastbinabove :: + Ptr RawTH2I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_FindLastBinAbove" c_th2i_findlastbinabove - :: (Ptr RawTH2I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_Fit" c_th2i_fit :: + Ptr RawTH2I -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_FitPanelTH1" c_th2i_fitpanelth1 - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FitPanelTH1" + c_th2i_fitpanelth1 :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_getNdivisionA" c_th2i_getndivisiona - :: (Ptr RawTH2I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getNdivisionA" + c_th2i_getndivisiona :: Ptr RawTH2I -> CString -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_getAxisColorA" c_th2i_getaxiscolora - :: (Ptr RawTH2I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getAxisColorA" + c_th2i_getaxiscolora :: Ptr RawTH2I -> CString -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_getLabelColorA" c_th2i_getlabelcolora - :: (Ptr RawTH2I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getLabelColorA" + c_th2i_getlabelcolora :: Ptr RawTH2I -> CString -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_getLabelFontA" c_th2i_getlabelfonta - :: (Ptr RawTH2I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getLabelFontA" + c_th2i_getlabelfonta :: Ptr RawTH2I -> CString -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_getLabelOffsetA" c_th2i_getlabeloffseta - :: (Ptr RawTH2I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getLabelOffsetA" + c_th2i_getlabeloffseta :: Ptr RawTH2I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getLabelSizeA" c_th2i_getlabelsizea - :: (Ptr RawTH2I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getLabelSizeA" + c_th2i_getlabelsizea :: Ptr RawTH2I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getTitleFontA" c_th2i_gettitlefonta - :: (Ptr RawTH2I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getTitleFontA" + c_th2i_gettitlefonta :: Ptr RawTH2I -> CString -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_getTitleOffsetA" c_th2i_gettitleoffseta - :: (Ptr RawTH2I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getTitleOffsetA" + c_th2i_gettitleoffseta :: Ptr RawTH2I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getTitleSizeA" c_th2i_gettitlesizea - :: (Ptr RawTH2I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getTitleSizeA" + c_th2i_gettitlesizea :: Ptr RawTH2I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getTickLengthA" c_th2i_getticklengtha - :: (Ptr RawTH2I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getTickLengthA" + c_th2i_getticklengtha :: Ptr RawTH2I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBarOffset" c_th2i_getbaroffset - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBarOffset" + c_th2i_getbaroffset :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBarWidth" c_th2i_getbarwidth - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBarWidth" + c_th2i_getbarwidth :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetContour" c_th2i_getcontour - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetContour" + c_th2i_getcontour :: Ptr RawTH2I -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetContourLevel" c_th2i_getcontourlevel - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetContourLevel" + c_th2i_getcontourlevel :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetContourLevelPad" c_th2i_getcontourlevelpad - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetContourLevelPad" + c_th2i_getcontourlevelpad :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBin" c_th2i_getbin - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBin" + c_th2i_getbin :: Ptr RawTH2I -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinCenter" c_th2i_getbincenter - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinCenter" + c_th2i_getbincenter :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinContent1" c_th2i_getbincontent1 - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinContent1" + c_th2i_getbincontent1 :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinContent2" c_th2i_getbincontent2 - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinContent2" + c_th2i_getbincontent2 :: Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinContent3" c_th2i_getbincontent3 - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinContent3" + c_th2i_getbincontent3 :: + Ptr RawTH2I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinError1" c_th2i_getbinerror1 - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinError1" + c_th2i_getbinerror1 :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinError2" c_th2i_getbinerror2 - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinError2" + c_th2i_getbinerror2 :: Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinError3" c_th2i_getbinerror3 - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinError3" + c_th2i_getbinerror3 :: + Ptr RawTH2I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinLowEdge" c_th2i_getbinlowedge - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinLowEdge" + c_th2i_getbinlowedge :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetBinWidth" c_th2i_getbinwidth - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetBinWidth" + c_th2i_getbinwidth :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetCellContent" c_th2i_getcellcontent - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetCellContent" + c_th2i_getcellcontent :: Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetCellError" c_th2i_getcellerror - :: (Ptr RawTH2I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetCellError" + c_th2i_getcellerror :: Ptr RawTH2I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetEntries" c_th2i_getentries - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetEntries" + c_th2i_getentries :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetEffectiveEntries" c_th2i_geteffectiveentries - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2I.h TH2I_GetEffectiveEntries" + c_th2i_geteffectiveentries :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetFunction" c_th2i_getfunction - :: (Ptr RawTH2I) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetFunction" + c_th2i_getfunction :: Ptr RawTH2I -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2I.h TH2I_GetDimension" c_th2i_getdimension - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetDimension" + c_th2i_getdimension :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetKurtosis" c_th2i_getkurtosis - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetKurtosis" + c_th2i_getkurtosis :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetLowEdge" c_th2i_getlowedge - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetLowEdge" + c_th2i_getlowedge :: Ptr RawTH2I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_getMaximumTH1" c_th2i_getmaximumth1 - :: (Ptr RawTH2I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getMaximumTH1" + c_th2i_getmaximumth1 :: Ptr RawTH2I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetMaximumBin" c_th2i_getmaximumbin - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMaximumBin" + c_th2i_getmaximumbin :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetMaximumStored" c_th2i_getmaximumstored - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMaximumStored" + c_th2i_getmaximumstored :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getMinimumTH1" c_th2i_getminimumth1 - :: (Ptr RawTH2I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_getMinimumTH1" + c_th2i_getminimumth1 :: Ptr RawTH2I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetMinimumBin" c_th2i_getminimumbin - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMinimumBin" + c_th2i_getminimumbin :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetMinimumStored" c_th2i_getminimumstored - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMinimumStored" + c_th2i_getminimumstored :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetMean" c_th2i_getmean - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMean" + c_th2i_getmean :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetMeanError" c_th2i_getmeanerror - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMeanError" + c_th2i_getmeanerror :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetNbinsX" c_th2i_getnbinsx - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetNbinsX" + c_th2i_getnbinsx :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetNbinsY" c_th2i_getnbinsy - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetNbinsY" + c_th2i_getnbinsy :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetNbinsZ" c_th2i_getnbinsz - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetNbinsZ" + c_th2i_getnbinsz :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_getQuantilesTH1" c_th2i_getquantilesth1 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_getQuantilesTH1" + c_th2i_getquantilesth1 :: + Ptr RawTH2I -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetRandom" c_th2i_getrandom - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetRandom" + c_th2i_getrandom :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetStats" c_th2i_getstats - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetStats" + c_th2i_getstats :: Ptr RawTH2I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetSumOfWeights" c_th2i_getsumofweights - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetSumOfWeights" + c_th2i_getsumofweights :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetSumw2" c_th2i_getsumw2 - :: (Ptr RawTH2I) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetSumw2" + c_th2i_getsumw2 :: Ptr RawTH2I -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2I.h TH2I_GetSumw2N" c_th2i_getsumw2n - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetSumw2N" + c_th2i_getsumw2n :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_GetRMS" c_th2i_getrms - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetRMS" + c_th2i_getrms :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetRMSError" c_th2i_getrmserror - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetRMSError" + c_th2i_getrmserror :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_GetSkewness" c_th2i_getskewness - :: (Ptr RawTH2I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetSkewness" + c_th2i_getskewness :: Ptr RawTH2I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_integral1" c_th2i_integral1 - :: (Ptr RawTH2I) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_integral1" + c_th2i_integral1 :: + Ptr RawTH2I -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_interpolate1" c_th2i_interpolate1 - :: (Ptr RawTH2I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_interpolate1" + c_th2i_interpolate1 :: Ptr RawTH2I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_interpolate2" c_th2i_interpolate2 - :: (Ptr RawTH2I) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_interpolate2" + c_th2i_interpolate2 :: + Ptr RawTH2I -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_interpolate3" c_th2i_interpolate3 - :: (Ptr RawTH2I) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_interpolate3" + c_th2i_interpolate3 :: + Ptr RawTH2I -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_KolmogorovTest" c_th2i_kolmogorovtest - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_KolmogorovTest" + c_th2i_kolmogorovtest :: + Ptr RawTH2I -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_LabelsDeflate" c_th2i_labelsdeflate - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_LabelsDeflate" + c_th2i_labelsdeflate :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_LabelsInflate" c_th2i_labelsinflate - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_LabelsInflate" + c_th2i_labelsinflate :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_LabelsOption" c_th2i_labelsoption - :: (Ptr RawTH2I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_LabelsOption" + c_th2i_labelsoption :: Ptr RawTH2I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_multiflyF" c_th2i_multiflyf - :: (Ptr RawTH2I) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_multiflyF" + c_th2i_multiflyf :: Ptr RawTH2I -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Multiply" c_th2i_multiply - :: (Ptr RawTH2I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Multiply" + c_th2i_multiply :: + Ptr RawTH2I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_PutStats" c_th2i_putstats - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_PutStats" + c_th2i_putstats :: Ptr RawTH2I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Rebin" c_th2i_rebin - :: (Ptr RawTH2I) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2I.h TH2I_Rebin" c_th2i_rebin + :: + Ptr RawTH2I -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2I.h TH2I_RebinAxis" c_th2i_rebinaxis - :: (Ptr RawTH2I) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_RebinAxis" + c_th2i_rebinaxis :: Ptr RawTH2I -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Rebuild" c_th2i_rebuild - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Rebuild" + c_th2i_rebuild :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_RecursiveRemove" c_th2i_recursiveremove - :: (Ptr RawTH2I) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_RecursiveRemove" + c_th2i_recursiveremove :: Ptr RawTH2I -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Reset" c_th2i_reset - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Reset" c_th2i_reset + :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_ResetStats" c_th2i_resetstats - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_ResetStats" + c_th2i_resetstats :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Scale" c_th2i_scale - :: (Ptr RawTH2I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Scale" c_th2i_scale + :: Ptr RawTH2I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setAxisColorA" c_th2i_setaxiscolora - :: (Ptr RawTH2I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setAxisColorA" + c_th2i_setaxiscolora :: Ptr RawTH2I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetAxisRange" c_th2i_setaxisrange - :: (Ptr RawTH2I) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetAxisRange" + c_th2i_setaxisrange :: + Ptr RawTH2I -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetBarOffset" c_th2i_setbaroffset - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetBarOffset" + c_th2i_setbaroffset :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetBarWidth" c_th2i_setbarwidth - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetBarWidth" + c_th2i_setbarwidth :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinContent1" c_th2i_setbincontent1 - :: (Ptr RawTH2I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinContent1" + c_th2i_setbincontent1 :: Ptr RawTH2I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinContent2" c_th2i_setbincontent2 - :: (Ptr RawTH2I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinContent2" + c_th2i_setbincontent2 :: + Ptr RawTH2I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinContent3" c_th2i_setbincontent3 - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinContent3" + c_th2i_setbincontent3 :: + Ptr RawTH2I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinError1" c_th2i_setbinerror1 - :: (Ptr RawTH2I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinError1" + c_th2i_setbinerror1 :: Ptr RawTH2I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinError2" c_th2i_setbinerror2 - :: (Ptr RawTH2I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinError2" + c_th2i_setbinerror2 :: + Ptr RawTH2I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBinError3" c_th2i_setbinerror3 - :: (Ptr RawTH2I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBinError3" + c_th2i_setbinerror3 :: + Ptr RawTH2I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBins1" c_th2i_setbins1 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBins1" + c_th2i_setbins1 :: Ptr RawTH2I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBins2" c_th2i_setbins2 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBins2" + c_th2i_setbins2 :: + Ptr RawTH2I -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setBins3" c_th2i_setbins3 - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setBins3" + c_th2i_setbins3 :: + Ptr RawTH2I -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetBinsLength" c_th2i_setbinslength - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetBinsLength" + c_th2i_setbinslength :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetBuffer" c_th2i_setbuffer - :: (Ptr RawTH2I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetBuffer" + c_th2i_setbuffer :: Ptr RawTH2I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetCellContent" c_th2i_setcellcontent - :: (Ptr RawTH2I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetCellContent" + c_th2i_setcellcontent :: + Ptr RawTH2I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetContent" c_th2i_setcontent - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetContent" + c_th2i_setcontent :: Ptr RawTH2I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetContour" c_th2i_setcontour - :: (Ptr RawTH2I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetContour" + c_th2i_setcontour :: Ptr RawTH2I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetContourLevel" c_th2i_setcontourlevel - :: (Ptr RawTH2I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetContourLevel" + c_th2i_setcontourlevel :: Ptr RawTH2I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetDirectory" c_th2i_setdirectory - :: (Ptr RawTH2I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetDirectory" + c_th2i_setdirectory :: Ptr RawTH2I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetEntries" c_th2i_setentries - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetEntries" + c_th2i_setentries :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetError" c_th2i_seterror - :: (Ptr RawTH2I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetError" + c_th2i_seterror :: Ptr RawTH2I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setLabelColorA" c_th2i_setlabelcolora - :: (Ptr RawTH2I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setLabelColorA" + c_th2i_setlabelcolora :: Ptr RawTH2I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setLabelSizeA" c_th2i_setlabelsizea - :: (Ptr RawTH2I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setLabelSizeA" + c_th2i_setlabelsizea :: Ptr RawTH2I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setLabelFontA" c_th2i_setlabelfonta - :: (Ptr RawTH2I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setLabelFontA" + c_th2i_setlabelfonta :: Ptr RawTH2I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_setLabelOffsetA" c_th2i_setlabeloffseta - :: (Ptr RawTH2I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_setLabelOffsetA" + c_th2i_setlabeloffseta :: + Ptr RawTH2I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetMaximum" c_th2i_setmaximum - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetMaximum" + c_th2i_setmaximum :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetMinimum" c_th2i_setminimum - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetMinimum" + c_th2i_setminimum :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetNormFactor" c_th2i_setnormfactor - :: (Ptr RawTH2I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetNormFactor" + c_th2i_setnormfactor :: Ptr RawTH2I -> CDouble -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetStats" c_th2i_setstats - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetStats" + c_th2i_setstats :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetOption" c_th2i_setoption - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetOption" + c_th2i_setoption :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetXTitle" c_th2i_setxtitle - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetXTitle" + c_th2i_setxtitle :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetYTitle" c_th2i_setytitle - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetYTitle" + c_th2i_setytitle :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetZTitle" c_th2i_setztitle - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetZTitle" + c_th2i_setztitle :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_ShowBackground" c_th2i_showbackground - :: (Ptr RawTH2I) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2I.h TH2I_ShowBackground" + c_th2i_showbackground :: + Ptr RawTH2I -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2I.h TH2I_ShowPeaks" c_th2i_showpeaks - :: (Ptr RawTH2I) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_ShowPeaks" + c_th2i_showpeaks :: + Ptr RawTH2I -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_Smooth" c_th2i_smooth - :: (Ptr RawTH2I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Smooth" + c_th2i_smooth :: Ptr RawTH2I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Sumw2" c_th2i_sumw2 - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Sumw2" c_th2i_sumw2 + :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Draw" c_th2i_draw - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetName" + c_th2i_setname :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_FindObject" c_th2i_findobject - :: (Ptr RawTH2I) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetNameTitle" + c_th2i_setnametitle :: Ptr RawTH2I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetName" c_th2i_getname - :: (Ptr RawTH2I) -> IO CString +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetTitle" + c_th2i_settitle :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_IsA" c_th2i_isa - :: (Ptr RawTH2I) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetLineColor" + c_th2i_getlinecolor :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_Paint" c_th2i_paint - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetLineStyle" + c_th2i_getlinestyle :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_printObj" c_th2i_printobj - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetLineWidth" + c_th2i_getlinewidth :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_SaveAs" c_th2i_saveas - :: (Ptr RawTH2I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_ResetAttLine" + c_th2i_resetattline :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_Write" c_th2i_write - :: (Ptr RawTH2I) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetLineAttributes" + c_th2i_setlineattributes :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetLineColor" c_th2i_getlinecolor - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetLineColor" + c_th2i_setlinecolor :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetLineStyle" c_th2i_getlinestyle - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetLineStyle" + c_th2i_setlinestyle :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetLineWidth" c_th2i_getlinewidth - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetLineWidth" + c_th2i_setlinewidth :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_ResetAttLine" c_th2i_resetattline - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetFillColor" + c_th2i_setfillcolor :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetLineAttributes" c_th2i_setlineattributes - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetFillStyle" + c_th2i_setfillstyle :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetLineColor" c_th2i_setlinecolor - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMarkerColor" + c_th2i_getmarkercolor :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_SetLineStyle" c_th2i_setlinestyle - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMarkerStyle" + c_th2i_getmarkerstyle :: Ptr RawTH2I -> IO CInt -foreign import ccall "HROOTHistTH2I.h TH2I_SetLineWidth" c_th2i_setlinewidth - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetMarkerSize" + c_th2i_getmarkersize :: Ptr RawTH2I -> IO CDouble -foreign import ccall "HROOTHistTH2I.h TH2I_SetFillColor" c_th2i_setfillcolor - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_ResetAttMarker" + c_th2i_resetattmarker :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetFillStyle" c_th2i_setfillstyle - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2I.h TH2I_SetMarkerAttributes" + c_th2i_setmarkerattributes :: Ptr RawTH2I -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetMarkerColor" c_th2i_getmarkercolor - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetMarkerColor" + c_th2i_setmarkercolor :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetMarkerStyle" c_th2i_getmarkerstyle - :: (Ptr RawTH2I) -> IO CInt +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetMarkerStyle" + c_th2i_setmarkerstyle :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_GetMarkerSize" c_th2i_getmarkersize - :: (Ptr RawTH2I) -> IO CDouble +foreign import ccall safe "HROOTHistTH2I.h TH2I_SetMarkerSize" + c_th2i_setmarkersize :: Ptr RawTH2I -> CInt -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_ResetAttMarker" c_th2i_resetattmarker - :: (Ptr RawTH2I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Draw" c_th2i_draw + :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_SetMarkerAttributes" c_th2i_setmarkerattributes - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_FindObject" + c_th2i_findobject :: Ptr RawTH2I -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2I.h TH2I_SetMarkerColor" c_th2i_setmarkercolor - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_GetName" + c_th2i_getname :: Ptr RawTH2I -> IO CString -foreign import ccall "HROOTHistTH2I.h TH2I_SetMarkerStyle" c_th2i_setmarkerstyle - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_IsA" c_th2i_isa :: + Ptr RawTH2I -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2I.h TH2I_SetMarkerSize" c_th2i_setmarkersize - :: (Ptr RawTH2I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_Paint" c_th2i_paint + :: Ptr RawTH2I -> CString -> IO () -foreign import ccall "HROOTHistTH2I.h TH2I_delete" c_th2i_delete - :: (Ptr RawTH2I) -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_printObj" + c_th2i_printobj :: Ptr RawTH2I -> CString -> IO () +foreign import ccall safe "HROOTHistTH2I.h TH2I_SaveAs" + c_th2i_saveas :: Ptr RawTH2I -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH2I.h TH2I_Write" c_th2i_write + :: Ptr RawTH2I -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2I.h TH2I_delete" + c_th2i_delete :: Ptr RawTH2I -> IO () diff --git a/src/HROOT/Hist/TH2I/Implementation.hs b/src/HROOT/Hist/TH2I/Implementation.hs --- a/src/HROOT/Hist/TH2I/Implementation.hs +++ b/src/HROOT/Hist/TH2I/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2I.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2I.RawType import HROOT.Hist.TH2I.FFI import HROOT.Hist.TH2I.Interface @@ -41,9 +42,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,392 +64,201 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2I TH2I -instance ITH2I TH2I where instance ITH2 TH2I where - fill2 = xform2 c_th2i_fill2 - fill2w = xform3 c_th2i_fill2w - fillN2 = xform5 c_th2i_filln2 - fillRandom2 = xform2 c_th2i_fillrandom2 - findFirstBinAbove2 = xform2 c_th2i_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2i_findlastbinabove2 - fitSlicesX = xform6 c_th2i_fitslicesx - fitSlicesY = xform6 c_th2i_fitslicesy - getCorrelationFactor2 = xform2 c_th2i_getcorrelationfactor2 - getCovariance2 = xform2 c_th2i_getcovariance2 - integral2 = xform5 c_th2i_integral2 - rebinX2 = xform2 c_th2i_rebinx2 - rebinY2 = xform2 c_th2i_rebiny2 - rebin2D = xform3 c_th2i_rebin2d - setShowProjectionX = xform1 c_th2i_setshowprojectionx - setShowProjectionY = xform1 c_th2i_setshowprojectiony -instance ITArrayI TH2I where -instance ITH1 TH2I where - add = xform2 c_th2i_add - addBinContent = xform2 c_th2i_addbincontent - chi2Test = xform3 c_th2i_chi2test - computeIntegral = xform0 c_th2i_computeintegral - directoryAutoAdd = xform1 c_th2i_directoryautoadd - divide = xform5 c_th2i_divide - drawCopyTH1 = xform1 c_th2i_drawcopyth1 - drawNormalized = xform2 c_th2i_drawnormalized - drawPanelTH1 = xform0 c_th2i_drawpanelth1 - bufferEmpty = xform1 c_th2i_bufferempty - evalF = xform2 c_th2i_evalf - fFT = xform2 c_th2i_fft - fill1 = xform1 c_th2i_fill1 - fill1w = xform2 c_th2i_fill1w - fillN1 = xform4 c_th2i_filln1 - fillRandom = xform2 c_th2i_fillrandom - findBin = xform3 c_th2i_findbin - findFixBin = xform3 c_th2i_findfixbin - findFirstBinAbove = xform2 c_th2i_findfirstbinabove - findLastBinAbove = xform2 c_th2i_findlastbinabove - fitPanelTH1 = xform0 c_th2i_fitpanelth1 - getNdivisionA = xform1 c_th2i_getndivisiona - getAxisColorA = xform1 c_th2i_getaxiscolora - getLabelColorA = xform1 c_th2i_getlabelcolora - getLabelFontA = xform1 c_th2i_getlabelfonta - getLabelOffsetA = xform1 c_th2i_getlabeloffseta - getLabelSizeA = xform1 c_th2i_getlabelsizea - getTitleFontA = xform1 c_th2i_gettitlefonta - getTitleOffsetA = xform1 c_th2i_gettitleoffseta - getTitleSizeA = xform1 c_th2i_gettitlesizea - getTickLengthA = xform1 c_th2i_getticklengtha - getBarOffset = xform0 c_th2i_getbaroffset - getBarWidth = xform0 c_th2i_getbarwidth - getContour = xform1 c_th2i_getcontour - getContourLevel = xform1 c_th2i_getcontourlevel - getContourLevelPad = xform1 c_th2i_getcontourlevelpad - getBin = xform3 c_th2i_getbin - getBinCenter = xform1 c_th2i_getbincenter - getBinContent1 = xform1 c_th2i_getbincontent1 - getBinContent2 = xform2 c_th2i_getbincontent2 - getBinContent3 = xform3 c_th2i_getbincontent3 - getBinError1 = xform1 c_th2i_getbinerror1 - getBinError2 = xform2 c_th2i_getbinerror2 - getBinError3 = xform3 c_th2i_getbinerror3 - getBinLowEdge = xform1 c_th2i_getbinlowedge - getBinWidth = xform1 c_th2i_getbinwidth - getCellContent = xform2 c_th2i_getcellcontent - getCellError = xform2 c_th2i_getcellerror - getEntries = xform0 c_th2i_getentries - getEffectiveEntries = xform0 c_th2i_geteffectiveentries - getFunction = xform1 c_th2i_getfunction - getDimension = xform0 c_th2i_getdimension - getKurtosis = xform1 c_th2i_getkurtosis - getLowEdge = xform1 c_th2i_getlowedge - getMaximumTH1 = xform1 c_th2i_getmaximumth1 - getMaximumBin = xform0 c_th2i_getmaximumbin - getMaximumStored = xform0 c_th2i_getmaximumstored - getMinimumTH1 = xform1 c_th2i_getminimumth1 - getMinimumBin = xform0 c_th2i_getminimumbin - getMinimumStored = xform0 c_th2i_getminimumstored - getMean = xform1 c_th2i_getmean - getMeanError = xform1 c_th2i_getmeanerror - getNbinsX = xform0 c_th2i_getnbinsx - getNbinsY = xform0 c_th2i_getnbinsy - getNbinsZ = xform0 c_th2i_getnbinsz - getQuantilesTH1 = xform3 c_th2i_getquantilesth1 - getRandom = xform0 c_th2i_getrandom - getStats = xform1 c_th2i_getstats - getSumOfWeights = xform0 c_th2i_getsumofweights - getSumw2 = xform0 c_th2i_getsumw2 - getSumw2N = xform0 c_th2i_getsumw2n - getRMS = xform1 c_th2i_getrms - getRMSError = xform1 c_th2i_getrmserror - getSkewness = xform1 c_th2i_getskewness - integral1 = xform3 c_th2i_integral1 - interpolate1 = xform1 c_th2i_interpolate1 - interpolate2 = xform2 c_th2i_interpolate2 - interpolate3 = xform3 c_th2i_interpolate3 - kolmogorovTest = xform2 c_th2i_kolmogorovtest - labelsDeflate = xform1 c_th2i_labelsdeflate - labelsInflate = xform1 c_th2i_labelsinflate - labelsOption = xform2 c_th2i_labelsoption - multiflyF = xform2 c_th2i_multiflyf - multiply = xform5 c_th2i_multiply - putStats = xform1 c_th2i_putstats - rebin = xform3 c_th2i_rebin - rebinAxis = xform2 c_th2i_rebinaxis - rebuild = xform1 c_th2i_rebuild - recursiveRemove = xform1 c_th2i_recursiveremove - reset = xform1 c_th2i_reset - resetStats = xform0 c_th2i_resetstats - scale = xform2 c_th2i_scale - setAxisColorA = xform2 c_th2i_setaxiscolora - setAxisRange = xform3 c_th2i_setaxisrange - setBarOffset = xform1 c_th2i_setbaroffset - setBarWidth = xform1 c_th2i_setbarwidth - setBinContent1 = xform2 c_th2i_setbincontent1 - setBinContent2 = xform3 c_th2i_setbincontent2 - setBinContent3 = xform4 c_th2i_setbincontent3 - setBinError1 = xform2 c_th2i_setbinerror1 - setBinError2 = xform3 c_th2i_setbinerror2 - setBinError3 = xform4 c_th2i_setbinerror3 - setBins1 = xform2 c_th2i_setbins1 - setBins2 = xform4 c_th2i_setbins2 - setBins3 = xform6 c_th2i_setbins3 - setBinsLength = xform1 c_th2i_setbinslength - setBuffer = xform2 c_th2i_setbuffer - setCellContent = xform3 c_th2i_setcellcontent - setContent = xform1 c_th2i_setcontent - setContour = xform2 c_th2i_setcontour - setContourLevel = xform2 c_th2i_setcontourlevel - setDirectory = xform1 c_th2i_setdirectory - setEntries = xform1 c_th2i_setentries - setError = xform1 c_th2i_seterror - setLabelColorA = xform2 c_th2i_setlabelcolora - setLabelSizeA = xform2 c_th2i_setlabelsizea - setLabelFontA = xform2 c_th2i_setlabelfonta - setLabelOffsetA = xform2 c_th2i_setlabeloffseta - setMaximum = xform1 c_th2i_setmaximum - setMinimum = xform1 c_th2i_setminimum - setNormFactor = xform1 c_th2i_setnormfactor - setStats = xform1 c_th2i_setstats - setOption = xform1 c_th2i_setoption - setXTitle = xform1 c_th2i_setxtitle - setYTitle = xform1 c_th2i_setytitle - setZTitle = xform1 c_th2i_setztitle - showBackground = xform2 c_th2i_showbackground - showPeaks = xform3 c_th2i_showpeaks - smooth = xform2 c_th2i_smooth - sumw2 = xform0 c_th2i_sumw2 -instance ITObject TH2I where - draw = xform1 c_th2i_draw - findObject = xform1 c_th2i_findobject - getName = xform0 c_th2i_getname - isA = xform0 c_th2i_isa - paint = xform1 c_th2i_paint - printObj = xform1 c_th2i_printobj - saveAs = xform2 c_th2i_saveas - write = xform3 c_th2i_write -instance ITAttLine TH2I where - getLineColor = xform0 c_th2i_getlinecolor - getLineStyle = xform0 c_th2i_getlinestyle - getLineWidth = xform0 c_th2i_getlinewidth - resetAttLine = xform1 c_th2i_resetattline - setLineAttributes = xform0 c_th2i_setlineattributes - setLineColor = xform1 c_th2i_setlinecolor - setLineStyle = xform1 c_th2i_setlinestyle - setLineWidth = xform1 c_th2i_setlinewidth -instance ITAttFill TH2I where - setFillColor = xform1 c_th2i_setfillcolor - setFillStyle = xform1 c_th2i_setfillstyle -instance ITAttMarker TH2I where - getMarkerColor = xform0 c_th2i_getmarkercolor - getMarkerStyle = xform0 c_th2i_getmarkerstyle - getMarkerSize = xform0 c_th2i_getmarkersize - resetAttMarker = xform1 c_th2i_resetattmarker - setMarkerAttributes = xform0 c_th2i_setmarkerattributes - setMarkerColor = xform1 c_th2i_setmarkercolor - setMarkerStyle = xform1 c_th2i_setmarkerstyle - setMarkerSize = xform1 c_th2i_setmarkersize -instance IDeletable TH2I where - delete = xform0 c_th2i_delete -instance ITArray TH2I where - -instance ITH2I (Exist TH2I) where - -instance ITH2 (Exist TH2I) where - fill2 (ETH2I x) = fill2 x - fill2w (ETH2I x) = fill2w x - fillN2 (ETH2I x) = fillN2 x - fillRandom2 (ETH2I x) = fillRandom2 x - findFirstBinAbove2 (ETH2I x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2I x) = findLastBinAbove2 x - fitSlicesX (ETH2I x) = fitSlicesX x - fitSlicesY (ETH2I x) = fitSlicesY x - getCorrelationFactor2 (ETH2I x) = getCorrelationFactor2 x - getCovariance2 (ETH2I x) = getCovariance2 x - integral2 (ETH2I x) = integral2 x - rebinX2 (ETH2I x) = rebinX2 x - rebinY2 (ETH2I x) = rebinY2 x - rebin2D (ETH2I x) = rebin2D x - setShowProjectionX (ETH2I x) = setShowProjectionX x - setShowProjectionY (ETH2I x) = setShowProjectionY x -instance ITArrayI (Exist TH2I) where + fill2 = xform2 c_th2i_fill2 + fill2w = xform3 c_th2i_fill2w + fillN2 = xform5 c_th2i_filln2 + fillRandom2 = xform2 c_th2i_fillrandom2 + findFirstBinAbove2 = xform2 c_th2i_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2i_findlastbinabove2 + fitSlicesX = xform6 c_th2i_fitslicesx + fitSlicesY = xform6 c_th2i_fitslicesy + getCorrelationFactor2 = xform2 c_th2i_getcorrelationfactor2 + getCovariance2 = xform2 c_th2i_getcovariance2 + integral2 = xform5 c_th2i_integral2 + rebinX2 = xform2 c_th2i_rebinx2 + rebinY2 = xform2 c_th2i_rebiny2 + rebin2D = xform3 c_th2i_rebin2d + setShowProjectionX = xform1 c_th2i_setshowprojectionx + setShowProjectionY = xform1 c_th2i_setshowprojectiony -instance ITH1 (Exist TH2I) where - add (ETH2I x) = add x - addBinContent (ETH2I x) = addBinContent x - chi2Test (ETH2I x) = chi2Test x - computeIntegral (ETH2I x) = computeIntegral x - directoryAutoAdd (ETH2I x) = directoryAutoAdd x - divide (ETH2I x) = divide x - drawCopyTH1 (ETH2I x) a1 = return . ETH2I =<< drawCopyTH1 x a1 - drawNormalized (ETH2I x) = drawNormalized x - drawPanelTH1 (ETH2I x) = drawPanelTH1 x - bufferEmpty (ETH2I x) = bufferEmpty x - evalF (ETH2I x) = evalF x - fFT (ETH2I x) = fFT x - fill1 (ETH2I x) = fill1 x - fill1w (ETH2I x) = fill1w x - fillN1 (ETH2I x) = fillN1 x - fillRandom (ETH2I x) = fillRandom x - findBin (ETH2I x) = findBin x - findFixBin (ETH2I x) = findFixBin x - findFirstBinAbove (ETH2I x) = findFirstBinAbove x - findLastBinAbove (ETH2I x) = findLastBinAbove x - fitPanelTH1 (ETH2I x) = fitPanelTH1 x - getNdivisionA (ETH2I x) = getNdivisionA x - getAxisColorA (ETH2I x) = getAxisColorA x - getLabelColorA (ETH2I x) = getLabelColorA x - getLabelFontA (ETH2I x) = getLabelFontA x - getLabelOffsetA (ETH2I x) = getLabelOffsetA x - getLabelSizeA (ETH2I x) = getLabelSizeA x - getTitleFontA (ETH2I x) = getTitleFontA x - getTitleOffsetA (ETH2I x) = getTitleOffsetA x - getTitleSizeA (ETH2I x) = getTitleSizeA x - getTickLengthA (ETH2I x) = getTickLengthA x - getBarOffset (ETH2I x) = getBarOffset x - getBarWidth (ETH2I x) = getBarWidth x - getContour (ETH2I x) = getContour x - getContourLevel (ETH2I x) = getContourLevel x - getContourLevelPad (ETH2I x) = getContourLevelPad x - getBin (ETH2I x) = getBin x - getBinCenter (ETH2I x) = getBinCenter x - getBinContent1 (ETH2I x) = getBinContent1 x - getBinContent2 (ETH2I x) = getBinContent2 x - getBinContent3 (ETH2I x) = getBinContent3 x - getBinError1 (ETH2I x) = getBinError1 x - getBinError2 (ETH2I x) = getBinError2 x - getBinError3 (ETH2I x) = getBinError3 x - getBinLowEdge (ETH2I x) = getBinLowEdge x - getBinWidth (ETH2I x) = getBinWidth x - getCellContent (ETH2I x) = getCellContent x - getCellError (ETH2I x) = getCellError x - getEntries (ETH2I x) = getEntries x - getEffectiveEntries (ETH2I x) = getEffectiveEntries x - getFunction (ETH2I x) = getFunction x - getDimension (ETH2I x) = getDimension x - getKurtosis (ETH2I x) = getKurtosis x - getLowEdge (ETH2I x) = getLowEdge x - getMaximumTH1 (ETH2I x) = getMaximumTH1 x - getMaximumBin (ETH2I x) = getMaximumBin x - getMaximumStored (ETH2I x) = getMaximumStored x - getMinimumTH1 (ETH2I x) = getMinimumTH1 x - getMinimumBin (ETH2I x) = getMinimumBin x - getMinimumStored (ETH2I x) = getMinimumStored x - getMean (ETH2I x) = getMean x - getMeanError (ETH2I x) = getMeanError x - getNbinsX (ETH2I x) = getNbinsX x - getNbinsY (ETH2I x) = getNbinsY x - getNbinsZ (ETH2I x) = getNbinsZ x - getQuantilesTH1 (ETH2I x) = getQuantilesTH1 x - getRandom (ETH2I x) = getRandom x - getStats (ETH2I x) = getStats x - getSumOfWeights (ETH2I x) = getSumOfWeights x - getSumw2 (ETH2I x) = getSumw2 x - getSumw2N (ETH2I x) = getSumw2N x - getRMS (ETH2I x) = getRMS x - getRMSError (ETH2I x) = getRMSError x - getSkewness (ETH2I x) = getSkewness x - integral1 (ETH2I x) = integral1 x - interpolate1 (ETH2I x) = interpolate1 x - interpolate2 (ETH2I x) = interpolate2 x - interpolate3 (ETH2I x) = interpolate3 x - kolmogorovTest (ETH2I x) = kolmogorovTest x - labelsDeflate (ETH2I x) = labelsDeflate x - labelsInflate (ETH2I x) = labelsInflate x - labelsOption (ETH2I x) = labelsOption x - multiflyF (ETH2I x) = multiflyF x - multiply (ETH2I x) = multiply x - putStats (ETH2I x) = putStats x - rebin (ETH2I x) = rebin x - rebinAxis (ETH2I x) = rebinAxis x - rebuild (ETH2I x) = rebuild x - recursiveRemove (ETH2I x) = recursiveRemove x - reset (ETH2I x) = reset x - resetStats (ETH2I x) = resetStats x - scale (ETH2I x) = scale x - setAxisColorA (ETH2I x) = setAxisColorA x - setAxisRange (ETH2I x) = setAxisRange x - setBarOffset (ETH2I x) = setBarOffset x - setBarWidth (ETH2I x) = setBarWidth x - setBinContent1 (ETH2I x) = setBinContent1 x - setBinContent2 (ETH2I x) = setBinContent2 x - setBinContent3 (ETH2I x) = setBinContent3 x - setBinError1 (ETH2I x) = setBinError1 x - setBinError2 (ETH2I x) = setBinError2 x - setBinError3 (ETH2I x) = setBinError3 x - setBins1 (ETH2I x) = setBins1 x - setBins2 (ETH2I x) = setBins2 x - setBins3 (ETH2I x) = setBins3 x - setBinsLength (ETH2I x) = setBinsLength x - setBuffer (ETH2I x) = setBuffer x - setCellContent (ETH2I x) = setCellContent x - setContent (ETH2I x) = setContent x - setContour (ETH2I x) = setContour x - setContourLevel (ETH2I x) = setContourLevel x - setDirectory (ETH2I x) = setDirectory x - setEntries (ETH2I x) = setEntries x - setError (ETH2I x) = setError x - setLabelColorA (ETH2I x) = setLabelColorA x - setLabelSizeA (ETH2I x) = setLabelSizeA x - setLabelFontA (ETH2I x) = setLabelFontA x - setLabelOffsetA (ETH2I x) = setLabelOffsetA x - setMaximum (ETH2I x) = setMaximum x - setMinimum (ETH2I x) = setMinimum x - setNormFactor (ETH2I x) = setNormFactor x - setStats (ETH2I x) = setStats x - setOption (ETH2I x) = setOption x - setXTitle (ETH2I x) = setXTitle x - setYTitle (ETH2I x) = setYTitle x - setZTitle (ETH2I x) = setZTitle x - showBackground (ETH2I x) = showBackground x - showPeaks (ETH2I x) = showPeaks x - smooth (ETH2I x) = smooth x - sumw2 (ETH2I x) = sumw2 x -instance ITObject (Exist TH2I) where - draw (ETH2I x) = draw x - findObject (ETH2I x) = findObject x - getName (ETH2I x) = getName x - isA (ETH2I x) = isA x - paint (ETH2I x) = paint x - printObj (ETH2I x) = printObj x - saveAs (ETH2I x) = saveAs x - write (ETH2I x) = write x -instance ITAttLine (Exist TH2I) where - getLineColor (ETH2I x) = getLineColor x - getLineStyle (ETH2I x) = getLineStyle x - getLineWidth (ETH2I x) = getLineWidth x - resetAttLine (ETH2I x) = resetAttLine x - setLineAttributes (ETH2I x) = setLineAttributes x - setLineColor (ETH2I x) = setLineColor x - setLineStyle (ETH2I x) = setLineStyle x - setLineWidth (ETH2I x) = setLineWidth x -instance ITAttFill (Exist TH2I) where - setFillColor (ETH2I x) = setFillColor x - setFillStyle (ETH2I x) = setFillStyle x -instance ITAttMarker (Exist TH2I) where - getMarkerColor (ETH2I x) = getMarkerColor x - getMarkerStyle (ETH2I x) = getMarkerStyle x - getMarkerSize (ETH2I x) = getMarkerSize x - resetAttMarker (ETH2I x) = resetAttMarker x - setMarkerAttributes (ETH2I x) = setMarkerAttributes x - setMarkerColor (ETH2I x) = setMarkerColor x - setMarkerStyle (ETH2I x) = setMarkerStyle x - setMarkerSize (ETH2I x) = setMarkerSize x -instance IDeletable (Exist TH2I) where - delete (ETH2I x) = delete x -instance ITArray (Exist TH2I) where +instance ITArrayI TH2I +instance ITH1 TH2I where + add = xform2 c_th2i_add + addBinContent = xform2 c_th2i_addbincontent + chi2Test = xform3 c_th2i_chi2test + computeIntegral = xform0 c_th2i_computeintegral + directoryAutoAdd = xform1 c_th2i_directoryautoadd + divide = xform5 c_th2i_divide + drawCopyTH1 = xform1 c_th2i_drawcopyth1 + drawNormalized = xform2 c_th2i_drawnormalized + drawPanelTH1 = xform0 c_th2i_drawpanelth1 + bufferEmpty = xform1 c_th2i_bufferempty + evalF = xform2 c_th2i_evalf + fFT = xform2 c_th2i_fft + fill1 = xform1 c_th2i_fill1 + fill1w = xform2 c_th2i_fill1w + fillN1 = xform4 c_th2i_filln1 + fillRandom = xform2 c_th2i_fillrandom + findBin = xform3 c_th2i_findbin + findFixBin = xform3 c_th2i_findfixbin + findFirstBinAbove = xform2 c_th2i_findfirstbinabove + findLastBinAbove = xform2 c_th2i_findlastbinabove + fit = xform5 c_th2i_fit + fitPanelTH1 = xform0 c_th2i_fitpanelth1 + getNdivisionA = xform1 c_th2i_getndivisiona + getAxisColorA = xform1 c_th2i_getaxiscolora + getLabelColorA = xform1 c_th2i_getlabelcolora + getLabelFontA = xform1 c_th2i_getlabelfonta + getLabelOffsetA = xform1 c_th2i_getlabeloffseta + getLabelSizeA = xform1 c_th2i_getlabelsizea + getTitleFontA = xform1 c_th2i_gettitlefonta + getTitleOffsetA = xform1 c_th2i_gettitleoffseta + getTitleSizeA = xform1 c_th2i_gettitlesizea + getTickLengthA = xform1 c_th2i_getticklengtha + getBarOffset = xform0 c_th2i_getbaroffset + getBarWidth = xform0 c_th2i_getbarwidth + getContour = xform1 c_th2i_getcontour + getContourLevel = xform1 c_th2i_getcontourlevel + getContourLevelPad = xform1 c_th2i_getcontourlevelpad + getBin = xform3 c_th2i_getbin + getBinCenter = xform1 c_th2i_getbincenter + getBinContent1 = xform1 c_th2i_getbincontent1 + getBinContent2 = xform2 c_th2i_getbincontent2 + getBinContent3 = xform3 c_th2i_getbincontent3 + getBinError1 = xform1 c_th2i_getbinerror1 + getBinError2 = xform2 c_th2i_getbinerror2 + getBinError3 = xform3 c_th2i_getbinerror3 + getBinLowEdge = xform1 c_th2i_getbinlowedge + getBinWidth = xform1 c_th2i_getbinwidth + getCellContent = xform2 c_th2i_getcellcontent + getCellError = xform2 c_th2i_getcellerror + getEntries = xform0 c_th2i_getentries + getEffectiveEntries = xform0 c_th2i_geteffectiveentries + getFunction = xform1 c_th2i_getfunction + getDimension = xform0 c_th2i_getdimension + getKurtosis = xform1 c_th2i_getkurtosis + getLowEdge = xform1 c_th2i_getlowedge + getMaximumTH1 = xform1 c_th2i_getmaximumth1 + getMaximumBin = xform0 c_th2i_getmaximumbin + getMaximumStored = xform0 c_th2i_getmaximumstored + getMinimumTH1 = xform1 c_th2i_getminimumth1 + getMinimumBin = xform0 c_th2i_getminimumbin + getMinimumStored = xform0 c_th2i_getminimumstored + getMean = xform1 c_th2i_getmean + getMeanError = xform1 c_th2i_getmeanerror + getNbinsX = xform0 c_th2i_getnbinsx + getNbinsY = xform0 c_th2i_getnbinsy + getNbinsZ = xform0 c_th2i_getnbinsz + getQuantilesTH1 = xform3 c_th2i_getquantilesth1 + getRandom = xform0 c_th2i_getrandom + getStats = xform1 c_th2i_getstats + getSumOfWeights = xform0 c_th2i_getsumofweights + getSumw2 = xform0 c_th2i_getsumw2 + getSumw2N = xform0 c_th2i_getsumw2n + getRMS = xform1 c_th2i_getrms + getRMSError = xform1 c_th2i_getrmserror + getSkewness = xform1 c_th2i_getskewness + integral1 = xform3 c_th2i_integral1 + interpolate1 = xform1 c_th2i_interpolate1 + interpolate2 = xform2 c_th2i_interpolate2 + interpolate3 = xform3 c_th2i_interpolate3 + kolmogorovTest = xform2 c_th2i_kolmogorovtest + labelsDeflate = xform1 c_th2i_labelsdeflate + labelsInflate = xform1 c_th2i_labelsinflate + labelsOption = xform2 c_th2i_labelsoption + multiflyF = xform2 c_th2i_multiflyf + multiply = xform5 c_th2i_multiply + putStats = xform1 c_th2i_putstats + rebin = xform3 c_th2i_rebin + rebinAxis = xform2 c_th2i_rebinaxis + rebuild = xform1 c_th2i_rebuild + recursiveRemove = xform1 c_th2i_recursiveremove + reset = xform1 c_th2i_reset + resetStats = xform0 c_th2i_resetstats + scale = xform2 c_th2i_scale + setAxisColorA = xform2 c_th2i_setaxiscolora + setAxisRange = xform3 c_th2i_setaxisrange + setBarOffset = xform1 c_th2i_setbaroffset + setBarWidth = xform1 c_th2i_setbarwidth + setBinContent1 = xform2 c_th2i_setbincontent1 + setBinContent2 = xform3 c_th2i_setbincontent2 + setBinContent3 = xform4 c_th2i_setbincontent3 + setBinError1 = xform2 c_th2i_setbinerror1 + setBinError2 = xform3 c_th2i_setbinerror2 + setBinError3 = xform4 c_th2i_setbinerror3 + setBins1 = xform2 c_th2i_setbins1 + setBins2 = xform4 c_th2i_setbins2 + setBins3 = xform6 c_th2i_setbins3 + setBinsLength = xform1 c_th2i_setbinslength + setBuffer = xform2 c_th2i_setbuffer + setCellContent = xform3 c_th2i_setcellcontent + setContent = xform1 c_th2i_setcontent + setContour = xform2 c_th2i_setcontour + setContourLevel = xform2 c_th2i_setcontourlevel + setDirectory = xform1 c_th2i_setdirectory + setEntries = xform1 c_th2i_setentries + setError = xform1 c_th2i_seterror + setLabelColorA = xform2 c_th2i_setlabelcolora + setLabelSizeA = xform2 c_th2i_setlabelsizea + setLabelFontA = xform2 c_th2i_setlabelfonta + setLabelOffsetA = xform2 c_th2i_setlabeloffseta + setMaximum = xform1 c_th2i_setmaximum + setMinimum = xform1 c_th2i_setminimum + setNormFactor = xform1 c_th2i_setnormfactor + setStats = xform1 c_th2i_setstats + setOption = xform1 c_th2i_setoption + setXTitle = xform1 c_th2i_setxtitle + setYTitle = xform1 c_th2i_setytitle + setZTitle = xform1 c_th2i_setztitle + showBackground = xform2 c_th2i_showbackground + showPeaks = xform3 c_th2i_showpeaks + smooth = xform2 c_th2i_smooth + sumw2 = xform0 c_th2i_sumw2 +instance ITNamed TH2I where + setName = xform1 c_th2i_setname + setNameTitle = xform2 c_th2i_setnametitle + setTitle = xform1 c_th2i_settitle +instance ITAttLine TH2I where + getLineColor = xform0 c_th2i_getlinecolor + getLineStyle = xform0 c_th2i_getlinestyle + getLineWidth = xform0 c_th2i_getlinewidth + resetAttLine = xform1 c_th2i_resetattline + setLineAttributes = xform0 c_th2i_setlineattributes + setLineColor = xform1 c_th2i_setlinecolor + setLineStyle = xform1 c_th2i_setlinestyle + setLineWidth = xform1 c_th2i_setlinewidth +instance ITAttFill TH2I where + setFillColor = xform1 c_th2i_setfillcolor + setFillStyle = xform1 c_th2i_setfillstyle +instance ITAttMarker TH2I where + getMarkerColor = xform0 c_th2i_getmarkercolor + getMarkerStyle = xform0 c_th2i_getmarkerstyle + getMarkerSize = xform0 c_th2i_getmarkersize + resetAttMarker = xform1 c_th2i_resetattmarker + setMarkerAttributes = xform0 c_th2i_setmarkerattributes + setMarkerColor = xform1 c_th2i_setmarkercolor + setMarkerStyle = xform1 c_th2i_setmarkerstyle + setMarkerSize = xform1 c_th2i_setmarkersize +instance ITObject TH2I where + draw = xform1 c_th2i_draw + findObject = xform1 c_th2i_findobject + getName = xform0 c_th2i_getname + isA = xform0 c_th2i_isa + paint = xform1 c_th2i_paint + printObj = xform1 c_th2i_printobj + saveAs = xform2 c_th2i_saveas + write = xform3 c_th2i_write +instance IDeletable TH2I where + delete = xform0 c_th2i_delete -instance FPtr (Exist TH2I) where - type Raw (Exist TH2I) = RawTH2I - get_fptr (ETH2I obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2I) :: TH2I) +instance ITArray TH2I diff --git a/src/HROOT/Hist/TH2I/Interface.hs b/src/HROOT/Hist/TH2I/Interface.hs --- a/src/HROOT/Hist/TH2I/Interface.hs +++ b/src/HROOT/Hist/TH2I/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2I.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2I.RawType - import HROOT.Hist.TH2.Interface import HROOT.Core.TArrayI.Interface ----- ============ ---- - - -class (ITH2 a,ITArrayI a) => ITH2I a where - -instance Existable TH2I where - data Exist TH2I = forall a. (FPtr a, ITH2I a) => ETH2I a +class (ITH2 a, ITArrayI a) => ITH2I a -upcastTH2I :: (FPtr a, ITH2I a) => a -> TH2I -upcastTH2I h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2I = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2I :: forall a . (FPtr a, ITH2I a) => a -> TH2I +upcastTH2I h + = let fh = get_fptr h + fh2 :: Ptr RawTH2I = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2I :: (FPtr a, ITH2I a) => TH2I -> a -downcastTH2I h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2I :: forall a . (FPtr a, ITH2I a) => TH2I -> a +downcastTH2I h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2I/RawType.hs b/src/HROOT/Hist/TH2I/RawType.hs --- a/src/HROOT/Hist/TH2I/RawType.hs +++ b/src/HROOT/Hist/TH2I/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2I.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2I -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2I = TH2I (Ptr RawTH2I) + deriving (Eq, Ord, Show) -data RawTH2I -newtype TH2I = TH2I (ForeignPtr RawTH2I) deriving (Eq, Ord, Show) instance FPtr TH2I where - type Raw TH2I = RawTH2I - get_fptr (TH2I fptr) = fptr - cast_fptr_to_obj = TH2I + type Raw TH2I = RawTH2I + get_fptr (TH2I ptr) = ptr + cast_fptr_to_obj = TH2I diff --git a/src/HROOT/Hist/TH2Poly.hs b/src/HROOT/Hist/TH2Poly.hs --- a/src/HROOT/Hist/TH2Poly.hs +++ b/src/HROOT/Hist/TH2Poly.hs @@ -1,15 +1,5 @@ module HROOT.Hist.TH2Poly - ( - TH2Poly(..) - , ITH2Poly - , upcastTH2Poly - , downcastTH2Poly - - - ) where - + (TH2Poly(..), ITH2Poly, upcastTH2Poly, downcastTH2Poly) where import HROOT.Hist.TH2Poly.RawType import HROOT.Hist.TH2Poly.Interface import HROOT.Hist.TH2Poly.Implementation - - diff --git a/src/HROOT/Hist/TH2Poly/Cast.hs b/src/HROOT/Hist/TH2Poly/Cast.hs --- a/src/HROOT/Hist/TH2Poly/Cast.hs +++ b/src/HROOT/Hist/TH2Poly/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2Poly.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2Poly.RawType import HROOT.Hist.TH2Poly.Interface instance (ITH2Poly a, FPtr a) => Castable a (Ptr RawTH2Poly) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2Poly (Ptr RawTH2Poly) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2Poly/FFI.hsc b/src/HROOT/Hist/TH2Poly/FFI.hsc --- a/src/HROOT/Hist/TH2Poly/FFI.hsc +++ b/src/HROOT/Hist/TH2Poly/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2Poly.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2Poly.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,524 +14,683 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2Poly.h" +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fill2" + c_th2poly_fill2 :: Ptr RawTH2Poly -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fill2" c_th2poly_fill2 - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fill2w" + c_th2poly_fill2w :: + Ptr RawTH2Poly -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fill2w" c_th2poly_fill2w - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fillN2" + c_th2poly_filln2 :: + Ptr RawTH2Poly -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fillN2" c_th2poly_filln2 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fillRandom2" + c_th2poly_fillrandom2 :: + Ptr RawTH2Poly -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fillRandom2" c_th2poly_fillrandom2 - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_findFirstBinAbove2" + c_th2poly_findfirstbinabove2 :: + Ptr RawTH2Poly -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_findFirstBinAbove2" c_th2poly_findfirstbinabove2 - :: (Ptr RawTH2Poly) -> CDouble -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_findLastBinAbove2" + c_th2poly_findlastbinabove2 :: + Ptr RawTH2Poly -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_findLastBinAbove2" c_th2poly_findlastbinabove2 - :: (Ptr RawTH2Poly) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FitSlicesX" + c_th2poly_fitslicesx :: + Ptr RawTH2Poly -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FitSlicesX" c_th2poly_fitslicesx - :: (Ptr RawTH2Poly) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FitSlicesY" + c_th2poly_fitslicesy :: + Ptr RawTH2Poly -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FitSlicesY" c_th2poly_fitslicesy - :: (Ptr RawTH2Poly) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getCorrelationFactor2" + c_th2poly_getcorrelationfactor2 :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getCorrelationFactor2" c_th2poly_getcorrelationfactor2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getCovariance2" + c_th2poly_getcovariance2 :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getCovariance2" c_th2poly_getcovariance2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_integral2" + c_th2poly_integral2 :: + Ptr RawTH2Poly -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_integral2" c_th2poly_integral2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_rebinX2" + c_th2poly_rebinx2 :: + Ptr RawTH2Poly -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_rebinX2" c_th2poly_rebinx2 - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_rebinY2" + c_th2poly_rebiny2 :: + Ptr RawTH2Poly -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_rebinY2" c_th2poly_rebiny2 - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Rebin2D" + c_th2poly_rebin2d :: + Ptr RawTH2Poly -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Rebin2D" c_th2poly_rebin2d - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetShowProjectionX" + c_th2poly_setshowprojectionx :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetShowProjectionX" c_th2poly_setshowprojectionx - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetShowProjectionY" + c_th2poly_setshowprojectiony :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetShowProjectionY" c_th2poly_setshowprojectiony - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Add" + c_th2poly_add :: Ptr RawTH2Poly -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Add" c_th2poly_add - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_AddBinContent" c_th2poly_addbincontent + :: Ptr RawTH2Poly -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_AddBinContent" c_th2poly_addbincontent - :: (Ptr RawTH2Poly) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Chi2Test" + c_th2poly_chi2test :: + Ptr RawTH2Poly -> + Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Chi2Test" c_th2poly_chi2test - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_ComputeIntegral" + c_th2poly_computeintegral :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ComputeIntegral" c_th2poly_computeintegral - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_DirectoryAutoAdd" + c_th2poly_directoryautoadd :: + Ptr RawTH2Poly -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_DirectoryAutoAdd" c_th2poly_directoryautoadd - :: (Ptr RawTH2Poly) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Divide" + c_th2poly_divide :: + Ptr RawTH2Poly -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Divide" c_th2poly_divide - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_drawCopyTH1" + c_th2poly_drawcopyth1 :: + Ptr RawTH2Poly -> CString -> IO (Ptr RawTH2Poly) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_drawCopyTH1" c_th2poly_drawcopyth1 - :: (Ptr RawTH2Poly) -> CString -> IO (Ptr RawTH2Poly) +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_DrawNormalized" + c_th2poly_drawnormalized :: + Ptr RawTH2Poly -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_DrawNormalized" c_th2poly_drawnormalized - :: (Ptr RawTH2Poly) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_drawPanelTH1" + c_th2poly_drawpanelth1 :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_drawPanelTH1" c_th2poly_drawpanelth1 - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_BufferEmpty" + c_th2poly_bufferempty :: Ptr RawTH2Poly -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_BufferEmpty" c_th2poly_bufferempty - :: (Ptr RawTH2Poly) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_evalF" + c_th2poly_evalf :: Ptr RawTH2Poly -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_evalF" c_th2poly_evalf - :: (Ptr RawTH2Poly) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FFT" + c_th2poly_fft :: + Ptr RawTH2Poly -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FFT" c_th2poly_fft - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fill1" + c_th2poly_fill1 :: Ptr RawTH2Poly -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fill1" c_th2poly_fill1 - :: (Ptr RawTH2Poly) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fill1w" + c_th2poly_fill1w :: Ptr RawTH2Poly -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fill1w" c_th2poly_fill1w - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_fillN1" + c_th2poly_filln1 :: + Ptr RawTH2Poly -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_fillN1" c_th2poly_filln1 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FillRandom" + c_th2poly_fillrandom :: + Ptr RawTH2Poly -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FillRandom" c_th2poly_fillrandom - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FindBin" + c_th2poly_findbin :: + Ptr RawTH2Poly -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FindBin" c_th2poly_findbin - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FindFixBin" + c_th2poly_findfixbin :: + Ptr RawTH2Poly -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FindFixBin" c_th2poly_findfixbin - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_FindFirstBinAbove" + c_th2poly_findfirstbinabove :: + Ptr RawTH2Poly -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FindFirstBinAbove" c_th2poly_findfirstbinabove - :: (Ptr RawTH2Poly) -> CDouble -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_FindLastBinAbove" + c_th2poly_findlastbinabove :: + Ptr RawTH2Poly -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FindLastBinAbove" c_th2poly_findlastbinabove - :: (Ptr RawTH2Poly) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Fit" + c_th2poly_fit :: + Ptr RawTH2Poly -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FitPanelTH1" c_th2poly_fitpanelth1 - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FitPanelTH1" + c_th2poly_fitpanelth1 :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getNdivisionA" c_th2poly_getndivisiona - :: (Ptr RawTH2Poly) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getNdivisionA" c_th2poly_getndivisiona + :: Ptr RawTH2Poly -> CString -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getAxisColorA" c_th2poly_getaxiscolora - :: (Ptr RawTH2Poly) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getAxisColorA" c_th2poly_getaxiscolora + :: Ptr RawTH2Poly -> CString -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getLabelColorA" c_th2poly_getlabelcolora - :: (Ptr RawTH2Poly) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getLabelColorA" + c_th2poly_getlabelcolora :: Ptr RawTH2Poly -> CString -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getLabelFontA" c_th2poly_getlabelfonta - :: (Ptr RawTH2Poly) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getLabelFontA" c_th2poly_getlabelfonta + :: Ptr RawTH2Poly -> CString -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getLabelOffsetA" c_th2poly_getlabeloffseta - :: (Ptr RawTH2Poly) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getLabelOffsetA" + c_th2poly_getlabeloffseta :: + Ptr RawTH2Poly -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getLabelSizeA" c_th2poly_getlabelsizea - :: (Ptr RawTH2Poly) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getLabelSizeA" c_th2poly_getlabelsizea + :: Ptr RawTH2Poly -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getTitleFontA" c_th2poly_gettitlefonta - :: (Ptr RawTH2Poly) -> CString -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getTitleFontA" c_th2poly_gettitlefonta + :: Ptr RawTH2Poly -> CString -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getTitleOffsetA" c_th2poly_gettitleoffseta - :: (Ptr RawTH2Poly) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getTitleOffsetA" + c_th2poly_gettitleoffseta :: + Ptr RawTH2Poly -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getTitleSizeA" c_th2poly_gettitlesizea - :: (Ptr RawTH2Poly) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getTitleSizeA" c_th2poly_gettitlesizea + :: Ptr RawTH2Poly -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getTickLengthA" c_th2poly_getticklengtha - :: (Ptr RawTH2Poly) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getTickLengthA" + c_th2poly_getticklengtha :: Ptr RawTH2Poly -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBarOffset" c_th2poly_getbaroffset - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBarOffset" + c_th2poly_getbaroffset :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBarWidth" c_th2poly_getbarwidth - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBarWidth" + c_th2poly_getbarwidth :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetContour" c_th2poly_getcontour - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetContour" + c_th2poly_getcontour :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetContourLevel" c_th2poly_getcontourlevel - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetContourLevel" + c_th2poly_getcontourlevel :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetContourLevelPad" c_th2poly_getcontourlevelpad - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetContourLevelPad" + c_th2poly_getcontourlevelpad :: + Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBin" c_th2poly_getbin - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBin" + c_th2poly_getbin :: + Ptr RawTH2Poly -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinCenter" c_th2poly_getbincenter - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBinCenter" + c_th2poly_getbincenter :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinContent1" c_th2poly_getbincontent1 - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetBinContent1" + c_th2poly_getbincontent1 :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinContent2" c_th2poly_getbincontent2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetBinContent2" + c_th2poly_getbincontent2 :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinContent3" c_th2poly_getbincontent3 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetBinContent3" + c_th2poly_getbincontent3 :: + Ptr RawTH2Poly -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinError1" c_th2poly_getbinerror1 - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBinError1" + c_th2poly_getbinerror1 :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinError2" c_th2poly_getbinerror2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBinError2" + c_th2poly_getbinerror2 :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinError3" c_th2poly_getbinerror3 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBinError3" + c_th2poly_getbinerror3 :: + Ptr RawTH2Poly -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinLowEdge" c_th2poly_getbinlowedge - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetBinLowEdge" c_th2poly_getbinlowedge + :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetBinWidth" c_th2poly_getbinwidth - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetBinWidth" + c_th2poly_getbinwidth :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetCellContent" c_th2poly_getcellcontent - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetCellContent" + c_th2poly_getcellcontent :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetCellError" c_th2poly_getcellerror - :: (Ptr RawTH2Poly) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetCellError" + c_th2poly_getcellerror :: + Ptr RawTH2Poly -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetEntries" c_th2poly_getentries - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetEntries" + c_th2poly_getentries :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetEffectiveEntries" c_th2poly_geteffectiveentries - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetEffectiveEntries" + c_th2poly_geteffectiveentries :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetFunction" c_th2poly_getfunction - :: (Ptr RawTH2Poly) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetFunction" + c_th2poly_getfunction :: + Ptr RawTH2Poly -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetDimension" c_th2poly_getdimension - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetDimension" + c_th2poly_getdimension :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetKurtosis" c_th2poly_getkurtosis - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetKurtosis" + c_th2poly_getkurtosis :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetLowEdge" c_th2poly_getlowedge - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetLowEdge" + c_th2poly_getlowedge :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getMaximumTH1" c_th2poly_getmaximumth1 - :: (Ptr RawTH2Poly) -> CDouble -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getMaximumTH1" c_th2poly_getmaximumth1 + :: Ptr RawTH2Poly -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMaximumBin" c_th2poly_getmaximumbin - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMaximumBin" c_th2poly_getmaximumbin + :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMaximumStored" c_th2poly_getmaximumstored - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMaximumStored" + c_th2poly_getmaximumstored :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getMinimumTH1" c_th2poly_getminimumth1 - :: (Ptr RawTH2Poly) -> CDouble -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getMinimumTH1" c_th2poly_getminimumth1 + :: Ptr RawTH2Poly -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMinimumBin" c_th2poly_getminimumbin - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMinimumBin" c_th2poly_getminimumbin + :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMinimumStored" c_th2poly_getminimumstored - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMinimumStored" + c_th2poly_getminimumstored :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMean" c_th2poly_getmean - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetMean" + c_th2poly_getmean :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMeanError" c_th2poly_getmeanerror - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetMeanError" + c_th2poly_getmeanerror :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetNbinsX" c_th2poly_getnbinsx - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetNbinsX" + c_th2poly_getnbinsx :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetNbinsY" c_th2poly_getnbinsy - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetNbinsY" + c_th2poly_getnbinsy :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetNbinsZ" c_th2poly_getnbinsz - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetNbinsZ" + c_th2poly_getnbinsz :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_getQuantilesTH1" c_th2poly_getquantilesth1 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_getQuantilesTH1" + c_th2poly_getquantilesth1 :: + Ptr RawTH2Poly -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetRandom" c_th2poly_getrandom - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetRandom" + c_th2poly_getrandom :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetStats" c_th2poly_getstats - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetStats" + c_th2poly_getstats :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetSumOfWeights" c_th2poly_getsumofweights - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetSumOfWeights" + c_th2poly_getsumofweights :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetSumw2" c_th2poly_getsumw2 - :: (Ptr RawTH2Poly) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetSumw2" + c_th2poly_getsumw2 :: Ptr RawTH2Poly -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetSumw2N" c_th2poly_getsumw2n - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetSumw2N" + c_th2poly_getsumw2n :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetRMS" c_th2poly_getrms - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetRMS" + c_th2poly_getrms :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetRMSError" c_th2poly_getrmserror - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetRMSError" + c_th2poly_getrmserror :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetSkewness" c_th2poly_getskewness - :: (Ptr RawTH2Poly) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetSkewness" + c_th2poly_getskewness :: Ptr RawTH2Poly -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_integral1" c_th2poly_integral1 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_integral1" + c_th2poly_integral1 :: + Ptr RawTH2Poly -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_interpolate1" c_th2poly_interpolate1 - :: (Ptr RawTH2Poly) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_interpolate1" + c_th2poly_interpolate1 :: Ptr RawTH2Poly -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_interpolate2" c_th2poly_interpolate2 - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_interpolate2" + c_th2poly_interpolate2 :: + Ptr RawTH2Poly -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_interpolate3" c_th2poly_interpolate3 - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_interpolate3" + c_th2poly_interpolate3 :: + Ptr RawTH2Poly -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_KolmogorovTest" c_th2poly_kolmogorovtest - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_KolmogorovTest" + c_th2poly_kolmogorovtest :: + Ptr RawTH2Poly -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_LabelsDeflate" c_th2poly_labelsdeflate - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_LabelsDeflate" c_th2poly_labelsdeflate + :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_LabelsInflate" c_th2poly_labelsinflate - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_LabelsInflate" c_th2poly_labelsinflate + :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_LabelsOption" c_th2poly_labelsoption - :: (Ptr RawTH2Poly) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_LabelsOption" + c_th2poly_labelsoption :: + Ptr RawTH2Poly -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_multiflyF" c_th2poly_multiflyf - :: (Ptr RawTH2Poly) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_multiflyF" + c_th2poly_multiflyf :: + Ptr RawTH2Poly -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Multiply" c_th2poly_multiply - :: (Ptr RawTH2Poly) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Multiply" + c_th2poly_multiply :: + Ptr RawTH2Poly -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_PutStats" c_th2poly_putstats - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_PutStats" + c_th2poly_putstats :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Rebin" c_th2poly_rebin - :: (Ptr RawTH2Poly) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Rebin" + c_th2poly_rebin :: + Ptr RawTH2Poly -> + CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_RebinAxis" c_th2poly_rebinaxis - :: (Ptr RawTH2Poly) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_RebinAxis" + c_th2poly_rebinaxis :: + Ptr RawTH2Poly -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Rebuild" c_th2poly_rebuild - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Rebuild" + c_th2poly_rebuild :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_RecursiveRemove" c_th2poly_recursiveremove - :: (Ptr RawTH2Poly) -> (Ptr RawTObject) -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_RecursiveRemove" + c_th2poly_recursiveremove :: + Ptr RawTH2Poly -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Reset" c_th2poly_reset - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Reset" + c_th2poly_reset :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ResetStats" c_th2poly_resetstats - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_ResetStats" + c_th2poly_resetstats :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Scale" c_th2poly_scale - :: (Ptr RawTH2Poly) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Scale" + c_th2poly_scale :: Ptr RawTH2Poly -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setAxisColorA" c_th2poly_setaxiscolora - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setAxisColorA" c_th2poly_setaxiscolora + :: Ptr RawTH2Poly -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetAxisRange" c_th2poly_setaxisrange - :: (Ptr RawTH2Poly) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetAxisRange" + c_th2poly_setaxisrange :: + Ptr RawTH2Poly -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetBarOffset" c_th2poly_setbaroffset - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetBarOffset" + c_th2poly_setbaroffset :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetBarWidth" c_th2poly_setbarwidth - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetBarWidth" + c_th2poly_setbarwidth :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinContent1" c_th2poly_setbincontent1 - :: (Ptr RawTH2Poly) -> CInt -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setBinContent1" + c_th2poly_setbincontent1 :: + Ptr RawTH2Poly -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinContent2" c_th2poly_setbincontent2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setBinContent2" + c_th2poly_setbincontent2 :: + Ptr RawTH2Poly -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinContent3" c_th2poly_setbincontent3 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setBinContent3" + c_th2poly_setbincontent3 :: + Ptr RawTH2Poly -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinError1" c_th2poly_setbinerror1 - :: (Ptr RawTH2Poly) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBinError1" + c_th2poly_setbinerror1 :: + Ptr RawTH2Poly -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinError2" c_th2poly_setbinerror2 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBinError2" + c_th2poly_setbinerror2 :: + Ptr RawTH2Poly -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBinError3" c_th2poly_setbinerror3 - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBinError3" + c_th2poly_setbinerror3 :: + Ptr RawTH2Poly -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBins1" c_th2poly_setbins1 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBins1" + c_th2poly_setbins1 :: + Ptr RawTH2Poly -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBins2" c_th2poly_setbins2 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBins2" + c_th2poly_setbins2 :: + Ptr RawTH2Poly -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setBins3" c_th2poly_setbins3 - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_setBins3" + c_th2poly_setbins3 :: + Ptr RawTH2Poly -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetBinsLength" c_th2poly_setbinslength - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetBinsLength" c_th2poly_setbinslength + :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetBuffer" c_th2poly_setbuffer - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetBuffer" + c_th2poly_setbuffer :: Ptr RawTH2Poly -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetCellContent" c_th2poly_setcellcontent - :: (Ptr RawTH2Poly) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetCellContent" + c_th2poly_setcellcontent :: + Ptr RawTH2Poly -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetContent" c_th2poly_setcontent - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetContent" + c_th2poly_setcontent :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetContour" c_th2poly_setcontour - :: (Ptr RawTH2Poly) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetContour" + c_th2poly_setcontour :: + Ptr RawTH2Poly -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetContourLevel" c_th2poly_setcontourlevel - :: (Ptr RawTH2Poly) -> CInt -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetContourLevel" + c_th2poly_setcontourlevel :: + Ptr RawTH2Poly -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetDirectory" c_th2poly_setdirectory - :: (Ptr RawTH2Poly) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetDirectory" + c_th2poly_setdirectory :: + Ptr RawTH2Poly -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetEntries" c_th2poly_setentries - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetEntries" + c_th2poly_setentries :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetError" c_th2poly_seterror - :: (Ptr RawTH2Poly) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetError" + c_th2poly_seterror :: Ptr RawTH2Poly -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setLabelColorA" c_th2poly_setlabelcolora - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setLabelColorA" + c_th2poly_setlabelcolora :: + Ptr RawTH2Poly -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setLabelSizeA" c_th2poly_setlabelsizea - :: (Ptr RawTH2Poly) -> CDouble -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setLabelSizeA" c_th2poly_setlabelsizea + :: Ptr RawTH2Poly -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setLabelFontA" c_th2poly_setlabelfonta - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setLabelFontA" c_th2poly_setlabelfonta + :: Ptr RawTH2Poly -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_setLabelOffsetA" c_th2poly_setlabeloffseta - :: (Ptr RawTH2Poly) -> CDouble -> CString -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_setLabelOffsetA" + c_th2poly_setlabeloffseta :: + Ptr RawTH2Poly -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMaximum" c_th2poly_setmaximum - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetMaximum" + c_th2poly_setmaximum :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMinimum" c_th2poly_setminimum - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetMinimum" + c_th2poly_setminimum :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetNormFactor" c_th2poly_setnormfactor - :: (Ptr RawTH2Poly) -> CDouble -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetNormFactor" c_th2poly_setnormfactor + :: Ptr RawTH2Poly -> CDouble -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetStats" c_th2poly_setstats - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetStats" + c_th2poly_setstats :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetOption" c_th2poly_setoption - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetOption" + c_th2poly_setoption :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetXTitle" c_th2poly_setxtitle - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetXTitle" + c_th2poly_setxtitle :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetYTitle" c_th2poly_setytitle - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetYTitle" + c_th2poly_setytitle :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetZTitle" c_th2poly_setztitle - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetZTitle" + c_th2poly_setztitle :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ShowBackground" c_th2poly_showbackground - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_ShowBackground" + c_th2poly_showbackground :: + Ptr RawTH2Poly -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ShowPeaks" c_th2poly_showpeaks - :: (Ptr RawTH2Poly) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_ShowPeaks" + c_th2poly_showpeaks :: + Ptr RawTH2Poly -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Smooth" c_th2poly_smooth - :: (Ptr RawTH2Poly) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Smooth" + c_th2poly_smooth :: Ptr RawTH2Poly -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Sumw2" c_th2poly_sumw2 - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Sumw2" + c_th2poly_sumw2 :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Draw" c_th2poly_draw - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetName" + c_th2poly_setname :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_FindObject" c_th2poly_findobject - :: (Ptr RawTH2Poly) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetNameTitle" + c_th2poly_setnametitle :: + Ptr RawTH2Poly -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetName" c_th2poly_getname - :: (Ptr RawTH2Poly) -> IO CString +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetTitle" + c_th2poly_settitle :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_IsA" c_th2poly_isa - :: (Ptr RawTH2Poly) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetLineColor" + c_th2poly_getlinecolor :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Paint" c_th2poly_paint - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetLineStyle" + c_th2poly_getlinestyle :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_printObj" c_th2poly_printobj - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetLineWidth" + c_th2poly_getlinewidth :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SaveAs" c_th2poly_saveas - :: (Ptr RawTH2Poly) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_ResetAttLine" + c_th2poly_resetattline :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_Write" c_th2poly_write - :: (Ptr RawTH2Poly) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetLineAttributes" + c_th2poly_setlineattributes :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetLineColor" c_th2poly_getlinecolor - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetLineColor" + c_th2poly_setlinecolor :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetLineStyle" c_th2poly_getlinestyle - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetLineStyle" + c_th2poly_setlinestyle :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetLineWidth" c_th2poly_getlinewidth - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetLineWidth" + c_th2poly_setlinewidth :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ResetAttLine" c_th2poly_resetattline - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetFillColor" + c_th2poly_setfillcolor :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetLineAttributes" c_th2poly_setlineattributes - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SetFillStyle" + c_th2poly_setfillstyle :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetLineColor" c_th2poly_setlinecolor - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMarkerColor" + c_th2poly_getmarkercolor :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetLineStyle" c_th2poly_setlinestyle - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMarkerStyle" + c_th2poly_getmarkerstyle :: Ptr RawTH2Poly -> IO CInt -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetLineWidth" c_th2poly_setlinewidth - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_GetMarkerSize" c_th2poly_getmarkersize + :: Ptr RawTH2Poly -> IO CDouble -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetFillColor" c_th2poly_setfillcolor - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_ResetAttMarker" + c_th2poly_resetattmarker :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetFillStyle" c_th2poly_setfillstyle - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetMarkerAttributes" + c_th2poly_setmarkerattributes :: Ptr RawTH2Poly -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMarkerColor" c_th2poly_getmarkercolor - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetMarkerColor" + c_th2poly_setmarkercolor :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMarkerStyle" c_th2poly_getmarkerstyle - :: (Ptr RawTH2Poly) -> IO CInt +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetMarkerStyle" + c_th2poly_setmarkerstyle :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_GetMarkerSize" c_th2poly_getmarkersize - :: (Ptr RawTH2Poly) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2Poly.h TH2Poly_SetMarkerSize" c_th2poly_setmarkersize + :: Ptr RawTH2Poly -> CInt -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_ResetAttMarker" c_th2poly_resetattmarker - :: (Ptr RawTH2Poly) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Draw" + c_th2poly_draw :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMarkerAttributes" c_th2poly_setmarkerattributes - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_FindObject" + c_th2poly_findobject :: + Ptr RawTH2Poly -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMarkerColor" c_th2poly_setmarkercolor - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_GetName" + c_th2poly_getname :: Ptr RawTH2Poly -> IO CString -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMarkerStyle" c_th2poly_setmarkerstyle - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_IsA" + c_th2poly_isa :: Ptr RawTH2Poly -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_SetMarkerSize" c_th2poly_setmarkersize - :: (Ptr RawTH2Poly) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Paint" + c_th2poly_paint :: Ptr RawTH2Poly -> CString -> IO () -foreign import ccall "HROOTHistTH2Poly.h TH2Poly_delete" c_th2poly_delete - :: (Ptr RawTH2Poly) -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_printObj" + c_th2poly_printobj :: Ptr RawTH2Poly -> CString -> IO () +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_SaveAs" + c_th2poly_saveas :: Ptr RawTH2Poly -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_Write" + c_th2poly_write :: + Ptr RawTH2Poly -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2Poly.h TH2Poly_delete" + c_th2poly_delete :: Ptr RawTH2Poly -> IO () diff --git a/src/HROOT/Hist/TH2Poly/Implementation.hs b/src/HROOT/Hist/TH2Poly/Implementation.hs --- a/src/HROOT/Hist/TH2Poly/Implementation.hs +++ b/src/HROOT/Hist/TH2Poly/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2Poly.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2Poly.RawType import HROOT.Hist.TH2Poly.FFI import HROOT.Hist.TH2Poly.Interface @@ -38,9 +39,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -50,390 +51,204 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2Poly TH2Poly -instance ITH2Poly TH2Poly where instance ITH2 TH2Poly where - fill2 = xform2 c_th2poly_fill2 - fill2w = xform3 c_th2poly_fill2w - fillN2 = xform5 c_th2poly_filln2 - fillRandom2 = xform2 c_th2poly_fillrandom2 - findFirstBinAbove2 = xform2 c_th2poly_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2poly_findlastbinabove2 - fitSlicesX = xform6 c_th2poly_fitslicesx - fitSlicesY = xform6 c_th2poly_fitslicesy - getCorrelationFactor2 = xform2 c_th2poly_getcorrelationfactor2 - getCovariance2 = xform2 c_th2poly_getcovariance2 - integral2 = xform5 c_th2poly_integral2 - rebinX2 = xform2 c_th2poly_rebinx2 - rebinY2 = xform2 c_th2poly_rebiny2 - rebin2D = xform3 c_th2poly_rebin2d - setShowProjectionX = xform1 c_th2poly_setshowprojectionx - setShowProjectionY = xform1 c_th2poly_setshowprojectiony -instance ITH1 TH2Poly where - add = xform2 c_th2poly_add - addBinContent = xform2 c_th2poly_addbincontent - chi2Test = xform3 c_th2poly_chi2test - computeIntegral = xform0 c_th2poly_computeintegral - directoryAutoAdd = xform1 c_th2poly_directoryautoadd - divide = xform5 c_th2poly_divide - drawCopyTH1 = xform1 c_th2poly_drawcopyth1 - drawNormalized = xform2 c_th2poly_drawnormalized - drawPanelTH1 = xform0 c_th2poly_drawpanelth1 - bufferEmpty = xform1 c_th2poly_bufferempty - evalF = xform2 c_th2poly_evalf - fFT = xform2 c_th2poly_fft - fill1 = xform1 c_th2poly_fill1 - fill1w = xform2 c_th2poly_fill1w - fillN1 = xform4 c_th2poly_filln1 - fillRandom = xform2 c_th2poly_fillrandom - findBin = xform3 c_th2poly_findbin - findFixBin = xform3 c_th2poly_findfixbin - findFirstBinAbove = xform2 c_th2poly_findfirstbinabove - findLastBinAbove = xform2 c_th2poly_findlastbinabove - fitPanelTH1 = xform0 c_th2poly_fitpanelth1 - getNdivisionA = xform1 c_th2poly_getndivisiona - getAxisColorA = xform1 c_th2poly_getaxiscolora - getLabelColorA = xform1 c_th2poly_getlabelcolora - getLabelFontA = xform1 c_th2poly_getlabelfonta - getLabelOffsetA = xform1 c_th2poly_getlabeloffseta - getLabelSizeA = xform1 c_th2poly_getlabelsizea - getTitleFontA = xform1 c_th2poly_gettitlefonta - getTitleOffsetA = xform1 c_th2poly_gettitleoffseta - getTitleSizeA = xform1 c_th2poly_gettitlesizea - getTickLengthA = xform1 c_th2poly_getticklengtha - getBarOffset = xform0 c_th2poly_getbaroffset - getBarWidth = xform0 c_th2poly_getbarwidth - getContour = xform1 c_th2poly_getcontour - getContourLevel = xform1 c_th2poly_getcontourlevel - getContourLevelPad = xform1 c_th2poly_getcontourlevelpad - getBin = xform3 c_th2poly_getbin - getBinCenter = xform1 c_th2poly_getbincenter - getBinContent1 = xform1 c_th2poly_getbincontent1 - getBinContent2 = xform2 c_th2poly_getbincontent2 - getBinContent3 = xform3 c_th2poly_getbincontent3 - getBinError1 = xform1 c_th2poly_getbinerror1 - getBinError2 = xform2 c_th2poly_getbinerror2 - getBinError3 = xform3 c_th2poly_getbinerror3 - getBinLowEdge = xform1 c_th2poly_getbinlowedge - getBinWidth = xform1 c_th2poly_getbinwidth - getCellContent = xform2 c_th2poly_getcellcontent - getCellError = xform2 c_th2poly_getcellerror - getEntries = xform0 c_th2poly_getentries - getEffectiveEntries = xform0 c_th2poly_geteffectiveentries - getFunction = xform1 c_th2poly_getfunction - getDimension = xform0 c_th2poly_getdimension - getKurtosis = xform1 c_th2poly_getkurtosis - getLowEdge = xform1 c_th2poly_getlowedge - getMaximumTH1 = xform1 c_th2poly_getmaximumth1 - getMaximumBin = xform0 c_th2poly_getmaximumbin - getMaximumStored = xform0 c_th2poly_getmaximumstored - getMinimumTH1 = xform1 c_th2poly_getminimumth1 - getMinimumBin = xform0 c_th2poly_getminimumbin - getMinimumStored = xform0 c_th2poly_getminimumstored - getMean = xform1 c_th2poly_getmean - getMeanError = xform1 c_th2poly_getmeanerror - getNbinsX = xform0 c_th2poly_getnbinsx - getNbinsY = xform0 c_th2poly_getnbinsy - getNbinsZ = xform0 c_th2poly_getnbinsz - getQuantilesTH1 = xform3 c_th2poly_getquantilesth1 - getRandom = xform0 c_th2poly_getrandom - getStats = xform1 c_th2poly_getstats - getSumOfWeights = xform0 c_th2poly_getsumofweights - getSumw2 = xform0 c_th2poly_getsumw2 - getSumw2N = xform0 c_th2poly_getsumw2n - getRMS = xform1 c_th2poly_getrms - getRMSError = xform1 c_th2poly_getrmserror - getSkewness = xform1 c_th2poly_getskewness - integral1 = xform3 c_th2poly_integral1 - interpolate1 = xform1 c_th2poly_interpolate1 - interpolate2 = xform2 c_th2poly_interpolate2 - interpolate3 = xform3 c_th2poly_interpolate3 - kolmogorovTest = xform2 c_th2poly_kolmogorovtest - labelsDeflate = xform1 c_th2poly_labelsdeflate - labelsInflate = xform1 c_th2poly_labelsinflate - labelsOption = xform2 c_th2poly_labelsoption - multiflyF = xform2 c_th2poly_multiflyf - multiply = xform5 c_th2poly_multiply - putStats = xform1 c_th2poly_putstats - rebin = xform3 c_th2poly_rebin - rebinAxis = xform2 c_th2poly_rebinaxis - rebuild = xform1 c_th2poly_rebuild - recursiveRemove = xform1 c_th2poly_recursiveremove - reset = xform1 c_th2poly_reset - resetStats = xform0 c_th2poly_resetstats - scale = xform2 c_th2poly_scale - setAxisColorA = xform2 c_th2poly_setaxiscolora - setAxisRange = xform3 c_th2poly_setaxisrange - setBarOffset = xform1 c_th2poly_setbaroffset - setBarWidth = xform1 c_th2poly_setbarwidth - setBinContent1 = xform2 c_th2poly_setbincontent1 - setBinContent2 = xform3 c_th2poly_setbincontent2 - setBinContent3 = xform4 c_th2poly_setbincontent3 - setBinError1 = xform2 c_th2poly_setbinerror1 - setBinError2 = xform3 c_th2poly_setbinerror2 - setBinError3 = xform4 c_th2poly_setbinerror3 - setBins1 = xform2 c_th2poly_setbins1 - setBins2 = xform4 c_th2poly_setbins2 - setBins3 = xform6 c_th2poly_setbins3 - setBinsLength = xform1 c_th2poly_setbinslength - setBuffer = xform2 c_th2poly_setbuffer - setCellContent = xform3 c_th2poly_setcellcontent - setContent = xform1 c_th2poly_setcontent - setContour = xform2 c_th2poly_setcontour - setContourLevel = xform2 c_th2poly_setcontourlevel - setDirectory = xform1 c_th2poly_setdirectory - setEntries = xform1 c_th2poly_setentries - setError = xform1 c_th2poly_seterror - setLabelColorA = xform2 c_th2poly_setlabelcolora - setLabelSizeA = xform2 c_th2poly_setlabelsizea - setLabelFontA = xform2 c_th2poly_setlabelfonta - setLabelOffsetA = xform2 c_th2poly_setlabeloffseta - setMaximum = xform1 c_th2poly_setmaximum - setMinimum = xform1 c_th2poly_setminimum - setNormFactor = xform1 c_th2poly_setnormfactor - setStats = xform1 c_th2poly_setstats - setOption = xform1 c_th2poly_setoption - setXTitle = xform1 c_th2poly_setxtitle - setYTitle = xform1 c_th2poly_setytitle - setZTitle = xform1 c_th2poly_setztitle - showBackground = xform2 c_th2poly_showbackground - showPeaks = xform3 c_th2poly_showpeaks - smooth = xform2 c_th2poly_smooth - sumw2 = xform0 c_th2poly_sumw2 -instance ITObject TH2Poly where - draw = xform1 c_th2poly_draw - findObject = xform1 c_th2poly_findobject - getName = xform0 c_th2poly_getname - isA = xform0 c_th2poly_isa - paint = xform1 c_th2poly_paint - printObj = xform1 c_th2poly_printobj - saveAs = xform2 c_th2poly_saveas - write = xform3 c_th2poly_write -instance ITAttLine TH2Poly where - getLineColor = xform0 c_th2poly_getlinecolor - getLineStyle = xform0 c_th2poly_getlinestyle - getLineWidth = xform0 c_th2poly_getlinewidth - resetAttLine = xform1 c_th2poly_resetattline - setLineAttributes = xform0 c_th2poly_setlineattributes - setLineColor = xform1 c_th2poly_setlinecolor - setLineStyle = xform1 c_th2poly_setlinestyle - setLineWidth = xform1 c_th2poly_setlinewidth -instance ITAttFill TH2Poly where - setFillColor = xform1 c_th2poly_setfillcolor - setFillStyle = xform1 c_th2poly_setfillstyle -instance ITAttMarker TH2Poly where - getMarkerColor = xform0 c_th2poly_getmarkercolor - getMarkerStyle = xform0 c_th2poly_getmarkerstyle - getMarkerSize = xform0 c_th2poly_getmarkersize - resetAttMarker = xform1 c_th2poly_resetattmarker - setMarkerAttributes = xform0 c_th2poly_setmarkerattributes - setMarkerColor = xform1 c_th2poly_setmarkercolor - setMarkerStyle = xform1 c_th2poly_setmarkerstyle - setMarkerSize = xform1 c_th2poly_setmarkersize -instance IDeletable TH2Poly where - delete = xform0 c_th2poly_delete - -instance ITH2Poly (Exist TH2Poly) where - -instance ITH2 (Exist TH2Poly) where - fill2 (ETH2Poly x) = fill2 x - fill2w (ETH2Poly x) = fill2w x - fillN2 (ETH2Poly x) = fillN2 x - fillRandom2 (ETH2Poly x) = fillRandom2 x - findFirstBinAbove2 (ETH2Poly x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2Poly x) = findLastBinAbove2 x - fitSlicesX (ETH2Poly x) = fitSlicesX x - fitSlicesY (ETH2Poly x) = fitSlicesY x - getCorrelationFactor2 (ETH2Poly x) = getCorrelationFactor2 x - getCovariance2 (ETH2Poly x) = getCovariance2 x - integral2 (ETH2Poly x) = integral2 x - rebinX2 (ETH2Poly x) = rebinX2 x - rebinY2 (ETH2Poly x) = rebinY2 x - rebin2D (ETH2Poly x) = rebin2D x - setShowProjectionX (ETH2Poly x) = setShowProjectionX x - setShowProjectionY (ETH2Poly x) = setShowProjectionY x -instance ITH1 (Exist TH2Poly) where - add (ETH2Poly x) = add x - addBinContent (ETH2Poly x) = addBinContent x - chi2Test (ETH2Poly x) = chi2Test x - computeIntegral (ETH2Poly x) = computeIntegral x - directoryAutoAdd (ETH2Poly x) = directoryAutoAdd x - divide (ETH2Poly x) = divide x - drawCopyTH1 (ETH2Poly x) a1 = return . ETH2Poly =<< drawCopyTH1 x a1 - drawNormalized (ETH2Poly x) = drawNormalized x - drawPanelTH1 (ETH2Poly x) = drawPanelTH1 x - bufferEmpty (ETH2Poly x) = bufferEmpty x - evalF (ETH2Poly x) = evalF x - fFT (ETH2Poly x) = fFT x - fill1 (ETH2Poly x) = fill1 x - fill1w (ETH2Poly x) = fill1w x - fillN1 (ETH2Poly x) = fillN1 x - fillRandom (ETH2Poly x) = fillRandom x - findBin (ETH2Poly x) = findBin x - findFixBin (ETH2Poly x) = findFixBin x - findFirstBinAbove (ETH2Poly x) = findFirstBinAbove x - findLastBinAbove (ETH2Poly x) = findLastBinAbove x - fitPanelTH1 (ETH2Poly x) = fitPanelTH1 x - getNdivisionA (ETH2Poly x) = getNdivisionA x - getAxisColorA (ETH2Poly x) = getAxisColorA x - getLabelColorA (ETH2Poly x) = getLabelColorA x - getLabelFontA (ETH2Poly x) = getLabelFontA x - getLabelOffsetA (ETH2Poly x) = getLabelOffsetA x - getLabelSizeA (ETH2Poly x) = getLabelSizeA x - getTitleFontA (ETH2Poly x) = getTitleFontA x - getTitleOffsetA (ETH2Poly x) = getTitleOffsetA x - getTitleSizeA (ETH2Poly x) = getTitleSizeA x - getTickLengthA (ETH2Poly x) = getTickLengthA x - getBarOffset (ETH2Poly x) = getBarOffset x - getBarWidth (ETH2Poly x) = getBarWidth x - getContour (ETH2Poly x) = getContour x - getContourLevel (ETH2Poly x) = getContourLevel x - getContourLevelPad (ETH2Poly x) = getContourLevelPad x - getBin (ETH2Poly x) = getBin x - getBinCenter (ETH2Poly x) = getBinCenter x - getBinContent1 (ETH2Poly x) = getBinContent1 x - getBinContent2 (ETH2Poly x) = getBinContent2 x - getBinContent3 (ETH2Poly x) = getBinContent3 x - getBinError1 (ETH2Poly x) = getBinError1 x - getBinError2 (ETH2Poly x) = getBinError2 x - getBinError3 (ETH2Poly x) = getBinError3 x - getBinLowEdge (ETH2Poly x) = getBinLowEdge x - getBinWidth (ETH2Poly x) = getBinWidth x - getCellContent (ETH2Poly x) = getCellContent x - getCellError (ETH2Poly x) = getCellError x - getEntries (ETH2Poly x) = getEntries x - getEffectiveEntries (ETH2Poly x) = getEffectiveEntries x - getFunction (ETH2Poly x) = getFunction x - getDimension (ETH2Poly x) = getDimension x - getKurtosis (ETH2Poly x) = getKurtosis x - getLowEdge (ETH2Poly x) = getLowEdge x - getMaximumTH1 (ETH2Poly x) = getMaximumTH1 x - getMaximumBin (ETH2Poly x) = getMaximumBin x - getMaximumStored (ETH2Poly x) = getMaximumStored x - getMinimumTH1 (ETH2Poly x) = getMinimumTH1 x - getMinimumBin (ETH2Poly x) = getMinimumBin x - getMinimumStored (ETH2Poly x) = getMinimumStored x - getMean (ETH2Poly x) = getMean x - getMeanError (ETH2Poly x) = getMeanError x - getNbinsX (ETH2Poly x) = getNbinsX x - getNbinsY (ETH2Poly x) = getNbinsY x - getNbinsZ (ETH2Poly x) = getNbinsZ x - getQuantilesTH1 (ETH2Poly x) = getQuantilesTH1 x - getRandom (ETH2Poly x) = getRandom x - getStats (ETH2Poly x) = getStats x - getSumOfWeights (ETH2Poly x) = getSumOfWeights x - getSumw2 (ETH2Poly x) = getSumw2 x - getSumw2N (ETH2Poly x) = getSumw2N x - getRMS (ETH2Poly x) = getRMS x - getRMSError (ETH2Poly x) = getRMSError x - getSkewness (ETH2Poly x) = getSkewness x - integral1 (ETH2Poly x) = integral1 x - interpolate1 (ETH2Poly x) = interpolate1 x - interpolate2 (ETH2Poly x) = interpolate2 x - interpolate3 (ETH2Poly x) = interpolate3 x - kolmogorovTest (ETH2Poly x) = kolmogorovTest x - labelsDeflate (ETH2Poly x) = labelsDeflate x - labelsInflate (ETH2Poly x) = labelsInflate x - labelsOption (ETH2Poly x) = labelsOption x - multiflyF (ETH2Poly x) = multiflyF x - multiply (ETH2Poly x) = multiply x - putStats (ETH2Poly x) = putStats x - rebin (ETH2Poly x) = rebin x - rebinAxis (ETH2Poly x) = rebinAxis x - rebuild (ETH2Poly x) = rebuild x - recursiveRemove (ETH2Poly x) = recursiveRemove x - reset (ETH2Poly x) = reset x - resetStats (ETH2Poly x) = resetStats x - scale (ETH2Poly x) = scale x - setAxisColorA (ETH2Poly x) = setAxisColorA x - setAxisRange (ETH2Poly x) = setAxisRange x - setBarOffset (ETH2Poly x) = setBarOffset x - setBarWidth (ETH2Poly x) = setBarWidth x - setBinContent1 (ETH2Poly x) = setBinContent1 x - setBinContent2 (ETH2Poly x) = setBinContent2 x - setBinContent3 (ETH2Poly x) = setBinContent3 x - setBinError1 (ETH2Poly x) = setBinError1 x - setBinError2 (ETH2Poly x) = setBinError2 x - setBinError3 (ETH2Poly x) = setBinError3 x - setBins1 (ETH2Poly x) = setBins1 x - setBins2 (ETH2Poly x) = setBins2 x - setBins3 (ETH2Poly x) = setBins3 x - setBinsLength (ETH2Poly x) = setBinsLength x - setBuffer (ETH2Poly x) = setBuffer x - setCellContent (ETH2Poly x) = setCellContent x - setContent (ETH2Poly x) = setContent x - setContour (ETH2Poly x) = setContour x - setContourLevel (ETH2Poly x) = setContourLevel x - setDirectory (ETH2Poly x) = setDirectory x - setEntries (ETH2Poly x) = setEntries x - setError (ETH2Poly x) = setError x - setLabelColorA (ETH2Poly x) = setLabelColorA x - setLabelSizeA (ETH2Poly x) = setLabelSizeA x - setLabelFontA (ETH2Poly x) = setLabelFontA x - setLabelOffsetA (ETH2Poly x) = setLabelOffsetA x - setMaximum (ETH2Poly x) = setMaximum x - setMinimum (ETH2Poly x) = setMinimum x - setNormFactor (ETH2Poly x) = setNormFactor x - setStats (ETH2Poly x) = setStats x - setOption (ETH2Poly x) = setOption x - setXTitle (ETH2Poly x) = setXTitle x - setYTitle (ETH2Poly x) = setYTitle x - setZTitle (ETH2Poly x) = setZTitle x - showBackground (ETH2Poly x) = showBackground x - showPeaks (ETH2Poly x) = showPeaks x - smooth (ETH2Poly x) = smooth x - sumw2 (ETH2Poly x) = sumw2 x -instance ITObject (Exist TH2Poly) where - draw (ETH2Poly x) = draw x - findObject (ETH2Poly x) = findObject x - getName (ETH2Poly x) = getName x - isA (ETH2Poly x) = isA x - paint (ETH2Poly x) = paint x - printObj (ETH2Poly x) = printObj x - saveAs (ETH2Poly x) = saveAs x - write (ETH2Poly x) = write x -instance ITAttLine (Exist TH2Poly) where - getLineColor (ETH2Poly x) = getLineColor x - getLineStyle (ETH2Poly x) = getLineStyle x - getLineWidth (ETH2Poly x) = getLineWidth x - resetAttLine (ETH2Poly x) = resetAttLine x - setLineAttributes (ETH2Poly x) = setLineAttributes x - setLineColor (ETH2Poly x) = setLineColor x - setLineStyle (ETH2Poly x) = setLineStyle x - setLineWidth (ETH2Poly x) = setLineWidth x -instance ITAttFill (Exist TH2Poly) where - setFillColor (ETH2Poly x) = setFillColor x - setFillStyle (ETH2Poly x) = setFillStyle x -instance ITAttMarker (Exist TH2Poly) where - getMarkerColor (ETH2Poly x) = getMarkerColor x - getMarkerStyle (ETH2Poly x) = getMarkerStyle x - getMarkerSize (ETH2Poly x) = getMarkerSize x - resetAttMarker (ETH2Poly x) = resetAttMarker x - setMarkerAttributes (ETH2Poly x) = setMarkerAttributes x - setMarkerColor (ETH2Poly x) = setMarkerColor x - setMarkerStyle (ETH2Poly x) = setMarkerStyle x - setMarkerSize (ETH2Poly x) = setMarkerSize x -instance IDeletable (Exist TH2Poly) where - delete (ETH2Poly x) = delete x + fill2 = xform2 c_th2poly_fill2 + fill2w = xform3 c_th2poly_fill2w + fillN2 = xform5 c_th2poly_filln2 + fillRandom2 = xform2 c_th2poly_fillrandom2 + findFirstBinAbove2 = xform2 c_th2poly_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2poly_findlastbinabove2 + fitSlicesX = xform6 c_th2poly_fitslicesx + fitSlicesY = xform6 c_th2poly_fitslicesy + getCorrelationFactor2 = xform2 c_th2poly_getcorrelationfactor2 + getCovariance2 = xform2 c_th2poly_getcovariance2 + integral2 = xform5 c_th2poly_integral2 + rebinX2 = xform2 c_th2poly_rebinx2 + rebinY2 = xform2 c_th2poly_rebiny2 + rebin2D = xform3 c_th2poly_rebin2d + setShowProjectionX = xform1 c_th2poly_setshowprojectionx + setShowProjectionY = xform1 c_th2poly_setshowprojectiony +instance ITH1 TH2Poly where + add = xform2 c_th2poly_add + addBinContent = xform2 c_th2poly_addbincontent + chi2Test = xform3 c_th2poly_chi2test + computeIntegral = xform0 c_th2poly_computeintegral + directoryAutoAdd = xform1 c_th2poly_directoryautoadd + divide = xform5 c_th2poly_divide + drawCopyTH1 = xform1 c_th2poly_drawcopyth1 + drawNormalized = xform2 c_th2poly_drawnormalized + drawPanelTH1 = xform0 c_th2poly_drawpanelth1 + bufferEmpty = xform1 c_th2poly_bufferempty + evalF = xform2 c_th2poly_evalf + fFT = xform2 c_th2poly_fft + fill1 = xform1 c_th2poly_fill1 + fill1w = xform2 c_th2poly_fill1w + fillN1 = xform4 c_th2poly_filln1 + fillRandom = xform2 c_th2poly_fillrandom + findBin = xform3 c_th2poly_findbin + findFixBin = xform3 c_th2poly_findfixbin + findFirstBinAbove = xform2 c_th2poly_findfirstbinabove + findLastBinAbove = xform2 c_th2poly_findlastbinabove + fit = xform5 c_th2poly_fit + fitPanelTH1 = xform0 c_th2poly_fitpanelth1 + getNdivisionA = xform1 c_th2poly_getndivisiona + getAxisColorA = xform1 c_th2poly_getaxiscolora + getLabelColorA = xform1 c_th2poly_getlabelcolora + getLabelFontA = xform1 c_th2poly_getlabelfonta + getLabelOffsetA = xform1 c_th2poly_getlabeloffseta + getLabelSizeA = xform1 c_th2poly_getlabelsizea + getTitleFontA = xform1 c_th2poly_gettitlefonta + getTitleOffsetA = xform1 c_th2poly_gettitleoffseta + getTitleSizeA = xform1 c_th2poly_gettitlesizea + getTickLengthA = xform1 c_th2poly_getticklengtha + getBarOffset = xform0 c_th2poly_getbaroffset + getBarWidth = xform0 c_th2poly_getbarwidth + getContour = xform1 c_th2poly_getcontour + getContourLevel = xform1 c_th2poly_getcontourlevel + getContourLevelPad = xform1 c_th2poly_getcontourlevelpad + getBin = xform3 c_th2poly_getbin + getBinCenter = xform1 c_th2poly_getbincenter + getBinContent1 = xform1 c_th2poly_getbincontent1 + getBinContent2 = xform2 c_th2poly_getbincontent2 + getBinContent3 = xform3 c_th2poly_getbincontent3 + getBinError1 = xform1 c_th2poly_getbinerror1 + getBinError2 = xform2 c_th2poly_getbinerror2 + getBinError3 = xform3 c_th2poly_getbinerror3 + getBinLowEdge = xform1 c_th2poly_getbinlowedge + getBinWidth = xform1 c_th2poly_getbinwidth + getCellContent = xform2 c_th2poly_getcellcontent + getCellError = xform2 c_th2poly_getcellerror + getEntries = xform0 c_th2poly_getentries + getEffectiveEntries = xform0 c_th2poly_geteffectiveentries + getFunction = xform1 c_th2poly_getfunction + getDimension = xform0 c_th2poly_getdimension + getKurtosis = xform1 c_th2poly_getkurtosis + getLowEdge = xform1 c_th2poly_getlowedge + getMaximumTH1 = xform1 c_th2poly_getmaximumth1 + getMaximumBin = xform0 c_th2poly_getmaximumbin + getMaximumStored = xform0 c_th2poly_getmaximumstored + getMinimumTH1 = xform1 c_th2poly_getminimumth1 + getMinimumBin = xform0 c_th2poly_getminimumbin + getMinimumStored = xform0 c_th2poly_getminimumstored + getMean = xform1 c_th2poly_getmean + getMeanError = xform1 c_th2poly_getmeanerror + getNbinsX = xform0 c_th2poly_getnbinsx + getNbinsY = xform0 c_th2poly_getnbinsy + getNbinsZ = xform0 c_th2poly_getnbinsz + getQuantilesTH1 = xform3 c_th2poly_getquantilesth1 + getRandom = xform0 c_th2poly_getrandom + getStats = xform1 c_th2poly_getstats + getSumOfWeights = xform0 c_th2poly_getsumofweights + getSumw2 = xform0 c_th2poly_getsumw2 + getSumw2N = xform0 c_th2poly_getsumw2n + getRMS = xform1 c_th2poly_getrms + getRMSError = xform1 c_th2poly_getrmserror + getSkewness = xform1 c_th2poly_getskewness + integral1 = xform3 c_th2poly_integral1 + interpolate1 = xform1 c_th2poly_interpolate1 + interpolate2 = xform2 c_th2poly_interpolate2 + interpolate3 = xform3 c_th2poly_interpolate3 + kolmogorovTest = xform2 c_th2poly_kolmogorovtest + labelsDeflate = xform1 c_th2poly_labelsdeflate + labelsInflate = xform1 c_th2poly_labelsinflate + labelsOption = xform2 c_th2poly_labelsoption + multiflyF = xform2 c_th2poly_multiflyf + multiply = xform5 c_th2poly_multiply + putStats = xform1 c_th2poly_putstats + rebin = xform3 c_th2poly_rebin + rebinAxis = xform2 c_th2poly_rebinaxis + rebuild = xform1 c_th2poly_rebuild + recursiveRemove = xform1 c_th2poly_recursiveremove + reset = xform1 c_th2poly_reset + resetStats = xform0 c_th2poly_resetstats + scale = xform2 c_th2poly_scale + setAxisColorA = xform2 c_th2poly_setaxiscolora + setAxisRange = xform3 c_th2poly_setaxisrange + setBarOffset = xform1 c_th2poly_setbaroffset + setBarWidth = xform1 c_th2poly_setbarwidth + setBinContent1 = xform2 c_th2poly_setbincontent1 + setBinContent2 = xform3 c_th2poly_setbincontent2 + setBinContent3 = xform4 c_th2poly_setbincontent3 + setBinError1 = xform2 c_th2poly_setbinerror1 + setBinError2 = xform3 c_th2poly_setbinerror2 + setBinError3 = xform4 c_th2poly_setbinerror3 + setBins1 = xform2 c_th2poly_setbins1 + setBins2 = xform4 c_th2poly_setbins2 + setBins3 = xform6 c_th2poly_setbins3 + setBinsLength = xform1 c_th2poly_setbinslength + setBuffer = xform2 c_th2poly_setbuffer + setCellContent = xform3 c_th2poly_setcellcontent + setContent = xform1 c_th2poly_setcontent + setContour = xform2 c_th2poly_setcontour + setContourLevel = xform2 c_th2poly_setcontourlevel + setDirectory = xform1 c_th2poly_setdirectory + setEntries = xform1 c_th2poly_setentries + setError = xform1 c_th2poly_seterror + setLabelColorA = xform2 c_th2poly_setlabelcolora + setLabelSizeA = xform2 c_th2poly_setlabelsizea + setLabelFontA = xform2 c_th2poly_setlabelfonta + setLabelOffsetA = xform2 c_th2poly_setlabeloffseta + setMaximum = xform1 c_th2poly_setmaximum + setMinimum = xform1 c_th2poly_setminimum + setNormFactor = xform1 c_th2poly_setnormfactor + setStats = xform1 c_th2poly_setstats + setOption = xform1 c_th2poly_setoption + setXTitle = xform1 c_th2poly_setxtitle + setYTitle = xform1 c_th2poly_setytitle + setZTitle = xform1 c_th2poly_setztitle + showBackground = xform2 c_th2poly_showbackground + showPeaks = xform3 c_th2poly_showpeaks + smooth = xform2 c_th2poly_smooth + sumw2 = xform0 c_th2poly_sumw2 +instance ITNamed TH2Poly where + setName = xform1 c_th2poly_setname + setNameTitle = xform2 c_th2poly_setnametitle + setTitle = xform1 c_th2poly_settitle +instance ITAttLine TH2Poly where + getLineColor = xform0 c_th2poly_getlinecolor + getLineStyle = xform0 c_th2poly_getlinestyle + getLineWidth = xform0 c_th2poly_getlinewidth + resetAttLine = xform1 c_th2poly_resetattline + setLineAttributes = xform0 c_th2poly_setlineattributes + setLineColor = xform1 c_th2poly_setlinecolor + setLineStyle = xform1 c_th2poly_setlinestyle + setLineWidth = xform1 c_th2poly_setlinewidth +instance ITAttFill TH2Poly where + setFillColor = xform1 c_th2poly_setfillcolor + setFillStyle = xform1 c_th2poly_setfillstyle +instance ITAttMarker TH2Poly where + getMarkerColor = xform0 c_th2poly_getmarkercolor + getMarkerStyle = xform0 c_th2poly_getmarkerstyle + getMarkerSize = xform0 c_th2poly_getmarkersize + resetAttMarker = xform1 c_th2poly_resetattmarker + setMarkerAttributes = xform0 c_th2poly_setmarkerattributes + setMarkerColor = xform1 c_th2poly_setmarkercolor + setMarkerStyle = xform1 c_th2poly_setmarkerstyle + setMarkerSize = xform1 c_th2poly_setmarkersize +instance ITObject TH2Poly where + draw = xform1 c_th2poly_draw + findObject = xform1 c_th2poly_findobject + getName = xform0 c_th2poly_getname + isA = xform0 c_th2poly_isa + paint = xform1 c_th2poly_paint + printObj = xform1 c_th2poly_printobj + saveAs = xform2 c_th2poly_saveas + write = xform3 c_th2poly_write -instance FPtr (Exist TH2Poly) where - type Raw (Exist TH2Poly) = RawTH2Poly - get_fptr (ETH2Poly obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2Poly (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2Poly) :: TH2Poly) +instance IDeletable TH2Poly where + delete = xform0 c_th2poly_delete diff --git a/src/HROOT/Hist/TH2Poly/Interface.hs b/src/HROOT/Hist/TH2Poly/Interface.hs --- a/src/HROOT/Hist/TH2Poly/Interface.hs +++ b/src/HROOT/Hist/TH2Poly/Interface.hs @@ -1,36 +1,25 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2Poly.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2Poly.RawType - import HROOT.Hist.TH2.Interface ----- ============ ---- - - -class (ITH2 a) => ITH2Poly a where - -instance Existable TH2Poly where - data Exist TH2Poly = forall a. (FPtr a, ITH2Poly a) => ETH2Poly a +class ITH2 a => ITH2Poly a -upcastTH2Poly :: (FPtr a, ITH2Poly a) => a -> TH2Poly -upcastTH2Poly h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2Poly = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2Poly :: forall a . (FPtr a, ITH2Poly a) => a -> TH2Poly +upcastTH2Poly h + = let fh = get_fptr h + fh2 :: Ptr RawTH2Poly = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2Poly :: (FPtr a, ITH2Poly a) => TH2Poly -> a -downcastTH2Poly h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2Poly :: forall a . (FPtr a, ITH2Poly a) => TH2Poly -> a +downcastTH2Poly h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2Poly/RawType.hs b/src/HROOT/Hist/TH2Poly/RawType.hs --- a/src/HROOT/Hist/TH2Poly/RawType.hs +++ b/src/HROOT/Hist/TH2Poly/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2Poly.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2Poly -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2Poly = TH2Poly (Ptr RawTH2Poly) + deriving (Eq, Ord, Show) -data RawTH2Poly -newtype TH2Poly = TH2Poly (ForeignPtr RawTH2Poly) deriving (Eq, Ord, Show) instance FPtr TH2Poly where - type Raw TH2Poly = RawTH2Poly - get_fptr (TH2Poly fptr) = fptr - cast_fptr_to_obj = TH2Poly + type Raw TH2Poly = RawTH2Poly + get_fptr (TH2Poly ptr) = ptr + cast_fptr_to_obj = TH2Poly diff --git a/src/HROOT/Hist/TH2S.hs b/src/HROOT/Hist/TH2S.hs --- a/src/HROOT/Hist/TH2S.hs +++ b/src/HROOT/Hist/TH2S.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH2S - ( - TH2S(..) - , ITH2S - , upcastTH2S - , downcastTH2S - - - ) where - +module HROOT.Hist.TH2S (TH2S(..), ITH2S, upcastTH2S, downcastTH2S) + where import HROOT.Hist.TH2S.RawType import HROOT.Hist.TH2S.Interface import HROOT.Hist.TH2S.Implementation - - diff --git a/src/HROOT/Hist/TH2S/Cast.hs b/src/HROOT/Hist/TH2S/Cast.hs --- a/src/HROOT/Hist/TH2S/Cast.hs +++ b/src/HROOT/Hist/TH2S/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH2S.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH2S.RawType import HROOT.Hist.TH2S.Interface instance (ITH2S a, FPtr a) => Castable a (Ptr RawTH2S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH2S (Ptr RawTH2S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH2S/FFI.hsc b/src/HROOT/Hist/TH2S/FFI.hsc --- a/src/HROOT/Hist/TH2S/FFI.hsc +++ b/src/HROOT/Hist/TH2S/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH2S.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH2S.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH2.RawType @@ -24,524 +14,589 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH2S.h" +foreign import ccall safe "HROOTHistTH2S.h TH2S_fill2" c_th2s_fill2 + :: Ptr RawTH2S -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_fill2" c_th2s_fill2 - :: (Ptr RawTH2S) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_fill2w" + c_th2s_fill2w :: + Ptr RawTH2S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_fill2w" c_th2s_fill2w - :: (Ptr RawTH2S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_fillN2" + c_th2s_filln2 :: + Ptr RawTH2S -> + CInt -> + (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_fillN2" c_th2s_filln2 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_fillRandom2" + c_th2s_fillrandom2 :: Ptr RawTH2S -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_fillRandom2" c_th2s_fillrandom2 - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_findFirstBinAbove2" + c_th2s_findfirstbinabove2 :: + Ptr RawTH2S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_findFirstBinAbove2" c_th2s_findfirstbinabove2 - :: (Ptr RawTH2S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_findLastBinAbove2" + c_th2s_findlastbinabove2 :: + Ptr RawTH2S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_findLastBinAbove2" c_th2s_findlastbinabove2 - :: (Ptr RawTH2S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_FitSlicesX" + c_th2s_fitslicesx :: + Ptr RawTH2S -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_FitSlicesX" c_th2s_fitslicesx - :: (Ptr RawTH2S) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FitSlicesY" + c_th2s_fitslicesy :: + Ptr RawTH2S -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CString -> Ptr RawTObjArray -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_FitSlicesY" c_th2s_fitslicesy - :: (Ptr RawTH2S) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CString -> (Ptr RawTObjArray) -> IO () +foreign import ccall safe + "HROOTHistTH2S.h TH2S_getCorrelationFactor2" + c_th2s_getcorrelationfactor2 :: + Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getCorrelationFactor2" c_th2s_getcorrelationfactor2 - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getCovariance2" + c_th2s_getcovariance2 :: Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getCovariance2" c_th2s_getcovariance2 - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_integral2" + c_th2s_integral2 :: + Ptr RawTH2S -> + CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_integral2" c_th2s_integral2 - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_rebinX2" + c_th2s_rebinx2 :: Ptr RawTH2S -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2S.h TH2S_rebinX2" c_th2s_rebinx2 - :: (Ptr RawTH2S) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2S.h TH2S_rebinY2" + c_th2s_rebiny2 :: Ptr RawTH2S -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2S.h TH2S_rebinY2" c_th2s_rebiny2 - :: (Ptr RawTH2S) -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2S.h TH2S_Rebin2D" + c_th2s_rebin2d :: + Ptr RawTH2S -> CInt -> CInt -> CString -> IO (Ptr RawTH2) -foreign import ccall "HROOTHistTH2S.h TH2S_Rebin2D" c_th2s_rebin2d - :: (Ptr RawTH2S) -> CInt -> CInt -> CString -> IO (Ptr RawTH2) +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetShowProjectionX" + c_th2s_setshowprojectionx :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetShowProjectionX" c_th2s_setshowprojectionx - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetShowProjectionY" + c_th2s_setshowprojectiony :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetShowProjectionY" c_th2s_setshowprojectiony - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Add" c_th2s_add :: + Ptr RawTH2S -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Add" c_th2s_add - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_AddBinContent" + c_th2s_addbincontent :: Ptr RawTH2S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_AddBinContent" c_th2s_addbincontent - :: (Ptr RawTH2S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Chi2Test" + c_th2s_chi2test :: + Ptr RawTH2S -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_Chi2Test" c_th2s_chi2test - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_ComputeIntegral" + c_th2s_computeintegral :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_ComputeIntegral" c_th2s_computeintegral - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_DirectoryAutoAdd" + c_th2s_directoryautoadd :: + Ptr RawTH2S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_DirectoryAutoAdd" c_th2s_directoryautoadd - :: (Ptr RawTH2S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Divide" + c_th2s_divide :: + Ptr RawTH2S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Divide" c_th2s_divide - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_drawCopyTH1" + c_th2s_drawcopyth1 :: Ptr RawTH2S -> CString -> IO (Ptr RawTH2S) -foreign import ccall "HROOTHistTH2S.h TH2S_drawCopyTH1" c_th2s_drawcopyth1 - :: (Ptr RawTH2S) -> CString -> IO (Ptr RawTH2S) +foreign import ccall safe "HROOTHistTH2S.h TH2S_DrawNormalized" + c_th2s_drawnormalized :: + Ptr RawTH2S -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2S.h TH2S_DrawNormalized" c_th2s_drawnormalized - :: (Ptr RawTH2S) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2S.h TH2S_drawPanelTH1" + c_th2s_drawpanelth1 :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_drawPanelTH1" c_th2s_drawpanelth1 - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_BufferEmpty" + c_th2s_bufferempty :: Ptr RawTH2S -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_BufferEmpty" c_th2s_bufferempty - :: (Ptr RawTH2S) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_evalF" c_th2s_evalf + :: Ptr RawTH2S -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_evalF" c_th2s_evalf - :: (Ptr RawTH2S) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FFT" c_th2s_fft :: + Ptr RawTH2S -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2S.h TH2S_FFT" c_th2s_fft - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2S.h TH2S_fill1" c_th2s_fill1 + :: Ptr RawTH2S -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_fill1" c_th2s_fill1 - :: (Ptr RawTH2S) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_fill1w" + c_th2s_fill1w :: Ptr RawTH2S -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_fill1w" c_th2s_fill1w - :: (Ptr RawTH2S) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_fillN1" + c_th2s_filln1 :: + Ptr RawTH2S -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_fillN1" c_th2s_filln1 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FillRandom" + c_th2s_fillrandom :: Ptr RawTH2S -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_FillRandom" c_th2s_fillrandom - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FindBin" + c_th2s_findbin :: + Ptr RawTH2S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_FindBin" c_th2s_findbin - :: (Ptr RawTH2S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_FindFixBin" + c_th2s_findfixbin :: + Ptr RawTH2S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_FindFixBin" c_th2s_findfixbin - :: (Ptr RawTH2S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_FindFirstBinAbove" + c_th2s_findfirstbinabove :: + Ptr RawTH2S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_FindFirstBinAbove" c_th2s_findfirstbinabove - :: (Ptr RawTH2S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_FindLastBinAbove" + c_th2s_findlastbinabove :: + Ptr RawTH2S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_FindLastBinAbove" c_th2s_findlastbinabove - :: (Ptr RawTH2S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_Fit" c_th2s_fit :: + Ptr RawTH2S -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_FitPanelTH1" c_th2s_fitpanelth1 - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FitPanelTH1" + c_th2s_fitpanelth1 :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_getNdivisionA" c_th2s_getndivisiona - :: (Ptr RawTH2S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getNdivisionA" + c_th2s_getndivisiona :: Ptr RawTH2S -> CString -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_getAxisColorA" c_th2s_getaxiscolora - :: (Ptr RawTH2S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getAxisColorA" + c_th2s_getaxiscolora :: Ptr RawTH2S -> CString -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_getLabelColorA" c_th2s_getlabelcolora - :: (Ptr RawTH2S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getLabelColorA" + c_th2s_getlabelcolora :: Ptr RawTH2S -> CString -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_getLabelFontA" c_th2s_getlabelfonta - :: (Ptr RawTH2S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getLabelFontA" + c_th2s_getlabelfonta :: Ptr RawTH2S -> CString -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_getLabelOffsetA" c_th2s_getlabeloffseta - :: (Ptr RawTH2S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getLabelOffsetA" + c_th2s_getlabeloffseta :: Ptr RawTH2S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getLabelSizeA" c_th2s_getlabelsizea - :: (Ptr RawTH2S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getLabelSizeA" + c_th2s_getlabelsizea :: Ptr RawTH2S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getTitleFontA" c_th2s_gettitlefonta - :: (Ptr RawTH2S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getTitleFontA" + c_th2s_gettitlefonta :: Ptr RawTH2S -> CString -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_getTitleOffsetA" c_th2s_gettitleoffseta - :: (Ptr RawTH2S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getTitleOffsetA" + c_th2s_gettitleoffseta :: Ptr RawTH2S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getTitleSizeA" c_th2s_gettitlesizea - :: (Ptr RawTH2S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getTitleSizeA" + c_th2s_gettitlesizea :: Ptr RawTH2S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getTickLengthA" c_th2s_getticklengtha - :: (Ptr RawTH2S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getTickLengthA" + c_th2s_getticklengtha :: Ptr RawTH2S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBarOffset" c_th2s_getbaroffset - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBarOffset" + c_th2s_getbaroffset :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBarWidth" c_th2s_getbarwidth - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBarWidth" + c_th2s_getbarwidth :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetContour" c_th2s_getcontour - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetContour" + c_th2s_getcontour :: Ptr RawTH2S -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetContourLevel" c_th2s_getcontourlevel - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetContourLevel" + c_th2s_getcontourlevel :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetContourLevelPad" c_th2s_getcontourlevelpad - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetContourLevelPad" + c_th2s_getcontourlevelpad :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBin" c_th2s_getbin - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBin" + c_th2s_getbin :: Ptr RawTH2S -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinCenter" c_th2s_getbincenter - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinCenter" + c_th2s_getbincenter :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinContent1" c_th2s_getbincontent1 - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinContent1" + c_th2s_getbincontent1 :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinContent2" c_th2s_getbincontent2 - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinContent2" + c_th2s_getbincontent2 :: Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinContent3" c_th2s_getbincontent3 - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinContent3" + c_th2s_getbincontent3 :: + Ptr RawTH2S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinError1" c_th2s_getbinerror1 - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinError1" + c_th2s_getbinerror1 :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinError2" c_th2s_getbinerror2 - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinError2" + c_th2s_getbinerror2 :: Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinError3" c_th2s_getbinerror3 - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinError3" + c_th2s_getbinerror3 :: + Ptr RawTH2S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinLowEdge" c_th2s_getbinlowedge - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinLowEdge" + c_th2s_getbinlowedge :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetBinWidth" c_th2s_getbinwidth - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetBinWidth" + c_th2s_getbinwidth :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetCellContent" c_th2s_getcellcontent - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetCellContent" + c_th2s_getcellcontent :: Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetCellError" c_th2s_getcellerror - :: (Ptr RawTH2S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetCellError" + c_th2s_getcellerror :: Ptr RawTH2S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetEntries" c_th2s_getentries - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetEntries" + c_th2s_getentries :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetEffectiveEntries" c_th2s_geteffectiveentries - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe + "HROOTHistTH2S.h TH2S_GetEffectiveEntries" + c_th2s_geteffectiveentries :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetFunction" c_th2s_getfunction - :: (Ptr RawTH2S) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetFunction" + c_th2s_getfunction :: Ptr RawTH2S -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH2S.h TH2S_GetDimension" c_th2s_getdimension - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetDimension" + c_th2s_getdimension :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetKurtosis" c_th2s_getkurtosis - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetKurtosis" + c_th2s_getkurtosis :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetLowEdge" c_th2s_getlowedge - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetLowEdge" + c_th2s_getlowedge :: Ptr RawTH2S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_getMaximumTH1" c_th2s_getmaximumth1 - :: (Ptr RawTH2S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getMaximumTH1" + c_th2s_getmaximumth1 :: Ptr RawTH2S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetMaximumBin" c_th2s_getmaximumbin - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMaximumBin" + c_th2s_getmaximumbin :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetMaximumStored" c_th2s_getmaximumstored - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMaximumStored" + c_th2s_getmaximumstored :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getMinimumTH1" c_th2s_getminimumth1 - :: (Ptr RawTH2S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_getMinimumTH1" + c_th2s_getminimumth1 :: Ptr RawTH2S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetMinimumBin" c_th2s_getminimumbin - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMinimumBin" + c_th2s_getminimumbin :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetMinimumStored" c_th2s_getminimumstored - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMinimumStored" + c_th2s_getminimumstored :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetMean" c_th2s_getmean - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMean" + c_th2s_getmean :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetMeanError" c_th2s_getmeanerror - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMeanError" + c_th2s_getmeanerror :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetNbinsX" c_th2s_getnbinsx - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetNbinsX" + c_th2s_getnbinsx :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetNbinsY" c_th2s_getnbinsy - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetNbinsY" + c_th2s_getnbinsy :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetNbinsZ" c_th2s_getnbinsz - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetNbinsZ" + c_th2s_getnbinsz :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_getQuantilesTH1" c_th2s_getquantilesth1 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_getQuantilesTH1" + c_th2s_getquantilesth1 :: + Ptr RawTH2S -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetRandom" c_th2s_getrandom - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetRandom" + c_th2s_getrandom :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetStats" c_th2s_getstats - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetStats" + c_th2s_getstats :: Ptr RawTH2S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetSumOfWeights" c_th2s_getsumofweights - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetSumOfWeights" + c_th2s_getsumofweights :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetSumw2" c_th2s_getsumw2 - :: (Ptr RawTH2S) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetSumw2" + c_th2s_getsumw2 :: Ptr RawTH2S -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH2S.h TH2S_GetSumw2N" c_th2s_getsumw2n - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetSumw2N" + c_th2s_getsumw2n :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_GetRMS" c_th2s_getrms - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetRMS" + c_th2s_getrms :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetRMSError" c_th2s_getrmserror - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetRMSError" + c_th2s_getrmserror :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_GetSkewness" c_th2s_getskewness - :: (Ptr RawTH2S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetSkewness" + c_th2s_getskewness :: Ptr RawTH2S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_integral1" c_th2s_integral1 - :: (Ptr RawTH2S) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_integral1" + c_th2s_integral1 :: + Ptr RawTH2S -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_interpolate1" c_th2s_interpolate1 - :: (Ptr RawTH2S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_interpolate1" + c_th2s_interpolate1 :: Ptr RawTH2S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_interpolate2" c_th2s_interpolate2 - :: (Ptr RawTH2S) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_interpolate2" + c_th2s_interpolate2 :: + Ptr RawTH2S -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_interpolate3" c_th2s_interpolate3 - :: (Ptr RawTH2S) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_interpolate3" + c_th2s_interpolate3 :: + Ptr RawTH2S -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_KolmogorovTest" c_th2s_kolmogorovtest - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_KolmogorovTest" + c_th2s_kolmogorovtest :: + Ptr RawTH2S -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_LabelsDeflate" c_th2s_labelsdeflate - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_LabelsDeflate" + c_th2s_labelsdeflate :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_LabelsInflate" c_th2s_labelsinflate - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_LabelsInflate" + c_th2s_labelsinflate :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_LabelsOption" c_th2s_labelsoption - :: (Ptr RawTH2S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_LabelsOption" + c_th2s_labelsoption :: Ptr RawTH2S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_multiflyF" c_th2s_multiflyf - :: (Ptr RawTH2S) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_multiflyF" + c_th2s_multiflyf :: Ptr RawTH2S -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Multiply" c_th2s_multiply - :: (Ptr RawTH2S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Multiply" + c_th2s_multiply :: + Ptr RawTH2S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_PutStats" c_th2s_putstats - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_PutStats" + c_th2s_putstats :: Ptr RawTH2S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Rebin" c_th2s_rebin - :: (Ptr RawTH2S) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2S.h TH2S_Rebin" c_th2s_rebin + :: + Ptr RawTH2S -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2S.h TH2S_RebinAxis" c_th2s_rebinaxis - :: (Ptr RawTH2S) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_RebinAxis" + c_th2s_rebinaxis :: Ptr RawTH2S -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Rebuild" c_th2s_rebuild - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Rebuild" + c_th2s_rebuild :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_RecursiveRemove" c_th2s_recursiveremove - :: (Ptr RawTH2S) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_RecursiveRemove" + c_th2s_recursiveremove :: Ptr RawTH2S -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Reset" c_th2s_reset - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Reset" c_th2s_reset + :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_ResetStats" c_th2s_resetstats - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_ResetStats" + c_th2s_resetstats :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Scale" c_th2s_scale - :: (Ptr RawTH2S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Scale" c_th2s_scale + :: Ptr RawTH2S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setAxisColorA" c_th2s_setaxiscolora - :: (Ptr RawTH2S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setAxisColorA" + c_th2s_setaxiscolora :: Ptr RawTH2S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetAxisRange" c_th2s_setaxisrange - :: (Ptr RawTH2S) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetAxisRange" + c_th2s_setaxisrange :: + Ptr RawTH2S -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetBarOffset" c_th2s_setbaroffset - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetBarOffset" + c_th2s_setbaroffset :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetBarWidth" c_th2s_setbarwidth - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetBarWidth" + c_th2s_setbarwidth :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinContent1" c_th2s_setbincontent1 - :: (Ptr RawTH2S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinContent1" + c_th2s_setbincontent1 :: Ptr RawTH2S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinContent2" c_th2s_setbincontent2 - :: (Ptr RawTH2S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinContent2" + c_th2s_setbincontent2 :: + Ptr RawTH2S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinContent3" c_th2s_setbincontent3 - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinContent3" + c_th2s_setbincontent3 :: + Ptr RawTH2S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinError1" c_th2s_setbinerror1 - :: (Ptr RawTH2S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinError1" + c_th2s_setbinerror1 :: Ptr RawTH2S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinError2" c_th2s_setbinerror2 - :: (Ptr RawTH2S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinError2" + c_th2s_setbinerror2 :: + Ptr RawTH2S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBinError3" c_th2s_setbinerror3 - :: (Ptr RawTH2S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBinError3" + c_th2s_setbinerror3 :: + Ptr RawTH2S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBins1" c_th2s_setbins1 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBins1" + c_th2s_setbins1 :: Ptr RawTH2S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBins2" c_th2s_setbins2 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBins2" + c_th2s_setbins2 :: + Ptr RawTH2S -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setBins3" c_th2s_setbins3 - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setBins3" + c_th2s_setbins3 :: + Ptr RawTH2S -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetBinsLength" c_th2s_setbinslength - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetBinsLength" + c_th2s_setbinslength :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetBuffer" c_th2s_setbuffer - :: (Ptr RawTH2S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetBuffer" + c_th2s_setbuffer :: Ptr RawTH2S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetCellContent" c_th2s_setcellcontent - :: (Ptr RawTH2S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetCellContent" + c_th2s_setcellcontent :: + Ptr RawTH2S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetContent" c_th2s_setcontent - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetContent" + c_th2s_setcontent :: Ptr RawTH2S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetContour" c_th2s_setcontour - :: (Ptr RawTH2S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetContour" + c_th2s_setcontour :: Ptr RawTH2S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetContourLevel" c_th2s_setcontourlevel - :: (Ptr RawTH2S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetContourLevel" + c_th2s_setcontourlevel :: Ptr RawTH2S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetDirectory" c_th2s_setdirectory - :: (Ptr RawTH2S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetDirectory" + c_th2s_setdirectory :: Ptr RawTH2S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetEntries" c_th2s_setentries - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetEntries" + c_th2s_setentries :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetError" c_th2s_seterror - :: (Ptr RawTH2S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetError" + c_th2s_seterror :: Ptr RawTH2S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setLabelColorA" c_th2s_setlabelcolora - :: (Ptr RawTH2S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setLabelColorA" + c_th2s_setlabelcolora :: Ptr RawTH2S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setLabelSizeA" c_th2s_setlabelsizea - :: (Ptr RawTH2S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setLabelSizeA" + c_th2s_setlabelsizea :: Ptr RawTH2S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setLabelFontA" c_th2s_setlabelfonta - :: (Ptr RawTH2S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setLabelFontA" + c_th2s_setlabelfonta :: Ptr RawTH2S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_setLabelOffsetA" c_th2s_setlabeloffseta - :: (Ptr RawTH2S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_setLabelOffsetA" + c_th2s_setlabeloffseta :: + Ptr RawTH2S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetMaximum" c_th2s_setmaximum - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetMaximum" + c_th2s_setmaximum :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetMinimum" c_th2s_setminimum - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetMinimum" + c_th2s_setminimum :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetNormFactor" c_th2s_setnormfactor - :: (Ptr RawTH2S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetNormFactor" + c_th2s_setnormfactor :: Ptr RawTH2S -> CDouble -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetStats" c_th2s_setstats - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetStats" + c_th2s_setstats :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetOption" c_th2s_setoption - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetOption" + c_th2s_setoption :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetXTitle" c_th2s_setxtitle - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetXTitle" + c_th2s_setxtitle :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetYTitle" c_th2s_setytitle - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetYTitle" + c_th2s_setytitle :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetZTitle" c_th2s_setztitle - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetZTitle" + c_th2s_setztitle :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_ShowBackground" c_th2s_showbackground - :: (Ptr RawTH2S) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH2S.h TH2S_ShowBackground" + c_th2s_showbackground :: + Ptr RawTH2S -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH2S.h TH2S_ShowPeaks" c_th2s_showpeaks - :: (Ptr RawTH2S) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_ShowPeaks" + c_th2s_showpeaks :: + Ptr RawTH2S -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_Smooth" c_th2s_smooth - :: (Ptr RawTH2S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Smooth" + c_th2s_smooth :: Ptr RawTH2S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Sumw2" c_th2s_sumw2 - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Sumw2" c_th2s_sumw2 + :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Draw" c_th2s_draw - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetName" + c_th2s_setname :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_FindObject" c_th2s_findobject - :: (Ptr RawTH2S) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetNameTitle" + c_th2s_setnametitle :: Ptr RawTH2S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetName" c_th2s_getname - :: (Ptr RawTH2S) -> IO CString +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetTitle" + c_th2s_settitle :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_IsA" c_th2s_isa - :: (Ptr RawTH2S) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetLineColor" + c_th2s_getlinecolor :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_Paint" c_th2s_paint - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetLineStyle" + c_th2s_getlinestyle :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_printObj" c_th2s_printobj - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetLineWidth" + c_th2s_getlinewidth :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_SaveAs" c_th2s_saveas - :: (Ptr RawTH2S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_ResetAttLine" + c_th2s_resetattline :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_Write" c_th2s_write - :: (Ptr RawTH2S) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetLineAttributes" + c_th2s_setlineattributes :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetLineColor" c_th2s_getlinecolor - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetLineColor" + c_th2s_setlinecolor :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetLineStyle" c_th2s_getlinestyle - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetLineStyle" + c_th2s_setlinestyle :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetLineWidth" c_th2s_getlinewidth - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetLineWidth" + c_th2s_setlinewidth :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_ResetAttLine" c_th2s_resetattline - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetFillColor" + c_th2s_setfillcolor :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetLineAttributes" c_th2s_setlineattributes - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetFillStyle" + c_th2s_setfillstyle :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetLineColor" c_th2s_setlinecolor - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMarkerColor" + c_th2s_getmarkercolor :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_SetLineStyle" c_th2s_setlinestyle - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMarkerStyle" + c_th2s_getmarkerstyle :: Ptr RawTH2S -> IO CInt -foreign import ccall "HROOTHistTH2S.h TH2S_SetLineWidth" c_th2s_setlinewidth - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetMarkerSize" + c_th2s_getmarkersize :: Ptr RawTH2S -> IO CDouble -foreign import ccall "HROOTHistTH2S.h TH2S_SetFillColor" c_th2s_setfillcolor - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_ResetAttMarker" + c_th2s_resetattmarker :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetFillStyle" c_th2s_setfillstyle - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH2S.h TH2S_SetMarkerAttributes" + c_th2s_setmarkerattributes :: Ptr RawTH2S -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetMarkerColor" c_th2s_getmarkercolor - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetMarkerColor" + c_th2s_setmarkercolor :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetMarkerStyle" c_th2s_getmarkerstyle - :: (Ptr RawTH2S) -> IO CInt +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetMarkerStyle" + c_th2s_setmarkerstyle :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_GetMarkerSize" c_th2s_getmarkersize - :: (Ptr RawTH2S) -> IO CDouble +foreign import ccall safe "HROOTHistTH2S.h TH2S_SetMarkerSize" + c_th2s_setmarkersize :: Ptr RawTH2S -> CInt -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_ResetAttMarker" c_th2s_resetattmarker - :: (Ptr RawTH2S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Draw" c_th2s_draw + :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_SetMarkerAttributes" c_th2s_setmarkerattributes - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_FindObject" + c_th2s_findobject :: Ptr RawTH2S -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH2S.h TH2S_SetMarkerColor" c_th2s_setmarkercolor - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_GetName" + c_th2s_getname :: Ptr RawTH2S -> IO CString -foreign import ccall "HROOTHistTH2S.h TH2S_SetMarkerStyle" c_th2s_setmarkerstyle - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_IsA" c_th2s_isa :: + Ptr RawTH2S -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH2S.h TH2S_SetMarkerSize" c_th2s_setmarkersize - :: (Ptr RawTH2S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_Paint" c_th2s_paint + :: Ptr RawTH2S -> CString -> IO () -foreign import ccall "HROOTHistTH2S.h TH2S_delete" c_th2s_delete - :: (Ptr RawTH2S) -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_printObj" + c_th2s_printobj :: Ptr RawTH2S -> CString -> IO () +foreign import ccall safe "HROOTHistTH2S.h TH2S_SaveAs" + c_th2s_saveas :: Ptr RawTH2S -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH2S.h TH2S_Write" c_th2s_write + :: Ptr RawTH2S -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH2S.h TH2S_delete" + c_th2s_delete :: Ptr RawTH2S -> IO () diff --git a/src/HROOT/Hist/TH2S/Implementation.hs b/src/HROOT/Hist/TH2S/Implementation.hs --- a/src/HROOT/Hist/TH2S/Implementation.hs +++ b/src/HROOT/Hist/TH2S/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2S.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH2S.RawType import HROOT.Hist.TH2S.FFI import HROOT.Hist.TH2S.Interface @@ -41,9 +42,9 @@ import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Cast import HROOT.Hist.TH1.Interface -import HROOT.Core.TObject.RawType -import HROOT.Core.TObject.Cast -import HROOT.Core.TObject.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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,392 +64,201 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH2S TH2S -instance ITH2S TH2S where instance ITH2 TH2S where - fill2 = xform2 c_th2s_fill2 - fill2w = xform3 c_th2s_fill2w - fillN2 = xform5 c_th2s_filln2 - fillRandom2 = xform2 c_th2s_fillrandom2 - findFirstBinAbove2 = xform2 c_th2s_findfirstbinabove2 - findLastBinAbove2 = xform2 c_th2s_findlastbinabove2 - fitSlicesX = xform6 c_th2s_fitslicesx - fitSlicesY = xform6 c_th2s_fitslicesy - getCorrelationFactor2 = xform2 c_th2s_getcorrelationfactor2 - getCovariance2 = xform2 c_th2s_getcovariance2 - integral2 = xform5 c_th2s_integral2 - rebinX2 = xform2 c_th2s_rebinx2 - rebinY2 = xform2 c_th2s_rebiny2 - rebin2D = xform3 c_th2s_rebin2d - setShowProjectionX = xform1 c_th2s_setshowprojectionx - setShowProjectionY = xform1 c_th2s_setshowprojectiony -instance ITArrayS TH2S where -instance ITH1 TH2S where - add = xform2 c_th2s_add - addBinContent = xform2 c_th2s_addbincontent - chi2Test = xform3 c_th2s_chi2test - computeIntegral = xform0 c_th2s_computeintegral - directoryAutoAdd = xform1 c_th2s_directoryautoadd - divide = xform5 c_th2s_divide - drawCopyTH1 = xform1 c_th2s_drawcopyth1 - drawNormalized = xform2 c_th2s_drawnormalized - drawPanelTH1 = xform0 c_th2s_drawpanelth1 - bufferEmpty = xform1 c_th2s_bufferempty - evalF = xform2 c_th2s_evalf - fFT = xform2 c_th2s_fft - fill1 = xform1 c_th2s_fill1 - fill1w = xform2 c_th2s_fill1w - fillN1 = xform4 c_th2s_filln1 - fillRandom = xform2 c_th2s_fillrandom - findBin = xform3 c_th2s_findbin - findFixBin = xform3 c_th2s_findfixbin - findFirstBinAbove = xform2 c_th2s_findfirstbinabove - findLastBinAbove = xform2 c_th2s_findlastbinabove - fitPanelTH1 = xform0 c_th2s_fitpanelth1 - getNdivisionA = xform1 c_th2s_getndivisiona - getAxisColorA = xform1 c_th2s_getaxiscolora - getLabelColorA = xform1 c_th2s_getlabelcolora - getLabelFontA = xform1 c_th2s_getlabelfonta - getLabelOffsetA = xform1 c_th2s_getlabeloffseta - getLabelSizeA = xform1 c_th2s_getlabelsizea - getTitleFontA = xform1 c_th2s_gettitlefonta - getTitleOffsetA = xform1 c_th2s_gettitleoffseta - getTitleSizeA = xform1 c_th2s_gettitlesizea - getTickLengthA = xform1 c_th2s_getticklengtha - getBarOffset = xform0 c_th2s_getbaroffset - getBarWidth = xform0 c_th2s_getbarwidth - getContour = xform1 c_th2s_getcontour - getContourLevel = xform1 c_th2s_getcontourlevel - getContourLevelPad = xform1 c_th2s_getcontourlevelpad - getBin = xform3 c_th2s_getbin - getBinCenter = xform1 c_th2s_getbincenter - getBinContent1 = xform1 c_th2s_getbincontent1 - getBinContent2 = xform2 c_th2s_getbincontent2 - getBinContent3 = xform3 c_th2s_getbincontent3 - getBinError1 = xform1 c_th2s_getbinerror1 - getBinError2 = xform2 c_th2s_getbinerror2 - getBinError3 = xform3 c_th2s_getbinerror3 - getBinLowEdge = xform1 c_th2s_getbinlowedge - getBinWidth = xform1 c_th2s_getbinwidth - getCellContent = xform2 c_th2s_getcellcontent - getCellError = xform2 c_th2s_getcellerror - getEntries = xform0 c_th2s_getentries - getEffectiveEntries = xform0 c_th2s_geteffectiveentries - getFunction = xform1 c_th2s_getfunction - getDimension = xform0 c_th2s_getdimension - getKurtosis = xform1 c_th2s_getkurtosis - getLowEdge = xform1 c_th2s_getlowedge - getMaximumTH1 = xform1 c_th2s_getmaximumth1 - getMaximumBin = xform0 c_th2s_getmaximumbin - getMaximumStored = xform0 c_th2s_getmaximumstored - getMinimumTH1 = xform1 c_th2s_getminimumth1 - getMinimumBin = xform0 c_th2s_getminimumbin - getMinimumStored = xform0 c_th2s_getminimumstored - getMean = xform1 c_th2s_getmean - getMeanError = xform1 c_th2s_getmeanerror - getNbinsX = xform0 c_th2s_getnbinsx - getNbinsY = xform0 c_th2s_getnbinsy - getNbinsZ = xform0 c_th2s_getnbinsz - getQuantilesTH1 = xform3 c_th2s_getquantilesth1 - getRandom = xform0 c_th2s_getrandom - getStats = xform1 c_th2s_getstats - getSumOfWeights = xform0 c_th2s_getsumofweights - getSumw2 = xform0 c_th2s_getsumw2 - getSumw2N = xform0 c_th2s_getsumw2n - getRMS = xform1 c_th2s_getrms - getRMSError = xform1 c_th2s_getrmserror - getSkewness = xform1 c_th2s_getskewness - integral1 = xform3 c_th2s_integral1 - interpolate1 = xform1 c_th2s_interpolate1 - interpolate2 = xform2 c_th2s_interpolate2 - interpolate3 = xform3 c_th2s_interpolate3 - kolmogorovTest = xform2 c_th2s_kolmogorovtest - labelsDeflate = xform1 c_th2s_labelsdeflate - labelsInflate = xform1 c_th2s_labelsinflate - labelsOption = xform2 c_th2s_labelsoption - multiflyF = xform2 c_th2s_multiflyf - multiply = xform5 c_th2s_multiply - putStats = xform1 c_th2s_putstats - rebin = xform3 c_th2s_rebin - rebinAxis = xform2 c_th2s_rebinaxis - rebuild = xform1 c_th2s_rebuild - recursiveRemove = xform1 c_th2s_recursiveremove - reset = xform1 c_th2s_reset - resetStats = xform0 c_th2s_resetstats - scale = xform2 c_th2s_scale - setAxisColorA = xform2 c_th2s_setaxiscolora - setAxisRange = xform3 c_th2s_setaxisrange - setBarOffset = xform1 c_th2s_setbaroffset - setBarWidth = xform1 c_th2s_setbarwidth - setBinContent1 = xform2 c_th2s_setbincontent1 - setBinContent2 = xform3 c_th2s_setbincontent2 - setBinContent3 = xform4 c_th2s_setbincontent3 - setBinError1 = xform2 c_th2s_setbinerror1 - setBinError2 = xform3 c_th2s_setbinerror2 - setBinError3 = xform4 c_th2s_setbinerror3 - setBins1 = xform2 c_th2s_setbins1 - setBins2 = xform4 c_th2s_setbins2 - setBins3 = xform6 c_th2s_setbins3 - setBinsLength = xform1 c_th2s_setbinslength - setBuffer = xform2 c_th2s_setbuffer - setCellContent = xform3 c_th2s_setcellcontent - setContent = xform1 c_th2s_setcontent - setContour = xform2 c_th2s_setcontour - setContourLevel = xform2 c_th2s_setcontourlevel - setDirectory = xform1 c_th2s_setdirectory - setEntries = xform1 c_th2s_setentries - setError = xform1 c_th2s_seterror - setLabelColorA = xform2 c_th2s_setlabelcolora - setLabelSizeA = xform2 c_th2s_setlabelsizea - setLabelFontA = xform2 c_th2s_setlabelfonta - setLabelOffsetA = xform2 c_th2s_setlabeloffseta - setMaximum = xform1 c_th2s_setmaximum - setMinimum = xform1 c_th2s_setminimum - setNormFactor = xform1 c_th2s_setnormfactor - setStats = xform1 c_th2s_setstats - setOption = xform1 c_th2s_setoption - setXTitle = xform1 c_th2s_setxtitle - setYTitle = xform1 c_th2s_setytitle - setZTitle = xform1 c_th2s_setztitle - showBackground = xform2 c_th2s_showbackground - showPeaks = xform3 c_th2s_showpeaks - smooth = xform2 c_th2s_smooth - sumw2 = xform0 c_th2s_sumw2 -instance ITObject TH2S where - draw = xform1 c_th2s_draw - findObject = xform1 c_th2s_findobject - getName = xform0 c_th2s_getname - isA = xform0 c_th2s_isa - paint = xform1 c_th2s_paint - printObj = xform1 c_th2s_printobj - saveAs = xform2 c_th2s_saveas - write = xform3 c_th2s_write -instance ITAttLine TH2S where - getLineColor = xform0 c_th2s_getlinecolor - getLineStyle = xform0 c_th2s_getlinestyle - getLineWidth = xform0 c_th2s_getlinewidth - resetAttLine = xform1 c_th2s_resetattline - setLineAttributes = xform0 c_th2s_setlineattributes - setLineColor = xform1 c_th2s_setlinecolor - setLineStyle = xform1 c_th2s_setlinestyle - setLineWidth = xform1 c_th2s_setlinewidth -instance ITAttFill TH2S where - setFillColor = xform1 c_th2s_setfillcolor - setFillStyle = xform1 c_th2s_setfillstyle -instance ITAttMarker TH2S where - getMarkerColor = xform0 c_th2s_getmarkercolor - getMarkerStyle = xform0 c_th2s_getmarkerstyle - getMarkerSize = xform0 c_th2s_getmarkersize - resetAttMarker = xform1 c_th2s_resetattmarker - setMarkerAttributes = xform0 c_th2s_setmarkerattributes - setMarkerColor = xform1 c_th2s_setmarkercolor - setMarkerStyle = xform1 c_th2s_setmarkerstyle - setMarkerSize = xform1 c_th2s_setmarkersize -instance IDeletable TH2S where - delete = xform0 c_th2s_delete -instance ITArray TH2S where - -instance ITH2S (Exist TH2S) where - -instance ITH2 (Exist TH2S) where - fill2 (ETH2S x) = fill2 x - fill2w (ETH2S x) = fill2w x - fillN2 (ETH2S x) = fillN2 x - fillRandom2 (ETH2S x) = fillRandom2 x - findFirstBinAbove2 (ETH2S x) = findFirstBinAbove2 x - findLastBinAbove2 (ETH2S x) = findLastBinAbove2 x - fitSlicesX (ETH2S x) = fitSlicesX x - fitSlicesY (ETH2S x) = fitSlicesY x - getCorrelationFactor2 (ETH2S x) = getCorrelationFactor2 x - getCovariance2 (ETH2S x) = getCovariance2 x - integral2 (ETH2S x) = integral2 x - rebinX2 (ETH2S x) = rebinX2 x - rebinY2 (ETH2S x) = rebinY2 x - rebin2D (ETH2S x) = rebin2D x - setShowProjectionX (ETH2S x) = setShowProjectionX x - setShowProjectionY (ETH2S x) = setShowProjectionY x -instance ITArrayS (Exist TH2S) where + fill2 = xform2 c_th2s_fill2 + fill2w = xform3 c_th2s_fill2w + fillN2 = xform5 c_th2s_filln2 + fillRandom2 = xform2 c_th2s_fillrandom2 + findFirstBinAbove2 = xform2 c_th2s_findfirstbinabove2 + findLastBinAbove2 = xform2 c_th2s_findlastbinabove2 + fitSlicesX = xform6 c_th2s_fitslicesx + fitSlicesY = xform6 c_th2s_fitslicesy + getCorrelationFactor2 = xform2 c_th2s_getcorrelationfactor2 + getCovariance2 = xform2 c_th2s_getcovariance2 + integral2 = xform5 c_th2s_integral2 + rebinX2 = xform2 c_th2s_rebinx2 + rebinY2 = xform2 c_th2s_rebiny2 + rebin2D = xform3 c_th2s_rebin2d + setShowProjectionX = xform1 c_th2s_setshowprojectionx + setShowProjectionY = xform1 c_th2s_setshowprojectiony -instance ITH1 (Exist TH2S) where - add (ETH2S x) = add x - addBinContent (ETH2S x) = addBinContent x - chi2Test (ETH2S x) = chi2Test x - computeIntegral (ETH2S x) = computeIntegral x - directoryAutoAdd (ETH2S x) = directoryAutoAdd x - divide (ETH2S x) = divide x - drawCopyTH1 (ETH2S x) a1 = return . ETH2S =<< drawCopyTH1 x a1 - drawNormalized (ETH2S x) = drawNormalized x - drawPanelTH1 (ETH2S x) = drawPanelTH1 x - bufferEmpty (ETH2S x) = bufferEmpty x - evalF (ETH2S x) = evalF x - fFT (ETH2S x) = fFT x - fill1 (ETH2S x) = fill1 x - fill1w (ETH2S x) = fill1w x - fillN1 (ETH2S x) = fillN1 x - fillRandom (ETH2S x) = fillRandom x - findBin (ETH2S x) = findBin x - findFixBin (ETH2S x) = findFixBin x - findFirstBinAbove (ETH2S x) = findFirstBinAbove x - findLastBinAbove (ETH2S x) = findLastBinAbove x - fitPanelTH1 (ETH2S x) = fitPanelTH1 x - getNdivisionA (ETH2S x) = getNdivisionA x - getAxisColorA (ETH2S x) = getAxisColorA x - getLabelColorA (ETH2S x) = getLabelColorA x - getLabelFontA (ETH2S x) = getLabelFontA x - getLabelOffsetA (ETH2S x) = getLabelOffsetA x - getLabelSizeA (ETH2S x) = getLabelSizeA x - getTitleFontA (ETH2S x) = getTitleFontA x - getTitleOffsetA (ETH2S x) = getTitleOffsetA x - getTitleSizeA (ETH2S x) = getTitleSizeA x - getTickLengthA (ETH2S x) = getTickLengthA x - getBarOffset (ETH2S x) = getBarOffset x - getBarWidth (ETH2S x) = getBarWidth x - getContour (ETH2S x) = getContour x - getContourLevel (ETH2S x) = getContourLevel x - getContourLevelPad (ETH2S x) = getContourLevelPad x - getBin (ETH2S x) = getBin x - getBinCenter (ETH2S x) = getBinCenter x - getBinContent1 (ETH2S x) = getBinContent1 x - getBinContent2 (ETH2S x) = getBinContent2 x - getBinContent3 (ETH2S x) = getBinContent3 x - getBinError1 (ETH2S x) = getBinError1 x - getBinError2 (ETH2S x) = getBinError2 x - getBinError3 (ETH2S x) = getBinError3 x - getBinLowEdge (ETH2S x) = getBinLowEdge x - getBinWidth (ETH2S x) = getBinWidth x - getCellContent (ETH2S x) = getCellContent x - getCellError (ETH2S x) = getCellError x - getEntries (ETH2S x) = getEntries x - getEffectiveEntries (ETH2S x) = getEffectiveEntries x - getFunction (ETH2S x) = getFunction x - getDimension (ETH2S x) = getDimension x - getKurtosis (ETH2S x) = getKurtosis x - getLowEdge (ETH2S x) = getLowEdge x - getMaximumTH1 (ETH2S x) = getMaximumTH1 x - getMaximumBin (ETH2S x) = getMaximumBin x - getMaximumStored (ETH2S x) = getMaximumStored x - getMinimumTH1 (ETH2S x) = getMinimumTH1 x - getMinimumBin (ETH2S x) = getMinimumBin x - getMinimumStored (ETH2S x) = getMinimumStored x - getMean (ETH2S x) = getMean x - getMeanError (ETH2S x) = getMeanError x - getNbinsX (ETH2S x) = getNbinsX x - getNbinsY (ETH2S x) = getNbinsY x - getNbinsZ (ETH2S x) = getNbinsZ x - getQuantilesTH1 (ETH2S x) = getQuantilesTH1 x - getRandom (ETH2S x) = getRandom x - getStats (ETH2S x) = getStats x - getSumOfWeights (ETH2S x) = getSumOfWeights x - getSumw2 (ETH2S x) = getSumw2 x - getSumw2N (ETH2S x) = getSumw2N x - getRMS (ETH2S x) = getRMS x - getRMSError (ETH2S x) = getRMSError x - getSkewness (ETH2S x) = getSkewness x - integral1 (ETH2S x) = integral1 x - interpolate1 (ETH2S x) = interpolate1 x - interpolate2 (ETH2S x) = interpolate2 x - interpolate3 (ETH2S x) = interpolate3 x - kolmogorovTest (ETH2S x) = kolmogorovTest x - labelsDeflate (ETH2S x) = labelsDeflate x - labelsInflate (ETH2S x) = labelsInflate x - labelsOption (ETH2S x) = labelsOption x - multiflyF (ETH2S x) = multiflyF x - multiply (ETH2S x) = multiply x - putStats (ETH2S x) = putStats x - rebin (ETH2S x) = rebin x - rebinAxis (ETH2S x) = rebinAxis x - rebuild (ETH2S x) = rebuild x - recursiveRemove (ETH2S x) = recursiveRemove x - reset (ETH2S x) = reset x - resetStats (ETH2S x) = resetStats x - scale (ETH2S x) = scale x - setAxisColorA (ETH2S x) = setAxisColorA x - setAxisRange (ETH2S x) = setAxisRange x - setBarOffset (ETH2S x) = setBarOffset x - setBarWidth (ETH2S x) = setBarWidth x - setBinContent1 (ETH2S x) = setBinContent1 x - setBinContent2 (ETH2S x) = setBinContent2 x - setBinContent3 (ETH2S x) = setBinContent3 x - setBinError1 (ETH2S x) = setBinError1 x - setBinError2 (ETH2S x) = setBinError2 x - setBinError3 (ETH2S x) = setBinError3 x - setBins1 (ETH2S x) = setBins1 x - setBins2 (ETH2S x) = setBins2 x - setBins3 (ETH2S x) = setBins3 x - setBinsLength (ETH2S x) = setBinsLength x - setBuffer (ETH2S x) = setBuffer x - setCellContent (ETH2S x) = setCellContent x - setContent (ETH2S x) = setContent x - setContour (ETH2S x) = setContour x - setContourLevel (ETH2S x) = setContourLevel x - setDirectory (ETH2S x) = setDirectory x - setEntries (ETH2S x) = setEntries x - setError (ETH2S x) = setError x - setLabelColorA (ETH2S x) = setLabelColorA x - setLabelSizeA (ETH2S x) = setLabelSizeA x - setLabelFontA (ETH2S x) = setLabelFontA x - setLabelOffsetA (ETH2S x) = setLabelOffsetA x - setMaximum (ETH2S x) = setMaximum x - setMinimum (ETH2S x) = setMinimum x - setNormFactor (ETH2S x) = setNormFactor x - setStats (ETH2S x) = setStats x - setOption (ETH2S x) = setOption x - setXTitle (ETH2S x) = setXTitle x - setYTitle (ETH2S x) = setYTitle x - setZTitle (ETH2S x) = setZTitle x - showBackground (ETH2S x) = showBackground x - showPeaks (ETH2S x) = showPeaks x - smooth (ETH2S x) = smooth x - sumw2 (ETH2S x) = sumw2 x -instance ITObject (Exist TH2S) where - draw (ETH2S x) = draw x - findObject (ETH2S x) = findObject x - getName (ETH2S x) = getName x - isA (ETH2S x) = isA x - paint (ETH2S x) = paint x - printObj (ETH2S x) = printObj x - saveAs (ETH2S x) = saveAs x - write (ETH2S x) = write x -instance ITAttLine (Exist TH2S) where - getLineColor (ETH2S x) = getLineColor x - getLineStyle (ETH2S x) = getLineStyle x - getLineWidth (ETH2S x) = getLineWidth x - resetAttLine (ETH2S x) = resetAttLine x - setLineAttributes (ETH2S x) = setLineAttributes x - setLineColor (ETH2S x) = setLineColor x - setLineStyle (ETH2S x) = setLineStyle x - setLineWidth (ETH2S x) = setLineWidth x -instance ITAttFill (Exist TH2S) where - setFillColor (ETH2S x) = setFillColor x - setFillStyle (ETH2S x) = setFillStyle x -instance ITAttMarker (Exist TH2S) where - getMarkerColor (ETH2S x) = getMarkerColor x - getMarkerStyle (ETH2S x) = getMarkerStyle x - getMarkerSize (ETH2S x) = getMarkerSize x - resetAttMarker (ETH2S x) = resetAttMarker x - setMarkerAttributes (ETH2S x) = setMarkerAttributes x - setMarkerColor (ETH2S x) = setMarkerColor x - setMarkerStyle (ETH2S x) = setMarkerStyle x - setMarkerSize (ETH2S x) = setMarkerSize x -instance IDeletable (Exist TH2S) where - delete (ETH2S x) = delete x -instance ITArray (Exist TH2S) where +instance ITArrayS TH2S +instance ITH1 TH2S where + add = xform2 c_th2s_add + addBinContent = xform2 c_th2s_addbincontent + chi2Test = xform3 c_th2s_chi2test + computeIntegral = xform0 c_th2s_computeintegral + directoryAutoAdd = xform1 c_th2s_directoryautoadd + divide = xform5 c_th2s_divide + drawCopyTH1 = xform1 c_th2s_drawcopyth1 + drawNormalized = xform2 c_th2s_drawnormalized + drawPanelTH1 = xform0 c_th2s_drawpanelth1 + bufferEmpty = xform1 c_th2s_bufferempty + evalF = xform2 c_th2s_evalf + fFT = xform2 c_th2s_fft + fill1 = xform1 c_th2s_fill1 + fill1w = xform2 c_th2s_fill1w + fillN1 = xform4 c_th2s_filln1 + fillRandom = xform2 c_th2s_fillrandom + findBin = xform3 c_th2s_findbin + findFixBin = xform3 c_th2s_findfixbin + findFirstBinAbove = xform2 c_th2s_findfirstbinabove + findLastBinAbove = xform2 c_th2s_findlastbinabove + fit = xform5 c_th2s_fit + fitPanelTH1 = xform0 c_th2s_fitpanelth1 + getNdivisionA = xform1 c_th2s_getndivisiona + getAxisColorA = xform1 c_th2s_getaxiscolora + getLabelColorA = xform1 c_th2s_getlabelcolora + getLabelFontA = xform1 c_th2s_getlabelfonta + getLabelOffsetA = xform1 c_th2s_getlabeloffseta + getLabelSizeA = xform1 c_th2s_getlabelsizea + getTitleFontA = xform1 c_th2s_gettitlefonta + getTitleOffsetA = xform1 c_th2s_gettitleoffseta + getTitleSizeA = xform1 c_th2s_gettitlesizea + getTickLengthA = xform1 c_th2s_getticklengtha + getBarOffset = xform0 c_th2s_getbaroffset + getBarWidth = xform0 c_th2s_getbarwidth + getContour = xform1 c_th2s_getcontour + getContourLevel = xform1 c_th2s_getcontourlevel + getContourLevelPad = xform1 c_th2s_getcontourlevelpad + getBin = xform3 c_th2s_getbin + getBinCenter = xform1 c_th2s_getbincenter + getBinContent1 = xform1 c_th2s_getbincontent1 + getBinContent2 = xform2 c_th2s_getbincontent2 + getBinContent3 = xform3 c_th2s_getbincontent3 + getBinError1 = xform1 c_th2s_getbinerror1 + getBinError2 = xform2 c_th2s_getbinerror2 + getBinError3 = xform3 c_th2s_getbinerror3 + getBinLowEdge = xform1 c_th2s_getbinlowedge + getBinWidth = xform1 c_th2s_getbinwidth + getCellContent = xform2 c_th2s_getcellcontent + getCellError = xform2 c_th2s_getcellerror + getEntries = xform0 c_th2s_getentries + getEffectiveEntries = xform0 c_th2s_geteffectiveentries + getFunction = xform1 c_th2s_getfunction + getDimension = xform0 c_th2s_getdimension + getKurtosis = xform1 c_th2s_getkurtosis + getLowEdge = xform1 c_th2s_getlowedge + getMaximumTH1 = xform1 c_th2s_getmaximumth1 + getMaximumBin = xform0 c_th2s_getmaximumbin + getMaximumStored = xform0 c_th2s_getmaximumstored + getMinimumTH1 = xform1 c_th2s_getminimumth1 + getMinimumBin = xform0 c_th2s_getminimumbin + getMinimumStored = xform0 c_th2s_getminimumstored + getMean = xform1 c_th2s_getmean + getMeanError = xform1 c_th2s_getmeanerror + getNbinsX = xform0 c_th2s_getnbinsx + getNbinsY = xform0 c_th2s_getnbinsy + getNbinsZ = xform0 c_th2s_getnbinsz + getQuantilesTH1 = xform3 c_th2s_getquantilesth1 + getRandom = xform0 c_th2s_getrandom + getStats = xform1 c_th2s_getstats + getSumOfWeights = xform0 c_th2s_getsumofweights + getSumw2 = xform0 c_th2s_getsumw2 + getSumw2N = xform0 c_th2s_getsumw2n + getRMS = xform1 c_th2s_getrms + getRMSError = xform1 c_th2s_getrmserror + getSkewness = xform1 c_th2s_getskewness + integral1 = xform3 c_th2s_integral1 + interpolate1 = xform1 c_th2s_interpolate1 + interpolate2 = xform2 c_th2s_interpolate2 + interpolate3 = xform3 c_th2s_interpolate3 + kolmogorovTest = xform2 c_th2s_kolmogorovtest + labelsDeflate = xform1 c_th2s_labelsdeflate + labelsInflate = xform1 c_th2s_labelsinflate + labelsOption = xform2 c_th2s_labelsoption + multiflyF = xform2 c_th2s_multiflyf + multiply = xform5 c_th2s_multiply + putStats = xform1 c_th2s_putstats + rebin = xform3 c_th2s_rebin + rebinAxis = xform2 c_th2s_rebinaxis + rebuild = xform1 c_th2s_rebuild + recursiveRemove = xform1 c_th2s_recursiveremove + reset = xform1 c_th2s_reset + resetStats = xform0 c_th2s_resetstats + scale = xform2 c_th2s_scale + setAxisColorA = xform2 c_th2s_setaxiscolora + setAxisRange = xform3 c_th2s_setaxisrange + setBarOffset = xform1 c_th2s_setbaroffset + setBarWidth = xform1 c_th2s_setbarwidth + setBinContent1 = xform2 c_th2s_setbincontent1 + setBinContent2 = xform3 c_th2s_setbincontent2 + setBinContent3 = xform4 c_th2s_setbincontent3 + setBinError1 = xform2 c_th2s_setbinerror1 + setBinError2 = xform3 c_th2s_setbinerror2 + setBinError3 = xform4 c_th2s_setbinerror3 + setBins1 = xform2 c_th2s_setbins1 + setBins2 = xform4 c_th2s_setbins2 + setBins3 = xform6 c_th2s_setbins3 + setBinsLength = xform1 c_th2s_setbinslength + setBuffer = xform2 c_th2s_setbuffer + setCellContent = xform3 c_th2s_setcellcontent + setContent = xform1 c_th2s_setcontent + setContour = xform2 c_th2s_setcontour + setContourLevel = xform2 c_th2s_setcontourlevel + setDirectory = xform1 c_th2s_setdirectory + setEntries = xform1 c_th2s_setentries + setError = xform1 c_th2s_seterror + setLabelColorA = xform2 c_th2s_setlabelcolora + setLabelSizeA = xform2 c_th2s_setlabelsizea + setLabelFontA = xform2 c_th2s_setlabelfonta + setLabelOffsetA = xform2 c_th2s_setlabeloffseta + setMaximum = xform1 c_th2s_setmaximum + setMinimum = xform1 c_th2s_setminimum + setNormFactor = xform1 c_th2s_setnormfactor + setStats = xform1 c_th2s_setstats + setOption = xform1 c_th2s_setoption + setXTitle = xform1 c_th2s_setxtitle + setYTitle = xform1 c_th2s_setytitle + setZTitle = xform1 c_th2s_setztitle + showBackground = xform2 c_th2s_showbackground + showPeaks = xform3 c_th2s_showpeaks + smooth = xform2 c_th2s_smooth + sumw2 = xform0 c_th2s_sumw2 +instance ITNamed TH2S where + setName = xform1 c_th2s_setname + setNameTitle = xform2 c_th2s_setnametitle + setTitle = xform1 c_th2s_settitle +instance ITAttLine TH2S where + getLineColor = xform0 c_th2s_getlinecolor + getLineStyle = xform0 c_th2s_getlinestyle + getLineWidth = xform0 c_th2s_getlinewidth + resetAttLine = xform1 c_th2s_resetattline + setLineAttributes = xform0 c_th2s_setlineattributes + setLineColor = xform1 c_th2s_setlinecolor + setLineStyle = xform1 c_th2s_setlinestyle + setLineWidth = xform1 c_th2s_setlinewidth +instance ITAttFill TH2S where + setFillColor = xform1 c_th2s_setfillcolor + setFillStyle = xform1 c_th2s_setfillstyle +instance ITAttMarker TH2S where + getMarkerColor = xform0 c_th2s_getmarkercolor + getMarkerStyle = xform0 c_th2s_getmarkerstyle + getMarkerSize = xform0 c_th2s_getmarkersize + resetAttMarker = xform1 c_th2s_resetattmarker + setMarkerAttributes = xform0 c_th2s_setmarkerattributes + setMarkerColor = xform1 c_th2s_setmarkercolor + setMarkerStyle = xform1 c_th2s_setmarkerstyle + setMarkerSize = xform1 c_th2s_setmarkersize +instance ITObject TH2S where + draw = xform1 c_th2s_draw + findObject = xform1 c_th2s_findobject + getName = xform0 c_th2s_getname + isA = xform0 c_th2s_isa + paint = xform1 c_th2s_paint + printObj = xform1 c_th2s_printobj + saveAs = xform2 c_th2s_saveas + write = xform3 c_th2s_write +instance IDeletable TH2S where + delete = xform0 c_th2s_delete -instance FPtr (Exist TH2S) where - type Raw (Exist TH2S) = RawTH2S - get_fptr (ETH2S obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH2S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2S) :: TH2S) +instance ITArray TH2S diff --git a/src/HROOT/Hist/TH2S/Interface.hs b/src/HROOT/Hist/TH2S/Interface.hs --- a/src/HROOT/Hist/TH2S/Interface.hs +++ b/src/HROOT/Hist/TH2S/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH2S.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH2S.RawType - import HROOT.Hist.TH2.Interface import HROOT.Core.TArrayS.Interface ----- ============ ---- - - -class (ITH2 a,ITArrayS a) => ITH2S a where - -instance Existable TH2S where - data Exist TH2S = forall a. (FPtr a, ITH2S a) => ETH2S a +class (ITH2 a, ITArrayS a) => ITH2S a -upcastTH2S :: (FPtr a, ITH2S a) => a -> TH2S -upcastTH2S h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH2S = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH2S :: forall a . (FPtr a, ITH2S a) => a -> TH2S +upcastTH2S h + = let fh = get_fptr h + fh2 :: Ptr RawTH2S = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH2S :: (FPtr a, ITH2S a) => TH2S -> a -downcastTH2S h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH2S :: forall a . (FPtr a, ITH2S a) => TH2S -> a +downcastTH2S h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH2S/RawType.hs b/src/HROOT/Hist/TH2S/RawType.hs --- a/src/HROOT/Hist/TH2S/RawType.hs +++ b/src/HROOT/Hist/TH2S/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH2S.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH2S -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH2S = TH2S (Ptr RawTH2S) + deriving (Eq, Ord, Show) -data RawTH2S -newtype TH2S = TH2S (ForeignPtr RawTH2S) deriving (Eq, Ord, Show) instance FPtr TH2S where - type Raw TH2S = RawTH2S - get_fptr (TH2S fptr) = fptr - cast_fptr_to_obj = TH2S + type Raw TH2S = RawTH2S + get_fptr (TH2S ptr) = ptr + cast_fptr_to_obj = TH2S diff --git a/src/HROOT/Hist/TH3.hs b/src/HROOT/Hist/TH3.hs --- a/src/HROOT/Hist/TH3.hs +++ b/src/HROOT/Hist/TH3.hs @@ -1,18 +1,7 @@ module HROOT.Hist.TH3 - ( - TH3(..) - , ITH3(..) - , upcastTH3 - , downcastTH3 - , tH3ProjectionX - , tH3ProjectionY - , tH3ProjectionZ - , tH3Project3D - - ) where - + (TH3(..), ITH3(..), upcastTH3, downcastTH3, tH3ProjectionX, + tH3ProjectionY, tH3ProjectionZ, tH3Project3D) + where import HROOT.Hist.TH3.RawType import HROOT.Hist.TH3.Interface import HROOT.Hist.TH3.Implementation - - diff --git a/src/HROOT/Hist/TH3/Cast.hs b/src/HROOT/Hist/TH3/Cast.hs --- a/src/HROOT/Hist/TH3/Cast.hs +++ b/src/HROOT/Hist/TH3/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3.RawType import HROOT.Hist.TH3.Interface instance (ITH3 a, FPtr a) => Castable a (Ptr RawTH3) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3 (Ptr RawTH3) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3/FFI.hsc b/src/HROOT/Hist/TH3/FFI.hsc --- a/src/HROOT/Hist/TH3/FFI.hsc +++ b/src/HROOT/Hist/TH3/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3.RawType import HROOT.Hist.TH1.RawType import HROOT.Core.TDirectory.RawType @@ -22,515 +12,572 @@ import HROOT.Core.TClass.RawType import HROOT.Hist.TH1D.RawType -#include "HROOTHistTH3.h" +foreign import ccall safe "HROOTHistTH3.h TH3_Add" c_th3_add :: + Ptr RawTH3 -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Add" c_th3_add - :: (Ptr RawTH3) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_AddBinContent" + c_th3_addbincontent :: Ptr RawTH3 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_AddBinContent" c_th3_addbincontent - :: (Ptr RawTH3) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Chi2Test" + c_th3_chi2test :: + Ptr RawTH3 -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_Chi2Test" c_th3_chi2test - :: (Ptr RawTH3) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_ComputeIntegral" + c_th3_computeintegral :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_ComputeIntegral" c_th3_computeintegral - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_DirectoryAutoAdd" + c_th3_directoryautoadd :: Ptr RawTH3 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3.h TH3_DirectoryAutoAdd" c_th3_directoryautoadd - :: (Ptr RawTH3) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Divide" c_th3_divide + :: + Ptr RawTH3 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Divide" c_th3_divide - :: (Ptr RawTH3) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_drawCopyTH1" + c_th3_drawcopyth1 :: Ptr RawTH3 -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3.h TH3_drawCopyTH1" c_th3_drawcopyth1 - :: (Ptr RawTH3) -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_DrawNormalized" + c_th3_drawnormalized :: + Ptr RawTH3 -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3.h TH3_DrawNormalized" c_th3_drawnormalized - :: (Ptr RawTH3) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3.h TH3_drawPanelTH1" + c_th3_drawpanelth1 :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_drawPanelTH1" c_th3_drawpanelth1 - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_BufferEmpty" + c_th3_bufferempty :: Ptr RawTH3 -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_BufferEmpty" c_th3_bufferempty - :: (Ptr RawTH3) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_evalF" c_th3_evalf :: + Ptr RawTH3 -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_evalF" c_th3_evalf - :: (Ptr RawTH3) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_FFT" c_th3_fft :: + Ptr RawTH3 -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3.h TH3_FFT" c_th3_fft - :: (Ptr RawTH3) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3.h TH3_fill1" c_th3_fill1 :: + Ptr RawTH3 -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_fill1" c_th3_fill1 - :: (Ptr RawTH3) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_fill1w" c_th3_fill1w + :: Ptr RawTH3 -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_fill1w" c_th3_fill1w - :: (Ptr RawTH3) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_fillN1" c_th3_filln1 + :: + Ptr RawTH3 -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_fillN1" c_th3_filln1 - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_FillRandom" + c_th3_fillrandom :: Ptr RawTH3 -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_FillRandom" c_th3_fillrandom - :: (Ptr RawTH3) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_FindBin" + c_th3_findbin :: + Ptr RawTH3 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_FindBin" c_th3_findbin - :: (Ptr RawTH3) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_FindFixBin" + c_th3_findfixbin :: + Ptr RawTH3 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_FindFixBin" c_th3_findfixbin - :: (Ptr RawTH3) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_FindFirstBinAbove" + c_th3_findfirstbinabove :: Ptr RawTH3 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_FindFirstBinAbove" c_th3_findfirstbinabove - :: (Ptr RawTH3) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_FindLastBinAbove" + c_th3_findlastbinabove :: Ptr RawTH3 -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_FindLastBinAbove" c_th3_findlastbinabove - :: (Ptr RawTH3) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_Fit" c_th3_fit :: + Ptr RawTH3 -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_FitPanelTH1" c_th3_fitpanelth1 - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_FitPanelTH1" + c_th3_fitpanelth1 :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_getNdivisionA" c_th3_getndivisiona - :: (Ptr RawTH3) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getNdivisionA" + c_th3_getndivisiona :: Ptr RawTH3 -> CString -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getAxisColorA" c_th3_getaxiscolora - :: (Ptr RawTH3) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getAxisColorA" + c_th3_getaxiscolora :: Ptr RawTH3 -> CString -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getLabelColorA" c_th3_getlabelcolora - :: (Ptr RawTH3) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getLabelColorA" + c_th3_getlabelcolora :: Ptr RawTH3 -> CString -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getLabelFontA" c_th3_getlabelfonta - :: (Ptr RawTH3) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getLabelFontA" + c_th3_getlabelfonta :: Ptr RawTH3 -> CString -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getLabelOffsetA" c_th3_getlabeloffseta - :: (Ptr RawTH3) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getLabelOffsetA" + c_th3_getlabeloffseta :: Ptr RawTH3 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getLabelSizeA" c_th3_getlabelsizea - :: (Ptr RawTH3) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getLabelSizeA" + c_th3_getlabelsizea :: Ptr RawTH3 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getTitleFontA" c_th3_gettitlefonta - :: (Ptr RawTH3) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getTitleFontA" + c_th3_gettitlefonta :: Ptr RawTH3 -> CString -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getTitleOffsetA" c_th3_gettitleoffseta - :: (Ptr RawTH3) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getTitleOffsetA" + c_th3_gettitleoffseta :: Ptr RawTH3 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getTitleSizeA" c_th3_gettitlesizea - :: (Ptr RawTH3) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getTitleSizeA" + c_th3_gettitlesizea :: Ptr RawTH3 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getTickLengthA" c_th3_getticklengtha - :: (Ptr RawTH3) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getTickLengthA" + c_th3_getticklengtha :: Ptr RawTH3 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBarOffset" c_th3_getbaroffset - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBarOffset" + c_th3_getbaroffset :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBarWidth" c_th3_getbarwidth - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBarWidth" + c_th3_getbarwidth :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetContour" c_th3_getcontour - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetContour" + c_th3_getcontour :: Ptr RawTH3 -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetContourLevel" c_th3_getcontourlevel - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetContourLevel" + c_th3_getcontourlevel :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetContourLevelPad" c_th3_getcontourlevelpad - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetContourLevelPad" + c_th3_getcontourlevelpad :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBin" c_th3_getbin - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetBin" c_th3_getbin + :: Ptr RawTH3 -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetBinCenter" c_th3_getbincenter - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinCenter" + c_th3_getbincenter :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinContent1" c_th3_getbincontent1 - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinContent1" + c_th3_getbincontent1 :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinContent2" c_th3_getbincontent2 - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinContent2" + c_th3_getbincontent2 :: Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinContent3" c_th3_getbincontent3 - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinContent3" + c_th3_getbincontent3 :: + Ptr RawTH3 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinError1" c_th3_getbinerror1 - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinError1" + c_th3_getbinerror1 :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinError2" c_th3_getbinerror2 - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinError2" + c_th3_getbinerror2 :: Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinError3" c_th3_getbinerror3 - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinError3" + c_th3_getbinerror3 :: + Ptr RawTH3 -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinLowEdge" c_th3_getbinlowedge - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinLowEdge" + c_th3_getbinlowedge :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetBinWidth" c_th3_getbinwidth - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetBinWidth" + c_th3_getbinwidth :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetCellContent" c_th3_getcellcontent - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetCellContent" + c_th3_getcellcontent :: Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetCellError" c_th3_getcellerror - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetCellError" + c_th3_getcellerror :: Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetEntries" c_th3_getentries - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetEntries" + c_th3_getentries :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetEffectiveEntries" c_th3_geteffectiveentries - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetEffectiveEntries" + c_th3_geteffectiveentries :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetFunction" c_th3_getfunction - :: (Ptr RawTH3) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3.h TH3_GetFunction" + c_th3_getfunction :: Ptr RawTH3 -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3.h TH3_GetDimension" c_th3_getdimension - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetDimension" + c_th3_getdimension :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetKurtosis" c_th3_getkurtosis - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetKurtosis" + c_th3_getkurtosis :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetLowEdge" c_th3_getlowedge - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetLowEdge" + c_th3_getlowedge :: Ptr RawTH3 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_getMaximumTH1" c_th3_getmaximumth1 - :: (Ptr RawTH3) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getMaximumTH1" + c_th3_getmaximumth1 :: Ptr RawTH3 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetMaximumBin" c_th3_getmaximumbin - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetMaximumBin" + c_th3_getmaximumbin :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetMaximumStored" c_th3_getmaximumstored - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetMaximumStored" + c_th3_getmaximumstored :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getMinimumTH1" c_th3_getminimumth1 - :: (Ptr RawTH3) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_getMinimumTH1" + c_th3_getminimumth1 :: Ptr RawTH3 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetMinimumBin" c_th3_getminimumbin - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetMinimumBin" + c_th3_getminimumbin :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetMinimumStored" c_th3_getminimumstored - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetMinimumStored" + c_th3_getminimumstored :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetMean" c_th3_getmean - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetMean" + c_th3_getmean :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetMeanError" c_th3_getmeanerror - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetMeanError" + c_th3_getmeanerror :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetNbinsX" c_th3_getnbinsx - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetNbinsX" + c_th3_getnbinsx :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetNbinsY" c_th3_getnbinsy - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetNbinsY" + c_th3_getnbinsy :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetNbinsZ" c_th3_getnbinsz - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetNbinsZ" + c_th3_getnbinsz :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_getQuantilesTH1" c_th3_getquantilesth1 - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_getQuantilesTH1" + c_th3_getquantilesth1 :: + Ptr RawTH3 -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetRandom" c_th3_getrandom - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetRandom" + c_th3_getrandom :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetStats" c_th3_getstats - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetStats" + c_th3_getstats :: Ptr RawTH3 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetSumOfWeights" c_th3_getsumofweights - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetSumOfWeights" + c_th3_getsumofweights :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetSumw2" c_th3_getsumw2 - :: (Ptr RawTH3) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3.h TH3_GetSumw2" + c_th3_getsumw2 :: Ptr RawTH3 -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3.h TH3_GetSumw2N" c_th3_getsumw2n - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_GetSumw2N" + c_th3_getsumw2n :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_GetRMS" c_th3_getrms - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetRMS" c_th3_getrms + :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetRMSError" c_th3_getrmserror - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetRMSError" + c_th3_getrmserror :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_GetSkewness" c_th3_getskewness - :: (Ptr RawTH3) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_GetSkewness" + c_th3_getskewness :: Ptr RawTH3 -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_integral1" c_th3_integral1 - :: (Ptr RawTH3) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_integral1" + c_th3_integral1 :: + Ptr RawTH3 -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_interpolate1" c_th3_interpolate1 - :: (Ptr RawTH3) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_interpolate1" + c_th3_interpolate1 :: Ptr RawTH3 -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_interpolate2" c_th3_interpolate2 - :: (Ptr RawTH3) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_interpolate2" + c_th3_interpolate2 :: + Ptr RawTH3 -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_interpolate3" c_th3_interpolate3 - :: (Ptr RawTH3) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_interpolate3" + c_th3_interpolate3 :: + Ptr RawTH3 -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_KolmogorovTest" c_th3_kolmogorovtest - :: (Ptr RawTH3) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_KolmogorovTest" + c_th3_kolmogorovtest :: + Ptr RawTH3 -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_LabelsDeflate" c_th3_labelsdeflate - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_LabelsDeflate" + c_th3_labelsdeflate :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_LabelsInflate" c_th3_labelsinflate - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_LabelsInflate" + c_th3_labelsinflate :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_LabelsOption" c_th3_labelsoption - :: (Ptr RawTH3) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_LabelsOption" + c_th3_labelsoption :: Ptr RawTH3 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_multiflyF" c_th3_multiflyf - :: (Ptr RawTH3) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_multiflyF" + c_th3_multiflyf :: Ptr RawTH3 -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Multiply" c_th3_multiply - :: (Ptr RawTH3) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Multiply" + c_th3_multiply :: + Ptr RawTH3 -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_PutStats" c_th3_putstats - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_PutStats" + c_th3_putstats :: Ptr RawTH3 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Rebin" c_th3_rebin - :: (Ptr RawTH3) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3.h TH3_Rebin" c_th3_rebin :: + Ptr RawTH3 -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3.h TH3_RebinAxis" c_th3_rebinaxis - :: (Ptr RawTH3) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_RebinAxis" + c_th3_rebinaxis :: Ptr RawTH3 -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Rebuild" c_th3_rebuild - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Rebuild" + c_th3_rebuild :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_RecursiveRemove" c_th3_recursiveremove - :: (Ptr RawTH3) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_RecursiveRemove" + c_th3_recursiveremove :: Ptr RawTH3 -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Reset" c_th3_reset - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Reset" c_th3_reset :: + Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_ResetStats" c_th3_resetstats - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_ResetStats" + c_th3_resetstats :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Scale" c_th3_scale - :: (Ptr RawTH3) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Scale" c_th3_scale :: + Ptr RawTH3 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setAxisColorA" c_th3_setaxiscolora - :: (Ptr RawTH3) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setAxisColorA" + c_th3_setaxiscolora :: Ptr RawTH3 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetAxisRange" c_th3_setaxisrange - :: (Ptr RawTH3) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetAxisRange" + c_th3_setaxisrange :: + Ptr RawTH3 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetBarOffset" c_th3_setbaroffset - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetBarOffset" + c_th3_setbaroffset :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetBarWidth" c_th3_setbarwidth - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetBarWidth" + c_th3_setbarwidth :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinContent1" c_th3_setbincontent1 - :: (Ptr RawTH3) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinContent1" + c_th3_setbincontent1 :: Ptr RawTH3 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinContent2" c_th3_setbincontent2 - :: (Ptr RawTH3) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinContent2" + c_th3_setbincontent2 :: + Ptr RawTH3 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinContent3" c_th3_setbincontent3 - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinContent3" + c_th3_setbincontent3 :: + Ptr RawTH3 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinError1" c_th3_setbinerror1 - :: (Ptr RawTH3) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinError1" + c_th3_setbinerror1 :: Ptr RawTH3 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinError2" c_th3_setbinerror2 - :: (Ptr RawTH3) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinError2" + c_th3_setbinerror2 :: + Ptr RawTH3 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBinError3" c_th3_setbinerror3 - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBinError3" + c_th3_setbinerror3 :: + Ptr RawTH3 -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBins1" c_th3_setbins1 - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBins1" + c_th3_setbins1 :: Ptr RawTH3 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBins2" c_th3_setbins2 - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBins2" + c_th3_setbins2 :: + Ptr RawTH3 -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setBins3" c_th3_setbins3 - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setBins3" + c_th3_setbins3 :: + Ptr RawTH3 -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetBinsLength" c_th3_setbinslength - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetBinsLength" + c_th3_setbinslength :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetBuffer" c_th3_setbuffer - :: (Ptr RawTH3) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetBuffer" + c_th3_setbuffer :: Ptr RawTH3 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetCellContent" c_th3_setcellcontent - :: (Ptr RawTH3) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetCellContent" + c_th3_setcellcontent :: + Ptr RawTH3 -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetContent" c_th3_setcontent - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetContent" + c_th3_setcontent :: Ptr RawTH3 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetContour" c_th3_setcontour - :: (Ptr RawTH3) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetContour" + c_th3_setcontour :: Ptr RawTH3 -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetContourLevel" c_th3_setcontourlevel - :: (Ptr RawTH3) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetContourLevel" + c_th3_setcontourlevel :: Ptr RawTH3 -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetDirectory" c_th3_setdirectory - :: (Ptr RawTH3) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetDirectory" + c_th3_setdirectory :: Ptr RawTH3 -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetEntries" c_th3_setentries - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetEntries" + c_th3_setentries :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetError" c_th3_seterror - :: (Ptr RawTH3) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetError" + c_th3_seterror :: Ptr RawTH3 -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setLabelColorA" c_th3_setlabelcolora - :: (Ptr RawTH3) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setLabelColorA" + c_th3_setlabelcolora :: Ptr RawTH3 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setLabelSizeA" c_th3_setlabelsizea - :: (Ptr RawTH3) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setLabelSizeA" + c_th3_setlabelsizea :: Ptr RawTH3 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setLabelFontA" c_th3_setlabelfonta - :: (Ptr RawTH3) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setLabelFontA" + c_th3_setlabelfonta :: Ptr RawTH3 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_setLabelOffsetA" c_th3_setlabeloffseta - :: (Ptr RawTH3) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_setLabelOffsetA" + c_th3_setlabeloffseta :: Ptr RawTH3 -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetMaximum" c_th3_setmaximum - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetMaximum" + c_th3_setmaximum :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetMinimum" c_th3_setminimum - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetMinimum" + c_th3_setminimum :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetNormFactor" c_th3_setnormfactor - :: (Ptr RawTH3) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetNormFactor" + c_th3_setnormfactor :: Ptr RawTH3 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetStats" c_th3_setstats - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetStats" + c_th3_setstats :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetOption" c_th3_setoption - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetOption" + c_th3_setoption :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetXTitle" c_th3_setxtitle - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetXTitle" + c_th3_setxtitle :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetYTitle" c_th3_setytitle - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetYTitle" + c_th3_setytitle :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetZTitle" c_th3_setztitle - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetZTitle" + c_th3_setztitle :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_ShowBackground" c_th3_showbackground - :: (Ptr RawTH3) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3.h TH3_ShowBackground" + c_th3_showbackground :: + Ptr RawTH3 -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3.h TH3_ShowPeaks" c_th3_showpeaks - :: (Ptr RawTH3) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_ShowPeaks" + c_th3_showpeaks :: + Ptr RawTH3 -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_Smooth" c_th3_smooth - :: (Ptr RawTH3) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Smooth" c_th3_smooth + :: Ptr RawTH3 -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Sumw2" c_th3_sumw2 - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Sumw2" c_th3_sumw2 :: + Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Draw" c_th3_draw - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetName" + c_th3_setname :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_FindObject" c_th3_findobject - :: (Ptr RawTH3) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3.h TH3_SetNameTitle" + c_th3_setnametitle :: Ptr RawTH3 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetName" c_th3_getname - :: (Ptr RawTH3) -> IO CString +foreign import ccall safe "HROOTHistTH3.h TH3_SetTitle" + c_th3_settitle :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_IsA" c_th3_isa - :: (Ptr RawTH3) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3.h TH3_GetLineColor" + c_th3_getlinecolor :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_Paint" c_th3_paint - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetLineStyle" + c_th3_getlinestyle :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_printObj" c_th3_printobj - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetLineWidth" + c_th3_getlinewidth :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_SaveAs" c_th3_saveas - :: (Ptr RawTH3) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_ResetAttLine" + c_th3_resetattline :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_Write" c_th3_write - :: (Ptr RawTH3) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetLineAttributes" + c_th3_setlineattributes :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetLineColor" c_th3_getlinecolor - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetLineColor" + c_th3_setlinecolor :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetLineStyle" c_th3_getlinestyle - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetLineStyle" + c_th3_setlinestyle :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetLineWidth" c_th3_getlinewidth - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetLineWidth" + c_th3_setlinewidth :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_ResetAttLine" c_th3_resetattline - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetFillColor" + c_th3_setfillcolor :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetLineAttributes" c_th3_setlineattributes - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetFillStyle" + c_th3_setfillstyle :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetLineColor" c_th3_setlinecolor - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetMarkerColor" + c_th3_getmarkercolor :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_SetLineStyle" c_th3_setlinestyle - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetMarkerStyle" + c_th3_getmarkerstyle :: Ptr RawTH3 -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_SetLineWidth" c_th3_setlinewidth - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetMarkerSize" + c_th3_getmarkersize :: Ptr RawTH3 -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_SetFillColor" c_th3_setfillcolor - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_ResetAttMarker" + c_th3_resetattmarker :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetFillStyle" c_th3_setfillstyle - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_SetMarkerAttributes" + c_th3_setmarkerattributes :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetMarkerColor" c_th3_getmarkercolor - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetMarkerColor" + c_th3_setmarkercolor :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetMarkerStyle" c_th3_getmarkerstyle - :: (Ptr RawTH3) -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SetMarkerStyle" + c_th3_setmarkerstyle :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_GetMarkerSize" c_th3_getmarkersize - :: (Ptr RawTH3) -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_SetMarkerSize" + c_th3_setmarkersize :: Ptr RawTH3 -> CInt -> IO () -foreign import ccall "HROOTHistTH3.h TH3_ResetAttMarker" c_th3_resetattmarker - :: (Ptr RawTH3) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Draw" c_th3_draw :: + Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_SetMarkerAttributes" c_th3_setmarkerattributes - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_FindObject" + c_th3_findobject :: Ptr RawTH3 -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3.h TH3_SetMarkerColor" c_th3_setmarkercolor - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_GetName" + c_th3_getname :: Ptr RawTH3 -> IO CString -foreign import ccall "HROOTHistTH3.h TH3_SetMarkerStyle" c_th3_setmarkerstyle - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_IsA" c_th3_isa :: + Ptr RawTH3 -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3.h TH3_SetMarkerSize" c_th3_setmarkersize - :: (Ptr RawTH3) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_Paint" c_th3_paint :: + Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_delete" c_th3_delete - :: (Ptr RawTH3) -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_printObj" + c_th3_printobj :: Ptr RawTH3 -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_fill3" c_th3_fill3 - :: (Ptr RawTH3) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_SaveAs" c_th3_saveas + :: Ptr RawTH3 -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_fill3w" c_th3_fill3w - :: (Ptr RawTH3) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3.h TH3_Write" c_th3_write :: + Ptr RawTH3 -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_FitSlicesZ" c_th3_fitslicesz - :: (Ptr RawTH3) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3.h TH3_delete" c_th3_delete + :: Ptr RawTH3 -> IO () -foreign import ccall "HROOTHistTH3.h TH3_getCorrelationFactor3" c_th3_getcorrelationfactor3 - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_fill3" c_th3_fill3 :: + Ptr RawTH3 -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_getCovariance3" c_th3_getcovariance3 - :: (Ptr RawTH3) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3.h TH3_fill3w" c_th3_fill3w + :: + Ptr RawTH3 -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3.h TH3_tH3ProjectionX" c_th3_th3projectionx - :: (Ptr RawTH3) -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe "HROOTHistTH3.h TH3_FitSlicesZ" + c_th3_fitslicesz :: + Ptr RawTH3 -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3.h TH3_tH3ProjectionY" c_th3_th3projectiony - :: (Ptr RawTH3) -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe + "HROOTHistTH3.h TH3_getCorrelationFactor3" + c_th3_getcorrelationfactor3 :: + Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_tH3ProjectionZ" c_th3_th3projectionz - :: (Ptr RawTH3) -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) +foreign import ccall safe "HROOTHistTH3.h TH3_getCovariance3" + c_th3_getcovariance3 :: Ptr RawTH3 -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3.h TH3_tH3Project3D" c_th3_th3project3d - :: (Ptr RawTH3) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3.h TH3_tH3ProjectionX" + c_th3_th3projectionx :: + Ptr RawTH3 -> + CString -> + CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH3.h TH3_rebinX3" c_th3_rebinx3 - :: (Ptr RawTH3) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_tH3ProjectionY" + c_th3_th3projectiony :: + Ptr RawTH3 -> + CString -> + CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH3.h TH3_rebinY3" c_th3_rebiny3 - :: (Ptr RawTH3) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_tH3ProjectionZ" + c_th3_th3projectionz :: + Ptr RawTH3 -> + CString -> + CInt -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH1D) -foreign import ccall "HROOTHistTH3.h TH3_rebinZ3" c_th3_rebinz3 - :: (Ptr RawTH3) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_tH3Project3D" + c_th3_th3project3d :: Ptr RawTH3 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3.h TH3_Rebin3D" c_th3_rebin3d - :: (Ptr RawTH3) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_rebinX3" + c_th3_rebinx3 :: Ptr RawTH3 -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3.h TH3_rebinY3" + c_th3_rebiny3 :: Ptr RawTH3 -> CInt -> CString -> IO (Ptr RawTH3) + +foreign import ccall safe "HROOTHistTH3.h TH3_rebinZ3" + c_th3_rebinz3 :: Ptr RawTH3 -> CInt -> CString -> IO (Ptr RawTH3) + +foreign import ccall safe "HROOTHistTH3.h TH3_Rebin3D" + c_th3_rebin3d :: + Ptr RawTH3 -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) diff --git a/src/HROOT/Hist/TH3/Implementation.hs b/src/HROOT/Hist/TH3/Implementation.hs --- a/src/HROOT/Hist/TH3/Implementation.hs +++ b/src/HROOT/Hist/TH3/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3.RawType import HROOT.Hist.TH3.FFI import HROOT.Hist.TH3.Interface @@ -35,9 +36,9 @@ 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 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 @@ -47,386 +48,215 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr +instance ITH3 TH3 where + fill3 = xform3 c_th3_fill3 + fill3w = xform4 c_th3_fill3w + fitSlicesZ = xform7 c_th3_fitslicesz + getCorrelationFactor3 = xform2 c_th3_getcorrelationfactor3 + getCovariance3 = xform2 c_th3_getcovariance3 + rebinX3 = xform2 c_th3_rebinx3 + rebinY3 = xform2 c_th3_rebiny3 + rebinZ3 = xform2 c_th3_rebinz3 + rebin3D = xform4 c_th3_rebin3d -import System.IO.Unsafe +instance ITH1 TH3 where + add = xform2 c_th3_add + addBinContent = xform2 c_th3_addbincontent + chi2Test = xform3 c_th3_chi2test + computeIntegral = xform0 c_th3_computeintegral + directoryAutoAdd = xform1 c_th3_directoryautoadd + divide = xform5 c_th3_divide + drawCopyTH1 = xform1 c_th3_drawcopyth1 + drawNormalized = xform2 c_th3_drawnormalized + drawPanelTH1 = xform0 c_th3_drawpanelth1 + bufferEmpty = xform1 c_th3_bufferempty + evalF = xform2 c_th3_evalf + fFT = xform2 c_th3_fft + fill1 = xform1 c_th3_fill1 + fill1w = xform2 c_th3_fill1w + fillN1 = xform4 c_th3_filln1 + fillRandom = xform2 c_th3_fillrandom + findBin = xform3 c_th3_findbin + findFixBin = xform3 c_th3_findfixbin + findFirstBinAbove = xform2 c_th3_findfirstbinabove + findLastBinAbove = xform2 c_th3_findlastbinabove + fit = xform5 c_th3_fit + fitPanelTH1 = xform0 c_th3_fitpanelth1 + getNdivisionA = xform1 c_th3_getndivisiona + getAxisColorA = xform1 c_th3_getaxiscolora + getLabelColorA = xform1 c_th3_getlabelcolora + getLabelFontA = xform1 c_th3_getlabelfonta + getLabelOffsetA = xform1 c_th3_getlabeloffseta + getLabelSizeA = xform1 c_th3_getlabelsizea + getTitleFontA = xform1 c_th3_gettitlefonta + getTitleOffsetA = xform1 c_th3_gettitleoffseta + getTitleSizeA = xform1 c_th3_gettitlesizea + getTickLengthA = xform1 c_th3_getticklengtha + getBarOffset = xform0 c_th3_getbaroffset + getBarWidth = xform0 c_th3_getbarwidth + getContour = xform1 c_th3_getcontour + getContourLevel = xform1 c_th3_getcontourlevel + getContourLevelPad = xform1 c_th3_getcontourlevelpad + getBin = xform3 c_th3_getbin + getBinCenter = xform1 c_th3_getbincenter + getBinContent1 = xform1 c_th3_getbincontent1 + getBinContent2 = xform2 c_th3_getbincontent2 + getBinContent3 = xform3 c_th3_getbincontent3 + getBinError1 = xform1 c_th3_getbinerror1 + getBinError2 = xform2 c_th3_getbinerror2 + getBinError3 = xform3 c_th3_getbinerror3 + getBinLowEdge = xform1 c_th3_getbinlowedge + getBinWidth = xform1 c_th3_getbinwidth + getCellContent = xform2 c_th3_getcellcontent + getCellError = xform2 c_th3_getcellerror + getEntries = xform0 c_th3_getentries + getEffectiveEntries = xform0 c_th3_geteffectiveentries + getFunction = xform1 c_th3_getfunction + getDimension = xform0 c_th3_getdimension + getKurtosis = xform1 c_th3_getkurtosis + getLowEdge = xform1 c_th3_getlowedge + getMaximumTH1 = xform1 c_th3_getmaximumth1 + getMaximumBin = xform0 c_th3_getmaximumbin + getMaximumStored = xform0 c_th3_getmaximumstored + getMinimumTH1 = xform1 c_th3_getminimumth1 + getMinimumBin = xform0 c_th3_getminimumbin + getMinimumStored = xform0 c_th3_getminimumstored + getMean = xform1 c_th3_getmean + getMeanError = xform1 c_th3_getmeanerror + getNbinsX = xform0 c_th3_getnbinsx + getNbinsY = xform0 c_th3_getnbinsy + getNbinsZ = xform0 c_th3_getnbinsz + getQuantilesTH1 = xform3 c_th3_getquantilesth1 + getRandom = xform0 c_th3_getrandom + getStats = xform1 c_th3_getstats + getSumOfWeights = xform0 c_th3_getsumofweights + getSumw2 = xform0 c_th3_getsumw2 + getSumw2N = xform0 c_th3_getsumw2n + getRMS = xform1 c_th3_getrms + getRMSError = xform1 c_th3_getrmserror + getSkewness = xform1 c_th3_getskewness + integral1 = xform3 c_th3_integral1 + interpolate1 = xform1 c_th3_interpolate1 + interpolate2 = xform2 c_th3_interpolate2 + interpolate3 = xform3 c_th3_interpolate3 + kolmogorovTest = xform2 c_th3_kolmogorovtest + labelsDeflate = xform1 c_th3_labelsdeflate + labelsInflate = xform1 c_th3_labelsinflate + labelsOption = xform2 c_th3_labelsoption + multiflyF = xform2 c_th3_multiflyf + multiply = xform5 c_th3_multiply + putStats = xform1 c_th3_putstats + rebin = xform3 c_th3_rebin + rebinAxis = xform2 c_th3_rebinaxis + rebuild = xform1 c_th3_rebuild + recursiveRemove = xform1 c_th3_recursiveremove + reset = xform1 c_th3_reset + resetStats = xform0 c_th3_resetstats + scale = xform2 c_th3_scale + setAxisColorA = xform2 c_th3_setaxiscolora + setAxisRange = xform3 c_th3_setaxisrange + setBarOffset = xform1 c_th3_setbaroffset + setBarWidth = xform1 c_th3_setbarwidth + setBinContent1 = xform2 c_th3_setbincontent1 + setBinContent2 = xform3 c_th3_setbincontent2 + setBinContent3 = xform4 c_th3_setbincontent3 + setBinError1 = xform2 c_th3_setbinerror1 + setBinError2 = xform3 c_th3_setbinerror2 + setBinError3 = xform4 c_th3_setbinerror3 + setBins1 = xform2 c_th3_setbins1 + setBins2 = xform4 c_th3_setbins2 + setBins3 = xform6 c_th3_setbins3 + setBinsLength = xform1 c_th3_setbinslength + setBuffer = xform2 c_th3_setbuffer + setCellContent = xform3 c_th3_setcellcontent + setContent = xform1 c_th3_setcontent + setContour = xform2 c_th3_setcontour + setContourLevel = xform2 c_th3_setcontourlevel + setDirectory = xform1 c_th3_setdirectory + setEntries = xform1 c_th3_setentries + setError = xform1 c_th3_seterror + setLabelColorA = xform2 c_th3_setlabelcolora + setLabelSizeA = xform2 c_th3_setlabelsizea + setLabelFontA = xform2 c_th3_setlabelfonta + setLabelOffsetA = xform2 c_th3_setlabeloffseta + setMaximum = xform1 c_th3_setmaximum + setMinimum = xform1 c_th3_setminimum + setNormFactor = xform1 c_th3_setnormfactor + setStats = xform1 c_th3_setstats + setOption = xform1 c_th3_setoption + setXTitle = xform1 c_th3_setxtitle + setYTitle = xform1 c_th3_setytitle + setZTitle = xform1 c_th3_setztitle + showBackground = xform2 c_th3_showbackground + showPeaks = xform3 c_th3_showpeaks + smooth = xform2 c_th3_smooth + sumw2 = xform0 c_th3_sumw2 +instance ITAtt3D TH3 -instance ITH3 TH3 where - fill3 = xform3 c_th3_fill3 - fill3w = xform4 c_th3_fill3w - fitSlicesZ = xform7 c_th3_fitslicesz - getCorrelationFactor3 = xform2 c_th3_getcorrelationfactor3 - getCovariance3 = xform2 c_th3_getcovariance3 - rebinX3 = xform2 c_th3_rebinx3 - rebinY3 = xform2 c_th3_rebiny3 - rebinZ3 = xform2 c_th3_rebinz3 - rebin3D = xform4 c_th3_rebin3d -instance ITH1 TH3 where - add = xform2 c_th3_add - addBinContent = xform2 c_th3_addbincontent - chi2Test = xform3 c_th3_chi2test - computeIntegral = xform0 c_th3_computeintegral - directoryAutoAdd = xform1 c_th3_directoryautoadd - divide = xform5 c_th3_divide - drawCopyTH1 = xform1 c_th3_drawcopyth1 - drawNormalized = xform2 c_th3_drawnormalized - drawPanelTH1 = xform0 c_th3_drawpanelth1 - bufferEmpty = xform1 c_th3_bufferempty - evalF = xform2 c_th3_evalf - fFT = xform2 c_th3_fft - fill1 = xform1 c_th3_fill1 - fill1w = xform2 c_th3_fill1w - fillN1 = xform4 c_th3_filln1 - fillRandom = xform2 c_th3_fillrandom - findBin = xform3 c_th3_findbin - findFixBin = xform3 c_th3_findfixbin - findFirstBinAbove = xform2 c_th3_findfirstbinabove - findLastBinAbove = xform2 c_th3_findlastbinabove - fitPanelTH1 = xform0 c_th3_fitpanelth1 - getNdivisionA = xform1 c_th3_getndivisiona - getAxisColorA = xform1 c_th3_getaxiscolora - getLabelColorA = xform1 c_th3_getlabelcolora - getLabelFontA = xform1 c_th3_getlabelfonta - getLabelOffsetA = xform1 c_th3_getlabeloffseta - getLabelSizeA = xform1 c_th3_getlabelsizea - getTitleFontA = xform1 c_th3_gettitlefonta - getTitleOffsetA = xform1 c_th3_gettitleoffseta - getTitleSizeA = xform1 c_th3_gettitlesizea - getTickLengthA = xform1 c_th3_getticklengtha - getBarOffset = xform0 c_th3_getbaroffset - getBarWidth = xform0 c_th3_getbarwidth - getContour = xform1 c_th3_getcontour - getContourLevel = xform1 c_th3_getcontourlevel - getContourLevelPad = xform1 c_th3_getcontourlevelpad - getBin = xform3 c_th3_getbin - getBinCenter = xform1 c_th3_getbincenter - getBinContent1 = xform1 c_th3_getbincontent1 - getBinContent2 = xform2 c_th3_getbincontent2 - getBinContent3 = xform3 c_th3_getbincontent3 - getBinError1 = xform1 c_th3_getbinerror1 - getBinError2 = xform2 c_th3_getbinerror2 - getBinError3 = xform3 c_th3_getbinerror3 - getBinLowEdge = xform1 c_th3_getbinlowedge - getBinWidth = xform1 c_th3_getbinwidth - getCellContent = xform2 c_th3_getcellcontent - getCellError = xform2 c_th3_getcellerror - getEntries = xform0 c_th3_getentries - getEffectiveEntries = xform0 c_th3_geteffectiveentries - getFunction = xform1 c_th3_getfunction - getDimension = xform0 c_th3_getdimension - getKurtosis = xform1 c_th3_getkurtosis - getLowEdge = xform1 c_th3_getlowedge - getMaximumTH1 = xform1 c_th3_getmaximumth1 - getMaximumBin = xform0 c_th3_getmaximumbin - getMaximumStored = xform0 c_th3_getmaximumstored - getMinimumTH1 = xform1 c_th3_getminimumth1 - getMinimumBin = xform0 c_th3_getminimumbin - getMinimumStored = xform0 c_th3_getminimumstored - getMean = xform1 c_th3_getmean - getMeanError = xform1 c_th3_getmeanerror - getNbinsX = xform0 c_th3_getnbinsx - getNbinsY = xform0 c_th3_getnbinsy - getNbinsZ = xform0 c_th3_getnbinsz - getQuantilesTH1 = xform3 c_th3_getquantilesth1 - getRandom = xform0 c_th3_getrandom - getStats = xform1 c_th3_getstats - getSumOfWeights = xform0 c_th3_getsumofweights - getSumw2 = xform0 c_th3_getsumw2 - getSumw2N = xform0 c_th3_getsumw2n - getRMS = xform1 c_th3_getrms - getRMSError = xform1 c_th3_getrmserror - getSkewness = xform1 c_th3_getskewness - integral1 = xform3 c_th3_integral1 - interpolate1 = xform1 c_th3_interpolate1 - interpolate2 = xform2 c_th3_interpolate2 - interpolate3 = xform3 c_th3_interpolate3 - kolmogorovTest = xform2 c_th3_kolmogorovtest - labelsDeflate = xform1 c_th3_labelsdeflate - labelsInflate = xform1 c_th3_labelsinflate - labelsOption = xform2 c_th3_labelsoption - multiflyF = xform2 c_th3_multiflyf - multiply = xform5 c_th3_multiply - putStats = xform1 c_th3_putstats - rebin = xform3 c_th3_rebin - rebinAxis = xform2 c_th3_rebinaxis - rebuild = xform1 c_th3_rebuild - recursiveRemove = xform1 c_th3_recursiveremove - reset = xform1 c_th3_reset - resetStats = xform0 c_th3_resetstats - scale = xform2 c_th3_scale - setAxisColorA = xform2 c_th3_setaxiscolora - setAxisRange = xform3 c_th3_setaxisrange - setBarOffset = xform1 c_th3_setbaroffset - setBarWidth = xform1 c_th3_setbarwidth - setBinContent1 = xform2 c_th3_setbincontent1 - setBinContent2 = xform3 c_th3_setbincontent2 - setBinContent3 = xform4 c_th3_setbincontent3 - setBinError1 = xform2 c_th3_setbinerror1 - setBinError2 = xform3 c_th3_setbinerror2 - setBinError3 = xform4 c_th3_setbinerror3 - setBins1 = xform2 c_th3_setbins1 - setBins2 = xform4 c_th3_setbins2 - setBins3 = xform6 c_th3_setbins3 - setBinsLength = xform1 c_th3_setbinslength - setBuffer = xform2 c_th3_setbuffer - setCellContent = xform3 c_th3_setcellcontent - setContent = xform1 c_th3_setcontent - setContour = xform2 c_th3_setcontour - setContourLevel = xform2 c_th3_setcontourlevel - setDirectory = xform1 c_th3_setdirectory - setEntries = xform1 c_th3_setentries - setError = xform1 c_th3_seterror - setLabelColorA = xform2 c_th3_setlabelcolora - setLabelSizeA = xform2 c_th3_setlabelsizea - setLabelFontA = xform2 c_th3_setlabelfonta - setLabelOffsetA = xform2 c_th3_setlabeloffseta - setMaximum = xform1 c_th3_setmaximum - setMinimum = xform1 c_th3_setminimum - setNormFactor = xform1 c_th3_setnormfactor - setStats = xform1 c_th3_setstats - setOption = xform1 c_th3_setoption - setXTitle = xform1 c_th3_setxtitle - setYTitle = xform1 c_th3_setytitle - setZTitle = xform1 c_th3_setztitle - showBackground = xform2 c_th3_showbackground - showPeaks = xform3 c_th3_showpeaks - smooth = xform2 c_th3_smooth - sumw2 = xform0 c_th3_sumw2 -instance ITAtt3D TH3 where -instance ITObject TH3 where - draw = xform1 c_th3_draw - findObject = xform1 c_th3_findobject - getName = xform0 c_th3_getname - isA = xform0 c_th3_isa - paint = xform1 c_th3_paint - printObj = xform1 c_th3_printobj - saveAs = xform2 c_th3_saveas - write = xform3 c_th3_write +instance ITNamed TH3 where + setName = xform1 c_th3_setname + setNameTitle = xform2 c_th3_setnametitle + setTitle = xform1 c_th3_settitle + instance ITAttLine TH3 where - getLineColor = xform0 c_th3_getlinecolor - getLineStyle = xform0 c_th3_getlinestyle - getLineWidth = xform0 c_th3_getlinewidth - resetAttLine = xform1 c_th3_resetattline - setLineAttributes = xform0 c_th3_setlineattributes - setLineColor = xform1 c_th3_setlinecolor - setLineStyle = xform1 c_th3_setlinestyle - setLineWidth = xform1 c_th3_setlinewidth -instance ITAttFill TH3 where - setFillColor = xform1 c_th3_setfillcolor - setFillStyle = xform1 c_th3_setfillstyle -instance ITAttMarker TH3 where - getMarkerColor = xform0 c_th3_getmarkercolor - getMarkerStyle = xform0 c_th3_getmarkerstyle - getMarkerSize = xform0 c_th3_getmarkersize - resetAttMarker = xform1 c_th3_resetattmarker - setMarkerAttributes = xform0 c_th3_setmarkerattributes - setMarkerColor = xform1 c_th3_setmarkercolor - setMarkerStyle = xform1 c_th3_setmarkerstyle - setMarkerSize = xform1 c_th3_setmarkersize -instance IDeletable TH3 where - delete = xform0 c_th3_delete + getLineColor = xform0 c_th3_getlinecolor + getLineStyle = xform0 c_th3_getlinestyle + getLineWidth = xform0 c_th3_getlinewidth + resetAttLine = xform1 c_th3_resetattline + setLineAttributes = xform0 c_th3_setlineattributes + setLineColor = xform1 c_th3_setlinecolor + setLineStyle = xform1 c_th3_setlinestyle + setLineWidth = xform1 c_th3_setlinewidth -instance ITH3 (Exist TH3) where - fill3 (ETH3 x) = fill3 x - fill3w (ETH3 x) = fill3w x - fitSlicesZ (ETH3 x) = fitSlicesZ x - getCorrelationFactor3 (ETH3 x) = getCorrelationFactor3 x - getCovariance3 (ETH3 x) = getCovariance3 x - rebinX3 (ETH3 x) = rebinX3 x - rebinY3 (ETH3 x) = rebinY3 x - rebinZ3 (ETH3 x) = rebinZ3 x - rebin3D (ETH3 x) = rebin3D x -instance ITH1 (Exist TH3) where - add (ETH3 x) = add x - addBinContent (ETH3 x) = addBinContent x - chi2Test (ETH3 x) = chi2Test x - computeIntegral (ETH3 x) = computeIntegral x - directoryAutoAdd (ETH3 x) = directoryAutoAdd x - divide (ETH3 x) = divide x - drawCopyTH1 (ETH3 x) a1 = return . ETH3 =<< drawCopyTH1 x a1 - drawNormalized (ETH3 x) = drawNormalized x - drawPanelTH1 (ETH3 x) = drawPanelTH1 x - bufferEmpty (ETH3 x) = bufferEmpty x - evalF (ETH3 x) = evalF x - fFT (ETH3 x) = fFT x - fill1 (ETH3 x) = fill1 x - fill1w (ETH3 x) = fill1w x - fillN1 (ETH3 x) = fillN1 x - fillRandom (ETH3 x) = fillRandom x - findBin (ETH3 x) = findBin x - findFixBin (ETH3 x) = findFixBin x - findFirstBinAbove (ETH3 x) = findFirstBinAbove x - findLastBinAbove (ETH3 x) = findLastBinAbove x - fitPanelTH1 (ETH3 x) = fitPanelTH1 x - getNdivisionA (ETH3 x) = getNdivisionA x - getAxisColorA (ETH3 x) = getAxisColorA x - getLabelColorA (ETH3 x) = getLabelColorA x - getLabelFontA (ETH3 x) = getLabelFontA x - getLabelOffsetA (ETH3 x) = getLabelOffsetA x - getLabelSizeA (ETH3 x) = getLabelSizeA x - getTitleFontA (ETH3 x) = getTitleFontA x - getTitleOffsetA (ETH3 x) = getTitleOffsetA x - getTitleSizeA (ETH3 x) = getTitleSizeA x - getTickLengthA (ETH3 x) = getTickLengthA x - getBarOffset (ETH3 x) = getBarOffset x - getBarWidth (ETH3 x) = getBarWidth x - getContour (ETH3 x) = getContour x - getContourLevel (ETH3 x) = getContourLevel x - getContourLevelPad (ETH3 x) = getContourLevelPad x - getBin (ETH3 x) = getBin x - getBinCenter (ETH3 x) = getBinCenter x - getBinContent1 (ETH3 x) = getBinContent1 x - getBinContent2 (ETH3 x) = getBinContent2 x - getBinContent3 (ETH3 x) = getBinContent3 x - getBinError1 (ETH3 x) = getBinError1 x - getBinError2 (ETH3 x) = getBinError2 x - getBinError3 (ETH3 x) = getBinError3 x - getBinLowEdge (ETH3 x) = getBinLowEdge x - getBinWidth (ETH3 x) = getBinWidth x - getCellContent (ETH3 x) = getCellContent x - getCellError (ETH3 x) = getCellError x - getEntries (ETH3 x) = getEntries x - getEffectiveEntries (ETH3 x) = getEffectiveEntries x - getFunction (ETH3 x) = getFunction x - getDimension (ETH3 x) = getDimension x - getKurtosis (ETH3 x) = getKurtosis x - getLowEdge (ETH3 x) = getLowEdge x - getMaximumTH1 (ETH3 x) = getMaximumTH1 x - getMaximumBin (ETH3 x) = getMaximumBin x - getMaximumStored (ETH3 x) = getMaximumStored x - getMinimumTH1 (ETH3 x) = getMinimumTH1 x - getMinimumBin (ETH3 x) = getMinimumBin x - getMinimumStored (ETH3 x) = getMinimumStored x - getMean (ETH3 x) = getMean x - getMeanError (ETH3 x) = getMeanError x - getNbinsX (ETH3 x) = getNbinsX x - getNbinsY (ETH3 x) = getNbinsY x - getNbinsZ (ETH3 x) = getNbinsZ x - getQuantilesTH1 (ETH3 x) = getQuantilesTH1 x - getRandom (ETH3 x) = getRandom x - getStats (ETH3 x) = getStats x - getSumOfWeights (ETH3 x) = getSumOfWeights x - getSumw2 (ETH3 x) = getSumw2 x - getSumw2N (ETH3 x) = getSumw2N x - getRMS (ETH3 x) = getRMS x - getRMSError (ETH3 x) = getRMSError x - getSkewness (ETH3 x) = getSkewness x - integral1 (ETH3 x) = integral1 x - interpolate1 (ETH3 x) = interpolate1 x - interpolate2 (ETH3 x) = interpolate2 x - interpolate3 (ETH3 x) = interpolate3 x - kolmogorovTest (ETH3 x) = kolmogorovTest x - labelsDeflate (ETH3 x) = labelsDeflate x - labelsInflate (ETH3 x) = labelsInflate x - labelsOption (ETH3 x) = labelsOption x - multiflyF (ETH3 x) = multiflyF x - multiply (ETH3 x) = multiply x - putStats (ETH3 x) = putStats x - rebin (ETH3 x) = rebin x - rebinAxis (ETH3 x) = rebinAxis x - rebuild (ETH3 x) = rebuild x - recursiveRemove (ETH3 x) = recursiveRemove x - reset (ETH3 x) = reset x - resetStats (ETH3 x) = resetStats x - scale (ETH3 x) = scale x - setAxisColorA (ETH3 x) = setAxisColorA x - setAxisRange (ETH3 x) = setAxisRange x - setBarOffset (ETH3 x) = setBarOffset x - setBarWidth (ETH3 x) = setBarWidth x - setBinContent1 (ETH3 x) = setBinContent1 x - setBinContent2 (ETH3 x) = setBinContent2 x - setBinContent3 (ETH3 x) = setBinContent3 x - setBinError1 (ETH3 x) = setBinError1 x - setBinError2 (ETH3 x) = setBinError2 x - setBinError3 (ETH3 x) = setBinError3 x - setBins1 (ETH3 x) = setBins1 x - setBins2 (ETH3 x) = setBins2 x - setBins3 (ETH3 x) = setBins3 x - setBinsLength (ETH3 x) = setBinsLength x - setBuffer (ETH3 x) = setBuffer x - setCellContent (ETH3 x) = setCellContent x - setContent (ETH3 x) = setContent x - setContour (ETH3 x) = setContour x - setContourLevel (ETH3 x) = setContourLevel x - setDirectory (ETH3 x) = setDirectory x - setEntries (ETH3 x) = setEntries x - setError (ETH3 x) = setError x - setLabelColorA (ETH3 x) = setLabelColorA x - setLabelSizeA (ETH3 x) = setLabelSizeA x - setLabelFontA (ETH3 x) = setLabelFontA x - setLabelOffsetA (ETH3 x) = setLabelOffsetA x - setMaximum (ETH3 x) = setMaximum x - setMinimum (ETH3 x) = setMinimum x - setNormFactor (ETH3 x) = setNormFactor x - setStats (ETH3 x) = setStats x - setOption (ETH3 x) = setOption x - setXTitle (ETH3 x) = setXTitle x - setYTitle (ETH3 x) = setYTitle x - setZTitle (ETH3 x) = setZTitle x - showBackground (ETH3 x) = showBackground x - showPeaks (ETH3 x) = showPeaks x - smooth (ETH3 x) = smooth x - sumw2 (ETH3 x) = sumw2 x -instance ITAtt3D (Exist TH3) where +instance ITAttFill TH3 where + setFillColor = xform1 c_th3_setfillcolor + setFillStyle = xform1 c_th3_setfillstyle -instance ITObject (Exist TH3) where - draw (ETH3 x) = draw x - findObject (ETH3 x) = findObject x - getName (ETH3 x) = getName x - isA (ETH3 x) = isA x - paint (ETH3 x) = paint x - printObj (ETH3 x) = printObj x - saveAs (ETH3 x) = saveAs x - write (ETH3 x) = write x -instance ITAttLine (Exist TH3) where - getLineColor (ETH3 x) = getLineColor x - getLineStyle (ETH3 x) = getLineStyle x - getLineWidth (ETH3 x) = getLineWidth x - resetAttLine (ETH3 x) = resetAttLine x - setLineAttributes (ETH3 x) = setLineAttributes x - setLineColor (ETH3 x) = setLineColor x - setLineStyle (ETH3 x) = setLineStyle x - setLineWidth (ETH3 x) = setLineWidth x -instance ITAttFill (Exist TH3) where - setFillColor (ETH3 x) = setFillColor x - setFillStyle (ETH3 x) = setFillStyle x -instance ITAttMarker (Exist TH3) where - getMarkerColor (ETH3 x) = getMarkerColor x - getMarkerStyle (ETH3 x) = getMarkerStyle x - getMarkerSize (ETH3 x) = getMarkerSize x - resetAttMarker (ETH3 x) = resetAttMarker x - setMarkerAttributes (ETH3 x) = setMarkerAttributes x - setMarkerColor (ETH3 x) = setMarkerColor x - setMarkerStyle (ETH3 x) = setMarkerStyle x - setMarkerSize (ETH3 x) = setMarkerSize x -instance IDeletable (Exist TH3) where - delete (ETH3 x) = delete x +instance ITAttMarker TH3 where + getMarkerColor = xform0 c_th3_getmarkercolor + getMarkerStyle = xform0 c_th3_getmarkerstyle + getMarkerSize = xform0 c_th3_getmarkersize + resetAttMarker = xform1 c_th3_resetattmarker + setMarkerAttributes = xform0 c_th3_setmarkerattributes + setMarkerColor = xform1 c_th3_setmarkercolor + setMarkerStyle = xform1 c_th3_setmarkerstyle + setMarkerSize = xform1 c_th3_setmarkersize +instance ITObject TH3 where + draw = xform1 c_th3_draw + findObject = xform1 c_th3_findobject + getName = xform0 c_th3_getname + isA = xform0 c_th3_isa + paint = xform1 c_th3_paint + printObj = xform1 c_th3_printobj + saveAs = xform2 c_th3_saveas + write = xform3 c_th3_write +instance IDeletable TH3 where + delete = xform0 c_th3_delete -tH3ProjectionX :: TH3 -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO TH1D +tH3ProjectionX :: + (Castable c1 CString, Castable c0 CString) => + TH3 -> c0 -> CInt -> CInt -> CInt -> CInt -> c1 -> IO TH1D tH3ProjectionX = xform6 c_th3_th3projectionx -tH3ProjectionY :: TH3 -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO TH1D +tH3ProjectionY :: + (Castable c1 CString, Castable c0 CString) => + TH3 -> c0 -> CInt -> CInt -> CInt -> CInt -> c1 -> IO TH1D tH3ProjectionY = xform6 c_th3_th3projectiony -tH3ProjectionZ :: TH3 -> CString -> CInt -> CInt -> CInt -> CInt -> CString -> IO TH1D +tH3ProjectionZ :: + (Castable c1 CString, Castable c0 CString) => + TH3 -> c0 -> CInt -> CInt -> CInt -> CInt -> c1 -> IO TH1D tH3ProjectionZ = xform6 c_th3_th3projectionz -tH3Project3D :: TH3 -> CString -> IO TH1 +tH3Project3D :: Castable c0 CString => TH3 -> c0 -> IO TH1 tH3Project3D = xform1 c_th3_th3project3d - - - -instance FPtr (Exist TH3) where - type Raw (Exist TH3) = RawTH3 - get_fptr (ETH3 obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3) :: TH3) diff --git a/src/HROOT/Hist/TH3/Interface.hs b/src/HROOT/Hist/TH3/Interface.hs --- a/src/HROOT/Hist/TH3/Interface.hs +++ b/src/HROOT/Hist/TH3/Interface.hs @@ -1,56 +1,49 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType import HROOT.Hist.TH1.Interface import HROOT.Core.TAtt3D.Interface ----- ============ ---- import {-# SOURCE #-} HROOT.Hist.TF1.Interface - -class (ITH1 a,ITAtt3D a) => ITH3 a where - - fill3 :: a -> CDouble -> CDouble -> CDouble -> IO CInt - - fill3w :: a -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt - - fitSlicesZ :: (ITF1 c0, FPtr c0) => a -> c0 -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () - - getCorrelationFactor3 :: a -> CInt -> CInt -> IO CDouble - - getCovariance3 :: a -> CInt -> CInt -> IO CDouble - - rebinX3 :: a -> CInt -> CString -> IO TH3 - - rebinY3 :: a -> CInt -> CString -> IO TH3 - - rebinZ3 :: a -> CInt -> CString -> IO TH3 - - rebin3D :: a -> CInt -> CInt -> CInt -> CString -> IO TH3 - -instance Existable TH3 where - data Exist TH3 = forall a. (FPtr a, ITH3 a) => ETH3 a +class (ITH1 a, ITAtt3D a) => ITH3 a where + fill3 :: a -> CDouble -> CDouble -> CDouble -> IO CInt + + fill3w :: a -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt + + fitSlicesZ :: + (Castable c1 CString, ITF1 c0, FPtr c0) => + a -> c0 -> CInt -> CInt -> CInt -> CInt -> CInt -> c1 -> IO () + + getCorrelationFactor3 :: a -> CInt -> CInt -> IO CDouble + + getCovariance3 :: a -> CInt -> CInt -> IO CDouble + + rebinX3 :: Castable c0 CString => a -> CInt -> c0 -> IO TH3 + + rebinY3 :: Castable c0 CString => a -> CInt -> c0 -> IO TH3 + + rebinZ3 :: Castable c0 CString => a -> CInt -> c0 -> IO TH3 + + rebin3D :: + Castable c0 CString => a -> CInt -> CInt -> CInt -> c0 -> IO TH3 -upcastTH3 :: (FPtr a, ITH3 a) => a -> TH3 -upcastTH3 h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3 = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3 :: forall a . (FPtr a, ITH3 a) => a -> TH3 +upcastTH3 h + = let fh = get_fptr h + fh2 :: Ptr RawTH3 = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3 :: (FPtr a, ITH3 a) => TH3 -> a -downcastTH3 h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3 :: forall a . (FPtr a, ITH3 a) => TH3 -> a +downcastTH3 h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3/RawType.hs b/src/HROOT/Hist/TH3/RawType.hs --- a/src/HROOT/Hist/TH3/RawType.hs +++ b/src/HROOT/Hist/TH3/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3 -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3 = TH3 (Ptr RawTH3) + deriving (Eq, Ord, Show) -data RawTH3 -newtype TH3 = TH3 (ForeignPtr RawTH3) deriving (Eq, Ord, Show) instance FPtr TH3 where - type Raw TH3 = RawTH3 - get_fptr (TH3 fptr) = fptr - cast_fptr_to_obj = TH3 + type Raw TH3 = RawTH3 + get_fptr (TH3 ptr) = ptr + cast_fptr_to_obj = TH3 diff --git a/src/HROOT/Hist/TH3C.hs b/src/HROOT/Hist/TH3C.hs --- a/src/HROOT/Hist/TH3C.hs +++ b/src/HROOT/Hist/TH3C.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH3C - ( - TH3C(..) - , ITH3C - , upcastTH3C - , downcastTH3C - - - ) where - +module HROOT.Hist.TH3C (TH3C(..), ITH3C, upcastTH3C, downcastTH3C) + where import HROOT.Hist.TH3C.RawType import HROOT.Hist.TH3C.Interface import HROOT.Hist.TH3C.Implementation - - diff --git a/src/HROOT/Hist/TH3C/Cast.hs b/src/HROOT/Hist/TH3C/Cast.hs --- a/src/HROOT/Hist/TH3C/Cast.hs +++ b/src/HROOT/Hist/TH3C/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3C.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3C.RawType import HROOT.Hist.TH3C.Interface instance (ITH3C a, FPtr a) => Castable a (Ptr RawTH3C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3C (Ptr RawTH3C) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3C/FFI.hsc b/src/HROOT/Hist/TH3C/FFI.hsc --- a/src/HROOT/Hist/TH3C/FFI.hsc +++ b/src/HROOT/Hist/TH3C/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3C.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3C.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType @@ -23,503 +13,558 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH3C.h" +foreign import ccall safe "HROOTHistTH3C.h TH3C_fill3" c_th3c_fill3 + :: Ptr RawTH3C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_fill3" c_th3c_fill3 - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_fill3w" + c_th3c_fill3w :: + Ptr RawTH3C -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_fill3w" c_th3c_fill3w - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_FitSlicesZ" + c_th3c_fitslicesz :: + Ptr RawTH3C -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_FitSlicesZ" c_th3c_fitslicesz - :: (Ptr RawTH3C) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH3C.h TH3C_getCorrelationFactor3" + c_th3c_getcorrelationfactor3 :: + Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getCorrelationFactor3" c_th3c_getcorrelationfactor3 - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getCovariance3" + c_th3c_getcovariance3 :: Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getCovariance3" c_th3c_getcovariance3 - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_rebinX3" + c_th3c_rebinx3 :: Ptr RawTH3C -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3C.h TH3C_rebinX3" c_th3c_rebinx3 - :: (Ptr RawTH3C) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3C.h TH3C_rebinY3" + c_th3c_rebiny3 :: Ptr RawTH3C -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3C.h TH3C_rebinY3" c_th3c_rebiny3 - :: (Ptr RawTH3C) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3C.h TH3C_rebinZ3" + c_th3c_rebinz3 :: Ptr RawTH3C -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3C.h TH3C_rebinZ3" c_th3c_rebinz3 - :: (Ptr RawTH3C) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3C.h TH3C_Rebin3D" + c_th3c_rebin3d :: + Ptr RawTH3C -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3C.h TH3C_Rebin3D" c_th3c_rebin3d - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3C.h TH3C_Add" c_th3c_add :: + Ptr RawTH3C -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Add" c_th3c_add - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_AddBinContent" + c_th3c_addbincontent :: Ptr RawTH3C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_AddBinContent" c_th3c_addbincontent - :: (Ptr RawTH3C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Chi2Test" + c_th3c_chi2test :: + Ptr RawTH3C -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_Chi2Test" c_th3c_chi2test - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_ComputeIntegral" + c_th3c_computeintegral :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_ComputeIntegral" c_th3c_computeintegral - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_DirectoryAutoAdd" + c_th3c_directoryautoadd :: + Ptr RawTH3C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_DirectoryAutoAdd" c_th3c_directoryautoadd - :: (Ptr RawTH3C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Divide" + c_th3c_divide :: + Ptr RawTH3C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Divide" c_th3c_divide - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_drawCopyTH1" + c_th3c_drawcopyth1 :: Ptr RawTH3C -> CString -> IO (Ptr RawTH3C) -foreign import ccall "HROOTHistTH3C.h TH3C_drawCopyTH1" c_th3c_drawcopyth1 - :: (Ptr RawTH3C) -> CString -> IO (Ptr RawTH3C) +foreign import ccall safe "HROOTHistTH3C.h TH3C_DrawNormalized" + c_th3c_drawnormalized :: + Ptr RawTH3C -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3C.h TH3C_DrawNormalized" c_th3c_drawnormalized - :: (Ptr RawTH3C) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3C.h TH3C_drawPanelTH1" + c_th3c_drawpanelth1 :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_drawPanelTH1" c_th3c_drawpanelth1 - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_BufferEmpty" + c_th3c_bufferempty :: Ptr RawTH3C -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_BufferEmpty" c_th3c_bufferempty - :: (Ptr RawTH3C) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_evalF" c_th3c_evalf + :: Ptr RawTH3C -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_evalF" c_th3c_evalf - :: (Ptr RawTH3C) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_FFT" c_th3c_fft :: + Ptr RawTH3C -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3C.h TH3C_FFT" c_th3c_fft - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3C.h TH3C_fill1" c_th3c_fill1 + :: Ptr RawTH3C -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_fill1" c_th3c_fill1 - :: (Ptr RawTH3C) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_fill1w" + c_th3c_fill1w :: Ptr RawTH3C -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_fill1w" c_th3c_fill1w - :: (Ptr RawTH3C) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_fillN1" + c_th3c_filln1 :: + Ptr RawTH3C -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_fillN1" c_th3c_filln1 - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_FillRandom" + c_th3c_fillrandom :: Ptr RawTH3C -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_FillRandom" c_th3c_fillrandom - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_FindBin" + c_th3c_findbin :: + Ptr RawTH3C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_FindBin" c_th3c_findbin - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_FindFixBin" + c_th3c_findfixbin :: + Ptr RawTH3C -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_FindFixBin" c_th3c_findfixbin - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_FindFirstBinAbove" + c_th3c_findfirstbinabove :: + Ptr RawTH3C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_FindFirstBinAbove" c_th3c_findfirstbinabove - :: (Ptr RawTH3C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_FindLastBinAbove" + c_th3c_findlastbinabove :: + Ptr RawTH3C -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_FindLastBinAbove" c_th3c_findlastbinabove - :: (Ptr RawTH3C) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_Fit" c_th3c_fit :: + Ptr RawTH3C -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_FitPanelTH1" c_th3c_fitpanelth1 - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_FitPanelTH1" + c_th3c_fitpanelth1 :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_getNdivisionA" c_th3c_getndivisiona - :: (Ptr RawTH3C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getNdivisionA" + c_th3c_getndivisiona :: Ptr RawTH3C -> CString -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_getAxisColorA" c_th3c_getaxiscolora - :: (Ptr RawTH3C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getAxisColorA" + c_th3c_getaxiscolora :: Ptr RawTH3C -> CString -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_getLabelColorA" c_th3c_getlabelcolora - :: (Ptr RawTH3C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getLabelColorA" + c_th3c_getlabelcolora :: Ptr RawTH3C -> CString -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_getLabelFontA" c_th3c_getlabelfonta - :: (Ptr RawTH3C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getLabelFontA" + c_th3c_getlabelfonta :: Ptr RawTH3C -> CString -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_getLabelOffsetA" c_th3c_getlabeloffseta - :: (Ptr RawTH3C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getLabelOffsetA" + c_th3c_getlabeloffseta :: Ptr RawTH3C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getLabelSizeA" c_th3c_getlabelsizea - :: (Ptr RawTH3C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getLabelSizeA" + c_th3c_getlabelsizea :: Ptr RawTH3C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getTitleFontA" c_th3c_gettitlefonta - :: (Ptr RawTH3C) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getTitleFontA" + c_th3c_gettitlefonta :: Ptr RawTH3C -> CString -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_getTitleOffsetA" c_th3c_gettitleoffseta - :: (Ptr RawTH3C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getTitleOffsetA" + c_th3c_gettitleoffseta :: Ptr RawTH3C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getTitleSizeA" c_th3c_gettitlesizea - :: (Ptr RawTH3C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getTitleSizeA" + c_th3c_gettitlesizea :: Ptr RawTH3C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getTickLengthA" c_th3c_getticklengtha - :: (Ptr RawTH3C) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getTickLengthA" + c_th3c_getticklengtha :: Ptr RawTH3C -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBarOffset" c_th3c_getbaroffset - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBarOffset" + c_th3c_getbaroffset :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBarWidth" c_th3c_getbarwidth - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBarWidth" + c_th3c_getbarwidth :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetContour" c_th3c_getcontour - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetContour" + c_th3c_getcontour :: Ptr RawTH3C -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetContourLevel" c_th3c_getcontourlevel - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetContourLevel" + c_th3c_getcontourlevel :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetContourLevelPad" c_th3c_getcontourlevelpad - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetContourLevelPad" + c_th3c_getcontourlevelpad :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBin" c_th3c_getbin - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBin" + c_th3c_getbin :: Ptr RawTH3C -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinCenter" c_th3c_getbincenter - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinCenter" + c_th3c_getbincenter :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinContent1" c_th3c_getbincontent1 - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinContent1" + c_th3c_getbincontent1 :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinContent2" c_th3c_getbincontent2 - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinContent2" + c_th3c_getbincontent2 :: Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinContent3" c_th3c_getbincontent3 - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinContent3" + c_th3c_getbincontent3 :: + Ptr RawTH3C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinError1" c_th3c_getbinerror1 - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinError1" + c_th3c_getbinerror1 :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinError2" c_th3c_getbinerror2 - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinError2" + c_th3c_getbinerror2 :: Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinError3" c_th3c_getbinerror3 - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinError3" + c_th3c_getbinerror3 :: + Ptr RawTH3C -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinLowEdge" c_th3c_getbinlowedge - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinLowEdge" + c_th3c_getbinlowedge :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetBinWidth" c_th3c_getbinwidth - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetBinWidth" + c_th3c_getbinwidth :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetCellContent" c_th3c_getcellcontent - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetCellContent" + c_th3c_getcellcontent :: Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetCellError" c_th3c_getcellerror - :: (Ptr RawTH3C) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetCellError" + c_th3c_getcellerror :: Ptr RawTH3C -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetEntries" c_th3c_getentries - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetEntries" + c_th3c_getentries :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetEffectiveEntries" c_th3c_geteffectiveentries - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe + "HROOTHistTH3C.h TH3C_GetEffectiveEntries" + c_th3c_geteffectiveentries :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetFunction" c_th3c_getfunction - :: (Ptr RawTH3C) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetFunction" + c_th3c_getfunction :: Ptr RawTH3C -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3C.h TH3C_GetDimension" c_th3c_getdimension - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetDimension" + c_th3c_getdimension :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetKurtosis" c_th3c_getkurtosis - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetKurtosis" + c_th3c_getkurtosis :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetLowEdge" c_th3c_getlowedge - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetLowEdge" + c_th3c_getlowedge :: Ptr RawTH3C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_getMaximumTH1" c_th3c_getmaximumth1 - :: (Ptr RawTH3C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getMaximumTH1" + c_th3c_getmaximumth1 :: Ptr RawTH3C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetMaximumBin" c_th3c_getmaximumbin - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMaximumBin" + c_th3c_getmaximumbin :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetMaximumStored" c_th3c_getmaximumstored - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMaximumStored" + c_th3c_getmaximumstored :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getMinimumTH1" c_th3c_getminimumth1 - :: (Ptr RawTH3C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_getMinimumTH1" + c_th3c_getminimumth1 :: Ptr RawTH3C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetMinimumBin" c_th3c_getminimumbin - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMinimumBin" + c_th3c_getminimumbin :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetMinimumStored" c_th3c_getminimumstored - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMinimumStored" + c_th3c_getminimumstored :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetMean" c_th3c_getmean - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMean" + c_th3c_getmean :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetMeanError" c_th3c_getmeanerror - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMeanError" + c_th3c_getmeanerror :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetNbinsX" c_th3c_getnbinsx - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetNbinsX" + c_th3c_getnbinsx :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetNbinsY" c_th3c_getnbinsy - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetNbinsY" + c_th3c_getnbinsy :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetNbinsZ" c_th3c_getnbinsz - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetNbinsZ" + c_th3c_getnbinsz :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_getQuantilesTH1" c_th3c_getquantilesth1 - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_getQuantilesTH1" + c_th3c_getquantilesth1 :: + Ptr RawTH3C -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetRandom" c_th3c_getrandom - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetRandom" + c_th3c_getrandom :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetStats" c_th3c_getstats - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetStats" + c_th3c_getstats :: Ptr RawTH3C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetSumOfWeights" c_th3c_getsumofweights - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetSumOfWeights" + c_th3c_getsumofweights :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetSumw2" c_th3c_getsumw2 - :: (Ptr RawTH3C) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetSumw2" + c_th3c_getsumw2 :: Ptr RawTH3C -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3C.h TH3C_GetSumw2N" c_th3c_getsumw2n - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetSumw2N" + c_th3c_getsumw2n :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_GetRMS" c_th3c_getrms - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetRMS" + c_th3c_getrms :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetRMSError" c_th3c_getrmserror - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetRMSError" + c_th3c_getrmserror :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_GetSkewness" c_th3c_getskewness - :: (Ptr RawTH3C) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetSkewness" + c_th3c_getskewness :: Ptr RawTH3C -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_integral1" c_th3c_integral1 - :: (Ptr RawTH3C) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_integral1" + c_th3c_integral1 :: + Ptr RawTH3C -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_interpolate1" c_th3c_interpolate1 - :: (Ptr RawTH3C) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_interpolate1" + c_th3c_interpolate1 :: Ptr RawTH3C -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_interpolate2" c_th3c_interpolate2 - :: (Ptr RawTH3C) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_interpolate2" + c_th3c_interpolate2 :: + Ptr RawTH3C -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_interpolate3" c_th3c_interpolate3 - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_interpolate3" + c_th3c_interpolate3 :: + Ptr RawTH3C -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_KolmogorovTest" c_th3c_kolmogorovtest - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_KolmogorovTest" + c_th3c_kolmogorovtest :: + Ptr RawTH3C -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_LabelsDeflate" c_th3c_labelsdeflate - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_LabelsDeflate" + c_th3c_labelsdeflate :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_LabelsInflate" c_th3c_labelsinflate - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_LabelsInflate" + c_th3c_labelsinflate :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_LabelsOption" c_th3c_labelsoption - :: (Ptr RawTH3C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_LabelsOption" + c_th3c_labelsoption :: Ptr RawTH3C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_multiflyF" c_th3c_multiflyf - :: (Ptr RawTH3C) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_multiflyF" + c_th3c_multiflyf :: Ptr RawTH3C -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Multiply" c_th3c_multiply - :: (Ptr RawTH3C) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Multiply" + c_th3c_multiply :: + Ptr RawTH3C -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_PutStats" c_th3c_putstats - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_PutStats" + c_th3c_putstats :: Ptr RawTH3C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Rebin" c_th3c_rebin - :: (Ptr RawTH3C) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3C.h TH3C_Rebin" c_th3c_rebin + :: + Ptr RawTH3C -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3C.h TH3C_RebinAxis" c_th3c_rebinaxis - :: (Ptr RawTH3C) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_RebinAxis" + c_th3c_rebinaxis :: Ptr RawTH3C -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Rebuild" c_th3c_rebuild - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Rebuild" + c_th3c_rebuild :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_RecursiveRemove" c_th3c_recursiveremove - :: (Ptr RawTH3C) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_RecursiveRemove" + c_th3c_recursiveremove :: Ptr RawTH3C -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Reset" c_th3c_reset - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Reset" c_th3c_reset + :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_ResetStats" c_th3c_resetstats - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_ResetStats" + c_th3c_resetstats :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Scale" c_th3c_scale - :: (Ptr RawTH3C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Scale" c_th3c_scale + :: Ptr RawTH3C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setAxisColorA" c_th3c_setaxiscolora - :: (Ptr RawTH3C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setAxisColorA" + c_th3c_setaxiscolora :: Ptr RawTH3C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetAxisRange" c_th3c_setaxisrange - :: (Ptr RawTH3C) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetAxisRange" + c_th3c_setaxisrange :: + Ptr RawTH3C -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetBarOffset" c_th3c_setbaroffset - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetBarOffset" + c_th3c_setbaroffset :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetBarWidth" c_th3c_setbarwidth - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetBarWidth" + c_th3c_setbarwidth :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinContent1" c_th3c_setbincontent1 - :: (Ptr RawTH3C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinContent1" + c_th3c_setbincontent1 :: Ptr RawTH3C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinContent2" c_th3c_setbincontent2 - :: (Ptr RawTH3C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinContent2" + c_th3c_setbincontent2 :: + Ptr RawTH3C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinContent3" c_th3c_setbincontent3 - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinContent3" + c_th3c_setbincontent3 :: + Ptr RawTH3C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinError1" c_th3c_setbinerror1 - :: (Ptr RawTH3C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinError1" + c_th3c_setbinerror1 :: Ptr RawTH3C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinError2" c_th3c_setbinerror2 - :: (Ptr RawTH3C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinError2" + c_th3c_setbinerror2 :: + Ptr RawTH3C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBinError3" c_th3c_setbinerror3 - :: (Ptr RawTH3C) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBinError3" + c_th3c_setbinerror3 :: + Ptr RawTH3C -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBins1" c_th3c_setbins1 - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBins1" + c_th3c_setbins1 :: Ptr RawTH3C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBins2" c_th3c_setbins2 - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBins2" + c_th3c_setbins2 :: + Ptr RawTH3C -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setBins3" c_th3c_setbins3 - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setBins3" + c_th3c_setbins3 :: + Ptr RawTH3C -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetBinsLength" c_th3c_setbinslength - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetBinsLength" + c_th3c_setbinslength :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetBuffer" c_th3c_setbuffer - :: (Ptr RawTH3C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetBuffer" + c_th3c_setbuffer :: Ptr RawTH3C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetCellContent" c_th3c_setcellcontent - :: (Ptr RawTH3C) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetCellContent" + c_th3c_setcellcontent :: + Ptr RawTH3C -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetContent" c_th3c_setcontent - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetContent" + c_th3c_setcontent :: Ptr RawTH3C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetContour" c_th3c_setcontour - :: (Ptr RawTH3C) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetContour" + c_th3c_setcontour :: Ptr RawTH3C -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetContourLevel" c_th3c_setcontourlevel - :: (Ptr RawTH3C) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetContourLevel" + c_th3c_setcontourlevel :: Ptr RawTH3C -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetDirectory" c_th3c_setdirectory - :: (Ptr RawTH3C) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetDirectory" + c_th3c_setdirectory :: Ptr RawTH3C -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetEntries" c_th3c_setentries - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetEntries" + c_th3c_setentries :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetError" c_th3c_seterror - :: (Ptr RawTH3C) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetError" + c_th3c_seterror :: Ptr RawTH3C -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setLabelColorA" c_th3c_setlabelcolora - :: (Ptr RawTH3C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setLabelColorA" + c_th3c_setlabelcolora :: Ptr RawTH3C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setLabelSizeA" c_th3c_setlabelsizea - :: (Ptr RawTH3C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setLabelSizeA" + c_th3c_setlabelsizea :: Ptr RawTH3C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setLabelFontA" c_th3c_setlabelfonta - :: (Ptr RawTH3C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setLabelFontA" + c_th3c_setlabelfonta :: Ptr RawTH3C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_setLabelOffsetA" c_th3c_setlabeloffseta - :: (Ptr RawTH3C) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_setLabelOffsetA" + c_th3c_setlabeloffseta :: + Ptr RawTH3C -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetMaximum" c_th3c_setmaximum - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetMaximum" + c_th3c_setmaximum :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetMinimum" c_th3c_setminimum - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetMinimum" + c_th3c_setminimum :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetNormFactor" c_th3c_setnormfactor - :: (Ptr RawTH3C) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetNormFactor" + c_th3c_setnormfactor :: Ptr RawTH3C -> CDouble -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetStats" c_th3c_setstats - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetStats" + c_th3c_setstats :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetOption" c_th3c_setoption - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetOption" + c_th3c_setoption :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetXTitle" c_th3c_setxtitle - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetXTitle" + c_th3c_setxtitle :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetYTitle" c_th3c_setytitle - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetYTitle" + c_th3c_setytitle :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetZTitle" c_th3c_setztitle - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetZTitle" + c_th3c_setztitle :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_ShowBackground" c_th3c_showbackground - :: (Ptr RawTH3C) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3C.h TH3C_ShowBackground" + c_th3c_showbackground :: + Ptr RawTH3C -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3C.h TH3C_ShowPeaks" c_th3c_showpeaks - :: (Ptr RawTH3C) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_ShowPeaks" + c_th3c_showpeaks :: + Ptr RawTH3C -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_Smooth" c_th3c_smooth - :: (Ptr RawTH3C) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Smooth" + c_th3c_smooth :: Ptr RawTH3C -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Sumw2" c_th3c_sumw2 - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Sumw2" c_th3c_sumw2 + :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Draw" c_th3c_draw - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetName" + c_th3c_setname :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_FindObject" c_th3c_findobject - :: (Ptr RawTH3C) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetNameTitle" + c_th3c_setnametitle :: Ptr RawTH3C -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetName" c_th3c_getname - :: (Ptr RawTH3C) -> IO CString +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetTitle" + c_th3c_settitle :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_IsA" c_th3c_isa - :: (Ptr RawTH3C) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetLineColor" + c_th3c_getlinecolor :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_Paint" c_th3c_paint - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetLineStyle" + c_th3c_getlinestyle :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_printObj" c_th3c_printobj - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetLineWidth" + c_th3c_getlinewidth :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_SaveAs" c_th3c_saveas - :: (Ptr RawTH3C) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_ResetAttLine" + c_th3c_resetattline :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_Write" c_th3c_write - :: (Ptr RawTH3C) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetLineAttributes" + c_th3c_setlineattributes :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetLineColor" c_th3c_getlinecolor - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetLineColor" + c_th3c_setlinecolor :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetLineStyle" c_th3c_getlinestyle - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetLineStyle" + c_th3c_setlinestyle :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetLineWidth" c_th3c_getlinewidth - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetLineWidth" + c_th3c_setlinewidth :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_ResetAttLine" c_th3c_resetattline - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetFillColor" + c_th3c_setfillcolor :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetLineAttributes" c_th3c_setlineattributes - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetFillStyle" + c_th3c_setfillstyle :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetLineColor" c_th3c_setlinecolor - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMarkerColor" + c_th3c_getmarkercolor :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_SetLineStyle" c_th3c_setlinestyle - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMarkerStyle" + c_th3c_getmarkerstyle :: Ptr RawTH3C -> IO CInt -foreign import ccall "HROOTHistTH3C.h TH3C_SetLineWidth" c_th3c_setlinewidth - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetMarkerSize" + c_th3c_getmarkersize :: Ptr RawTH3C -> IO CDouble -foreign import ccall "HROOTHistTH3C.h TH3C_SetFillColor" c_th3c_setfillcolor - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_ResetAttMarker" + c_th3c_resetattmarker :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetFillStyle" c_th3c_setfillstyle - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH3C.h TH3C_SetMarkerAttributes" + c_th3c_setmarkerattributes :: Ptr RawTH3C -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetMarkerColor" c_th3c_getmarkercolor - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetMarkerColor" + c_th3c_setmarkercolor :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetMarkerStyle" c_th3c_getmarkerstyle - :: (Ptr RawTH3C) -> IO CInt +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetMarkerStyle" + c_th3c_setmarkerstyle :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_GetMarkerSize" c_th3c_getmarkersize - :: (Ptr RawTH3C) -> IO CDouble +foreign import ccall safe "HROOTHistTH3C.h TH3C_SetMarkerSize" + c_th3c_setmarkersize :: Ptr RawTH3C -> CInt -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_ResetAttMarker" c_th3c_resetattmarker - :: (Ptr RawTH3C) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Draw" c_th3c_draw + :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_SetMarkerAttributes" c_th3c_setmarkerattributes - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_FindObject" + c_th3c_findobject :: Ptr RawTH3C -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3C.h TH3C_SetMarkerColor" c_th3c_setmarkercolor - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_GetName" + c_th3c_getname :: Ptr RawTH3C -> IO CString -foreign import ccall "HROOTHistTH3C.h TH3C_SetMarkerStyle" c_th3c_setmarkerstyle - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_IsA" c_th3c_isa :: + Ptr RawTH3C -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3C.h TH3C_SetMarkerSize" c_th3c_setmarkersize - :: (Ptr RawTH3C) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_Paint" c_th3c_paint + :: Ptr RawTH3C -> CString -> IO () -foreign import ccall "HROOTHistTH3C.h TH3C_delete" c_th3c_delete - :: (Ptr RawTH3C) -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_printObj" + c_th3c_printobj :: Ptr RawTH3C -> CString -> IO () +foreign import ccall safe "HROOTHistTH3C.h TH3C_SaveAs" + c_th3c_saveas :: Ptr RawTH3C -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH3C.h TH3C_Write" c_th3c_write + :: Ptr RawTH3C -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH3C.h TH3C_delete" + c_th3c_delete :: Ptr RawTH3C -> IO () diff --git a/src/HROOT/Hist/TH3C/Implementation.hs b/src/HROOT/Hist/TH3C/Implementation.hs --- a/src/HROOT/Hist/TH3C/Implementation.hs +++ b/src/HROOT/Hist/TH3C/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3C.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3C.RawType import HROOT.Hist.TH3C.FFI import HROOT.Hist.TH3C.Interface @@ -41,9 +42,9 @@ 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 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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,381 +64,196 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH3C TH3C -instance ITH3C TH3C where instance ITH3 TH3C where - fill3 = xform3 c_th3c_fill3 - fill3w = xform4 c_th3c_fill3w - fitSlicesZ = xform7 c_th3c_fitslicesz - getCorrelationFactor3 = xform2 c_th3c_getcorrelationfactor3 - getCovariance3 = xform2 c_th3c_getcovariance3 - rebinX3 = xform2 c_th3c_rebinx3 - rebinY3 = xform2 c_th3c_rebiny3 - rebinZ3 = xform2 c_th3c_rebinz3 - rebin3D = xform4 c_th3c_rebin3d -instance ITArrayC TH3C where -instance ITH1 TH3C where - add = xform2 c_th3c_add - addBinContent = xform2 c_th3c_addbincontent - chi2Test = xform3 c_th3c_chi2test - computeIntegral = xform0 c_th3c_computeintegral - directoryAutoAdd = xform1 c_th3c_directoryautoadd - divide = xform5 c_th3c_divide - drawCopyTH1 = xform1 c_th3c_drawcopyth1 - drawNormalized = xform2 c_th3c_drawnormalized - drawPanelTH1 = xform0 c_th3c_drawpanelth1 - bufferEmpty = xform1 c_th3c_bufferempty - evalF = xform2 c_th3c_evalf - fFT = xform2 c_th3c_fft - fill1 = xform1 c_th3c_fill1 - fill1w = xform2 c_th3c_fill1w - fillN1 = xform4 c_th3c_filln1 - fillRandom = xform2 c_th3c_fillrandom - findBin = xform3 c_th3c_findbin - findFixBin = xform3 c_th3c_findfixbin - findFirstBinAbove = xform2 c_th3c_findfirstbinabove - findLastBinAbove = xform2 c_th3c_findlastbinabove - fitPanelTH1 = xform0 c_th3c_fitpanelth1 - getNdivisionA = xform1 c_th3c_getndivisiona - getAxisColorA = xform1 c_th3c_getaxiscolora - getLabelColorA = xform1 c_th3c_getlabelcolora - getLabelFontA = xform1 c_th3c_getlabelfonta - getLabelOffsetA = xform1 c_th3c_getlabeloffseta - getLabelSizeA = xform1 c_th3c_getlabelsizea - getTitleFontA = xform1 c_th3c_gettitlefonta - getTitleOffsetA = xform1 c_th3c_gettitleoffseta - getTitleSizeA = xform1 c_th3c_gettitlesizea - getTickLengthA = xform1 c_th3c_getticklengtha - getBarOffset = xform0 c_th3c_getbaroffset - getBarWidth = xform0 c_th3c_getbarwidth - getContour = xform1 c_th3c_getcontour - getContourLevel = xform1 c_th3c_getcontourlevel - getContourLevelPad = xform1 c_th3c_getcontourlevelpad - getBin = xform3 c_th3c_getbin - getBinCenter = xform1 c_th3c_getbincenter - getBinContent1 = xform1 c_th3c_getbincontent1 - getBinContent2 = xform2 c_th3c_getbincontent2 - getBinContent3 = xform3 c_th3c_getbincontent3 - getBinError1 = xform1 c_th3c_getbinerror1 - getBinError2 = xform2 c_th3c_getbinerror2 - getBinError3 = xform3 c_th3c_getbinerror3 - getBinLowEdge = xform1 c_th3c_getbinlowedge - getBinWidth = xform1 c_th3c_getbinwidth - getCellContent = xform2 c_th3c_getcellcontent - getCellError = xform2 c_th3c_getcellerror - getEntries = xform0 c_th3c_getentries - getEffectiveEntries = xform0 c_th3c_geteffectiveentries - getFunction = xform1 c_th3c_getfunction - getDimension = xform0 c_th3c_getdimension - getKurtosis = xform1 c_th3c_getkurtosis - getLowEdge = xform1 c_th3c_getlowedge - getMaximumTH1 = xform1 c_th3c_getmaximumth1 - getMaximumBin = xform0 c_th3c_getmaximumbin - getMaximumStored = xform0 c_th3c_getmaximumstored - getMinimumTH1 = xform1 c_th3c_getminimumth1 - getMinimumBin = xform0 c_th3c_getminimumbin - getMinimumStored = xform0 c_th3c_getminimumstored - getMean = xform1 c_th3c_getmean - getMeanError = xform1 c_th3c_getmeanerror - getNbinsX = xform0 c_th3c_getnbinsx - getNbinsY = xform0 c_th3c_getnbinsy - getNbinsZ = xform0 c_th3c_getnbinsz - getQuantilesTH1 = xform3 c_th3c_getquantilesth1 - getRandom = xform0 c_th3c_getrandom - getStats = xform1 c_th3c_getstats - getSumOfWeights = xform0 c_th3c_getsumofweights - getSumw2 = xform0 c_th3c_getsumw2 - getSumw2N = xform0 c_th3c_getsumw2n - getRMS = xform1 c_th3c_getrms - getRMSError = xform1 c_th3c_getrmserror - getSkewness = xform1 c_th3c_getskewness - integral1 = xform3 c_th3c_integral1 - interpolate1 = xform1 c_th3c_interpolate1 - interpolate2 = xform2 c_th3c_interpolate2 - interpolate3 = xform3 c_th3c_interpolate3 - kolmogorovTest = xform2 c_th3c_kolmogorovtest - labelsDeflate = xform1 c_th3c_labelsdeflate - labelsInflate = xform1 c_th3c_labelsinflate - labelsOption = xform2 c_th3c_labelsoption - multiflyF = xform2 c_th3c_multiflyf - multiply = xform5 c_th3c_multiply - putStats = xform1 c_th3c_putstats - rebin = xform3 c_th3c_rebin - rebinAxis = xform2 c_th3c_rebinaxis - rebuild = xform1 c_th3c_rebuild - recursiveRemove = xform1 c_th3c_recursiveremove - reset = xform1 c_th3c_reset - resetStats = xform0 c_th3c_resetstats - scale = xform2 c_th3c_scale - setAxisColorA = xform2 c_th3c_setaxiscolora - setAxisRange = xform3 c_th3c_setaxisrange - setBarOffset = xform1 c_th3c_setbaroffset - setBarWidth = xform1 c_th3c_setbarwidth - setBinContent1 = xform2 c_th3c_setbincontent1 - setBinContent2 = xform3 c_th3c_setbincontent2 - setBinContent3 = xform4 c_th3c_setbincontent3 - setBinError1 = xform2 c_th3c_setbinerror1 - setBinError2 = xform3 c_th3c_setbinerror2 - setBinError3 = xform4 c_th3c_setbinerror3 - setBins1 = xform2 c_th3c_setbins1 - setBins2 = xform4 c_th3c_setbins2 - setBins3 = xform6 c_th3c_setbins3 - setBinsLength = xform1 c_th3c_setbinslength - setBuffer = xform2 c_th3c_setbuffer - setCellContent = xform3 c_th3c_setcellcontent - setContent = xform1 c_th3c_setcontent - setContour = xform2 c_th3c_setcontour - setContourLevel = xform2 c_th3c_setcontourlevel - setDirectory = xform1 c_th3c_setdirectory - setEntries = xform1 c_th3c_setentries - setError = xform1 c_th3c_seterror - setLabelColorA = xform2 c_th3c_setlabelcolora - setLabelSizeA = xform2 c_th3c_setlabelsizea - setLabelFontA = xform2 c_th3c_setlabelfonta - setLabelOffsetA = xform2 c_th3c_setlabeloffseta - setMaximum = xform1 c_th3c_setmaximum - setMinimum = xform1 c_th3c_setminimum - setNormFactor = xform1 c_th3c_setnormfactor - setStats = xform1 c_th3c_setstats - setOption = xform1 c_th3c_setoption - setXTitle = xform1 c_th3c_setxtitle - setYTitle = xform1 c_th3c_setytitle - setZTitle = xform1 c_th3c_setztitle - showBackground = xform2 c_th3c_showbackground - showPeaks = xform3 c_th3c_showpeaks - smooth = xform2 c_th3c_smooth - sumw2 = xform0 c_th3c_sumw2 -instance ITAtt3D TH3C where -instance ITObject TH3C where - draw = xform1 c_th3c_draw - findObject = xform1 c_th3c_findobject - getName = xform0 c_th3c_getname - isA = xform0 c_th3c_isa - paint = xform1 c_th3c_paint - printObj = xform1 c_th3c_printobj - saveAs = xform2 c_th3c_saveas - write = xform3 c_th3c_write -instance ITAttLine TH3C where - getLineColor = xform0 c_th3c_getlinecolor - getLineStyle = xform0 c_th3c_getlinestyle - getLineWidth = xform0 c_th3c_getlinewidth - resetAttLine = xform1 c_th3c_resetattline - setLineAttributes = xform0 c_th3c_setlineattributes - setLineColor = xform1 c_th3c_setlinecolor - setLineStyle = xform1 c_th3c_setlinestyle - setLineWidth = xform1 c_th3c_setlinewidth -instance ITAttFill TH3C where - setFillColor = xform1 c_th3c_setfillcolor - setFillStyle = xform1 c_th3c_setfillstyle -instance ITAttMarker TH3C where - getMarkerColor = xform0 c_th3c_getmarkercolor - getMarkerStyle = xform0 c_th3c_getmarkerstyle - getMarkerSize = xform0 c_th3c_getmarkersize - resetAttMarker = xform1 c_th3c_resetattmarker - setMarkerAttributes = xform0 c_th3c_setmarkerattributes - setMarkerColor = xform1 c_th3c_setmarkercolor - setMarkerStyle = xform1 c_th3c_setmarkerstyle - setMarkerSize = xform1 c_th3c_setmarkersize -instance IDeletable TH3C where - delete = xform0 c_th3c_delete -instance ITArray TH3C where - -instance ITH3C (Exist TH3C) where - -instance ITH3 (Exist TH3C) where - fill3 (ETH3C x) = fill3 x - fill3w (ETH3C x) = fill3w x - fitSlicesZ (ETH3C x) = fitSlicesZ x - getCorrelationFactor3 (ETH3C x) = getCorrelationFactor3 x - getCovariance3 (ETH3C x) = getCovariance3 x - rebinX3 (ETH3C x) = rebinX3 x - rebinY3 (ETH3C x) = rebinY3 x - rebinZ3 (ETH3C x) = rebinZ3 x - rebin3D (ETH3C x) = rebin3D x -instance ITArrayC (Exist TH3C) where + fill3 = xform3 c_th3c_fill3 + fill3w = xform4 c_th3c_fill3w + fitSlicesZ = xform7 c_th3c_fitslicesz + getCorrelationFactor3 = xform2 c_th3c_getcorrelationfactor3 + getCovariance3 = xform2 c_th3c_getcovariance3 + rebinX3 = xform2 c_th3c_rebinx3 + rebinY3 = xform2 c_th3c_rebiny3 + rebinZ3 = xform2 c_th3c_rebinz3 + rebin3D = xform4 c_th3c_rebin3d -instance ITH1 (Exist TH3C) where - add (ETH3C x) = add x - addBinContent (ETH3C x) = addBinContent x - chi2Test (ETH3C x) = chi2Test x - computeIntegral (ETH3C x) = computeIntegral x - directoryAutoAdd (ETH3C x) = directoryAutoAdd x - divide (ETH3C x) = divide x - drawCopyTH1 (ETH3C x) a1 = return . ETH3C =<< drawCopyTH1 x a1 - drawNormalized (ETH3C x) = drawNormalized x - drawPanelTH1 (ETH3C x) = drawPanelTH1 x - bufferEmpty (ETH3C x) = bufferEmpty x - evalF (ETH3C x) = evalF x - fFT (ETH3C x) = fFT x - fill1 (ETH3C x) = fill1 x - fill1w (ETH3C x) = fill1w x - fillN1 (ETH3C x) = fillN1 x - fillRandom (ETH3C x) = fillRandom x - findBin (ETH3C x) = findBin x - findFixBin (ETH3C x) = findFixBin x - findFirstBinAbove (ETH3C x) = findFirstBinAbove x - findLastBinAbove (ETH3C x) = findLastBinAbove x - fitPanelTH1 (ETH3C x) = fitPanelTH1 x - getNdivisionA (ETH3C x) = getNdivisionA x - getAxisColorA (ETH3C x) = getAxisColorA x - getLabelColorA (ETH3C x) = getLabelColorA x - getLabelFontA (ETH3C x) = getLabelFontA x - getLabelOffsetA (ETH3C x) = getLabelOffsetA x - getLabelSizeA (ETH3C x) = getLabelSizeA x - getTitleFontA (ETH3C x) = getTitleFontA x - getTitleOffsetA (ETH3C x) = getTitleOffsetA x - getTitleSizeA (ETH3C x) = getTitleSizeA x - getTickLengthA (ETH3C x) = getTickLengthA x - getBarOffset (ETH3C x) = getBarOffset x - getBarWidth (ETH3C x) = getBarWidth x - getContour (ETH3C x) = getContour x - getContourLevel (ETH3C x) = getContourLevel x - getContourLevelPad (ETH3C x) = getContourLevelPad x - getBin (ETH3C x) = getBin x - getBinCenter (ETH3C x) = getBinCenter x - getBinContent1 (ETH3C x) = getBinContent1 x - getBinContent2 (ETH3C x) = getBinContent2 x - getBinContent3 (ETH3C x) = getBinContent3 x - getBinError1 (ETH3C x) = getBinError1 x - getBinError2 (ETH3C x) = getBinError2 x - getBinError3 (ETH3C x) = getBinError3 x - getBinLowEdge (ETH3C x) = getBinLowEdge x - getBinWidth (ETH3C x) = getBinWidth x - getCellContent (ETH3C x) = getCellContent x - getCellError (ETH3C x) = getCellError x - getEntries (ETH3C x) = getEntries x - getEffectiveEntries (ETH3C x) = getEffectiveEntries x - getFunction (ETH3C x) = getFunction x - getDimension (ETH3C x) = getDimension x - getKurtosis (ETH3C x) = getKurtosis x - getLowEdge (ETH3C x) = getLowEdge x - getMaximumTH1 (ETH3C x) = getMaximumTH1 x - getMaximumBin (ETH3C x) = getMaximumBin x - getMaximumStored (ETH3C x) = getMaximumStored x - getMinimumTH1 (ETH3C x) = getMinimumTH1 x - getMinimumBin (ETH3C x) = getMinimumBin x - getMinimumStored (ETH3C x) = getMinimumStored x - getMean (ETH3C x) = getMean x - getMeanError (ETH3C x) = getMeanError x - getNbinsX (ETH3C x) = getNbinsX x - getNbinsY (ETH3C x) = getNbinsY x - getNbinsZ (ETH3C x) = getNbinsZ x - getQuantilesTH1 (ETH3C x) = getQuantilesTH1 x - getRandom (ETH3C x) = getRandom x - getStats (ETH3C x) = getStats x - getSumOfWeights (ETH3C x) = getSumOfWeights x - getSumw2 (ETH3C x) = getSumw2 x - getSumw2N (ETH3C x) = getSumw2N x - getRMS (ETH3C x) = getRMS x - getRMSError (ETH3C x) = getRMSError x - getSkewness (ETH3C x) = getSkewness x - integral1 (ETH3C x) = integral1 x - interpolate1 (ETH3C x) = interpolate1 x - interpolate2 (ETH3C x) = interpolate2 x - interpolate3 (ETH3C x) = interpolate3 x - kolmogorovTest (ETH3C x) = kolmogorovTest x - labelsDeflate (ETH3C x) = labelsDeflate x - labelsInflate (ETH3C x) = labelsInflate x - labelsOption (ETH3C x) = labelsOption x - multiflyF (ETH3C x) = multiflyF x - multiply (ETH3C x) = multiply x - putStats (ETH3C x) = putStats x - rebin (ETH3C x) = rebin x - rebinAxis (ETH3C x) = rebinAxis x - rebuild (ETH3C x) = rebuild x - recursiveRemove (ETH3C x) = recursiveRemove x - reset (ETH3C x) = reset x - resetStats (ETH3C x) = resetStats x - scale (ETH3C x) = scale x - setAxisColorA (ETH3C x) = setAxisColorA x - setAxisRange (ETH3C x) = setAxisRange x - setBarOffset (ETH3C x) = setBarOffset x - setBarWidth (ETH3C x) = setBarWidth x - setBinContent1 (ETH3C x) = setBinContent1 x - setBinContent2 (ETH3C x) = setBinContent2 x - setBinContent3 (ETH3C x) = setBinContent3 x - setBinError1 (ETH3C x) = setBinError1 x - setBinError2 (ETH3C x) = setBinError2 x - setBinError3 (ETH3C x) = setBinError3 x - setBins1 (ETH3C x) = setBins1 x - setBins2 (ETH3C x) = setBins2 x - setBins3 (ETH3C x) = setBins3 x - setBinsLength (ETH3C x) = setBinsLength x - setBuffer (ETH3C x) = setBuffer x - setCellContent (ETH3C x) = setCellContent x - setContent (ETH3C x) = setContent x - setContour (ETH3C x) = setContour x - setContourLevel (ETH3C x) = setContourLevel x - setDirectory (ETH3C x) = setDirectory x - setEntries (ETH3C x) = setEntries x - setError (ETH3C x) = setError x - setLabelColorA (ETH3C x) = setLabelColorA x - setLabelSizeA (ETH3C x) = setLabelSizeA x - setLabelFontA (ETH3C x) = setLabelFontA x - setLabelOffsetA (ETH3C x) = setLabelOffsetA x - setMaximum (ETH3C x) = setMaximum x - setMinimum (ETH3C x) = setMinimum x - setNormFactor (ETH3C x) = setNormFactor x - setStats (ETH3C x) = setStats x - setOption (ETH3C x) = setOption x - setXTitle (ETH3C x) = setXTitle x - setYTitle (ETH3C x) = setYTitle x - setZTitle (ETH3C x) = setZTitle x - showBackground (ETH3C x) = showBackground x - showPeaks (ETH3C x) = showPeaks x - smooth (ETH3C x) = smooth x - sumw2 (ETH3C x) = sumw2 x -instance ITAtt3D (Exist TH3C) where +instance ITArrayC TH3C -instance ITObject (Exist TH3C) where - draw (ETH3C x) = draw x - findObject (ETH3C x) = findObject x - getName (ETH3C x) = getName x - isA (ETH3C x) = isA x - paint (ETH3C x) = paint x - printObj (ETH3C x) = printObj x - saveAs (ETH3C x) = saveAs x - write (ETH3C x) = write x -instance ITAttLine (Exist TH3C) where - getLineColor (ETH3C x) = getLineColor x - getLineStyle (ETH3C x) = getLineStyle x - getLineWidth (ETH3C x) = getLineWidth x - resetAttLine (ETH3C x) = resetAttLine x - setLineAttributes (ETH3C x) = setLineAttributes x - setLineColor (ETH3C x) = setLineColor x - setLineStyle (ETH3C x) = setLineStyle x - setLineWidth (ETH3C x) = setLineWidth x -instance ITAttFill (Exist TH3C) where - setFillColor (ETH3C x) = setFillColor x - setFillStyle (ETH3C x) = setFillStyle x -instance ITAttMarker (Exist TH3C) where - getMarkerColor (ETH3C x) = getMarkerColor x - getMarkerStyle (ETH3C x) = getMarkerStyle x - getMarkerSize (ETH3C x) = getMarkerSize x - resetAttMarker (ETH3C x) = resetAttMarker x - setMarkerAttributes (ETH3C x) = setMarkerAttributes x - setMarkerColor (ETH3C x) = setMarkerColor x - setMarkerStyle (ETH3C x) = setMarkerStyle x - setMarkerSize (ETH3C x) = setMarkerSize x -instance IDeletable (Exist TH3C) where - delete (ETH3C x) = delete x -instance ITArray (Exist TH3C) where +instance ITH1 TH3C where + add = xform2 c_th3c_add + addBinContent = xform2 c_th3c_addbincontent + chi2Test = xform3 c_th3c_chi2test + computeIntegral = xform0 c_th3c_computeintegral + directoryAutoAdd = xform1 c_th3c_directoryautoadd + divide = xform5 c_th3c_divide + drawCopyTH1 = xform1 c_th3c_drawcopyth1 + drawNormalized = xform2 c_th3c_drawnormalized + drawPanelTH1 = xform0 c_th3c_drawpanelth1 + bufferEmpty = xform1 c_th3c_bufferempty + evalF = xform2 c_th3c_evalf + fFT = xform2 c_th3c_fft + fill1 = xform1 c_th3c_fill1 + fill1w = xform2 c_th3c_fill1w + fillN1 = xform4 c_th3c_filln1 + fillRandom = xform2 c_th3c_fillrandom + findBin = xform3 c_th3c_findbin + findFixBin = xform3 c_th3c_findfixbin + findFirstBinAbove = xform2 c_th3c_findfirstbinabove + findLastBinAbove = xform2 c_th3c_findlastbinabove + fit = xform5 c_th3c_fit + fitPanelTH1 = xform0 c_th3c_fitpanelth1 + getNdivisionA = xform1 c_th3c_getndivisiona + getAxisColorA = xform1 c_th3c_getaxiscolora + getLabelColorA = xform1 c_th3c_getlabelcolora + getLabelFontA = xform1 c_th3c_getlabelfonta + getLabelOffsetA = xform1 c_th3c_getlabeloffseta + getLabelSizeA = xform1 c_th3c_getlabelsizea + getTitleFontA = xform1 c_th3c_gettitlefonta + getTitleOffsetA = xform1 c_th3c_gettitleoffseta + getTitleSizeA = xform1 c_th3c_gettitlesizea + getTickLengthA = xform1 c_th3c_getticklengtha + getBarOffset = xform0 c_th3c_getbaroffset + getBarWidth = xform0 c_th3c_getbarwidth + getContour = xform1 c_th3c_getcontour + getContourLevel = xform1 c_th3c_getcontourlevel + getContourLevelPad = xform1 c_th3c_getcontourlevelpad + getBin = xform3 c_th3c_getbin + getBinCenter = xform1 c_th3c_getbincenter + getBinContent1 = xform1 c_th3c_getbincontent1 + getBinContent2 = xform2 c_th3c_getbincontent2 + getBinContent3 = xform3 c_th3c_getbincontent3 + getBinError1 = xform1 c_th3c_getbinerror1 + getBinError2 = xform2 c_th3c_getbinerror2 + getBinError3 = xform3 c_th3c_getbinerror3 + getBinLowEdge = xform1 c_th3c_getbinlowedge + getBinWidth = xform1 c_th3c_getbinwidth + getCellContent = xform2 c_th3c_getcellcontent + getCellError = xform2 c_th3c_getcellerror + getEntries = xform0 c_th3c_getentries + getEffectiveEntries = xform0 c_th3c_geteffectiveentries + getFunction = xform1 c_th3c_getfunction + getDimension = xform0 c_th3c_getdimension + getKurtosis = xform1 c_th3c_getkurtosis + getLowEdge = xform1 c_th3c_getlowedge + getMaximumTH1 = xform1 c_th3c_getmaximumth1 + getMaximumBin = xform0 c_th3c_getmaximumbin + getMaximumStored = xform0 c_th3c_getmaximumstored + getMinimumTH1 = xform1 c_th3c_getminimumth1 + getMinimumBin = xform0 c_th3c_getminimumbin + getMinimumStored = xform0 c_th3c_getminimumstored + getMean = xform1 c_th3c_getmean + getMeanError = xform1 c_th3c_getmeanerror + getNbinsX = xform0 c_th3c_getnbinsx + getNbinsY = xform0 c_th3c_getnbinsy + getNbinsZ = xform0 c_th3c_getnbinsz + getQuantilesTH1 = xform3 c_th3c_getquantilesth1 + getRandom = xform0 c_th3c_getrandom + getStats = xform1 c_th3c_getstats + getSumOfWeights = xform0 c_th3c_getsumofweights + getSumw2 = xform0 c_th3c_getsumw2 + getSumw2N = xform0 c_th3c_getsumw2n + getRMS = xform1 c_th3c_getrms + getRMSError = xform1 c_th3c_getrmserror + getSkewness = xform1 c_th3c_getskewness + integral1 = xform3 c_th3c_integral1 + interpolate1 = xform1 c_th3c_interpolate1 + interpolate2 = xform2 c_th3c_interpolate2 + interpolate3 = xform3 c_th3c_interpolate3 + kolmogorovTest = xform2 c_th3c_kolmogorovtest + labelsDeflate = xform1 c_th3c_labelsdeflate + labelsInflate = xform1 c_th3c_labelsinflate + labelsOption = xform2 c_th3c_labelsoption + multiflyF = xform2 c_th3c_multiflyf + multiply = xform5 c_th3c_multiply + putStats = xform1 c_th3c_putstats + rebin = xform3 c_th3c_rebin + rebinAxis = xform2 c_th3c_rebinaxis + rebuild = xform1 c_th3c_rebuild + recursiveRemove = xform1 c_th3c_recursiveremove + reset = xform1 c_th3c_reset + resetStats = xform0 c_th3c_resetstats + scale = xform2 c_th3c_scale + setAxisColorA = xform2 c_th3c_setaxiscolora + setAxisRange = xform3 c_th3c_setaxisrange + setBarOffset = xform1 c_th3c_setbaroffset + setBarWidth = xform1 c_th3c_setbarwidth + setBinContent1 = xform2 c_th3c_setbincontent1 + setBinContent2 = xform3 c_th3c_setbincontent2 + setBinContent3 = xform4 c_th3c_setbincontent3 + setBinError1 = xform2 c_th3c_setbinerror1 + setBinError2 = xform3 c_th3c_setbinerror2 + setBinError3 = xform4 c_th3c_setbinerror3 + setBins1 = xform2 c_th3c_setbins1 + setBins2 = xform4 c_th3c_setbins2 + setBins3 = xform6 c_th3c_setbins3 + setBinsLength = xform1 c_th3c_setbinslength + setBuffer = xform2 c_th3c_setbuffer + setCellContent = xform3 c_th3c_setcellcontent + setContent = xform1 c_th3c_setcontent + setContour = xform2 c_th3c_setcontour + setContourLevel = xform2 c_th3c_setcontourlevel + setDirectory = xform1 c_th3c_setdirectory + setEntries = xform1 c_th3c_setentries + setError = xform1 c_th3c_seterror + setLabelColorA = xform2 c_th3c_setlabelcolora + setLabelSizeA = xform2 c_th3c_setlabelsizea + setLabelFontA = xform2 c_th3c_setlabelfonta + setLabelOffsetA = xform2 c_th3c_setlabeloffseta + setMaximum = xform1 c_th3c_setmaximum + setMinimum = xform1 c_th3c_setminimum + setNormFactor = xform1 c_th3c_setnormfactor + setStats = xform1 c_th3c_setstats + setOption = xform1 c_th3c_setoption + setXTitle = xform1 c_th3c_setxtitle + setYTitle = xform1 c_th3c_setytitle + setZTitle = xform1 c_th3c_setztitle + showBackground = xform2 c_th3c_showbackground + showPeaks = xform3 c_th3c_showpeaks + smooth = xform2 c_th3c_smooth + sumw2 = xform0 c_th3c_sumw2 +instance ITAtt3D TH3C +instance ITNamed TH3C where + setName = xform1 c_th3c_setname + setNameTitle = xform2 c_th3c_setnametitle + setTitle = xform1 c_th3c_settitle +instance ITAttLine TH3C where + getLineColor = xform0 c_th3c_getlinecolor + getLineStyle = xform0 c_th3c_getlinestyle + getLineWidth = xform0 c_th3c_getlinewidth + resetAttLine = xform1 c_th3c_resetattline + setLineAttributes = xform0 c_th3c_setlineattributes + setLineColor = xform1 c_th3c_setlinecolor + setLineStyle = xform1 c_th3c_setlinestyle + setLineWidth = xform1 c_th3c_setlinewidth +instance ITAttFill TH3C where + setFillColor = xform1 c_th3c_setfillcolor + setFillStyle = xform1 c_th3c_setfillstyle +instance ITAttMarker TH3C where + getMarkerColor = xform0 c_th3c_getmarkercolor + getMarkerStyle = xform0 c_th3c_getmarkerstyle + getMarkerSize = xform0 c_th3c_getmarkersize + resetAttMarker = xform1 c_th3c_resetattmarker + setMarkerAttributes = xform0 c_th3c_setmarkerattributes + setMarkerColor = xform1 c_th3c_setmarkercolor + setMarkerStyle = xform1 c_th3c_setmarkerstyle + setMarkerSize = xform1 c_th3c_setmarkersize +instance ITObject TH3C where + draw = xform1 c_th3c_draw + findObject = xform1 c_th3c_findobject + getName = xform0 c_th3c_getname + isA = xform0 c_th3c_isa + paint = xform1 c_th3c_paint + printObj = xform1 c_th3c_printobj + saveAs = xform2 c_th3c_saveas + write = xform3 c_th3c_write +instance IDeletable TH3C where + delete = xform0 c_th3c_delete -instance FPtr (Exist TH3C) where - type Raw (Exist TH3C) = RawTH3C - get_fptr (ETH3C obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3C) :: TH3C) +instance ITArray TH3C diff --git a/src/HROOT/Hist/TH3C/Interface.hs b/src/HROOT/Hist/TH3C/Interface.hs --- a/src/HROOT/Hist/TH3C/Interface.hs +++ b/src/HROOT/Hist/TH3C/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3C.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3C.RawType - import HROOT.Hist.TH3.Interface import HROOT.Core.TArrayC.Interface ----- ============ ---- - - -class (ITH3 a,ITArrayC a) => ITH3C a where - -instance Existable TH3C where - data Exist TH3C = forall a. (FPtr a, ITH3C a) => ETH3C a +class (ITH3 a, ITArrayC a) => ITH3C a -upcastTH3C :: (FPtr a, ITH3C a) => a -> TH3C -upcastTH3C h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3C = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3C :: forall a . (FPtr a, ITH3C a) => a -> TH3C +upcastTH3C h + = let fh = get_fptr h + fh2 :: Ptr RawTH3C = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3C :: (FPtr a, ITH3C a) => TH3C -> a -downcastTH3C h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3C :: forall a . (FPtr a, ITH3C a) => TH3C -> a +downcastTH3C h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3C/RawType.hs b/src/HROOT/Hist/TH3C/RawType.hs --- a/src/HROOT/Hist/TH3C/RawType.hs +++ b/src/HROOT/Hist/TH3C/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3C.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3C -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3C = TH3C (Ptr RawTH3C) + deriving (Eq, Ord, Show) -data RawTH3C -newtype TH3C = TH3C (ForeignPtr RawTH3C) deriving (Eq, Ord, Show) instance FPtr TH3C where - type Raw TH3C = RawTH3C - get_fptr (TH3C fptr) = fptr - cast_fptr_to_obj = TH3C + type Raw TH3C = RawTH3C + get_fptr (TH3C ptr) = ptr + cast_fptr_to_obj = TH3C diff --git a/src/HROOT/Hist/TH3D.hs b/src/HROOT/Hist/TH3D.hs --- a/src/HROOT/Hist/TH3D.hs +++ b/src/HROOT/Hist/TH3D.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH3D - ( - TH3D(..) - , ITH3D - , upcastTH3D - , downcastTH3D - - - ) where - +module HROOT.Hist.TH3D (TH3D(..), ITH3D, upcastTH3D, downcastTH3D) + where import HROOT.Hist.TH3D.RawType import HROOT.Hist.TH3D.Interface import HROOT.Hist.TH3D.Implementation - - diff --git a/src/HROOT/Hist/TH3D/Cast.hs b/src/HROOT/Hist/TH3D/Cast.hs --- a/src/HROOT/Hist/TH3D/Cast.hs +++ b/src/HROOT/Hist/TH3D/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3D.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3D.RawType import HROOT.Hist.TH3D.Interface instance (ITH3D a, FPtr a) => Castable a (Ptr RawTH3D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3D (Ptr RawTH3D) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3D/FFI.hsc b/src/HROOT/Hist/TH3D/FFI.hsc --- a/src/HROOT/Hist/TH3D/FFI.hsc +++ b/src/HROOT/Hist/TH3D/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3D.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3D.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType @@ -23,503 +13,558 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH3D.h" +foreign import ccall safe "HROOTHistTH3D.h TH3D_fill3" c_th3d_fill3 + :: Ptr RawTH3D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_fill3" c_th3d_fill3 - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_fill3w" + c_th3d_fill3w :: + Ptr RawTH3D -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_fill3w" c_th3d_fill3w - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_FitSlicesZ" + c_th3d_fitslicesz :: + Ptr RawTH3D -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_FitSlicesZ" c_th3d_fitslicesz - :: (Ptr RawTH3D) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH3D.h TH3D_getCorrelationFactor3" + c_th3d_getcorrelationfactor3 :: + Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getCorrelationFactor3" c_th3d_getcorrelationfactor3 - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getCovariance3" + c_th3d_getcovariance3 :: Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getCovariance3" c_th3d_getcovariance3 - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_rebinX3" + c_th3d_rebinx3 :: Ptr RawTH3D -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3D.h TH3D_rebinX3" c_th3d_rebinx3 - :: (Ptr RawTH3D) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3D.h TH3D_rebinY3" + c_th3d_rebiny3 :: Ptr RawTH3D -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3D.h TH3D_rebinY3" c_th3d_rebiny3 - :: (Ptr RawTH3D) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3D.h TH3D_rebinZ3" + c_th3d_rebinz3 :: Ptr RawTH3D -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3D.h TH3D_rebinZ3" c_th3d_rebinz3 - :: (Ptr RawTH3D) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3D.h TH3D_Rebin3D" + c_th3d_rebin3d :: + Ptr RawTH3D -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3D.h TH3D_Rebin3D" c_th3d_rebin3d - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3D.h TH3D_Add" c_th3d_add :: + Ptr RawTH3D -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Add" c_th3d_add - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_AddBinContent" + c_th3d_addbincontent :: Ptr RawTH3D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_AddBinContent" c_th3d_addbincontent - :: (Ptr RawTH3D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Chi2Test" + c_th3d_chi2test :: + Ptr RawTH3D -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_Chi2Test" c_th3d_chi2test - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_ComputeIntegral" + c_th3d_computeintegral :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_ComputeIntegral" c_th3d_computeintegral - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_DirectoryAutoAdd" + c_th3d_directoryautoadd :: + Ptr RawTH3D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_DirectoryAutoAdd" c_th3d_directoryautoadd - :: (Ptr RawTH3D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Divide" + c_th3d_divide :: + Ptr RawTH3D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Divide" c_th3d_divide - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_drawCopyTH1" + c_th3d_drawcopyth1 :: Ptr RawTH3D -> CString -> IO (Ptr RawTH3D) -foreign import ccall "HROOTHistTH3D.h TH3D_drawCopyTH1" c_th3d_drawcopyth1 - :: (Ptr RawTH3D) -> CString -> IO (Ptr RawTH3D) +foreign import ccall safe "HROOTHistTH3D.h TH3D_DrawNormalized" + c_th3d_drawnormalized :: + Ptr RawTH3D -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3D.h TH3D_DrawNormalized" c_th3d_drawnormalized - :: (Ptr RawTH3D) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3D.h TH3D_drawPanelTH1" + c_th3d_drawpanelth1 :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_drawPanelTH1" c_th3d_drawpanelth1 - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_BufferEmpty" + c_th3d_bufferempty :: Ptr RawTH3D -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_BufferEmpty" c_th3d_bufferempty - :: (Ptr RawTH3D) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_evalF" c_th3d_evalf + :: Ptr RawTH3D -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_evalF" c_th3d_evalf - :: (Ptr RawTH3D) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_FFT" c_th3d_fft :: + Ptr RawTH3D -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3D.h TH3D_FFT" c_th3d_fft - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3D.h TH3D_fill1" c_th3d_fill1 + :: Ptr RawTH3D -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_fill1" c_th3d_fill1 - :: (Ptr RawTH3D) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_fill1w" + c_th3d_fill1w :: Ptr RawTH3D -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_fill1w" c_th3d_fill1w - :: (Ptr RawTH3D) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_fillN1" + c_th3d_filln1 :: + Ptr RawTH3D -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_fillN1" c_th3d_filln1 - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_FillRandom" + c_th3d_fillrandom :: Ptr RawTH3D -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_FillRandom" c_th3d_fillrandom - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_FindBin" + c_th3d_findbin :: + Ptr RawTH3D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_FindBin" c_th3d_findbin - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_FindFixBin" + c_th3d_findfixbin :: + Ptr RawTH3D -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_FindFixBin" c_th3d_findfixbin - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_FindFirstBinAbove" + c_th3d_findfirstbinabove :: + Ptr RawTH3D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_FindFirstBinAbove" c_th3d_findfirstbinabove - :: (Ptr RawTH3D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_FindLastBinAbove" + c_th3d_findlastbinabove :: + Ptr RawTH3D -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_FindLastBinAbove" c_th3d_findlastbinabove - :: (Ptr RawTH3D) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_Fit" c_th3d_fit :: + Ptr RawTH3D -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_FitPanelTH1" c_th3d_fitpanelth1 - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_FitPanelTH1" + c_th3d_fitpanelth1 :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_getNdivisionA" c_th3d_getndivisiona - :: (Ptr RawTH3D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getNdivisionA" + c_th3d_getndivisiona :: Ptr RawTH3D -> CString -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_getAxisColorA" c_th3d_getaxiscolora - :: (Ptr RawTH3D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getAxisColorA" + c_th3d_getaxiscolora :: Ptr RawTH3D -> CString -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_getLabelColorA" c_th3d_getlabelcolora - :: (Ptr RawTH3D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getLabelColorA" + c_th3d_getlabelcolora :: Ptr RawTH3D -> CString -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_getLabelFontA" c_th3d_getlabelfonta - :: (Ptr RawTH3D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getLabelFontA" + c_th3d_getlabelfonta :: Ptr RawTH3D -> CString -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_getLabelOffsetA" c_th3d_getlabeloffseta - :: (Ptr RawTH3D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getLabelOffsetA" + c_th3d_getlabeloffseta :: Ptr RawTH3D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getLabelSizeA" c_th3d_getlabelsizea - :: (Ptr RawTH3D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getLabelSizeA" + c_th3d_getlabelsizea :: Ptr RawTH3D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getTitleFontA" c_th3d_gettitlefonta - :: (Ptr RawTH3D) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getTitleFontA" + c_th3d_gettitlefonta :: Ptr RawTH3D -> CString -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_getTitleOffsetA" c_th3d_gettitleoffseta - :: (Ptr RawTH3D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getTitleOffsetA" + c_th3d_gettitleoffseta :: Ptr RawTH3D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getTitleSizeA" c_th3d_gettitlesizea - :: (Ptr RawTH3D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getTitleSizeA" + c_th3d_gettitlesizea :: Ptr RawTH3D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getTickLengthA" c_th3d_getticklengtha - :: (Ptr RawTH3D) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getTickLengthA" + c_th3d_getticklengtha :: Ptr RawTH3D -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBarOffset" c_th3d_getbaroffset - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBarOffset" + c_th3d_getbaroffset :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBarWidth" c_th3d_getbarwidth - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBarWidth" + c_th3d_getbarwidth :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetContour" c_th3d_getcontour - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetContour" + c_th3d_getcontour :: Ptr RawTH3D -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetContourLevel" c_th3d_getcontourlevel - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetContourLevel" + c_th3d_getcontourlevel :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetContourLevelPad" c_th3d_getcontourlevelpad - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetContourLevelPad" + c_th3d_getcontourlevelpad :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBin" c_th3d_getbin - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBin" + c_th3d_getbin :: Ptr RawTH3D -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinCenter" c_th3d_getbincenter - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinCenter" + c_th3d_getbincenter :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinContent1" c_th3d_getbincontent1 - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinContent1" + c_th3d_getbincontent1 :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinContent2" c_th3d_getbincontent2 - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinContent2" + c_th3d_getbincontent2 :: Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinContent3" c_th3d_getbincontent3 - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinContent3" + c_th3d_getbincontent3 :: + Ptr RawTH3D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinError1" c_th3d_getbinerror1 - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinError1" + c_th3d_getbinerror1 :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinError2" c_th3d_getbinerror2 - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinError2" + c_th3d_getbinerror2 :: Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinError3" c_th3d_getbinerror3 - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinError3" + c_th3d_getbinerror3 :: + Ptr RawTH3D -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinLowEdge" c_th3d_getbinlowedge - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinLowEdge" + c_th3d_getbinlowedge :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetBinWidth" c_th3d_getbinwidth - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetBinWidth" + c_th3d_getbinwidth :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetCellContent" c_th3d_getcellcontent - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetCellContent" + c_th3d_getcellcontent :: Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetCellError" c_th3d_getcellerror - :: (Ptr RawTH3D) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetCellError" + c_th3d_getcellerror :: Ptr RawTH3D -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetEntries" c_th3d_getentries - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetEntries" + c_th3d_getentries :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetEffectiveEntries" c_th3d_geteffectiveentries - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe + "HROOTHistTH3D.h TH3D_GetEffectiveEntries" + c_th3d_geteffectiveentries :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetFunction" c_th3d_getfunction - :: (Ptr RawTH3D) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetFunction" + c_th3d_getfunction :: Ptr RawTH3D -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3D.h TH3D_GetDimension" c_th3d_getdimension - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetDimension" + c_th3d_getdimension :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetKurtosis" c_th3d_getkurtosis - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetKurtosis" + c_th3d_getkurtosis :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetLowEdge" c_th3d_getlowedge - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetLowEdge" + c_th3d_getlowedge :: Ptr RawTH3D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_getMaximumTH1" c_th3d_getmaximumth1 - :: (Ptr RawTH3D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getMaximumTH1" + c_th3d_getmaximumth1 :: Ptr RawTH3D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetMaximumBin" c_th3d_getmaximumbin - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMaximumBin" + c_th3d_getmaximumbin :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetMaximumStored" c_th3d_getmaximumstored - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMaximumStored" + c_th3d_getmaximumstored :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getMinimumTH1" c_th3d_getminimumth1 - :: (Ptr RawTH3D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_getMinimumTH1" + c_th3d_getminimumth1 :: Ptr RawTH3D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetMinimumBin" c_th3d_getminimumbin - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMinimumBin" + c_th3d_getminimumbin :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetMinimumStored" c_th3d_getminimumstored - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMinimumStored" + c_th3d_getminimumstored :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetMean" c_th3d_getmean - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMean" + c_th3d_getmean :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetMeanError" c_th3d_getmeanerror - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMeanError" + c_th3d_getmeanerror :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetNbinsX" c_th3d_getnbinsx - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetNbinsX" + c_th3d_getnbinsx :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetNbinsY" c_th3d_getnbinsy - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetNbinsY" + c_th3d_getnbinsy :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetNbinsZ" c_th3d_getnbinsz - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetNbinsZ" + c_th3d_getnbinsz :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_getQuantilesTH1" c_th3d_getquantilesth1 - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_getQuantilesTH1" + c_th3d_getquantilesth1 :: + Ptr RawTH3D -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetRandom" c_th3d_getrandom - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetRandom" + c_th3d_getrandom :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetStats" c_th3d_getstats - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetStats" + c_th3d_getstats :: Ptr RawTH3D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetSumOfWeights" c_th3d_getsumofweights - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetSumOfWeights" + c_th3d_getsumofweights :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetSumw2" c_th3d_getsumw2 - :: (Ptr RawTH3D) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetSumw2" + c_th3d_getsumw2 :: Ptr RawTH3D -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3D.h TH3D_GetSumw2N" c_th3d_getsumw2n - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetSumw2N" + c_th3d_getsumw2n :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_GetRMS" c_th3d_getrms - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetRMS" + c_th3d_getrms :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetRMSError" c_th3d_getrmserror - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetRMSError" + c_th3d_getrmserror :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_GetSkewness" c_th3d_getskewness - :: (Ptr RawTH3D) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetSkewness" + c_th3d_getskewness :: Ptr RawTH3D -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_integral1" c_th3d_integral1 - :: (Ptr RawTH3D) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_integral1" + c_th3d_integral1 :: + Ptr RawTH3D -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_interpolate1" c_th3d_interpolate1 - :: (Ptr RawTH3D) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_interpolate1" + c_th3d_interpolate1 :: Ptr RawTH3D -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_interpolate2" c_th3d_interpolate2 - :: (Ptr RawTH3D) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_interpolate2" + c_th3d_interpolate2 :: + Ptr RawTH3D -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_interpolate3" c_th3d_interpolate3 - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_interpolate3" + c_th3d_interpolate3 :: + Ptr RawTH3D -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_KolmogorovTest" c_th3d_kolmogorovtest - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_KolmogorovTest" + c_th3d_kolmogorovtest :: + Ptr RawTH3D -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_LabelsDeflate" c_th3d_labelsdeflate - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_LabelsDeflate" + c_th3d_labelsdeflate :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_LabelsInflate" c_th3d_labelsinflate - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_LabelsInflate" + c_th3d_labelsinflate :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_LabelsOption" c_th3d_labelsoption - :: (Ptr RawTH3D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_LabelsOption" + c_th3d_labelsoption :: Ptr RawTH3D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_multiflyF" c_th3d_multiflyf - :: (Ptr RawTH3D) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_multiflyF" + c_th3d_multiflyf :: Ptr RawTH3D -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Multiply" c_th3d_multiply - :: (Ptr RawTH3D) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Multiply" + c_th3d_multiply :: + Ptr RawTH3D -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_PutStats" c_th3d_putstats - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_PutStats" + c_th3d_putstats :: Ptr RawTH3D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Rebin" c_th3d_rebin - :: (Ptr RawTH3D) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3D.h TH3D_Rebin" c_th3d_rebin + :: + Ptr RawTH3D -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3D.h TH3D_RebinAxis" c_th3d_rebinaxis - :: (Ptr RawTH3D) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_RebinAxis" + c_th3d_rebinaxis :: Ptr RawTH3D -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Rebuild" c_th3d_rebuild - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Rebuild" + c_th3d_rebuild :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_RecursiveRemove" c_th3d_recursiveremove - :: (Ptr RawTH3D) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_RecursiveRemove" + c_th3d_recursiveremove :: Ptr RawTH3D -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Reset" c_th3d_reset - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Reset" c_th3d_reset + :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_ResetStats" c_th3d_resetstats - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_ResetStats" + c_th3d_resetstats :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Scale" c_th3d_scale - :: (Ptr RawTH3D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Scale" c_th3d_scale + :: Ptr RawTH3D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setAxisColorA" c_th3d_setaxiscolora - :: (Ptr RawTH3D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setAxisColorA" + c_th3d_setaxiscolora :: Ptr RawTH3D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetAxisRange" c_th3d_setaxisrange - :: (Ptr RawTH3D) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetAxisRange" + c_th3d_setaxisrange :: + Ptr RawTH3D -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetBarOffset" c_th3d_setbaroffset - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetBarOffset" + c_th3d_setbaroffset :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetBarWidth" c_th3d_setbarwidth - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetBarWidth" + c_th3d_setbarwidth :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinContent1" c_th3d_setbincontent1 - :: (Ptr RawTH3D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinContent1" + c_th3d_setbincontent1 :: Ptr RawTH3D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinContent2" c_th3d_setbincontent2 - :: (Ptr RawTH3D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinContent2" + c_th3d_setbincontent2 :: + Ptr RawTH3D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinContent3" c_th3d_setbincontent3 - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinContent3" + c_th3d_setbincontent3 :: + Ptr RawTH3D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinError1" c_th3d_setbinerror1 - :: (Ptr RawTH3D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinError1" + c_th3d_setbinerror1 :: Ptr RawTH3D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinError2" c_th3d_setbinerror2 - :: (Ptr RawTH3D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinError2" + c_th3d_setbinerror2 :: + Ptr RawTH3D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBinError3" c_th3d_setbinerror3 - :: (Ptr RawTH3D) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBinError3" + c_th3d_setbinerror3 :: + Ptr RawTH3D -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBins1" c_th3d_setbins1 - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBins1" + c_th3d_setbins1 :: Ptr RawTH3D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBins2" c_th3d_setbins2 - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBins2" + c_th3d_setbins2 :: + Ptr RawTH3D -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setBins3" c_th3d_setbins3 - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setBins3" + c_th3d_setbins3 :: + Ptr RawTH3D -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetBinsLength" c_th3d_setbinslength - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetBinsLength" + c_th3d_setbinslength :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetBuffer" c_th3d_setbuffer - :: (Ptr RawTH3D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetBuffer" + c_th3d_setbuffer :: Ptr RawTH3D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetCellContent" c_th3d_setcellcontent - :: (Ptr RawTH3D) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetCellContent" + c_th3d_setcellcontent :: + Ptr RawTH3D -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetContent" c_th3d_setcontent - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetContent" + c_th3d_setcontent :: Ptr RawTH3D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetContour" c_th3d_setcontour - :: (Ptr RawTH3D) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetContour" + c_th3d_setcontour :: Ptr RawTH3D -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetContourLevel" c_th3d_setcontourlevel - :: (Ptr RawTH3D) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetContourLevel" + c_th3d_setcontourlevel :: Ptr RawTH3D -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetDirectory" c_th3d_setdirectory - :: (Ptr RawTH3D) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetDirectory" + c_th3d_setdirectory :: Ptr RawTH3D -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetEntries" c_th3d_setentries - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetEntries" + c_th3d_setentries :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetError" c_th3d_seterror - :: (Ptr RawTH3D) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetError" + c_th3d_seterror :: Ptr RawTH3D -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setLabelColorA" c_th3d_setlabelcolora - :: (Ptr RawTH3D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setLabelColorA" + c_th3d_setlabelcolora :: Ptr RawTH3D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setLabelSizeA" c_th3d_setlabelsizea - :: (Ptr RawTH3D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setLabelSizeA" + c_th3d_setlabelsizea :: Ptr RawTH3D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setLabelFontA" c_th3d_setlabelfonta - :: (Ptr RawTH3D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setLabelFontA" + c_th3d_setlabelfonta :: Ptr RawTH3D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_setLabelOffsetA" c_th3d_setlabeloffseta - :: (Ptr RawTH3D) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_setLabelOffsetA" + c_th3d_setlabeloffseta :: + Ptr RawTH3D -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetMaximum" c_th3d_setmaximum - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetMaximum" + c_th3d_setmaximum :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetMinimum" c_th3d_setminimum - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetMinimum" + c_th3d_setminimum :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetNormFactor" c_th3d_setnormfactor - :: (Ptr RawTH3D) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetNormFactor" + c_th3d_setnormfactor :: Ptr RawTH3D -> CDouble -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetStats" c_th3d_setstats - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetStats" + c_th3d_setstats :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetOption" c_th3d_setoption - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetOption" + c_th3d_setoption :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetXTitle" c_th3d_setxtitle - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetXTitle" + c_th3d_setxtitle :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetYTitle" c_th3d_setytitle - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetYTitle" + c_th3d_setytitle :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetZTitle" c_th3d_setztitle - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetZTitle" + c_th3d_setztitle :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_ShowBackground" c_th3d_showbackground - :: (Ptr RawTH3D) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3D.h TH3D_ShowBackground" + c_th3d_showbackground :: + Ptr RawTH3D -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3D.h TH3D_ShowPeaks" c_th3d_showpeaks - :: (Ptr RawTH3D) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_ShowPeaks" + c_th3d_showpeaks :: + Ptr RawTH3D -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_Smooth" c_th3d_smooth - :: (Ptr RawTH3D) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Smooth" + c_th3d_smooth :: Ptr RawTH3D -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Sumw2" c_th3d_sumw2 - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Sumw2" c_th3d_sumw2 + :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Draw" c_th3d_draw - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetName" + c_th3d_setname :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_FindObject" c_th3d_findobject - :: (Ptr RawTH3D) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetNameTitle" + c_th3d_setnametitle :: Ptr RawTH3D -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetName" c_th3d_getname - :: (Ptr RawTH3D) -> IO CString +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetTitle" + c_th3d_settitle :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_IsA" c_th3d_isa - :: (Ptr RawTH3D) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetLineColor" + c_th3d_getlinecolor :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_Paint" c_th3d_paint - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetLineStyle" + c_th3d_getlinestyle :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_printObj" c_th3d_printobj - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetLineWidth" + c_th3d_getlinewidth :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_SaveAs" c_th3d_saveas - :: (Ptr RawTH3D) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_ResetAttLine" + c_th3d_resetattline :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_Write" c_th3d_write - :: (Ptr RawTH3D) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetLineAttributes" + c_th3d_setlineattributes :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetLineColor" c_th3d_getlinecolor - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetLineColor" + c_th3d_setlinecolor :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetLineStyle" c_th3d_getlinestyle - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetLineStyle" + c_th3d_setlinestyle :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetLineWidth" c_th3d_getlinewidth - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetLineWidth" + c_th3d_setlinewidth :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_ResetAttLine" c_th3d_resetattline - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetFillColor" + c_th3d_setfillcolor :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetLineAttributes" c_th3d_setlineattributes - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetFillStyle" + c_th3d_setfillstyle :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetLineColor" c_th3d_setlinecolor - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMarkerColor" + c_th3d_getmarkercolor :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_SetLineStyle" c_th3d_setlinestyle - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMarkerStyle" + c_th3d_getmarkerstyle :: Ptr RawTH3D -> IO CInt -foreign import ccall "HROOTHistTH3D.h TH3D_SetLineWidth" c_th3d_setlinewidth - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetMarkerSize" + c_th3d_getmarkersize :: Ptr RawTH3D -> IO CDouble -foreign import ccall "HROOTHistTH3D.h TH3D_SetFillColor" c_th3d_setfillcolor - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_ResetAttMarker" + c_th3d_resetattmarker :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetFillStyle" c_th3d_setfillstyle - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH3D.h TH3D_SetMarkerAttributes" + c_th3d_setmarkerattributes :: Ptr RawTH3D -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetMarkerColor" c_th3d_getmarkercolor - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetMarkerColor" + c_th3d_setmarkercolor :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetMarkerStyle" c_th3d_getmarkerstyle - :: (Ptr RawTH3D) -> IO CInt +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetMarkerStyle" + c_th3d_setmarkerstyle :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_GetMarkerSize" c_th3d_getmarkersize - :: (Ptr RawTH3D) -> IO CDouble +foreign import ccall safe "HROOTHistTH3D.h TH3D_SetMarkerSize" + c_th3d_setmarkersize :: Ptr RawTH3D -> CInt -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_ResetAttMarker" c_th3d_resetattmarker - :: (Ptr RawTH3D) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Draw" c_th3d_draw + :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_SetMarkerAttributes" c_th3d_setmarkerattributes - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_FindObject" + c_th3d_findobject :: Ptr RawTH3D -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3D.h TH3D_SetMarkerColor" c_th3d_setmarkercolor - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_GetName" + c_th3d_getname :: Ptr RawTH3D -> IO CString -foreign import ccall "HROOTHistTH3D.h TH3D_SetMarkerStyle" c_th3d_setmarkerstyle - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_IsA" c_th3d_isa :: + Ptr RawTH3D -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3D.h TH3D_SetMarkerSize" c_th3d_setmarkersize - :: (Ptr RawTH3D) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_Paint" c_th3d_paint + :: Ptr RawTH3D -> CString -> IO () -foreign import ccall "HROOTHistTH3D.h TH3D_delete" c_th3d_delete - :: (Ptr RawTH3D) -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_printObj" + c_th3d_printobj :: Ptr RawTH3D -> CString -> IO () +foreign import ccall safe "HROOTHistTH3D.h TH3D_SaveAs" + c_th3d_saveas :: Ptr RawTH3D -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH3D.h TH3D_Write" c_th3d_write + :: Ptr RawTH3D -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH3D.h TH3D_delete" + c_th3d_delete :: Ptr RawTH3D -> IO () diff --git a/src/HROOT/Hist/TH3D/Implementation.hs b/src/HROOT/Hist/TH3D/Implementation.hs --- a/src/HROOT/Hist/TH3D/Implementation.hs +++ b/src/HROOT/Hist/TH3D/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3D.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3D.RawType import HROOT.Hist.TH3D.FFI import HROOT.Hist.TH3D.Interface @@ -38,9 +39,9 @@ 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 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 @@ -50,6 +51,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -57,381 +61,196 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH3D TH3D -instance ITH3D TH3D where instance ITH3 TH3D where - fill3 = xform3 c_th3d_fill3 - fill3w = xform4 c_th3d_fill3w - fitSlicesZ = xform7 c_th3d_fitslicesz - getCorrelationFactor3 = xform2 c_th3d_getcorrelationfactor3 - getCovariance3 = xform2 c_th3d_getcovariance3 - rebinX3 = xform2 c_th3d_rebinx3 - rebinY3 = xform2 c_th3d_rebiny3 - rebinZ3 = xform2 c_th3d_rebinz3 - rebin3D = xform4 c_th3d_rebin3d -instance ITArrayD TH3D where -instance ITH1 TH3D where - add = xform2 c_th3d_add - addBinContent = xform2 c_th3d_addbincontent - chi2Test = xform3 c_th3d_chi2test - computeIntegral = xform0 c_th3d_computeintegral - directoryAutoAdd = xform1 c_th3d_directoryautoadd - divide = xform5 c_th3d_divide - drawCopyTH1 = xform1 c_th3d_drawcopyth1 - drawNormalized = xform2 c_th3d_drawnormalized - drawPanelTH1 = xform0 c_th3d_drawpanelth1 - bufferEmpty = xform1 c_th3d_bufferempty - evalF = xform2 c_th3d_evalf - fFT = xform2 c_th3d_fft - fill1 = xform1 c_th3d_fill1 - fill1w = xform2 c_th3d_fill1w - fillN1 = xform4 c_th3d_filln1 - fillRandom = xform2 c_th3d_fillrandom - findBin = xform3 c_th3d_findbin - findFixBin = xform3 c_th3d_findfixbin - findFirstBinAbove = xform2 c_th3d_findfirstbinabove - findLastBinAbove = xform2 c_th3d_findlastbinabove - fitPanelTH1 = xform0 c_th3d_fitpanelth1 - getNdivisionA = xform1 c_th3d_getndivisiona - getAxisColorA = xform1 c_th3d_getaxiscolora - getLabelColorA = xform1 c_th3d_getlabelcolora - getLabelFontA = xform1 c_th3d_getlabelfonta - getLabelOffsetA = xform1 c_th3d_getlabeloffseta - getLabelSizeA = xform1 c_th3d_getlabelsizea - getTitleFontA = xform1 c_th3d_gettitlefonta - getTitleOffsetA = xform1 c_th3d_gettitleoffseta - getTitleSizeA = xform1 c_th3d_gettitlesizea - getTickLengthA = xform1 c_th3d_getticklengtha - getBarOffset = xform0 c_th3d_getbaroffset - getBarWidth = xform0 c_th3d_getbarwidth - getContour = xform1 c_th3d_getcontour - getContourLevel = xform1 c_th3d_getcontourlevel - getContourLevelPad = xform1 c_th3d_getcontourlevelpad - getBin = xform3 c_th3d_getbin - getBinCenter = xform1 c_th3d_getbincenter - getBinContent1 = xform1 c_th3d_getbincontent1 - getBinContent2 = xform2 c_th3d_getbincontent2 - getBinContent3 = xform3 c_th3d_getbincontent3 - getBinError1 = xform1 c_th3d_getbinerror1 - getBinError2 = xform2 c_th3d_getbinerror2 - getBinError3 = xform3 c_th3d_getbinerror3 - getBinLowEdge = xform1 c_th3d_getbinlowedge - getBinWidth = xform1 c_th3d_getbinwidth - getCellContent = xform2 c_th3d_getcellcontent - getCellError = xform2 c_th3d_getcellerror - getEntries = xform0 c_th3d_getentries - getEffectiveEntries = xform0 c_th3d_geteffectiveentries - getFunction = xform1 c_th3d_getfunction - getDimension = xform0 c_th3d_getdimension - getKurtosis = xform1 c_th3d_getkurtosis - getLowEdge = xform1 c_th3d_getlowedge - getMaximumTH1 = xform1 c_th3d_getmaximumth1 - getMaximumBin = xform0 c_th3d_getmaximumbin - getMaximumStored = xform0 c_th3d_getmaximumstored - getMinimumTH1 = xform1 c_th3d_getminimumth1 - getMinimumBin = xform0 c_th3d_getminimumbin - getMinimumStored = xform0 c_th3d_getminimumstored - getMean = xform1 c_th3d_getmean - getMeanError = xform1 c_th3d_getmeanerror - getNbinsX = xform0 c_th3d_getnbinsx - getNbinsY = xform0 c_th3d_getnbinsy - getNbinsZ = xform0 c_th3d_getnbinsz - getQuantilesTH1 = xform3 c_th3d_getquantilesth1 - getRandom = xform0 c_th3d_getrandom - getStats = xform1 c_th3d_getstats - getSumOfWeights = xform0 c_th3d_getsumofweights - getSumw2 = xform0 c_th3d_getsumw2 - getSumw2N = xform0 c_th3d_getsumw2n - getRMS = xform1 c_th3d_getrms - getRMSError = xform1 c_th3d_getrmserror - getSkewness = xform1 c_th3d_getskewness - integral1 = xform3 c_th3d_integral1 - interpolate1 = xform1 c_th3d_interpolate1 - interpolate2 = xform2 c_th3d_interpolate2 - interpolate3 = xform3 c_th3d_interpolate3 - kolmogorovTest = xform2 c_th3d_kolmogorovtest - labelsDeflate = xform1 c_th3d_labelsdeflate - labelsInflate = xform1 c_th3d_labelsinflate - labelsOption = xform2 c_th3d_labelsoption - multiflyF = xform2 c_th3d_multiflyf - multiply = xform5 c_th3d_multiply - putStats = xform1 c_th3d_putstats - rebin = xform3 c_th3d_rebin - rebinAxis = xform2 c_th3d_rebinaxis - rebuild = xform1 c_th3d_rebuild - recursiveRemove = xform1 c_th3d_recursiveremove - reset = xform1 c_th3d_reset - resetStats = xform0 c_th3d_resetstats - scale = xform2 c_th3d_scale - setAxisColorA = xform2 c_th3d_setaxiscolora - setAxisRange = xform3 c_th3d_setaxisrange - setBarOffset = xform1 c_th3d_setbaroffset - setBarWidth = xform1 c_th3d_setbarwidth - setBinContent1 = xform2 c_th3d_setbincontent1 - setBinContent2 = xform3 c_th3d_setbincontent2 - setBinContent3 = xform4 c_th3d_setbincontent3 - setBinError1 = xform2 c_th3d_setbinerror1 - setBinError2 = xform3 c_th3d_setbinerror2 - setBinError3 = xform4 c_th3d_setbinerror3 - setBins1 = xform2 c_th3d_setbins1 - setBins2 = xform4 c_th3d_setbins2 - setBins3 = xform6 c_th3d_setbins3 - setBinsLength = xform1 c_th3d_setbinslength - setBuffer = xform2 c_th3d_setbuffer - setCellContent = xform3 c_th3d_setcellcontent - setContent = xform1 c_th3d_setcontent - setContour = xform2 c_th3d_setcontour - setContourLevel = xform2 c_th3d_setcontourlevel - setDirectory = xform1 c_th3d_setdirectory - setEntries = xform1 c_th3d_setentries - setError = xform1 c_th3d_seterror - setLabelColorA = xform2 c_th3d_setlabelcolora - setLabelSizeA = xform2 c_th3d_setlabelsizea - setLabelFontA = xform2 c_th3d_setlabelfonta - setLabelOffsetA = xform2 c_th3d_setlabeloffseta - setMaximum = xform1 c_th3d_setmaximum - setMinimum = xform1 c_th3d_setminimum - setNormFactor = xform1 c_th3d_setnormfactor - setStats = xform1 c_th3d_setstats - setOption = xform1 c_th3d_setoption - setXTitle = xform1 c_th3d_setxtitle - setYTitle = xform1 c_th3d_setytitle - setZTitle = xform1 c_th3d_setztitle - showBackground = xform2 c_th3d_showbackground - showPeaks = xform3 c_th3d_showpeaks - smooth = xform2 c_th3d_smooth - sumw2 = xform0 c_th3d_sumw2 -instance ITAtt3D TH3D where -instance ITObject TH3D where - draw = xform1 c_th3d_draw - findObject = xform1 c_th3d_findobject - getName = xform0 c_th3d_getname - isA = xform0 c_th3d_isa - paint = xform1 c_th3d_paint - printObj = xform1 c_th3d_printobj - saveAs = xform2 c_th3d_saveas - write = xform3 c_th3d_write -instance ITAttLine TH3D where - getLineColor = xform0 c_th3d_getlinecolor - getLineStyle = xform0 c_th3d_getlinestyle - getLineWidth = xform0 c_th3d_getlinewidth - resetAttLine = xform1 c_th3d_resetattline - setLineAttributes = xform0 c_th3d_setlineattributes - setLineColor = xform1 c_th3d_setlinecolor - setLineStyle = xform1 c_th3d_setlinestyle - setLineWidth = xform1 c_th3d_setlinewidth -instance ITAttFill TH3D where - setFillColor = xform1 c_th3d_setfillcolor - setFillStyle = xform1 c_th3d_setfillstyle -instance ITAttMarker TH3D where - getMarkerColor = xform0 c_th3d_getmarkercolor - getMarkerStyle = xform0 c_th3d_getmarkerstyle - getMarkerSize = xform0 c_th3d_getmarkersize - resetAttMarker = xform1 c_th3d_resetattmarker - setMarkerAttributes = xform0 c_th3d_setmarkerattributes - setMarkerColor = xform1 c_th3d_setmarkercolor - setMarkerStyle = xform1 c_th3d_setmarkerstyle - setMarkerSize = xform1 c_th3d_setmarkersize -instance IDeletable TH3D where - delete = xform0 c_th3d_delete -instance ITArray TH3D where - -instance ITH3D (Exist TH3D) where - -instance ITH3 (Exist TH3D) where - fill3 (ETH3D x) = fill3 x - fill3w (ETH3D x) = fill3w x - fitSlicesZ (ETH3D x) = fitSlicesZ x - getCorrelationFactor3 (ETH3D x) = getCorrelationFactor3 x - getCovariance3 (ETH3D x) = getCovariance3 x - rebinX3 (ETH3D x) = rebinX3 x - rebinY3 (ETH3D x) = rebinY3 x - rebinZ3 (ETH3D x) = rebinZ3 x - rebin3D (ETH3D x) = rebin3D x -instance ITArrayD (Exist TH3D) where + fill3 = xform3 c_th3d_fill3 + fill3w = xform4 c_th3d_fill3w + fitSlicesZ = xform7 c_th3d_fitslicesz + getCorrelationFactor3 = xform2 c_th3d_getcorrelationfactor3 + getCovariance3 = xform2 c_th3d_getcovariance3 + rebinX3 = xform2 c_th3d_rebinx3 + rebinY3 = xform2 c_th3d_rebiny3 + rebinZ3 = xform2 c_th3d_rebinz3 + rebin3D = xform4 c_th3d_rebin3d -instance ITH1 (Exist TH3D) where - add (ETH3D x) = add x - addBinContent (ETH3D x) = addBinContent x - chi2Test (ETH3D x) = chi2Test x - computeIntegral (ETH3D x) = computeIntegral x - directoryAutoAdd (ETH3D x) = directoryAutoAdd x - divide (ETH3D x) = divide x - drawCopyTH1 (ETH3D x) a1 = return . ETH3D =<< drawCopyTH1 x a1 - drawNormalized (ETH3D x) = drawNormalized x - drawPanelTH1 (ETH3D x) = drawPanelTH1 x - bufferEmpty (ETH3D x) = bufferEmpty x - evalF (ETH3D x) = evalF x - fFT (ETH3D x) = fFT x - fill1 (ETH3D x) = fill1 x - fill1w (ETH3D x) = fill1w x - fillN1 (ETH3D x) = fillN1 x - fillRandom (ETH3D x) = fillRandom x - findBin (ETH3D x) = findBin x - findFixBin (ETH3D x) = findFixBin x - findFirstBinAbove (ETH3D x) = findFirstBinAbove x - findLastBinAbove (ETH3D x) = findLastBinAbove x - fitPanelTH1 (ETH3D x) = fitPanelTH1 x - getNdivisionA (ETH3D x) = getNdivisionA x - getAxisColorA (ETH3D x) = getAxisColorA x - getLabelColorA (ETH3D x) = getLabelColorA x - getLabelFontA (ETH3D x) = getLabelFontA x - getLabelOffsetA (ETH3D x) = getLabelOffsetA x - getLabelSizeA (ETH3D x) = getLabelSizeA x - getTitleFontA (ETH3D x) = getTitleFontA x - getTitleOffsetA (ETH3D x) = getTitleOffsetA x - getTitleSizeA (ETH3D x) = getTitleSizeA x - getTickLengthA (ETH3D x) = getTickLengthA x - getBarOffset (ETH3D x) = getBarOffset x - getBarWidth (ETH3D x) = getBarWidth x - getContour (ETH3D x) = getContour x - getContourLevel (ETH3D x) = getContourLevel x - getContourLevelPad (ETH3D x) = getContourLevelPad x - getBin (ETH3D x) = getBin x - getBinCenter (ETH3D x) = getBinCenter x - getBinContent1 (ETH3D x) = getBinContent1 x - getBinContent2 (ETH3D x) = getBinContent2 x - getBinContent3 (ETH3D x) = getBinContent3 x - getBinError1 (ETH3D x) = getBinError1 x - getBinError2 (ETH3D x) = getBinError2 x - getBinError3 (ETH3D x) = getBinError3 x - getBinLowEdge (ETH3D x) = getBinLowEdge x - getBinWidth (ETH3D x) = getBinWidth x - getCellContent (ETH3D x) = getCellContent x - getCellError (ETH3D x) = getCellError x - getEntries (ETH3D x) = getEntries x - getEffectiveEntries (ETH3D x) = getEffectiveEntries x - getFunction (ETH3D x) = getFunction x - getDimension (ETH3D x) = getDimension x - getKurtosis (ETH3D x) = getKurtosis x - getLowEdge (ETH3D x) = getLowEdge x - getMaximumTH1 (ETH3D x) = getMaximumTH1 x - getMaximumBin (ETH3D x) = getMaximumBin x - getMaximumStored (ETH3D x) = getMaximumStored x - getMinimumTH1 (ETH3D x) = getMinimumTH1 x - getMinimumBin (ETH3D x) = getMinimumBin x - getMinimumStored (ETH3D x) = getMinimumStored x - getMean (ETH3D x) = getMean x - getMeanError (ETH3D x) = getMeanError x - getNbinsX (ETH3D x) = getNbinsX x - getNbinsY (ETH3D x) = getNbinsY x - getNbinsZ (ETH3D x) = getNbinsZ x - getQuantilesTH1 (ETH3D x) = getQuantilesTH1 x - getRandom (ETH3D x) = getRandom x - getStats (ETH3D x) = getStats x - getSumOfWeights (ETH3D x) = getSumOfWeights x - getSumw2 (ETH3D x) = getSumw2 x - getSumw2N (ETH3D x) = getSumw2N x - getRMS (ETH3D x) = getRMS x - getRMSError (ETH3D x) = getRMSError x - getSkewness (ETH3D x) = getSkewness x - integral1 (ETH3D x) = integral1 x - interpolate1 (ETH3D x) = interpolate1 x - interpolate2 (ETH3D x) = interpolate2 x - interpolate3 (ETH3D x) = interpolate3 x - kolmogorovTest (ETH3D x) = kolmogorovTest x - labelsDeflate (ETH3D x) = labelsDeflate x - labelsInflate (ETH3D x) = labelsInflate x - labelsOption (ETH3D x) = labelsOption x - multiflyF (ETH3D x) = multiflyF x - multiply (ETH3D x) = multiply x - putStats (ETH3D x) = putStats x - rebin (ETH3D x) = rebin x - rebinAxis (ETH3D x) = rebinAxis x - rebuild (ETH3D x) = rebuild x - recursiveRemove (ETH3D x) = recursiveRemove x - reset (ETH3D x) = reset x - resetStats (ETH3D x) = resetStats x - scale (ETH3D x) = scale x - setAxisColorA (ETH3D x) = setAxisColorA x - setAxisRange (ETH3D x) = setAxisRange x - setBarOffset (ETH3D x) = setBarOffset x - setBarWidth (ETH3D x) = setBarWidth x - setBinContent1 (ETH3D x) = setBinContent1 x - setBinContent2 (ETH3D x) = setBinContent2 x - setBinContent3 (ETH3D x) = setBinContent3 x - setBinError1 (ETH3D x) = setBinError1 x - setBinError2 (ETH3D x) = setBinError2 x - setBinError3 (ETH3D x) = setBinError3 x - setBins1 (ETH3D x) = setBins1 x - setBins2 (ETH3D x) = setBins2 x - setBins3 (ETH3D x) = setBins3 x - setBinsLength (ETH3D x) = setBinsLength x - setBuffer (ETH3D x) = setBuffer x - setCellContent (ETH3D x) = setCellContent x - setContent (ETH3D x) = setContent x - setContour (ETH3D x) = setContour x - setContourLevel (ETH3D x) = setContourLevel x - setDirectory (ETH3D x) = setDirectory x - setEntries (ETH3D x) = setEntries x - setError (ETH3D x) = setError x - setLabelColorA (ETH3D x) = setLabelColorA x - setLabelSizeA (ETH3D x) = setLabelSizeA x - setLabelFontA (ETH3D x) = setLabelFontA x - setLabelOffsetA (ETH3D x) = setLabelOffsetA x - setMaximum (ETH3D x) = setMaximum x - setMinimum (ETH3D x) = setMinimum x - setNormFactor (ETH3D x) = setNormFactor x - setStats (ETH3D x) = setStats x - setOption (ETH3D x) = setOption x - setXTitle (ETH3D x) = setXTitle x - setYTitle (ETH3D x) = setYTitle x - setZTitle (ETH3D x) = setZTitle x - showBackground (ETH3D x) = showBackground x - showPeaks (ETH3D x) = showPeaks x - smooth (ETH3D x) = smooth x - sumw2 (ETH3D x) = sumw2 x -instance ITAtt3D (Exist TH3D) where +instance ITArrayD TH3D -instance ITObject (Exist TH3D) where - draw (ETH3D x) = draw x - findObject (ETH3D x) = findObject x - getName (ETH3D x) = getName x - isA (ETH3D x) = isA x - paint (ETH3D x) = paint x - printObj (ETH3D x) = printObj x - saveAs (ETH3D x) = saveAs x - write (ETH3D x) = write x -instance ITAttLine (Exist TH3D) where - getLineColor (ETH3D x) = getLineColor x - getLineStyle (ETH3D x) = getLineStyle x - getLineWidth (ETH3D x) = getLineWidth x - resetAttLine (ETH3D x) = resetAttLine x - setLineAttributes (ETH3D x) = setLineAttributes x - setLineColor (ETH3D x) = setLineColor x - setLineStyle (ETH3D x) = setLineStyle x - setLineWidth (ETH3D x) = setLineWidth x -instance ITAttFill (Exist TH3D) where - setFillColor (ETH3D x) = setFillColor x - setFillStyle (ETH3D x) = setFillStyle x -instance ITAttMarker (Exist TH3D) where - getMarkerColor (ETH3D x) = getMarkerColor x - getMarkerStyle (ETH3D x) = getMarkerStyle x - getMarkerSize (ETH3D x) = getMarkerSize x - resetAttMarker (ETH3D x) = resetAttMarker x - setMarkerAttributes (ETH3D x) = setMarkerAttributes x - setMarkerColor (ETH3D x) = setMarkerColor x - setMarkerStyle (ETH3D x) = setMarkerStyle x - setMarkerSize (ETH3D x) = setMarkerSize x -instance IDeletable (Exist TH3D) where - delete (ETH3D x) = delete x -instance ITArray (Exist TH3D) where +instance ITH1 TH3D where + add = xform2 c_th3d_add + addBinContent = xform2 c_th3d_addbincontent + chi2Test = xform3 c_th3d_chi2test + computeIntegral = xform0 c_th3d_computeintegral + directoryAutoAdd = xform1 c_th3d_directoryautoadd + divide = xform5 c_th3d_divide + drawCopyTH1 = xform1 c_th3d_drawcopyth1 + drawNormalized = xform2 c_th3d_drawnormalized + drawPanelTH1 = xform0 c_th3d_drawpanelth1 + bufferEmpty = xform1 c_th3d_bufferempty + evalF = xform2 c_th3d_evalf + fFT = xform2 c_th3d_fft + fill1 = xform1 c_th3d_fill1 + fill1w = xform2 c_th3d_fill1w + fillN1 = xform4 c_th3d_filln1 + fillRandom = xform2 c_th3d_fillrandom + findBin = xform3 c_th3d_findbin + findFixBin = xform3 c_th3d_findfixbin + findFirstBinAbove = xform2 c_th3d_findfirstbinabove + findLastBinAbove = xform2 c_th3d_findlastbinabove + fit = xform5 c_th3d_fit + fitPanelTH1 = xform0 c_th3d_fitpanelth1 + getNdivisionA = xform1 c_th3d_getndivisiona + getAxisColorA = xform1 c_th3d_getaxiscolora + getLabelColorA = xform1 c_th3d_getlabelcolora + getLabelFontA = xform1 c_th3d_getlabelfonta + getLabelOffsetA = xform1 c_th3d_getlabeloffseta + getLabelSizeA = xform1 c_th3d_getlabelsizea + getTitleFontA = xform1 c_th3d_gettitlefonta + getTitleOffsetA = xform1 c_th3d_gettitleoffseta + getTitleSizeA = xform1 c_th3d_gettitlesizea + getTickLengthA = xform1 c_th3d_getticklengtha + getBarOffset = xform0 c_th3d_getbaroffset + getBarWidth = xform0 c_th3d_getbarwidth + getContour = xform1 c_th3d_getcontour + getContourLevel = xform1 c_th3d_getcontourlevel + getContourLevelPad = xform1 c_th3d_getcontourlevelpad + getBin = xform3 c_th3d_getbin + getBinCenter = xform1 c_th3d_getbincenter + getBinContent1 = xform1 c_th3d_getbincontent1 + getBinContent2 = xform2 c_th3d_getbincontent2 + getBinContent3 = xform3 c_th3d_getbincontent3 + getBinError1 = xform1 c_th3d_getbinerror1 + getBinError2 = xform2 c_th3d_getbinerror2 + getBinError3 = xform3 c_th3d_getbinerror3 + getBinLowEdge = xform1 c_th3d_getbinlowedge + getBinWidth = xform1 c_th3d_getbinwidth + getCellContent = xform2 c_th3d_getcellcontent + getCellError = xform2 c_th3d_getcellerror + getEntries = xform0 c_th3d_getentries + getEffectiveEntries = xform0 c_th3d_geteffectiveentries + getFunction = xform1 c_th3d_getfunction + getDimension = xform0 c_th3d_getdimension + getKurtosis = xform1 c_th3d_getkurtosis + getLowEdge = xform1 c_th3d_getlowedge + getMaximumTH1 = xform1 c_th3d_getmaximumth1 + getMaximumBin = xform0 c_th3d_getmaximumbin + getMaximumStored = xform0 c_th3d_getmaximumstored + getMinimumTH1 = xform1 c_th3d_getminimumth1 + getMinimumBin = xform0 c_th3d_getminimumbin + getMinimumStored = xform0 c_th3d_getminimumstored + getMean = xform1 c_th3d_getmean + getMeanError = xform1 c_th3d_getmeanerror + getNbinsX = xform0 c_th3d_getnbinsx + getNbinsY = xform0 c_th3d_getnbinsy + getNbinsZ = xform0 c_th3d_getnbinsz + getQuantilesTH1 = xform3 c_th3d_getquantilesth1 + getRandom = xform0 c_th3d_getrandom + getStats = xform1 c_th3d_getstats + getSumOfWeights = xform0 c_th3d_getsumofweights + getSumw2 = xform0 c_th3d_getsumw2 + getSumw2N = xform0 c_th3d_getsumw2n + getRMS = xform1 c_th3d_getrms + getRMSError = xform1 c_th3d_getrmserror + getSkewness = xform1 c_th3d_getskewness + integral1 = xform3 c_th3d_integral1 + interpolate1 = xform1 c_th3d_interpolate1 + interpolate2 = xform2 c_th3d_interpolate2 + interpolate3 = xform3 c_th3d_interpolate3 + kolmogorovTest = xform2 c_th3d_kolmogorovtest + labelsDeflate = xform1 c_th3d_labelsdeflate + labelsInflate = xform1 c_th3d_labelsinflate + labelsOption = xform2 c_th3d_labelsoption + multiflyF = xform2 c_th3d_multiflyf + multiply = xform5 c_th3d_multiply + putStats = xform1 c_th3d_putstats + rebin = xform3 c_th3d_rebin + rebinAxis = xform2 c_th3d_rebinaxis + rebuild = xform1 c_th3d_rebuild + recursiveRemove = xform1 c_th3d_recursiveremove + reset = xform1 c_th3d_reset + resetStats = xform0 c_th3d_resetstats + scale = xform2 c_th3d_scale + setAxisColorA = xform2 c_th3d_setaxiscolora + setAxisRange = xform3 c_th3d_setaxisrange + setBarOffset = xform1 c_th3d_setbaroffset + setBarWidth = xform1 c_th3d_setbarwidth + setBinContent1 = xform2 c_th3d_setbincontent1 + setBinContent2 = xform3 c_th3d_setbincontent2 + setBinContent3 = xform4 c_th3d_setbincontent3 + setBinError1 = xform2 c_th3d_setbinerror1 + setBinError2 = xform3 c_th3d_setbinerror2 + setBinError3 = xform4 c_th3d_setbinerror3 + setBins1 = xform2 c_th3d_setbins1 + setBins2 = xform4 c_th3d_setbins2 + setBins3 = xform6 c_th3d_setbins3 + setBinsLength = xform1 c_th3d_setbinslength + setBuffer = xform2 c_th3d_setbuffer + setCellContent = xform3 c_th3d_setcellcontent + setContent = xform1 c_th3d_setcontent + setContour = xform2 c_th3d_setcontour + setContourLevel = xform2 c_th3d_setcontourlevel + setDirectory = xform1 c_th3d_setdirectory + setEntries = xform1 c_th3d_setentries + setError = xform1 c_th3d_seterror + setLabelColorA = xform2 c_th3d_setlabelcolora + setLabelSizeA = xform2 c_th3d_setlabelsizea + setLabelFontA = xform2 c_th3d_setlabelfonta + setLabelOffsetA = xform2 c_th3d_setlabeloffseta + setMaximum = xform1 c_th3d_setmaximum + setMinimum = xform1 c_th3d_setminimum + setNormFactor = xform1 c_th3d_setnormfactor + setStats = xform1 c_th3d_setstats + setOption = xform1 c_th3d_setoption + setXTitle = xform1 c_th3d_setxtitle + setYTitle = xform1 c_th3d_setytitle + setZTitle = xform1 c_th3d_setztitle + showBackground = xform2 c_th3d_showbackground + showPeaks = xform3 c_th3d_showpeaks + smooth = xform2 c_th3d_smooth + sumw2 = xform0 c_th3d_sumw2 +instance ITAtt3D TH3D +instance ITNamed TH3D where + setName = xform1 c_th3d_setname + setNameTitle = xform2 c_th3d_setnametitle + setTitle = xform1 c_th3d_settitle +instance ITAttLine TH3D where + getLineColor = xform0 c_th3d_getlinecolor + getLineStyle = xform0 c_th3d_getlinestyle + getLineWidth = xform0 c_th3d_getlinewidth + resetAttLine = xform1 c_th3d_resetattline + setLineAttributes = xform0 c_th3d_setlineattributes + setLineColor = xform1 c_th3d_setlinecolor + setLineStyle = xform1 c_th3d_setlinestyle + setLineWidth = xform1 c_th3d_setlinewidth +instance ITAttFill TH3D where + setFillColor = xform1 c_th3d_setfillcolor + setFillStyle = xform1 c_th3d_setfillstyle +instance ITAttMarker TH3D where + getMarkerColor = xform0 c_th3d_getmarkercolor + getMarkerStyle = xform0 c_th3d_getmarkerstyle + getMarkerSize = xform0 c_th3d_getmarkersize + resetAttMarker = xform1 c_th3d_resetattmarker + setMarkerAttributes = xform0 c_th3d_setmarkerattributes + setMarkerColor = xform1 c_th3d_setmarkercolor + setMarkerStyle = xform1 c_th3d_setmarkerstyle + setMarkerSize = xform1 c_th3d_setmarkersize +instance ITObject TH3D where + draw = xform1 c_th3d_draw + findObject = xform1 c_th3d_findobject + getName = xform0 c_th3d_getname + isA = xform0 c_th3d_isa + paint = xform1 c_th3d_paint + printObj = xform1 c_th3d_printobj + saveAs = xform2 c_th3d_saveas + write = xform3 c_th3d_write +instance IDeletable TH3D where + delete = xform0 c_th3d_delete -instance FPtr (Exist TH3D) where - type Raw (Exist TH3D) = RawTH3D - get_fptr (ETH3D obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3D) :: TH3D) +instance ITArray TH3D diff --git a/src/HROOT/Hist/TH3D/Interface.hs b/src/HROOT/Hist/TH3D/Interface.hs --- a/src/HROOT/Hist/TH3D/Interface.hs +++ b/src/HROOT/Hist/TH3D/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3D.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3D.RawType - import HROOT.Hist.TH3.Interface import HROOT.Core.TArrayD.Interface ----- ============ ---- - - -class (ITH3 a,ITArrayD a) => ITH3D a where - -instance Existable TH3D where - data Exist TH3D = forall a. (FPtr a, ITH3D a) => ETH3D a +class (ITH3 a, ITArrayD a) => ITH3D a -upcastTH3D :: (FPtr a, ITH3D a) => a -> TH3D -upcastTH3D h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3D = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3D :: forall a . (FPtr a, ITH3D a) => a -> TH3D +upcastTH3D h + = let fh = get_fptr h + fh2 :: Ptr RawTH3D = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3D :: (FPtr a, ITH3D a) => TH3D -> a -downcastTH3D h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3D :: forall a . (FPtr a, ITH3D a) => TH3D -> a +downcastTH3D h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3D/RawType.hs b/src/HROOT/Hist/TH3D/RawType.hs --- a/src/HROOT/Hist/TH3D/RawType.hs +++ b/src/HROOT/Hist/TH3D/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3D.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3D -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3D = TH3D (Ptr RawTH3D) + deriving (Eq, Ord, Show) -data RawTH3D -newtype TH3D = TH3D (ForeignPtr RawTH3D) deriving (Eq, Ord, Show) instance FPtr TH3D where - type Raw TH3D = RawTH3D - get_fptr (TH3D fptr) = fptr - cast_fptr_to_obj = TH3D + type Raw TH3D = RawTH3D + get_fptr (TH3D ptr) = ptr + cast_fptr_to_obj = TH3D diff --git a/src/HROOT/Hist/TH3F.hs b/src/HROOT/Hist/TH3F.hs --- a/src/HROOT/Hist/TH3F.hs +++ b/src/HROOT/Hist/TH3F.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH3F - ( - TH3F(..) - , ITH3F - , upcastTH3F - , downcastTH3F - - - ) where - +module HROOT.Hist.TH3F (TH3F(..), ITH3F, upcastTH3F, downcastTH3F) + where import HROOT.Hist.TH3F.RawType import HROOT.Hist.TH3F.Interface import HROOT.Hist.TH3F.Implementation - - diff --git a/src/HROOT/Hist/TH3F/Cast.hs b/src/HROOT/Hist/TH3F/Cast.hs --- a/src/HROOT/Hist/TH3F/Cast.hs +++ b/src/HROOT/Hist/TH3F/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3F.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3F.RawType import HROOT.Hist.TH3F.Interface instance (ITH3F a, FPtr a) => Castable a (Ptr RawTH3F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3F (Ptr RawTH3F) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3F/FFI.hsc b/src/HROOT/Hist/TH3F/FFI.hsc --- a/src/HROOT/Hist/TH3F/FFI.hsc +++ b/src/HROOT/Hist/TH3F/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3F.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3F.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType @@ -23,503 +13,558 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH3F.h" +foreign import ccall safe "HROOTHistTH3F.h TH3F_fill3" c_th3f_fill3 + :: Ptr RawTH3F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_fill3" c_th3f_fill3 - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_fill3w" + c_th3f_fill3w :: + Ptr RawTH3F -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_fill3w" c_th3f_fill3w - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_FitSlicesZ" + c_th3f_fitslicesz :: + Ptr RawTH3F -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_FitSlicesZ" c_th3f_fitslicesz - :: (Ptr RawTH3F) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH3F.h TH3F_getCorrelationFactor3" + c_th3f_getcorrelationfactor3 :: + Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getCorrelationFactor3" c_th3f_getcorrelationfactor3 - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getCovariance3" + c_th3f_getcovariance3 :: Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getCovariance3" c_th3f_getcovariance3 - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_rebinX3" + c_th3f_rebinx3 :: Ptr RawTH3F -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3F.h TH3F_rebinX3" c_th3f_rebinx3 - :: (Ptr RawTH3F) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3F.h TH3F_rebinY3" + c_th3f_rebiny3 :: Ptr RawTH3F -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3F.h TH3F_rebinY3" c_th3f_rebiny3 - :: (Ptr RawTH3F) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3F.h TH3F_rebinZ3" + c_th3f_rebinz3 :: Ptr RawTH3F -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3F.h TH3F_rebinZ3" c_th3f_rebinz3 - :: (Ptr RawTH3F) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3F.h TH3F_Rebin3D" + c_th3f_rebin3d :: + Ptr RawTH3F -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3F.h TH3F_Rebin3D" c_th3f_rebin3d - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3F.h TH3F_Add" c_th3f_add :: + Ptr RawTH3F -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Add" c_th3f_add - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_AddBinContent" + c_th3f_addbincontent :: Ptr RawTH3F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_AddBinContent" c_th3f_addbincontent - :: (Ptr RawTH3F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Chi2Test" + c_th3f_chi2test :: + Ptr RawTH3F -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_Chi2Test" c_th3f_chi2test - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_ComputeIntegral" + c_th3f_computeintegral :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_ComputeIntegral" c_th3f_computeintegral - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_DirectoryAutoAdd" + c_th3f_directoryautoadd :: + Ptr RawTH3F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_DirectoryAutoAdd" c_th3f_directoryautoadd - :: (Ptr RawTH3F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Divide" + c_th3f_divide :: + Ptr RawTH3F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Divide" c_th3f_divide - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_drawCopyTH1" + c_th3f_drawcopyth1 :: Ptr RawTH3F -> CString -> IO (Ptr RawTH3F) -foreign import ccall "HROOTHistTH3F.h TH3F_drawCopyTH1" c_th3f_drawcopyth1 - :: (Ptr RawTH3F) -> CString -> IO (Ptr RawTH3F) +foreign import ccall safe "HROOTHistTH3F.h TH3F_DrawNormalized" + c_th3f_drawnormalized :: + Ptr RawTH3F -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3F.h TH3F_DrawNormalized" c_th3f_drawnormalized - :: (Ptr RawTH3F) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3F.h TH3F_drawPanelTH1" + c_th3f_drawpanelth1 :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_drawPanelTH1" c_th3f_drawpanelth1 - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_BufferEmpty" + c_th3f_bufferempty :: Ptr RawTH3F -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_BufferEmpty" c_th3f_bufferempty - :: (Ptr RawTH3F) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_evalF" c_th3f_evalf + :: Ptr RawTH3F -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_evalF" c_th3f_evalf - :: (Ptr RawTH3F) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_FFT" c_th3f_fft :: + Ptr RawTH3F -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3F.h TH3F_FFT" c_th3f_fft - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3F.h TH3F_fill1" c_th3f_fill1 + :: Ptr RawTH3F -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_fill1" c_th3f_fill1 - :: (Ptr RawTH3F) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_fill1w" + c_th3f_fill1w :: Ptr RawTH3F -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_fill1w" c_th3f_fill1w - :: (Ptr RawTH3F) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_fillN1" + c_th3f_filln1 :: + Ptr RawTH3F -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_fillN1" c_th3f_filln1 - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_FillRandom" + c_th3f_fillrandom :: Ptr RawTH3F -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_FillRandom" c_th3f_fillrandom - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_FindBin" + c_th3f_findbin :: + Ptr RawTH3F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_FindBin" c_th3f_findbin - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_FindFixBin" + c_th3f_findfixbin :: + Ptr RawTH3F -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_FindFixBin" c_th3f_findfixbin - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_FindFirstBinAbove" + c_th3f_findfirstbinabove :: + Ptr RawTH3F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_FindFirstBinAbove" c_th3f_findfirstbinabove - :: (Ptr RawTH3F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_FindLastBinAbove" + c_th3f_findlastbinabove :: + Ptr RawTH3F -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_FindLastBinAbove" c_th3f_findlastbinabove - :: (Ptr RawTH3F) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_Fit" c_th3f_fit :: + Ptr RawTH3F -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_FitPanelTH1" c_th3f_fitpanelth1 - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_FitPanelTH1" + c_th3f_fitpanelth1 :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_getNdivisionA" c_th3f_getndivisiona - :: (Ptr RawTH3F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getNdivisionA" + c_th3f_getndivisiona :: Ptr RawTH3F -> CString -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_getAxisColorA" c_th3f_getaxiscolora - :: (Ptr RawTH3F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getAxisColorA" + c_th3f_getaxiscolora :: Ptr RawTH3F -> CString -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_getLabelColorA" c_th3f_getlabelcolora - :: (Ptr RawTH3F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getLabelColorA" + c_th3f_getlabelcolora :: Ptr RawTH3F -> CString -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_getLabelFontA" c_th3f_getlabelfonta - :: (Ptr RawTH3F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getLabelFontA" + c_th3f_getlabelfonta :: Ptr RawTH3F -> CString -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_getLabelOffsetA" c_th3f_getlabeloffseta - :: (Ptr RawTH3F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getLabelOffsetA" + c_th3f_getlabeloffseta :: Ptr RawTH3F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getLabelSizeA" c_th3f_getlabelsizea - :: (Ptr RawTH3F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getLabelSizeA" + c_th3f_getlabelsizea :: Ptr RawTH3F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getTitleFontA" c_th3f_gettitlefonta - :: (Ptr RawTH3F) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getTitleFontA" + c_th3f_gettitlefonta :: Ptr RawTH3F -> CString -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_getTitleOffsetA" c_th3f_gettitleoffseta - :: (Ptr RawTH3F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getTitleOffsetA" + c_th3f_gettitleoffseta :: Ptr RawTH3F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getTitleSizeA" c_th3f_gettitlesizea - :: (Ptr RawTH3F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getTitleSizeA" + c_th3f_gettitlesizea :: Ptr RawTH3F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getTickLengthA" c_th3f_getticklengtha - :: (Ptr RawTH3F) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getTickLengthA" + c_th3f_getticklengtha :: Ptr RawTH3F -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBarOffset" c_th3f_getbaroffset - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBarOffset" + c_th3f_getbaroffset :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBarWidth" c_th3f_getbarwidth - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBarWidth" + c_th3f_getbarwidth :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetContour" c_th3f_getcontour - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetContour" + c_th3f_getcontour :: Ptr RawTH3F -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetContourLevel" c_th3f_getcontourlevel - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetContourLevel" + c_th3f_getcontourlevel :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetContourLevelPad" c_th3f_getcontourlevelpad - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetContourLevelPad" + c_th3f_getcontourlevelpad :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBin" c_th3f_getbin - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBin" + c_th3f_getbin :: Ptr RawTH3F -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinCenter" c_th3f_getbincenter - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinCenter" + c_th3f_getbincenter :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinContent1" c_th3f_getbincontent1 - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinContent1" + c_th3f_getbincontent1 :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinContent2" c_th3f_getbincontent2 - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinContent2" + c_th3f_getbincontent2 :: Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinContent3" c_th3f_getbincontent3 - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinContent3" + c_th3f_getbincontent3 :: + Ptr RawTH3F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinError1" c_th3f_getbinerror1 - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinError1" + c_th3f_getbinerror1 :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinError2" c_th3f_getbinerror2 - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinError2" + c_th3f_getbinerror2 :: Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinError3" c_th3f_getbinerror3 - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinError3" + c_th3f_getbinerror3 :: + Ptr RawTH3F -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinLowEdge" c_th3f_getbinlowedge - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinLowEdge" + c_th3f_getbinlowedge :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetBinWidth" c_th3f_getbinwidth - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetBinWidth" + c_th3f_getbinwidth :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetCellContent" c_th3f_getcellcontent - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetCellContent" + c_th3f_getcellcontent :: Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetCellError" c_th3f_getcellerror - :: (Ptr RawTH3F) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetCellError" + c_th3f_getcellerror :: Ptr RawTH3F -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetEntries" c_th3f_getentries - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetEntries" + c_th3f_getentries :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetEffectiveEntries" c_th3f_geteffectiveentries - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe + "HROOTHistTH3F.h TH3F_GetEffectiveEntries" + c_th3f_geteffectiveentries :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetFunction" c_th3f_getfunction - :: (Ptr RawTH3F) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetFunction" + c_th3f_getfunction :: Ptr RawTH3F -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3F.h TH3F_GetDimension" c_th3f_getdimension - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetDimension" + c_th3f_getdimension :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetKurtosis" c_th3f_getkurtosis - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetKurtosis" + c_th3f_getkurtosis :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetLowEdge" c_th3f_getlowedge - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetLowEdge" + c_th3f_getlowedge :: Ptr RawTH3F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_getMaximumTH1" c_th3f_getmaximumth1 - :: (Ptr RawTH3F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getMaximumTH1" + c_th3f_getmaximumth1 :: Ptr RawTH3F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetMaximumBin" c_th3f_getmaximumbin - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMaximumBin" + c_th3f_getmaximumbin :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetMaximumStored" c_th3f_getmaximumstored - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMaximumStored" + c_th3f_getmaximumstored :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getMinimumTH1" c_th3f_getminimumth1 - :: (Ptr RawTH3F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_getMinimumTH1" + c_th3f_getminimumth1 :: Ptr RawTH3F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetMinimumBin" c_th3f_getminimumbin - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMinimumBin" + c_th3f_getminimumbin :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetMinimumStored" c_th3f_getminimumstored - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMinimumStored" + c_th3f_getminimumstored :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetMean" c_th3f_getmean - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMean" + c_th3f_getmean :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetMeanError" c_th3f_getmeanerror - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMeanError" + c_th3f_getmeanerror :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetNbinsX" c_th3f_getnbinsx - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetNbinsX" + c_th3f_getnbinsx :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetNbinsY" c_th3f_getnbinsy - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetNbinsY" + c_th3f_getnbinsy :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetNbinsZ" c_th3f_getnbinsz - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetNbinsZ" + c_th3f_getnbinsz :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_getQuantilesTH1" c_th3f_getquantilesth1 - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_getQuantilesTH1" + c_th3f_getquantilesth1 :: + Ptr RawTH3F -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetRandom" c_th3f_getrandom - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetRandom" + c_th3f_getrandom :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetStats" c_th3f_getstats - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetStats" + c_th3f_getstats :: Ptr RawTH3F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetSumOfWeights" c_th3f_getsumofweights - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetSumOfWeights" + c_th3f_getsumofweights :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetSumw2" c_th3f_getsumw2 - :: (Ptr RawTH3F) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetSumw2" + c_th3f_getsumw2 :: Ptr RawTH3F -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3F.h TH3F_GetSumw2N" c_th3f_getsumw2n - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetSumw2N" + c_th3f_getsumw2n :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_GetRMS" c_th3f_getrms - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetRMS" + c_th3f_getrms :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetRMSError" c_th3f_getrmserror - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetRMSError" + c_th3f_getrmserror :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_GetSkewness" c_th3f_getskewness - :: (Ptr RawTH3F) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetSkewness" + c_th3f_getskewness :: Ptr RawTH3F -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_integral1" c_th3f_integral1 - :: (Ptr RawTH3F) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_integral1" + c_th3f_integral1 :: + Ptr RawTH3F -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_interpolate1" c_th3f_interpolate1 - :: (Ptr RawTH3F) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_interpolate1" + c_th3f_interpolate1 :: Ptr RawTH3F -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_interpolate2" c_th3f_interpolate2 - :: (Ptr RawTH3F) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_interpolate2" + c_th3f_interpolate2 :: + Ptr RawTH3F -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_interpolate3" c_th3f_interpolate3 - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_interpolate3" + c_th3f_interpolate3 :: + Ptr RawTH3F -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_KolmogorovTest" c_th3f_kolmogorovtest - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_KolmogorovTest" + c_th3f_kolmogorovtest :: + Ptr RawTH3F -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_LabelsDeflate" c_th3f_labelsdeflate - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_LabelsDeflate" + c_th3f_labelsdeflate :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_LabelsInflate" c_th3f_labelsinflate - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_LabelsInflate" + c_th3f_labelsinflate :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_LabelsOption" c_th3f_labelsoption - :: (Ptr RawTH3F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_LabelsOption" + c_th3f_labelsoption :: Ptr RawTH3F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_multiflyF" c_th3f_multiflyf - :: (Ptr RawTH3F) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_multiflyF" + c_th3f_multiflyf :: Ptr RawTH3F -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Multiply" c_th3f_multiply - :: (Ptr RawTH3F) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Multiply" + c_th3f_multiply :: + Ptr RawTH3F -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_PutStats" c_th3f_putstats - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_PutStats" + c_th3f_putstats :: Ptr RawTH3F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Rebin" c_th3f_rebin - :: (Ptr RawTH3F) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3F.h TH3F_Rebin" c_th3f_rebin + :: + Ptr RawTH3F -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3F.h TH3F_RebinAxis" c_th3f_rebinaxis - :: (Ptr RawTH3F) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_RebinAxis" + c_th3f_rebinaxis :: Ptr RawTH3F -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Rebuild" c_th3f_rebuild - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Rebuild" + c_th3f_rebuild :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_RecursiveRemove" c_th3f_recursiveremove - :: (Ptr RawTH3F) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_RecursiveRemove" + c_th3f_recursiveremove :: Ptr RawTH3F -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Reset" c_th3f_reset - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Reset" c_th3f_reset + :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_ResetStats" c_th3f_resetstats - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_ResetStats" + c_th3f_resetstats :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Scale" c_th3f_scale - :: (Ptr RawTH3F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Scale" c_th3f_scale + :: Ptr RawTH3F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setAxisColorA" c_th3f_setaxiscolora - :: (Ptr RawTH3F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setAxisColorA" + c_th3f_setaxiscolora :: Ptr RawTH3F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetAxisRange" c_th3f_setaxisrange - :: (Ptr RawTH3F) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetAxisRange" + c_th3f_setaxisrange :: + Ptr RawTH3F -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetBarOffset" c_th3f_setbaroffset - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetBarOffset" + c_th3f_setbaroffset :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetBarWidth" c_th3f_setbarwidth - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetBarWidth" + c_th3f_setbarwidth :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinContent1" c_th3f_setbincontent1 - :: (Ptr RawTH3F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinContent1" + c_th3f_setbincontent1 :: Ptr RawTH3F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinContent2" c_th3f_setbincontent2 - :: (Ptr RawTH3F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinContent2" + c_th3f_setbincontent2 :: + Ptr RawTH3F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinContent3" c_th3f_setbincontent3 - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinContent3" + c_th3f_setbincontent3 :: + Ptr RawTH3F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinError1" c_th3f_setbinerror1 - :: (Ptr RawTH3F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinError1" + c_th3f_setbinerror1 :: Ptr RawTH3F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinError2" c_th3f_setbinerror2 - :: (Ptr RawTH3F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinError2" + c_th3f_setbinerror2 :: + Ptr RawTH3F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBinError3" c_th3f_setbinerror3 - :: (Ptr RawTH3F) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBinError3" + c_th3f_setbinerror3 :: + Ptr RawTH3F -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBins1" c_th3f_setbins1 - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBins1" + c_th3f_setbins1 :: Ptr RawTH3F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBins2" c_th3f_setbins2 - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBins2" + c_th3f_setbins2 :: + Ptr RawTH3F -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setBins3" c_th3f_setbins3 - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setBins3" + c_th3f_setbins3 :: + Ptr RawTH3F -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetBinsLength" c_th3f_setbinslength - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetBinsLength" + c_th3f_setbinslength :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetBuffer" c_th3f_setbuffer - :: (Ptr RawTH3F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetBuffer" + c_th3f_setbuffer :: Ptr RawTH3F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetCellContent" c_th3f_setcellcontent - :: (Ptr RawTH3F) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetCellContent" + c_th3f_setcellcontent :: + Ptr RawTH3F -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetContent" c_th3f_setcontent - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetContent" + c_th3f_setcontent :: Ptr RawTH3F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetContour" c_th3f_setcontour - :: (Ptr RawTH3F) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetContour" + c_th3f_setcontour :: Ptr RawTH3F -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetContourLevel" c_th3f_setcontourlevel - :: (Ptr RawTH3F) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetContourLevel" + c_th3f_setcontourlevel :: Ptr RawTH3F -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetDirectory" c_th3f_setdirectory - :: (Ptr RawTH3F) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetDirectory" + c_th3f_setdirectory :: Ptr RawTH3F -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetEntries" c_th3f_setentries - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetEntries" + c_th3f_setentries :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetError" c_th3f_seterror - :: (Ptr RawTH3F) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetError" + c_th3f_seterror :: Ptr RawTH3F -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setLabelColorA" c_th3f_setlabelcolora - :: (Ptr RawTH3F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setLabelColorA" + c_th3f_setlabelcolora :: Ptr RawTH3F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setLabelSizeA" c_th3f_setlabelsizea - :: (Ptr RawTH3F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setLabelSizeA" + c_th3f_setlabelsizea :: Ptr RawTH3F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setLabelFontA" c_th3f_setlabelfonta - :: (Ptr RawTH3F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setLabelFontA" + c_th3f_setlabelfonta :: Ptr RawTH3F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_setLabelOffsetA" c_th3f_setlabeloffseta - :: (Ptr RawTH3F) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_setLabelOffsetA" + c_th3f_setlabeloffseta :: + Ptr RawTH3F -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetMaximum" c_th3f_setmaximum - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetMaximum" + c_th3f_setmaximum :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetMinimum" c_th3f_setminimum - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetMinimum" + c_th3f_setminimum :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetNormFactor" c_th3f_setnormfactor - :: (Ptr RawTH3F) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetNormFactor" + c_th3f_setnormfactor :: Ptr RawTH3F -> CDouble -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetStats" c_th3f_setstats - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetStats" + c_th3f_setstats :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetOption" c_th3f_setoption - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetOption" + c_th3f_setoption :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetXTitle" c_th3f_setxtitle - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetXTitle" + c_th3f_setxtitle :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetYTitle" c_th3f_setytitle - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetYTitle" + c_th3f_setytitle :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetZTitle" c_th3f_setztitle - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetZTitle" + c_th3f_setztitle :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_ShowBackground" c_th3f_showbackground - :: (Ptr RawTH3F) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3F.h TH3F_ShowBackground" + c_th3f_showbackground :: + Ptr RawTH3F -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3F.h TH3F_ShowPeaks" c_th3f_showpeaks - :: (Ptr RawTH3F) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_ShowPeaks" + c_th3f_showpeaks :: + Ptr RawTH3F -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_Smooth" c_th3f_smooth - :: (Ptr RawTH3F) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Smooth" + c_th3f_smooth :: Ptr RawTH3F -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Sumw2" c_th3f_sumw2 - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Sumw2" c_th3f_sumw2 + :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Draw" c_th3f_draw - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetName" + c_th3f_setname :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_FindObject" c_th3f_findobject - :: (Ptr RawTH3F) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetNameTitle" + c_th3f_setnametitle :: Ptr RawTH3F -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetName" c_th3f_getname - :: (Ptr RawTH3F) -> IO CString +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetTitle" + c_th3f_settitle :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_IsA" c_th3f_isa - :: (Ptr RawTH3F) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetLineColor" + c_th3f_getlinecolor :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_Paint" c_th3f_paint - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetLineStyle" + c_th3f_getlinestyle :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_printObj" c_th3f_printobj - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetLineWidth" + c_th3f_getlinewidth :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_SaveAs" c_th3f_saveas - :: (Ptr RawTH3F) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_ResetAttLine" + c_th3f_resetattline :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_Write" c_th3f_write - :: (Ptr RawTH3F) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetLineAttributes" + c_th3f_setlineattributes :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetLineColor" c_th3f_getlinecolor - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetLineColor" + c_th3f_setlinecolor :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetLineStyle" c_th3f_getlinestyle - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetLineStyle" + c_th3f_setlinestyle :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetLineWidth" c_th3f_getlinewidth - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetLineWidth" + c_th3f_setlinewidth :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_ResetAttLine" c_th3f_resetattline - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetFillColor" + c_th3f_setfillcolor :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetLineAttributes" c_th3f_setlineattributes - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetFillStyle" + c_th3f_setfillstyle :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetLineColor" c_th3f_setlinecolor - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMarkerColor" + c_th3f_getmarkercolor :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_SetLineStyle" c_th3f_setlinestyle - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMarkerStyle" + c_th3f_getmarkerstyle :: Ptr RawTH3F -> IO CInt -foreign import ccall "HROOTHistTH3F.h TH3F_SetLineWidth" c_th3f_setlinewidth - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetMarkerSize" + c_th3f_getmarkersize :: Ptr RawTH3F -> IO CDouble -foreign import ccall "HROOTHistTH3F.h TH3F_SetFillColor" c_th3f_setfillcolor - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_ResetAttMarker" + c_th3f_resetattmarker :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetFillStyle" c_th3f_setfillstyle - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH3F.h TH3F_SetMarkerAttributes" + c_th3f_setmarkerattributes :: Ptr RawTH3F -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetMarkerColor" c_th3f_getmarkercolor - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetMarkerColor" + c_th3f_setmarkercolor :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetMarkerStyle" c_th3f_getmarkerstyle - :: (Ptr RawTH3F) -> IO CInt +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetMarkerStyle" + c_th3f_setmarkerstyle :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_GetMarkerSize" c_th3f_getmarkersize - :: (Ptr RawTH3F) -> IO CDouble +foreign import ccall safe "HROOTHistTH3F.h TH3F_SetMarkerSize" + c_th3f_setmarkersize :: Ptr RawTH3F -> CInt -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_ResetAttMarker" c_th3f_resetattmarker - :: (Ptr RawTH3F) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Draw" c_th3f_draw + :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_SetMarkerAttributes" c_th3f_setmarkerattributes - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_FindObject" + c_th3f_findobject :: Ptr RawTH3F -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3F.h TH3F_SetMarkerColor" c_th3f_setmarkercolor - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_GetName" + c_th3f_getname :: Ptr RawTH3F -> IO CString -foreign import ccall "HROOTHistTH3F.h TH3F_SetMarkerStyle" c_th3f_setmarkerstyle - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_IsA" c_th3f_isa :: + Ptr RawTH3F -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3F.h TH3F_SetMarkerSize" c_th3f_setmarkersize - :: (Ptr RawTH3F) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_Paint" c_th3f_paint + :: Ptr RawTH3F -> CString -> IO () -foreign import ccall "HROOTHistTH3F.h TH3F_delete" c_th3f_delete - :: (Ptr RawTH3F) -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_printObj" + c_th3f_printobj :: Ptr RawTH3F -> CString -> IO () +foreign import ccall safe "HROOTHistTH3F.h TH3F_SaveAs" + c_th3f_saveas :: Ptr RawTH3F -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH3F.h TH3F_Write" c_th3f_write + :: Ptr RawTH3F -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH3F.h TH3F_delete" + c_th3f_delete :: Ptr RawTH3F -> IO () diff --git a/src/HROOT/Hist/TH3F/Implementation.hs b/src/HROOT/Hist/TH3F/Implementation.hs --- a/src/HROOT/Hist/TH3F/Implementation.hs +++ b/src/HROOT/Hist/TH3F/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3F.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3F.RawType import HROOT.Hist.TH3F.FFI import HROOT.Hist.TH3F.Interface @@ -41,9 +42,9 @@ 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 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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,381 +64,196 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH3F TH3F -instance ITH3F TH3F where instance ITH3 TH3F where - fill3 = xform3 c_th3f_fill3 - fill3w = xform4 c_th3f_fill3w - fitSlicesZ = xform7 c_th3f_fitslicesz - getCorrelationFactor3 = xform2 c_th3f_getcorrelationfactor3 - getCovariance3 = xform2 c_th3f_getcovariance3 - rebinX3 = xform2 c_th3f_rebinx3 - rebinY3 = xform2 c_th3f_rebiny3 - rebinZ3 = xform2 c_th3f_rebinz3 - rebin3D = xform4 c_th3f_rebin3d -instance ITArrayF TH3F where -instance ITH1 TH3F where - add = xform2 c_th3f_add - addBinContent = xform2 c_th3f_addbincontent - chi2Test = xform3 c_th3f_chi2test - computeIntegral = xform0 c_th3f_computeintegral - directoryAutoAdd = xform1 c_th3f_directoryautoadd - divide = xform5 c_th3f_divide - drawCopyTH1 = xform1 c_th3f_drawcopyth1 - drawNormalized = xform2 c_th3f_drawnormalized - drawPanelTH1 = xform0 c_th3f_drawpanelth1 - bufferEmpty = xform1 c_th3f_bufferempty - evalF = xform2 c_th3f_evalf - fFT = xform2 c_th3f_fft - fill1 = xform1 c_th3f_fill1 - fill1w = xform2 c_th3f_fill1w - fillN1 = xform4 c_th3f_filln1 - fillRandom = xform2 c_th3f_fillrandom - findBin = xform3 c_th3f_findbin - findFixBin = xform3 c_th3f_findfixbin - findFirstBinAbove = xform2 c_th3f_findfirstbinabove - findLastBinAbove = xform2 c_th3f_findlastbinabove - fitPanelTH1 = xform0 c_th3f_fitpanelth1 - getNdivisionA = xform1 c_th3f_getndivisiona - getAxisColorA = xform1 c_th3f_getaxiscolora - getLabelColorA = xform1 c_th3f_getlabelcolora - getLabelFontA = xform1 c_th3f_getlabelfonta - getLabelOffsetA = xform1 c_th3f_getlabeloffseta - getLabelSizeA = xform1 c_th3f_getlabelsizea - getTitleFontA = xform1 c_th3f_gettitlefonta - getTitleOffsetA = xform1 c_th3f_gettitleoffseta - getTitleSizeA = xform1 c_th3f_gettitlesizea - getTickLengthA = xform1 c_th3f_getticklengtha - getBarOffset = xform0 c_th3f_getbaroffset - getBarWidth = xform0 c_th3f_getbarwidth - getContour = xform1 c_th3f_getcontour - getContourLevel = xform1 c_th3f_getcontourlevel - getContourLevelPad = xform1 c_th3f_getcontourlevelpad - getBin = xform3 c_th3f_getbin - getBinCenter = xform1 c_th3f_getbincenter - getBinContent1 = xform1 c_th3f_getbincontent1 - getBinContent2 = xform2 c_th3f_getbincontent2 - getBinContent3 = xform3 c_th3f_getbincontent3 - getBinError1 = xform1 c_th3f_getbinerror1 - getBinError2 = xform2 c_th3f_getbinerror2 - getBinError3 = xform3 c_th3f_getbinerror3 - getBinLowEdge = xform1 c_th3f_getbinlowedge - getBinWidth = xform1 c_th3f_getbinwidth - getCellContent = xform2 c_th3f_getcellcontent - getCellError = xform2 c_th3f_getcellerror - getEntries = xform0 c_th3f_getentries - getEffectiveEntries = xform0 c_th3f_geteffectiveentries - getFunction = xform1 c_th3f_getfunction - getDimension = xform0 c_th3f_getdimension - getKurtosis = xform1 c_th3f_getkurtosis - getLowEdge = xform1 c_th3f_getlowedge - getMaximumTH1 = xform1 c_th3f_getmaximumth1 - getMaximumBin = xform0 c_th3f_getmaximumbin - getMaximumStored = xform0 c_th3f_getmaximumstored - getMinimumTH1 = xform1 c_th3f_getminimumth1 - getMinimumBin = xform0 c_th3f_getminimumbin - getMinimumStored = xform0 c_th3f_getminimumstored - getMean = xform1 c_th3f_getmean - getMeanError = xform1 c_th3f_getmeanerror - getNbinsX = xform0 c_th3f_getnbinsx - getNbinsY = xform0 c_th3f_getnbinsy - getNbinsZ = xform0 c_th3f_getnbinsz - getQuantilesTH1 = xform3 c_th3f_getquantilesth1 - getRandom = xform0 c_th3f_getrandom - getStats = xform1 c_th3f_getstats - getSumOfWeights = xform0 c_th3f_getsumofweights - getSumw2 = xform0 c_th3f_getsumw2 - getSumw2N = xform0 c_th3f_getsumw2n - getRMS = xform1 c_th3f_getrms - getRMSError = xform1 c_th3f_getrmserror - getSkewness = xform1 c_th3f_getskewness - integral1 = xform3 c_th3f_integral1 - interpolate1 = xform1 c_th3f_interpolate1 - interpolate2 = xform2 c_th3f_interpolate2 - interpolate3 = xform3 c_th3f_interpolate3 - kolmogorovTest = xform2 c_th3f_kolmogorovtest - labelsDeflate = xform1 c_th3f_labelsdeflate - labelsInflate = xform1 c_th3f_labelsinflate - labelsOption = xform2 c_th3f_labelsoption - multiflyF = xform2 c_th3f_multiflyf - multiply = xform5 c_th3f_multiply - putStats = xform1 c_th3f_putstats - rebin = xform3 c_th3f_rebin - rebinAxis = xform2 c_th3f_rebinaxis - rebuild = xform1 c_th3f_rebuild - recursiveRemove = xform1 c_th3f_recursiveremove - reset = xform1 c_th3f_reset - resetStats = xform0 c_th3f_resetstats - scale = xform2 c_th3f_scale - setAxisColorA = xform2 c_th3f_setaxiscolora - setAxisRange = xform3 c_th3f_setaxisrange - setBarOffset = xform1 c_th3f_setbaroffset - setBarWidth = xform1 c_th3f_setbarwidth - setBinContent1 = xform2 c_th3f_setbincontent1 - setBinContent2 = xform3 c_th3f_setbincontent2 - setBinContent3 = xform4 c_th3f_setbincontent3 - setBinError1 = xform2 c_th3f_setbinerror1 - setBinError2 = xform3 c_th3f_setbinerror2 - setBinError3 = xform4 c_th3f_setbinerror3 - setBins1 = xform2 c_th3f_setbins1 - setBins2 = xform4 c_th3f_setbins2 - setBins3 = xform6 c_th3f_setbins3 - setBinsLength = xform1 c_th3f_setbinslength - setBuffer = xform2 c_th3f_setbuffer - setCellContent = xform3 c_th3f_setcellcontent - setContent = xform1 c_th3f_setcontent - setContour = xform2 c_th3f_setcontour - setContourLevel = xform2 c_th3f_setcontourlevel - setDirectory = xform1 c_th3f_setdirectory - setEntries = xform1 c_th3f_setentries - setError = xform1 c_th3f_seterror - setLabelColorA = xform2 c_th3f_setlabelcolora - setLabelSizeA = xform2 c_th3f_setlabelsizea - setLabelFontA = xform2 c_th3f_setlabelfonta - setLabelOffsetA = xform2 c_th3f_setlabeloffseta - setMaximum = xform1 c_th3f_setmaximum - setMinimum = xform1 c_th3f_setminimum - setNormFactor = xform1 c_th3f_setnormfactor - setStats = xform1 c_th3f_setstats - setOption = xform1 c_th3f_setoption - setXTitle = xform1 c_th3f_setxtitle - setYTitle = xform1 c_th3f_setytitle - setZTitle = xform1 c_th3f_setztitle - showBackground = xform2 c_th3f_showbackground - showPeaks = xform3 c_th3f_showpeaks - smooth = xform2 c_th3f_smooth - sumw2 = xform0 c_th3f_sumw2 -instance ITAtt3D TH3F where -instance ITObject TH3F where - draw = xform1 c_th3f_draw - findObject = xform1 c_th3f_findobject - getName = xform0 c_th3f_getname - isA = xform0 c_th3f_isa - paint = xform1 c_th3f_paint - printObj = xform1 c_th3f_printobj - saveAs = xform2 c_th3f_saveas - write = xform3 c_th3f_write -instance ITAttLine TH3F where - getLineColor = xform0 c_th3f_getlinecolor - getLineStyle = xform0 c_th3f_getlinestyle - getLineWidth = xform0 c_th3f_getlinewidth - resetAttLine = xform1 c_th3f_resetattline - setLineAttributes = xform0 c_th3f_setlineattributes - setLineColor = xform1 c_th3f_setlinecolor - setLineStyle = xform1 c_th3f_setlinestyle - setLineWidth = xform1 c_th3f_setlinewidth -instance ITAttFill TH3F where - setFillColor = xform1 c_th3f_setfillcolor - setFillStyle = xform1 c_th3f_setfillstyle -instance ITAttMarker TH3F where - getMarkerColor = xform0 c_th3f_getmarkercolor - getMarkerStyle = xform0 c_th3f_getmarkerstyle - getMarkerSize = xform0 c_th3f_getmarkersize - resetAttMarker = xform1 c_th3f_resetattmarker - setMarkerAttributes = xform0 c_th3f_setmarkerattributes - setMarkerColor = xform1 c_th3f_setmarkercolor - setMarkerStyle = xform1 c_th3f_setmarkerstyle - setMarkerSize = xform1 c_th3f_setmarkersize -instance IDeletable TH3F where - delete = xform0 c_th3f_delete -instance ITArray TH3F where - -instance ITH3F (Exist TH3F) where - -instance ITH3 (Exist TH3F) where - fill3 (ETH3F x) = fill3 x - fill3w (ETH3F x) = fill3w x - fitSlicesZ (ETH3F x) = fitSlicesZ x - getCorrelationFactor3 (ETH3F x) = getCorrelationFactor3 x - getCovariance3 (ETH3F x) = getCovariance3 x - rebinX3 (ETH3F x) = rebinX3 x - rebinY3 (ETH3F x) = rebinY3 x - rebinZ3 (ETH3F x) = rebinZ3 x - rebin3D (ETH3F x) = rebin3D x -instance ITArrayF (Exist TH3F) where + fill3 = xform3 c_th3f_fill3 + fill3w = xform4 c_th3f_fill3w + fitSlicesZ = xform7 c_th3f_fitslicesz + getCorrelationFactor3 = xform2 c_th3f_getcorrelationfactor3 + getCovariance3 = xform2 c_th3f_getcovariance3 + rebinX3 = xform2 c_th3f_rebinx3 + rebinY3 = xform2 c_th3f_rebiny3 + rebinZ3 = xform2 c_th3f_rebinz3 + rebin3D = xform4 c_th3f_rebin3d -instance ITH1 (Exist TH3F) where - add (ETH3F x) = add x - addBinContent (ETH3F x) = addBinContent x - chi2Test (ETH3F x) = chi2Test x - computeIntegral (ETH3F x) = computeIntegral x - directoryAutoAdd (ETH3F x) = directoryAutoAdd x - divide (ETH3F x) = divide x - drawCopyTH1 (ETH3F x) a1 = return . ETH3F =<< drawCopyTH1 x a1 - drawNormalized (ETH3F x) = drawNormalized x - drawPanelTH1 (ETH3F x) = drawPanelTH1 x - bufferEmpty (ETH3F x) = bufferEmpty x - evalF (ETH3F x) = evalF x - fFT (ETH3F x) = fFT x - fill1 (ETH3F x) = fill1 x - fill1w (ETH3F x) = fill1w x - fillN1 (ETH3F x) = fillN1 x - fillRandom (ETH3F x) = fillRandom x - findBin (ETH3F x) = findBin x - findFixBin (ETH3F x) = findFixBin x - findFirstBinAbove (ETH3F x) = findFirstBinAbove x - findLastBinAbove (ETH3F x) = findLastBinAbove x - fitPanelTH1 (ETH3F x) = fitPanelTH1 x - getNdivisionA (ETH3F x) = getNdivisionA x - getAxisColorA (ETH3F x) = getAxisColorA x - getLabelColorA (ETH3F x) = getLabelColorA x - getLabelFontA (ETH3F x) = getLabelFontA x - getLabelOffsetA (ETH3F x) = getLabelOffsetA x - getLabelSizeA (ETH3F x) = getLabelSizeA x - getTitleFontA (ETH3F x) = getTitleFontA x - getTitleOffsetA (ETH3F x) = getTitleOffsetA x - getTitleSizeA (ETH3F x) = getTitleSizeA x - getTickLengthA (ETH3F x) = getTickLengthA x - getBarOffset (ETH3F x) = getBarOffset x - getBarWidth (ETH3F x) = getBarWidth x - getContour (ETH3F x) = getContour x - getContourLevel (ETH3F x) = getContourLevel x - getContourLevelPad (ETH3F x) = getContourLevelPad x - getBin (ETH3F x) = getBin x - getBinCenter (ETH3F x) = getBinCenter x - getBinContent1 (ETH3F x) = getBinContent1 x - getBinContent2 (ETH3F x) = getBinContent2 x - getBinContent3 (ETH3F x) = getBinContent3 x - getBinError1 (ETH3F x) = getBinError1 x - getBinError2 (ETH3F x) = getBinError2 x - getBinError3 (ETH3F x) = getBinError3 x - getBinLowEdge (ETH3F x) = getBinLowEdge x - getBinWidth (ETH3F x) = getBinWidth x - getCellContent (ETH3F x) = getCellContent x - getCellError (ETH3F x) = getCellError x - getEntries (ETH3F x) = getEntries x - getEffectiveEntries (ETH3F x) = getEffectiveEntries x - getFunction (ETH3F x) = getFunction x - getDimension (ETH3F x) = getDimension x - getKurtosis (ETH3F x) = getKurtosis x - getLowEdge (ETH3F x) = getLowEdge x - getMaximumTH1 (ETH3F x) = getMaximumTH1 x - getMaximumBin (ETH3F x) = getMaximumBin x - getMaximumStored (ETH3F x) = getMaximumStored x - getMinimumTH1 (ETH3F x) = getMinimumTH1 x - getMinimumBin (ETH3F x) = getMinimumBin x - getMinimumStored (ETH3F x) = getMinimumStored x - getMean (ETH3F x) = getMean x - getMeanError (ETH3F x) = getMeanError x - getNbinsX (ETH3F x) = getNbinsX x - getNbinsY (ETH3F x) = getNbinsY x - getNbinsZ (ETH3F x) = getNbinsZ x - getQuantilesTH1 (ETH3F x) = getQuantilesTH1 x - getRandom (ETH3F x) = getRandom x - getStats (ETH3F x) = getStats x - getSumOfWeights (ETH3F x) = getSumOfWeights x - getSumw2 (ETH3F x) = getSumw2 x - getSumw2N (ETH3F x) = getSumw2N x - getRMS (ETH3F x) = getRMS x - getRMSError (ETH3F x) = getRMSError x - getSkewness (ETH3F x) = getSkewness x - integral1 (ETH3F x) = integral1 x - interpolate1 (ETH3F x) = interpolate1 x - interpolate2 (ETH3F x) = interpolate2 x - interpolate3 (ETH3F x) = interpolate3 x - kolmogorovTest (ETH3F x) = kolmogorovTest x - labelsDeflate (ETH3F x) = labelsDeflate x - labelsInflate (ETH3F x) = labelsInflate x - labelsOption (ETH3F x) = labelsOption x - multiflyF (ETH3F x) = multiflyF x - multiply (ETH3F x) = multiply x - putStats (ETH3F x) = putStats x - rebin (ETH3F x) = rebin x - rebinAxis (ETH3F x) = rebinAxis x - rebuild (ETH3F x) = rebuild x - recursiveRemove (ETH3F x) = recursiveRemove x - reset (ETH3F x) = reset x - resetStats (ETH3F x) = resetStats x - scale (ETH3F x) = scale x - setAxisColorA (ETH3F x) = setAxisColorA x - setAxisRange (ETH3F x) = setAxisRange x - setBarOffset (ETH3F x) = setBarOffset x - setBarWidth (ETH3F x) = setBarWidth x - setBinContent1 (ETH3F x) = setBinContent1 x - setBinContent2 (ETH3F x) = setBinContent2 x - setBinContent3 (ETH3F x) = setBinContent3 x - setBinError1 (ETH3F x) = setBinError1 x - setBinError2 (ETH3F x) = setBinError2 x - setBinError3 (ETH3F x) = setBinError3 x - setBins1 (ETH3F x) = setBins1 x - setBins2 (ETH3F x) = setBins2 x - setBins3 (ETH3F x) = setBins3 x - setBinsLength (ETH3F x) = setBinsLength x - setBuffer (ETH3F x) = setBuffer x - setCellContent (ETH3F x) = setCellContent x - setContent (ETH3F x) = setContent x - setContour (ETH3F x) = setContour x - setContourLevel (ETH3F x) = setContourLevel x - setDirectory (ETH3F x) = setDirectory x - setEntries (ETH3F x) = setEntries x - setError (ETH3F x) = setError x - setLabelColorA (ETH3F x) = setLabelColorA x - setLabelSizeA (ETH3F x) = setLabelSizeA x - setLabelFontA (ETH3F x) = setLabelFontA x - setLabelOffsetA (ETH3F x) = setLabelOffsetA x - setMaximum (ETH3F x) = setMaximum x - setMinimum (ETH3F x) = setMinimum x - setNormFactor (ETH3F x) = setNormFactor x - setStats (ETH3F x) = setStats x - setOption (ETH3F x) = setOption x - setXTitle (ETH3F x) = setXTitle x - setYTitle (ETH3F x) = setYTitle x - setZTitle (ETH3F x) = setZTitle x - showBackground (ETH3F x) = showBackground x - showPeaks (ETH3F x) = showPeaks x - smooth (ETH3F x) = smooth x - sumw2 (ETH3F x) = sumw2 x -instance ITAtt3D (Exist TH3F) where +instance ITArrayF TH3F -instance ITObject (Exist TH3F) where - draw (ETH3F x) = draw x - findObject (ETH3F x) = findObject x - getName (ETH3F x) = getName x - isA (ETH3F x) = isA x - paint (ETH3F x) = paint x - printObj (ETH3F x) = printObj x - saveAs (ETH3F x) = saveAs x - write (ETH3F x) = write x -instance ITAttLine (Exist TH3F) where - getLineColor (ETH3F x) = getLineColor x - getLineStyle (ETH3F x) = getLineStyle x - getLineWidth (ETH3F x) = getLineWidth x - resetAttLine (ETH3F x) = resetAttLine x - setLineAttributes (ETH3F x) = setLineAttributes x - setLineColor (ETH3F x) = setLineColor x - setLineStyle (ETH3F x) = setLineStyle x - setLineWidth (ETH3F x) = setLineWidth x -instance ITAttFill (Exist TH3F) where - setFillColor (ETH3F x) = setFillColor x - setFillStyle (ETH3F x) = setFillStyle x -instance ITAttMarker (Exist TH3F) where - getMarkerColor (ETH3F x) = getMarkerColor x - getMarkerStyle (ETH3F x) = getMarkerStyle x - getMarkerSize (ETH3F x) = getMarkerSize x - resetAttMarker (ETH3F x) = resetAttMarker x - setMarkerAttributes (ETH3F x) = setMarkerAttributes x - setMarkerColor (ETH3F x) = setMarkerColor x - setMarkerStyle (ETH3F x) = setMarkerStyle x - setMarkerSize (ETH3F x) = setMarkerSize x -instance IDeletable (Exist TH3F) where - delete (ETH3F x) = delete x -instance ITArray (Exist TH3F) where +instance ITH1 TH3F where + add = xform2 c_th3f_add + addBinContent = xform2 c_th3f_addbincontent + chi2Test = xform3 c_th3f_chi2test + computeIntegral = xform0 c_th3f_computeintegral + directoryAutoAdd = xform1 c_th3f_directoryautoadd + divide = xform5 c_th3f_divide + drawCopyTH1 = xform1 c_th3f_drawcopyth1 + drawNormalized = xform2 c_th3f_drawnormalized + drawPanelTH1 = xform0 c_th3f_drawpanelth1 + bufferEmpty = xform1 c_th3f_bufferempty + evalF = xform2 c_th3f_evalf + fFT = xform2 c_th3f_fft + fill1 = xform1 c_th3f_fill1 + fill1w = xform2 c_th3f_fill1w + fillN1 = xform4 c_th3f_filln1 + fillRandom = xform2 c_th3f_fillrandom + findBin = xform3 c_th3f_findbin + findFixBin = xform3 c_th3f_findfixbin + findFirstBinAbove = xform2 c_th3f_findfirstbinabove + findLastBinAbove = xform2 c_th3f_findlastbinabove + fit = xform5 c_th3f_fit + fitPanelTH1 = xform0 c_th3f_fitpanelth1 + getNdivisionA = xform1 c_th3f_getndivisiona + getAxisColorA = xform1 c_th3f_getaxiscolora + getLabelColorA = xform1 c_th3f_getlabelcolora + getLabelFontA = xform1 c_th3f_getlabelfonta + getLabelOffsetA = xform1 c_th3f_getlabeloffseta + getLabelSizeA = xform1 c_th3f_getlabelsizea + getTitleFontA = xform1 c_th3f_gettitlefonta + getTitleOffsetA = xform1 c_th3f_gettitleoffseta + getTitleSizeA = xform1 c_th3f_gettitlesizea + getTickLengthA = xform1 c_th3f_getticklengtha + getBarOffset = xform0 c_th3f_getbaroffset + getBarWidth = xform0 c_th3f_getbarwidth + getContour = xform1 c_th3f_getcontour + getContourLevel = xform1 c_th3f_getcontourlevel + getContourLevelPad = xform1 c_th3f_getcontourlevelpad + getBin = xform3 c_th3f_getbin + getBinCenter = xform1 c_th3f_getbincenter + getBinContent1 = xform1 c_th3f_getbincontent1 + getBinContent2 = xform2 c_th3f_getbincontent2 + getBinContent3 = xform3 c_th3f_getbincontent3 + getBinError1 = xform1 c_th3f_getbinerror1 + getBinError2 = xform2 c_th3f_getbinerror2 + getBinError3 = xform3 c_th3f_getbinerror3 + getBinLowEdge = xform1 c_th3f_getbinlowedge + getBinWidth = xform1 c_th3f_getbinwidth + getCellContent = xform2 c_th3f_getcellcontent + getCellError = xform2 c_th3f_getcellerror + getEntries = xform0 c_th3f_getentries + getEffectiveEntries = xform0 c_th3f_geteffectiveentries + getFunction = xform1 c_th3f_getfunction + getDimension = xform0 c_th3f_getdimension + getKurtosis = xform1 c_th3f_getkurtosis + getLowEdge = xform1 c_th3f_getlowedge + getMaximumTH1 = xform1 c_th3f_getmaximumth1 + getMaximumBin = xform0 c_th3f_getmaximumbin + getMaximumStored = xform0 c_th3f_getmaximumstored + getMinimumTH1 = xform1 c_th3f_getminimumth1 + getMinimumBin = xform0 c_th3f_getminimumbin + getMinimumStored = xform0 c_th3f_getminimumstored + getMean = xform1 c_th3f_getmean + getMeanError = xform1 c_th3f_getmeanerror + getNbinsX = xform0 c_th3f_getnbinsx + getNbinsY = xform0 c_th3f_getnbinsy + getNbinsZ = xform0 c_th3f_getnbinsz + getQuantilesTH1 = xform3 c_th3f_getquantilesth1 + getRandom = xform0 c_th3f_getrandom + getStats = xform1 c_th3f_getstats + getSumOfWeights = xform0 c_th3f_getsumofweights + getSumw2 = xform0 c_th3f_getsumw2 + getSumw2N = xform0 c_th3f_getsumw2n + getRMS = xform1 c_th3f_getrms + getRMSError = xform1 c_th3f_getrmserror + getSkewness = xform1 c_th3f_getskewness + integral1 = xform3 c_th3f_integral1 + interpolate1 = xform1 c_th3f_interpolate1 + interpolate2 = xform2 c_th3f_interpolate2 + interpolate3 = xform3 c_th3f_interpolate3 + kolmogorovTest = xform2 c_th3f_kolmogorovtest + labelsDeflate = xform1 c_th3f_labelsdeflate + labelsInflate = xform1 c_th3f_labelsinflate + labelsOption = xform2 c_th3f_labelsoption + multiflyF = xform2 c_th3f_multiflyf + multiply = xform5 c_th3f_multiply + putStats = xform1 c_th3f_putstats + rebin = xform3 c_th3f_rebin + rebinAxis = xform2 c_th3f_rebinaxis + rebuild = xform1 c_th3f_rebuild + recursiveRemove = xform1 c_th3f_recursiveremove + reset = xform1 c_th3f_reset + resetStats = xform0 c_th3f_resetstats + scale = xform2 c_th3f_scale + setAxisColorA = xform2 c_th3f_setaxiscolora + setAxisRange = xform3 c_th3f_setaxisrange + setBarOffset = xform1 c_th3f_setbaroffset + setBarWidth = xform1 c_th3f_setbarwidth + setBinContent1 = xform2 c_th3f_setbincontent1 + setBinContent2 = xform3 c_th3f_setbincontent2 + setBinContent3 = xform4 c_th3f_setbincontent3 + setBinError1 = xform2 c_th3f_setbinerror1 + setBinError2 = xform3 c_th3f_setbinerror2 + setBinError3 = xform4 c_th3f_setbinerror3 + setBins1 = xform2 c_th3f_setbins1 + setBins2 = xform4 c_th3f_setbins2 + setBins3 = xform6 c_th3f_setbins3 + setBinsLength = xform1 c_th3f_setbinslength + setBuffer = xform2 c_th3f_setbuffer + setCellContent = xform3 c_th3f_setcellcontent + setContent = xform1 c_th3f_setcontent + setContour = xform2 c_th3f_setcontour + setContourLevel = xform2 c_th3f_setcontourlevel + setDirectory = xform1 c_th3f_setdirectory + setEntries = xform1 c_th3f_setentries + setError = xform1 c_th3f_seterror + setLabelColorA = xform2 c_th3f_setlabelcolora + setLabelSizeA = xform2 c_th3f_setlabelsizea + setLabelFontA = xform2 c_th3f_setlabelfonta + setLabelOffsetA = xform2 c_th3f_setlabeloffseta + setMaximum = xform1 c_th3f_setmaximum + setMinimum = xform1 c_th3f_setminimum + setNormFactor = xform1 c_th3f_setnormfactor + setStats = xform1 c_th3f_setstats + setOption = xform1 c_th3f_setoption + setXTitle = xform1 c_th3f_setxtitle + setYTitle = xform1 c_th3f_setytitle + setZTitle = xform1 c_th3f_setztitle + showBackground = xform2 c_th3f_showbackground + showPeaks = xform3 c_th3f_showpeaks + smooth = xform2 c_th3f_smooth + sumw2 = xform0 c_th3f_sumw2 +instance ITAtt3D TH3F +instance ITNamed TH3F where + setName = xform1 c_th3f_setname + setNameTitle = xform2 c_th3f_setnametitle + setTitle = xform1 c_th3f_settitle +instance ITAttLine TH3F where + getLineColor = xform0 c_th3f_getlinecolor + getLineStyle = xform0 c_th3f_getlinestyle + getLineWidth = xform0 c_th3f_getlinewidth + resetAttLine = xform1 c_th3f_resetattline + setLineAttributes = xform0 c_th3f_setlineattributes + setLineColor = xform1 c_th3f_setlinecolor + setLineStyle = xform1 c_th3f_setlinestyle + setLineWidth = xform1 c_th3f_setlinewidth +instance ITAttFill TH3F where + setFillColor = xform1 c_th3f_setfillcolor + setFillStyle = xform1 c_th3f_setfillstyle +instance ITAttMarker TH3F where + getMarkerColor = xform0 c_th3f_getmarkercolor + getMarkerStyle = xform0 c_th3f_getmarkerstyle + getMarkerSize = xform0 c_th3f_getmarkersize + resetAttMarker = xform1 c_th3f_resetattmarker + setMarkerAttributes = xform0 c_th3f_setmarkerattributes + setMarkerColor = xform1 c_th3f_setmarkercolor + setMarkerStyle = xform1 c_th3f_setmarkerstyle + setMarkerSize = xform1 c_th3f_setmarkersize +instance ITObject TH3F where + draw = xform1 c_th3f_draw + findObject = xform1 c_th3f_findobject + getName = xform0 c_th3f_getname + isA = xform0 c_th3f_isa + paint = xform1 c_th3f_paint + printObj = xform1 c_th3f_printobj + saveAs = xform2 c_th3f_saveas + write = xform3 c_th3f_write +instance IDeletable TH3F where + delete = xform0 c_th3f_delete -instance FPtr (Exist TH3F) where - type Raw (Exist TH3F) = RawTH3F - get_fptr (ETH3F obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3F) :: TH3F) +instance ITArray TH3F diff --git a/src/HROOT/Hist/TH3F/Interface.hs b/src/HROOT/Hist/TH3F/Interface.hs --- a/src/HROOT/Hist/TH3F/Interface.hs +++ b/src/HROOT/Hist/TH3F/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3F.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3F.RawType - import HROOT.Hist.TH3.Interface import HROOT.Core.TArrayF.Interface ----- ============ ---- - - -class (ITH3 a,ITArrayF a) => ITH3F a where - -instance Existable TH3F where - data Exist TH3F = forall a. (FPtr a, ITH3F a) => ETH3F a +class (ITH3 a, ITArrayF a) => ITH3F a -upcastTH3F :: (FPtr a, ITH3F a) => a -> TH3F -upcastTH3F h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3F = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3F :: forall a . (FPtr a, ITH3F a) => a -> TH3F +upcastTH3F h + = let fh = get_fptr h + fh2 :: Ptr RawTH3F = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3F :: (FPtr a, ITH3F a) => TH3F -> a -downcastTH3F h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3F :: forall a . (FPtr a, ITH3F a) => TH3F -> a +downcastTH3F h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3F/RawType.hs b/src/HROOT/Hist/TH3F/RawType.hs --- a/src/HROOT/Hist/TH3F/RawType.hs +++ b/src/HROOT/Hist/TH3F/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3F.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3F -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3F = TH3F (Ptr RawTH3F) + deriving (Eq, Ord, Show) -data RawTH3F -newtype TH3F = TH3F (ForeignPtr RawTH3F) deriving (Eq, Ord, Show) instance FPtr TH3F where - type Raw TH3F = RawTH3F - get_fptr (TH3F fptr) = fptr - cast_fptr_to_obj = TH3F + type Raw TH3F = RawTH3F + get_fptr (TH3F ptr) = ptr + cast_fptr_to_obj = TH3F diff --git a/src/HROOT/Hist/TH3I.hs b/src/HROOT/Hist/TH3I.hs --- a/src/HROOT/Hist/TH3I.hs +++ b/src/HROOT/Hist/TH3I.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH3I - ( - TH3I(..) - , ITH3I - , upcastTH3I - , downcastTH3I - - - ) where - +module HROOT.Hist.TH3I (TH3I(..), ITH3I, upcastTH3I, downcastTH3I) + where import HROOT.Hist.TH3I.RawType import HROOT.Hist.TH3I.Interface import HROOT.Hist.TH3I.Implementation - - diff --git a/src/HROOT/Hist/TH3I/Cast.hs b/src/HROOT/Hist/TH3I/Cast.hs --- a/src/HROOT/Hist/TH3I/Cast.hs +++ b/src/HROOT/Hist/TH3I/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3I.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3I.RawType import HROOT.Hist.TH3I.Interface instance (ITH3I a, FPtr a) => Castable a (Ptr RawTH3I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3I (Ptr RawTH3I) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3I/FFI.hsc b/src/HROOT/Hist/TH3I/FFI.hsc --- a/src/HROOT/Hist/TH3I/FFI.hsc +++ b/src/HROOT/Hist/TH3I/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3I.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3I.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType @@ -23,503 +13,558 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH3I.h" +foreign import ccall safe "HROOTHistTH3I.h TH3I_fill3" c_th3i_fill3 + :: Ptr RawTH3I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_fill3" c_th3i_fill3 - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_fill3w" + c_th3i_fill3w :: + Ptr RawTH3I -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_fill3w" c_th3i_fill3w - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_FitSlicesZ" + c_th3i_fitslicesz :: + Ptr RawTH3I -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_FitSlicesZ" c_th3i_fitslicesz - :: (Ptr RawTH3I) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH3I.h TH3I_getCorrelationFactor3" + c_th3i_getcorrelationfactor3 :: + Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getCorrelationFactor3" c_th3i_getcorrelationfactor3 - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getCovariance3" + c_th3i_getcovariance3 :: Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getCovariance3" c_th3i_getcovariance3 - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_rebinX3" + c_th3i_rebinx3 :: Ptr RawTH3I -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3I.h TH3I_rebinX3" c_th3i_rebinx3 - :: (Ptr RawTH3I) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3I.h TH3I_rebinY3" + c_th3i_rebiny3 :: Ptr RawTH3I -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3I.h TH3I_rebinY3" c_th3i_rebiny3 - :: (Ptr RawTH3I) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3I.h TH3I_rebinZ3" + c_th3i_rebinz3 :: Ptr RawTH3I -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3I.h TH3I_rebinZ3" c_th3i_rebinz3 - :: (Ptr RawTH3I) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3I.h TH3I_Rebin3D" + c_th3i_rebin3d :: + Ptr RawTH3I -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3I.h TH3I_Rebin3D" c_th3i_rebin3d - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3I.h TH3I_Add" c_th3i_add :: + Ptr RawTH3I -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Add" c_th3i_add - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_AddBinContent" + c_th3i_addbincontent :: Ptr RawTH3I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_AddBinContent" c_th3i_addbincontent - :: (Ptr RawTH3I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Chi2Test" + c_th3i_chi2test :: + Ptr RawTH3I -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_Chi2Test" c_th3i_chi2test - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_ComputeIntegral" + c_th3i_computeintegral :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_ComputeIntegral" c_th3i_computeintegral - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_DirectoryAutoAdd" + c_th3i_directoryautoadd :: + Ptr RawTH3I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_DirectoryAutoAdd" c_th3i_directoryautoadd - :: (Ptr RawTH3I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Divide" + c_th3i_divide :: + Ptr RawTH3I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Divide" c_th3i_divide - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_drawCopyTH1" + c_th3i_drawcopyth1 :: Ptr RawTH3I -> CString -> IO (Ptr RawTH3I) -foreign import ccall "HROOTHistTH3I.h TH3I_drawCopyTH1" c_th3i_drawcopyth1 - :: (Ptr RawTH3I) -> CString -> IO (Ptr RawTH3I) +foreign import ccall safe "HROOTHistTH3I.h TH3I_DrawNormalized" + c_th3i_drawnormalized :: + Ptr RawTH3I -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3I.h TH3I_DrawNormalized" c_th3i_drawnormalized - :: (Ptr RawTH3I) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3I.h TH3I_drawPanelTH1" + c_th3i_drawpanelth1 :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_drawPanelTH1" c_th3i_drawpanelth1 - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_BufferEmpty" + c_th3i_bufferempty :: Ptr RawTH3I -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_BufferEmpty" c_th3i_bufferempty - :: (Ptr RawTH3I) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_evalF" c_th3i_evalf + :: Ptr RawTH3I -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_evalF" c_th3i_evalf - :: (Ptr RawTH3I) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_FFT" c_th3i_fft :: + Ptr RawTH3I -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3I.h TH3I_FFT" c_th3i_fft - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3I.h TH3I_fill1" c_th3i_fill1 + :: Ptr RawTH3I -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_fill1" c_th3i_fill1 - :: (Ptr RawTH3I) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_fill1w" + c_th3i_fill1w :: Ptr RawTH3I -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_fill1w" c_th3i_fill1w - :: (Ptr RawTH3I) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_fillN1" + c_th3i_filln1 :: + Ptr RawTH3I -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_fillN1" c_th3i_filln1 - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_FillRandom" + c_th3i_fillrandom :: Ptr RawTH3I -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_FillRandom" c_th3i_fillrandom - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_FindBin" + c_th3i_findbin :: + Ptr RawTH3I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_FindBin" c_th3i_findbin - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_FindFixBin" + c_th3i_findfixbin :: + Ptr RawTH3I -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_FindFixBin" c_th3i_findfixbin - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_FindFirstBinAbove" + c_th3i_findfirstbinabove :: + Ptr RawTH3I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_FindFirstBinAbove" c_th3i_findfirstbinabove - :: (Ptr RawTH3I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_FindLastBinAbove" + c_th3i_findlastbinabove :: + Ptr RawTH3I -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_FindLastBinAbove" c_th3i_findlastbinabove - :: (Ptr RawTH3I) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_Fit" c_th3i_fit :: + Ptr RawTH3I -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_FitPanelTH1" c_th3i_fitpanelth1 - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_FitPanelTH1" + c_th3i_fitpanelth1 :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_getNdivisionA" c_th3i_getndivisiona - :: (Ptr RawTH3I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getNdivisionA" + c_th3i_getndivisiona :: Ptr RawTH3I -> CString -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_getAxisColorA" c_th3i_getaxiscolora - :: (Ptr RawTH3I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getAxisColorA" + c_th3i_getaxiscolora :: Ptr RawTH3I -> CString -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_getLabelColorA" c_th3i_getlabelcolora - :: (Ptr RawTH3I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getLabelColorA" + c_th3i_getlabelcolora :: Ptr RawTH3I -> CString -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_getLabelFontA" c_th3i_getlabelfonta - :: (Ptr RawTH3I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getLabelFontA" + c_th3i_getlabelfonta :: Ptr RawTH3I -> CString -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_getLabelOffsetA" c_th3i_getlabeloffseta - :: (Ptr RawTH3I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getLabelOffsetA" + c_th3i_getlabeloffseta :: Ptr RawTH3I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getLabelSizeA" c_th3i_getlabelsizea - :: (Ptr RawTH3I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getLabelSizeA" + c_th3i_getlabelsizea :: Ptr RawTH3I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getTitleFontA" c_th3i_gettitlefonta - :: (Ptr RawTH3I) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getTitleFontA" + c_th3i_gettitlefonta :: Ptr RawTH3I -> CString -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_getTitleOffsetA" c_th3i_gettitleoffseta - :: (Ptr RawTH3I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getTitleOffsetA" + c_th3i_gettitleoffseta :: Ptr RawTH3I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getTitleSizeA" c_th3i_gettitlesizea - :: (Ptr RawTH3I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getTitleSizeA" + c_th3i_gettitlesizea :: Ptr RawTH3I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getTickLengthA" c_th3i_getticklengtha - :: (Ptr RawTH3I) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getTickLengthA" + c_th3i_getticklengtha :: Ptr RawTH3I -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBarOffset" c_th3i_getbaroffset - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBarOffset" + c_th3i_getbaroffset :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBarWidth" c_th3i_getbarwidth - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBarWidth" + c_th3i_getbarwidth :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetContour" c_th3i_getcontour - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetContour" + c_th3i_getcontour :: Ptr RawTH3I -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetContourLevel" c_th3i_getcontourlevel - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetContourLevel" + c_th3i_getcontourlevel :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetContourLevelPad" c_th3i_getcontourlevelpad - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetContourLevelPad" + c_th3i_getcontourlevelpad :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBin" c_th3i_getbin - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBin" + c_th3i_getbin :: Ptr RawTH3I -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinCenter" c_th3i_getbincenter - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinCenter" + c_th3i_getbincenter :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinContent1" c_th3i_getbincontent1 - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinContent1" + c_th3i_getbincontent1 :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinContent2" c_th3i_getbincontent2 - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinContent2" + c_th3i_getbincontent2 :: Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinContent3" c_th3i_getbincontent3 - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinContent3" + c_th3i_getbincontent3 :: + Ptr RawTH3I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinError1" c_th3i_getbinerror1 - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinError1" + c_th3i_getbinerror1 :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinError2" c_th3i_getbinerror2 - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinError2" + c_th3i_getbinerror2 :: Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinError3" c_th3i_getbinerror3 - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinError3" + c_th3i_getbinerror3 :: + Ptr RawTH3I -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinLowEdge" c_th3i_getbinlowedge - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinLowEdge" + c_th3i_getbinlowedge :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetBinWidth" c_th3i_getbinwidth - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetBinWidth" + c_th3i_getbinwidth :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetCellContent" c_th3i_getcellcontent - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetCellContent" + c_th3i_getcellcontent :: Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetCellError" c_th3i_getcellerror - :: (Ptr RawTH3I) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetCellError" + c_th3i_getcellerror :: Ptr RawTH3I -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetEntries" c_th3i_getentries - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetEntries" + c_th3i_getentries :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetEffectiveEntries" c_th3i_geteffectiveentries - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe + "HROOTHistTH3I.h TH3I_GetEffectiveEntries" + c_th3i_geteffectiveentries :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetFunction" c_th3i_getfunction - :: (Ptr RawTH3I) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetFunction" + c_th3i_getfunction :: Ptr RawTH3I -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3I.h TH3I_GetDimension" c_th3i_getdimension - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetDimension" + c_th3i_getdimension :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetKurtosis" c_th3i_getkurtosis - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetKurtosis" + c_th3i_getkurtosis :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetLowEdge" c_th3i_getlowedge - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetLowEdge" + c_th3i_getlowedge :: Ptr RawTH3I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_getMaximumTH1" c_th3i_getmaximumth1 - :: (Ptr RawTH3I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getMaximumTH1" + c_th3i_getmaximumth1 :: Ptr RawTH3I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetMaximumBin" c_th3i_getmaximumbin - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMaximumBin" + c_th3i_getmaximumbin :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetMaximumStored" c_th3i_getmaximumstored - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMaximumStored" + c_th3i_getmaximumstored :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getMinimumTH1" c_th3i_getminimumth1 - :: (Ptr RawTH3I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_getMinimumTH1" + c_th3i_getminimumth1 :: Ptr RawTH3I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetMinimumBin" c_th3i_getminimumbin - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMinimumBin" + c_th3i_getminimumbin :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetMinimumStored" c_th3i_getminimumstored - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMinimumStored" + c_th3i_getminimumstored :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetMean" c_th3i_getmean - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMean" + c_th3i_getmean :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetMeanError" c_th3i_getmeanerror - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMeanError" + c_th3i_getmeanerror :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetNbinsX" c_th3i_getnbinsx - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetNbinsX" + c_th3i_getnbinsx :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetNbinsY" c_th3i_getnbinsy - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetNbinsY" + c_th3i_getnbinsy :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetNbinsZ" c_th3i_getnbinsz - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetNbinsZ" + c_th3i_getnbinsz :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_getQuantilesTH1" c_th3i_getquantilesth1 - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_getQuantilesTH1" + c_th3i_getquantilesth1 :: + Ptr RawTH3I -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetRandom" c_th3i_getrandom - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetRandom" + c_th3i_getrandom :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetStats" c_th3i_getstats - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetStats" + c_th3i_getstats :: Ptr RawTH3I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetSumOfWeights" c_th3i_getsumofweights - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetSumOfWeights" + c_th3i_getsumofweights :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetSumw2" c_th3i_getsumw2 - :: (Ptr RawTH3I) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetSumw2" + c_th3i_getsumw2 :: Ptr RawTH3I -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3I.h TH3I_GetSumw2N" c_th3i_getsumw2n - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetSumw2N" + c_th3i_getsumw2n :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_GetRMS" c_th3i_getrms - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetRMS" + c_th3i_getrms :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetRMSError" c_th3i_getrmserror - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetRMSError" + c_th3i_getrmserror :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_GetSkewness" c_th3i_getskewness - :: (Ptr RawTH3I) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetSkewness" + c_th3i_getskewness :: Ptr RawTH3I -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_integral1" c_th3i_integral1 - :: (Ptr RawTH3I) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_integral1" + c_th3i_integral1 :: + Ptr RawTH3I -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_interpolate1" c_th3i_interpolate1 - :: (Ptr RawTH3I) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_interpolate1" + c_th3i_interpolate1 :: Ptr RawTH3I -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_interpolate2" c_th3i_interpolate2 - :: (Ptr RawTH3I) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_interpolate2" + c_th3i_interpolate2 :: + Ptr RawTH3I -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_interpolate3" c_th3i_interpolate3 - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_interpolate3" + c_th3i_interpolate3 :: + Ptr RawTH3I -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_KolmogorovTest" c_th3i_kolmogorovtest - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_KolmogorovTest" + c_th3i_kolmogorovtest :: + Ptr RawTH3I -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_LabelsDeflate" c_th3i_labelsdeflate - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_LabelsDeflate" + c_th3i_labelsdeflate :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_LabelsInflate" c_th3i_labelsinflate - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_LabelsInflate" + c_th3i_labelsinflate :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_LabelsOption" c_th3i_labelsoption - :: (Ptr RawTH3I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_LabelsOption" + c_th3i_labelsoption :: Ptr RawTH3I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_multiflyF" c_th3i_multiflyf - :: (Ptr RawTH3I) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_multiflyF" + c_th3i_multiflyf :: Ptr RawTH3I -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Multiply" c_th3i_multiply - :: (Ptr RawTH3I) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Multiply" + c_th3i_multiply :: + Ptr RawTH3I -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_PutStats" c_th3i_putstats - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_PutStats" + c_th3i_putstats :: Ptr RawTH3I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Rebin" c_th3i_rebin - :: (Ptr RawTH3I) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3I.h TH3I_Rebin" c_th3i_rebin + :: + Ptr RawTH3I -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3I.h TH3I_RebinAxis" c_th3i_rebinaxis - :: (Ptr RawTH3I) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_RebinAxis" + c_th3i_rebinaxis :: Ptr RawTH3I -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Rebuild" c_th3i_rebuild - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Rebuild" + c_th3i_rebuild :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_RecursiveRemove" c_th3i_recursiveremove - :: (Ptr RawTH3I) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_RecursiveRemove" + c_th3i_recursiveremove :: Ptr RawTH3I -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Reset" c_th3i_reset - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Reset" c_th3i_reset + :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_ResetStats" c_th3i_resetstats - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_ResetStats" + c_th3i_resetstats :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Scale" c_th3i_scale - :: (Ptr RawTH3I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Scale" c_th3i_scale + :: Ptr RawTH3I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setAxisColorA" c_th3i_setaxiscolora - :: (Ptr RawTH3I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setAxisColorA" + c_th3i_setaxiscolora :: Ptr RawTH3I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetAxisRange" c_th3i_setaxisrange - :: (Ptr RawTH3I) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetAxisRange" + c_th3i_setaxisrange :: + Ptr RawTH3I -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetBarOffset" c_th3i_setbaroffset - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetBarOffset" + c_th3i_setbaroffset :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetBarWidth" c_th3i_setbarwidth - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetBarWidth" + c_th3i_setbarwidth :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinContent1" c_th3i_setbincontent1 - :: (Ptr RawTH3I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinContent1" + c_th3i_setbincontent1 :: Ptr RawTH3I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinContent2" c_th3i_setbincontent2 - :: (Ptr RawTH3I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinContent2" + c_th3i_setbincontent2 :: + Ptr RawTH3I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinContent3" c_th3i_setbincontent3 - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinContent3" + c_th3i_setbincontent3 :: + Ptr RawTH3I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinError1" c_th3i_setbinerror1 - :: (Ptr RawTH3I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinError1" + c_th3i_setbinerror1 :: Ptr RawTH3I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinError2" c_th3i_setbinerror2 - :: (Ptr RawTH3I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinError2" + c_th3i_setbinerror2 :: + Ptr RawTH3I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBinError3" c_th3i_setbinerror3 - :: (Ptr RawTH3I) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBinError3" + c_th3i_setbinerror3 :: + Ptr RawTH3I -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBins1" c_th3i_setbins1 - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBins1" + c_th3i_setbins1 :: Ptr RawTH3I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBins2" c_th3i_setbins2 - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBins2" + c_th3i_setbins2 :: + Ptr RawTH3I -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setBins3" c_th3i_setbins3 - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setBins3" + c_th3i_setbins3 :: + Ptr RawTH3I -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetBinsLength" c_th3i_setbinslength - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetBinsLength" + c_th3i_setbinslength :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetBuffer" c_th3i_setbuffer - :: (Ptr RawTH3I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetBuffer" + c_th3i_setbuffer :: Ptr RawTH3I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetCellContent" c_th3i_setcellcontent - :: (Ptr RawTH3I) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetCellContent" + c_th3i_setcellcontent :: + Ptr RawTH3I -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetContent" c_th3i_setcontent - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetContent" + c_th3i_setcontent :: Ptr RawTH3I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetContour" c_th3i_setcontour - :: (Ptr RawTH3I) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetContour" + c_th3i_setcontour :: Ptr RawTH3I -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetContourLevel" c_th3i_setcontourlevel - :: (Ptr RawTH3I) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetContourLevel" + c_th3i_setcontourlevel :: Ptr RawTH3I -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetDirectory" c_th3i_setdirectory - :: (Ptr RawTH3I) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetDirectory" + c_th3i_setdirectory :: Ptr RawTH3I -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetEntries" c_th3i_setentries - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetEntries" + c_th3i_setentries :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetError" c_th3i_seterror - :: (Ptr RawTH3I) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetError" + c_th3i_seterror :: Ptr RawTH3I -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setLabelColorA" c_th3i_setlabelcolora - :: (Ptr RawTH3I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setLabelColorA" + c_th3i_setlabelcolora :: Ptr RawTH3I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setLabelSizeA" c_th3i_setlabelsizea - :: (Ptr RawTH3I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setLabelSizeA" + c_th3i_setlabelsizea :: Ptr RawTH3I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setLabelFontA" c_th3i_setlabelfonta - :: (Ptr RawTH3I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setLabelFontA" + c_th3i_setlabelfonta :: Ptr RawTH3I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_setLabelOffsetA" c_th3i_setlabeloffseta - :: (Ptr RawTH3I) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_setLabelOffsetA" + c_th3i_setlabeloffseta :: + Ptr RawTH3I -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetMaximum" c_th3i_setmaximum - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetMaximum" + c_th3i_setmaximum :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetMinimum" c_th3i_setminimum - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetMinimum" + c_th3i_setminimum :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetNormFactor" c_th3i_setnormfactor - :: (Ptr RawTH3I) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetNormFactor" + c_th3i_setnormfactor :: Ptr RawTH3I -> CDouble -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetStats" c_th3i_setstats - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetStats" + c_th3i_setstats :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetOption" c_th3i_setoption - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetOption" + c_th3i_setoption :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetXTitle" c_th3i_setxtitle - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetXTitle" + c_th3i_setxtitle :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetYTitle" c_th3i_setytitle - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetYTitle" + c_th3i_setytitle :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetZTitle" c_th3i_setztitle - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetZTitle" + c_th3i_setztitle :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_ShowBackground" c_th3i_showbackground - :: (Ptr RawTH3I) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3I.h TH3I_ShowBackground" + c_th3i_showbackground :: + Ptr RawTH3I -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3I.h TH3I_ShowPeaks" c_th3i_showpeaks - :: (Ptr RawTH3I) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_ShowPeaks" + c_th3i_showpeaks :: + Ptr RawTH3I -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_Smooth" c_th3i_smooth - :: (Ptr RawTH3I) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Smooth" + c_th3i_smooth :: Ptr RawTH3I -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Sumw2" c_th3i_sumw2 - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Sumw2" c_th3i_sumw2 + :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Draw" c_th3i_draw - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetName" + c_th3i_setname :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_FindObject" c_th3i_findobject - :: (Ptr RawTH3I) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetNameTitle" + c_th3i_setnametitle :: Ptr RawTH3I -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetName" c_th3i_getname - :: (Ptr RawTH3I) -> IO CString +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetTitle" + c_th3i_settitle :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_IsA" c_th3i_isa - :: (Ptr RawTH3I) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetLineColor" + c_th3i_getlinecolor :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_Paint" c_th3i_paint - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetLineStyle" + c_th3i_getlinestyle :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_printObj" c_th3i_printobj - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetLineWidth" + c_th3i_getlinewidth :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_SaveAs" c_th3i_saveas - :: (Ptr RawTH3I) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_ResetAttLine" + c_th3i_resetattline :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_Write" c_th3i_write - :: (Ptr RawTH3I) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetLineAttributes" + c_th3i_setlineattributes :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetLineColor" c_th3i_getlinecolor - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetLineColor" + c_th3i_setlinecolor :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetLineStyle" c_th3i_getlinestyle - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetLineStyle" + c_th3i_setlinestyle :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetLineWidth" c_th3i_getlinewidth - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetLineWidth" + c_th3i_setlinewidth :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_ResetAttLine" c_th3i_resetattline - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetFillColor" + c_th3i_setfillcolor :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetLineAttributes" c_th3i_setlineattributes - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetFillStyle" + c_th3i_setfillstyle :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetLineColor" c_th3i_setlinecolor - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMarkerColor" + c_th3i_getmarkercolor :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_SetLineStyle" c_th3i_setlinestyle - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMarkerStyle" + c_th3i_getmarkerstyle :: Ptr RawTH3I -> IO CInt -foreign import ccall "HROOTHistTH3I.h TH3I_SetLineWidth" c_th3i_setlinewidth - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetMarkerSize" + c_th3i_getmarkersize :: Ptr RawTH3I -> IO CDouble -foreign import ccall "HROOTHistTH3I.h TH3I_SetFillColor" c_th3i_setfillcolor - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_ResetAttMarker" + c_th3i_resetattmarker :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetFillStyle" c_th3i_setfillstyle - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH3I.h TH3I_SetMarkerAttributes" + c_th3i_setmarkerattributes :: Ptr RawTH3I -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetMarkerColor" c_th3i_getmarkercolor - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetMarkerColor" + c_th3i_setmarkercolor :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetMarkerStyle" c_th3i_getmarkerstyle - :: (Ptr RawTH3I) -> IO CInt +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetMarkerStyle" + c_th3i_setmarkerstyle :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_GetMarkerSize" c_th3i_getmarkersize - :: (Ptr RawTH3I) -> IO CDouble +foreign import ccall safe "HROOTHistTH3I.h TH3I_SetMarkerSize" + c_th3i_setmarkersize :: Ptr RawTH3I -> CInt -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_ResetAttMarker" c_th3i_resetattmarker - :: (Ptr RawTH3I) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Draw" c_th3i_draw + :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_SetMarkerAttributes" c_th3i_setmarkerattributes - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_FindObject" + c_th3i_findobject :: Ptr RawTH3I -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3I.h TH3I_SetMarkerColor" c_th3i_setmarkercolor - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_GetName" + c_th3i_getname :: Ptr RawTH3I -> IO CString -foreign import ccall "HROOTHistTH3I.h TH3I_SetMarkerStyle" c_th3i_setmarkerstyle - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_IsA" c_th3i_isa :: + Ptr RawTH3I -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3I.h TH3I_SetMarkerSize" c_th3i_setmarkersize - :: (Ptr RawTH3I) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_Paint" c_th3i_paint + :: Ptr RawTH3I -> CString -> IO () -foreign import ccall "HROOTHistTH3I.h TH3I_delete" c_th3i_delete - :: (Ptr RawTH3I) -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_printObj" + c_th3i_printobj :: Ptr RawTH3I -> CString -> IO () +foreign import ccall safe "HROOTHistTH3I.h TH3I_SaveAs" + c_th3i_saveas :: Ptr RawTH3I -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH3I.h TH3I_Write" c_th3i_write + :: Ptr RawTH3I -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH3I.h TH3I_delete" + c_th3i_delete :: Ptr RawTH3I -> IO () diff --git a/src/HROOT/Hist/TH3I/Implementation.hs b/src/HROOT/Hist/TH3I/Implementation.hs --- a/src/HROOT/Hist/TH3I/Implementation.hs +++ b/src/HROOT/Hist/TH3I/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3I.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3I.RawType import HROOT.Hist.TH3I.FFI import HROOT.Hist.TH3I.Interface @@ -41,9 +42,9 @@ 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 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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,381 +64,196 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH3I TH3I -instance ITH3I TH3I where instance ITH3 TH3I where - fill3 = xform3 c_th3i_fill3 - fill3w = xform4 c_th3i_fill3w - fitSlicesZ = xform7 c_th3i_fitslicesz - getCorrelationFactor3 = xform2 c_th3i_getcorrelationfactor3 - getCovariance3 = xform2 c_th3i_getcovariance3 - rebinX3 = xform2 c_th3i_rebinx3 - rebinY3 = xform2 c_th3i_rebiny3 - rebinZ3 = xform2 c_th3i_rebinz3 - rebin3D = xform4 c_th3i_rebin3d -instance ITArrayI TH3I where -instance ITH1 TH3I where - add = xform2 c_th3i_add - addBinContent = xform2 c_th3i_addbincontent - chi2Test = xform3 c_th3i_chi2test - computeIntegral = xform0 c_th3i_computeintegral - directoryAutoAdd = xform1 c_th3i_directoryautoadd - divide = xform5 c_th3i_divide - drawCopyTH1 = xform1 c_th3i_drawcopyth1 - drawNormalized = xform2 c_th3i_drawnormalized - drawPanelTH1 = xform0 c_th3i_drawpanelth1 - bufferEmpty = xform1 c_th3i_bufferempty - evalF = xform2 c_th3i_evalf - fFT = xform2 c_th3i_fft - fill1 = xform1 c_th3i_fill1 - fill1w = xform2 c_th3i_fill1w - fillN1 = xform4 c_th3i_filln1 - fillRandom = xform2 c_th3i_fillrandom - findBin = xform3 c_th3i_findbin - findFixBin = xform3 c_th3i_findfixbin - findFirstBinAbove = xform2 c_th3i_findfirstbinabove - findLastBinAbove = xform2 c_th3i_findlastbinabove - fitPanelTH1 = xform0 c_th3i_fitpanelth1 - getNdivisionA = xform1 c_th3i_getndivisiona - getAxisColorA = xform1 c_th3i_getaxiscolora - getLabelColorA = xform1 c_th3i_getlabelcolora - getLabelFontA = xform1 c_th3i_getlabelfonta - getLabelOffsetA = xform1 c_th3i_getlabeloffseta - getLabelSizeA = xform1 c_th3i_getlabelsizea - getTitleFontA = xform1 c_th3i_gettitlefonta - getTitleOffsetA = xform1 c_th3i_gettitleoffseta - getTitleSizeA = xform1 c_th3i_gettitlesizea - getTickLengthA = xform1 c_th3i_getticklengtha - getBarOffset = xform0 c_th3i_getbaroffset - getBarWidth = xform0 c_th3i_getbarwidth - getContour = xform1 c_th3i_getcontour - getContourLevel = xform1 c_th3i_getcontourlevel - getContourLevelPad = xform1 c_th3i_getcontourlevelpad - getBin = xform3 c_th3i_getbin - getBinCenter = xform1 c_th3i_getbincenter - getBinContent1 = xform1 c_th3i_getbincontent1 - getBinContent2 = xform2 c_th3i_getbincontent2 - getBinContent3 = xform3 c_th3i_getbincontent3 - getBinError1 = xform1 c_th3i_getbinerror1 - getBinError2 = xform2 c_th3i_getbinerror2 - getBinError3 = xform3 c_th3i_getbinerror3 - getBinLowEdge = xform1 c_th3i_getbinlowedge - getBinWidth = xform1 c_th3i_getbinwidth - getCellContent = xform2 c_th3i_getcellcontent - getCellError = xform2 c_th3i_getcellerror - getEntries = xform0 c_th3i_getentries - getEffectiveEntries = xform0 c_th3i_geteffectiveentries - getFunction = xform1 c_th3i_getfunction - getDimension = xform0 c_th3i_getdimension - getKurtosis = xform1 c_th3i_getkurtosis - getLowEdge = xform1 c_th3i_getlowedge - getMaximumTH1 = xform1 c_th3i_getmaximumth1 - getMaximumBin = xform0 c_th3i_getmaximumbin - getMaximumStored = xform0 c_th3i_getmaximumstored - getMinimumTH1 = xform1 c_th3i_getminimumth1 - getMinimumBin = xform0 c_th3i_getminimumbin - getMinimumStored = xform0 c_th3i_getminimumstored - getMean = xform1 c_th3i_getmean - getMeanError = xform1 c_th3i_getmeanerror - getNbinsX = xform0 c_th3i_getnbinsx - getNbinsY = xform0 c_th3i_getnbinsy - getNbinsZ = xform0 c_th3i_getnbinsz - getQuantilesTH1 = xform3 c_th3i_getquantilesth1 - getRandom = xform0 c_th3i_getrandom - getStats = xform1 c_th3i_getstats - getSumOfWeights = xform0 c_th3i_getsumofweights - getSumw2 = xform0 c_th3i_getsumw2 - getSumw2N = xform0 c_th3i_getsumw2n - getRMS = xform1 c_th3i_getrms - getRMSError = xform1 c_th3i_getrmserror - getSkewness = xform1 c_th3i_getskewness - integral1 = xform3 c_th3i_integral1 - interpolate1 = xform1 c_th3i_interpolate1 - interpolate2 = xform2 c_th3i_interpolate2 - interpolate3 = xform3 c_th3i_interpolate3 - kolmogorovTest = xform2 c_th3i_kolmogorovtest - labelsDeflate = xform1 c_th3i_labelsdeflate - labelsInflate = xform1 c_th3i_labelsinflate - labelsOption = xform2 c_th3i_labelsoption - multiflyF = xform2 c_th3i_multiflyf - multiply = xform5 c_th3i_multiply - putStats = xform1 c_th3i_putstats - rebin = xform3 c_th3i_rebin - rebinAxis = xform2 c_th3i_rebinaxis - rebuild = xform1 c_th3i_rebuild - recursiveRemove = xform1 c_th3i_recursiveremove - reset = xform1 c_th3i_reset - resetStats = xform0 c_th3i_resetstats - scale = xform2 c_th3i_scale - setAxisColorA = xform2 c_th3i_setaxiscolora - setAxisRange = xform3 c_th3i_setaxisrange - setBarOffset = xform1 c_th3i_setbaroffset - setBarWidth = xform1 c_th3i_setbarwidth - setBinContent1 = xform2 c_th3i_setbincontent1 - setBinContent2 = xform3 c_th3i_setbincontent2 - setBinContent3 = xform4 c_th3i_setbincontent3 - setBinError1 = xform2 c_th3i_setbinerror1 - setBinError2 = xform3 c_th3i_setbinerror2 - setBinError3 = xform4 c_th3i_setbinerror3 - setBins1 = xform2 c_th3i_setbins1 - setBins2 = xform4 c_th3i_setbins2 - setBins3 = xform6 c_th3i_setbins3 - setBinsLength = xform1 c_th3i_setbinslength - setBuffer = xform2 c_th3i_setbuffer - setCellContent = xform3 c_th3i_setcellcontent - setContent = xform1 c_th3i_setcontent - setContour = xform2 c_th3i_setcontour - setContourLevel = xform2 c_th3i_setcontourlevel - setDirectory = xform1 c_th3i_setdirectory - setEntries = xform1 c_th3i_setentries - setError = xform1 c_th3i_seterror - setLabelColorA = xform2 c_th3i_setlabelcolora - setLabelSizeA = xform2 c_th3i_setlabelsizea - setLabelFontA = xform2 c_th3i_setlabelfonta - setLabelOffsetA = xform2 c_th3i_setlabeloffseta - setMaximum = xform1 c_th3i_setmaximum - setMinimum = xform1 c_th3i_setminimum - setNormFactor = xform1 c_th3i_setnormfactor - setStats = xform1 c_th3i_setstats - setOption = xform1 c_th3i_setoption - setXTitle = xform1 c_th3i_setxtitle - setYTitle = xform1 c_th3i_setytitle - setZTitle = xform1 c_th3i_setztitle - showBackground = xform2 c_th3i_showbackground - showPeaks = xform3 c_th3i_showpeaks - smooth = xform2 c_th3i_smooth - sumw2 = xform0 c_th3i_sumw2 -instance ITAtt3D TH3I where -instance ITObject TH3I where - draw = xform1 c_th3i_draw - findObject = xform1 c_th3i_findobject - getName = xform0 c_th3i_getname - isA = xform0 c_th3i_isa - paint = xform1 c_th3i_paint - printObj = xform1 c_th3i_printobj - saveAs = xform2 c_th3i_saveas - write = xform3 c_th3i_write -instance ITAttLine TH3I where - getLineColor = xform0 c_th3i_getlinecolor - getLineStyle = xform0 c_th3i_getlinestyle - getLineWidth = xform0 c_th3i_getlinewidth - resetAttLine = xform1 c_th3i_resetattline - setLineAttributes = xform0 c_th3i_setlineattributes - setLineColor = xform1 c_th3i_setlinecolor - setLineStyle = xform1 c_th3i_setlinestyle - setLineWidth = xform1 c_th3i_setlinewidth -instance ITAttFill TH3I where - setFillColor = xform1 c_th3i_setfillcolor - setFillStyle = xform1 c_th3i_setfillstyle -instance ITAttMarker TH3I where - getMarkerColor = xform0 c_th3i_getmarkercolor - getMarkerStyle = xform0 c_th3i_getmarkerstyle - getMarkerSize = xform0 c_th3i_getmarkersize - resetAttMarker = xform1 c_th3i_resetattmarker - setMarkerAttributes = xform0 c_th3i_setmarkerattributes - setMarkerColor = xform1 c_th3i_setmarkercolor - setMarkerStyle = xform1 c_th3i_setmarkerstyle - setMarkerSize = xform1 c_th3i_setmarkersize -instance IDeletable TH3I where - delete = xform0 c_th3i_delete -instance ITArray TH3I where - -instance ITH3I (Exist TH3I) where - -instance ITH3 (Exist TH3I) where - fill3 (ETH3I x) = fill3 x - fill3w (ETH3I x) = fill3w x - fitSlicesZ (ETH3I x) = fitSlicesZ x - getCorrelationFactor3 (ETH3I x) = getCorrelationFactor3 x - getCovariance3 (ETH3I x) = getCovariance3 x - rebinX3 (ETH3I x) = rebinX3 x - rebinY3 (ETH3I x) = rebinY3 x - rebinZ3 (ETH3I x) = rebinZ3 x - rebin3D (ETH3I x) = rebin3D x -instance ITArrayI (Exist TH3I) where + fill3 = xform3 c_th3i_fill3 + fill3w = xform4 c_th3i_fill3w + fitSlicesZ = xform7 c_th3i_fitslicesz + getCorrelationFactor3 = xform2 c_th3i_getcorrelationfactor3 + getCovariance3 = xform2 c_th3i_getcovariance3 + rebinX3 = xform2 c_th3i_rebinx3 + rebinY3 = xform2 c_th3i_rebiny3 + rebinZ3 = xform2 c_th3i_rebinz3 + rebin3D = xform4 c_th3i_rebin3d -instance ITH1 (Exist TH3I) where - add (ETH3I x) = add x - addBinContent (ETH3I x) = addBinContent x - chi2Test (ETH3I x) = chi2Test x - computeIntegral (ETH3I x) = computeIntegral x - directoryAutoAdd (ETH3I x) = directoryAutoAdd x - divide (ETH3I x) = divide x - drawCopyTH1 (ETH3I x) a1 = return . ETH3I =<< drawCopyTH1 x a1 - drawNormalized (ETH3I x) = drawNormalized x - drawPanelTH1 (ETH3I x) = drawPanelTH1 x - bufferEmpty (ETH3I x) = bufferEmpty x - evalF (ETH3I x) = evalF x - fFT (ETH3I x) = fFT x - fill1 (ETH3I x) = fill1 x - fill1w (ETH3I x) = fill1w x - fillN1 (ETH3I x) = fillN1 x - fillRandom (ETH3I x) = fillRandom x - findBin (ETH3I x) = findBin x - findFixBin (ETH3I x) = findFixBin x - findFirstBinAbove (ETH3I x) = findFirstBinAbove x - findLastBinAbove (ETH3I x) = findLastBinAbove x - fitPanelTH1 (ETH3I x) = fitPanelTH1 x - getNdivisionA (ETH3I x) = getNdivisionA x - getAxisColorA (ETH3I x) = getAxisColorA x - getLabelColorA (ETH3I x) = getLabelColorA x - getLabelFontA (ETH3I x) = getLabelFontA x - getLabelOffsetA (ETH3I x) = getLabelOffsetA x - getLabelSizeA (ETH3I x) = getLabelSizeA x - getTitleFontA (ETH3I x) = getTitleFontA x - getTitleOffsetA (ETH3I x) = getTitleOffsetA x - getTitleSizeA (ETH3I x) = getTitleSizeA x - getTickLengthA (ETH3I x) = getTickLengthA x - getBarOffset (ETH3I x) = getBarOffset x - getBarWidth (ETH3I x) = getBarWidth x - getContour (ETH3I x) = getContour x - getContourLevel (ETH3I x) = getContourLevel x - getContourLevelPad (ETH3I x) = getContourLevelPad x - getBin (ETH3I x) = getBin x - getBinCenter (ETH3I x) = getBinCenter x - getBinContent1 (ETH3I x) = getBinContent1 x - getBinContent2 (ETH3I x) = getBinContent2 x - getBinContent3 (ETH3I x) = getBinContent3 x - getBinError1 (ETH3I x) = getBinError1 x - getBinError2 (ETH3I x) = getBinError2 x - getBinError3 (ETH3I x) = getBinError3 x - getBinLowEdge (ETH3I x) = getBinLowEdge x - getBinWidth (ETH3I x) = getBinWidth x - getCellContent (ETH3I x) = getCellContent x - getCellError (ETH3I x) = getCellError x - getEntries (ETH3I x) = getEntries x - getEffectiveEntries (ETH3I x) = getEffectiveEntries x - getFunction (ETH3I x) = getFunction x - getDimension (ETH3I x) = getDimension x - getKurtosis (ETH3I x) = getKurtosis x - getLowEdge (ETH3I x) = getLowEdge x - getMaximumTH1 (ETH3I x) = getMaximumTH1 x - getMaximumBin (ETH3I x) = getMaximumBin x - getMaximumStored (ETH3I x) = getMaximumStored x - getMinimumTH1 (ETH3I x) = getMinimumTH1 x - getMinimumBin (ETH3I x) = getMinimumBin x - getMinimumStored (ETH3I x) = getMinimumStored x - getMean (ETH3I x) = getMean x - getMeanError (ETH3I x) = getMeanError x - getNbinsX (ETH3I x) = getNbinsX x - getNbinsY (ETH3I x) = getNbinsY x - getNbinsZ (ETH3I x) = getNbinsZ x - getQuantilesTH1 (ETH3I x) = getQuantilesTH1 x - getRandom (ETH3I x) = getRandom x - getStats (ETH3I x) = getStats x - getSumOfWeights (ETH3I x) = getSumOfWeights x - getSumw2 (ETH3I x) = getSumw2 x - getSumw2N (ETH3I x) = getSumw2N x - getRMS (ETH3I x) = getRMS x - getRMSError (ETH3I x) = getRMSError x - getSkewness (ETH3I x) = getSkewness x - integral1 (ETH3I x) = integral1 x - interpolate1 (ETH3I x) = interpolate1 x - interpolate2 (ETH3I x) = interpolate2 x - interpolate3 (ETH3I x) = interpolate3 x - kolmogorovTest (ETH3I x) = kolmogorovTest x - labelsDeflate (ETH3I x) = labelsDeflate x - labelsInflate (ETH3I x) = labelsInflate x - labelsOption (ETH3I x) = labelsOption x - multiflyF (ETH3I x) = multiflyF x - multiply (ETH3I x) = multiply x - putStats (ETH3I x) = putStats x - rebin (ETH3I x) = rebin x - rebinAxis (ETH3I x) = rebinAxis x - rebuild (ETH3I x) = rebuild x - recursiveRemove (ETH3I x) = recursiveRemove x - reset (ETH3I x) = reset x - resetStats (ETH3I x) = resetStats x - scale (ETH3I x) = scale x - setAxisColorA (ETH3I x) = setAxisColorA x - setAxisRange (ETH3I x) = setAxisRange x - setBarOffset (ETH3I x) = setBarOffset x - setBarWidth (ETH3I x) = setBarWidth x - setBinContent1 (ETH3I x) = setBinContent1 x - setBinContent2 (ETH3I x) = setBinContent2 x - setBinContent3 (ETH3I x) = setBinContent3 x - setBinError1 (ETH3I x) = setBinError1 x - setBinError2 (ETH3I x) = setBinError2 x - setBinError3 (ETH3I x) = setBinError3 x - setBins1 (ETH3I x) = setBins1 x - setBins2 (ETH3I x) = setBins2 x - setBins3 (ETH3I x) = setBins3 x - setBinsLength (ETH3I x) = setBinsLength x - setBuffer (ETH3I x) = setBuffer x - setCellContent (ETH3I x) = setCellContent x - setContent (ETH3I x) = setContent x - setContour (ETH3I x) = setContour x - setContourLevel (ETH3I x) = setContourLevel x - setDirectory (ETH3I x) = setDirectory x - setEntries (ETH3I x) = setEntries x - setError (ETH3I x) = setError x - setLabelColorA (ETH3I x) = setLabelColorA x - setLabelSizeA (ETH3I x) = setLabelSizeA x - setLabelFontA (ETH3I x) = setLabelFontA x - setLabelOffsetA (ETH3I x) = setLabelOffsetA x - setMaximum (ETH3I x) = setMaximum x - setMinimum (ETH3I x) = setMinimum x - setNormFactor (ETH3I x) = setNormFactor x - setStats (ETH3I x) = setStats x - setOption (ETH3I x) = setOption x - setXTitle (ETH3I x) = setXTitle x - setYTitle (ETH3I x) = setYTitle x - setZTitle (ETH3I x) = setZTitle x - showBackground (ETH3I x) = showBackground x - showPeaks (ETH3I x) = showPeaks x - smooth (ETH3I x) = smooth x - sumw2 (ETH3I x) = sumw2 x -instance ITAtt3D (Exist TH3I) where +instance ITArrayI TH3I -instance ITObject (Exist TH3I) where - draw (ETH3I x) = draw x - findObject (ETH3I x) = findObject x - getName (ETH3I x) = getName x - isA (ETH3I x) = isA x - paint (ETH3I x) = paint x - printObj (ETH3I x) = printObj x - saveAs (ETH3I x) = saveAs x - write (ETH3I x) = write x -instance ITAttLine (Exist TH3I) where - getLineColor (ETH3I x) = getLineColor x - getLineStyle (ETH3I x) = getLineStyle x - getLineWidth (ETH3I x) = getLineWidth x - resetAttLine (ETH3I x) = resetAttLine x - setLineAttributes (ETH3I x) = setLineAttributes x - setLineColor (ETH3I x) = setLineColor x - setLineStyle (ETH3I x) = setLineStyle x - setLineWidth (ETH3I x) = setLineWidth x -instance ITAttFill (Exist TH3I) where - setFillColor (ETH3I x) = setFillColor x - setFillStyle (ETH3I x) = setFillStyle x -instance ITAttMarker (Exist TH3I) where - getMarkerColor (ETH3I x) = getMarkerColor x - getMarkerStyle (ETH3I x) = getMarkerStyle x - getMarkerSize (ETH3I x) = getMarkerSize x - resetAttMarker (ETH3I x) = resetAttMarker x - setMarkerAttributes (ETH3I x) = setMarkerAttributes x - setMarkerColor (ETH3I x) = setMarkerColor x - setMarkerStyle (ETH3I x) = setMarkerStyle x - setMarkerSize (ETH3I x) = setMarkerSize x -instance IDeletable (Exist TH3I) where - delete (ETH3I x) = delete x -instance ITArray (Exist TH3I) where +instance ITH1 TH3I where + add = xform2 c_th3i_add + addBinContent = xform2 c_th3i_addbincontent + chi2Test = xform3 c_th3i_chi2test + computeIntegral = xform0 c_th3i_computeintegral + directoryAutoAdd = xform1 c_th3i_directoryautoadd + divide = xform5 c_th3i_divide + drawCopyTH1 = xform1 c_th3i_drawcopyth1 + drawNormalized = xform2 c_th3i_drawnormalized + drawPanelTH1 = xform0 c_th3i_drawpanelth1 + bufferEmpty = xform1 c_th3i_bufferempty + evalF = xform2 c_th3i_evalf + fFT = xform2 c_th3i_fft + fill1 = xform1 c_th3i_fill1 + fill1w = xform2 c_th3i_fill1w + fillN1 = xform4 c_th3i_filln1 + fillRandom = xform2 c_th3i_fillrandom + findBin = xform3 c_th3i_findbin + findFixBin = xform3 c_th3i_findfixbin + findFirstBinAbove = xform2 c_th3i_findfirstbinabove + findLastBinAbove = xform2 c_th3i_findlastbinabove + fit = xform5 c_th3i_fit + fitPanelTH1 = xform0 c_th3i_fitpanelth1 + getNdivisionA = xform1 c_th3i_getndivisiona + getAxisColorA = xform1 c_th3i_getaxiscolora + getLabelColorA = xform1 c_th3i_getlabelcolora + getLabelFontA = xform1 c_th3i_getlabelfonta + getLabelOffsetA = xform1 c_th3i_getlabeloffseta + getLabelSizeA = xform1 c_th3i_getlabelsizea + getTitleFontA = xform1 c_th3i_gettitlefonta + getTitleOffsetA = xform1 c_th3i_gettitleoffseta + getTitleSizeA = xform1 c_th3i_gettitlesizea + getTickLengthA = xform1 c_th3i_getticklengtha + getBarOffset = xform0 c_th3i_getbaroffset + getBarWidth = xform0 c_th3i_getbarwidth + getContour = xform1 c_th3i_getcontour + getContourLevel = xform1 c_th3i_getcontourlevel + getContourLevelPad = xform1 c_th3i_getcontourlevelpad + getBin = xform3 c_th3i_getbin + getBinCenter = xform1 c_th3i_getbincenter + getBinContent1 = xform1 c_th3i_getbincontent1 + getBinContent2 = xform2 c_th3i_getbincontent2 + getBinContent3 = xform3 c_th3i_getbincontent3 + getBinError1 = xform1 c_th3i_getbinerror1 + getBinError2 = xform2 c_th3i_getbinerror2 + getBinError3 = xform3 c_th3i_getbinerror3 + getBinLowEdge = xform1 c_th3i_getbinlowedge + getBinWidth = xform1 c_th3i_getbinwidth + getCellContent = xform2 c_th3i_getcellcontent + getCellError = xform2 c_th3i_getcellerror + getEntries = xform0 c_th3i_getentries + getEffectiveEntries = xform0 c_th3i_geteffectiveentries + getFunction = xform1 c_th3i_getfunction + getDimension = xform0 c_th3i_getdimension + getKurtosis = xform1 c_th3i_getkurtosis + getLowEdge = xform1 c_th3i_getlowedge + getMaximumTH1 = xform1 c_th3i_getmaximumth1 + getMaximumBin = xform0 c_th3i_getmaximumbin + getMaximumStored = xform0 c_th3i_getmaximumstored + getMinimumTH1 = xform1 c_th3i_getminimumth1 + getMinimumBin = xform0 c_th3i_getminimumbin + getMinimumStored = xform0 c_th3i_getminimumstored + getMean = xform1 c_th3i_getmean + getMeanError = xform1 c_th3i_getmeanerror + getNbinsX = xform0 c_th3i_getnbinsx + getNbinsY = xform0 c_th3i_getnbinsy + getNbinsZ = xform0 c_th3i_getnbinsz + getQuantilesTH1 = xform3 c_th3i_getquantilesth1 + getRandom = xform0 c_th3i_getrandom + getStats = xform1 c_th3i_getstats + getSumOfWeights = xform0 c_th3i_getsumofweights + getSumw2 = xform0 c_th3i_getsumw2 + getSumw2N = xform0 c_th3i_getsumw2n + getRMS = xform1 c_th3i_getrms + getRMSError = xform1 c_th3i_getrmserror + getSkewness = xform1 c_th3i_getskewness + integral1 = xform3 c_th3i_integral1 + interpolate1 = xform1 c_th3i_interpolate1 + interpolate2 = xform2 c_th3i_interpolate2 + interpolate3 = xform3 c_th3i_interpolate3 + kolmogorovTest = xform2 c_th3i_kolmogorovtest + labelsDeflate = xform1 c_th3i_labelsdeflate + labelsInflate = xform1 c_th3i_labelsinflate + labelsOption = xform2 c_th3i_labelsoption + multiflyF = xform2 c_th3i_multiflyf + multiply = xform5 c_th3i_multiply + putStats = xform1 c_th3i_putstats + rebin = xform3 c_th3i_rebin + rebinAxis = xform2 c_th3i_rebinaxis + rebuild = xform1 c_th3i_rebuild + recursiveRemove = xform1 c_th3i_recursiveremove + reset = xform1 c_th3i_reset + resetStats = xform0 c_th3i_resetstats + scale = xform2 c_th3i_scale + setAxisColorA = xform2 c_th3i_setaxiscolora + setAxisRange = xform3 c_th3i_setaxisrange + setBarOffset = xform1 c_th3i_setbaroffset + setBarWidth = xform1 c_th3i_setbarwidth + setBinContent1 = xform2 c_th3i_setbincontent1 + setBinContent2 = xform3 c_th3i_setbincontent2 + setBinContent3 = xform4 c_th3i_setbincontent3 + setBinError1 = xform2 c_th3i_setbinerror1 + setBinError2 = xform3 c_th3i_setbinerror2 + setBinError3 = xform4 c_th3i_setbinerror3 + setBins1 = xform2 c_th3i_setbins1 + setBins2 = xform4 c_th3i_setbins2 + setBins3 = xform6 c_th3i_setbins3 + setBinsLength = xform1 c_th3i_setbinslength + setBuffer = xform2 c_th3i_setbuffer + setCellContent = xform3 c_th3i_setcellcontent + setContent = xform1 c_th3i_setcontent + setContour = xform2 c_th3i_setcontour + setContourLevel = xform2 c_th3i_setcontourlevel + setDirectory = xform1 c_th3i_setdirectory + setEntries = xform1 c_th3i_setentries + setError = xform1 c_th3i_seterror + setLabelColorA = xform2 c_th3i_setlabelcolora + setLabelSizeA = xform2 c_th3i_setlabelsizea + setLabelFontA = xform2 c_th3i_setlabelfonta + setLabelOffsetA = xform2 c_th3i_setlabeloffseta + setMaximum = xform1 c_th3i_setmaximum + setMinimum = xform1 c_th3i_setminimum + setNormFactor = xform1 c_th3i_setnormfactor + setStats = xform1 c_th3i_setstats + setOption = xform1 c_th3i_setoption + setXTitle = xform1 c_th3i_setxtitle + setYTitle = xform1 c_th3i_setytitle + setZTitle = xform1 c_th3i_setztitle + showBackground = xform2 c_th3i_showbackground + showPeaks = xform3 c_th3i_showpeaks + smooth = xform2 c_th3i_smooth + sumw2 = xform0 c_th3i_sumw2 +instance ITAtt3D TH3I +instance ITNamed TH3I where + setName = xform1 c_th3i_setname + setNameTitle = xform2 c_th3i_setnametitle + setTitle = xform1 c_th3i_settitle +instance ITAttLine TH3I where + getLineColor = xform0 c_th3i_getlinecolor + getLineStyle = xform0 c_th3i_getlinestyle + getLineWidth = xform0 c_th3i_getlinewidth + resetAttLine = xform1 c_th3i_resetattline + setLineAttributes = xform0 c_th3i_setlineattributes + setLineColor = xform1 c_th3i_setlinecolor + setLineStyle = xform1 c_th3i_setlinestyle + setLineWidth = xform1 c_th3i_setlinewidth +instance ITAttFill TH3I where + setFillColor = xform1 c_th3i_setfillcolor + setFillStyle = xform1 c_th3i_setfillstyle +instance ITAttMarker TH3I where + getMarkerColor = xform0 c_th3i_getmarkercolor + getMarkerStyle = xform0 c_th3i_getmarkerstyle + getMarkerSize = xform0 c_th3i_getmarkersize + resetAttMarker = xform1 c_th3i_resetattmarker + setMarkerAttributes = xform0 c_th3i_setmarkerattributes + setMarkerColor = xform1 c_th3i_setmarkercolor + setMarkerStyle = xform1 c_th3i_setmarkerstyle + setMarkerSize = xform1 c_th3i_setmarkersize +instance ITObject TH3I where + draw = xform1 c_th3i_draw + findObject = xform1 c_th3i_findobject + getName = xform0 c_th3i_getname + isA = xform0 c_th3i_isa + paint = xform1 c_th3i_paint + printObj = xform1 c_th3i_printobj + saveAs = xform2 c_th3i_saveas + write = xform3 c_th3i_write +instance IDeletable TH3I where + delete = xform0 c_th3i_delete -instance FPtr (Exist TH3I) where - type Raw (Exist TH3I) = RawTH3I - get_fptr (ETH3I obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3I) :: TH3I) +instance ITArray TH3I diff --git a/src/HROOT/Hist/TH3I/Interface.hs b/src/HROOT/Hist/TH3I/Interface.hs --- a/src/HROOT/Hist/TH3I/Interface.hs +++ b/src/HROOT/Hist/TH3I/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3I.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3I.RawType - import HROOT.Hist.TH3.Interface import HROOT.Core.TArrayI.Interface ----- ============ ---- - - -class (ITH3 a,ITArrayI a) => ITH3I a where - -instance Existable TH3I where - data Exist TH3I = forall a. (FPtr a, ITH3I a) => ETH3I a +class (ITH3 a, ITArrayI a) => ITH3I a -upcastTH3I :: (FPtr a, ITH3I a) => a -> TH3I -upcastTH3I h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3I = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3I :: forall a . (FPtr a, ITH3I a) => a -> TH3I +upcastTH3I h + = let fh = get_fptr h + fh2 :: Ptr RawTH3I = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3I :: (FPtr a, ITH3I a) => TH3I -> a -downcastTH3I h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3I :: forall a . (FPtr a, ITH3I a) => TH3I -> a +downcastTH3I h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3I/RawType.hs b/src/HROOT/Hist/TH3I/RawType.hs --- a/src/HROOT/Hist/TH3I/RawType.hs +++ b/src/HROOT/Hist/TH3I/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3I.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3I -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3I = TH3I (Ptr RawTH3I) + deriving (Eq, Ord, Show) -data RawTH3I -newtype TH3I = TH3I (ForeignPtr RawTH3I) deriving (Eq, Ord, Show) instance FPtr TH3I where - type Raw TH3I = RawTH3I - get_fptr (TH3I fptr) = fptr - cast_fptr_to_obj = TH3I + type Raw TH3I = RawTH3I + get_fptr (TH3I ptr) = ptr + cast_fptr_to_obj = TH3I diff --git a/src/HROOT/Hist/TH3S.hs b/src/HROOT/Hist/TH3S.hs --- a/src/HROOT/Hist/TH3S.hs +++ b/src/HROOT/Hist/TH3S.hs @@ -1,15 +1,5 @@ -module HROOT.Hist.TH3S - ( - TH3S(..) - , ITH3S - , upcastTH3S - , downcastTH3S - - - ) where - +module HROOT.Hist.TH3S (TH3S(..), ITH3S, upcastTH3S, downcastTH3S) + where import HROOT.Hist.TH3S.RawType import HROOT.Hist.TH3S.Interface import HROOT.Hist.TH3S.Implementation - - diff --git a/src/HROOT/Hist/TH3S/Cast.hs b/src/HROOT/Hist/TH3S/Cast.hs --- a/src/HROOT/Hist/TH3S/Cast.hs +++ b/src/HROOT/Hist/TH3S/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.TH3S.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.TH3S.RawType import HROOT.Hist.TH3S.Interface instance (ITH3S a, FPtr a) => Castable a (Ptr RawTH3S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable TH3S (Ptr RawTH3S) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/TH3S/FFI.hsc b/src/HROOT/Hist/TH3S/FFI.hsc --- a/src/HROOT/Hist/TH3S/FFI.hsc +++ b/src/HROOT/Hist/TH3S/FFI.hsc @@ -1,17 +1,7 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.TH3S.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.TH3S.RawType import HROOT.Hist.TH1D.RawType import HROOT.Hist.TH1.RawType @@ -23,503 +13,558 @@ import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTH3S.h" +foreign import ccall safe "HROOTHistTH3S.h TH3S_fill3" c_th3s_fill3 + :: Ptr RawTH3S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_fill3" c_th3s_fill3 - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_fill3w" + c_th3s_fill3w :: + Ptr RawTH3S -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_fill3w" c_th3s_fill3w - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_FitSlicesZ" + c_th3s_fitslicesz :: + Ptr RawTH3S -> + Ptr RawTF1 -> + CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_FitSlicesZ" c_th3s_fitslicesz - :: (Ptr RawTH3S) -> (Ptr RawTF1) -> CInt -> CInt -> CInt -> CInt -> CInt -> CString -> IO () +foreign import ccall safe + "HROOTHistTH3S.h TH3S_getCorrelationFactor3" + c_th3s_getcorrelationfactor3 :: + Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getCorrelationFactor3" c_th3s_getcorrelationfactor3 - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getCovariance3" + c_th3s_getcovariance3 :: Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getCovariance3" c_th3s_getcovariance3 - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_rebinX3" + c_th3s_rebinx3 :: Ptr RawTH3S -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3S.h TH3S_rebinX3" c_th3s_rebinx3 - :: (Ptr RawTH3S) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3S.h TH3S_rebinY3" + c_th3s_rebiny3 :: Ptr RawTH3S -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3S.h TH3S_rebinY3" c_th3s_rebiny3 - :: (Ptr RawTH3S) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3S.h TH3S_rebinZ3" + c_th3s_rebinz3 :: Ptr RawTH3S -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3S.h TH3S_rebinZ3" c_th3s_rebinz3 - :: (Ptr RawTH3S) -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3S.h TH3S_Rebin3D" + c_th3s_rebin3d :: + Ptr RawTH3S -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) -foreign import ccall "HROOTHistTH3S.h TH3S_Rebin3D" c_th3s_rebin3d - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> CString -> IO (Ptr RawTH3) +foreign import ccall safe "HROOTHistTH3S.h TH3S_Add" c_th3s_add :: + Ptr RawTH3S -> Ptr RawTH1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Add" c_th3s_add - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_AddBinContent" + c_th3s_addbincontent :: Ptr RawTH3S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_AddBinContent" c_th3s_addbincontent - :: (Ptr RawTH3S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Chi2Test" + c_th3s_chi2test :: + Ptr RawTH3S -> Ptr RawTH1 -> CString -> (Ptr CDouble) -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_Chi2Test" c_th3s_chi2test - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> CString -> (Ptr CDouble) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_ComputeIntegral" + c_th3s_computeintegral :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_ComputeIntegral" c_th3s_computeintegral - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_DirectoryAutoAdd" + c_th3s_directoryautoadd :: + Ptr RawTH3S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_DirectoryAutoAdd" c_th3s_directoryautoadd - :: (Ptr RawTH3S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Divide" + c_th3s_divide :: + Ptr RawTH3S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Divide" c_th3s_divide - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_drawCopyTH1" + c_th3s_drawcopyth1 :: Ptr RawTH3S -> CString -> IO (Ptr RawTH3S) -foreign import ccall "HROOTHistTH3S.h TH3S_drawCopyTH1" c_th3s_drawcopyth1 - :: (Ptr RawTH3S) -> CString -> IO (Ptr RawTH3S) +foreign import ccall safe "HROOTHistTH3S.h TH3S_DrawNormalized" + c_th3s_drawnormalized :: + Ptr RawTH3S -> CString -> CDouble -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3S.h TH3S_DrawNormalized" c_th3s_drawnormalized - :: (Ptr RawTH3S) -> CString -> CDouble -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3S.h TH3S_drawPanelTH1" + c_th3s_drawpanelth1 :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_drawPanelTH1" c_th3s_drawpanelth1 - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_BufferEmpty" + c_th3s_bufferempty :: Ptr RawTH3S -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_BufferEmpty" c_th3s_bufferempty - :: (Ptr RawTH3S) -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_evalF" c_th3s_evalf + :: Ptr RawTH3S -> Ptr RawTF1 -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_evalF" c_th3s_evalf - :: (Ptr RawTH3S) -> (Ptr RawTF1) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_FFT" c_th3s_fft :: + Ptr RawTH3S -> Ptr RawTH1 -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3S.h TH3S_FFT" c_th3s_fft - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3S.h TH3S_fill1" c_th3s_fill1 + :: Ptr RawTH3S -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_fill1" c_th3s_fill1 - :: (Ptr RawTH3S) -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_fill1w" + c_th3s_fill1w :: Ptr RawTH3S -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_fill1w" c_th3s_fill1w - :: (Ptr RawTH3S) -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_fillN1" + c_th3s_filln1 :: + Ptr RawTH3S -> + CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_fillN1" c_th3s_filln1 - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_FillRandom" + c_th3s_fillrandom :: Ptr RawTH3S -> Ptr RawTH1 -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_FillRandom" c_th3s_fillrandom - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_FindBin" + c_th3s_findbin :: + Ptr RawTH3S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_FindBin" c_th3s_findbin - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_FindFixBin" + c_th3s_findfixbin :: + Ptr RawTH3S -> CDouble -> CDouble -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_FindFixBin" c_th3s_findfixbin - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_FindFirstBinAbove" + c_th3s_findfirstbinabove :: + Ptr RawTH3S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_FindFirstBinAbove" c_th3s_findfirstbinabove - :: (Ptr RawTH3S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_FindLastBinAbove" + c_th3s_findlastbinabove :: + Ptr RawTH3S -> CDouble -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_FindLastBinAbove" c_th3s_findlastbinabove - :: (Ptr RawTH3S) -> CDouble -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_Fit" c_th3s_fit :: + Ptr RawTH3S -> + Ptr RawTF1 -> CString -> CString -> CDouble -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_FitPanelTH1" c_th3s_fitpanelth1 - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_FitPanelTH1" + c_th3s_fitpanelth1 :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_getNdivisionA" c_th3s_getndivisiona - :: (Ptr RawTH3S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getNdivisionA" + c_th3s_getndivisiona :: Ptr RawTH3S -> CString -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_getAxisColorA" c_th3s_getaxiscolora - :: (Ptr RawTH3S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getAxisColorA" + c_th3s_getaxiscolora :: Ptr RawTH3S -> CString -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_getLabelColorA" c_th3s_getlabelcolora - :: (Ptr RawTH3S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getLabelColorA" + c_th3s_getlabelcolora :: Ptr RawTH3S -> CString -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_getLabelFontA" c_th3s_getlabelfonta - :: (Ptr RawTH3S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getLabelFontA" + c_th3s_getlabelfonta :: Ptr RawTH3S -> CString -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_getLabelOffsetA" c_th3s_getlabeloffseta - :: (Ptr RawTH3S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getLabelOffsetA" + c_th3s_getlabeloffseta :: Ptr RawTH3S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getLabelSizeA" c_th3s_getlabelsizea - :: (Ptr RawTH3S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getLabelSizeA" + c_th3s_getlabelsizea :: Ptr RawTH3S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getTitleFontA" c_th3s_gettitlefonta - :: (Ptr RawTH3S) -> CString -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getTitleFontA" + c_th3s_gettitlefonta :: Ptr RawTH3S -> CString -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_getTitleOffsetA" c_th3s_gettitleoffseta - :: (Ptr RawTH3S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getTitleOffsetA" + c_th3s_gettitleoffseta :: Ptr RawTH3S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getTitleSizeA" c_th3s_gettitlesizea - :: (Ptr RawTH3S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getTitleSizeA" + c_th3s_gettitlesizea :: Ptr RawTH3S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getTickLengthA" c_th3s_getticklengtha - :: (Ptr RawTH3S) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getTickLengthA" + c_th3s_getticklengtha :: Ptr RawTH3S -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBarOffset" c_th3s_getbaroffset - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBarOffset" + c_th3s_getbaroffset :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBarWidth" c_th3s_getbarwidth - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBarWidth" + c_th3s_getbarwidth :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetContour" c_th3s_getcontour - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetContour" + c_th3s_getcontour :: Ptr RawTH3S -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetContourLevel" c_th3s_getcontourlevel - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetContourLevel" + c_th3s_getcontourlevel :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetContourLevelPad" c_th3s_getcontourlevelpad - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetContourLevelPad" + c_th3s_getcontourlevelpad :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBin" c_th3s_getbin - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBin" + c_th3s_getbin :: Ptr RawTH3S -> CInt -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinCenter" c_th3s_getbincenter - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinCenter" + c_th3s_getbincenter :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinContent1" c_th3s_getbincontent1 - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinContent1" + c_th3s_getbincontent1 :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinContent2" c_th3s_getbincontent2 - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinContent2" + c_th3s_getbincontent2 :: Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinContent3" c_th3s_getbincontent3 - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinContent3" + c_th3s_getbincontent3 :: + Ptr RawTH3S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinError1" c_th3s_getbinerror1 - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinError1" + c_th3s_getbinerror1 :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinError2" c_th3s_getbinerror2 - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinError2" + c_th3s_getbinerror2 :: Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinError3" c_th3s_getbinerror3 - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinError3" + c_th3s_getbinerror3 :: + Ptr RawTH3S -> CInt -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinLowEdge" c_th3s_getbinlowedge - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinLowEdge" + c_th3s_getbinlowedge :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetBinWidth" c_th3s_getbinwidth - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetBinWidth" + c_th3s_getbinwidth :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetCellContent" c_th3s_getcellcontent - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetCellContent" + c_th3s_getcellcontent :: Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetCellError" c_th3s_getcellerror - :: (Ptr RawTH3S) -> CInt -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetCellError" + c_th3s_getcellerror :: Ptr RawTH3S -> CInt -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetEntries" c_th3s_getentries - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetEntries" + c_th3s_getentries :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetEffectiveEntries" c_th3s_geteffectiveentries - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe + "HROOTHistTH3S.h TH3S_GetEffectiveEntries" + c_th3s_geteffectiveentries :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetFunction" c_th3s_getfunction - :: (Ptr RawTH3S) -> CString -> IO (Ptr RawTF1) +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetFunction" + c_th3s_getfunction :: Ptr RawTH3S -> CString -> IO (Ptr RawTF1) -foreign import ccall "HROOTHistTH3S.h TH3S_GetDimension" c_th3s_getdimension - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetDimension" + c_th3s_getdimension :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetKurtosis" c_th3s_getkurtosis - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetKurtosis" + c_th3s_getkurtosis :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetLowEdge" c_th3s_getlowedge - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetLowEdge" + c_th3s_getlowedge :: Ptr RawTH3S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_getMaximumTH1" c_th3s_getmaximumth1 - :: (Ptr RawTH3S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getMaximumTH1" + c_th3s_getmaximumth1 :: Ptr RawTH3S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetMaximumBin" c_th3s_getmaximumbin - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMaximumBin" + c_th3s_getmaximumbin :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetMaximumStored" c_th3s_getmaximumstored - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMaximumStored" + c_th3s_getmaximumstored :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getMinimumTH1" c_th3s_getminimumth1 - :: (Ptr RawTH3S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_getMinimumTH1" + c_th3s_getminimumth1 :: Ptr RawTH3S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetMinimumBin" c_th3s_getminimumbin - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMinimumBin" + c_th3s_getminimumbin :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetMinimumStored" c_th3s_getminimumstored - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMinimumStored" + c_th3s_getminimumstored :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetMean" c_th3s_getmean - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMean" + c_th3s_getmean :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetMeanError" c_th3s_getmeanerror - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMeanError" + c_th3s_getmeanerror :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetNbinsX" c_th3s_getnbinsx - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetNbinsX" + c_th3s_getnbinsx :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetNbinsY" c_th3s_getnbinsy - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetNbinsY" + c_th3s_getnbinsy :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetNbinsZ" c_th3s_getnbinsz - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetNbinsZ" + c_th3s_getnbinsz :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_getQuantilesTH1" c_th3s_getquantilesth1 - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_getQuantilesTH1" + c_th3s_getquantilesth1 :: + Ptr RawTH3S -> CInt -> (Ptr CDouble) -> (Ptr CDouble) -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetRandom" c_th3s_getrandom - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetRandom" + c_th3s_getrandom :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetStats" c_th3s_getstats - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetStats" + c_th3s_getstats :: Ptr RawTH3S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetSumOfWeights" c_th3s_getsumofweights - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetSumOfWeights" + c_th3s_getsumofweights :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetSumw2" c_th3s_getsumw2 - :: (Ptr RawTH3S) -> IO (Ptr RawTArrayD) +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetSumw2" + c_th3s_getsumw2 :: Ptr RawTH3S -> IO (Ptr RawTArrayD) -foreign import ccall "HROOTHistTH3S.h TH3S_GetSumw2N" c_th3s_getsumw2n - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetSumw2N" + c_th3s_getsumw2n :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_GetRMS" c_th3s_getrms - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetRMS" + c_th3s_getrms :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetRMSError" c_th3s_getrmserror - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetRMSError" + c_th3s_getrmserror :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_GetSkewness" c_th3s_getskewness - :: (Ptr RawTH3S) -> CInt -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetSkewness" + c_th3s_getskewness :: Ptr RawTH3S -> CInt -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_integral1" c_th3s_integral1 - :: (Ptr RawTH3S) -> CInt -> CInt -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_integral1" + c_th3s_integral1 :: + Ptr RawTH3S -> CInt -> CInt -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_interpolate1" c_th3s_interpolate1 - :: (Ptr RawTH3S) -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_interpolate1" + c_th3s_interpolate1 :: Ptr RawTH3S -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_interpolate2" c_th3s_interpolate2 - :: (Ptr RawTH3S) -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_interpolate2" + c_th3s_interpolate2 :: + Ptr RawTH3S -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_interpolate3" c_th3s_interpolate3 - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CDouble -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_interpolate3" + c_th3s_interpolate3 :: + Ptr RawTH3S -> CDouble -> CDouble -> CDouble -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_KolmogorovTest" c_th3s_kolmogorovtest - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> CString -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_KolmogorovTest" + c_th3s_kolmogorovtest :: + Ptr RawTH3S -> Ptr RawTH1 -> CString -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_LabelsDeflate" c_th3s_labelsdeflate - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_LabelsDeflate" + c_th3s_labelsdeflate :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_LabelsInflate" c_th3s_labelsinflate - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_LabelsInflate" + c_th3s_labelsinflate :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_LabelsOption" c_th3s_labelsoption - :: (Ptr RawTH3S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_LabelsOption" + c_th3s_labelsoption :: Ptr RawTH3S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_multiflyF" c_th3s_multiflyf - :: (Ptr RawTH3S) -> (Ptr RawTF1) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_multiflyF" + c_th3s_multiflyf :: Ptr RawTH3S -> Ptr RawTF1 -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Multiply" c_th3s_multiply - :: (Ptr RawTH3S) -> (Ptr RawTH1) -> (Ptr RawTH1) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Multiply" + c_th3s_multiply :: + Ptr RawTH3S -> + Ptr RawTH1 -> Ptr RawTH1 -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_PutStats" c_th3s_putstats - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_PutStats" + c_th3s_putstats :: Ptr RawTH3S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Rebin" c_th3s_rebin - :: (Ptr RawTH3S) -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3S.h TH3S_Rebin" c_th3s_rebin + :: + Ptr RawTH3S -> CInt -> CString -> (Ptr CDouble) -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3S.h TH3S_RebinAxis" c_th3s_rebinaxis - :: (Ptr RawTH3S) -> CDouble -> (Ptr RawTAxis) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_RebinAxis" + c_th3s_rebinaxis :: Ptr RawTH3S -> CDouble -> Ptr RawTAxis -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Rebuild" c_th3s_rebuild - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Rebuild" + c_th3s_rebuild :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_RecursiveRemove" c_th3s_recursiveremove - :: (Ptr RawTH3S) -> (Ptr RawTObject) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_RecursiveRemove" + c_th3s_recursiveremove :: Ptr RawTH3S -> Ptr RawTObject -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Reset" c_th3s_reset - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Reset" c_th3s_reset + :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_ResetStats" c_th3s_resetstats - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_ResetStats" + c_th3s_resetstats :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Scale" c_th3s_scale - :: (Ptr RawTH3S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Scale" c_th3s_scale + :: Ptr RawTH3S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setAxisColorA" c_th3s_setaxiscolora - :: (Ptr RawTH3S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setAxisColorA" + c_th3s_setaxiscolora :: Ptr RawTH3S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetAxisRange" c_th3s_setaxisrange - :: (Ptr RawTH3S) -> CDouble -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetAxisRange" + c_th3s_setaxisrange :: + Ptr RawTH3S -> CDouble -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetBarOffset" c_th3s_setbaroffset - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetBarOffset" + c_th3s_setbaroffset :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetBarWidth" c_th3s_setbarwidth - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetBarWidth" + c_th3s_setbarwidth :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinContent1" c_th3s_setbincontent1 - :: (Ptr RawTH3S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinContent1" + c_th3s_setbincontent1 :: Ptr RawTH3S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinContent2" c_th3s_setbincontent2 - :: (Ptr RawTH3S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinContent2" + c_th3s_setbincontent2 :: + Ptr RawTH3S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinContent3" c_th3s_setbincontent3 - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinContent3" + c_th3s_setbincontent3 :: + Ptr RawTH3S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinError1" c_th3s_setbinerror1 - :: (Ptr RawTH3S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinError1" + c_th3s_setbinerror1 :: Ptr RawTH3S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinError2" c_th3s_setbinerror2 - :: (Ptr RawTH3S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinError2" + c_th3s_setbinerror2 :: + Ptr RawTH3S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBinError3" c_th3s_setbinerror3 - :: (Ptr RawTH3S) -> CInt -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBinError3" + c_th3s_setbinerror3 :: + Ptr RawTH3S -> CInt -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBins1" c_th3s_setbins1 - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBins1" + c_th3s_setbins1 :: Ptr RawTH3S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBins2" c_th3s_setbins2 - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBins2" + c_th3s_setbins2 :: + Ptr RawTH3S -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setBins3" c_th3s_setbins3 - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setBins3" + c_th3s_setbins3 :: + Ptr RawTH3S -> + CInt -> + (Ptr CDouble) -> + CInt -> (Ptr CDouble) -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetBinsLength" c_th3s_setbinslength - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetBinsLength" + c_th3s_setbinslength :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetBuffer" c_th3s_setbuffer - :: (Ptr RawTH3S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetBuffer" + c_th3s_setbuffer :: Ptr RawTH3S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetCellContent" c_th3s_setcellcontent - :: (Ptr RawTH3S) -> CInt -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetCellContent" + c_th3s_setcellcontent :: + Ptr RawTH3S -> CInt -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetContent" c_th3s_setcontent - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetContent" + c_th3s_setcontent :: Ptr RawTH3S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetContour" c_th3s_setcontour - :: (Ptr RawTH3S) -> CInt -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetContour" + c_th3s_setcontour :: Ptr RawTH3S -> CInt -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetContourLevel" c_th3s_setcontourlevel - :: (Ptr RawTH3S) -> CInt -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetContourLevel" + c_th3s_setcontourlevel :: Ptr RawTH3S -> CInt -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetDirectory" c_th3s_setdirectory - :: (Ptr RawTH3S) -> (Ptr RawTDirectory) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetDirectory" + c_th3s_setdirectory :: Ptr RawTH3S -> Ptr RawTDirectory -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetEntries" c_th3s_setentries - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetEntries" + c_th3s_setentries :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetError" c_th3s_seterror - :: (Ptr RawTH3S) -> (Ptr CDouble) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetError" + c_th3s_seterror :: Ptr RawTH3S -> (Ptr CDouble) -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setLabelColorA" c_th3s_setlabelcolora - :: (Ptr RawTH3S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setLabelColorA" + c_th3s_setlabelcolora :: Ptr RawTH3S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setLabelSizeA" c_th3s_setlabelsizea - :: (Ptr RawTH3S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setLabelSizeA" + c_th3s_setlabelsizea :: Ptr RawTH3S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setLabelFontA" c_th3s_setlabelfonta - :: (Ptr RawTH3S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setLabelFontA" + c_th3s_setlabelfonta :: Ptr RawTH3S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_setLabelOffsetA" c_th3s_setlabeloffseta - :: (Ptr RawTH3S) -> CDouble -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_setLabelOffsetA" + c_th3s_setlabeloffseta :: + Ptr RawTH3S -> CDouble -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetMaximum" c_th3s_setmaximum - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetMaximum" + c_th3s_setmaximum :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetMinimum" c_th3s_setminimum - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetMinimum" + c_th3s_setminimum :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetNormFactor" c_th3s_setnormfactor - :: (Ptr RawTH3S) -> CDouble -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetNormFactor" + c_th3s_setnormfactor :: Ptr RawTH3S -> CDouble -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetStats" c_th3s_setstats - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetStats" + c_th3s_setstats :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetOption" c_th3s_setoption - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetOption" + c_th3s_setoption :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetXTitle" c_th3s_setxtitle - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetXTitle" + c_th3s_setxtitle :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetYTitle" c_th3s_setytitle - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetYTitle" + c_th3s_setytitle :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetZTitle" c_th3s_setztitle - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetZTitle" + c_th3s_setztitle :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_ShowBackground" c_th3s_showbackground - :: (Ptr RawTH3S) -> CInt -> CString -> IO (Ptr RawTH1) +foreign import ccall safe "HROOTHistTH3S.h TH3S_ShowBackground" + c_th3s_showbackground :: + Ptr RawTH3S -> CInt -> CString -> IO (Ptr RawTH1) -foreign import ccall "HROOTHistTH3S.h TH3S_ShowPeaks" c_th3s_showpeaks - :: (Ptr RawTH3S) -> CDouble -> CString -> CDouble -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_ShowPeaks" + c_th3s_showpeaks :: + Ptr RawTH3S -> CDouble -> CString -> CDouble -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_Smooth" c_th3s_smooth - :: (Ptr RawTH3S) -> CInt -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Smooth" + c_th3s_smooth :: Ptr RawTH3S -> CInt -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Sumw2" c_th3s_sumw2 - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Sumw2" c_th3s_sumw2 + :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Draw" c_th3s_draw - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetName" + c_th3s_setname :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_FindObject" c_th3s_findobject - :: (Ptr RawTH3S) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetNameTitle" + c_th3s_setnametitle :: Ptr RawTH3S -> CString -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetName" c_th3s_getname - :: (Ptr RawTH3S) -> IO CString +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetTitle" + c_th3s_settitle :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_IsA" c_th3s_isa - :: (Ptr RawTH3S) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetLineColor" + c_th3s_getlinecolor :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_Paint" c_th3s_paint - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetLineStyle" + c_th3s_getlinestyle :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_printObj" c_th3s_printobj - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetLineWidth" + c_th3s_getlinewidth :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_SaveAs" c_th3s_saveas - :: (Ptr RawTH3S) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_ResetAttLine" + c_th3s_resetattline :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_Write" c_th3s_write - :: (Ptr RawTH3S) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetLineAttributes" + c_th3s_setlineattributes :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetLineColor" c_th3s_getlinecolor - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetLineColor" + c_th3s_setlinecolor :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetLineStyle" c_th3s_getlinestyle - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetLineStyle" + c_th3s_setlinestyle :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetLineWidth" c_th3s_getlinewidth - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetLineWidth" + c_th3s_setlinewidth :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_ResetAttLine" c_th3s_resetattline - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetFillColor" + c_th3s_setfillcolor :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetLineAttributes" c_th3s_setlineattributes - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetFillStyle" + c_th3s_setfillstyle :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetLineColor" c_th3s_setlinecolor - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMarkerColor" + c_th3s_getmarkercolor :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_SetLineStyle" c_th3s_setlinestyle - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMarkerStyle" + c_th3s_getmarkerstyle :: Ptr RawTH3S -> IO CInt -foreign import ccall "HROOTHistTH3S.h TH3S_SetLineWidth" c_th3s_setlinewidth - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetMarkerSize" + c_th3s_getmarkersize :: Ptr RawTH3S -> IO CDouble -foreign import ccall "HROOTHistTH3S.h TH3S_SetFillColor" c_th3s_setfillcolor - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_ResetAttMarker" + c_th3s_resetattmarker :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetFillStyle" c_th3s_setfillstyle - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe + "HROOTHistTH3S.h TH3S_SetMarkerAttributes" + c_th3s_setmarkerattributes :: Ptr RawTH3S -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetMarkerColor" c_th3s_getmarkercolor - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetMarkerColor" + c_th3s_setmarkercolor :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetMarkerStyle" c_th3s_getmarkerstyle - :: (Ptr RawTH3S) -> IO CInt +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetMarkerStyle" + c_th3s_setmarkerstyle :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_GetMarkerSize" c_th3s_getmarkersize - :: (Ptr RawTH3S) -> IO CDouble +foreign import ccall safe "HROOTHistTH3S.h TH3S_SetMarkerSize" + c_th3s_setmarkersize :: Ptr RawTH3S -> CInt -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_ResetAttMarker" c_th3s_resetattmarker - :: (Ptr RawTH3S) -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Draw" c_th3s_draw + :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_SetMarkerAttributes" c_th3s_setmarkerattributes - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_FindObject" + c_th3s_findobject :: Ptr RawTH3S -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTH3S.h TH3S_SetMarkerColor" c_th3s_setmarkercolor - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_GetName" + c_th3s_getname :: Ptr RawTH3S -> IO CString -foreign import ccall "HROOTHistTH3S.h TH3S_SetMarkerStyle" c_th3s_setmarkerstyle - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_IsA" c_th3s_isa :: + Ptr RawTH3S -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTH3S.h TH3S_SetMarkerSize" c_th3s_setmarkersize - :: (Ptr RawTH3S) -> CInt -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_Paint" c_th3s_paint + :: Ptr RawTH3S -> CString -> IO () -foreign import ccall "HROOTHistTH3S.h TH3S_delete" c_th3s_delete - :: (Ptr RawTH3S) -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_printObj" + c_th3s_printobj :: Ptr RawTH3S -> CString -> IO () +foreign import ccall safe "HROOTHistTH3S.h TH3S_SaveAs" + c_th3s_saveas :: Ptr RawTH3S -> CString -> CString -> IO () + +foreign import ccall safe "HROOTHistTH3S.h TH3S_Write" c_th3s_write + :: Ptr RawTH3S -> CString -> CInt -> CInt -> IO CInt + +foreign import ccall safe "HROOTHistTH3S.h TH3S_delete" + c_th3s_delete :: Ptr RawTH3S -> IO () diff --git a/src/HROOT/Hist/TH3S/Implementation.hs b/src/HROOT/Hist/TH3S/Implementation.hs --- a/src/HROOT/Hist/TH3S/Implementation.hs +++ b/src/HROOT/Hist/TH3S/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3S.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.TH3S.RawType import HROOT.Hist.TH3S.FFI import HROOT.Hist.TH3S.Interface @@ -41,9 +42,9 @@ 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 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 @@ -53,6 +54,9 @@ import HROOT.Core.TAttMarker.RawType import HROOT.Core.TAttMarker.Cast import HROOT.Core.TAttMarker.Interface +import HROOT.Core.TObject.RawType +import HROOT.Core.TObject.Cast +import HROOT.Core.TObject.Interface import HROOT.Core.Deletable.RawType import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface @@ -60,381 +64,196 @@ import HROOT.Core.TArray.Cast import HROOT.Core.TArray.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITH3S TH3S -instance ITH3S TH3S where instance ITH3 TH3S where - fill3 = xform3 c_th3s_fill3 - fill3w = xform4 c_th3s_fill3w - fitSlicesZ = xform7 c_th3s_fitslicesz - getCorrelationFactor3 = xform2 c_th3s_getcorrelationfactor3 - getCovariance3 = xform2 c_th3s_getcovariance3 - rebinX3 = xform2 c_th3s_rebinx3 - rebinY3 = xform2 c_th3s_rebiny3 - rebinZ3 = xform2 c_th3s_rebinz3 - rebin3D = xform4 c_th3s_rebin3d -instance ITArrayS TH3S where -instance ITH1 TH3S where - add = xform2 c_th3s_add - addBinContent = xform2 c_th3s_addbincontent - chi2Test = xform3 c_th3s_chi2test - computeIntegral = xform0 c_th3s_computeintegral - directoryAutoAdd = xform1 c_th3s_directoryautoadd - divide = xform5 c_th3s_divide - drawCopyTH1 = xform1 c_th3s_drawcopyth1 - drawNormalized = xform2 c_th3s_drawnormalized - drawPanelTH1 = xform0 c_th3s_drawpanelth1 - bufferEmpty = xform1 c_th3s_bufferempty - evalF = xform2 c_th3s_evalf - fFT = xform2 c_th3s_fft - fill1 = xform1 c_th3s_fill1 - fill1w = xform2 c_th3s_fill1w - fillN1 = xform4 c_th3s_filln1 - fillRandom = xform2 c_th3s_fillrandom - findBin = xform3 c_th3s_findbin - findFixBin = xform3 c_th3s_findfixbin - findFirstBinAbove = xform2 c_th3s_findfirstbinabove - findLastBinAbove = xform2 c_th3s_findlastbinabove - fitPanelTH1 = xform0 c_th3s_fitpanelth1 - getNdivisionA = xform1 c_th3s_getndivisiona - getAxisColorA = xform1 c_th3s_getaxiscolora - getLabelColorA = xform1 c_th3s_getlabelcolora - getLabelFontA = xform1 c_th3s_getlabelfonta - getLabelOffsetA = xform1 c_th3s_getlabeloffseta - getLabelSizeA = xform1 c_th3s_getlabelsizea - getTitleFontA = xform1 c_th3s_gettitlefonta - getTitleOffsetA = xform1 c_th3s_gettitleoffseta - getTitleSizeA = xform1 c_th3s_gettitlesizea - getTickLengthA = xform1 c_th3s_getticklengtha - getBarOffset = xform0 c_th3s_getbaroffset - getBarWidth = xform0 c_th3s_getbarwidth - getContour = xform1 c_th3s_getcontour - getContourLevel = xform1 c_th3s_getcontourlevel - getContourLevelPad = xform1 c_th3s_getcontourlevelpad - getBin = xform3 c_th3s_getbin - getBinCenter = xform1 c_th3s_getbincenter - getBinContent1 = xform1 c_th3s_getbincontent1 - getBinContent2 = xform2 c_th3s_getbincontent2 - getBinContent3 = xform3 c_th3s_getbincontent3 - getBinError1 = xform1 c_th3s_getbinerror1 - getBinError2 = xform2 c_th3s_getbinerror2 - getBinError3 = xform3 c_th3s_getbinerror3 - getBinLowEdge = xform1 c_th3s_getbinlowedge - getBinWidth = xform1 c_th3s_getbinwidth - getCellContent = xform2 c_th3s_getcellcontent - getCellError = xform2 c_th3s_getcellerror - getEntries = xform0 c_th3s_getentries - getEffectiveEntries = xform0 c_th3s_geteffectiveentries - getFunction = xform1 c_th3s_getfunction - getDimension = xform0 c_th3s_getdimension - getKurtosis = xform1 c_th3s_getkurtosis - getLowEdge = xform1 c_th3s_getlowedge - getMaximumTH1 = xform1 c_th3s_getmaximumth1 - getMaximumBin = xform0 c_th3s_getmaximumbin - getMaximumStored = xform0 c_th3s_getmaximumstored - getMinimumTH1 = xform1 c_th3s_getminimumth1 - getMinimumBin = xform0 c_th3s_getminimumbin - getMinimumStored = xform0 c_th3s_getminimumstored - getMean = xform1 c_th3s_getmean - getMeanError = xform1 c_th3s_getmeanerror - getNbinsX = xform0 c_th3s_getnbinsx - getNbinsY = xform0 c_th3s_getnbinsy - getNbinsZ = xform0 c_th3s_getnbinsz - getQuantilesTH1 = xform3 c_th3s_getquantilesth1 - getRandom = xform0 c_th3s_getrandom - getStats = xform1 c_th3s_getstats - getSumOfWeights = xform0 c_th3s_getsumofweights - getSumw2 = xform0 c_th3s_getsumw2 - getSumw2N = xform0 c_th3s_getsumw2n - getRMS = xform1 c_th3s_getrms - getRMSError = xform1 c_th3s_getrmserror - getSkewness = xform1 c_th3s_getskewness - integral1 = xform3 c_th3s_integral1 - interpolate1 = xform1 c_th3s_interpolate1 - interpolate2 = xform2 c_th3s_interpolate2 - interpolate3 = xform3 c_th3s_interpolate3 - kolmogorovTest = xform2 c_th3s_kolmogorovtest - labelsDeflate = xform1 c_th3s_labelsdeflate - labelsInflate = xform1 c_th3s_labelsinflate - labelsOption = xform2 c_th3s_labelsoption - multiflyF = xform2 c_th3s_multiflyf - multiply = xform5 c_th3s_multiply - putStats = xform1 c_th3s_putstats - rebin = xform3 c_th3s_rebin - rebinAxis = xform2 c_th3s_rebinaxis - rebuild = xform1 c_th3s_rebuild - recursiveRemove = xform1 c_th3s_recursiveremove - reset = xform1 c_th3s_reset - resetStats = xform0 c_th3s_resetstats - scale = xform2 c_th3s_scale - setAxisColorA = xform2 c_th3s_setaxiscolora - setAxisRange = xform3 c_th3s_setaxisrange - setBarOffset = xform1 c_th3s_setbaroffset - setBarWidth = xform1 c_th3s_setbarwidth - setBinContent1 = xform2 c_th3s_setbincontent1 - setBinContent2 = xform3 c_th3s_setbincontent2 - setBinContent3 = xform4 c_th3s_setbincontent3 - setBinError1 = xform2 c_th3s_setbinerror1 - setBinError2 = xform3 c_th3s_setbinerror2 - setBinError3 = xform4 c_th3s_setbinerror3 - setBins1 = xform2 c_th3s_setbins1 - setBins2 = xform4 c_th3s_setbins2 - setBins3 = xform6 c_th3s_setbins3 - setBinsLength = xform1 c_th3s_setbinslength - setBuffer = xform2 c_th3s_setbuffer - setCellContent = xform3 c_th3s_setcellcontent - setContent = xform1 c_th3s_setcontent - setContour = xform2 c_th3s_setcontour - setContourLevel = xform2 c_th3s_setcontourlevel - setDirectory = xform1 c_th3s_setdirectory - setEntries = xform1 c_th3s_setentries - setError = xform1 c_th3s_seterror - setLabelColorA = xform2 c_th3s_setlabelcolora - setLabelSizeA = xform2 c_th3s_setlabelsizea - setLabelFontA = xform2 c_th3s_setlabelfonta - setLabelOffsetA = xform2 c_th3s_setlabeloffseta - setMaximum = xform1 c_th3s_setmaximum - setMinimum = xform1 c_th3s_setminimum - setNormFactor = xform1 c_th3s_setnormfactor - setStats = xform1 c_th3s_setstats - setOption = xform1 c_th3s_setoption - setXTitle = xform1 c_th3s_setxtitle - setYTitle = xform1 c_th3s_setytitle - setZTitle = xform1 c_th3s_setztitle - showBackground = xform2 c_th3s_showbackground - showPeaks = xform3 c_th3s_showpeaks - smooth = xform2 c_th3s_smooth - sumw2 = xform0 c_th3s_sumw2 -instance ITAtt3D TH3S where -instance ITObject TH3S where - draw = xform1 c_th3s_draw - findObject = xform1 c_th3s_findobject - getName = xform0 c_th3s_getname - isA = xform0 c_th3s_isa - paint = xform1 c_th3s_paint - printObj = xform1 c_th3s_printobj - saveAs = xform2 c_th3s_saveas - write = xform3 c_th3s_write -instance ITAttLine TH3S where - getLineColor = xform0 c_th3s_getlinecolor - getLineStyle = xform0 c_th3s_getlinestyle - getLineWidth = xform0 c_th3s_getlinewidth - resetAttLine = xform1 c_th3s_resetattline - setLineAttributes = xform0 c_th3s_setlineattributes - setLineColor = xform1 c_th3s_setlinecolor - setLineStyle = xform1 c_th3s_setlinestyle - setLineWidth = xform1 c_th3s_setlinewidth -instance ITAttFill TH3S where - setFillColor = xform1 c_th3s_setfillcolor - setFillStyle = xform1 c_th3s_setfillstyle -instance ITAttMarker TH3S where - getMarkerColor = xform0 c_th3s_getmarkercolor - getMarkerStyle = xform0 c_th3s_getmarkerstyle - getMarkerSize = xform0 c_th3s_getmarkersize - resetAttMarker = xform1 c_th3s_resetattmarker - setMarkerAttributes = xform0 c_th3s_setmarkerattributes - setMarkerColor = xform1 c_th3s_setmarkercolor - setMarkerStyle = xform1 c_th3s_setmarkerstyle - setMarkerSize = xform1 c_th3s_setmarkersize -instance IDeletable TH3S where - delete = xform0 c_th3s_delete -instance ITArray TH3S where - -instance ITH3S (Exist TH3S) where - -instance ITH3 (Exist TH3S) where - fill3 (ETH3S x) = fill3 x - fill3w (ETH3S x) = fill3w x - fitSlicesZ (ETH3S x) = fitSlicesZ x - getCorrelationFactor3 (ETH3S x) = getCorrelationFactor3 x - getCovariance3 (ETH3S x) = getCovariance3 x - rebinX3 (ETH3S x) = rebinX3 x - rebinY3 (ETH3S x) = rebinY3 x - rebinZ3 (ETH3S x) = rebinZ3 x - rebin3D (ETH3S x) = rebin3D x -instance ITArrayS (Exist TH3S) where + fill3 = xform3 c_th3s_fill3 + fill3w = xform4 c_th3s_fill3w + fitSlicesZ = xform7 c_th3s_fitslicesz + getCorrelationFactor3 = xform2 c_th3s_getcorrelationfactor3 + getCovariance3 = xform2 c_th3s_getcovariance3 + rebinX3 = xform2 c_th3s_rebinx3 + rebinY3 = xform2 c_th3s_rebiny3 + rebinZ3 = xform2 c_th3s_rebinz3 + rebin3D = xform4 c_th3s_rebin3d -instance ITH1 (Exist TH3S) where - add (ETH3S x) = add x - addBinContent (ETH3S x) = addBinContent x - chi2Test (ETH3S x) = chi2Test x - computeIntegral (ETH3S x) = computeIntegral x - directoryAutoAdd (ETH3S x) = directoryAutoAdd x - divide (ETH3S x) = divide x - drawCopyTH1 (ETH3S x) a1 = return . ETH3S =<< drawCopyTH1 x a1 - drawNormalized (ETH3S x) = drawNormalized x - drawPanelTH1 (ETH3S x) = drawPanelTH1 x - bufferEmpty (ETH3S x) = bufferEmpty x - evalF (ETH3S x) = evalF x - fFT (ETH3S x) = fFT x - fill1 (ETH3S x) = fill1 x - fill1w (ETH3S x) = fill1w x - fillN1 (ETH3S x) = fillN1 x - fillRandom (ETH3S x) = fillRandom x - findBin (ETH3S x) = findBin x - findFixBin (ETH3S x) = findFixBin x - findFirstBinAbove (ETH3S x) = findFirstBinAbove x - findLastBinAbove (ETH3S x) = findLastBinAbove x - fitPanelTH1 (ETH3S x) = fitPanelTH1 x - getNdivisionA (ETH3S x) = getNdivisionA x - getAxisColorA (ETH3S x) = getAxisColorA x - getLabelColorA (ETH3S x) = getLabelColorA x - getLabelFontA (ETH3S x) = getLabelFontA x - getLabelOffsetA (ETH3S x) = getLabelOffsetA x - getLabelSizeA (ETH3S x) = getLabelSizeA x - getTitleFontA (ETH3S x) = getTitleFontA x - getTitleOffsetA (ETH3S x) = getTitleOffsetA x - getTitleSizeA (ETH3S x) = getTitleSizeA x - getTickLengthA (ETH3S x) = getTickLengthA x - getBarOffset (ETH3S x) = getBarOffset x - getBarWidth (ETH3S x) = getBarWidth x - getContour (ETH3S x) = getContour x - getContourLevel (ETH3S x) = getContourLevel x - getContourLevelPad (ETH3S x) = getContourLevelPad x - getBin (ETH3S x) = getBin x - getBinCenter (ETH3S x) = getBinCenter x - getBinContent1 (ETH3S x) = getBinContent1 x - getBinContent2 (ETH3S x) = getBinContent2 x - getBinContent3 (ETH3S x) = getBinContent3 x - getBinError1 (ETH3S x) = getBinError1 x - getBinError2 (ETH3S x) = getBinError2 x - getBinError3 (ETH3S x) = getBinError3 x - getBinLowEdge (ETH3S x) = getBinLowEdge x - getBinWidth (ETH3S x) = getBinWidth x - getCellContent (ETH3S x) = getCellContent x - getCellError (ETH3S x) = getCellError x - getEntries (ETH3S x) = getEntries x - getEffectiveEntries (ETH3S x) = getEffectiveEntries x - getFunction (ETH3S x) = getFunction x - getDimension (ETH3S x) = getDimension x - getKurtosis (ETH3S x) = getKurtosis x - getLowEdge (ETH3S x) = getLowEdge x - getMaximumTH1 (ETH3S x) = getMaximumTH1 x - getMaximumBin (ETH3S x) = getMaximumBin x - getMaximumStored (ETH3S x) = getMaximumStored x - getMinimumTH1 (ETH3S x) = getMinimumTH1 x - getMinimumBin (ETH3S x) = getMinimumBin x - getMinimumStored (ETH3S x) = getMinimumStored x - getMean (ETH3S x) = getMean x - getMeanError (ETH3S x) = getMeanError x - getNbinsX (ETH3S x) = getNbinsX x - getNbinsY (ETH3S x) = getNbinsY x - getNbinsZ (ETH3S x) = getNbinsZ x - getQuantilesTH1 (ETH3S x) = getQuantilesTH1 x - getRandom (ETH3S x) = getRandom x - getStats (ETH3S x) = getStats x - getSumOfWeights (ETH3S x) = getSumOfWeights x - getSumw2 (ETH3S x) = getSumw2 x - getSumw2N (ETH3S x) = getSumw2N x - getRMS (ETH3S x) = getRMS x - getRMSError (ETH3S x) = getRMSError x - getSkewness (ETH3S x) = getSkewness x - integral1 (ETH3S x) = integral1 x - interpolate1 (ETH3S x) = interpolate1 x - interpolate2 (ETH3S x) = interpolate2 x - interpolate3 (ETH3S x) = interpolate3 x - kolmogorovTest (ETH3S x) = kolmogorovTest x - labelsDeflate (ETH3S x) = labelsDeflate x - labelsInflate (ETH3S x) = labelsInflate x - labelsOption (ETH3S x) = labelsOption x - multiflyF (ETH3S x) = multiflyF x - multiply (ETH3S x) = multiply x - putStats (ETH3S x) = putStats x - rebin (ETH3S x) = rebin x - rebinAxis (ETH3S x) = rebinAxis x - rebuild (ETH3S x) = rebuild x - recursiveRemove (ETH3S x) = recursiveRemove x - reset (ETH3S x) = reset x - resetStats (ETH3S x) = resetStats x - scale (ETH3S x) = scale x - setAxisColorA (ETH3S x) = setAxisColorA x - setAxisRange (ETH3S x) = setAxisRange x - setBarOffset (ETH3S x) = setBarOffset x - setBarWidth (ETH3S x) = setBarWidth x - setBinContent1 (ETH3S x) = setBinContent1 x - setBinContent2 (ETH3S x) = setBinContent2 x - setBinContent3 (ETH3S x) = setBinContent3 x - setBinError1 (ETH3S x) = setBinError1 x - setBinError2 (ETH3S x) = setBinError2 x - setBinError3 (ETH3S x) = setBinError3 x - setBins1 (ETH3S x) = setBins1 x - setBins2 (ETH3S x) = setBins2 x - setBins3 (ETH3S x) = setBins3 x - setBinsLength (ETH3S x) = setBinsLength x - setBuffer (ETH3S x) = setBuffer x - setCellContent (ETH3S x) = setCellContent x - setContent (ETH3S x) = setContent x - setContour (ETH3S x) = setContour x - setContourLevel (ETH3S x) = setContourLevel x - setDirectory (ETH3S x) = setDirectory x - setEntries (ETH3S x) = setEntries x - setError (ETH3S x) = setError x - setLabelColorA (ETH3S x) = setLabelColorA x - setLabelSizeA (ETH3S x) = setLabelSizeA x - setLabelFontA (ETH3S x) = setLabelFontA x - setLabelOffsetA (ETH3S x) = setLabelOffsetA x - setMaximum (ETH3S x) = setMaximum x - setMinimum (ETH3S x) = setMinimum x - setNormFactor (ETH3S x) = setNormFactor x - setStats (ETH3S x) = setStats x - setOption (ETH3S x) = setOption x - setXTitle (ETH3S x) = setXTitle x - setYTitle (ETH3S x) = setYTitle x - setZTitle (ETH3S x) = setZTitle x - showBackground (ETH3S x) = showBackground x - showPeaks (ETH3S x) = showPeaks x - smooth (ETH3S x) = smooth x - sumw2 (ETH3S x) = sumw2 x -instance ITAtt3D (Exist TH3S) where +instance ITArrayS TH3S -instance ITObject (Exist TH3S) where - draw (ETH3S x) = draw x - findObject (ETH3S x) = findObject x - getName (ETH3S x) = getName x - isA (ETH3S x) = isA x - paint (ETH3S x) = paint x - printObj (ETH3S x) = printObj x - saveAs (ETH3S x) = saveAs x - write (ETH3S x) = write x -instance ITAttLine (Exist TH3S) where - getLineColor (ETH3S x) = getLineColor x - getLineStyle (ETH3S x) = getLineStyle x - getLineWidth (ETH3S x) = getLineWidth x - resetAttLine (ETH3S x) = resetAttLine x - setLineAttributes (ETH3S x) = setLineAttributes x - setLineColor (ETH3S x) = setLineColor x - setLineStyle (ETH3S x) = setLineStyle x - setLineWidth (ETH3S x) = setLineWidth x -instance ITAttFill (Exist TH3S) where - setFillColor (ETH3S x) = setFillColor x - setFillStyle (ETH3S x) = setFillStyle x -instance ITAttMarker (Exist TH3S) where - getMarkerColor (ETH3S x) = getMarkerColor x - getMarkerStyle (ETH3S x) = getMarkerStyle x - getMarkerSize (ETH3S x) = getMarkerSize x - resetAttMarker (ETH3S x) = resetAttMarker x - setMarkerAttributes (ETH3S x) = setMarkerAttributes x - setMarkerColor (ETH3S x) = setMarkerColor x - setMarkerStyle (ETH3S x) = setMarkerStyle x - setMarkerSize (ETH3S x) = setMarkerSize x -instance IDeletable (Exist TH3S) where - delete (ETH3S x) = delete x -instance ITArray (Exist TH3S) where +instance ITH1 TH3S where + add = xform2 c_th3s_add + addBinContent = xform2 c_th3s_addbincontent + chi2Test = xform3 c_th3s_chi2test + computeIntegral = xform0 c_th3s_computeintegral + directoryAutoAdd = xform1 c_th3s_directoryautoadd + divide = xform5 c_th3s_divide + drawCopyTH1 = xform1 c_th3s_drawcopyth1 + drawNormalized = xform2 c_th3s_drawnormalized + drawPanelTH1 = xform0 c_th3s_drawpanelth1 + bufferEmpty = xform1 c_th3s_bufferempty + evalF = xform2 c_th3s_evalf + fFT = xform2 c_th3s_fft + fill1 = xform1 c_th3s_fill1 + fill1w = xform2 c_th3s_fill1w + fillN1 = xform4 c_th3s_filln1 + fillRandom = xform2 c_th3s_fillrandom + findBin = xform3 c_th3s_findbin + findFixBin = xform3 c_th3s_findfixbin + findFirstBinAbove = xform2 c_th3s_findfirstbinabove + findLastBinAbove = xform2 c_th3s_findlastbinabove + fit = xform5 c_th3s_fit + fitPanelTH1 = xform0 c_th3s_fitpanelth1 + getNdivisionA = xform1 c_th3s_getndivisiona + getAxisColorA = xform1 c_th3s_getaxiscolora + getLabelColorA = xform1 c_th3s_getlabelcolora + getLabelFontA = xform1 c_th3s_getlabelfonta + getLabelOffsetA = xform1 c_th3s_getlabeloffseta + getLabelSizeA = xform1 c_th3s_getlabelsizea + getTitleFontA = xform1 c_th3s_gettitlefonta + getTitleOffsetA = xform1 c_th3s_gettitleoffseta + getTitleSizeA = xform1 c_th3s_gettitlesizea + getTickLengthA = xform1 c_th3s_getticklengtha + getBarOffset = xform0 c_th3s_getbaroffset + getBarWidth = xform0 c_th3s_getbarwidth + getContour = xform1 c_th3s_getcontour + getContourLevel = xform1 c_th3s_getcontourlevel + getContourLevelPad = xform1 c_th3s_getcontourlevelpad + getBin = xform3 c_th3s_getbin + getBinCenter = xform1 c_th3s_getbincenter + getBinContent1 = xform1 c_th3s_getbincontent1 + getBinContent2 = xform2 c_th3s_getbincontent2 + getBinContent3 = xform3 c_th3s_getbincontent3 + getBinError1 = xform1 c_th3s_getbinerror1 + getBinError2 = xform2 c_th3s_getbinerror2 + getBinError3 = xform3 c_th3s_getbinerror3 + getBinLowEdge = xform1 c_th3s_getbinlowedge + getBinWidth = xform1 c_th3s_getbinwidth + getCellContent = xform2 c_th3s_getcellcontent + getCellError = xform2 c_th3s_getcellerror + getEntries = xform0 c_th3s_getentries + getEffectiveEntries = xform0 c_th3s_geteffectiveentries + getFunction = xform1 c_th3s_getfunction + getDimension = xform0 c_th3s_getdimension + getKurtosis = xform1 c_th3s_getkurtosis + getLowEdge = xform1 c_th3s_getlowedge + getMaximumTH1 = xform1 c_th3s_getmaximumth1 + getMaximumBin = xform0 c_th3s_getmaximumbin + getMaximumStored = xform0 c_th3s_getmaximumstored + getMinimumTH1 = xform1 c_th3s_getminimumth1 + getMinimumBin = xform0 c_th3s_getminimumbin + getMinimumStored = xform0 c_th3s_getminimumstored + getMean = xform1 c_th3s_getmean + getMeanError = xform1 c_th3s_getmeanerror + getNbinsX = xform0 c_th3s_getnbinsx + getNbinsY = xform0 c_th3s_getnbinsy + getNbinsZ = xform0 c_th3s_getnbinsz + getQuantilesTH1 = xform3 c_th3s_getquantilesth1 + getRandom = xform0 c_th3s_getrandom + getStats = xform1 c_th3s_getstats + getSumOfWeights = xform0 c_th3s_getsumofweights + getSumw2 = xform0 c_th3s_getsumw2 + getSumw2N = xform0 c_th3s_getsumw2n + getRMS = xform1 c_th3s_getrms + getRMSError = xform1 c_th3s_getrmserror + getSkewness = xform1 c_th3s_getskewness + integral1 = xform3 c_th3s_integral1 + interpolate1 = xform1 c_th3s_interpolate1 + interpolate2 = xform2 c_th3s_interpolate2 + interpolate3 = xform3 c_th3s_interpolate3 + kolmogorovTest = xform2 c_th3s_kolmogorovtest + labelsDeflate = xform1 c_th3s_labelsdeflate + labelsInflate = xform1 c_th3s_labelsinflate + labelsOption = xform2 c_th3s_labelsoption + multiflyF = xform2 c_th3s_multiflyf + multiply = xform5 c_th3s_multiply + putStats = xform1 c_th3s_putstats + rebin = xform3 c_th3s_rebin + rebinAxis = xform2 c_th3s_rebinaxis + rebuild = xform1 c_th3s_rebuild + recursiveRemove = xform1 c_th3s_recursiveremove + reset = xform1 c_th3s_reset + resetStats = xform0 c_th3s_resetstats + scale = xform2 c_th3s_scale + setAxisColorA = xform2 c_th3s_setaxiscolora + setAxisRange = xform3 c_th3s_setaxisrange + setBarOffset = xform1 c_th3s_setbaroffset + setBarWidth = xform1 c_th3s_setbarwidth + setBinContent1 = xform2 c_th3s_setbincontent1 + setBinContent2 = xform3 c_th3s_setbincontent2 + setBinContent3 = xform4 c_th3s_setbincontent3 + setBinError1 = xform2 c_th3s_setbinerror1 + setBinError2 = xform3 c_th3s_setbinerror2 + setBinError3 = xform4 c_th3s_setbinerror3 + setBins1 = xform2 c_th3s_setbins1 + setBins2 = xform4 c_th3s_setbins2 + setBins3 = xform6 c_th3s_setbins3 + setBinsLength = xform1 c_th3s_setbinslength + setBuffer = xform2 c_th3s_setbuffer + setCellContent = xform3 c_th3s_setcellcontent + setContent = xform1 c_th3s_setcontent + setContour = xform2 c_th3s_setcontour + setContourLevel = xform2 c_th3s_setcontourlevel + setDirectory = xform1 c_th3s_setdirectory + setEntries = xform1 c_th3s_setentries + setError = xform1 c_th3s_seterror + setLabelColorA = xform2 c_th3s_setlabelcolora + setLabelSizeA = xform2 c_th3s_setlabelsizea + setLabelFontA = xform2 c_th3s_setlabelfonta + setLabelOffsetA = xform2 c_th3s_setlabeloffseta + setMaximum = xform1 c_th3s_setmaximum + setMinimum = xform1 c_th3s_setminimum + setNormFactor = xform1 c_th3s_setnormfactor + setStats = xform1 c_th3s_setstats + setOption = xform1 c_th3s_setoption + setXTitle = xform1 c_th3s_setxtitle + setYTitle = xform1 c_th3s_setytitle + setZTitle = xform1 c_th3s_setztitle + showBackground = xform2 c_th3s_showbackground + showPeaks = xform3 c_th3s_showpeaks + smooth = xform2 c_th3s_smooth + sumw2 = xform0 c_th3s_sumw2 +instance ITAtt3D TH3S +instance ITNamed TH3S where + setName = xform1 c_th3s_setname + setNameTitle = xform2 c_th3s_setnametitle + setTitle = xform1 c_th3s_settitle +instance ITAttLine TH3S where + getLineColor = xform0 c_th3s_getlinecolor + getLineStyle = xform0 c_th3s_getlinestyle + getLineWidth = xform0 c_th3s_getlinewidth + resetAttLine = xform1 c_th3s_resetattline + setLineAttributes = xform0 c_th3s_setlineattributes + setLineColor = xform1 c_th3s_setlinecolor + setLineStyle = xform1 c_th3s_setlinestyle + setLineWidth = xform1 c_th3s_setlinewidth +instance ITAttFill TH3S where + setFillColor = xform1 c_th3s_setfillcolor + setFillStyle = xform1 c_th3s_setfillstyle +instance ITAttMarker TH3S where + getMarkerColor = xform0 c_th3s_getmarkercolor + getMarkerStyle = xform0 c_th3s_getmarkerstyle + getMarkerSize = xform0 c_th3s_getmarkersize + resetAttMarker = xform1 c_th3s_resetattmarker + setMarkerAttributes = xform0 c_th3s_setmarkerattributes + setMarkerColor = xform1 c_th3s_setmarkercolor + setMarkerStyle = xform1 c_th3s_setmarkerstyle + setMarkerSize = xform1 c_th3s_setmarkersize +instance ITObject TH3S where + draw = xform1 c_th3s_draw + findObject = xform1 c_th3s_findobject + getName = xform0 c_th3s_getname + isA = xform0 c_th3s_isa + paint = xform1 c_th3s_paint + printObj = xform1 c_th3s_printobj + saveAs = xform2 c_th3s_saveas + write = xform3 c_th3s_write +instance IDeletable TH3S where + delete = xform0 c_th3s_delete -instance FPtr (Exist TH3S) where - type Raw (Exist TH3S) = RawTH3S - get_fptr (ETH3S obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETH3S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3S) :: TH3S) +instance ITArray TH3S diff --git a/src/HROOT/Hist/TH3S/Interface.hs b/src/HROOT/Hist/TH3S/Interface.hs --- a/src/HROOT/Hist/TH3S/Interface.hs +++ b/src/HROOT/Hist/TH3S/Interface.hs @@ -1,37 +1,26 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.TH3S.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.TH3S.RawType - import HROOT.Hist.TH3.Interface import HROOT.Core.TArrayS.Interface ----- ============ ---- - - -class (ITH3 a,ITArrayS a) => ITH3S a where - -instance Existable TH3S where - data Exist TH3S = forall a. (FPtr a, ITH3S a) => ETH3S a +class (ITH3 a, ITArrayS a) => ITH3S a -upcastTH3S :: (FPtr a, ITH3S a) => a -> TH3S -upcastTH3S h = let fh = get_fptr h - fh2 :: ForeignPtr RawTH3S = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTH3S :: forall a . (FPtr a, ITH3S a) => a -> TH3S +upcastTH3S h + = let fh = get_fptr h + fh2 :: Ptr RawTH3S = castPtr fh + in cast_fptr_to_obj fh2 -downcastTH3S :: (FPtr a, ITH3S a) => TH3S -> a -downcastTH3S h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTH3S :: forall a . (FPtr a, ITH3S a) => TH3S -> a +downcastTH3S h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/TH3S/RawType.hs b/src/HROOT/Hist/TH3S/RawType.hs --- a/src/HROOT/Hist/TH3S/RawType.hs +++ b/src/HROOT/Hist/TH3S/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.TH3S.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTH3S -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype TH3S = TH3S (Ptr RawTH3S) + deriving (Eq, Ord, Show) -data RawTH3S -newtype TH3S = TH3S (ForeignPtr RawTH3S) deriving (Eq, Ord, Show) instance FPtr TH3S where - type Raw TH3S = RawTH3S - get_fptr (TH3S fptr) = fptr - cast_fptr_to_obj = TH3S + type Raw TH3S = RawTH3S + get_fptr (TH3S ptr) = ptr + cast_fptr_to_obj = TH3S diff --git a/src/HROOT/Hist/THStack.hs b/src/HROOT/Hist/THStack.hs --- a/src/HROOT/Hist/THStack.hs +++ b/src/HROOT/Hist/THStack.hs @@ -1,15 +1,6 @@ module HROOT.Hist.THStack - ( - THStack(..) - , ITHStack - , upcastTHStack - , downcastTHStack - , newTHStack - - ) where - + (THStack(..), ITHStack, upcastTHStack, downcastTHStack, newTHStack) + where import HROOT.Hist.THStack.RawType import HROOT.Hist.THStack.Interface import HROOT.Hist.THStack.Implementation - - diff --git a/src/HROOT/Hist/THStack/Cast.hs b/src/HROOT/Hist/THStack/Cast.hs --- a/src/HROOT/Hist/THStack/Cast.hs +++ b/src/HROOT/Hist/THStack/Cast.hs @@ -1,22 +1,17 @@ -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, - MultiParamTypeClasses, OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, + MultiParamTypeClasses, OverlappingInstances, IncoherentInstances + #-} module HROOT.Hist.THStack.Cast where - - import Foreign.Ptr -import Foreign.ForeignPtr (castForeignPtr, newForeignPtr_) -import Foreign.ForeignPtr.Unsafe import FFICXX.Runtime.Cast import System.IO.Unsafe - import HROOT.Hist.THStack.RawType import HROOT.Hist.THStack.Interface instance (ITHStack a, FPtr a) => Castable a (Ptr RawTHStack) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) instance Castable THStack (Ptr RawTHStack) where - cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr - uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ + cast x f = f (castPtr (get_fptr x)) + uncast x f = f (cast_fptr_to_obj (castPtr x)) diff --git a/src/HROOT/Hist/THStack/FFI.hsc b/src/HROOT/Hist/THStack/FFI.hsc --- a/src/HROOT/Hist/THStack/FFI.hsc +++ b/src/HROOT/Hist/THStack/FFI.hsc @@ -1,59 +1,49 @@ {-# LANGUAGE ForeignFunctionInterface #-} - --- module HROOT.Class.FFI where - module HROOT.Hist.THStack.FFI where - - -import Foreign.C +import Foreign.C import Foreign.Ptr - --- import HROOT.Class.Interface - --- #include "" - import HROOT.Hist.THStack.RawType import HROOT.Core.TObject.RawType import HROOT.Core.TClass.RawType -#include "HROOTHistTHStack.h" - -foreign import ccall "HROOTHistTHStack.h THStack_SetName" c_thstack_setname - :: (Ptr RawTHStack) -> CString -> IO () - -foreign import ccall "HROOTHistTHStack.h THStack_SetNameTitle" c_thstack_setnametitle - :: (Ptr RawTHStack) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_SetName" + c_thstack_setname :: Ptr RawTHStack -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_SetTitle" c_thstack_settitle - :: (Ptr RawTHStack) -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_SetNameTitle" + c_thstack_setnametitle :: + Ptr RawTHStack -> CString -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_Draw" c_thstack_draw - :: (Ptr RawTHStack) -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_SetTitle" + c_thstack_settitle :: Ptr RawTHStack -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_FindObject" c_thstack_findobject - :: (Ptr RawTHStack) -> CString -> IO (Ptr RawTObject) +foreign import ccall safe "HROOTHistTHStack.h THStack_Draw" + c_thstack_draw :: Ptr RawTHStack -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_GetName" c_thstack_getname - :: (Ptr RawTHStack) -> IO CString +foreign import ccall safe "HROOTHistTHStack.h THStack_FindObject" + c_thstack_findobject :: + Ptr RawTHStack -> CString -> IO (Ptr RawTObject) -foreign import ccall "HROOTHistTHStack.h THStack_IsA" c_thstack_isa - :: (Ptr RawTHStack) -> IO (Ptr RawTClass) +foreign import ccall safe "HROOTHistTHStack.h THStack_GetName" + c_thstack_getname :: Ptr RawTHStack -> IO CString -foreign import ccall "HROOTHistTHStack.h THStack_Paint" c_thstack_paint - :: (Ptr RawTHStack) -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_IsA" + c_thstack_isa :: Ptr RawTHStack -> IO (Ptr RawTClass) -foreign import ccall "HROOTHistTHStack.h THStack_printObj" c_thstack_printobj - :: (Ptr RawTHStack) -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_Paint" + c_thstack_paint :: Ptr RawTHStack -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_SaveAs" c_thstack_saveas - :: (Ptr RawTHStack) -> CString -> CString -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_printObj" + c_thstack_printobj :: Ptr RawTHStack -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_Write" c_thstack_write - :: (Ptr RawTHStack) -> CString -> CInt -> CInt -> IO CInt +foreign import ccall safe "HROOTHistTHStack.h THStack_SaveAs" + c_thstack_saveas :: Ptr RawTHStack -> CString -> CString -> IO () -foreign import ccall "HROOTHistTHStack.h THStack_delete" c_thstack_delete - :: (Ptr RawTHStack) -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_Write" + c_thstack_write :: + Ptr RawTHStack -> CString -> CInt -> CInt -> IO CInt -foreign import ccall "HROOTHistTHStack.h THStack_newTHStack" c_thstack_newthstack - :: CString -> CString -> IO (Ptr RawTHStack) +foreign import ccall safe "HROOTHistTHStack.h THStack_delete" + c_thstack_delete :: Ptr RawTHStack -> IO () +foreign import ccall safe "HROOTHistTHStack.h THStack_newTHStack" + c_thstack_newthstack :: CString -> CString -> IO (Ptr RawTHStack) diff --git a/src/HROOT/Hist/THStack/Implementation.hs b/src/HROOT/Hist/THStack/Implementation.hs --- a/src/HROOT/Hist/THStack/Implementation.hs +++ b/src/HROOT/Hist/THStack/Implementation.hs @@ -1,12 +1,13 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, - OverlappingInstances, IncoherentInstances #-} - +{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, + ForeignFunctionInterface, IncoherentInstances, + MultiParamTypeClasses, OverlappingInstances, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.THStack.Implementation where - - import FFICXX.Runtime.Cast - +import Data.Word +import Foreign.C +import Foreign.Ptr +import System.IO.Unsafe import HROOT.Hist.THStack.RawType import HROOT.Hist.THStack.FFI import HROOT.Hist.THStack.Interface @@ -24,58 +25,27 @@ import HROOT.Core.Deletable.Cast import HROOT.Core.Deletable.Interface -import Data.Word -import Foreign.C -import Foreign.Ptr -import Foreign.ForeignPtr - -import System.IO.Unsafe - +instance ITHStack THStack -instance ITHStack THStack where instance ITNamed THStack where - setName = xform1 c_thstack_setname - setNameTitle = xform2 c_thstack_setnametitle - setTitle = xform1 c_thstack_settitle -instance ITObject THStack where - draw = xform1 c_thstack_draw - findObject = xform1 c_thstack_findobject - getName = xform0 c_thstack_getname - isA = xform0 c_thstack_isa - paint = xform1 c_thstack_paint - printObj = xform1 c_thstack_printobj - saveAs = xform2 c_thstack_saveas - write = xform3 c_thstack_write -instance IDeletable THStack where - delete = xform0 c_thstack_delete - -instance ITHStack (Exist THStack) where + setName = xform1 c_thstack_setname + setNameTitle = xform2 c_thstack_setnametitle + setTitle = xform1 c_thstack_settitle -instance ITNamed (Exist THStack) where - setName (ETHStack x) = setName x - setNameTitle (ETHStack x) = setNameTitle x - setTitle (ETHStack x) = setTitle x -instance ITObject (Exist THStack) where - draw (ETHStack x) = draw x - findObject (ETHStack x) = findObject x - getName (ETHStack x) = getName x - isA (ETHStack x) = isA x - paint (ETHStack x) = paint x - printObj (ETHStack x) = printObj x - saveAs (ETHStack x) = saveAs x - write (ETHStack x) = write x -instance IDeletable (Exist THStack) where - delete (ETHStack x) = delete x +instance ITObject THStack where + draw = xform1 c_thstack_draw + findObject = xform1 c_thstack_findobject + getName = xform0 c_thstack_getname + isA = xform0 c_thstack_isa + paint = xform1 c_thstack_paint + printObj = xform1 c_thstack_printobj + saveAs = xform2 c_thstack_saveas + write = xform3 c_thstack_write +instance IDeletable THStack where + delete = xform0 c_thstack_delete -newTHStack :: CString -> CString -> IO THStack +newTHStack :: + (Castable c1 CString, Castable c0 CString) => + c0 -> c1 -> IO THStack newTHStack = xform1 c_thstack_newthstack - - - - - -instance FPtr (Exist THStack) where - type Raw (Exist THStack) = RawTHStack - get_fptr (ETHStack obj) = castForeignPtr (get_fptr obj) - cast_fptr_to_obj fptr = ETHStack (cast_fptr_to_obj (fptr :: ForeignPtr RawTHStack) :: THStack) diff --git a/src/HROOT/Hist/THStack/Interface.hs b/src/HROOT/Hist/THStack/Interface.hs --- a/src/HROOT/Hist/THStack/Interface.hs +++ b/src/HROOT/Hist/THStack/Interface.hs @@ -1,36 +1,25 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - --- module HROOT.Class.Interface where - +{-# LANGUAGE EmptyDataDecls, ExistentialQuantification, + FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, + MultiParamTypeClasses, ScopedTypeVariables, TypeFamilies, + TypeSynonymInstances #-} module HROOT.Hist.THStack.Interface where - - import Data.Word import Foreign.C import Foreign.Ptr -import Foreign.ForeignPtr import FFICXX.Runtime.Cast - import HROOT.Hist.THStack.RawType - import HROOT.Core.TNamed.Interface ----- ============ ---- - - -class (ITNamed a) => ITHStack a where - -instance Existable THStack where - data Exist THStack = forall a. (FPtr a, ITHStack a) => ETHStack a +class ITNamed a => ITHStack a -upcastTHStack :: (FPtr a, ITHStack a) => a -> THStack -upcastTHStack h = let fh = get_fptr h - fh2 :: ForeignPtr RawTHStack = castForeignPtr fh - in cast_fptr_to_obj fh2 +upcastTHStack :: forall a . (FPtr a, ITHStack a) => a -> THStack +upcastTHStack h + = let fh = get_fptr h + fh2 :: Ptr RawTHStack = castPtr fh + in cast_fptr_to_obj fh2 -downcastTHStack :: (FPtr a, ITHStack a) => THStack -> a -downcastTHStack h = let fh = get_fptr h - fh2 = castForeignPtr fh - in cast_fptr_to_obj fh2 +downcastTHStack :: forall a . (FPtr a, ITHStack a) => THStack -> a +downcastTHStack h + = let fh = get_fptr h + fh2 = castPtr fh + in cast_fptr_to_obj fh2 diff --git a/src/HROOT/Hist/THStack/RawType.hs b/src/HROOT/Hist/THStack/RawType.hs --- a/src/HROOT/Hist/THStack/RawType.hs +++ b/src/HROOT/Hist/THStack/RawType.hs @@ -1,16 +1,16 @@ -{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, - FlexibleInstances, TypeSynonymInstances, - EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} - +{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, + MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, + EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Hist.THStack.RawType where +import Foreign.Ptr +import FFICXX.Runtime.Cast +data RawTHStack -import Foreign.ForeignPtr -import FFICXX.Runtime.Cast +newtype THStack = THStack (Ptr RawTHStack) + deriving (Eq, Ord, Show) -data RawTHStack -newtype THStack = THStack (ForeignPtr RawTHStack) deriving (Eq, Ord, Show) instance FPtr THStack where - type Raw THStack = RawTHStack - get_fptr (THStack fptr) = fptr - cast_fptr_to_obj = THStack + type Raw THStack = RawTHStack + get_fptr (THStack ptr) = ptr + cast_fptr_to_obj = THStack