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); |