Salome HOME
Porting SALOME KERNEL to CMake
[modules/kernel.git] / src / ResourcesManager / SALOME_ResourcesCatalog_Handler.cxx
index e990944c05d4a643eda6b7733c223a6b40d1cf57..f65db96c038e02206a098dba67123dff16560971 100755 (executable)
@@ -1,24 +1,25 @@
-//  Copyright (C) 2007-2008  CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2007-2012  CEA/DEN, EDF R&D, OPEN CASCADE
 //
-//  Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
-//  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
+// Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
 //
-//  This library is free software; you can redistribute it and/or
-//  modify it under the terms of the GNU Lesser General Public
-//  License as published by the Free Software Foundation; either
-//  version 2.1 of the License.
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either
+// version 2.1 of the License.
 //
-//  This library is distributed in the hope that it will be useful,
-//  but WITHOUT ANY WARRANTY; without even the implied warranty of
-//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-//  Lesser General Public License for more details.
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// Lesser General Public License for more details.
 //
-//  You should have received a copy of the GNU Lesser General Public
-//  License along with this library; if not, write to the Free Software
-//  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 //
-//  See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
 //
+
 //  SALOME ResourcesCatalog : implementation of catalog resources parsing (SALOME_ModuleCatalog.idl)
 //  File   : SALOME_ResourcesCatalog_Handler.cxx
 //  Author : Estelle Deville
 //
 #include "SALOME_ResourcesCatalog_Handler.hxx"
 #include "Basics_Utils.hxx"
+#include "Utils_SALOME_Exception.hxx"
 #include <iostream>
+#include <sstream>
 #include <map>
 
-using namespace std;
-
 //=============================================================================
 /*!
  *  Constructor
@@ -40,18 +41,15 @@ using namespace std;
 //=============================================================================
 
 SALOME_ResourcesCatalog_Handler::
-SALOME_ResourcesCatalog_Handler(MapOfParserResourcesType& resources_list,
-                               MapOfParserResourcesType& resources_batch_list):
-    _resources_list(resources_list),
-    _resources_batch_list(resources_batch_list)
+SALOME_ResourcesCatalog_Handler(MapOfParserResourcesType& resources_list): _resources_list(resources_list)
 {
   //XML tags initialisation
   test_machine = "machine";
-  test_resources = "resources";
-
+  test_cluster = "cluster";
+  test_name = "name";
   test_hostname = "hostname";
-  test_alias = "alias";
   test_protocol = "protocol";
+  test_cluster_internal_protocol = "iprotocol";
   test_mode = "mode";
   test_batch = "batch";
   test_mpi = "mpi";
@@ -65,9 +63,14 @@ SALOME_ResourcesCatalog_Handler(MapOfParserResourcesType& resources_list,
   test_mem_in_mb = "memInMB";
   test_cpu_freq_mhz = "CPUFreqMHz";
   test_nb_of_nodes = "nbOfNodes";
+  test_nb_of_proc = "nbOfProc";
   test_nb_of_proc_per_node = "nbOfProcPerNode";
   test_batch_queue = "batchQueue";
   test_user_commands = "userCommands";
+  test_use = "use";
+  test_members = "members";
+  test_is_cluster_head = "isClusterHead";
+  test_working_directory = "workingDirectory";
 }
 
 //=============================================================================
@@ -104,278 +107,573 @@ void SALOME_ResourcesCatalog_Handler::ProcessXmlDocument(xmlDocPtr theDoc)
   // Empty private elements
   _resources_list.clear();
 
+  //default resources
+  _resource.Clear();
+  _resource.HostName = Kernel_Utils::GetHostname();
+  _resource.Name = Kernel_Utils::GetHostname();
+  _resource.DataForSort._Name = Kernel_Utils::GetHostname();
+  _resources_list[Kernel_Utils::GetHostname()] = _resource;
+
   // Get the document root node
   xmlNodePtr aCurNode = xmlDocGetRootElement(theDoc);
 
   aCurNode = aCurNode->xmlChildrenNode;
-  
   // Processing the document nodes
   while(aCurNode != NULL)
+  {
+    // Cas d'une machine ou d'une machine batch
+    if (!xmlStrcmp(aCurNode->name,(const xmlChar*)test_machine))
     {
-      if ( !xmlStrcmp(aCurNode->name,(const xmlChar*)test_machine) )
-       {
-          _resource.Clear();
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_hostname))
-            {
-             xmlChar* hostname = xmlGetProp(aCurNode, (const xmlChar*)test_hostname);
-             _resource.DataForSort._hostName = (const char*)hostname;
-             _resource.HostName = (const char*)hostname;
-              xmlFree(hostname);
-            }
-         else
-           break;
-
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_alias))
-            {
-             xmlChar* alias = xmlGetProp(aCurNode, (const xmlChar*)test_alias);
-             _resource.Alias = (const char*)alias;
-              xmlFree(alias);
-            }
-         else
-           _resource.Alias = "";
-
-          if (xmlHasProp(aCurNode, (const xmlChar*)test_batch_queue))
-            {
-              xmlChar* batch_queue = xmlGetProp(aCurNode, (const xmlChar*)test_batch_queue);
-              _resource.batchQueue = (const char*)batch_queue;
-              xmlFree(batch_queue);
-            }
-          else
-            _resource.batchQueue = "";
-
-          if (xmlHasProp(aCurNode, (const xmlChar*)test_user_commands))
-            {
-              xmlChar* user_commands= xmlGetProp(aCurNode, (const xmlChar*)test_user_commands);
-              _resource.userCommands = (const char*)user_commands;
-              xmlFree(user_commands);
-            }
-          else
-            _resource.userCommands = "";
-          
-          if (xmlHasProp(aCurNode, (const xmlChar*)test_protocol))
-            {
-              xmlChar* protocol= xmlGetProp(aCurNode, (const xmlChar*)test_protocol);
-              switch ( protocol[0])
-               {
-               case 'r':
-                 _resource.Protocol = rsh;
-                 break;
-               case 's':
-                 _resource.Protocol = ssh;
-                 break;
-               default:
-                 // If it'not in all theses cases, the protocol is affected to rsh
-                 _resource.Protocol = rsh;
-                 break;
-               }
-              xmlFree(protocol);
-            }
-          else
-            _resource.Protocol = rsh;
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_mode))
-            {
-             xmlChar* mode=xmlGetProp(aCurNode, (const xmlChar*)test_mode);
-             switch ( mode[0] )
-                {
-                case 'i':
-                  _resource.Mode = interactive;
-                  break;
-               case 'b':
-                  _resource.Mode = batch;
-                  break;
-                default:
-                  // If it'not in all theses cases, the mode is affected to interactive
-                  _resource.Mode = interactive;
-                  break;
-                }
-              xmlFree(mode);
-            }
-          else
-            _resource.Mode = interactive;
-
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_batch))
-            {
-              xmlChar* batch = xmlGetProp(aCurNode, (const xmlChar*)test_batch);
-              std::string aBatch = (const char*)batch;
-              xmlFree(batch);
-              if (aBatch == "pbs")
-                _resource.Batch = pbs;
-              else if  (aBatch == "lsf")
-                _resource.Batch = lsf;
-              else if  (aBatch == "sge")
-                _resource.Batch = sge;
-              else
-                _resource.Batch = none;
-            }
-
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_mpi))
-            {
-              xmlChar* mpi = xmlGetProp(aCurNode, (const xmlChar*)test_mpi);
-              std::string anMpi = (const char*)mpi;
-              xmlFree(mpi);
-              if (anMpi == "lam")
-                _resource.mpi = lam;
-              else if (anMpi == "mpich1")
-                _resource.mpi = mpich1;
-              else if (anMpi == "mpich2")
-                _resource.mpi = mpich2;
-              else if (anMpi == "openmpi")
-                _resource.mpi = openmpi;
-              else if  (anMpi == "slurm")
-                _resource.mpi = slurm;
-              else if  (anMpi == "prun")
-                _resource.mpi = prun;
-              else
-                _resource.mpi = nompi;
-            }
-
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_user_name))
-            {
-             xmlChar* user_name= xmlGetProp(aCurNode, (const xmlChar*)test_user_name);
-             _resource.UserName = (const char*)user_name;
-              xmlFree(user_name);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_appli_path))
-            {
-             xmlChar* appli_path = xmlGetProp(aCurNode, (const xmlChar*)test_appli_path);
-             _resource.AppliPath = (const char*)appli_path;
-              xmlFree(appli_path);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_os))
-            {
-             xmlChar* os = xmlGetProp(aCurNode, (const xmlChar*)test_os);
-             _resource.OS = (const char*)os;
-              xmlFree(os);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_mem_in_mb))
-            {
-             xmlChar* mem_in_mb = xmlGetProp(aCurNode, (const xmlChar*)test_mem_in_mb);
-             _resource.DataForSort._memInMB = atoi((const char*)mem_in_mb);
-              xmlFree(mem_in_mb);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_cpu_freq_mhz))
-            {
-             xmlChar* cpu_freq_mhz = xmlGetProp(aCurNode, (const xmlChar*)test_cpu_freq_mhz);
-             _resource.DataForSort._CPUFreqMHz = atoi((const char*)cpu_freq_mhz);
-              xmlFree(cpu_freq_mhz);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_nb_of_nodes))
-            {
-             xmlChar* nb_of_nodes = xmlGetProp(aCurNode, (const xmlChar*)test_nb_of_nodes);
-             _resource.DataForSort._nbOfNodes = atoi((const char*)nb_of_nodes);
-              xmlFree(nb_of_nodes);
-            }
-         
-         if (xmlHasProp(aCurNode, (const xmlChar*)test_nb_of_proc_per_node))
-            {
-             xmlChar* nb_of_proc_per_node = xmlGetProp(aCurNode, (const xmlChar*)test_nb_of_proc_per_node);
-             _resource.DataForSort._nbOfProcPerNode = atoi((const char*)nb_of_proc_per_node);
-              xmlFree(nb_of_proc_per_node);
-            }
-         
-         // Process components
-         xmlNodePtr aCurSubNode = aCurNode->xmlChildrenNode;
-         while(aCurSubNode != NULL)
-           {
-             if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_components) )
-               {
-                  //If a component is given, it is in a module with the same name
-                  //except if the module name is given
-                 if (xmlHasProp(aCurSubNode, (const xmlChar*)test_component_name)) 
-                   {
-                     xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_component_name);
-                     std::string aComponentName = (const char*)component_name;
-                      _resource.ComponentsList.push_back(aComponentName);
-                     if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name)) 
-                        {
-                         xmlChar* module_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
-                         std::string aModuleName = (const char*)module_name;
-                          _resource.ModulesList.push_back(aModuleName);
-                          xmlFree(module_name);
-                        }
-                      else
-                        _resource.ModulesList.push_back(aComponentName);
-                      xmlFree(component_name);
-                   }
-               }
-              else if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_modules) )
-               {
-                  // If a module is given, we create an entry in componentsList and modulesList
-                  // with the same name (module == component)
-                 if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name)) 
-                   {
-                     xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
-                     std::string aComponentName = (const char*)component_name;
-                      _resource.ComponentsList.push_back(aComponentName);
-                      _resource.ModulesList.push_back(aComponentName);
-                      xmlFree(component_name);
-                   }
-               }
-             aCurSubNode = aCurSubNode->next;
-           }
-        
-         // There is two lists
-         // _resources_list for interactive resources
-         // _resources_batch_list for batch resources
-         // This choice is done with Mode parameter
-         if (_resource.Mode == interactive)
-         {
-           int aNbNodes = _resource.DataForSort._nbOfNodes;
-           if( aNbNodes > 1 ){
-             string clusterNode = _resource.DataForSort._hostName ;
-             for( int i=0; i < aNbNodes; i++ ){
-               char inode[64];
-               inode[0] = '\0' ;
-               sprintf(inode,"%s%d",clusterNode.c_str(),i+1);
-               std::string nodeName(inode);
-               _resource.DataForSort._hostName = nodeName ;
-               _resource.HostName = nodeName ;
-               _resources_list[nodeName] = _resource;
-             }
-            }
-            else
-              {
-                if(_resource.HostName == "localhost")
-                  {
-                    _resource.HostName = Kernel_Utils::GetHostname();
-                    _resource.DataForSort._hostName = Kernel_Utils::GetHostname();
-                    _resources_list[Kernel_Utils::GetHostname()] = _resource;
-                  }
-                else
-                  _resources_list[_resource.HostName] = _resource;
-              }
-          }
-          else
-            _resources_batch_list[_resource.HostName] = _resource;
+      _resource.Clear();
+      bool Ok = ProcessMachine(aCurNode, _resource);
+      if (Ok)
+      {
+        // Adding a resource
+        if(_resource.HostName == "localhost")
+        {
+          _resource.HostName = Kernel_Utils::GetHostname();
         }
-      aCurNode = aCurNode->next;
+        std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.find(_resource.Name);
+        if (iter != _resources_list.end())
+          RES_INFOS("Warning resource " << _resource.Name << " already added, keep last resource found !");
+        _resources_list[_resource.Name] = _resource;
+      }
     }
-
-#ifdef _DEBUG_
-    for (map<string, ParserResourcesType>::const_iterator iter =
-          _resources_list.begin();
-        iter != _resources_list.end();
-        iter++)
+    // Cas de la déclaration d'un cluster
+    if (!xmlStrcmp(aCurNode->name,(const xmlChar*)test_cluster))
+    {
+      _resource.Clear();
+      if(ProcessCluster(aCurNode, _resource))
       {
-       std::cerr << (*iter).first << std::endl;
-       std::cerr << (*iter).second.HostName << std::endl;
-       std::cerr << (*iter).second.Alias << std::endl;
-       std::cerr << (*iter).second.UserName << std::endl;
-       std::cerr << (*iter).second.AppliPath << std::endl;
-       std::cerr << (*iter).second.OS << std::endl;
-       std::cerr << (*iter).second.Protocol << std::endl;
-       std::cerr << (*iter).second.Mode << std::endl;
+        std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.find(_resource.Name);
+        if (iter != _resources_list.end())
+          RES_INFOS("Warning resource " << _resource.Name << " already added, keep last resource found !");
+        _resources_list[_resource.Name] = _resource;
       }
+    }
+    aCurNode = aCurNode->next;
+  }
+
+#ifdef _DEBUG_
+  for (std::map<std::string, ParserResourcesType>::const_iterator iter = _resources_list.begin();
+       iter != _resources_list.end();
+       iter++)
+  {
+    std::cerr << "************************************************" << std::endl;
+    std::cerr << "Resource " << (*iter).first << " found:" << std::endl;
+    std::cerr << " Name: " << (*iter).second.Name << std::endl;
+    std::cerr << " Hostname: " << (*iter).second.HostName << std::endl;
+    std::cerr << " Username: " << (*iter).second.UserName << std::endl;
+    std::cerr << " Appli path: " <<(*iter).second.AppliPath << std::endl;
+    std::cerr << " OS: " << (*iter).second.OS << std::endl;
+    std::cerr << " Protocol: " << (*iter).second.PrintAccessProtocolType() << std::endl;
+    std::cerr << " Internal Protocol: " <<(*iter).second.PrintClusterInternalProtocol() << std::endl;
+    std::cerr << " Mode: " << (*iter).second.PrintAccessModeType() << std::endl;
+    std::cerr << " Batch Type: " << (*iter).second.PrintBatchType() << std::endl;
+    std::cerr << " MPI Impl: " << (*iter).second.PrintMpiImplType() << std::endl;
+    std::cerr << "************************************************" << std::endl;
+  }
 #endif
+}
 
+bool
+SALOME_ResourcesCatalog_Handler::ProcessCluster(xmlNodePtr cluster_descr, ParserResourcesType & resource)
+{
+  // Ajout d'un cluster
+  // hostname, use et nbOfProc sont obligatoires
+  if (xmlHasProp(cluster_descr, (const xmlChar*)test_hostname))
+  {
+    xmlChar* hostname = xmlGetProp(cluster_descr, (const xmlChar*)test_hostname);
+    resource.HostName = (const char*)hostname;
+    xmlFree(hostname);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a hostname" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(cluster_descr, (const xmlChar*)test_name))
+  {
+    xmlChar* name = xmlGetProp(cluster_descr, (const xmlChar*)test_name);
+    resource.Name = (const char*)name;
+    resource.DataForSort._Name = (const char*)name;
+    xmlFree(name);
+  }
+  else
+  {
+    resource.Name = resource.HostName;
+    resource.DataForSort._Name = resource.HostName;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! No Name found use Hostname for resource: " << _resource.Name << std::endl;
+  }
+
+  if (xmlHasProp(cluster_descr, (const xmlChar*)test_use))
+  {
+    xmlChar* use = xmlGetProp(cluster_descr, (const xmlChar*)test_use);
+    resource.use = (const char*)use;
+    xmlFree(use);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a use" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(cluster_descr, (const xmlChar*)test_nb_of_proc))
+  {
+    xmlChar* nb_of_proc = xmlGetProp(cluster_descr, (const xmlChar*)test_nb_of_proc);
+    resource.nbOfProc = atoi((const char*)nb_of_proc);
+    xmlFree(nb_of_proc);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a nbOfProc" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(cluster_descr, (const xmlChar*)test_mpi))
+  {
+    xmlChar* mpi = xmlGetProp(cluster_descr, (const xmlChar*)test_mpi);
+    std::string anMpi = (const char*)mpi;
+    xmlFree(mpi);
+    if (anMpi == "lam")
+      resource.mpi = lam;
+    else if (anMpi == "mpich1")
+      resource.mpi = mpich1;
+    else if (anMpi == "mpich2")
+      resource.mpi = mpich2;
+    else if (anMpi == "openmpi")
+      resource.mpi = openmpi;
+    else if  (anMpi == "slurmmpi")
+      resource.mpi = slurmmpi;
+    else if  (anMpi == "prun")
+      resource.mpi = prun;
+    else
+      resource.mpi = nompi;
+  }
+
+  // Parsing des membres du cluster 
+  xmlNodePtr aCurSubNode = cluster_descr->xmlChildrenNode;
+  while(aCurSubNode != NULL)
+  {
+    if (!xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_members))
+    {
+       xmlNodePtr members = aCurSubNode->xmlChildrenNode;
+       while (members != NULL)
+       {
+         // Process members
+         if (!xmlStrcmp(members->name, (const xmlChar*)test_machine))
+         {
+           ParserResourcesClusterMembersType new_member;
+           if (ProcessMember(members, new_member))
+             resource.ClusterMembersList.push_back(new_member);
+         }
+         members = members->next;
+       }
+    }
+    aCurSubNode = aCurSubNode->next;
+  }
+
+  // Test: Il faut au moins un membre pour que le cluster soit correct !
+  if (resource.ClusterMembersList.empty())
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! found a cluster without a member" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessCluster : !!! Warning !!! this cluster will not be added" << std::endl;
+    return false;
+  }
+  return true;
 }
 
+bool
+SALOME_ResourcesCatalog_Handler::ProcessMember(xmlNodePtr member_descr, ParserResourcesClusterMembersType & resource)
+{
+  if (xmlHasProp(member_descr, (const xmlChar*)test_hostname))
+  {
+    xmlChar* hostname = xmlGetProp(member_descr, (const xmlChar*)test_hostname);
+    resource.HostName = (const char*)hostname;
+    xmlFree(hostname);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a hostname" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_protocol))
+  {
+    xmlChar* protocol= xmlGetProp(member_descr, (const xmlChar*)test_protocol);
+    try
+    {
+      resource.Protocol = ParserResourcesType::stringToProtocol((const char *)protocol);
+    }
+    catch (SALOME_Exception e)
+    {
+      std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine with a bad protocol" << std::endl;
+      std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+      return false;
+    }
+    xmlFree(protocol);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a protocol" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_cluster_internal_protocol))
+  {
+    xmlChar* iprotocol= xmlGetProp(member_descr, (const xmlChar*)test_cluster_internal_protocol);
+    try
+    {
+      resource.ClusterInternalProtocol = ParserResourcesType::stringToProtocol((const char *)iprotocol);
+    }
+    catch (SALOME_Exception e)
+    {
+      std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine with a bad protocol" << std::endl;
+      std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+      return false;
+    }
+    xmlFree(iprotocol);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a protocol" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_user_name))
+  {
+    xmlChar* user_name= xmlGetProp(member_descr, (const xmlChar*)test_user_name);
+    resource.UserName = (const char*)user_name;
+    xmlFree(user_name);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a user name" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_nb_of_nodes))
+  {
+    xmlChar* nb_of_nodes = xmlGetProp(member_descr, (const xmlChar*)test_nb_of_nodes);
+    resource.DataForSort._nbOfNodes = atoi((const char*)nb_of_nodes);
+    xmlFree(nb_of_nodes);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a nbOfNodes" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_nb_of_proc_per_node))
+  {
+    xmlChar* nb_of_proc_per_node = xmlGetProp(member_descr, (const xmlChar*)test_nb_of_proc_per_node);
+    resource.DataForSort._nbOfProcPerNode = atoi((const char*)nb_of_proc_per_node);
+    xmlFree(nb_of_proc_per_node);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a nbOfProcPerNode" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(member_descr, (const xmlChar*)test_appli_path))
+  {
+    xmlChar* appli_path = xmlGetProp(member_descr, (const xmlChar*)test_appli_path);
+    resource.AppliPath = (const char*)appli_path;
+    xmlFree(appli_path);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning found a machine without a AppliPath" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMember : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+  return true;
+}
+
+bool
+SALOME_ResourcesCatalog_Handler::ProcessMachine(xmlNodePtr machine_descr, ParserResourcesType & resource)
+{
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_hostname))
+  {
+    xmlChar* hostname = xmlGetProp(machine_descr, (const xmlChar*)test_hostname);
+    resource.HostName = (const char*)hostname;
+    xmlFree(hostname);
+  }
+  else
+  {
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : Warning found a machine without a hostname" << std::endl;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : Warning this machine will not be added" << std::endl;
+    return false;
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_name))
+  {
+    xmlChar* name = xmlGetProp(machine_descr, (const xmlChar*)test_name);
+    resource.Name = (const char*)name;
+    resource.DataForSort._Name = (const char*)name;
+    xmlFree(name);
+  }
+  else
+  {
+    resource.Name = resource.HostName;
+    resource.DataForSort._Name = resource.HostName;
+    std::cerr << "SALOME_ResourcesCatalog_Handler::ProcessMachine : !!! Warning !!! No Name found use Hostname for resource: " << _resource.Name << std::endl;
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_batch_queue))
+  {
+    xmlChar* batch_queue = xmlGetProp(machine_descr, (const xmlChar*)test_batch_queue);
+    resource.batchQueue = (const char*)batch_queue;
+    xmlFree(batch_queue);
+  }
+  else
+    resource.batchQueue = "";
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_user_commands))
+  {
+    xmlChar* user_commands= xmlGetProp(machine_descr, (const xmlChar*)test_user_commands);
+    resource.userCommands = (const char*)user_commands;
+    xmlFree(user_commands);
+  }
+  else
+    resource.userCommands = "";
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_protocol))
+  {
+    xmlChar* protocol= xmlGetProp(machine_descr, (const xmlChar*)test_protocol);
+    try
+    {
+      resource.Protocol = ParserResourcesType::stringToProtocol((const char *)protocol);
+    }
+    catch (SALOME_Exception e)
+    {
+      // If it'not in all theses cases, the protocol is affected to rsh
+      resource.Protocol = rsh;
+    }
+    xmlFree(protocol);
+  }
+  else
+    resource.Protocol = rsh;
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_cluster_internal_protocol))
+  {
+    xmlChar* iprotocol= xmlGetProp(machine_descr, (const xmlChar*)test_cluster_internal_protocol);
+    try
+    {
+      resource.ClusterInternalProtocol = ParserResourcesType::stringToProtocol((const char *)iprotocol);
+    }
+    catch (SALOME_Exception e)
+    {
+      // If it'not in all theses cases, the protocol is affected to rsh
+      resource.ClusterInternalProtocol = rsh;
+    }
+    xmlFree(iprotocol);
+  }
+  else
+    resource.ClusterInternalProtocol = resource.Protocol;
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_mode))
+  {
+    xmlChar* mode=xmlGetProp(machine_descr, (const xmlChar*)test_mode);
+    switch ( mode[0] )
+    {
+      case 'i':
+        resource.Mode = interactive;
+        break;
+      case 'b':
+        resource.Mode = batch;
+        break;
+      default:
+        // If it'not in all theses cases, the mode is affected to interactive
+        resource.Mode = interactive;
+        break;
+    }
+    xmlFree(mode);
+  }
+  else
+    resource.Mode = interactive;
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_batch))
+  {
+    xmlChar* batch = xmlGetProp(machine_descr, (const xmlChar*)test_batch);
+    std::string aBatch = (const char*)batch;
+    xmlFree(batch);
+    if (aBatch == "pbs")
+      resource.Batch = pbs;
+    else if  (aBatch == "lsf")
+      resource.Batch = lsf;
+    else if  (aBatch == "sge")
+      resource.Batch = sge;
+    else if  (aBatch == "ssh_batch")
+      resource.Batch = ssh_batch;
+    else if  (aBatch == "ccc")
+      resource.Batch = ccc;
+    else if  (aBatch == "slurm")
+      resource.Batch = slurm;
+    else if  (aBatch == "ll")
+      resource.Batch = ll;
+    else if  (aBatch == "vishnu")
+      resource.Batch = vishnu;
+    else
+      resource.Batch = none;
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_mpi))
+  {
+    xmlChar* mpi = xmlGetProp(machine_descr, (const xmlChar*)test_mpi);
+    std::string anMpi = (const char*)mpi;
+    xmlFree(mpi);
+    if (anMpi == "lam")
+      resource.mpi = lam;
+    else if (anMpi == "mpich1")
+      resource.mpi = mpich1;
+    else if (anMpi == "mpich2")
+      resource.mpi = mpich2;
+    else if (anMpi == "openmpi")
+      resource.mpi = openmpi;
+    else if  (anMpi == "slurmmpi")
+      resource.mpi = slurmmpi;
+    else if  (anMpi == "prun")
+      resource.mpi = prun;
+    else
+      resource.mpi = nompi;
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_user_name))
+  {
+    xmlChar* user_name= xmlGetProp(machine_descr, (const xmlChar*)test_user_name);
+    resource.UserName = (const char*)user_name;
+    xmlFree(user_name);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_appli_path))
+  {
+    xmlChar* appli_path = xmlGetProp(machine_descr, (const xmlChar*)test_appli_path);
+    resource.AppliPath = (const char*)appli_path;
+    xmlFree(appli_path);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_os))
+  {
+    xmlChar* os = xmlGetProp(machine_descr, (const xmlChar*)test_os);
+    resource.OS = (const char*)os;
+    xmlFree(os);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_mem_in_mb))
+  {
+    xmlChar* mem_in_mb = xmlGetProp(machine_descr, (const xmlChar*)test_mem_in_mb);
+    resource.DataForSort._memInMB = atoi((const char*)mem_in_mb);
+    xmlFree(mem_in_mb);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_cpu_freq_mhz))
+  {
+    xmlChar* cpu_freq_mhz = xmlGetProp(machine_descr, (const xmlChar*)test_cpu_freq_mhz);
+    resource.DataForSort._CPUFreqMHz = atoi((const char*)cpu_freq_mhz);
+    xmlFree(cpu_freq_mhz);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_nb_of_nodes))
+  {
+    xmlChar* nb_of_nodes = xmlGetProp(machine_descr, (const xmlChar*)test_nb_of_nodes);
+    resource.DataForSort._nbOfNodes = atoi((const char*)nb_of_nodes);
+    xmlFree(nb_of_nodes);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_nb_of_proc_per_node))
+  {
+    xmlChar* nb_of_proc_per_node = xmlGetProp(machine_descr, (const xmlChar*)test_nb_of_proc_per_node);
+    resource.DataForSort._nbOfProcPerNode = atoi((const char*)nb_of_proc_per_node);
+    xmlFree(nb_of_proc_per_node);
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_is_cluster_head))
+  {
+    xmlChar* is_cluster_head = xmlGetProp(machine_descr, (const xmlChar*)test_is_cluster_head);
+    std::string str_ich = (const char*)is_cluster_head;
+    if (str_ich == "true")
+    {
+      resource.is_cluster_head = true;
+    }
+    else
+    {
+      resource.is_cluster_head = false;
+    }
+    xmlFree(is_cluster_head);
+  }
+  else
+  {
+    resource.is_cluster_head = false;
+  }
+
+  if (xmlHasProp(machine_descr, (const xmlChar*)test_working_directory))
+  {
+    xmlChar* working_directory = xmlGetProp(machine_descr, (const xmlChar*)test_working_directory);
+    resource.working_directory = (const char*)working_directory;
+    xmlFree(working_directory);
+  }
+  else
+  {
+    resource.working_directory = "";
+  }
+
+  // Process children nodes
+  xmlNodePtr aCurSubNode = machine_descr->xmlChildrenNode;
+  while(aCurSubNode != NULL)
+  {
+    // Process components
+    if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_components) )
+    {
+      //If a component is given, it is in a module with the same name
+      //except if the module name is given
+      if (xmlHasProp(aCurSubNode, (const xmlChar*)test_component_name)) 
+      {
+        xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_component_name);
+        std::string aComponentName = (const char*)component_name;
+        _resource.ComponentsList.push_back(aComponentName);
+        if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name)) 
+        {
+          xmlChar* module_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
+          std::string aModuleName = (const char*)module_name;
+          _resource.ModulesList.push_back(aModuleName);
+          xmlFree(module_name);
+        }
+        else
+          _resource.ModulesList.push_back(aComponentName);
+        xmlFree(component_name);
+      }
+    }
+    // Process modules
+    else if ( !xmlStrcmp(aCurSubNode->name, (const xmlChar*)test_modules) )
+    {
+      // If a module is given, we create an entry in componentsList and modulesList
+      // with the same name (module == component)
+      if (xmlHasProp(aCurSubNode, (const xmlChar*)test_module_name)) 
+      {
+        xmlChar* component_name = xmlGetProp(aCurSubNode, (const xmlChar*)test_module_name);
+        std::string aComponentName = (const char*)component_name;
+        _resource.ComponentsList.push_back(aComponentName);
+        _resource.ModulesList.push_back(aComponentName);
+        xmlFree(component_name);
+      }
+    }
+    aCurSubNode = aCurSubNode->next;
+  }
+  return true;
+}
 
 //=============================================================================
 /*!
@@ -388,189 +686,119 @@ void SALOME_ResourcesCatalog_Handler::PrepareDocToXmlFile(xmlDocPtr theDoc)
 {
   // Node pointers
   xmlNodePtr root_node = NULL, node = NULL, node1 = NULL;
-  char string_buf[80];
 
   root_node = xmlNewNode(NULL, BAD_CAST "resources");
   xmlDocSetRootElement(theDoc, root_node);
     
-  for (map<string, ParserResourcesType>::iterator iter =
-         _resources_list.begin();
-       iter != _resources_list.end();
-       iter++)
+  std::map<std::string, ParserResourcesType>::iterator iter = _resources_list.begin();
+  for (; iter != _resources_list.end(); iter++)
+  {
+    node = xmlNewChild(root_node, NULL, BAD_CAST test_machine, NULL);
+    RES_MESSAGE("Add resource name = " << (*iter).second.Name.c_str());
+    xmlNewProp(node, BAD_CAST test_name, BAD_CAST (*iter).second.Name.c_str());
+    xmlNewProp(node, BAD_CAST test_hostname, BAD_CAST (*iter).second.HostName.c_str());
+    xmlNewProp(node, BAD_CAST test_appli_path, BAD_CAST (*iter).second.AppliPath.c_str());
+    xmlNewProp(node, BAD_CAST test_batch_queue, BAD_CAST (*iter).second.batchQueue.c_str());
+    xmlNewProp(node, BAD_CAST test_user_commands, BAD_CAST (*iter).second.userCommands.c_str());
+    xmlNewProp(node,
+               BAD_CAST test_protocol,
+               BAD_CAST ParserResourcesType::protocolToString((*iter).second.Protocol).c_str());
+    xmlNewProp(node,
+               BAD_CAST test_cluster_internal_protocol,
+               BAD_CAST ParserResourcesType::protocolToString((*iter).second.ClusterInternalProtocol).c_str());
+    xmlNewProp(node, BAD_CAST test_working_directory, BAD_CAST (*iter).second.working_directory.c_str());
+    if ((*iter).second.is_cluster_head)
+      xmlNewProp(node, BAD_CAST test_is_cluster_head, BAD_CAST "true");
+    else
+      xmlNewProp(node, BAD_CAST test_is_cluster_head, BAD_CAST "false");
+
+    switch ((*iter).second.Mode)
     {
-      node = xmlNewChild(root_node, NULL, BAD_CAST test_machine, NULL);
-      xmlNewProp(node, BAD_CAST test_hostname, BAD_CAST (*iter).second.HostName.c_str());
-      xmlNewProp(node, BAD_CAST test_alias, BAD_CAST (*iter).second.Alias.c_str());
-      xmlNewProp(node, BAD_CAST test_batch_queue, BAD_CAST (*iter).second.batchQueue.c_str());
-      xmlNewProp(node, BAD_CAST test_user_commands, BAD_CAST (*iter).second.userCommands.c_str());
-  
-      switch ((*iter).second.Protocol)
-        {
-        case rsh:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
-          break;
-        case ssh:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "ssh");
-         break;
-        default:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
-       }
-
-      switch ((*iter).second.Mode)
-        {
-       case interactive:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
-          break;
-        case batch:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "batch");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
-        }
-
-      switch ((*iter).second.Batch)
-        {
-       case pbs:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "pbs");
-          break;
-       case lsf:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "lsf");
-          break;
-       case sge:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "sge");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "");
-        }
-
-      switch ((*iter).second.mpi)
-        {
-       case lam:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "lam");
-          break;
-       case mpich1:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich1");
-          break;
-       case mpich2:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich2");
-          break;
-       case openmpi:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "openmpi");
-          break;
-       case slurm:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "slurm");
-          break;
-       case prun:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "prun");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "");
-        }
-
-      xmlNewProp(node, BAD_CAST test_user_name, BAD_CAST (*iter).second.UserName.c_str());
-
-     for (vector<string>::const_iterator iter2 =
-             (*iter).second.ComponentsList.begin();
-           iter2 != (*iter).second.ComponentsList.end();
-           iter2++)
-        {
-         node1 = xmlNewChild(node, NULL, BAD_CAST test_components, NULL);
-         xmlNewProp(node1, BAD_CAST test_component_name, BAD_CAST (*iter2).c_str());
-        }
-
-      xmlNewProp(node, BAD_CAST test_os, BAD_CAST (*iter).second.OS.c_str());
-      xmlNewProp(node, BAD_CAST test_mem_in_mb, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._memInMB));
-      xmlNewProp(node, BAD_CAST test_cpu_freq_mhz, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._CPUFreqMHz));
-      xmlNewProp(node, BAD_CAST test_nb_of_nodes, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._nbOfNodes));
-      xmlNewProp(node, BAD_CAST test_nb_of_proc_per_node, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._nbOfProcPerNode));
+      case interactive:
+        xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
+        break;
+      case batch:
+        xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "batch");
+        break;
+      default:
+        xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
     }
-  for (map<string, ParserResourcesType>::iterator iter =
-         _resources_batch_list.begin();
-       iter != _resources_batch_list.end();
-       iter++)
-    {
-      node = xmlNewChild(root_node, NULL, BAD_CAST test_machine, NULL);
-      xmlNewProp(node, BAD_CAST test_hostname, BAD_CAST (*iter).second.HostName.c_str());
-      xmlNewProp(node, BAD_CAST test_alias, BAD_CAST (*iter).second.Alias.c_str());
-      
-      switch ((*iter).second.Protocol)
-        {
-        case rsh:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
-          break;
-        case ssh:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "ssh");
-         break;
-        default:
-         xmlNewProp(node, BAD_CAST test_protocol, BAD_CAST "rsh");
-       }
-
-      switch ((*iter).second.Mode)
-        {
-       case interactive:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
-          break;
-        case batch:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "batch");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_mode, BAD_CAST "interactive");
-        }
-
-      switch ((*iter).second.Batch)
-        {
-       case pbs:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "pbs");
-          break;
-       case lsf:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "lsf");
-          break;
-       case sge:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "sge");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "");
-        }
 
-      switch ((*iter).second.mpi)
-        {
-       case lam:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "lam");
-          break;
-       case mpich1:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich1");
-          break;
-       case mpich2:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich2");
-          break;
-       case openmpi:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "openmpi");
-          break;
-       case slurm:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "slurm");
-          break;
-       case prun:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "prun");
-          break;
-        default:
-         xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "");
-        }
+    switch ((*iter).second.Batch)
+    {
+      case pbs:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "pbs");
+        break;
+      case lsf:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "lsf");
+        break;
+      case sge:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "sge");
+        break;
+      case ccc:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ccc");
+        break;
+      case slurm:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "slurm");
+        break;
+      case ssh_batch:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ssh_batch");
+        break;
+      case ll:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "ll");
+        break;
+      case vishnu:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "vishnu");
+        break;
+      default:
+        xmlNewProp(node, BAD_CAST test_batch, BAD_CAST "");
+    }
 
-      xmlNewProp(node, BAD_CAST test_user_name, BAD_CAST (*iter).second.UserName.c_str());
+    switch ((*iter).second.mpi)
+    {
+      case lam:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "lam");
+        break;
+      case mpich1:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich1");
+        break;
+      case mpich2:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "mpich2");
+        break;
+      case openmpi:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "openmpi");
+        break;
+      case slurmmpi:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "slurmmpi");
+        break;
+      case prun:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "prun");
+        break;
+      default:
+        xmlNewProp(node, BAD_CAST test_mpi, BAD_CAST "");
+    }
 
-     for (vector<string>::const_iterator iter2 =
-             (*iter).second.ComponentsList.begin();
-           iter2 != (*iter).second.ComponentsList.end();
-           iter2++)
-        {
-         node1 = xmlNewChild(node, NULL, BAD_CAST test_components, NULL);
-         xmlNewProp(node1, BAD_CAST test_component_name, BAD_CAST (*iter2).c_str());
-        }
+    xmlNewProp(node, BAD_CAST test_user_name, BAD_CAST (*iter).second.UserName.c_str());
 
-      xmlNewProp(node, BAD_CAST test_os, BAD_CAST (*iter).second.OS.c_str());
-      xmlNewProp(node, BAD_CAST test_mem_in_mb, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._memInMB));
-      xmlNewProp(node, BAD_CAST test_cpu_freq_mhz, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._CPUFreqMHz));
-      xmlNewProp(node, BAD_CAST test_nb_of_nodes, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._nbOfNodes));
-      xmlNewProp(node, BAD_CAST test_nb_of_proc_per_node, BAD_CAST sprintf(string_buf, "%u", (*iter).second.DataForSort._nbOfProcPerNode));
+    std::vector<std::string>::const_iterator iter2 = (*iter).second.ComponentsList.begin();
+    for(;iter2 != (*iter).second.ComponentsList.end(); iter2++)
+    {
+      node1 = xmlNewChild(node, NULL, BAD_CAST test_components, NULL);
+      xmlNewProp(node1, BAD_CAST test_component_name, BAD_CAST (*iter2).c_str());
     }
+
+    xmlNewProp(node, BAD_CAST test_os, BAD_CAST (*iter).second.OS.c_str());
+    std::ostringstream mem_stream;
+    mem_stream << (*iter).second.DataForSort._memInMB;
+    xmlNewProp(node, BAD_CAST test_mem_in_mb, BAD_CAST mem_stream.str().c_str());
+    std::ostringstream cpu_stream;
+    cpu_stream << (*iter).second.DataForSort._CPUFreqMHz;
+    xmlNewProp(node, BAD_CAST test_cpu_freq_mhz, BAD_CAST cpu_stream.str().c_str());
+    std::ostringstream nb_nodes_stream;
+    nb_nodes_stream << (*iter).second.DataForSort._nbOfNodes;
+    xmlNewProp(node, BAD_CAST test_nb_of_nodes, BAD_CAST nb_nodes_stream.str().c_str());
+    std::ostringstream nb_proc_per_nodes_stream;
+    nb_proc_per_nodes_stream << (*iter).second.DataForSort._nbOfProcPerNode;
+    xmlNewProp(node, BAD_CAST test_nb_of_proc_per_node, BAD_CAST nb_proc_per_nodes_stream.str().c_str());
+  }
 }