PWG3/vertexingHF/macros/LoadLibraries.C

   1 void LoadLibraries(Bool_t useParFiles=kFALSE) {
   2
   3   gSystem->Load("libTree.so");
   4   gSystem->Load("libGeom.so");
   5   gSystem->Load("libPhysics.so");
   6   gSystem->Load("libVMC.so");
   7   gSystem->Load("libMinuit.so");
   8   gSystem->Load("libSTEERBase.so");
   9   gSystem->Load("libESD.so");
  10   gSystem->Load("libAOD.so");
  11   gSystem->Load("libANALYSIS.so");
  12   gSystem->Load("libOADB.so");
  13   gSystem->Load("libANALYSISalice.so");
  14   gSystem->Load("libCORRFW.so");
  15   gSystem->Load("libPWG3base.so");
  16   gSystem->Load("libPWG3vertexingHF.so");
  17   //gSystem->Load("libPWG3muon.so");
  18
  19
  20   if(useParFiles) {
  21     setupPar("STEERBase");
  22     setupPar("ESD");
  23     setupPar("AOD");
  24     setupPar("ANALYSIS");
  25     setupPar("OADB");
  26     setupPar("ANALYSISalice");
  27     setupPar("CORRFW");
  28     setupPar("PWG3base");
  29     setupPar("PWG3vertexingHF");
  30     //setupPar("PWG3muon");
  31   }
  32
  33   return;
  34 }
  35 //------------------------------------------------------------------------
  36 Int_t setupPar(const char* pararchivename) {
  37   ///////////////////
  38   // Setup PAR File//
  39   ///////////////////
  40
  41   if (pararchivename) {
  42     char processline[1024];
  43     TString base = gSystem->BaseName(pararchivename);
  44     TString dir  = gSystem->DirName(pararchivename);
  45     TString ocwd = gSystem->WorkingDirectory();
  46     // Move to dir where the par files are and unpack
  47     gSystem->ChangeDirectory(dir.Data());
  48     sprintf(processline,".! tar xvzf %s.par",base.Data());
  49     gROOT->ProcessLine(processline);
  50     // Move to par folder
  51     gSystem->ChangeDirectory(base.Data());
  52
  53     // check for BUILD.sh and execute
  54     if (!gSystem->AccessPathName("PROOF-INF/BUILD.sh")) {
  55       printf("*******************************\n");
  56       printf("*** Building PAR archive    ***\n");
  57       printf("*******************************\n");
  58
  59       if (gSystem->Exec("PROOF-INF/BUILD.sh")) {
  60         Error("runAnalysis","Cannot Build the PAR Archive! - Abort!");
  61         gSystem->ChangeDirectory(ocwd.Data());
  62         return -1;
  63       }
  64     }
  65     // check for SETUP.C and execute
  66     if (!gSystem->AccessPathName("PROOF-INF/SETUP.C")) {
  67       printf("*******************************\n");
  68       printf("*** Setup PAR archive       ***\n");
  69       printf("*******************************\n");
  70       // If dir not empty, set the full include path
  71       if (dir.Length()) {
  72         sprintf(processline, ".include %s", pararchivename);
  73         gROOT->ProcessLine(processline);
  74       }
  75       gROOT->Macro("PROOF-INF/SETUP.C");
  76     }
  77     gSystem->ChangeDirectory(ocwd.Data());
  78   }
  79   return 1;
  80 }