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

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

//_____________________________________________________________________________
Int_t StntupleInitHatDataBlock(TStnDataBlock* block, AbsEvent* event, int mode) 
{
  // initialize HAD 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;

  THatDataBlock* hat_block = (THatDataBlock*) block;
  hat_block->Clear();

  TRYBOS_BANK *hatd;

  hatd = TRYBOS_BANK::Find(event,"HATD");
  StntupleUnpackTdcBank(hatd,hat_block->fHatd);

  hat_block->InitTdcChannels();

//-----------------------------------------------------------------------------
// on return mark event and run as initialized
//-----------------------------------------------------------------------------
  hat_block->f_RunNumber   = rn_number;
  hat_block->f_EventNumber = ev_number;

  return 0;
}