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; |
605 |
|
bool found = false; |
606 |
while ((questo = (TSystemFile*) next())) { |
while ((questo = (TSystemFile*) next())) { |
607 |
TString name = questo->GetName(); |
TString name = questo->GetName(); |
608 |
P->Add(name); |
if ( P->Add(name) ) found = true; |
609 |
|
} |
610 |
|
if ( found ){ |
611 |
|
TTree *Pclone = P->CloneTree(); |
612 |
|
Target->cd(); |
613 |
|
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |
614 |
|
P->Delete(); |
615 |
|
P=0; |
616 |
} |
} |
|
TTree *Pclone = P->CloneTree(); |
|
|
Target->cd(); |
|
|
Pclone->Write("ProcessingInfo",TObject::kOverwrite); |
|
|
P->Delete(); |
|
|
P=0; |
|
617 |
} |
} |
618 |
// |
// |
619 |
Target->Close(); |
Target->Close(); |