From: dainese <dainese@f7af4fe6-9843-0410-8265-dc069ae4e863>
Date: Mon, 27 Apr 2009 09:09:17 +0000 (+0000)
Subject: Go back to working dir if par compilation fails, this helps debugging (AndreaR)
X-Git-Url: http://git.uio.no/git/?a=commitdiff_plain;h=9b8a82dd2f33dddf376de60e5022cfab697cc02c;p=u%2Fmrichter%2FAliRoot.git

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 e69de29bb2d..1794ba4ada7 100644
--- 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