//-----------------------------------------------------------------------------
//  Dec 16 2000 P.Murat: description of TSU data block
//-----------------------------------------------------------------------------
#include <Stntuple/obj/TTsuDataBlock.hh>

ClassImp(TTsuDataBlock)

//______________________________________________________________________________
void TTsuDataBlock::Streamer(TBuffer &R__b)
{
   // Stream an object of class TTsuDataBlock.

   if (R__b.IsReading()) {
      Version_t R__v = R__b.ReadVersion(); if (R__v) { }
      R__b >> fNDHits;
      fDHitList->Streamer(R__b);
      R__b >> fNEHits;
      fEHitList->Streamer(R__b);
   } else {
      R__b.WriteVersion(TTsuDataBlock::IsA());
      R__b << fNDHits;
      fDHitList->Streamer(R__b);
      R__b << fNEHits;
      fEHitList->Streamer(R__b);
   }
}


//_____________________________________________________________________________
TTsuDataBlock::TTsuDataBlock() {
  f_EventNumber     = 0;
  f_RunNumber       = 0;
  fLinksInitialized = 0;
  fInitMode         = 0;
				// commented out pieces are available starting 
				// from version 2.24/05

  fDHitList     = new TClonesArray("TTsudHit" ,50);
  fDHitList->BypassStreamer(kFALSE);
  //  fDHitList->SetBit(TClonesArray::kForgetBits);

  fEHitList     = new TClonesArray("TTsueHit" ,50);
  fEHitList->BypassStreamer(kFALSE);
  //  fEHitList->SetBit(TClonesArray::kForgetBits);

}

//_____________________________________________________________________________
TTsuDataBlock::~TTsuDataBlock() {
  fDHitList->Delete();
  delete fDHitList;
  fEHitList->Delete();
  delete fEHitList;
}


//_____________________________________________________________________________
void  TTsuDataBlock::Clear(Option_t* opt)  {
				// D-bank hits
  fNDHits = 0;
  fDHitList->Clear();

  fNEHits  = 0;
  fEHitList->Clear();

}

//_____________________________________________________________________________
void  TTsuDataBlock::Print(Option_t* opt) const {

  if (strchr(opt,'d') != 0) {
					// print D-hits
    if (fNDHits > 0) {
      DHit(0)->Print("banner");
      for (int i=0; i<fNDHits; i++) {
	DHit(i)->Print();
      }
    }
  }

  if (strchr(opt,'e') != 0) {
				// print E-hits
    if (fNEHits > 0) {
      EHit(0)->Print("banner");
      for (int i=0; i<fNEHits; i++) {
	EHit(i)->Print();
      }
    }
  }
}