/**
 * This is an example of using the new (2013.07) fairroot 
 * unpack.
 * 
 */ 

{
  // ----- Load libraries ----------------------------------------------
  
  gROOT->LoadMacro("$VMCWORKDIR/gconfig/basiclibs.C");
  basiclibs();
  gSystem->Load("libGeoBase");
  gSystem->Load("libParBase");
  gSystem->Load("libBase");
  gSystem->Load("libMbs");
  gSystem->Load("libMbsAPI");
  gSystem->Load("libTATOFEvent");
  gSystem->Load("libTCAMACEvent");
  gSystem->Load("libTCHIEvent");
  gSystem->Load("libTLANDEvent");
  gSystem->Load("libTKRATEvent");    
  gSystem->Load("libTRootEvent");
  gSystem->Load("libTMbsInfo");
  gSystem->Load("libTCHIGridCsI");
  gSystem->Load("libMBSUnpack");
  gSystem->Load("libMerger");
  gSystem->Load("libTMBALLEvent");
  gSystem->Load("libAnaCHI");
  
  gSystem->Load("libKRATUnpack2");
  
  // -------------------------------------------------------------------

  FairLmdSource* source  = new FairLmdSource();

  source->AddFile("/home/sebastian/Datasrc/MAY11/au400_1386.lmd");
  //source->AddFile("/home/sebastian/Datasrc/MAY11/au400_1391.lmd");

  // Alternative data sources:
  //FairRemoteSource *source  = new FairRemoteSource("lxi047");
  //FairLmdSource    *source  = new FairLmdSource("/home/sebastian/Datasrc/MAY11/au400_1344.lmd");

  // -------------- Define detectors unpackers ------------------------
  Int_t type    = 36;
  Int_t subType = 1;
  
  KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("",type, subType, 1);
  pKRATUnpack2->WriteOutputToFile();
  // -------------------------------------------------------------------
  
  source->AddUnpacker( pKRATUnpack2 );

  // --------------- Define Fair run analysis manager ------------------
  
  FairRunOnline *run = new FairRunOnline(source);
  run->SetOutputFile("outputfile-generated_by_kratta_new_unpack_test.root");
  run->SetGenerateHtml(kTRUE);

  // ---------------- Define other tasks -------------------------------
  //R3BLandRawAna *ana = new R3BLandRawAna();
  //run->AddTask(ana);
  // -------------------------------------------------------------------


  // ---------------- Init and launch Fair run analysis ----------------
  run->Init();
  Int_t events = 10000;
  cout << "I'm going to analyse " << events << " events..."<< endl;
  run->Run( events, 0);
  //run->RunOnLmdFiles();
  cout << "Done"<< endl;
  
  // -------------------------------------------------------------------

  return;
}

/*
 
  
 run->Run(10000000, 0);       88112345
 run->Run(100000000, 0);      88112170 sys     0m16.373s
 run->Run(1000000000, 0);     88112153 sys     2m40.498s
 
  
 */