#include <BaBar/Experiment.hh>
#include <Edm/EventRecord.hh>
#include <Edm/ConstHandle.hh>


#include <evt/Event.hh>
#include <Bbos/bank_interface.hh>

#include "StorableBanks/ConstGrandBankIterTDC.hh"
#include "StorableBanks/ConstBankIterTDC.hh"
#include <StorableBanks/TSID_StorableBank.hh>

#include <CalorObjects/CalData.hh>
#include <Calor/CalDataMaker.hh>

#include <Stntuple/mod/InitStntupleDataBlocks.hh>
#include <Stntuple/obj/MyronEventList.hh>
#include <Stntuple/obj/TMyronData.hh>

//_____________________________________________________________________________
Int_t InitMyronDataBlock(TMyronData* block, Float_t emin) 
{
  CalDataMaker        cal_data_maker;
  TSID_StorableBank*  tsid;
  int                 bc_marker;

  block->fNEvents = gMyronEventList->GetEntriesFast();
  
  block->Clear();

  for (int ievent=0; ievent<block->fNEvents; ievent++) {

    AbsEvent* ev = (AbsEvent*) gMyronEventList->At(ievent);
    tsid = (TSID_StorableBank*) TRYBOS_BANK::Find(ev,"TSID");
    bc_marker = tsid->bunchCrossingMarker();
    if (bc_marker!= 0) {
      block->fNBCMarkers++;
    }

    if (ievent < 4) {
				// make CalData thing by hands, as copy
				// constructor of the event record doesn't
				// do it properly

      cal_data_maker.initEvent(ev);
      cal_data_maker.makeCalData(ev,0,0);
      cal_data_maker.endEvent(ev,0);

      block->CalorData(ievent)->Init(ev,0);
    }
  }

  return 0;
}