Fixes for coverity.
[u/mrichter/AliRoot.git] / STEER / STEER / AliQADataMaker.cxx
1 /**************************************************************************
2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
3  *                                                                        *
4  * Author: The ALICE Off-line Project.                                    *
5  * Contributors are mentioned in the code where appropriate.              *
6  *                                                                        *
7  * Permission to use, copy, modify and distribute this software and its   *
8  * documentation strictly for non-commercial purposes is hereby granted   *
9  * without fee, provided that the above copyright notice appears in all   *
10  * copies and that both the copyright notice and this permission notice   *
11  * appear in the supporting documentation. The authors make no claims     *
12  * about the suitability of this software for any purpose. It is          *
13  * provided "as is" without express or implied warranty.                  *
14  **************************************************************************/
15
16
17 /* $Id$ */
18
19 //
20 //  Base Class
21 //  Produces the data needed to calculate the quality assurance. 
22 //  All data must be mergeable objects.
23 //  Y. Schutz CERN July 2007
24 //
25
26 // --- ROOT system ---
27 #include <TROOT.h> 
28 #include <TSystem.h> 
29 #include <TFile.h>
30 #include <TList.h> 
31 #include <TTree.h>
32 #include <TClonesArray.h>
33 #include <TParameter.h>
34 #include <TH1K.h>
35 #include <TH2C.h>
36 #include <TH2F.h>
37 #include <TH2F.h>
38 #include <TH2I.h>
39 #include <TH3C.h>
40 #include <TH3F.h>
41 #include <TH3F.h>
42 #include <TH3I.h>
43 #include <TH3S.h>
44 #include <TArrayI.h>
45 #include <TPRegexp.h>
46 // --- Standard library ---
47
48 // --- AliRoot header files ---
49 #include "AliLog.h"
50 #include "AliQADataMaker.h"
51 #include "AliQAChecker.h"
52 #include "AliESDEvent.h"
53 #include "AliRawReader.h"
54 #include "AliDetectorRecoParam.h"
55
56
57 ClassImp(AliQADataMaker)
58
59 const Char_t* AliQADataMaker::fgkTriggerPrefix = "_$TR$_";
60 TObjArray* AliQADataMaker::fgCloningRequest = 0;
61 TObjArray* AliQADataMaker::fgTrigClasses = 0;
62 TObjArray  AliQADataMaker::fgEventTrigClasses;
63
64 //____________________________________________________________________________ 
65 AliQADataMaker::AliQADataMaker(const Char_t * name, const Char_t * title) : 
66   TNamed(name, title), 
67   fOutput(0x0),
68   fDetectorDir(0x0),
69   fDetectorDirName(""), 
70   fCurrentCycle(0), 
71   fCycle(9999999), 
72   fCycleCounter(0), 
73   fWriteExpert(kFALSE),
74   fParameterList(new TList*[AliRecoParam::kNSpecies]), 
75   fRun(0), 
76   fEventSpecie(AliRecoParam::kDefault), 
77   fDigitsArray(NULL) 
78 {
79   // ctor
80   fDetectorDirName = GetName() ; 
81   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
82     fParameterList[specie] = NULL ; 
83     fEvCountCycle[specie].Set(AliQAv1::kNTASKINDEX);
84     fEvCountTotal[specie].Set(AliQAv1::kNTASKINDEX);
85   }
86   
87 }
88
89 //____________________________________________________________________________ 
90 AliQADataMaker::AliQADataMaker(const AliQADataMaker& qadm) :
91   TNamed(qadm.GetName(), qadm.GetTitle()),
92   fOutput(qadm.fOutput),
93   fDetectorDir(qadm.fDetectorDir),
94   fDetectorDirName(qadm.fDetectorDirName),
95   fCurrentCycle(qadm.fCurrentCycle), 
96   fCycle(qadm.fCycle), 
97   fCycleCounter(qadm.fCycleCounter), 
98   fWriteExpert(qadm.fWriteExpert),
99   fParameterList(qadm.fParameterList),  
100   fRun(qadm.fRun), 
101   fEventSpecie(qadm.fEventSpecie),
102   fDigitsArray(NULL) 
103 {
104   //copy ctor
105   fDetectorDirName = GetName() ; 
106   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) {
107     fParameterList[specie] = qadm.fParameterList[specie] ; 
108     fEvCountCycle[specie] = qadm.fEvCountCycle[specie];
109     fEvCountTotal[specie] = qadm.fEvCountTotal[specie];
110     //  fImage[specie] = qadm.fImage[specie] ; 
111   }
112 }
113
114 //____________________________________________________________________________ 
115 AliQADataMaker::~AliQADataMaker()
116 {
117   for (Int_t esIndex = 0 ; esIndex < AliRecoParam::kNSpecies ; esIndex++) {
118     if (fParameterList[esIndex] )
119       delete fParameterList[esIndex] ; 
120   }
121   delete[] fParameterList ; 
122   if (fDigitsArray) {
123     fDigitsArray->Clear() ; 
124     delete fDigitsArray ;
125   }
126 }
127
128 //____________________________________________________________________________
129 Int_t AliQADataMaker::Add2List(TH1 * hist, const Int_t index, TObjArray ** list, const Bool_t expert, const Bool_t image, const Bool_t saveForCorr) 
130
131   // Set histograms memory resident and add to the list
132   // Maximm allowed is 10000
133   
134   Int_t rv = -1 ; 
135   TClass * classType = hist->Class() ;
136   TString className(classType->GetName()) ; 
137   if( ! className.BeginsWith("T") && ! classType->InheritsFrom("TH1") ) {
138     AliError(Form("QA data Object must be a generic ROOT object and derive fom TH1 and not %s", className.Data())) ; 
139   } else if ( index > AliQAv1::GetMaxQAObj() ) {
140     AliError(Form("Max number of authorized QA objects is %d", AliQAv1::GetMaxQAObj())) ; 
141   } else {
142     hist->SetDirectory(0); 
143     if (expert) 
144       hist->SetBit(AliQAv1::GetExpertBit()) ;
145     if (image) 
146       hist->SetBit(AliQAv1::GetImageBit()) ;  
147     const Char_t * name = Form("%s_%s", AliRecoParam::GetEventSpecieName(fEventSpecie), hist->GetName()) ;
148     hist->SetName(name) ; 
149     if(saveForCorr) {  
150       const Char_t * cname = Form("%s_%s", list[AliRecoParam::AConvert(AliRecoParam::kDefault)]->GetName(), hist->GetName()) ;  
151       TParameter<double> * p = new TParameter<double>(cname, 9999.9999) ;
152       if ( fParameterList[AliRecoParam::AConvert(fEventSpecie)] == NULL )
153       {
154         fParameterList[AliRecoParam::AConvert(fEventSpecie)] = new TList() ; 
155         //        fParameterList[AliRecoParam::AConvert(fEventSpecie)]->SetOwner(kTRUE);
156       }
157       fParameterList[AliRecoParam::AConvert(fEventSpecie)]->Add(p) ;
158     }
159     TObject* old = list[AliRecoParam::AConvert(fEventSpecie)]->At(index);
160     if (old) {
161       AliError(Form("%s - OUPS ! Already got an object (%p,%s) for index=%d => will most probably get a memory leak by replacing it with (%p,%s) !",
162                     GetName(),old,old->GetName(),index,hist,hist->GetName()));
163     }
164     list[AliRecoParam::AConvert(fEventSpecie)]->AddAtAndExpand(hist, index) ; 
165     rv = list[AliRecoParam::AConvert(fEventSpecie)]->GetLast() ;
166   }
167   return rv ; 
168 }
169
170 //____________________________________________________________________________
171 void AliQADataMaker::ClonePerTrigClassL(TObjArray ** list, AliQAv1::TASKINDEX_t task)
172 {
173   // scan the histos of the list, match them to requested histo names to be 
174   // cloned and create the clones per trigger class
175   int spec = AliRecoParam::AConvert(fEventSpecie);
176   if (!fgCloningRequest || !GetNTrigClasses()) return;
177   if (!list || !list[spec]) {
178     AliDebug(1,Form("Array for %s specie is not created",AliRecoParam::GetEventSpecieName(fEventSpecie)));
179     return;
180   }
181   //
182   // if the counters were not expanded, do this now
183   if (fEvCountCycle[spec].GetSize()==AliQAv1::kNTASKINDEX) {
184     fEvCountCycle[spec].Set(AliQAv1::kNTASKINDEX*(GetNTrigClasses()+1)); // +1 for trigger-independent count
185     fEvCountTotal[spec].Set(AliQAv1::kNTASKINDEX*(GetNTrigClasses()+1)); // +1 for trigger-independent count
186   }
187   //
188
189   TString prefix = Form("%s/%s/",GetName(),AliQAv1::GetTaskName(task).Data()); // take care of requests with this prefix
190   int prefLgt = prefix.Length();
191   //
192   for (int ir=fgCloningRequest->GetEntriesFast();ir--;) {
193     TNamed* rec = dynamic_cast<TNamed*>(fgCloningRequest->At(ir));
194     if (!rec) continue;
195     TString hfname = rec->GetName();     // histogram names
196     if (!hfname.BeginsWith(prefix)) continue;
197     Bool_t keepOrig = rec->TestBit(AliQAv1::GetOrigHistoKeptBit()); // is original to be kept?
198     ClonePerTrigClassA(list[spec], hfname.Data()+prefLgt, rec->GetTitle(), keepOrig);
199   }
200   //
201 }
202
203 //____________________________________________________________________________
204 Int_t AliQADataMaker::ClonePerTrigClassA(TObjArray * list, const char* hnm, const char* triggers, Bool_t keepOriginal)
205 {
206   // substitute the matching histogram by the TObjArray containing clones of 
207   // original histogram for each trigger from the space-separated tiggers string
208   // When keepOriginal is requested, the original histo is not deleted and filled for each trigger
209   if (!list) return 0;
210   int nh = list->GetEntriesFast();
211   if (!nh) return 0;
212   //
213   AliDebug(AliQAv1::GetQADebugLevel(),Form("Cloning histogram %s for triggers %s in array %s",hnm,triggers,list->GetName()));
214   //
215   TString trigStr = triggers;
216   TObjArray* trigArr = trigStr.Tokenize(" ");
217   int nTrigs = trigArr->GetEntriesFast();
218   Bool_t cloneAll=kFALSE, cloneMany=kFALSE;
219   if (!nTrigs) {
220     AliError(Form("Triggers string supplied for histo %s is empty", hnm));
221     delete trigArr;
222     return 0;
223   }
224   // match the trigger class id to selected aliases
225   for (int i=nTrigs;i--;) {
226     TObject* alias = fgTrigClasses->FindObject( trigArr->At(i)->GetName() );
227     if (!alias) {
228       AliError(Form("Cloning for undefined trigger class %s was requested for histogram %s",trigArr->At(i)->GetName(),hnm));
229       delete trigArr->RemoveAt(i); 
230       trigArr->Compress();
231       continue;
232     }
233     trigArr->At(i)->SetUniqueID( alias->GetUniqueID() );
234   }
235   //
236   TString histPatt = hnm;
237   if (histPatt == "*") {
238     cloneAll = kTRUE;
239     cloneMany = kTRUE;
240   }
241   else {
242     histPatt.Prepend(Form("%s_", AliRecoParam::GetEventSpecieName(fEventSpecie)));
243     // 
244     // The histogram name may contain %d formats for histos created in loop. 
245     // Then we expect more than 1 histo matching to name
246     TPRegexp rgx("%\\d*d");
247     if (histPatt.Contains(rgx)) { // need to convert to perl expression, make sure there are no perl special characters
248       const char *specials = "^$.{}[]*+?\\";
249       for (int i=strlen(specials);i--;) histPatt.ReplaceAll(specials+i,1,Form("\\%c",specials[i]),2);
250       rgx.Substitute(histPatt,"\\d+","g");
251       histPatt.Prepend('^'); histPatt += "$";
252       cloneMany = kTRUE;
253     }
254     else if ( histPatt.Contains("*") ) {
255       histPatt.ReplaceAll("*",".*");
256       histPatt.Prepend('^'); histPatt += "$";
257       cloneMany = kTRUE;
258     }
259   }
260   //
261   int nCloned = 0;
262   for (int ih=0;ih<nh;ih++) {
263     TH1* hist = (TH1*)list->At(ih);
264     if (!hist) continue;
265     if (!cloneAll) {
266       TString hname = hist->GetName();
267       if (cloneMany) {
268         TPRegexp patPR(histPatt);
269         if ( !hname.Contains(patPR) ) continue;
270       }
271       else {
272         if ( hname.CompareTo(histPatt) ) continue;
273       }
274     }
275     //
276     // histo name matches, clone it
277     nCloned += ClonePerTrigClassH(ih, list, trigArr, keepOriginal);
278     if (!cloneMany) break; // no wildcards, just one histo is expected
279   }
280   //
281   delete trigArr;
282   return nCloned;
283 }
284
285 //____________________________________________________________________________
286 Int_t AliQADataMaker::ClonePerTrigClassH(Int_t index, TObjArray* list, TObjArray* trigArr, Bool_t keepOriginal)
287 {
288   // substitute the histogram at position index by the TObjArray containing clones of 
289   // original histogram for each trigger from the trigArr
290   // When keepOriginal is requested, the original histo is not deleted and filled for each trigger
291   TH1* hist = (TH1*) list->At(index);
292   if (!hist) return 0; // should never happen, checked in calling method
293
294   if (IsCloningForbidden(hist)) {
295     AliError(Form("Cloning per trigger is forbidden for histo %s at slot %d",hist->GetName(),index));
296     return 0;
297   }
298   //
299   if (hist->TestBit(AliQAv1::GetClonedBit())) {
300     AliError(Form("histo %s at slot %d was already cloned!",((TObjArray*)hist)->GetName(),index));
301     return 0;
302   }
303   //
304   int nTrigs = trigArr->GetEntriesFast();
305   TObjArray* clonesArr = new TObjArray(GetNTrigClasses()+keepOriginal);
306   // transfer the user bits of the histo to be cloned to array
307   for (int ib=14;ib<=23;ib++) if (hist->TestBit(1<<ib)) clonesArr->SetBit(1<<ib);
308   //
309   if (keepOriginal) {
310     clonesArr->AddAt(hist,GetNTrigClasses());
311     clonesArr->SetBit(AliQAv1::GetOrigHistoKeptBit());
312   }
313   clonesArr->SetBit(AliQAv1::GetClonedBit());
314   clonesArr->SetName(hist->GetName());
315   for (int itr=0;itr<nTrigs;itr++) {
316     TObject* trigClass =  trigArr->At(itr);
317     TH1* hclone = (TH1*)hist->Clone(Form("%s%s%s",hist->GetName(), fgkTriggerPrefix, trigClass->GetName()));
318     hclone->SetTitle(Form("%s %s",hist->GetTitle(), trigClass->GetName()));
319     hclone->SetDirectory(hist->GetDirectory());
320     //
321     // NOTE: the clone is added at position corresponding to ID of the trigger alias
322     clonesArr->AddAt(hclone, trigClass->GetUniqueID());
323     hclone->SetBit(AliQAv1::GetClonedBit());
324     AliDebug(AliQAv1::GetQADebugLevel(),Form("Cloned histogram %s for trigger class %s",hist->GetName(),trigClass->GetName()));
325   }
326   //
327   list->RemoveAt(index);    // remove original histogram
328   list->AddAt(clonesArr, index);
329   if (!keepOriginal) delete hist;
330   //
331   clonesArr->SetOwner(kTRUE);
332   return clonesArr->GetEntries();
333 }
334
335 //____________________________________________________________________________
336 Char_t* AliQADataMaker::GetHistoTrigger(const TH1* h)  const
337 {
338   // extract the name of the trigger from the histogram name
339   if (!h || !h->TestBit(AliQAv1::GetClonedBit())) return 0;
340   TString hnm = h->GetName();
341   int idx = hnm.Index(fgkTriggerPrefix);
342   if (idx<0) return 0;  // not cloned
343   return (char*) h->GetName() + idx + sizeof(fgkTriggerPrefix) - 1; 
344 }
345
346 //____________________________________________________________________________
347 Int_t AliQADataMaker::SetEventTrigClasses(const char* triggers)
348 {
349   // sets the array of triggers fired in given event, return the number of triggers
350   //
351   ResetEventTrigClasses();
352   fgEventTrigClasses.SetUniqueID(1); // flag that this is a triggered event
353   if (!GetNTrigClasses()) return 0; // meaningless if the trigger aliases are not set
354   TString trigStr = triggers;
355   TObjArray* tarr = trigStr.Tokenize(" ");
356   int nTrigs = tarr->GetEntriesFast();
357   if (!nTrigs) {
358     AliWarningClass("The string for event triggers is empty");
359     delete tarr;
360     return 0;
361   }
362   int nTrClasses = 0;
363   for (int ial=fgTrigClasses->GetEntriesFast();ial--;) {
364     TNamed *pair = (TNamed*)fgTrigClasses->At(ial);
365     TString triggSet = pair->GetTitle();      // list of trigger names
366     for (int itr=nTrigs;itr--;) {
367       if ( !triggSet.Contains(tarr->At(itr)->GetName()) ) continue;
368       fgEventTrigClasses.Add(pair);
369       nTrClasses++;
370       break; 
371     }
372   }
373   //
374   fgEventTrigClasses.SetOwner(kFALSE);
375   delete tarr;
376   //
377   return nTrClasses;
378 }
379
380 //____________________________________________________________________________
381 TH1* AliQADataMaker::GetMatchingHisto(TObjArray ** list, Int_t index, Int_t trigId)
382 {
383   // get histo with given index matching to trigId-th current trigger class
384   // trigId < 0 means default hist (only if cloning was done) 
385   TObject* data = GetData(list,index);
386   if (!data) return 0;
387   if (trigId<0 || trigId==GetNEventTrigClasses()) { // original histo is requested
388     if (!data->TestBit(AliQAv1::GetClonedBit())) return (TH1*)data; // was not cloned per trigger
389     // check if during the cloning the original histo was kept (always at slot GetNTrigClasses())
390     else if (data->TestBit(AliQAv1::GetOrigHistoKeptBit())) return (TH1*)((TObjArray*)data)->At(GetNTrigClasses());
391     return 0;
392   }
393   // 
394   if (!data->TestBit(AliQAv1::GetClonedBit())) return 0; // no cloning was done
395   if (trigId>GetNEventTrigClasses()) {
396     AliError(Form("Current event has %d triggers only, %d-th is requested",GetNEventTrigClasses(),trigId));
397     return 0; // invalid trigger
398   }
399   int slot = fgEventTrigClasses.At(trigId)->GetUniqueID(); // the histos are at slots corresponding to trig.class ID
400   return (TH1*)((TObjArray*)data)->At(slot);
401   //
402 }
403
404 //____________________________________________________________________________
405 TObjArray* AliQADataMaker::GetMatchingHistosSet(TObjArray ** list, const Int_t* indexList, Int_t nHist, Int_t trigId)
406 {
407   // get set of nHist histos with indices from the indexList matching to trigId-th current trigger
408   // Note: a static array is returned, it will be overwritten at the next call  
409   static TObjArray garr;
410   garr.Clear();
411   for (int ih=0;ih<nHist;ih++) {
412     TH1* histo = GetMatchingHisto(list, indexList[ih],trigId);
413     if (!histo) return 0;    // if at least 1 histo is not found, return nothing
414     garr.Add(histo);
415   }
416   return &garr;
417 }
418
419 //____________________________________________________________________________
420 Bool_t AliQADataMaker::CheckCloningConsistency(TObjArray ** list, const Int_t* indexList, Int_t nHist, Bool_t checkTriggers) 
421 {
422   // Make sure that histograms at slots mentioned in the indexList are either
423   // not cloned per trigger or
424   // cloned for the same amount of triggers and if original histo was kept, then it is done for all histos.
425   // If checkTriggers is requested, apart from clones count also the trigger names are checked 
426   //
427   // This consistency check is needed to ensure validity of the operations over the group of histograms in the EndOfDetectorCycle's
428   //
429   TObjArray* refArr = 0;
430   int refSlot = -1;
431   for (int isl=0;isl<nHist;isl++) {
432     int slot = indexList[isl];
433     TObject* data = GetData(list,slot);
434     if (!data) {AliError(Form("Slot %d is not booked",slot)); return kFALSE;}
435     //
436     if (refSlot<0) { // just take the 1st mentioned slot as a reference;
437       if (data->TestBit(AliQAv1::GetClonedBit())) refArr = (TObjArray*) data; // data was cloned
438       refSlot = slot;
439       continue;
440     }
441     //
442     if (!data->TestBit(AliQAv1::GetClonedBit())) { // this slot is not cloned, compare with reference
443       if (refArr) {AliError(Form("Slot %d is not cloned, slot %d is cloned",slot, refSlot)); return kFALSE;}
444       else continue;
445     }
446     // 
447     TObjArray* currArr = (TObjArray*) data;  // current slot is cloned
448     if (!refArr) {AliError(Form("Slot %d is not cloned, slot %d is cloned",refSlot,slot)); return kFALSE;}
449     // 
450     // both are cloned
451     if (refArr->GetEntriesFast()!=currArr->GetEntriesFast()) {
452       AliError(Form("Different number of clones: slot %d: %d vs slot %d: %d",
453                     refSlot,refArr->GetEntriesFast(), slot,currArr->GetEntriesFast()));
454       return kFALSE;
455     }
456     //
457     if (refArr->TestBit(AliQAv1::GetOrigHistoKeptBit())!=currArr->TestBit(AliQAv1::GetOrigHistoKeptBit())) {
458       AliError(Form("Slot %d kept original histo, slot %d did not",
459                     refArr->TestBit(AliQAv1::GetOrigHistoKeptBit()) ? refSlot:slot,refArr->TestBit(AliQAv1::GetOrigHistoKeptBit()) ? slot:refSlot));
460       return kFALSE;
461     }
462     //
463     if (checkTriggers) {
464       for (int ih=refArr->GetEntriesFast();ih--;) {
465         TH1* hRef = (TH1*)refArr->At(ih);
466         if (!hRef->TestBit(AliQAv1::GetClonedBit())) continue; // original histo was kept, no trigger name is expected
467         TString hnm = ((TH1*)currArr->At(ih))->GetName();
468         if (!hnm.EndsWith( GetHistoTrigger(hRef) )) {
469           AliError(Form("Slots %d and %d have different trigger names for clone %d: %s vs %s",
470                         refSlot,slot,ih,hRef->GetName(),hnm.Data()));
471           return kFALSE;
472         }
473       }
474     }
475   }
476   //
477   return kTRUE;
478 }
479
480 //____________________________________________________________________________
481 TObjArray* AliQADataMaker::GetMatchingHistos(TObjArray ** list, Int_t index, TObjArray* optDest)
482 {
483   // return all histograms of given index matching to any trigger in the current event trigger's list
484   // If the destination optDest is provided - use it, otherwise fill/return own static array
485   // In the latter case one should be careful: the content is overwritten at each call
486   // If the original histo was cloned but kept, it is also returned
487   //
488   // Note: if there are no triggers set, all eventual clones are returned 
489   // (used for EndOfDetectorCycle loop over all histos)
490   static TObjArray garr;
491   TObjArray *dest = optDest ? optDest : &garr;
492   dest->SetOwner(kFALSE);
493   dest->Clear();
494   TObject* data = GetData(list,index);
495   if (!data) return 0;
496   if (!data->TestBit(AliQAv1::GetClonedBit())) dest->AddLast(data); // not cloned per trigger
497   else {
498     TObjArray* arr = dynamic_cast<TObjArray*>(data);
499     if (!arr) return 0;
500     if (IsEventTriggerSet()) {
501       int ncl = GetNEventTrigClasses();
502       for (int icl=0;icl<ncl;icl++) {
503         int indCl = GetEventTrigClass(icl)->GetUniqueID();
504         //      AliInfo(Form("Ind %d at %d of %p of %p",index,indCl, arr, list[AliRecoParam::AConvert(fEventSpecie)]));
505         TH1* histo = dynamic_cast<TH1*>(arr->At(indCl));
506         if (histo) dest->AddLast(histo);
507         //      AliInfo(Form("EvCl%d IndTr%d add to %d IndH %d %p %s",icl,indCl,dest->LastIndex(),index,histo,histo ? histo->GetName():"XXX"));
508       }
509       // check if original histo was kept
510       if (arr->TestBit(AliQAv1::GetOrigHistoKeptBit())) {
511         TH1* histo = dynamic_cast<TH1*>(arr->At(GetNTrigClasses()));
512         if (histo) dest->AddLast(histo);
513         //      AliInfo(Form("Def add to %d inex: %d %p %s",dest->LastIndex(),index,histo,histo ? histo->GetName():"XXX"));
514       }
515     }
516     else { // trigger is not set, return all clones
517       for (int ih=arr->GetEntriesFast();ih--;) if (arr->At(ih)) dest->AddLast(arr->At(ih));
518     }
519   }
520   return dest;
521 }
522
523 //____________________________________________________________________________
524 Int_t AliQADataMaker::FillData(TObjArray ** list, Int_t index, double x)
525 {
526   // fills single histo or its trigger-dependent clones, return number of histos filled
527   TObjArray* arr = GetMatchingHistos(list,index);
528   int count = 0;
529   if (arr) {
530     count = arr->GetEntriesFast();
531     for (int ih=count;ih--;) if ((TH1*)arr->At(ih)) ((TH1*)arr->At(ih))->Fill(x);
532   }
533   return count;
534 }
535
536 //____________________________________________________________________________
537 Int_t AliQADataMaker::FillData(TObjArray ** list, Int_t index, double x, double y)
538 {
539   // fills single histo or its trigger-dependent clones, return number of histos filled
540   TObjArray* arr = GetMatchingHistos(list,index);
541   int count = 0;
542   if (arr) {
543     count = arr->GetEntriesFast();
544     for (int ih=count;ih--;) if ((TH1*)arr->At(ih)) ((TH1*)arr->At(ih))->Fill(x,y);
545   }
546   return count;
547 }
548
549 //____________________________________________________________________________
550 Int_t AliQADataMaker::FillData(TObjArray ** list, Int_t index, double x, double y, double z)
551 {
552   // fills single histo or its trigger-dependent clones, return number of histos filled
553   TObjArray* arr = GetMatchingHistos(list,index);
554   int count = 0;
555   if (arr) {
556     count = arr->GetEntriesFast();
557     for (int ih=count;ih--;) if ((TH2*)arr->At(ih)) ((TH2*)arr->At(ih))->Fill(x,y,z);
558   }
559   return count;
560 }
561
562 //____________________________________________________________________________
563 Int_t AliQADataMaker::SetDataBinContent(TObjArray ** list, Int_t index, int bin, double w)
564 {
565   // set bin content of single histo or its trigger-dependent clones, return number of histos filled
566   TObjArray* arr = GetMatchingHistos(list,index);
567   int count = 0;
568   if (arr) {
569     count = arr->GetEntriesFast();
570     for (int ih=count;ih--;)  if ((TH2*)arr->At(ih)) ((TH2*)arr->At(ih))->SetBinContent(bin,w);
571   }
572   return count;
573 }
574
575 //____________________________________________________________________________
576 Int_t AliQADataMaker::SetDataBinContent(TObjArray ** list, Int_t index, int binX, int binY, double w)
577 {
578   // set bin content of single histo or its trigger-dependent clones, return number of histos filled
579   TObjArray* arr = GetMatchingHistos(list,index);
580   int count = 0;
581   if (arr) {
582     count = arr->GetEntriesFast();
583     for (int ih=count;ih--;)  if ((TH2*)arr->At(ih)) ((TH2*)arr->At(ih))->SetBinContent(binX,binY,w);
584   }
585   return count;
586 }
587
588 //____________________________________________________________________________
589 Int_t AliQADataMaker::SetDataBinError(TObjArray ** list, Int_t index, int bin, double err)
590 {
591   // set bin content of single histo or its trigger-dependent clones, return number of histos filled
592   TObjArray* arr = GetMatchingHistos(list,index);
593   int count = 0;
594   if (arr) {
595     count = arr->GetEntriesFast();
596     for (int ih=count;ih--;)  if ((TH2*)arr->At(ih)) ((TH2*)arr->At(ih))->SetBinError(bin,err);
597   }
598   return count;
599 }
600
601 //____________________________________________________________________________
602 Int_t AliQADataMaker::SetDataBinError(TObjArray ** list, Int_t index, int binX, int binY, double err)
603 {
604   // set bin content of single histo or its trigger-dependent clones, return number of histos filled
605   TObjArray* arr = GetMatchingHistos(list,index);
606   int count = 0;
607   if (arr) {
608     count = arr->GetEntriesFast();
609     for (int ih=count;ih--;)  if ((TH2*)arr->At(ih)) ((TH2*)arr->At(ih))->SetBinError(binX,binY,err);
610   }
611   return count;
612 }
613
614 //____________________________________________________________________________
615 Int_t AliQADataMaker::ResetData(TObjArray ** list, Int_t index, Option_t* option)
616 {
617   // reset content of single histo or its trigger-dependent clones, return number of histos processed
618   TObjArray* arr = GetMatchingHistos(list,index);
619   int count = 0;
620   if (arr) {
621     count = arr->GetEntriesFast();
622     for (int ih=count;ih--;)  if ((TH1*)arr->At(ih)) ((TH1*)arr->At(ih))->Reset(option);
623   }
624   return count;
625 }
626
627 //____________________________________________________________________________
628 Int_t AliQADataMaker::ResetStatsData(TObjArray ** list, Int_t index)
629 {
630   // reset stats of single histo or its trigger-dependent clones, return number of histos processed
631   TObjArray* arr = GetMatchingHistos(list,index);
632   int count = 0;
633   if (arr) {
634     count = arr->GetEntriesFast();
635     for (int ih=count;ih--;) if ((TH1*)arr->At(ih))  ((TH1*)arr->At(ih))->ResetStats();
636   }
637   return count;
638 }
639
640 //____________________________________________________________________________
641 TH1 *  AliQADataMaker::CloneMe(TH1 * hist, Int_t specie) const  
642 {
643   // clones a histogram 
644   const Char_t * name = Form("%s_%s", AliRecoParam::GetEventSpecieName(specie), hist->GetName()) ;
645   TH1 * hClone = static_cast<TH1 *>(hist->Clone(name)) ; 
646   if ( hist->TestBit(AliQAv1::GetExpertBit()) )
647     hClone->SetBit(AliQAv1::GetExpertBit()) ; 
648   if ( hist->TestBit(AliQAv1::GetImageBit()) )
649     hClone->SetBit(AliQAv1::GetImageBit()) ; 
650   return hClone ; 
651 }
652
653 //____________________________________________________________________________
654 void AliQADataMaker::DefaultEndOfDetectorCycle(AliQAv1::TASKINDEX_t task) 
655 {
656   // this method must be oveloaded by detectors
657   // sets the QA result to Fatal
658   AliQAv1::Instance(AliQAv1::GetDetIndex(GetName())) ;
659   AliQAv1 * qa = AliQAv1::Instance(task) ;
660   for (Int_t specie = 0 ; specie < AliRecoParam::kNSpecies ; specie++) 
661     qa->Set(AliQAv1::kFATAL, specie) ; 
662   AliQAv1::GetQAResultFile()->cd() ; 
663   qa->Write(AliQAv1::GetQAName(), kWriteDelete) ;   
664   AliQAv1::GetQAResultFile()->Close() ; 
665 }
666
667 //____________________________________________________________________________ 
668 void AliQADataMaker::Finish() const 
669
670   // write to the output File
671   if (fOutput) 
672     fOutput->Close() ; 
673
674
675 //____________________________________________________________________________ 
676 TH1* AliQADataMaker::GetData(TObjArray ** list, const Int_t index, int cloneID)  
677
678   // get the cloneID-th clone of the histo, -1 for original (if kept)
679   TObject* data = GetData(list,index);
680   if (!data) return 0;
681   Bool_t orig = cloneID<0 || cloneID==GetNTrigClasses();
682   if (data->TestBit(AliQAv1::GetClonedBit())) {
683     if (orig) return data->TestBit(AliQAv1::GetOrigHistoKeptBit()) ? (TH1*)((TObjArray*)data)->At(GetNTrigClasses()) : 0;
684     else      return (TH1*)((TObjArray*)data)->At(cloneID); // there was a cloning
685   }
686   //
687   // not cloned, is the original histo requested?
688   if (cloneID<0 || cloneID==GetNTrigClasses()) return (TH1*)data;
689   return 0;
690   //
691 }
692
693 //____________________________________________________________________________ 
694 TObjArray* AliQADataMaker::GetDataOfTrigClass(TObjArray ** list, Int_t specieIndex, int cloneID, TObjArray *dest)  
695
696   // get all histos for cloneID-th trigger class (-1 is for original "all-triggers" histos) in 
697   // a single array (if dest is not provided, use its own static array). 
698   // Existing histos are attached at their original positions
699   if (!list) return 0x0;
700   TObjArray* arr = list[specieIndex] ;
701   return GetDataOfTrigClass(arr, cloneID, dest);
702 }
703
704 //____________________________________________________________________________ 
705 TObjArray* AliQADataMaker::GetDataOfTrigClass(TObjArray *arr, int cloneID, TObjArray *dest)  
706
707   // get all histos for cloneID-th trigger class (-1 is for original "all-triggers" histos) in 
708   // a single array (if dest is not provided, use its own static array). 
709   // Existing histos are attached at their original positions
710   static TObjArray arrTransf;
711   TObjArray* destS = dest ? dest : &arrTransf;
712   destS->SetOwner(kFALSE);
713   destS->Clear();
714   if (arr) {
715     Bool_t orig = cloneID<0 || cloneID==GetNTrigClasses(); // is trigger-blind histo requested?
716     int nh = arr->GetEntriesFast();
717     if (nh>destS->GetSize()) destS->Expand(nh);
718     for (int ih=nh;ih--;) {
719       TObject* ob = arr->At(ih);
720       if (!ob) continue;
721       //
722       if (ob->TestBit(AliQAv1::GetClonedBit())) { // this is array of cloned histos
723         if (orig) ob = ob->TestBit(AliQAv1::GetOrigHistoKeptBit()) ? ((TObjArray*)ob)->At(GetNTrigClasses()) : 0;
724         else      ob = ((TObjArray*)ob)->At(cloneID);
725       }
726       else if (!orig) ob = 0;   // histogram was not cloned but the clone is requested
727       if (!ob) continue;
728       (*destS)[ih] = ob;
729     }
730     destS->SetUniqueID(arr->GetUniqueID());
731   } 
732   return destS;
733   //
734 }
735
736 //____________________________________________________________________________ 
737 TObjArray* AliQADataMaker::GetDataOfTrigClass(TObjArray ** list, int cloneID, TObjArray *dest)  
738
739   // get all histos for cloneID-th trigger class (-1 is for original "all-triggers" histos) in 
740   // a single array (if dest is not provided, use its own static array). 
741   // Existing histos are attached at their original positions
742   //
743   GetData(list,0);  //just to initialize, if needed
744   Int_t esindex = AliRecoParam::AConvert(fEventSpecie);
745   return GetDataOfTrigClass(list, esindex, cloneID, dest);
746   //
747 }
748
749 //____________________________________________________________________________ 
750 TObject * AliQADataMaker::GetData(TObjArray ** list, const Int_t index)  
751
752   // Returns the QA object at index. Limit is AliQAv1::GetMaxQAObj() 
753   if ( ! list ) {
754     AliError("Data list is NULL !!") ; 
755     return NULL ;               
756   }
757   Int_t esindex = AliRecoParam::AConvert(fEventSpecie) ; 
758   TObject* histClone = NULL ; 
759   TObjArray * arr = list[esindex] ; 
760   if (arr) {
761     if ( ! arr->GetEntriesFast() ) {
762       // Initializes the histograms 
763       TString arrName(arr->GetName()) ; 
764       if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kRAWS)))
765         InitRaws() ; 
766       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kHITS)))
767         InitHits() ; 
768       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kSDIGITS)))
769         InitSDigits() ; 
770       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kDIGITS)))
771         InitDigits() ; 
772       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kDIGITSR)))
773         InitDigits() ; 
774       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kRECPOINTS)))
775         InitRecPoints() ; 
776       else if (arrName.Contains(AliQAv1::GetTaskName(AliQAv1::kESDS)))
777         InitESDs() ; 
778     }
779     if ( index > AliQAv1::GetMaxQAObj() ) {
780       AliError(Form("Max number of authorized QA objects is %d", AliQAv1::GetMaxQAObj())) ; 
781     } else {
782       if ( arr->At(index) )  {
783         histClone = arr->At(index); 
784       }         
785     }
786   }
787   return histClone ;            
788 }
789
790 //____________________________________________________________________________ 
791 TObjArray*  AliQADataMaker::Init(AliQAv1::TASKINDEX_t task, AliRecoParam::EventSpecie_t es, Int_t cycles)
792 {
793   // Initialializes and  returns the QAData list for a given event specie
794   TObjArray ** ar = Init(task, cycles) ; 
795   return ar[AliRecoParam::AConvert(es)] ;  
796 }
797
798 //____________________________________________________________________________ 
799 Bool_t AliQADataMaker::IsValidEventSpecie(Int_t eventSpecieIndex, TObjArray ** list)
800 {
801   // check if event specie was present in current run or 
802   // if histograms of this event specie have been created
803   if (! AliQAv1::Instance(AliQAv1::GetDetIndex(GetName()))->IsEventSpecieSet(AliRecoParam::ConvertIndex(eventSpecieIndex)) || ! list[eventSpecieIndex]->GetEntriesFast() )
804     return kFALSE ;
805   else
806     return kTRUE ;
807 }
808
809 //____________________________________________________________________________ 
810 void AliQADataMaker::SetCloningRequest(TObjArray* aliases, TObjArray* histos)
811 {
812   // set associations {trigger names} <-> {trigger class alias}
813   //
814   const UInt_t kDummyID = 0xffff;
815   //
816   if (fgTrigClasses || fgCloningRequest) {
817     AliWarningClass("Cloning request is already set");
818     return;
819   }
820   ResetEventTrigClasses(); 
821   if (!aliases || !histos) {
822     AliWarningClass("Cloning request is incomplete");
823     return;
824   }
825   fgTrigClasses = aliases;
826   fgCloningRequest = histos;
827   //
828   // flag those aliases which are actually used
829   fgCloningRequest->Compress();
830   fgTrigClasses->Compress();
831   int nalias = fgTrigClasses->GetEntriesFast();
832   int nhisto = fgCloningRequest->GetEntriesFast();
833   //
834   int naliasUsed = 0;
835   for (int ial=0;ial<nalias;ial++) fgTrigClasses->At(ial)->SetUniqueID(kDummyID); // reset usage flag
836   //
837   for (int ih=nhisto;ih--;) {
838     TNamed* histo = (TNamed*)fgCloningRequest->At(ih);
839     TString histoReq = histo->GetTitle();    // list of aliases for which the histo must be cloned
840     TObjArray* alList = histoReq.Tokenize(" ");
841     // 
842     if (!alList) {
843       AliErrorClass(Form("Invalid cloning request is found for histo %s :|%s|",histo->GetName(),histo->GetTitle()));
844       fgCloningRequest->RemoveAt(ih);
845       delete histo;
846       continue;
847     }
848     TString confirmedAliases = "";
849     for (int iha=alList->GetEntriesFast();iha--;) {
850       // check if corresponding alias is defined
851       Bool_t aliasOK = kFALSE;
852       for (int ial=0;ial<nalias;ial++) {
853         TNamed* alias = (TNamed*)fgTrigClasses->At(ial);
854         TString aliasName = alias->GetName();
855         if (aliasName == alList->At(iha)->GetName()) { // found
856           aliasOK = kTRUE;
857           if (alias->GetUniqueID() == kDummyID) alias->SetUniqueID(naliasUsed++);      // acknowledge used alias
858         }
859       }
860       if (!aliasOK) {
861         AliErrorClass(Form("Cloning for undefined trigger alias %s is requested for histo %s, SUPPRESSING",
862                       alList->At(iha)->GetName(),histo->GetName()));
863       }
864       else confirmedAliases += Form("%s ",alList->At(iha)->GetName());
865     }
866     if (confirmedAliases.IsNull()) {
867       AliErrorClass(Form("All requested trigger aliases for histo %s are undefined, SUPPRESSING",histo->GetName()));
868       fgCloningRequest->RemoveAt(ih);
869       delete histo;
870     }
871     else histo->SetTitle(confirmedAliases.Data());
872     //
873     delete alList;
874   }
875   fgCloningRequest->Compress();
876   //
877   // check if there are unused aliases
878   naliasUsed = 0;
879   for (int ial=0;ial<nalias;ial++) {
880     TNamed* alias = (TNamed*)fgTrigClasses->At(ial);
881     if (alias->GetUniqueID() != kDummyID) alias->SetUniqueID(naliasUsed++); // count as defined
882     else {
883       AliWarningClass(Form("Suppressing unused trigger alias %s\t->\t%s",alias->GetName(),alias->GetTitle()));
884       delete fgTrigClasses->RemoveAt(ial);
885     }
886   }
887   fgTrigClasses->Compress();
888   //
889   AliInfoClass("Confirmed aliases for trigger classes:");
890   for (int i=0;i<fgTrigClasses->GetEntriesFast();i++) {
891     TNamed* item = (TNamed*)fgTrigClasses->At(i);
892     AliInfoClass(Form("%s -> %s",item->GetName(),item->GetTitle()));
893   }
894   //
895   AliInfoClass("Confirmed histograms to clone:");
896   for (int i=0;i<fgCloningRequest->GetEntriesFast();i++) {
897     TNamed* item = (TNamed*)fgCloningRequest->At(i);
898     AliInfoClass(Form("%s -> %s %s",item->GetName(),item->GetTitle(),
899                       item->TestBit(AliQAv1::GetOrigHistoKeptBit()) ? " + TriggerBlind":""));
900   }
901   // 
902 }
903
904 //____________________________________________________________________________ 
905 void AliQADataMaker::IncEvCountCycle(AliQAv1::TASKINDEX_t task, Int_t diff)
906 {
907   // incerment by "diff" the cycle counters for the current event trigger classes (+ the global one)
908   int ncl = GetNTrigClasses();
909   int isp = AliRecoParam::AConvert(fEventSpecie);
910   //
911   if (fEvCountCycle[isp].GetSize()==AliQAv1::kNTASKINDEX && ncl>0) fEvCountCycle[isp].Set(AliQAv1::kNTASKINDEX*(GetNTrigClasses()+1)); // +1 for trigger-independent count
912   //
913   fEvCountCycle[isp][task*(1+ncl)+ncl] += diff; // trigger independent counter
914   for (int icl=GetNEventTrigClasses();icl--;) fEvCountCycle[isp][task*(1+ncl)+ GetEventTrigClass(icl)->GetUniqueID()] += diff;
915 }
916
917 //____________________________________________________________________________ 
918 void AliQADataMaker::IncEvCountTotal(AliQAv1::TASKINDEX_t task, Int_t diff)
919 {
920   // incerment by "diff" the cycle counters for the current event trigger classes (+ the global one)
921   int ncl = GetNTrigClasses();
922   int isp = AliRecoParam::AConvert(fEventSpecie);
923   //
924   if (fEvCountTotal[isp].GetSize()==AliQAv1::kNTASKINDEX && ncl>0) fEvCountTotal[isp].Set(AliQAv1::kNTASKINDEX*(GetNTrigClasses()+1)); // +1 for trigger-independent count
925   //
926   fEvCountTotal[isp][task*(1+ncl)+ncl] += diff; // trigger independent counter
927   for (int icl=GetNEventTrigClasses();icl--;) fEvCountTotal[isp][task*(1+ncl)+ GetEventTrigClass(icl)->GetUniqueID()] += diff;
928 }
929
930 //____________________________________________________________________________
931 void AliQADataMaker::ResetEvCountCycle(AliRecoParam::EventSpecie_t isp, AliQAv1::TASKINDEX_t task) 
932 {
933   // reset counter for specific trigger class for specific specie (within the cycle)
934   int ncl = GetNTrigClasses();
935   // check if it was already expanded
936   if (fEvCountCycle[isp].GetSize()==AliQAv1::kNTASKINDEX) fEvCountCycle[isp].Set(AliQAv1::kNTASKINDEX*(ncl+1));
937   for (int icl=ncl+1;icl--;) fEvCountCycle[AliRecoParam::AConvert(isp)][task*(1+ncl) + icl] = 0;
938 }
939
940 //____________________________________________________________________________
941 void AliQADataMaker::ResetEvCountTotal(AliRecoParam::EventSpecie_t isp, AliQAv1::TASKINDEX_t task) 
942 {
943   // reset counter for specific trigger class for specific specie (global count)
944   int ncl = GetNTrigClasses();
945   // check if it was already expanded
946   if (fEvCountTotal[isp].GetSize()==AliQAv1::kNTASKINDEX) fEvCountTotal[isp].Set(AliQAv1::kNTASKINDEX*(ncl+1));
947   for (int icl=ncl+1;icl--;) fEvCountTotal[AliRecoParam::AConvert(isp)][task*(1+ncl) + icl] = 0;
948 }
949
950 //____________________________________________________________________________
951 Int_t AliQADataMaker::GetEvCountCycle(AliRecoParam::EventSpecie_t isp, AliQAv1::TASKINDEX_t task, Int_t trCl) const
952 {
953   // get counter for specific trigger class for specific specie (within the cycle)
954   int ncl = GetNTrigClasses();
955   return fEvCountCycle[AliRecoParam::AConvert(isp)][task*(1+ncl) + (trCl<0||trCl>=ncl ? ncl:trCl)];
956 }
957 //____________________________________________________________________________
958 Int_t AliQADataMaker::GetEvCountTotal(AliRecoParam::EventSpecie_t isp, AliQAv1::TASKINDEX_t task, Int_t trCl) const
959 {
960   // get counter for specific trigger class for specific specie (global count)
961   int ncl = GetNTrigClasses();
962   return fEvCountTotal[AliRecoParam::AConvert(isp)][task*(1+ncl) + (trCl<0||trCl>=ncl ? ncl:trCl)];
963 }
964