36{
39
41
44 TString formula;
45 JRange_t X;
46 JRange_t Y;
47 string option;
49
50 try {
51
52 JParser<> zap(
"Auxiliary program to scale ROOT histograms."\
53 "\nNote that the formula may contain method names of the specified object.");
54
55 zap[
'f'] =
make_field(inputFile,
"<input file>:<object name>");
57 zap[
'F'] =
make_field(formula,
"ROOT TFormula (may contain method names of object)");
58 zap[
'x'] =
make_field(X,
"abscissa range (only for Integral)") = JRange_t();
59 zap[
'y'] =
make_field(Y,
"abscissa range (only for Integral)") = JRange_t();
60 zap[
'O'] =
make_field(option) =
"",
"nosw2",
"width",
"nosw2 width";
62
63 zap(argc, argv);
64 }
65 catch(const exception &error) {
66 FATAL(error.what() << endl);
67 }
68
69
71
72 for (vector<JRootObjectID>::const_iterator input = inputFile.begin(); input != inputFile.end(); ++input) {
73
74 DEBUG(
"Input: " << *input << endl);
75
77
78 if (dir == NULL) {
79 ERROR(
"File: " << input->getFullFilename() <<
" not opened." << endl);
80 continue;
81 }
82
83 const TRegexp regexp(input->getObjectName());
84
85 TIter iter(dir->GetListOfKeys());
86
87 for (TKey* key; (
key = (TKey*) iter.Next()) != NULL; ) {
88
89 const TString tag(
key->GetName());
90
91 DEBUG(
"Key: " << tag <<
" match = " << tag.Contains(regexp) << endl);
92
93
94
95 if (tag.Contains(regexp) &&
isTObject(key)) {
96
98
99 TH1* h1 = dynamic_cast<TH1*> (object);
100 TGraphErrors* ge = dynamic_cast<TGraphErrors*>(object);
101 TGraph*
g1 =
dynamic_cast<TGraph*
> (object);
102
103 if (h1 != NULL ||
104 ge != NULL ||
106
107 const double factor =
getResult(formula,
object);
108
109 if (h1 != NULL) {
110
111 if (X != JRange_t()) { h1->GetXaxis()->SetRangeUser(X.getLowerLimit(), X.getUpperLimit()); }
112 if (Y != JRange_t()) { h1->GetYaxis()->SetRangeUser(Y.getLowerLimit(), Y.getUpperLimit()); }
113
114 h1->Scale(factor, option.c_str());
115
116 } else if (ge != NULL) {
117
118 for (Int_t i = 0; i != ge->GetN(); ++i) {
119 ge->GetY() [i] *= factor;
120 ge->GetEY()[i] *= factor;
121 }
122
123 }
else if (
g1 != NULL) {
124
125 for (Int_t i = 0; i !=
g1->GetN(); ++i) {
126 g1->GetY() [i] *= factor;
127 }
128 }
129
130 out.WriteTObject(object);
131 }
132 }
133 }
134 }
135
136 out.Write();
137 out.Close();
138}
#define DEBUG(A)
Message macros.
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object
Double_t g1(const Double_t x)
Function.
Utility class to parse command line options.
TDirectory * getDirectory(const JRootObjectID &id)
Get TDirectory pointer.
bool isTObject(const TKey *key)
Check if given key corresponds to a TObject.
Double_t getResult(const TString &text, TObject *object=NULL)
Get result of given textual formula.
This name space includes all other name spaces (except KM3NETDAQ, KM3NET and ANTARES).