Corrected protection.
[u/mrichter/AliRoot.git] / STEER / AliConfig.cxx
index 63331ca..ac7bcca 100644 (file)
@@ -40,6 +40,7 @@
 #include "AliDetector.h"
 #include "AliGenerator.h" 
 #include "AliLoader.h"
+#include "AliLog.h"
 
 enum 
  {
@@ -62,7 +63,7 @@ enum
  };
 ClassImp(AliConfig)
 
-AliConfig* AliConfig::fInstance = 0;
+AliConfig* AliConfig::fgInstance = 0;
 
 //0 level folder
 const TString AliConfig::fgkTopFolderName("Folders");
@@ -111,43 +112,11 @@ AliConfig* AliConfig::Instance ()
   //
   // Instance method for singleton class
   //
-   if(fInstance == 0) 
+   if(fgInstance == 0) 
     {
-     fInstance = new AliConfig (fgkTopFolderName,"Alice data exchange board");
+     fgInstance = new AliConfig (fgkTopFolderName,"Alice data exchange board");
     }
-   return fInstance;
-}
-
-//____________________________________________________________________________
-AliConfig::AliConfig():
-  fTopFolder(0x0),
-  fTaskFolder(0x0),
-  fConstFolder(0x0),
-  fDetectorTask(0x0),
-  fDetectorFolder(0x0)
-{
-  //
-  // Default constructor, mainly to keep coding conventions
-  //
-  fInstance=0;//never mind, its going to exit in next step
-  Fatal("ctor","Constructor should not be called for a singleton\n");
-}
-//____________________________________________________________________________
-
-AliConfig::AliConfig(const AliConfig& conf):
-  fTopFolder(0x0),
-  fTaskFolder(0x0),
-  fConstFolder(0x0),
-  fDetectorTask(0x0),
-  fDetectorFolder(0x0)
-{
-  //
-  // Copy constructor, mainly to keep coding conventions
-  //
-  fInstance=0;
-    
-  Fatal("copy ctor",
-   "Copy constructor should not be called for a singleton\n");
+   return fgInstance;
 }
 //____________________________________________________________________________
 
@@ -164,7 +133,7 @@ AliConfig::AliConfig(const char *name, const char *title):
   //Main AliRoot Folder
   if (fTopFolder == 0x0)
    {
-     Fatal("AliConfig(const char*, const char*)","Can not create Top Alice Folder.");
+     AliFatal("Can not create Top Alice Folder.");
      return;//never reached
    }
   fTopFolder->SetOwner();
@@ -178,7 +147,7 @@ AliConfig::AliConfig(const char *name, const char *title):
   gROOT->GetListOfBrowsables()->Add(fTopFolder, name);
 
   //Constants folder
-  TFolder *fConstFolder = fTopFolder->AddFolder (fgkConstantsFolderName, "Constant parameters");
+  fConstFolder = fTopFolder->AddFolder (fgkConstantsFolderName, "Constant parameters");
   fConstFolder->AddFolder("DatabasePDG", "PDG database");
   
   // Add the tasks to //Folders
@@ -205,12 +174,13 @@ AliConfig::AliConfig(const char *name, const char *title):
   fDetectorTask[kDetTaskPID] = fgkPIDTaskName;
   fDetectorTask[kDetTaskLast] = "";
 
-  fInstance=this;
+  fgInstance=this;
 }
 
 //____________________________________________________________________________
 AliConfig::~AliConfig()
 { 
+  // destructor
   delete [] fDetectorFolder ;  
   delete [] fDetectorTask;
   if (fTopFolder)
@@ -223,6 +193,7 @@ AliConfig::~AliConfig()
 
 void AliConfig::AddInFolder (const char *dir, TObject *obj)
 {
+  // Adds object "obj" to folder "dir"
   TFolder *folder = dynamic_cast<TFolder *>(fTopFolder->FindObject(dir));
   if (folder)
     folder->Add (static_cast<TObject *>(obj));
@@ -234,12 +205,12 @@ Int_t AliConfig::AddSubTask(const char *taskname, const char* name,const char* t
 //Create new task named 'name' and titled 'title' 
 //as a subtask of the task named 'taskname'
 
-   if (AliLoader::fgDebug) Info("AddSubTask","Try to get folder named %s",taskname);
+   AliDebug(1, Form("Try to get folder named %s",taskname));
    TObject* obj = fTopFolder->FindObject(taskname);
    TTask * task = (obj)?dynamic_cast<TTask*>(obj):0x0;
    if (task)
      {
-      if (AliLoader::fgDebug) Info("AddSubTask","          Got");
+      AliDebug(1, "          Got");
       TTask * subtask = static_cast<TTask*>(task->GetListOfTasks()->FindObject(name));
       if (!subtask) 
         {
@@ -248,12 +219,12 @@ Int_t AliConfig::AddSubTask(const char *taskname, const char* name,const char* t
         }
       else
        {
-         Warning("AddSubTask","Task named \"%s\" already exists in Task %s\n",name,taskname);
+         AliWarning(Form("Task named \"%s\" already exists in Task %s",name,taskname));
        }
      }
    else
      {
-       Error("AddSubTask","Can not find task %s to put a new task in.",taskname);
+       AliError(Form("Can not find task %s to put a new task in.",taskname));
        return 1;
      }
   return 0;
@@ -262,6 +233,7 @@ Int_t AliConfig::AddSubTask(const char *taskname, const char* name,const char* t
 //____________________________________________________________________________
 TObject* AliConfig::FindInFolder (const char *dir, const char *name)
 {
+  // Finds object with name "name" in folder "dir"
   if(!name) return(fTopFolder->FindObject(name));
   TFolder * folder = dynamic_cast<TFolder *>(fTopFolder->FindObject(dir));
   if (!folder) return (NULL);
@@ -271,6 +243,7 @@ TObject* AliConfig::FindInFolder (const char *dir, const char *name)
 //____________________________________________________________________________
 void    AliConfig::Add (AliGenerator * obj,const char* eventfolder)
 {
+  // Adds generator "obj" to the event folder "eventfolder"
   TString path(eventfolder);
   path = path + "/" + fgkGeneratorsFolderName;
   AddInFolder(path,obj);
@@ -279,6 +252,7 @@ void    AliConfig::Add (AliGenerator * obj,const char* eventfolder)
 //____________________________________________________________________________
 void AliConfig::Add (TVirtualMC * obj,const char* eventfolder)
 {
+  // Adds TVirtualMC object to the event folder
   TString path(eventfolder);
   path = path + "/" + fgkMCFolderName;
   AddInFolder(path, obj);
@@ -287,18 +261,18 @@ void AliConfig::Add (TVirtualMC * obj,const char* eventfolder)
 //____________________________________________________________________________
 void  AliConfig::Add (TDatabasePDG * obj)
 {
+  // Adds TDataBase object
   AddInFolder(fgkPDGFolderName, obj);
 }
 
 //____________________________________________________________________________
 void AliConfig::Add(AliModule* obj,const char* eventfolder)
 {
-  
+  // Adds module to the event folder
   TString path(eventfolder);
   path = path + "/" + fgkModuleFolderName;
-  if (AliLoader::fgDebug)
-    Info("Add(AliModule*)","module name = %s, Ev. Fold. Name is %s.",
-         obj->GetName(),eventfolder);
+  AliDebug(1, Form("module name = %s, Ev. Fold. Name is %s.",
+                  obj->GetName(),eventfolder));
   AddInFolder(path, obj);
 }
 //____________________________________________________________________________
@@ -310,7 +284,7 @@ Int_t AliConfig::AddDetector(TFolder* evntfolder, const char *name, const char*
  retval = CreateDetectorFolders(evntfolder,name,title);
  if (retval)
   {
-    Error("AddDetector","CreateDetectorFolders returned error for detector %s",name);
+    AliError(Form("CreateDetectorFolders returned error for detector %s",name));
     return retval;
   }
  return 0; 
@@ -324,7 +298,7 @@ Int_t AliConfig::AddDetector(const char* evntfoldername,const char *name, const
  retval = CreateDetectorFolders(evntfoldername,name,title);
  if (retval)
   {
-    Error("AddDetector","CreateDetectorFolders returned error for detector %s",name);
+    AliError(Form("CreateDetectorFolders returned error for detector %s",name));
     return retval;
   }
 // retval = CreateDetectorTasks(name,title);
@@ -339,16 +313,15 @@ Int_t AliConfig::AddDetector(const char* evntfoldername,const char *name, const
 
 void  AliConfig::Add(AliDetector * obj,const char* eventfolder)
 {
-  if (AliLoader::fgDebug) 
-    Info("Add(AliDetector*)","detector name = %s, Ev. Fold. Name is %s.",
-        obj->GetName(),eventfolder);
+  // Adds new AliDetector objest to the correspondent event folder
+  AliDebug(1, Form("detector name = %s, Ev. Fold. Name is %s.",
+                  obj->GetName(),eventfolder));
 
   TObject* foundobj = GetTopFolder()->FindObject(eventfolder);
   TFolder* evfolder = (foundobj)?dynamic_cast<TFolder*>(foundobj):0x0;
   if (evfolder == 0x0)
    {
-     Fatal("Add(AliDetector * obj,const char* eventfolder)",
-           "Can not find folder %s while adding detector %s",eventfolder,obj->GetName());
+     AliFatal(Form("Can not find folder %s while adding detector %s",eventfolder,obj->GetName()));
      return;
    } 
   CreateDetectorFolders(evfolder, obj->GetName(), obj->GetTitle());
@@ -368,8 +341,7 @@ Int_t  AliConfig::CreateDetectorFolders(const char* evntfoldername,const char *n
  TFolder* evfolder = dynamic_cast<TFolder*>(GetTopFolder()->FindObject(evntfoldername));
  if (evfolder == 0x0)
   {
-   Error("CreateDetectorFolders",
-         "Can not find folder %s while adding detector %s",evntfoldername,name);
+   AliError(Form("Can not find folder %s while adding detector %s",evntfoldername,name));
    return 1;
   }
  return CreateDetectorFolders(evfolder,name,title);
@@ -390,7 +362,7 @@ Int_t  AliConfig::CreateDetectorFolders(TFolder* evntfolder,const char *name, co
     tmp = AddSubFolder(evntfolder,fDetectorFolder[i],name,title);
     if (tmp)
      {
-      Error("AddDetector(TFolder*","Failed to create subfolder of %s for detector %s",fDetectorFolder[i].Data(),name);
+      AliError(Form("Failed to create subfolder of %s for detector %s",fDetectorFolder[i].Data(),name));
       return 1;
      }
     i++;
@@ -400,6 +372,7 @@ Int_t  AliConfig::CreateDetectorFolders(TFolder* evntfolder,const char *name, co
 //____________________________________________________________________________
 Int_t AliConfig::CreateDetectorTasks(const char *name, const char* title)
 {
+  // Creates new detector's task "name"
    Int_t i = 0;
    Int_t tmp;
    while (i < kDetTaskLast)
@@ -408,8 +381,8 @@ Int_t AliConfig::CreateDetectorTasks(const char *name, const char* title)
                        name+fDetectorTask[i],(fDetectorTask[i]+" for ")+title);
       if (tmp)
        {
-         Error("CreateDetectorTasks","Error occured while creating task for %s in %s.",
-                name,fDetectorTask[i-1].Data());
+         AliError(Form("Error occured while creating task for %s in %s.",
+                      name,fDetectorTask[i-1].Data()));
          return 1;
        }
       i++;
@@ -420,12 +393,14 @@ Int_t AliConfig::CreateDetectorTasks(const char *name, const char* title)
 //____________________________________________________________________________
 void    AliConfig::Add (char *list)
 {
+  // Adds space separated list of objects to the
+  // configuration macro (?)
   char *path;
   
-  const char   *conf_path = gSystem->Getenv ("ALICE_CONFIG_PATH");
-  if  (conf_path) {
-    path = new char[strlen (conf_path)];
-    strcpy (path, conf_path);
+  const char   *confPath = gSystem->Getenv ("ALICE_CONFIG_PATH");
+  if  (confPath) {
+    path = new char[strlen (confPath)+1];
+    strcpy (path, confPath);
   } else {
     const char   *alice = gSystem->Getenv ("ALICE_ROOT");
     path = new char[strlen (alice) + 32];
@@ -439,11 +414,13 @@ void    AliConfig::Add (char *list)
   
   char   *token = strtok (path, ":");
   
-  TList  *dirlist = new TList;
+  TList dirlist;
+  
+  dirlist.SetOwner(kTRUE);
   
   while (token != NULL)        
     {
-      dirlist->Add (new TObjString(token));
+      dirlist.Add (new TObjString(token));
       token = strtok (NULL, ":");
     }
   
@@ -451,17 +428,17 @@ void    AliConfig::Add (char *list)
   
   while (token != NULL)
     { 
-      Info("Add(char *list)","Configuring token=%s",token);
+      AliInfo(Form("Configuring token=%s",token));
       
       TObject *obj;
-      TIter   next (dirlist);
+      TIter   next (&dirlist);
       TString found = "\0";
       
       while ((obj = next ()))
         {
           TString dir(obj->GetName());
-          TString path  = dir + "/" + token;
-          TString macro = path + ".C";
+          TString apath  = dir + "/" + token;
+          TString macro = apath + ".C";
           if (!gSystem->AccessPathName (macro.Data())) 
            {
             gInterpreter->ExecuteMacro (macro.Data());                            
@@ -480,12 +457,12 @@ void    AliConfig::Add (char *list)
            } 
           else 
            {
-            TString macroDefault = path + "/Default.C";
+            TString macroDefault = apath + "/Default.C";
             if (!gSystem->AccessPathName (macroDefault.Data()))
               {
                 gInterpreter->ExecuteMacro (macroDefault.Data());
                 found = "(" + macro + ")";
-                TString macroConfigure = path + "/Configure.C";
+                TString macroConfigure = apath + "/Configure.C";
                 if (!gSystem->AccessPathName (macroConfigure.Data()))  
                   {
                     gInterpreter->ExecuteMacro (macroConfigure.Data());                                    
@@ -498,19 +475,17 @@ void    AliConfig::Add (char *list)
       
       if (strlen(found.Data())) 
         {
-          Info("Add(char *list)","found=%s  => OK",found.Data());
+          AliInfo(Form("found=%s  => OK",found.Data()));
         } 
       else 
         {
-          Error("Add(char *list)"," => FAILED.");
+          AliError(" => FAILED.");
           exit(1); 
         }          
       
       token = strtok (NULL," ");
     }
   
-  if (dirlist) delete dirlist;
-  
 }
 
 /*****************************************************************************/
@@ -698,7 +673,7 @@ const TString& AliConfig::GetQAFolderName() const
 }
 /*****************************************************************************/
 
-const TString& AliConfig::GetDataFolderName()
+const TString& AliConfig::GetDataFolderName() const
 {
 //returns name of data folder path relative to event folder
  return fgkDataFolderName;
@@ -714,7 +689,7 @@ Int_t AliConfig::AddSubFolder(TFolder* topfolder, const char* infoler,
 
  if (topfolder == 0x0)//check if exists top folder
   {
-   Error("AddSubFodler(TFolder*, ....","Parameter TFolder* points to NULL.");
+   AliError("Parameter TFolder* points to NULL.");
    return 1;
   }
  
@@ -724,7 +699,7 @@ Int_t AliConfig::AddSubFolder(TFolder* topfolder, const char* infoler,
  folder = dynamic_cast<TFolder*>(topfolder->FindObject(infoler));
  if (folder == 0x0) //check if we got inolder
   {
-   Error("AddSubFodler(TFolder*, ....","Can not find folder %s in folder %s.",infoler,topfolder->GetName());
+   AliError(Form("Can not find folder %s in folder %s.",infoler,topfolder->GetName()));
    return 1;
   }
  obj = folder->FindObject(newfoldname); //see if such a subfolder already exists
@@ -733,26 +708,18 @@ Int_t AliConfig::AddSubFolder(TFolder* topfolder, const char* infoler,
    TFolder *newfolder = folder->AddFolder(newfoldname,newfoldtitle);//add the desired subfolder
    if (newfolder == 0x0) //check if we managed
     {
-     Error("AddSubFodler(TFolder*, ....","Can not create folder %s in folder %s",newfoldname,infoler);
+     AliError(Form("Can not create folder %s in folder %s",newfoldname,infoler));
      return 2;
     }
    else return 0;//success
   }
- else
-  {//such an object already exists
-    TFolder* fol = dynamic_cast<TFolder*>(obj);
-    if (fol == 0x0)
-     {
-      Error("AddSubFodler(TFolder*, ....",
-             "Object named %s already exists in folder %s AND IT IS NOT A FOLDER",newfoldname,infoler);
-      return 3;
-     }
-    else
-     {
-      Warning("AddSubFodler(TFolder*, ....",
-             "Folder named %s already exists in folder %s",newfoldname,infoler);
-      return 0;
-     }
-  }
- return 0; //never reached
+ //such an object already exists
+ TFolder* fol = dynamic_cast<TFolder*>(obj);
+ if (fol == 0x0)
+   {
+     AliError(Form("Object named %s already exists in folder %s AND IT IS NOT A FOLDER",newfoldname,infoler));
+     return 3;
+   }
+ AliWarning(Form("Folder named %s already exists in folder %s",newfoldname,infoler));
+ return 0;
 }