/[PAMELA software]/PadmeAmidala/src/RunGlue.cpp
ViewVC logotype

Diff of /PadmeAmidala/src/RunGlue.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by mocchiut, Fri Oct 17 13:17:05 2014 UTC revision 1.23 by mocchiut, Fri Oct 17 14:04:04 2014 UTC
# Line 602  void RunGlue::MergeRootfile(TList *sourc Line 602  void RunGlue::MergeRootfile(TList *sourc
602      // loop over files and create chains      // loop over files and create chains
603      TIter next(sourcelist);      TIter next(sourcelist);
604      TSystemFile *questo = 0;      TSystemFile *questo = 0;
     bool found = false;  
605      while ((questo = (TSystemFile*) next())) {      while ((questo = (TSystemFile*) next())) {
606        TString name = questo->GetName();        TString name = questo->GetName();
607        if ( P->Add(name) ) found = true;        P->Add(name);
608      }      }
609      if ( found ){      if ( P->GetEntries() ){
610        TTree *Pclone = P->CloneTree();        TTree *Pclone = P->CloneTree();
611    
612    
613    
614          ProcInfo *procinfo = new ProcInfo();
615          procinfo->runID = 0;
616          TTimeStamp *dt = new TTimeStamp();
617          procinfo->date = dt->AsString();
618          delete dt;
619          TString isok;
620          if ( nli->HasDiscardedFiles() ){
621            isok = " WARNING, files were discarded while merging! ";
622          } else {
623            isok = " the level2 merging was OK!";
624          }
625          procinfo->commandLine += Form("PadmeAmidala  run: %i dir: %s wd %s. %s",run,dir.Data(),wd.Data(),isok.Data());
626          procinfo->outputFilename = Form("%s %s ",outdir.Data(),Target->GetName());
627          procinfo->localDir = gSystem->WorkingDirectory();
628          procinfo->uname = gSystem->GetFromPipe("uname -a");
629          procinfo->DB = Form("Host %s DB %s ",dbc->GetHost(),dbc->GetDB());
630          
631          Pclone->SetBranchAddress("ProcInfo",&procinfo);
632          Pclone->Fill();
633    
634        Target->cd();        Target->cd();
635        Pclone->Write("ProcessingInfo",TObject::kOverwrite);        Pclone->Write("ProcessingInfo",TObject::kOverwrite);
636        P->Delete();        P->Delete();
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.23