TRD/qaRec/macros/makeResults.C

   1 // Usage:
   2 //   makeResults.C("tasks", "file_list", kGRID)
   3 //   tasks : "ALL" or one/more of the following separated by space:
   4 //     "EFF"  : TRD Tracking Efficiency
   5 //     "EFFC" : TRD Tracking Efficiency Combined (barrel + stand alone) - only in case of simulations
   6 //     "RES"  : TRD tracking Resolution
   7 //     "CAL"  : TRD calibration
   8 //     "PID"  : TRD PID - pion efficiency
   9 //     "PIDR" : TRD PID - reference data
  10 //     "DET"  : Basic TRD Detector checks
  11 //     "NOFR" : Data set does not have AliESDfriends.root
  12 //     "NOMC" : Data set does not have Monte Carlo Informations (real data), so all tasks which rely
  13 //              on MC information are switched off
  14 //   file_list : is the list of the files to be processed.
  15 //     They should contain the full path. Here is an example:
  16 // /lustre/alice/local/TRDdata/SIM/P-Flat/TRUNK/RUN0/TRD.Performance.root
  17 // or for GRID alien:///alice/cern.ch/user/m/mfasel/MinBiasProd/results/ppMinBias80000/1/TRD.Performance.root
  18 //   kGRID : specify if files are comming from a GRID collection [default kFALSE]
  19 //
  20 // HOW TO BUILD THE FILE LIST
  21 //   1. locally
  22 // ls -1 BaseDir/RUN*/TRD.Performance.root > files.lst
  23 //
  24 //   2. on Grid
  25 // char *BaseDir="/alice/cern.ch/user/m/mfasel/MinBiasProd/results/ppMinBias80000/";
  26 // TGrid::Connect("alien://");
  27 // TGridResult *res = gGrid->Query(BaseDir, "%/TRD.Task%.root");
  28 // TGridCollection *col = gGrid->OpenCollectionQuery(res);
  29 // col->Reset();
  30 // TMap *map = 0x0;
  31 // while(map = (TMap*)col->Next()){
  32 //   TIter it((TCollection*)map);
  33 //   TObjString *info = 0x0;
  34 //   while(info=(TObjString*)it()){
  35 //     printf("alien://%s\n", col->GetLFN(info->GetString().Data()));
  36 //   }
  37 // }
  38 //
  39 // The files which will be processed are the intersection between the
  40 // condition on the tasks and the files in the file list.
  41 //
  42 // Authors:
  43 //   Alex Bercuci (A.Bercuci@gsi.de)
  44 //   Markus Fasel (m.Fasel@gsi.de)
  45 //
  46
  47 #if ! defined (__CINT__) || defined (__MAKECINT__)
  48 #include <fstream>
  49 #include "TError.h"
  50 #include <TClass.h>
  51 #include <TFileMerger.h>
  52 #include <TCanvas.h>
  53 #include <TH1.h>
  54 #include <TGraph.h>
  55 #include <TObjArray.h>
  56 #include <TObjString.h>
  57 #include <TString.h>
  58 #include <TROOT.h>
  59 #include <TSystem.h>
  60 #include <TStyle.h>
  61
  62 #include "qaRec/AliTRDrecoTask.h"
  63
  64 #endif
  65
  66 #include "AliTRDperformanceTrain.h"
  67 //#include "../../PWG1/macros/AddPerformanceTask.h"
  68
  69 Char_t *libs[] = {"libProofPlayer.so", "libANALYSIS.so", "libTRDqaRec.so"};
  70 // define setup
  71 TCanvas *c = 0x0;
  72 Bool_t mc(kFALSE), friends(kFALSE);
  73
  74 void mergeProd(const Char_t *mark="TRD.Performance.root", const Char_t *files=0);
  75 void processTRD(TNamed* task);
  76 void processAliTask(TNamed* task);
  77 void makeResults(Char_t *opt = "ALL", const Char_t *files=0x0, Bool_t kGRID=kFALSE)
  78 {
  79   if(kGRID){
  80     if(!gSystem->Getenv("GSHELL_ROOT")){
  81       Error("makeResults.C", "AliEn not initialized.");
  82       return;
  83     }
  84     TGrid::Connect("alien://");
  85   }
  86
  87         // Load Libraries in interactive mode
  88   Int_t nlibs = static_cast<Int_t>(sizeof(libs)/sizeof(Char_t *));
  89   for(Int_t ilib=0; ilib<nlibs; ilib++){
  90     if(gSystem->Load(libs[ilib]) >= 0) continue;
  91     Error("makeResults.C", Form("Failed to load %s.", libs[ilib]));
  92     return;
  93   }
  94
  95   mc = HasReadMCData(opt);
  96   friends = HasReadFriendData(opt);
  97
  98   gStyle->SetOptStat(0);
  99   gStyle->SetOptFit(0);
 100   if(files) mergeProd("TRD.Performance.root", files);
 101   Int_t fSteerTask = ParseOptions(opt);
 102
 103   if(!c) c=new TCanvas("c", "Performance", 10, 10, 800, 500);
 104
 105   TClass *ctask = new TClass;
 106   AliAnalysisTask *task = 0x0;
 107   AliTRDrecoTask  *trd  = 0x0;
 108   for(Int_t itask = NTRDQATASKS; itask--;){
 109     if(!TSTBIT(fSteerTask, itask)) continue;
 110     new(ctask) TClass(fgkTRDtaskClassName[itask]);
 111     task = (AliAnalysisTask*)ctask->New();
 112
 113     if(task->IsA()->InheritsFrom("AliTRDrecoTask")) processTRD(task);
 114     else processAliTask(task);
 115   }
 116   delete ctask;
 117   delete c;
 118 }
 119
 120 //______________________________________________________
 121 void mergeProd(const Char_t *mark, const Char_t *files)
 122 {
 123   const Int_t kBatch = 20;
 124
 125   TFileMerger *fFM = new TFileMerger(1);
 126   fFM->OutputFile(Form("%s/0_%s",  gSystem->ExpandPathName("$PWD"), mark));
 127
 128   Int_t jbatch = 0, nbatch = 0;
 129   string filename;
 130   ifstream file(files);
 131   while(getline(file, filename)){
 132     if(Int_t(filename.find(mark)) < 0) continue;
 133     fFM->AddFile(filename.c_str()); nbatch++;
 134     if(nbatch==kBatch){
 135       //printf("MERGE BATCH %d [%d]\n", jbatch, nbatch);
 136       fFM->Merge(); jbatch++;
 137       new(fFM) TFileMerger(kTRUE);
 138       fFM->OutputFile(Form("%s/%d_%s",  gSystem->ExpandPathName("$PWD"), jbatch, mark));
 139       nbatch=0;
 140     }
 141   }
 142   if(nbatch){
 143     //printf("MERGE BATCH %d[%d]\n", jbatch, nbatch);
 144     fFM->Merge();
 145     jbatch++;
 146   }
 147   if(!jbatch){
 148     delete fFM;
 149     return;
 150   }
 151
 152   new(fFM) TFileMerger(kTRUE);
 153   fFM->OutputFile(Form("%s/%s",  gSystem->ExpandPathName("$PWD"), mark));
 154   for(Int_t ib=jbatch; ib--;){
 155     fFM->AddFile(Form("%s/%d_%s",  gSystem->ExpandPathName("$PWD"), ib, mark));
 156     gSystem->Exec(Form("rm -f %s/%d_%s", gSystem->ExpandPathName("$PWD"), ib, mark));
 157   }
 158   fFM->Merge();
 159   delete fFM;
 160 }
 161
 162 //______________________________________________________
 163 void processTRD(TNamed *otask)
 164 {
 165   AliTRDrecoTask *task = dynamic_cast<AliTRDrecoTask*>(otask);
 166   task->SetDebugLevel(0);
 167   task->SetMCdata(mc);
 168   task->SetFriends(friends);
 169
 170   if(!task->Load(Form("%s/TRD.Performance.root", gSystem->ExpandPathName("$PWD")))){
 171     Error("makeResults.C", Form("Load data container for task %s failed.", task->GetName()));
 172     delete task;
 173     return;
 174   }
 175
 176   if(!task->PostProcess()){
 177     Error("makeResults.C", Form("Processing data container for task %s failed.", task->GetName()));
 178     delete task;
 179     return;
 180   }
 181   for(Int_t ipic=0; ipic<task->GetNRefFigures(); ipic++){
 182     c->Clear();
 183     if(!task->GetRefFigure(ipic)) continue;
 184     c->SaveAs(Form("%s_Fig%02d.gif", task->GetName(), ipic));
 185   }
 186   delete task;
 187 }
 188
 189 //______________________________________________________
 190 void processAliTask(TNamed *otask)
 191 {
 192   AliAnalysisTask *task = dynamic_cast<AliAnalysisTask*>(otask);
 193   Info("makeResults.C", Form("Processing of task %s not implemented yet.", task->GetName()));
 194   delete task;
 195 }