STEER/TFndEnv.cxx

// @(#)fROOT/STEER:$Name:  $:$Id: TFndEnv.cxx,v 1.4 2007/09/05 11:09:42 Diego_Faso Exp $
// Author: H. So, 2006/05/19

#include "TFndEnv.h"

#include <TVirtualMutex.h>
#include <TSystem.h>

#include "FROOT.h"

static TVirtualMutex *fgMutex = NULL;

TFndEnv *TFndEnv::Instance()
{
  R__LOCKGUARD2(fgMutex);
  static TFndEnv instance;
  return &instance;
}

TString TFndEnv::FetchDefaultRcFilename() const
{
  const char *topLevel = gSystem->Getenv("FROOTSYS");
  if (!topLevel) {
    Warning("TFndEnv", "Environment variable FROOTSYS missing");
    return TString();
  }
  return FROOT::ConcatFileName(topLevel, ".frootrc");
}

TFndEnv::TFndEnv() : TEnv(FetchDefaultRcFilename())
{
}

TFndEnv::~TFndEnv()
{
}

Int_t TFndEnv::GetValue(const char *name, Int_t dflt)
{
  return TEnv::GetValue(name, dflt);
}

Double_t TFndEnv::GetValue(const char *name, Double_t dflt)
{
  return TEnv::GetValue(name, dflt);
}

const char *TFndEnv::GetValue(const char *name, const char *dflt)
{
  return TEnv::GetValue(name, dflt);
}

const char *TFndEnv::GetValue(const char *name, const char *dflt, const char *envVar)
{
  const char *s;
  if (envVar && (s = gSystem->Getenv(envVar)) != NULL)
    return s;
  return TEnv::GetValue(name, dflt);
}

---