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