//*-- AUTHOR Ilse Koenig
//*-- created : 25/01/2006 by Ilse Koenig

//_HADES_CLASS_DESCRIPTION 
///////////////////////////////////////////////////////////////////////
// HTrbLookup
//
// Lookup table for TRB unpacker to map the TRB address
//     subevent id (800..899), channel (0..127)
// to the detector address
//     detector, sector, module, cell side.
//
///////////////////////////////////////////////////////////////////////

using namespace std;
#include "htrblookup.h"
#include "hpario.h"
#include "hdetpario.h"
#include <iostream>
#include <iomanip>
#include <ctype.h>
#include <stdlib.h>

#include "TBuffer.h"

ClassImp(HTrbLookupChan)
ClassImp(HTrbLookupBoard)
ClassImp(HTrbLookup)

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

  UInt_t R__s, R__c;
  if (R__b.IsReading()) {
    Version_t R__v = R__b.ReadVersion(&R__s, &R__c); if (R__v) { }
    TObject::Streamer(R__b);
    R__b >> detector;
    R__b >> sector;
    R__b >> module;
    R__b >> cell;
    R__b >> side;
    if(R__v>1) {
      R__b >> feAddress;
    } else {
      feAddress=-1;
    }
    R__b.CheckByteCount(R__s, R__c, HTrbLookupChan::IsA());
  } else {
    R__c = R__b.WriteVersion(HTrbLookupChan::IsA(), kTRUE);
    TObject::Streamer(R__b);
    R__b << detector;
    R__b << sector;
    R__b << module;
    R__b << cell;
    R__b << side;
    R__b << feAddress;
    R__b.SetByteCount(R__c, kTRUE);
  }
}

//---------------------------------------------------------------

HTrbLookupBoard::HTrbLookupBoard() {
  // constructor creates an array of 128 channels
  array = new TObjArray(128);
  for(Int_t i=0;i<128;i++) array->AddAt(new HTrbLookupChan(),i);
}

HTrbLookupBoard::~HTrbLookupBoard() {
  // destructor deletes the array of channels
  array->Delete();
  delete array;
}

void HTrbLookupBoard::clear() {
  // calls the clear function for each channel
  for(Int_t i=0;i<128;i++) (*this)[i].clear();
}

//---------------------------------------------------------------

HTrbLookup::HTrbLookup(const Char_t* name,
                       const Char_t* title,
		       const Char_t* context,
                       Int_t minSubeventId,
                       Int_t nBoards)
           : HParSet(name,title,context) {
  // constructor creates an empty array of size nBoards 
  arrayOffset=minSubeventId;
  array = new TObjArray(nBoards);
}

HTrbLookup::~HTrbLookup() {
  // destructor
  array->Delete();
  delete array;
}

Bool_t HTrbLookup::init(HParIo* inp,Int_t* set) {
  // initializes the container from an input
  HDetParIo* input=inp->getDetParIo("HSpecParIo");
  if (input) return (input->init(this,set));
  return kFALSE;
}

Int_t HTrbLookup::write(HParIo* output) {
  // writes the container to an output
  HDetParIo* out=output->getDetParIo("HSpecParIo");
  if (out) return out->write(this);
  return -1;
}

void HTrbLookup::clear() {
  // deletes all HTrbLookupBoard objects from the array and resets the input versions
  array->Delete();
  status=kFALSE;
  resetInputVersions();
}

void HTrbLookup::printParam() {
  // prints the lookup table
  printf("Lookup table for the TRB unpacker\n");
  printf("subeventId  channel  detector  sector  module  cell  side\n");
  printf("detectors: T-TOF, F-Tofino, S-Start, H-Hodo, W-ForwardWall, R-RPC)\n");
  printf("side: l-left, r-right, m-middle, u-up, d-down\n");
  for(Int_t i=0;i<=array->GetLast();i++) {
    HTrbLookupBoard* b=(*this)[i];
    if (b) {
      for(Int_t j=0;j<b->getSize();j++) {
        HTrbLookupChan& chan=(*b)[j];
        Char_t detector=chan.getDetector();
        if (detector!='\0') {
          printf("%5i%5i    %c%3i%4i%6i",
                 arrayOffset+i,j,detector,
                 chan.getSector(),chan.getModule(),chan.getCell());
          if (chan.getSide()!='\0') printf("     %c",chan.getSide());
          if (chan.getFeAddress()!=-1) printf("  %i",chan.getFeAddress());
          printf("\n");
        }
      }
    }
  }
}

Bool_t HTrbLookup::fill(Int_t id,Int_t chan,Char_t det,
                      Int_t sec,Int_t mod,Int_t cell,Char_t side,Int_t fea) {
  // creates the HTrbLookupBoard objects, if not existing, and fills the channel
  Bool_t rc=kFALSE;
  HTrbLookupBoard* p=getBoard(id);
  if (!p) {
    p=new HTrbLookupBoard();
    array->AddAt(p,id-arrayOffset);
  }
  HTrbLookupChan* c=p->getChannel(chan);
  if (c) {
    c->fill(det,sec,mod,cell,side,fea);
    rc=kTRUE;
  } else {
    Error("fill","Invalid channel number %i",chan);
  }
  return rc; 
}

Bool_t HTrbLookup::readline(const Char_t *buf) {
  // decodes one line read from ASCII file I/O and fills the channel
  Bool_t rc=kFALSE;
  Int_t id, chan, sec, mod, cell, feAddress;
  Char_t det='\0', side='\0';
  Int_t n=sscanf(buf,"%i%i %c%i%i%i %c %i",&id,&chan,&det,&sec,&mod,&cell,&side,&feAddress);
  if (det=='T'||det=='F'||det=='S'||det=='H'||det=='W'||det=='R') {
    if (n==6) {
      side='\0';
      feAddress=-1;
    } else if (n==7) {
      feAddress=-1;
    }
    if (side=='\0'||side=='l'||side=='r'||side=='m'||side=='u'||side=='d') {
      rc=fill(id,chan,det,sec,mod,cell,side,feAddress);
    } else {
      Error("readline","Unknown side %c\n",side);
    }
  } else {
    Error("readline","Unknown detector %c\n",det);
  }
  return rc;
}

void HTrbLookup::putAsciiHeader(TString& header) {
  // puts the ASCII header to the string used in HSpecParAsciiFileIo
  header=
    "# Lookup table for the TRB unpacker\n"
    "# Format:\n"
    "# subeventId  channel  detector  sector  module  cell  side  front-end-address\n"
    "# detectors: T-TOF, F-Tofino, S-Start, H-Hodo, W-ForwardWall, R-RPC)\n"
    "# side: l-left, r-right, m-middle, u-up, d-down\n";
}

void HTrbLookup::write(fstream& fout) {
  // writes the information of all non-zero HTrbLookupBoard objects to the ASCII file
  for(Int_t i=0;i<=array->GetLast();i++) {
    HTrbLookupBoard* b=(*this)[i];
    if (b) {
      for(Int_t j=0;j<b->getSize();j++) {
        HTrbLookupChan& chan=(*b)[j];
        Char_t detector=chan.getDetector();
        if (detector!='\0') {
          fout<<setw(3)<<(arrayOffset+i)<<setw(5)<<j<<"   "
              <<detector<<setw(4)<<chan.getSector()<<setw(4)
              <<chan.getModule()<<setw(6)<<chan.getCell();
          if (chan.getSide()!='\0') {
            fout<<"  "<<chan.getSide();
          }
          if (chan.getFeAddress()!=-1) {
            fout<<"  "<<chan.getFeAddress();
          }
          fout<<'\n';
        }
      }
    }
  }
}