g4libs.C

Go to the documentation of this file.

//------------------------------------------------
// The Virtual Monte Carlo examples
// Copyright (C) 2007 - 2014 Ivana Hrivnacova
// All rights reserved.
//
// For the licensing terms see geant4_vmc/LICENSE.
// Contact: root-vmc@cern.ch
//-------------------------------------------------
 
/// \file g4libs.C
/// \brief Macro for loading Geant4 and Geant4 VMC libraries
///
/// New macro for loading Geant4 and Geant4 VMC libraries
/// with using geant4-config script provided in Geant4.
/// Besides loading libraries, the macro also resets
/// FPE mask to 0, in order to make sure than FPE for
/// FE_OVERFLOW is disabled what is required for Geant4.
 
#if !defined(__CINT__) || defined(__MAKECINT__)
 
#include <iostream>
 
#include <TSystem.h>
#include <TString.h>
#include <TApplication.h>
#include <TROOT.h>
#include <string>
 
#endif
 
namespace g4libUtilities {
  Bool_t isLibrary(const char* libName)
  {
  /// Helper function which testes the existence of the given library
  /// \param libName  The library name
 
    if (TString(gSystem->DynamicPathName(libName, kTRUE)) != TString(""))
      return kTRUE;
    else
      return kFALSE;
  }
}
 
void loadg4libs()
{
/// Macro function for loading Geant4 libraries
/// from list of libraries build by geant4-config --libs
 
  FILE* pipe = gSystem->OpenPipe("geant4-config --libs", "r");
  std::string all_lines;
  char line[1000];
  while ( fgets(line, sizeof(line), pipe ) != NULL ) {
    all_lines += line;
  }
 
  TString all_lines_t(all_lines.data());
  all_lines_t.Remove(all_lines_t.First('\n'));
  //cout << all_lines_t.Data() << endl;
  TObjArray* libs = all_lines_t.Tokenize(" ");
 
  //TString dynamicPath = gSystem->GetDynamicPath();
  for (Int_t i=libs->GetEntriesFast()-1; i>=0; i-- ) {
    TString addPath = ((TObjString*)libs->At(i))->GetString();
    if (addPath.BeginsWith("-L")) {
      addPath.Remove(0,2);
      addPath.ReplaceAll("\"", "");
      //cout << "Adding dynamic path " << addPath.Data() << endl;
      gSystem->AddDynamicPath(addPath.Data());
    }
  }
 
  cout << libs->GetEntriesFast() << endl;
  for (Int_t i=libs->GetEntriesFast()-1; i>=0; i-- ) {
    TString lib = ((TObjString*)libs->At(i))->GetString();
    lib.ReplaceAll("-l", "lib");
    //cout << "Loading |" << lib.Data() << "|" << endl;
    if(lib.BeginsWith("lib"))
      gSystem->Load(lib.Data());
  }
 
  gSystem->SetFPEMask(0);
}
 
Bool_t isBatch()
{
/// Helper function which testes if Root was started in batch mode
 
  for ( Int_t i=0; i<gApplication->Argc(); ++i )
    if ( TString(gROOT->GetApplication()->Argv(i)) == "-b" ) return true;
 
  return false;
}
 
Bool_t isSet(const char* variable)
{
/// Helper function which checks if the specified environment variable
/// is set.
/// \param variable  The environment variable name
 
  TString value = gSystem->Getenv(variable);
  if ( value != "") return true;
 
  return false;
}
 
Bool_t isMT()
{
/// Macro function for detecting if Geant4 libraries
/// are built in multi-threading mode via
/// geant4-config --has-feature multithreading
 
  FILE* pipe = gSystem->OpenPipe("geant4-config  --has-feature multithreading", "r");
  char line[10];
  fgets(line, sizeof(line), pipe);
  TString answer = line;
  answer.Remove(answer.First('\n'));
 
  return ( answer == "yes");
}
 
void vgmlibs()
{
/// Function for loading VGM libraries.
 
  if ( isSet("USE_VGM") ) {
    cout << "Loading VGM libraries ... " << endl;
    gSystem->Load("libClhepVGM");
    gSystem->Load("libBaseVGM");
    gSystem->Load("libGeant4GM");
    gSystem->Load("libRootGM");
    gSystem->Load("libXmlVGM");
  }
}
 
void g4libs()
{
  // Load Geant4 libraries
  cout << "Loading Geant4 libraries (using geant4-config) ..." << endl;
  loadg4libs();
 
  // VGM librares
  vgmlibs();
 
  // VMC library (optional)
  if ( g4libUtilities::isLibrary("libVMCLibrary") ) {
    cout << "Loading VMC library ..." << endl;
    gSystem->Load("libVMCLibrary");
  }
 
  // G4Root library (if available)
  cout << "Loading g4root library ..." << endl;
  gSystem->Load("libg4root");
 
  // Geant4 VMC library
  cout << "Loading geant4vmc library ..." << endl;
  gSystem->Load("libgeant4vmc");
 
  // initialize Root threading
  if ( isMT() ) {
    TThread::Initialize();
  }
}