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

#include <Stntuple/obj/TCmpDataBlock.hh>
#include <Stntuple/mod/StntupleUtilities.hh>
#include <Stntuple/mod/InitStntupleDataBlocks.hh>

//_____________________________________________________________________________
Int_t StntupleInitCmpDataBlock(TStnDataBlock* block, AbsEvent* event, int mode) 
{
  // initialize CMP data block with the `event' data

  int                ev_number, rn_number;

  ev_number = AbsEnv::instance()->trigNumber();
  rn_number = AbsEnv::instance()->runNumber();

  if (block->Initialized(ev_number,rn_number)) return 0;

  TCmpDataBlock* cmp_block = (TCmpDataBlock*) block;
  cmp_block->Clear();

  TRYBOS_BANK *cspd, *cmpd;

  cspd = TRYBOS_BANK::Find(event,"CSPD");
  StntupleUnpackTdcBank(cspd,cmp_block->fCspd);

  cmpd = TRYBOS_BANK::Find(event,"CMPD");
  StntupleUnpackTdcBank(cmpd,cmp_block->fCmpd);

  cmp_block->InitTdcChannels();
//-----------------------------------------------------------------------------
// on return mark event and run as initialized
//-----------------------------------------------------------------------------
  cmp_block->f_RunNumber   = rn_number;
  cmp_block->f_EventNumber = ev_number;

  return 0;
}