///////////////////////////////////////////////////////////////////////////
//
//
// Authors:
//   Julian Book   <Julian.Book@cern.ch>
//                                                                       //
///////////////////////////////////////////////////////////////////////////

#include <TROOT.h>
#include <TSystem.h>
#include <TPad.h>
#include <TCollection.h>
#include <TList.h>
// #include "TParamater<Int_t>.h"
// #include "TParamater<Double_t>.h"
#include <TParameter.h>
#include <TNamed.h>
#include <TPaveText.h>

#include "PairAnalysisMetaData.h"

ClassImp(PairAnalysisMetaData)


PairAnalysisMetaData::PairAnalysisMetaData() :
//   TCollection(),
  TNamed("PairAnalysisMetaData","PairAnalysis MetaData Container"),
  fMetaList()
{
  //
  // Default constructor
  //
  fMetaList.SetOwner(kTRUE);
  fMetaList.SetName("PairAnalysis_MetaData");
}

//_____________________________________________________________________________
PairAnalysisMetaData::PairAnalysisMetaData(const char* name, const char* title) :
  //   TCollection(),
  TNamed(name, title),
  fMetaList()
{
  //
  // TNamed constructor
  //
  fMetaList.SetOwner(kTRUE);
  fMetaList.SetName(name);
}

//_____________________________________________________________________________
PairAnalysisMetaData::~PairAnalysisMetaData()
{
  //
  // Destructor
  //
  fMetaList.Clear();
  //  if (fList) fList->Clear();
}

//_____________________________________________________________________________
void PairAnalysisMetaData::Init()
{
  //
  // Init meta data objects and add to list
  //

  TNamed *pSetup = new TNamed("setup", "undefined");
  //  pSetup->SetTitle(gSystem->Getenv("USER")); //e.g. sis100
  fMetaList.Add(pSetup);

  TNamed *pSystem = new TNamed("system", "Au+Au");
  //  pSystem->SetTitle(gSystem->Getenv("USER"));
  fMetaList.Add(pSystem);

  TNamed *pProduction = new TNamed("production", "SIS");
  //  pProduction->SetTitle(gProduction->Getenv("USER"));
  fMetaList.Add(pProduction);

  TParameter<Double_t> *pBeamEnergy = new TParameter<Double_t>("beamenergy", 4.107);
  pBeamEnergy->SetBit(TParameter<Double_t>::kIsConst);
  fMetaList.Add(pBeamEnergy);

  TParameter<Int_t> *pEvents = new TParameter<Int_t>("events", 0);
  pEvents->SetMergeMode('+');
  fMetaList.Add(pEvents);

  TParameter<Bool_t> *pMC = new TParameter<Bool_t>("mc", kTRUE);
  pMC->SetBit(TParameter<Bool_t>::kIsConst);
  fMetaList.Add(pMC);


  TNamed *pTrainOp = new TNamed("operator", "undefined");
  pTrainOp->SetTitle(gSystem->Getenv("USER"));
  fMetaList.Add(pTrainOp);

  // TNamed *pRootVers = new TNamed("root", "XXX");
  // pRootVers->SetTitle(gROOT->GetVersion());
  TParameter<Int_t> *pRootVers = new TParameter<Int_t>("root",gROOT->GetVersionInt());
  pRootVers->SetBit(TParameter<Int_t>::kIsConst);
  fMetaList.Add(pRootVers);

  gSystem->Setenv("CBMROOT_SVN_REVISION",gSystem->GetFromPipe("svnversion $VMCWORKDIR"));
  TString rev=gSystem->Getenv("CBMROOT_SVN_REVISION");
  TParameter<Int_t> *pCbmRev = new TParameter<Int_t>("cbmroot", 0);
  pCbmRev->SetBit(TParameter<Int_t>::kIsConst);
  pCbmRev->SetVal(rev.Atoi());
  fMetaList.Add(pCbmRev);

  TDatime dat;
  TParameter<Int_t> *pDate = new TParameter<Int_t>("date", dat.GetDate());
  pDate->SetBit(TParameter<Int_t>::kMin);
  fMetaList.Add(pDate);

  TParameter<Int_t> *pTime = new TParameter<Int_t>("time", dat.GetTime());
  pTime->SetBit(TParameter<Int_t>::kMin);
  fMetaList.Add(pTime);

}

//_____________________________________________________________________________
void PairAnalysisMetaData::SetMetaData(TList &list, Bool_t setOwner/*=kTRUE*/)
{
  //
  // set histogram classes and histograms to this instance. It will take onwnership!
  //
  ResetMetaData();
  TString name(GetName());
  if (name == "PairAnalysisMetaData") SetName(list.GetName());
  TIter next(&list);
  TObject *o;
  while ( (o=next()) ){
    fMetaList.Add(o);
  }
  if (setOwner){
    list.SetOwner(kFALSE);
    fMetaList.SetOwner(kTRUE);
  } else {
    fMetaList.SetOwner(kFALSE);
  }
}

void PairAnalysisMetaData::FillMeta(const char *name, Double_t val) {
  //
  // fill meta data of doubles
  //
  TParameter<Double_t> *par = dynamic_cast<TParameter<Double_t> *>(fMetaList.FindObject(name));
  par->SetVal(val);
}

void PairAnalysisMetaData::FillMeta(const char *name, Int_t    val) {
  //
  // fill meta data of integers
  //
  TParameter<Int_t> *par = dynamic_cast<TParameter<Int_t> *>(fMetaList.FindObject(name));
  par->SetVal(val);
}

void PairAnalysisMetaData::FillMeta(const char *name, const char *val) {
  //
  // fill meta data of strings
  //
  TNamed *par = dynamic_cast<TNamed *>(fMetaList.FindObject(name));
  par->SetTitle(val);
}

void PairAnalysisMetaData::DrawSame(const Option_t* opt) {
  //
  // draw meta data into current pad
  //
  if(fMetaList.GetEntries()<1) return;

  TPaveText *pt = new TPaveText(gPad->GetLeftMargin(),
				1.-gPad->GetTopMargin(),
				1.-gPad->GetRightMargin(),
				0.99,"NDCNB");
  pt->SetName("meta");
  pt->SetTextAlign(kHAlignLeft+kVAlignCenter);
  pt->SetMargin(0.01); //default 0.05

  TString line="CBM";
  TString tmp="";

  // system
  TNamed *par = dynamic_cast<TNamed *>(fMetaList.FindObject("system"));
  if(par)           tmp=par->GetTitle();
  if(!tmp.IsNull()) line+=" " + tmp;
  // beamenergy
  TParameter<Double_t> *parD = dynamic_cast<TParameter<Double_t> *>(fMetaList.FindObject("beamenergy"));
  if(parD)          tmp=Form("#sqrt{#it{s}_{NN}} = %.2f GeV",parD->GetVal());
  if(!tmp.IsNull()) line+=" " + tmp;

  // simulation (only if true)
  TParameter<Bool_t> *parB = dynamic_cast<TParameter<Bool_t> *>(fMetaList.FindObject("mc"));
  if(parB && parB->GetVal()) {
      tmp=Form(", Simulation");
      line+=tmp;
  }
  pt->AddText(line.Data());


  //  pt->Print();
  pt->Draw();

}