/**************************************************************************
 * Copyright(c) 2007-2009, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$*/

///////////////////////////////////////////////////////////////////////////////
///
/// This class provides access to ITS SDD digits in raw data.
///
///////////////////////////////////////////////////////////////////////////////

#include "AliITSRawStreamSDD.h"
#include "AliRawReader.h"
#include "AliLog.h"
#include "Riostream.h"

ClassImp(AliITSRawStreamSDD)

const Int_t AliITSRawStreamSDD::fgkDDLModuleMap[kDDLsNumber][kModulesPerDDL] = {
 
  {240,241,242,246,247,248,252,253,254,258,259,260},
  {264,265,266,270,271,272,276,277,278,282,283,284},
  {288,289,290,294,295,296,300,301,302,306,307,308},
  {312,313,314,318,319,320,-1,-1,-1,-1,-1,-1},
  {243,244,245,249,250,251,255,256,257,261,262,263},
  {267,268,269,273,274,275,279,280,281,285,286,287},
  {291,292,293,297,298,299,303,304,305,309,310,311},
  {315,316,317,321,322,323,-1,-1,-1,-1,-1,-1},
  {324,325,326,327,332,333,334,335,340,341,342,343},
  {348,349,350,351,356,357,358,359,364,365,366,367},
  {372,373,374,375,380,381,382,383,388,389,390,391},
  {396,397,398,399,404,405,406,407,412,413,414,415},
  {420,421,422,423,428,429,430,431,436,437,438,439},
  {444,445,446,447,452,453,454,455,460,461,462,463},
  {468,469,470,471,476,477,478,479,484,485,486,487},
  {492,493,494,495,-1,-1,-1,-1,-1,-1,-1,-1},
  {328,329,330,331,336,337,338,339,344,345,346,347},
  {352,353,354,355,360,361,362,363,368,369,370,371},
  {376,377,378,379,384,385,386,387,392,393,394,395},
  {400,401,402,403,408,409,410,411,416,417,418,419},
  {424,425,426,427,432,433,434,435,440,441,442,443},
  {448,449,450,451,456,457,458,459,464,465,466,467},
  {472,473,474,475,480,481,482,483,488,489,490,491},
  {496,497,498,499,-1,-1,-1,-1,-1,-1,-1,-1}};
  
const UInt_t AliITSRawStreamSDD::fgkCodeLength[8] =  {8, 18, 2, 3, 4, 5, 6, 7};

AliITSRawStreamSDD::AliITSRawStreamSDD(AliRawReader* rawReader) :
  AliITSRawStream(rawReader),
fData(0),
fCarlosId(-1),
fEventId(0),
fChannel(0),
fJitter(0),
fNCarlos(kModulesPerDDL),
fDDL(0),
fEndWords(0),
fResetSkip(0)
{
// create an object to read ITS SDD raw digits

  Reset();
  for(Int_t i=0;i<kFifoWords;i++) fNfifo[i]=0;
  for(Int_t i=0;i<kDDLsNumber;i++) fSkip[i]=0;
  fRawReader->Reset();
  fRawReader->Select("ITSSDD");

  for(Short_t i=0; i<kCarlosWords; i++) fICarlosWord[i]=0x30000000 + i; // 805306368+i;
  for(Short_t i=0; i<kFifoWords; i++) fIFifoWord[i]=0x30000010 + i;  // 805306384+i;
}

UInt_t AliITSRawStreamSDD::ReadBits()
{
// read bits from the given channel
  UInt_t result = (fChannelData[fCarlosId][fChannel] & ((1<<fReadBits[fCarlosId][fChannel]) - 1));
  fChannelData[fCarlosId][fChannel] >>= fReadBits[fCarlosId][fChannel]; 
  fLastBit[fCarlosId][fChannel] -= fReadBits[fCarlosId][fChannel];
  return result;
}

Int_t AliITSRawStreamSDD::DecompAmbra(Int_t value) const
{
  // AMBRA decompression (from 8 to 10 bit)
  
  if ((value & 0x80) == 0) {
    return value & 0x7f;
  } else if ((value & 0x40) == 0) {
    return 0x081 + ((value & 0x3f) << 1);
  } else if ((value & 0x20) == 0) {
    return 0x104 + ((value & 0x1f) << 3);
  } else {
    return 0x208 + ((value & 0x1f) << 4);
  }
  
}

Bool_t AliITSRawStreamSDD::Next()
{
// read the next raw digit
// returns kFALSE if there is no digit left
// returns kTRUE and fCompletedModule=kFALSE when a digit is found
// returns kTRUE and fCompletedModule=kTRUE  when a module is completed (=3x3FFFFFFF footer words)

  fPrevModuleID = fModuleID;
  fDDL=fRawReader->GetDDLID();
  //cout << "fDDL: " << fDDL;
  Int_t ddln = fRawReader->GetDDLID();
  //cout << ", ddln: " << ddln << endl;
  if(ddln <0) ddln=0;
  fCompletedModule=kFALSE;

  while (kTRUE) {
    if(fResetSkip==0){
      Bool_t kSkip = ResetSkip(ddln);
      fResetSkip=1;
      if(!kSkip) return kSkip;
    }
  
    if ((fChannel < 0) || (fLastBit[fCarlosId][fChannel] < fReadBits[fCarlosId][fChannel])) {
      if (!fRawReader->ReadNextInt(fData)) {
	//cout << "read word in Next and skip, fData: ";
	//printf("%x\n",fData);
	return kFALSE;  // read next word
      }
      //cout << "read word in Next, fData: ";
      //printf("%x\n",fData);

      ddln = fRawReader->GetDDLID();
      if(ddln!=fDDL) { 
	Reset();
	fChannel=-1;
	fDDL=fRawReader->GetDDLID();
      }
      if(ddln < 0 || ddln > (kDDLsNumber-1)) ddln  = 0;
      //cout << "in the while loop, fDDL: " << fDDL << ", ddln: " << ddln << endl;

      fChannel = -1;
      if(fData>=fICarlosWord[0]&&fData<=fICarlosWord[11]) { // Carlos Word
	if(fEndWords==12) continue; // out of event
	else if(fEndWords<12){
	  fCarlosId = fData-fICarlosWord[0];
	  Int_t iFifoIdx = fCarlosId/3;
	  if(fNCarlos == 8) {
	    if(fCarlosId==2) iFifoIdx = 1;
	    if(fCarlosId==4 || fCarlosId==5)  iFifoIdx = 2;
	    if(fCarlosId==6 || fCarlosId==7)  iFifoIdx = 3 ;
	  }	    
	  fNfifo[iFifoIdx] = fCarlosId;
	  //cout <<  "set fCarlosId to " << fCarlosId << " and fNfifo[" << iFifoIdx << "] to " << fNfifo[iFifoIdx] << endl;
	}
      } else if (fData>=fIFifoWord[0]&&fData<=fIFifoWord[3]){
	if(fEndWords==12) continue; // out of event
	else if(fEndWords<12){
	  //cout << "fData-fIFifoWord[0]: " << fData-fIFifoWord[0] << endl;
	  fCarlosId = fNfifo[fData-fIFifoWord[0]];	    
	  //cout << "fCarlosId set to " << fCarlosId << " from FIFO Word" << endl;
	}
      }
      if((fData >> 4) == 0xFF00000){   // jitter word (to be improved !!!!)
	for(Int_t i=0;i<kDDLsNumber;i++){fSkip[i]=0;}
	fResetSkip=0;
	fEndWords=0;
	continue;
      }

      if(fData==0x3F1F1F1F){
	fEndWords++;
	if(fEndWords<=12) continue;
      }
      if (fNCarlos == 8 && (fCarlosId == 8 || fCarlosId == 9 || 
			    fCarlosId ==10 || fCarlosId == 11)) continue;  // old data, fNCarlos = 8;
            
      //cout << "set module from DDLID " << fRawReader->GetDDLID() << " and fCarlosId: " << fCarlosId << endl;
      fModuleID = fgkDDLModuleMap[fRawReader->GetDDLID()][fCarlosId];	  
      //cout<<"AliITSRawStreamSDD: fModuleID: "<<fModuleID<<endl;
      
      if ((fData >> 28) == 0x02) {           // header
	fEventId = (fData >> 3) & 0x07FF;
	//cout<<"AliITSRawStreamSDD:fEventID: "<<fEventId<<endl;
      } else if ((fData >> 28)== 0x03) {    // footer
	if(fData==0x3FFFFFFF){
	  fICountFoot[fCarlosId]++; // stop before the last word (last word=jitter)
	  if(fICountFoot[fCarlosId]==3){
	    fCompletedModule=kTRUE;
	    return kTRUE;
	  }
	}		
      } else if ((fData >> 29) == 0x00) {    // error
	if ((fData & 0x00000163) != 0) {	 
	  fRawReader->AddMajorErrorLog(kDataError,Form("Error code = %8.8x",fData));	 
	  AliWarning(Form("error codes = %8.8x",fData));
	  return kFALSE; 	  
	}
      } else if ((fData >> 30) == 0x01) {    // JTAG word
	// ignored
      } else if ((fData >> 30) == 0x02) {    // channel 0 data
	fChannel = 0;
	//cout << "fChannel set to " << fChannel << endl;
      } else if ((fData >> 30) == 0x03) {    // channel 1 data
	fChannel = 1;
	//cout << "fChannel set to " << fChannel << endl;
      } else {                               // unknown data format
	fRawReader->AddMajorErrorLog(kDataFormatErr,Form("Invalid data %8.8x",fData));
	AliWarning(Form("invalid data: %8.8x\n", fData));
	return kFALSE;
      }
      
      if (fChannel >= 0) {   // add read word to the data
	//cout << "add read word to the data" << endl;
	fChannelData[fCarlosId][fChannel] += 
	  (ULong64_t(fData & 0x3FFFFFFF) << fLastBit[fCarlosId][fChannel]);
	fLastBit[fCarlosId][fChannel] += 30;
      }
    } else {  // decode data
      if (fReadCode[fCarlosId][fChannel]) {// read the next code word
	fChannelCode[fCarlosId][fChannel] = ReadBits();
	fReadCode[fCarlosId][fChannel] = kFALSE;
	fReadBits[fCarlosId][fChannel] = fgkCodeLength[fChannelCode[fCarlosId][fChannel]];
      } else {                      // read the next data word
	UInt_t data = ReadBits();
	fReadCode[fCarlosId][fChannel] = kTRUE;
	fReadBits[fCarlosId][fChannel] = 3;
	if (fChannelCode[fCarlosId][fChannel] == 0) {         // set the time bin	  
	  fTimeBin[fCarlosId][fChannel] = data;
	} else if (fChannelCode[fCarlosId][fChannel] == 1) {  // next anode
	  fTimeBin[fCarlosId][fChannel] = 0;
	  fAnode[fCarlosId][fChannel]++;
	} else {                                   // ADC signal data
	  fSignal = DecompAmbra(data + (1 << fChannelCode[fCarlosId][fChannel]) + fLowThreshold[fChannel]);
	  fCoord1 = fAnode[fCarlosId][fChannel];
	  fCoord2 = fTimeBin[fCarlosId][fChannel];
	  fTimeBin[fCarlosId][fChannel]++;
	  //cout << "data read, Module, Anode, Time, Charge = " << fModuleID << "," << fCoord1 << "," << fCoord2 << "," << fSignal << endl;
	  return kTRUE;
	}
      }
    }
  }
  return kFALSE;  

}

void AliITSRawStreamSDD::Reset(){

  //reset data member for a new ddl
  for(Int_t i=0;i<2;i++){
    for(Int_t ic=0;ic<kModulesPerDDL;ic++){
      fChannelData[ic][i]=0;
      fLastBit[ic][i]=0;
      fChannelCode[ic][i]=0;
      fReadCode[ic][i]=kFALSE;
      fReadBits[ic][i]=0;
      fTimeBin[ic][i]=0;
      fAnode[ic][i]=0;     
    }
    fLowThreshold[i]=0;
  }
  for(Int_t i=0;i<kModulesPerDDL;i++) fICountFoot[i]=0;
}

Bool_t AliITSRawStreamSDD::ResetSkip(Int_t ddln){
  Bool_t startCount=kFALSE;
  while (fSkip[ddln] < 9) {
    if (!fRawReader->ReadNextInt(fData)) { 
      //cout << "read word in ResetSkip, fData: ";
      //printf("%x\n",fData);
      //cout << "return kFALSE in resetskip" << endl; 
      return kFALSE;
    }
    if(fData==0xFFFFFFFF) startCount=kTRUE;
    //cout << "read word in ResetSkip, fData: ";
    //printf("%x\n",fData);
    if ((fData >> 30) == 0x01) continue;  // JTAG word
    if(startCount) fSkip[ddln]++;
  }
  return kTRUE;
}