| 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 |
Target->cd(); |
Target->cd(); |
| 612 |
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |