Go back to working dir if par compilation fails, this helps debugging (AndreaR)

diff --git a/PWG3/vertexingHF/LoadLibraries.C b/PWG3/vertexingHF/LoadLibraries.C
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..1794ba4ada767293ed33e25a82c543a5947b5550 100644 (file)
--- a/PWG3/vertexingHF/LoadLibraries.C
+++ b/PWG3/vertexingHF/LoadLibraries.C
@@ -0,0 +1,73 @@
+void LoadLibraries(Bool_t useParFiles=kFALSE) {
+
+  gSystem->Load("libTree.so");
+  gSystem->Load("libGeom.so");
+  gSystem->Load("libPhysics.so");
+  gSystem->Load("libVMC.so");
+  gSystem->Load("libSTEERBase.so");
+  gSystem->Load("libESD.so");
+  gSystem->Load("libAOD.so"); 
+  gSystem->Load("libANALYSIS.so");
+  gSystem->Load("libANALYSISalice.so");
+  gSystem->Load("libCORRFW.so");
+  gSystem->Load("libPWG3base.so");
+  gSystem->Load("libPWG3vertexingHF.so");
+
+  if(useParFiles) {
+    setupPar("STEERBase");
+    setupPar("ESD");
+    setupPar("AOD");
+    setupPar("ANALYSIS");
+    setupPar("ANALYSISalice");
+    setupPar("CORRFW");  
+    setupPar("PWG3vertexingHF");
+  }
+
+  return;
+}
+//------------------------------------------------------------------------
+Int_t setupPar(const char* pararchivename) {
+  ///////////////////
+  // Setup PAR File//
+  ///////////////////
+
+  if (pararchivename) {
+    char processline[1024];
+    TString base = gSystem->BaseName(pararchivename);
+    TString dir  = gSystem->DirName(pararchivename);
+    TString ocwd = gSystem->WorkingDirectory();
+    // Move to dir where the par files are and unpack 
+    gSystem->ChangeDirectory(dir.Data());
+    sprintf(processline,".! tar xvzf %s.par",base.Data());
+    gROOT->ProcessLine(processline);
+    // Move to par folder                           
+    gSystem->ChangeDirectory(base.Data());
+
+    // check for BUILD.sh and execute                
+    if (!gSystem->AccessPathName("PROOF-INF/BUILD.sh")) {
+      printf("*******************************\n");
+      printf("*** Building PAR archive    ***\n");
+      printf("*******************************\n");
+
+      if (gSystem->Exec("PROOF-INF/BUILD.sh")) {
+        Error("runAnalysis","Cannot Build the PAR Archive! - Abort!");
+       gSystem->ChangeDirectory(ocwd.Data());
+        return -1;
+      }
+    }
+    // check for SETUP.C and execute                
+    if (!gSystem->AccessPathName("PROOF-INF/SETUP.C")) {
+      printf("*******************************\n");
+      printf("*** Setup PAR archive       ***\n");
+      printf("*******************************\n");
+      // If dir not empty, set the full include path 
+      if (dir.Length()) {
+       sprintf(processline, ".include %s", pararchivename);
+       gROOT->ProcessLine(processline);
+      }
+      gROOT->Macro("PROOF-INF/SETUP.C");
+    }
+    gSystem->ChangeDirectory(ocwd.Data());
+  }
+  return 1;
+}
\ No newline at end of file