// Usage:
//   makeResults.C("tasks?file_list")
//   tasks : "ALL" or one/more of the following separated by space:
//     "EFF"  : TRD Tracking Efficiency 
//     "EFFC" : TRD Tracking Efficiency Combined (barrel + stand alone) - only in case of simulations
//     "RES"  : TRD tracking Resolution
//     "CAL"  : TRD calibration
//     "PID"  : TRD PID - pion efficiency 
//     "PIDR" : TRD PID - reference data
//     "DET"  : Basic TRD Detector checks
//     "NOFR" : Data set does not have AliESDfriends.root 
//     "NOMC" : Data set does not have Monte Carlo Informations (real data), so all tasks which rely
//              on MC information are switched off
//   file_list : is the list of the files to be processed. 
//     They should contain the full path. Here is an example:
// /lustre_alpha/alice/TRDdata/HEAD/1.0GeV/RUN0/TRD.TaskResolution.root
// /lustre_alpha/alice/TRDdata/HEAD/2.0GeV/RUN1/TRD.TaskResolution.root
// /lustre_alpha/alice/TRDdata/HEAD/3.0GeV/RUN2/TRD.TaskResolution.root
// /lustre_alpha/alice/TRDdata/HEAD/2.0GeV/RUN0/TRD.TaskDetChecker.root
// /lustre_alpha/alice/TRDdata/HEAD/2.0GeV/RUN1/TRD.TaskDetChecker.root
// /lustre_alpha/alice/TRDdata/HEAD/2.0GeV/RUN2/TRD.TaskDetChecker.root
// /lustre_alpha/alice/TRDdata/HEAD/2.0GeV/RUN0/TRD.TaskTrackingEff.root
//
// The files which will be processed are the initersaction between the 
// condition on the tasks and the files iin the file list.  
//
// Authors:
//   Alex Bercuci (A.Bercuci@gsi.de) 
//   Markus Fasel (m.Fasel@gsi.de) 
//

#if ! defined (__CINT__) || defined (__MAKECINT__)
#include <fstream>
#include "TError.h"
#include <TClass.h>
#include <TFileMerger.h>
#include <TCanvas.h>
#include <TH1.h>
#include <TGraph.h>
#include <TObjArray.h>
#include <TObjString.h>
#include <TPython.h>
#include <TString.h>
#include <TROOT.h>
#include <TSystem.h>
#include <TStyle.h>

#include "qaRec/AliTRDrecoTask.h"

#endif

#include "run.h"

Char_t *libs[] = {"libProofPlayer.so", "libANALYSIS.so", "libTRDqaRec.so", "libPyROOT"};

void makeResults(Char_t *args = "ALL")
{
	// Load Libraries in interactive mode
  Int_t nlibs = static_cast<Int_t>(sizeof(libs)/sizeof(Char_t *));
  for(Int_t ilib=0; ilib<nlibs; ilib++){
    if(gSystem->Load(libs[ilib]) >= 0) continue;
    printf("Failed to load %s.\n", libs[ilib]);
    return;
  }


  gStyle->SetOptStat(0);
  Bool_t mc      = kTRUE;
  Bool_t friends = kTRUE;

  const Char_t *dir = 0x0;
  TString tasks;
  TObjArray *argsArray = TString(args).Tokenize("?");
  switch(argsArray->GetEntriesFast()){
  case 1:
    tasks = ((TObjString*)(*argsArray)[0])->String();
    dir=0x0;
    break;
  case 2:
    tasks = ((TObjString*)(*argsArray)[0])->String();
    dir = ((TObjString*)(*argsArray)[1])->GetName();
    break;
  default:
    printf("Macro accepts 2 arguments separated by a '?'.\n");
    printf("arg #1 : list of tasks/options\n");
    printf("arg #2 : list of files to be processed\n");
    return;
  }

  // select tasks to process; we should move it to an 
  // individual function and move the task identifiers 
  // outside the const space
  TObjArray *tasksArray = tasks.Tokenize(" ");
  Int_t fSteerTask = 0;
  for(Int_t isel = 0; isel < tasksArray->GetEntriesFast(); isel++){
    TString s = (dynamic_cast<TObjString *>(tasksArray->UncheckedAt(isel)))->String();
    if(s.CompareTo("ALL") == 0){
      for(Int_t itask = 1; itask < NTRDTASKS; itask++) SETBIT(fSteerTask, itask - 1);
      continue;
    } else if(s.CompareTo("NOFR") == 0){ 
      friends = kFALSE;
    } else if(s.CompareTo("NOMC") == 0){ 
      mc = kFALSE;
    } else { 
      Bool_t foundOpt = kFALSE;  
      for(Int_t itask = 1; itask < NTRDTASKS; itask++){
        if(s.CompareTo(fgkTRDtaskOpt[itask]) != 0) continue;
        SETBIT(fSteerTask, itask - 1);
        foundOpt = kTRUE;
        break;
      }
      if(!foundOpt) Info("makeResults.C", Form("Task %s not implemented (yet).", s.Data()));
    }
  }

  // file merger object
  TFileMerger *fFM = new TFileMerger();
  TClass *ctask = 0x0;
  AliTRDrecoTask *task = 0x0;
  Int_t nFiles;

  if(gSystem->AccessPathName(Form("%s/merge",  gSystem->ExpandPathName("$PWD")))) gSystem->Exec(Form("mkdir -v %s/merge",  gSystem->ExpandPathName("$PWD")));

  printf("\n\tPROCESSING DATA FOR TASKS [%b]:\n", fSteerTask);
  for(Int_t itask = 0; itask <NTRDTASKS; itask++){
    if(!TSTBIT(fSteerTask, itask)) continue;

    ctask = new TClass(fgkTRDtaskClassName[itask]);
    task = (AliTRDrecoTask*)ctask->New();
    task->SetDebugLevel(0);
    task->SetMCdata(mc);
    task->SetFriends(friends);

     // setup filelist
    string filename;
    nFiles = 0;
    ifstream filestream(dir);
    while(getline(filestream, filename)){
      if(Int_t(filename.find(task->GetName())) < 0) continue;
      if(Int_t(filename.find("merge")) >= 0) continue;
      nFiles++;
    }
    if(!nFiles){
      printf("No Files found for Task %s\n", task->GetName());
      delete task;
      delete ctask;
      continue;
    }
    printf("Processing %d files for task %s ...\n", nFiles, task->GetName());

    ifstream file(dir);
    if(nFiles>1){
      fFM = new(fFM) TFileMerger(kTRUE);
      fFM->OutputFile(Form("%s/merge/TRD.Task%s.root",  gSystem->ExpandPathName("$PWD"), task->GetName()));

      while(getline(file, filename)){
        if(Int_t(filename.find(task->GetName())) < 0) continue;
        if(Int_t(filename.find("merge")) >= 0) continue;
        fFM->AddFile(filename.c_str());
      }
      fFM->Merge();
      fFM->~TFileMerger();
      task->Load(Form("%s/merge/TRD.Task%s.root", gSystem->ExpandPathName("$PWD"), task->GetName()));
    } else{
      getline(file, filename);
      task->Load(filename.c_str());
    }

    task->PostProcess();
    TCanvas *c=new TCanvas();
    for(Int_t ipic=0; ipic<task->GetNRefFigures(); ipic++){
      task->GetRefFigure(ipic);
      c->SaveAs(Form("%s_fig%d.gif", task->GetName(), ipic));
      c->Clear();
    }
    delete c;
    delete task;
    delete ctask;
  }
}